home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_22_1988_Transactor_Publishing.d64 / rcv.pal (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  1KB  |  75 lines
  1. 1000 open1,8,1,"0:rcv.obj
  2. 1010 [158] 700
  3. 1020 .opt o1
  4. 1030 ; copyright 1986 jack bedard
  5. 1040 ;
  6. 1050 ; receive assembled code via
  7. 1060 ; the serial [131] port.
  8. 1070 ;
  9. 1080 ; receives address [164] s[164]re
  10. 1090 ; (low[173]high) [175] the byte
  11. 1100 ; [164] s[164]re there.
  12. 1110 ;
  13. 1120 ptr        [178] $fd
  14. 1130 u1[133]    [178] $dc0c
  15. 1140 u1icr      [178] $dc0d
  16. 1150 u1cra      [178] $dc0e
  17. 1160 update91   [178] $f6bc
  18. 1170 [144]       [178] $91
  19. 1180 ;
  20. 1190 output     [178] %01000000
  21. 1200 sh[139]treg   [178] %00001000
  22. 1210 disablall  [178] %01111111
  23. 1220 enable     [178] %10000000
  24. 1230 timera     [178] %00000001
  25. 1240 ;
  26. 1250 [172][178] 828 ;[203]es in cassette buffer
  27. 1260 ;
  28. 1261 ;
  29. 1270 tsx          ;[148] stack ptr [129]
  30. 1280 stx [148]sp   ; clean exit later
  31. 1290 ;
  32. 1300 lda #disablall
  33. 1310 sta u1icr    ;disable [181]errupts
  34. 1320 ;
  35. 1330 lda u1cra    ;clear bit 6 of cra
  36. 1340 [175] #$ff[171]output
  37. 1350 ;            ;serial p[176]t [133] at
  38. 1360 sta u1cra    ; external clock rate
  39. 1370 ;
  40. 1380 mainloop [178][172]
  41. 1390 jsr [161]sdp   ;[161] [131] byte addr
  42. 1400 sta ptr
  43. 1410 jsr [161]sdp
  44. 1420 sta ptr[170]1
  45. 1430 jsr [161]sdp   ;[161] [131] byte
  46. 1440 ;
  47. 1450 ldy #0
  48. 1460 sta (ptr),y  ;s[164]re [131] byte
  49. 1470 beq mainloop ;loop [129]ever
  50. 1480 ;
  51. 1481 ;
  52. 1490 exit [178][172]
  53. 1500 ; re[171]enable [181]errupts,
  54. 1510 ; [140] stack [175] quit
  55. 1520 lda #enable[170]timera
  56. 1530 sta u1icr
  57. 1540 ldx [148]sp
  58. 1550 txs
  59. 1560 rts
  60. 1570 ;
  61. 1571 ;
  62. 1580 [161]sdp [178][172]
  63. 1590 ; [161] byte from serial [131] port
  64. 1600 jsr update91 ;check [144] key
  65. 1610 lda [144]
  66. 1620 bpl exit
  67. 1630 ;
  68. 1640 lda u1icr    ;[146] [129] [133] byte
  69. 1650 [175] #sh[139]treg
  70. 1660 beq [161]sdp   ;no byte; loop again
  71. 1670 lda u1[133]  ;[135] the byte
  72. 1680 rts
  73. 1690 ;
  74. 1700 [148]sp [172][178][172][170]1
  75.