home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_24_1988_Transactor_Publishing.d64 / fred.a < prev    next >
Text File  |  2023-02-26  |  4KB  |  260 lines
  1. C$parmsize   = $00fb
  2. c$local      = $002b
  3. c$parms      = $033c
  4. acptr        = $ffa5
  5. chkin        = $ffc6
  6. chkout       = $ffc9
  7. chrin        = $ffcf
  8. chrout       = $ffd2
  9. ciout        = $ffa8
  10. cint         = $ff81
  11. clall        = $ffe7
  12. close        = $ffc3
  13. clrchn       = $ffcc
  14. getin        = $ffe4
  15. iobase       = $fff3
  16. ioinit       = $ff84
  17. listen       = $ffb1
  18. load         = $ffd5
  19. membot       = $ff9c
  20. memtop       = $ff99
  21. open         = $ffc0
  22. plot         = $fff0
  23. ramtas       = $ff87
  24. rdtim        = $ffde
  25. readst       = $ffb7
  26. restor       = $ff8a
  27. save         = $ffd8
  28. scnkey       = $ff9f
  29. screen       = $ffed
  30. second       = $ff93
  31. setlfs       = $ffba
  32. setmsg       = $ff90
  33. setnam       = $ffbd
  34. settim       = $ffdb
  35. settmo       = $ffa2
  36. stop         = $ffe1
  37. talk         = $ffb4
  38. tksa         = $ff96
  39. udtim        = $ffea
  40. unlsn        = $ffae
  41. untlk        = $ffab
  42. vector       = $ff8d
  43.  .ref c$start
  44.  .ref c$105
  45.  .ref c$1102
  46.  .ref ..s$aa
  47.  .ref ..s$ab
  48.  .ref c$1139
  49.  .ref ..s$ac
  50.  .ref ..s$ad
  51.  .ref ..s$ae
  52.  .ref ..s$af
  53.  .ref ..s$ag
  54.  .ref ..s$ah
  55.  .ref ..s$ai
  56.  .ref ..s$aj
  57.  .ref ..s$ak
  58.  .ref ..s$al
  59.  .ref c$106
  60.  .ref c$0112
  61.  
  62. c$$start
  63.  jmp c$start
  64.  
  65. main
  66.  sta c$parmsize
  67.  lda #$04
  68.  ldx #$00
  69.  ldy #$00
  70.  jsr c$105
  71.  ldx #$1f
  72.  ldy #$00
  73.  stx c$local
  74.  ldx #$0a
  75.  ldy #$00
  76.  stx c$local+1
  77.  ldx #$18
  78.  ldy #$00
  79.  stx c$local+2
  80.  ldx #$32
  81.  ldy #$00
  82.  stx c$local+3
  83.  lda #$00
  84.  jsr c$1102
  85.  lda #$00
  86.  jsr c$1102
  87.  ldx c$local
  88.  ldy #$00
  89.  stx c$parms
  90.  sty c$parms+1
  91.  ldx #<..s$aa
  92.  ldy #>..s$aa
  93.  stx c$parms+2
  94.  sty c$parms+3
  95.  ldx #<..s$ab
  96.  ldy #>..s$ab
  97.  lda #$04
  98.  jsr c$1139
  99.  ldx #$b3
  100.  ldy #$00
  101.  stx c$parms+9
  102.  sty c$parms+10
  103.  lda #$0b
  104.  jsr fred
  105.  ldx #<..s$ac
  106.  ldy #>..s$ac
  107.  stx c$parms+2
  108.  sty c$parms+3
  109.  ldx #<..s$ad
  110.  ldy #>..s$ad
  111.  lda #$04
  112.  jsr c$1139
  113.  lda #$09
  114.  jsr c$1102
  115.  lda #$09
  116.  jsr c$1102
  117.  ldx c$local+1
  118.  ldy #$00
  119.  stx c$parms+9
  120.  sty c$parms+10
  121.  ldx #<..s$ae
  122.  ldy #>..s$ae
  123.  stx c$parms+11
  124.  sty c$parms+12
  125.  ldx #<..s$af
  126.  ldy #>..s$af
  127.  lda #$0d
  128.  jsr c$1139
  129.  ldx #$d2
  130.  ldy #$00
  131.  stx c$parms+18
  132.  sty c$parms+19
  133.  lda #$14
  134.  jsr fred
  135.  ldx #<..s$ag
  136.  ldy #>..s$ag
  137.  stx c$parms+11
  138.  sty c$parms+12
  139.  ldx #<..s$ah
  140.  ldy #>..s$ah
  141.  lda #$0d
  142.  jsr c$1139
  143.  lda #$12
  144.  jsr c$1102
  145.  ldx c$local+2
  146.  ldy #$00
  147.  stx c$parms+18
  148.  sty c$parms+19
  149.  ldx #<..s$ai
  150.  ldy #>..s$ai
  151.  stx c$parms+20
  152.  sty c$parms+21
  153.  ldx #<..s$aj
  154.  ldy #>..s$aj
  155.  lda #$16
  156.  jsr c$1139
  157.  lda #$1b
  158.  jsr c$1102
  159.  ldx c$local+3
  160.  ldy #$00
  161.  stx c$parms+27
  162.  sty c$parms+28
  163.  ldx #<..s$ak
  164.  ldy #>..s$ak
  165.  stx c$parms+29
  166.  sty c$parms+30
  167.  ldx #<..s$al
  168.  ldy #>..s$al
  169.  lda #$1f
  170.  jsr c$1139
  171.  ldx #$7f
  172.  ldy #$00
  173.  stx c$parms+36
  174.  sty c$parms+37
  175.  lda #$26
  176.  jsr fred
  177.  lda #$1d
  178.  jsr fred
  179.  lda #$14
  180.  jsr fred
  181.  lda #$0b
  182.  jsr fred
  183.  lda #$04
  184.  ldx #$00
  185.  ldy #$00
  186.  jmp c$106
  187.  
  188.  
  189. fred
  190.  sta c$parmsize
  191.  lda #$02
  192.  ldx #$00
  193.  ldy #$00
  194.  jsr c$105
  195.  ldy #$00
  196.  lda ($16),Y
  197.  tax 
  198.  iny 
  199.  lda ($16),Y
  200.  tay 
  201.  stx c$local
  202.  sty c$local+1
  203.  ldx c$local
  204.  ldy c$local+1
  205.  stx c$parms
  206.  sty c$parms+1
  207.  lda #$02
  208.  ldx #$02
  209.  jsr c$0112
  210.  jmp fred+44
  211.  lda #$02
  212.  ldx #$00
  213.  ldy #$00
  214.  jmp c$106
  215.  
  216.  
  217. ..s$aa
  218.  .byte   $4a , $55 , $47 , $4f , $00 
  219. ..s$ab
  220.  
  221. ;!!!Invalid opcode - switching to byte mode.
  222.  .byte   $87 , $17 , $00 , $00 , $00 
  223. ..s$ac
  224.  
  225. ;!!!Invalid opcode - switching to byte mode.
  226.  .byte   $47 , $41 , $52 , $54 , $48 , $00 
  227. ..s$ad
  228.  
  229.  .byte   $86 , $71 , $33 , $33 , $33 
  230. ..s$ae
  231.  
  232. ;!!!Invalid opcode - switching to byte mode.
  233.  .byte   $54 , $59 , $4c , $55 , $4d , $00 
  234. ..s$af
  235.  
  236. ;!!!Invalid opcode - switching to byte mode.
  237.  .byte   $87 , $35 , $33 , $33 , $33 
  238. ..s$ag
  239.  
  240. ;!!!Invalid opcode - switching to byte mode.
  241.  .byte   $47 , $4c , $4f , $52 , $50 , $00 
  242. ..s$ah
  243.  
  244.  .byte   $85 , $73 , $33 , $33 , $33 
  245. ..s$ai
  246.  
  247.  .byte   $50 , $4c , $4f , $4f , $4d , $00 
  248. ..s$aj
  249.  
  250. ;!!!Invalid opcode - switching to byte mode.
  251.  .byte   $87 , $20 , $66 , $66 , $66 
  252. ..s$ak
  253.  
  254. ;!!!Invalid opcode - switching to byte mode.
  255.  .byte   $47 , $4c , $49 , $4d , $00 
  256. ..s$al
  257.  
  258.  .byte   $86 , $49 , $33 , $33 , $33 
  259.  
  260.