home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 4: Demo 1 / almathera_demo1.bin / sourcecode / dexion / ddd-sprites.s < prev    next >
Text File  |  1995-03-17  |  2KB  |  101 lines
  1. org $38000
  2. load $38000
  3. j:
  4. jmp amiga
  5. execbase=4
  6. permit=-138
  7. even
  8. gfxname: 
  9. dc.b "graphics.library",0
  10. even 
  11. gfxbase:
  12. dc.l 0
  13. oldc:
  14. dc.l 0
  15. ;
  16. ; openlib
  17. ;
  18. amiga:
  19. move.l execbase,a6
  20. lea gfxname,a1
  21. jsr -408(a6)
  22. move.l d0,gfxbase
  23. clr.l d0
  24.  
  25. ; stopmultitasking
  26. move.l execbase,a6
  27. jsr -132(a6)
  28. move.l gfxbase,a0
  29. add.l #$32,a0
  30. move.w #$0080,$dff096
  31. move.l (a0),oldc
  32. move.l #coplist,(a0)
  33. move.l a0,-(a7)
  34. move.w #$8080,$dff096
  35. move.b #151,d0
  36. move.b #184,d1
  37. move.b #64,d2
  38. move.b #44,d3
  39. move.b #1,d4
  40. move.b #1,d5
  41. ;
  42. ; wait for raster
  43. ;
  44. vloop:
  45. move.w $dff006,d6
  46. and.w #$ff00,d6
  47. cmp.w #$c000,d6
  48. bne vloop
  49. add.b d4,d2
  50. subq.b #1,d0
  51. bne mad
  52. move.b #151,d0
  53. eor.b #$fe,d4
  54. mad:
  55. move.b d2,$25001
  56. add.b d5,d3
  57. subq.b #1,d1
  58. bne sen
  59. move.b #194,d1
  60. eor.b #$fe,d5
  61. sen:
  62. bottun:
  63. andi.b #64,$bfe001
  64. bne vloop
  65. move.l (a7)+,a0
  66. move.l oldc,(a0)
  67. rts
  68. coplist:
  69. dc.w $0100,$1200
  70. dc.w $00e0,$0004,$00e2,$0000
  71. dc.w $008e,$2c91,$0090,$f1f0
  72. dc.w $0092,$0038,$0094,$00d0
  73. dc.w $0096,$84a0
  74. dc.w $0104,$0004,$0108,$0000,$010a,$0001
  75. ;
  76. dc.w $0180,$0000,$0182,$0fe0,$0184,$030c
  77. dc.w $0186,$050c,$0188,$080d,$018a,$0b0e
  78. dc.w $018c,$0e0e,$018e,$0f0c
  79. dc.w $0190,$0fff,$0192,$0888,$0194,$0555
  80. dc.w $0196,$0555,$0198,$0222,$0111,$0dcd
  81. dc.w $019c,$0eee,$019e,$0000
  82. dc.w $01a2,$0888,$01a4,$0fff,$01a6,$0555
  83. ; spr pointer
  84. dc.w $0120,$0002,$0122,$5000,$0124,$0003,$0126,$0000
  85. dc.w $0128,$0002,$012a,$5000,$012c,$0003,$012e,$0000
  86. dc.w $0130,$0003,$0132,$0000,$0134,$0003,$0136,$0000
  87. dc.w $0138,$0003,$013a,$0000,$013c,$0003,$013e,$0000
  88. sprite:
  89. org $25000
  90. load $25000
  91. ;spr data
  92. dc.w $6d00,$7d00
  93. dc.w $0002FBF8,$0002FBF8,$0002FBFC,$00028A04
  94. dc.w $0002DB06,$0002AAFA,$0002DBFF,$0002AA01
  95. dc.w $0002DBFF,$0002ABFF,$0002D800,$0002A800
  96. dc.w $0002D81F,$0002A81F,$0002D81F,$0002A811
  97. dc.w $0002D81B,$0002A815,$0002D81F,$0002A81F
  98. dc.w $0002D800,$0002A800,$0002DBFF,$0002ABFF
  99. dc.w $0002DBFF,$0002AA01,$0002DB06,$0002AAFA 
  100. dc.w $0002FBFC,$00028A04,$0002FBF8,$0002FBF8
  101.