home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_22_1988_Transactor_Publishing.d64 / rcv.mae < prev    next >
Text File  |  2023-02-26  |  2KB  |  68 lines
  1. 0010 ; copyright 1986 jack bedard
  2. 0020 .
  3. 0030 ; receive assembled code via
  4. 0040 ; the serial data port.
  5. 0050 .
  6. 0060 ; receives address to store
  7. 0070 ; (low/high) and the byte
  8. 0080 ; to store there.
  9. 0090 .
  10. 0100 ptr          .de $fd
  11. 0110 u1.input     .de $dc0c
  12. 0120 u1.icr       .de $dc0d
  13. 0130 u1.cra       .de $dc0e
  14. 0140 update.91    .de $f6bc
  15. 0150 stop         .de $91
  16. 0160 .
  17. 0170 output       .de %01000000
  18. 0180 shift.reg    .de %00001000
  19. 0190 disabl.all   .de %01111111
  20. 0200 enable       .de %10000000
  21. 0210 timer.a      .de %00000001
  22. 0220 .
  23. 0230  .ce
  24. 0240  .ba $02aa
  25. 0250  .os
  26. 0260 .
  27. 0270  tsx
  28. 0280  stx save.sp
  29. 0290 .
  30. 0300  lda #disabl.all         ; disable interrupts
  31. 0310  sta u1.icr
  32. 0320 .
  33. 0330  lda u1.cra
  34. 0340  and #$ff-output         ; clear bit 6 of cra... serial port input at
  35. 0350  sta u1.cra              ; external clock rate
  36. 0360 .
  37. 0370 main.loop
  38. 0380  jsr get.sdp             ; get address of data byte
  39. 0390  sta ptr
  40. 0400  jsr get.sdp
  41. 0410  sta ptr+1
  42. 0420  jsr get.sdp             ; get data byte
  43. 0430 .
  44. 0440  ldy #0
  45. 0450  sta (ptr),y             ; store data byte
  46. 0460  beq main.loop
  47. 0470 exit
  48. 0480  lda #enable+timer.a
  49. 0490  sta u1.icr              ; re-enable interrupts, restore stack, quit
  50. 0500  ldx save.sp
  51. 0510  txs
  52. 0520  brk
  53. 0530 .
  54. 0540 get.sdp
  55. 0550  jsr update.91
  56. 0560  lda stop                ;check stop key
  57. 0570  bpl exit
  58. 0580 .
  59. 0590  lda u1.icr              ;wait for input char
  60. 0600  and #shift.reg
  61. 0610  beq get.sdp
  62. 0620  lda u1.input            ;get input char
  63. 0630  rts
  64. 0640 .
  65. 0650 save.sp .ds 1
  66. 0660 .
  67. 0670  .en
  68.