home *** CD-ROM | disk | FTP | other *** search
/ c64.rulez.org / 2014.05.c64.rulez.org.tar / c64.rulez.org / pub / c64 / other-OS / Dos / TASM03.ZIP / SERIAL.TAS < prev    next >
Text File  |  1998-07-16  |  2KB  |  131 lines
  1. ;dO NOT CHANGE THIS LINE!07b0000ffffffffffffffffffffffffffffffffffffffffffffffff0J0080l2e54455854202220229d9d000000000000000000d5f334e0000000000000000000000000000000000l2e42595445202430309d9d000000000000000000c5f14000000000000000000000000000000000000
  2.  
  3. ;{CBM-A}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-S}
  4.  
  5. ;{SHIFT--}2 bit serial transfer to C64         {SHIFT--}
  6.  
  7. ;{SHIFT--}for tasm v0.3b                       {SHIFT--}
  8.  
  9. ;{SHIFT--}(C) 1998 Kajtar Zsolt (Soci/Singular){SHIFT--}
  10.  
  11. ;{SHIFT--}                                     {SHIFT--}
  12.  
  13. ;{SHIFT--}Useable between $0200-$FFFF          {SHIFT--}
  14.  
  15. ;{SHIFT--}                                     {SHIFT--}
  16.  
  17. ;{SHIFT--}Load it with ,8,1                    {SHIFT--}
  18.  
  19. ;{CBM-Z}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{SHIFT-*}{CBM-X}
  20.  
  21. *= $0102
  22.  
  23.  
  24.  
  25. ldx #$ff
  26.  
  27. txs
  28.  
  29. ldy #>txt
  30.  
  31. lda #<txt
  32.  
  33.          jsr $ab1e ;"<space>"
  34.  
  35. lp       lda $dc01
  36.  
  37. and #16
  38.  
  39. bne lp
  40.  
  41. lda #"{CBM-P}"
  42.  
  43.          jsr $ffd2 ;"{CBM-P}"
  44.  
  45. sei
  46.  
  47.          lda #$e3 ;return address 4 rts
  48.  
  49. pha
  50.  
  51. lda #$7a
  52.  
  53. pha
  54.  
  55. ldx #3
  56.  
  57. stx $dd00
  58.  
  59.  
  60.  
  61. dn       lda $dd00 ;synchronization
  62.  
  63. bmi dn
  64.  
  65.  
  66.  
  67. lda #19
  68.  
  69. sta $dd00
  70.  
  71.  
  72.  
  73. dn2      lda $dd00
  74.  
  75. bpl dn2
  76.  
  77.  
  78.  
  79. stx $dd00
  80.  
  81.  
  82.  
  83. jsr getbyte
  84.  
  85. tay
  86.  
  87. jsr getbyte
  88.  
  89. sta $15
  90.  
  91. jsr getbyte
  92.  
  93. sta $fd
  94.  
  95. jsr getbyte
  96.  
  97. sta $fe
  98.  
  99. jsr getbyte
  100.  
  101. sta $fb
  102.  
  103. jsr getbyte
  104.  
  105. sta $fc
  106.  
  107. lda #0
  108.  
  109. sta $14
  110.  
  111.  
  112.  
  113. ldx #3
  114.  
  115. vu       lda $dd00
  116.  
  117. asl a
  118.  
  119. rol $02
  120.  
  121. asl a
  122.  
  123. rol $02
  124.  
  125. lda #11
  126.  
  127. sta $dd00
  128.  
  129. lda $dd00
  130.  
  131. asl a
  132.  
  133. rol $02
  134.  
  135. asl a
  136.  
  137. rol $02
  138.  
  139. stx $dd00
  140.  
  141. lda $dd00
  142.  
  143. asl a
  144.  
  145. rol $02
  146.  
  147. asl a
  148.  
  149. rol $02
  150.  
  151. lda #11
  152.  
  153. sta $dd00
  154.  
  155. lda $dd00
  156.  
  157. asl a
  158.  
  159. rol $02
  160.  
  161. asl a
  162.  
  163. lda $02
  164.  
  165. rol a
  166.  
  167. stx $dd00
  168.  
  169. stx $01
  170.  
  171. sta ($14),y
  172.  
  173. lda #7
  174.  
  175. sta $01
  176.  
  177. iny
  178.  
  179. bne vuf
  180.  
  181. inc $15
  182.  
  183. vuf      inc $fc
  184.  
  185. bne vu
  186.  
  187. inc $fb
  188.  
  189. bne vu
  190.  
  191.  
  192.  
  193. jmp ($fd)
  194.  
  195.  
  196.  
  197. getbyte  ldx #2
  198.  
  199. lda #0
  200.  
  201. sta $02
  202.  
  203. f        lda $dd00
  204.  
  205. asl a
  206.  
  207. rol $02
  208.  
  209. asl a
  210.  
  211. rol $02
  212.  
  213. lda #3+8
  214.  
  215. sta $dd00
  216.  
  217. lda $dd00
  218.  
  219. asl a
  220.  
  221. rol $02
  222.  
  223. asl a
  224.  
  225. rol $02
  226.  
  227. lda #3
  228.  
  229. sta $dd00
  230.  
  231. dex
  232.  
  233. bne f
  234.  
  235. lda $02
  236.  
  237. rts
  238.  
  239. txt      .text 13,"<space>",0
  240.  
  241.  
  242.  
  243.          ;autostart:
  244.  
  245.  
  246.  
  247. .byte $01,$01,$01,$01,$01,$01
  248.  
  249. .byte $01,$01,$01,$01,$01,$01
  250.  
  251. .byte $01,$01,$01,$01,$01,$01
  252.  
  253. .byte $01,$01,$01,$01,$01,$01
  254.  
  255. .byte $01,$01,$01,$01,$01,$01
  256.  
  257. .byte $01,$01,$01,$01,$01,$01
  258.  
  259. .byte $01,$01,$01
  260.  
  261.