home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 4: Demo 1 / almathera_demo1.bin / sourcecode / dexion / 4th5.s < prev    next >
Text File  |  1995-03-17  |  2KB  |  135 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. andi.b  #$40,$bfe001
  31. bne    wait
  32. jmp     slut
  33. newirq:
  34. move.b  #$80,lab1+3
  35. lea     tabel,a0
  36. lab1:
  37. cmp.b   #$80,$df006
  38. bne     wait
  39. s2:
  40. move.w  farge,$dff180
  41. add.b   #1,lab1+3
  42. move.w  (a0)+,farge
  43. cmp.l   #endtab,a0
  44. bne     wait
  45. cmp.b   #$01,tjekk
  46. beq     spe2
  47. spe1:
  48. add.b   #1,s+3
  49. cmp.b   #$e0,s+3
  50. bne     newirq
  51. move.b  #$01,tjekk
  52. bra     newirq
  53. spe2:
  54. add.b   #1,s+3
  55. cmp.b   #$50,s+3
  56. bne     newirq
  57. move.b  #$00,tjekk
  58. bra     newirq
  59. even
  60. tabel:
  61. dc.w    $1,$2,$3,$4,$5,$6,$7,$8,$7,$6,$5,$4,$3,$2,$1
  62. endtab:
  63. even
  64. farge:
  65. dc.w    $0
  66. even
  67. tjekk:
  68. dc.b    $00
  69. even
  70. movem.l    d0-d7/a0-a6,-(sp)
  71. move.l    gfxbase,a6
  72. lea    rastport,a1
  73. move.l    #$01,d0
  74. clr.l    d1
  75. clr.l    d2
  76. move.l    #01,d3
  77. move.l    #336,d4
  78. move.l    #200,d5
  79. jsr    -396(a6)
  80. sub.b    #$01,rows
  81. bne.s    exit
  82. move.b    #$8,rows
  83. lea    rastport,a1
  84. move.l    #320,d0
  85. move.l    #108,d1
  86. jsr    -240(a6)
  87. lea    rastport,a1
  88. move.l    taller,a0
  89. move.l    #$01,d0
  90. jsr    -60(a6)
  91. addq.l    #$01,taller
  92. cmp.l    #end,taller
  93. blt.s    exit
  94. move.l    #text,taller
  95. exit:
  96. movem.l    (sp)+,d0-d7/a0-a6
  97. oldirq:
  98. jmp    $00000000
  99. slut:
  100. move.w #$0001,$dff096
  101. move.l oldirq+2,$6c
  102. move.l gfxbase,a0
  103. move.l oldclist,50(a0)
  104. move.l $04,a6
  105. jmp -414(a6)
  106. newclist:
  107. dc.w    $008e,$2c81,$0090,$f4c1,$0092,$0038,$0094,$00d0
  108. dc.w    $0102,$0000,$0104,$0000,$0108,$0002,$010a,$0002
  109. dc.w    $0100,$1200,$0180,$0000,$0182,$0fff
  110. dc.w    $00e0,$0006,$00e2,$0000
  111. dc.w    $ffff,$fffe
  112. text:
  113. dc.b    "REFLEX CRACKING SQUAD                      "        
  114. end:
  115. even
  116. taller:
  117. dc.l    0
  118. oldclist:
  119. dc.l    0
  120. gfxbase:
  121. dc.l    0
  122. gfxname:
  123. dc.b    "graphics.library",0
  124. even
  125. bitmap:
  126. blk.w    4,0
  127. plane1:
  128. blk.l    20,0
  129. rastport:
  130. dc.l    0
  131. r_bitmap:
  132. blk.l    30,0
  133. rows:
  134. dc.b    2
  135.