home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 4: Demo 1 / almathera_demo1.bin / sourcecode / dexion / sprites.s < prev    next >
Text File  |  1995-03-17  |  3KB  |  96 lines
  1. org $60000
  2. load $60000
  3. s:
  4. move.l    $04,a6
  5. lea    gfxname,a1
  6. jsr    -408(a6)
  7. move.l    d0,gfxbase
  8. move.l    d0,a0
  9. move.l    50(a0),oldclist
  10. move.l    #newclist,50(a0)
  11. move.l    gfxbase,a6
  12. wait:
  13. btst #6,$bfe001
  14. bne wait
  15. slut:
  16. move.w #3,$dff096
  17. move.l gfxbase,a0
  18. move.l oldclist,50(a0)
  19. move.l $04,a6
  20. jmp -414(a6)
  21. newclist:
  22. dc.w    $008e,$2c81,$0090,$f4c1,$0092,$0038,$0094,$00d0
  23. dc.w    $0120,$0002,$0122,$5000,$0124,$0002,$0126,$5048
  24. dc.w    $0128,$0002,$012a,$5090,$012c,$0002,$012e,$50d8
  25. dc.w    $0130,$0002,$0132,$5120,$0134,$0002,$0136,$5168
  26. dc.w    $0102,$0000,$0104,$0024,$0108,$0002,$010a,$0002
  27. dc.w    $0100,$1200,$0180,$0000,$0182,$0000
  28. dc.w    $01a2,$0777,$01a4,$0999,$01a6,$0555
  29. dc.w    $01aa,$0777,$01ac,$0999,$01ae,$0555
  30. dc.w    $01b2,$0777,$01b4,$0999,$01b6,$0555   
  31. dc.w    $ffff,$fffe
  32. oldclist:
  33. dc.l    0
  34. gfxbase:
  35. dc.l    0
  36. gfxname:
  37. dc.b    "graphics.library",0
  38. even
  39. org $25000
  40. load $25000
  41. Spr4a:
  42.       DC.w $70b5,$8100,$00020000,$00020000
  43.       DC.W $00020000,$0002F00F,$00020000,$0002F00F
  44.       DC.W $00020000,$23C3C,$00020000,$23C3C
  45.       DC.W $00020000,$020FF0,$00020000,$020FF0
  46.       DC.W $00020000,$0203C0,$00020000,$0203C0
  47.       DC.W $00020000,$020FF0,$00020000,$020FF0
  48.       DC.W $00020000,$23C3C,$00020000,$23C3C
  49.       DC.W $00020000,$0002F00F,$00020000,$0002F00F
  50.       DC.W $00020000,$00020000,$0000,$0000
  51.       DC.w $70a5,$8100,$00020000,$00020000
  52.       DC.W $00020000,$0002FFFC,$00020000,$0002FFFC
  53.       DC.W $00020000,$23C3C,$00020000,$23C3C
  54.       DC.W $00020000,$23C00,$00020000,$23C00
  55.       DC.W $00020000,$23FC0,$00020000,$23FC0
  56.       DC.W $00020000,$23C00,$00020000,$23C00
  57.       DC.W $00020000,$23C3C,$00020000,$23C3C
  58.       DC.W $00020000,$0002FFFC,$00020000,$0002FFFC
  59.       DC.W $00020000,$00020000,$0000,$0000
  60.       DC.w $7095,$8100,$00020000,$00020000
  61.       DC.W $00020000,$0002FF00,$00020000,$0002FF00
  62.       DC.W $00020000,$23C00,$00020000,$23C00
  63.       DC.W $00020000,$23C00,$00020000,$23C00
  64.       DC.W $00020000,$23C00,$00020000,$23C00
  65.       DC.W $00020000,$23C0C,$00020000,$23C0C
  66.       DC.W $00020000,$23C3C,$00020000,$23C3C
  67.       DC.W $00020000,$0002FFFC,$00020000,$0002FFFC
  68.       DC.W $00020000,$00020000,$0000,$0000
  69.       DC.w $7085,$8100,$00020000,$00020000
  70.       DC.W $00020000,$0002FFFC,$00020000,$0002FFFC
  71.       DC.W $00020000,$23C3C,$00020000,$23C3C
  72.       DC.W $00020000,$23C00,$00020000,$23C00
  73.       DC.W $00020000,$23FC0,$00020000,$23FC0
  74.       DC.W $00020000,$23C00,$00020000,$23C00
  75.       DC.W $00020000,$23C00,$00020000,$23C00
  76.       DC.W $00020000,$0002FF00,$00020000,$0002FF00
  77.       DC.W $00020000,$00020000,$0000,$0000
  78.       DC.w $7075,$8100,$00020000,$00020000
  79.       DC.W $00020000,$0002FFFC,$00020000,$0002FFFC
  80.       DC.W $00020000,$23C3C,$00020000,$23C3C
  81.       DC.W $00020000,$23C00,$00020000,$23C00
  82.       DC.W $00020000,$23FC0,$00020000,$23FC0
  83.       DC.W $00020000,$23C00,$00020000,$23C00
  84.       DC.W $00020000,$23C3C,$00020000,$23C3C
  85.       DC.W $00020000,$0002FFFC,$00020000,$0002FFFC
  86.       DC.W $00020000,$00020000,$0000,$0000
  87.       DC.w $7065,$8100,$00030000,$00030000
  88.       DC.W $00030000,$0003FFF0,$00030000,$0003FFF0
  89.       DC.W $00030000,$33C3C,$00030000,$33C3C
  90.       DC.W $00030000,$33C3C,$00030000,$33C3C
  91.       DC.W $00030000,$33FF0,$00030000,$33FF0
  92.       DC.W $00030000,$33CF0,$00030000,$33CF0
  93.       DC.W $00030000,$33C3C,$00030000,$33C3C
  94.       DC.W $00030000,$0003FC0F,$00030000,$0003FC0F
  95.       DC.W $00030000,$00030000,$0000,$0000
  96.