home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 4: Demo 1 / almathera_demo1.bin / sourcecode / dexion / 3_r0r_tox.s next >
Text File  |  1995-03-17  |  714b  |  51 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 $010,$020,$030,$040,$050,$060,$070,$080,$060,$050,$040
  34. dc.w $030,$020,$010,$00
  35. dc.w $110,$220,$330,$440,$550,$660,$770,$880,$990,$aa0,$bb0
  36. dc.w $aa0,$990,$880,$770,$660,$550,$440,$330,$220,$110,$000
  37. dc.w $010,$020,$030,$040,$050,$060,$070,$080,$070,$060,$050
  38. dc.w $040,$030,$020,$010,$000
  39.  
  40.     
  41. endtab:
  42. even
  43. farve:
  44. dc.w $0
  45. even 
  46. tjekk:
  47. dc.b $00
  48. even
  49. s5:
  50. rts
  51.