home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 4: Demo 1 / almathera_demo1.bin / sourcecode / dexion / tox_move.s < prev    next >
Text File  |  1995-03-17  |  531b  |  42 lines
  1. s:
  2. move.b #$80,lab1+3
  3. lea tabel,a0
  4. s1:
  5. andi.b #64,$bfe001
  6. beq s5
  7. lab1:
  8. cmp.b #$80,$dff006
  9. bne s1 
  10. s2:
  11. move.l farve,$dff180
  12. add.b #1,lab1+3
  13. move.w (a0)+,farve
  14. cmp.l #endtab,a0
  15. bne s1
  16. cmp.b #$01,tjek
  17. beq op
  18. add.b #1,s+3
  19. cmp.b #$a0,s+3
  20. bne s
  21. move.b #$00,tjekk
  22. bra s
  23. op:
  24. sub.b #1,s+3
  25. cmp.b #$80,s+3
  26. bne s
  27. move.b #$01,tjekk
  28. bra s
  29. even
  30. tabel:
  31. dc.w $000,$111,$222,$333,$444,$555,$666,$777,$888,$999,$aaa,$bbb
  32. dc.w $aaa,$999,$888,$777,$666,$555,$444,$333,$222,$111,$000,$000
  33. endtab:
  34. even
  35. farve:
  36. dc.w $0
  37. even 
  38. tjekk:
  39. dc.b $00
  40. even
  41. s5: rts
  42.