home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 4: Demo 1 / almathera_demo1.bin / sourcecode / dexion / actionforce.s < prev    next >
Text File  |  1995-03-17  |  715b  |  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 $200,$400,$600,$800,$a00,$c00,$e00,$e00,$e00,$c00,$a00
  34. dc.w $800,$600,$400,$200
  35. dc.w $000,$111,$333,$555,$666,$888,$999,$aaa,$bbb,$ccc,$ddd
  36. dc.w $ddd,$ccc,$bbb,$aaa,$999,$888,$666,$555,$333,$111,$000
  37. dc.w $004,$004,$006,$008,$00a,$00c,$00e,$00e,$00e,$00c,$00a
  38. dc.w $008,$006,$004,$555,$002
  39.  
  40.     
  41. endtab:
  42. even
  43. farve:
  44. dc.w $5
  45. even 
  46. tjekk:
  47. dc.b $00
  48. even
  49. s5:
  50. rts
  51.