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