home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 4: Demo 1 / almathera_demo1.bin / sourcecode / dexion / 4th_dim_col.s < prev    next >
Text File  |  1995-03-17  |  1KB  |  55 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. dc.w $0000,$1100,$2200,$3300,$4400,$5500,$6600,$7700,$8800
  36. dc.w $9900,$aa00,$bb00,$cc00,$bb00,$aa00,$9900,$8800,$7700
  37. dc.w $6600,$5500,$4400,$3300,$2200,$1100,$0000
  38. dc.w $1,$2,$3,$4,$5,$6,$7,$8,$9,$a,$b,$c,$b,$a,$9,$8,$7,$6,$5,$4
  39. dc.w $3,$2,$1
  40. dc.w $0000,$1100,$2200,$3300,$4400,$5500,$6600,$7700,$8800
  41. dc.w $9900,$aa00,$bb00,$cc00,$bb00,$aa00,$9900,$8800,$7700
  42. dc.w $6600,$5500,$4400,$3300,$2200,$1100,$0000
  43. dc.w $111,$222,$333,$444,$555,$666,$777,$888,$999,$aaa,$bbb
  44. dc.w $aaa,$999,$888,$777,$666,$555,$444,$333,$222,$111
  45. endtab:
  46. even
  47. farve:
  48. dc.w $0
  49. even 
  50. tjekk:
  51. dc.b $00
  52. even
  53. s5:
  54. rts
  55.