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 / WARP.TAS < prev   
Text File  |  1998-08-28  |  4KB  |  276 lines
  1. ;dO NOT CHANGE THIS LINE!07b0000ffffffff0072ffffffffffffffffffffffffffffffffffff0J0111l2e54455854202220229d9d000000000000000000d5f334e0000000000000000000000000000000000l2e42595445202430309d9d000000000000000000c5f14000000000000000000000000000000000000
  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--}Warp-paralell 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 $0600-$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. *= 828
  22.  
  23.  
  24.  
  25. lda #7
  26.  
  27. sta $01
  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
  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 #3+16
  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. lda #11
  84.  
  85. sta $d011
  86.  
  87.  
  88.  
  89. ldy $dd01
  90.  
  91. ldx #3+32
  92.  
  93. stx $dd00
  94.  
  95. lda $dd01
  96.  
  97. sta a0+2
  98.  
  99. sta a1+2
  100.  
  101. sta a2+2
  102.  
  103. sta a3+2
  104.  
  105. sta a4+2
  106.  
  107. sta a5+2
  108.  
  109. sta a6+2
  110.  
  111. sta a7+2
  112.  
  113. sta a8+2
  114.  
  115. lda #3
  116.  
  117. sta $dd00
  118.  
  119.  
  120.  
  121. lda $dd01
  122.  
  123. sta $14
  124.  
  125. stx $dd00
  126.  
  127. lda $dd01
  128.  
  129. sta $15
  130.  
  131. lda #3
  132.  
  133. sta $dd00
  134.  
  135.  
  136.  
  137. lda $dd01
  138.  
  139.          sta $fb;felso
  140.  
  141. stx $dd00
  142.  
  143. ldx $dd01
  144.  
  145.          stx $fc;also
  146.  
  147. lda #3
  148.  
  149. sta $dd00
  150.  
  151.  
  152.  
  153.          lda $fb;felso
  154.  
  155. cmp #255
  156.  
  157. beq xc
  158.  
  159. cpx #0
  160.  
  161. beq ytu
  162.  
  163. inc $fb
  164.  
  165. ytu      cpy #0
  166.  
  167. beq mehet
  168.  
  169. dec $fb
  170.  
  171.  
  172.  
  173. xc       cpx #0  ;pont 256!
  174.  
  175. bne alp
  176.  
  177.          cpy #0  ;egesz?
  178.  
  179. beq mehet
  180.  
  181. alp      lda $dd01
  182.  
  183. inc $01
  184.  
  185. a0       sta $ff00,y
  186.  
  187. dec $01
  188.  
  189. lda #3+32
  190.  
  191. sta $dd00
  192.  
  193. lda #3
  194.  
  195. sta $dd00
  196.  
  197. inx
  198.  
  199. bne sg
  200.  
  201. inc $fb
  202.  
  203.          bne sg   ;elfogyott...
  204.  
  205. jmp ki
  206.  
  207. sg
  208.  
  209. iny
  210.  
  211. bne alp
  212.  
  213. stx $fc
  214.  
  215.          cpx #0 ;256 maradek?
  216.  
  217. bne jjj
  218.  
  219. dec $fb
  220.  
  221. jjj      ldx #7+32
  222.  
  223. cmp #$d0
  224.  
  225. bcc jjx
  226.  
  227. cmp #$e0
  228.  
  229. bcs jjx
  230.  
  231. jmp jjb
  232.  
  233. jjx      jmp jj
  234.  
  235.  
  236.  
  237. mehet    ldx #7+32
  238.  
  239. ldy #31
  240.  
  241. lda a1+2
  242.  
  243. cmp #$d0
  244.  
  245. bcc mehet2
  246.  
  247. cmp #$e0
  248.  
  249. bcs mehet2
  250.  
  251. beb2     sta b1+2
  252.  
  253. sta b2+2
  254.  
  255. sta b3+2
  256.  
  257. sta b4+2
  258.  
  259. sta b5+2
  260.  
  261. sta b6+2
  262.  
  263. sta b7+2
  264.  
  265. sta b8+2
  266.  
  267. jmp beb
  268.  
  269.  
  270.  
  271. mehet2   ldy #31
  272.  
  273. lda a1+2
  274.  
  275. cmp #$d0
  276.  
  277. beq beb2
  278.  
  279. be       lda $dd01
  280.  
  281. stx $dd00
  282.  
  283. a1       sta $ff00,y
  284.  
  285. lda $dd01
  286.  
  287. sty $dd00
  288.  
  289. a2       sta $ff20,y
  290.  
  291. lda $dd01
  292.  
  293. stx $dd00
  294.  
  295. a3       sta $ff40,y
  296.  
  297. lda $dd01
  298.  
  299. sty $dd00
  300.  
  301. a4       sta $ff60,y
  302.  
  303. lda $dd01
  304.  
  305. stx $dd00
  306.  
  307. a5       sta $ff80,y
  308.  
  309. lda $dd01
  310.  
  311. sty $dd00
  312.  
  313. a6       sta $ffa0,y
  314.  
  315. lda $dd01
  316.  
  317. stx $dd00
  318.  
  319. a7       sta $ffc0,y
  320.  
  321. lda $dd01
  322.  
  323. sty $dd00
  324.  
  325. a8       sta $ffe0,y
  326.  
  327. dey
  328.  
  329. bpl be
  330.  
  331.  
  332.  
  333. jj       inc a1+2
  334.  
  335. inc a2+2
  336.  
  337. inc a3+2
  338.  
  339. inc a4+2
  340.  
  341. inc a5+2
  342.  
  343. inc a6+2
  344.  
  345. inc a7+2
  346.  
  347. inc a8+2
  348.  
  349. inc $fb
  350.  
  351. bne mehet2
  352.  
  353.  
  354.  
  355. vsz      ldx $fc
  356.  
  357. beq ki
  358.  
  359.  
  360.  
  361. ldy #0
  362.  
  363. lda a1+2
  364.  
  365. keves    sta a9+2
  366.  
  367. alp2     lda $dd01
  368.  
  369. inc $01
  370.  
  371. a9       sta $ff00,y
  372.  
  373. dec $01
  374.  
  375. lda #3+32
  376.  
  377. sta $dd00
  378.  
  379. lda #3
  380.  
  381. sta $dd00
  382.  
  383. iny
  384.  
  385. bne lj
  386.  
  387. inc a9+2
  388.  
  389. lj       inx
  390.  
  391. bne alp2
  392.  
  393.  
  394.  
  395. ki       lda #3
  396.  
  397. sta $dd00
  398.  
  399. lda #27
  400.  
  401. sta $d011
  402.  
  403. jmp ($14)
  404.  
  405.  
  406.  
  407. mehet2b  ldy #31
  408.  
  409. lda b1+2
  410.  
  411. cmp #$e0
  412.  
  413. bne beb
  414.  
  415. sta a1+2
  416.  
  417. sta a2+2
  418.  
  419. sta a3+2
  420.  
  421. sta a4+2
  422.  
  423. sta a5+2
  424.  
  425. sta a6+2
  426.  
  427. sta a7+2
  428.  
  429. sta a8+2
  430.  
  431. jmp be
  432.  
  433.  
  434.  
  435. beb      lda $dd01
  436.  
  437. stx $dd00
  438.  
  439. inc $01
  440.  
  441. b1       sta $ff00,y
  442.  
  443. stx $01
  444.  
  445. lda $dd01
  446.  
  447. sty $dd00
  448.  
  449. inc $01
  450.  
  451. b2       sta $ff20,y
  452.  
  453. stx $01
  454.  
  455. lda $dd01
  456.  
  457. stx $dd00
  458.  
  459. inc $01
  460.  
  461. b3       sta $ff40,y
  462.  
  463. stx $01
  464.  
  465. lda $dd01
  466.  
  467. sty $dd00
  468.  
  469. inc $01
  470.  
  471. b4       sta $ff60,y
  472.  
  473. stx $01
  474.  
  475. lda $dd01
  476.  
  477. stx $dd00
  478.  
  479. inc $01
  480.  
  481. b5       sta $ff80,y
  482.  
  483. stx $01
  484.  
  485. lda $dd01
  486.  
  487. sty $dd00
  488.  
  489. inc $01
  490.  
  491. b6       sta $ffa0,y
  492.  
  493. stx $01
  494.  
  495. lda $dd01
  496.  
  497. stx $dd00
  498.  
  499. inc $01
  500.  
  501. b7       sta $ffc0,y
  502.  
  503. stx $01
  504.  
  505. lda $dd01
  506.  
  507. sty $dd00
  508.  
  509. inc $01
  510.  
  511. b8       sta $ffe0,y
  512.  
  513. stx $01
  514.  
  515. dey
  516.  
  517. bpl beb
  518.  
  519. jjb      inc b1+2
  520.  
  521. inc b2+2
  522.  
  523. inc b3+2
  524.  
  525. inc b4+2
  526.  
  527. inc b5+2
  528.  
  529. inc b6+2
  530.  
  531. inc b7+2
  532.  
  533. inc b8+2
  534.  
  535. inc $fb
  536.  
  537. beq *+5
  538.  
  539. jmp mehet2b
  540.  
  541. lda b1+2
  542.  
  543. sta a1+2
  544.  
  545. jmp vsz
  546.  
  547.  
  548.  
  549. txt      .text 13,"<space>",0
  550.  
  551.