home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 4: Demo 1 / almathera_demo1.bin / sourcecode / dexion / blev.s < prev    next >
Text File  |  1995-03-17  |  3KB  |  145 lines
  1. s:
  2. move.l        #$50100,$dff0a0    
  3. move.w        #[37560/2],$dff0a4 
  4. move.w        #360,$dff0a6    
  5. move.w        #64,$dff0a8    
  6. move.w        #$8201,$dff096    
  7. move.l    $04,a6
  8. lea    gfxname,a1
  9. jsr    -408(a6)
  10. move.l    d0,gfxbase
  11. move.l    d0,a0
  12. move.l    50(a0),oldclist
  13. move.l    #newclist,50(a0)
  14. move.l    gfxbase,a6
  15. lea    bitmap,a0
  16. move.l    #$01,d0
  17. move.l    #336,d1
  18. move.l    #200,d2
  19. jsr    -390(a6)
  20. move.l    #$60000,plane1
  21. lea    rastport,a1
  22. jsr    -198(a6)
  23. move.l    #bitmap,r_bitmap
  24. lea    rastport,a1
  25. ;jsr    -48(a6)
  26. move.l    #text,taller
  27. move.l    $6c,oldirq+2
  28. move.l    #newirq,$6c
  29. wait:
  30. btst    #6,$bfe001
  31. bne    wait
  32. jmp     slut
  33. newirq:
  34. movem.l    d0-d7/a0-a6,-(sp)
  35. move.l    gfxbase,a6
  36. lea    rastport,a1
  37. move.l    #$01,d0
  38. clr.l    d1
  39. clr.l    d2
  40. move.l    #100,d3
  41. move.l    #336,d4
  42. move.l    #200,d5
  43. jsr    -396(a6)
  44. sub.b    #$01,rows
  45. bne.s    exit
  46. move.b    #$8,rows
  47. lea    rastport,a1
  48. move.l    #320,d0
  49. move.l    #108,d1
  50. jsr    -240(a6)
  51. lea    rastport,a1
  52. move.l    taller,a0
  53. move.l    #$01,d0
  54. jsr    -60(a6)
  55. addq.l    #$01,taller
  56. cmp.l    #end,taller
  57. blt.s    exit
  58. move.l    #text,taller
  59. exit:
  60. movem.l    (sp)+,d0-d7/a0-a6
  61. oldirq:
  62. jmp    $00000000
  63. slut:
  64. move.w #$0001,$dff096
  65. move.l oldirq+2,$6c
  66. move.l gfxbase,a0
  67. move.l oldclist,50(a0)
  68. move.l $04,a6
  69. jmp -414(a6)
  70. newclist:
  71. dc.w    $8e,$1c81,$90,$f4c1,$92,$38,$94,$d0
  72. dc.w    $102,$0,$104,$0,$108,$0,$10a,$0
  73. dc.w    $0100,$4200,$182,$0fff,$180,$0
  74. dc.w    $3011,$fffe,$00e0,$0006,$00e2,$0000
  75. dc.w    $3111,$fffe,$e2,$28,$e6,$28,$ea,$28,$ee,$28
  76. dc.w    $3231,$fffe,$e2,$50,$e6,$50,$ea,$50,$ee,$50
  77. dc.w    $3351,$fffe,$e2,$78,$e6,$78,$ea,$78,$ee,$78
  78. dc.w    $3413,$fffe,$e2,$a0,$e6,$a0,$ea,$a0,$ee,$a0
  79. dc.w    $3515,$fffe,$e2,$c8,$e6,$c8,$ea,$c8,$ee,$c8
  80. dc.w    $3617,$fffe,$e2,$f0,$e6,$f0,$ea,$f0,$ee,$f0
  81. dc.w    $3719,$fffe,$e2,$118,$e6,$118,$ea,$118,$ee,$118
  82. dc.w    $381b,$fffe,$e2,$140,$e6,$140,$ea,$140,$ee,$140
  83. dc.w    $391d,$fffe,$e2,$168,$e6,$168,$ea,$168,$ee,$168
  84. dc.w    $3a1f,$fffe,$e2,$190,$e6,$190,$ea,$190,$ee,$190
  85. dc.w    $3b1d,$fffe,$e2,$1b8,$e6,$1b8,$ea,$1b8,$ee,$1b8
  86. dc.w    $3c1b,$fffe,$e2,$1e0,$e6,$1e0,$ea,$1e0,$ee,$1e0
  87. dc.w    $3d39,$fffe,$e2,$208,$e6,$208,$ea,$208,$ee,$208
  88. dc.w    $3e47,$fffe,$e2,$230,$e6,$230,$ea,$230,$ee,$230
  89. dc.w    $3f55,$fffe,$e2,$258
  90. dc.w    $4011,$fffe,$e2,$280
  91. dc.w    $4113,$fffe,$e2,$2a8
  92. dc.w    $4215,$fffe,$e2,$2d0
  93. dc.w    $4317,$fffe,$e2,$2f8
  94. dc.w    $4419,$fffe,$e2,$320
  95. dc.w    $451b,$fffe,$e2,$348
  96. dc.w    $461d,$fffe,$e2,$370
  97. dc.w    $471f,$fffe,$e2,$398
  98. dc.w    $481d,$fffe,$e2,$3c0
  99. dc.w    $491b,$fffe,$e2,$3e8
  100. dc.w    $4a19,$fffe,$e2,$410
  101. dc.w    $4b17,$fffe,$e2,$438
  102. dc.w    $4c15,$fffe,$e2,$460
  103. dc.w    $4d13,$fffe,$e2,$488
  104. dc.w    $4e11,$fffe,$e2,$4b0
  105. dc.w    $108,$2,$10a,$2,$100,$1200
  106. dc.w    $a011,$fffe,$108,$0,$10a,$0,$100,4200,$e0,$6,$e2,$0
  107. dc.w    $a111,$fffe,$92,$3d,$94,$d5
  108. dc.w    $a211,$fffe,$92,$3c,$94,$d4 
  109. dc.w    $a311,$fffe,$92,$3b,$94,$d3 
  110. dc.w    $a411,$fffe,$92,$3a,$94,$d2 
  111. dc.w    $a511,$fffe,$92,$39,$94,$d1 
  112. dc.w    $a611,$fffe,$92,$38,$94,$d0 
  113. dc.w    $a711,$fffe,$92,$37,$94,$cf 
  114. dc.w    $a811,$fffe,$92,$36,$94,$ce 
  115. dc.w    $a911,$fffe,$92,$35,$94,$cd 
  116. dc.w    $aa11,$fffe,$92,$34,$94,$cc 
  117. dc.w    $ab11,$fffe,$92,$33,$94,$cb 
  118. dc.w    $ac11,$fffe,$92,$32,$94,$ca 
  119. dc.w    $ad11,$fffe,$92,$31,$94,$c9 
  120. dc.w    $ae11,$fffe,$92,$38,$94,$d0 
  121. dc.w    $ffff,$fffe
  122. text:
  123. dc.b    "REFLEX CRACKING SQUAD                      "        
  124. end:
  125. even
  126. taller:
  127. dc.l    0
  128. oldclist:
  129. dc.l    0
  130. gfxbase:
  131. dc.l    0
  132. gfxname:
  133. dc.b    "graphics.library",0
  134. even
  135. bitmap:
  136. blk.w    4,0
  137. plane1:
  138. blk.l    20,0
  139. rastport:
  140. dc.l    0
  141. r_bitmap:
  142. blk.l    30,0
  143. rows:
  144. dc.b    2
  145.