home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 4: Demo 1 / almathera_demo1.bin / sourcecode / dexion / scrup.s < prev    next >
Text File  |  1995-03-17  |  1KB  |  57 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+1
  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,$003,$002
  39. dc.w $020,$040,$060,$080,$0a0,$0c0,$0e0,$0f0,$0e0,$0c0,$0a0
  40. dc.w $080,$060,$040,$020
  41. dc.w $000,$110,$220,$440,$660,$880,$aa0,$cc0,$ee0,$ff0,$ee0
  42. dc.w $cc0,$aa0,$880,$660,$440,$220,$110,$000    
  43. dc.w $011,$022,$044,$066,$088,$0aa,$0cc,$0ee,$0ff,$0ee,$0cc
  44. dc.w $0aa,$088,$066,$044,$022,$011
  45. dc.w $000,$101,$202,$404,$606,$808,$a0a,$c0c,$e0e,$f0f,$e0e
  46. dc.w $c0c,$a0a,$808,$606,$404,$202,$101
  47. endtab:
  48. even
  49. farve:
  50. dc.w $5
  51. even 
  52. tjekk:
  53. dc.b $00
  54. even
  55. s5:
  56. rts
  57.