home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 4: Demo 1 / almathera_demo1.bin / sourcecode / dexion / redsector.s < prev    next >
Text File  |  1995-03-17  |  5KB  |  240 lines
  1. ;org    $6000c
  2. ;load    $6000c
  3. beg:
  4.  
  5. ;---------------------------------------------------------------------
  6. ;--------------------                         ------------------------
  7. ;-------------------- HQC-BOOTBLOCKINTRO V3.1 ------------------------
  8. ;--------------------                         ------------------------
  9. ;-------------------- (C) by ACG and          ------------------------
  10. ;--------------------                         ------------------------
  11. ;--------------------     Sir-Prise of HQC    ------------------------
  12. ;--------------------                         ------------------------
  13. ;--------------------              in 1987    ------------------------
  14. ;--------------------                         ------------------------
  15. ;--------------------     (who else ???)      ------------------------
  16. ;--------------------                         ------------------------
  17. ;---------------------------------------------------------------------
  18.  
  19.  
  20.  
  21.  
  22. ; ----- graphics.library -----
  23. text=         -60
  24. setfont=     -66
  25. closefont=    -78
  26. move=         -240
  27. initbitmap=     -390
  28. initrastport=     -198
  29. clearscreen=    -48
  30. scrollraster=    -396
  31. setapen=    -342
  32. ; ----- exec.library     -----
  33. allocabs=    -204
  34. freemem=    -210
  35. openlibrary=     -408
  36. closelibrary=     -414
  37. forbid=     -132
  38. permit=     -138
  39. ; ----- diskfont.library -----
  40. openfont=     -30
  41. ; ----- dos.library        -----
  42. open=        -30
  43. close=        -36
  44. read=        -42
  45. examine=    -102
  46. ; ----- absolute address -----
  47. execbase=     $04
  48.  
  49. movem.l     d0-d7/a0-a6,-(a7)
  50. move.l        execbase,a6
  51. ;jsr        forbid(a6)
  52. lea        gfxname(pc),a1
  53. jsr        openlibrary(a6)
  54. move.l        d0,a6
  55. lea         $dff000,a0
  56. move.w    #$8100,$096(a0)
  57. MOVE.W    #$0006,$108(a0)
  58. MOVE.W    #$0006,$10a(a0)
  59. move.w    #$2c81,$08e(a0)
  60. move.w    #$f4c1,$090(a0)
  61. lea    $7a000,a0
  62. move.l    #$00e00005,(a0)+
  63. move.l  #$00e29000,(a0)+
  64. move.l  #$01001200,(a0)+
  65. move.l    #$01800000,(a0)+
  66. move.l    #$01820000,(a0)+
  67.  
  68. lea        $7a000,a0
  69. move.l        a0,50(a6)
  70. lea        $70200,a0
  71. move.w        #$01,d0
  72. move.w        #368,d1
  73. move.w        #220,d2
  74. jsr        initbitmap(a6)
  75. move.l        #$59000-414,$70208
  76. lea        $70000,a1
  77. jsr        initrastport(a6)
  78. move.l        #$70200,$70004
  79. jsr        clearscreen(a6)
  80. lea        $7a014,a0
  81. move.w        #175,d7
  82. move.l        #$2c09fffe,d5
  83. loop1:
  84. move.l        d5,d0
  85. move.w        #15,d6
  86. loop2:
  87. move.l        d0,(a0)+
  88. move.l        #$01800000,(a0)+
  89. add.l        #$0e0000,d0
  90. dbra        d6,loop2
  91. add.l        #$01000000,d5
  92. dbra        d7,loop1
  93. move.l        #$a,d7
  94. lea        taba(pc),a4
  95. tabaloop:
  96. move.l        (a4)+,(a0)+
  97. dbra        d7,tabaloop
  98. lea        data(pc),a5
  99. move.w        #35,d7
  100. drawloop:
  101. lea        $70000,a1
  102. clr.l        d0
  103. clr.l        d1
  104. clr.l        d2
  105. clr.l        d3
  106. move.b        (a5)+,d0
  107. add.w        #12,d0
  108. move.b        (a5)+,d1
  109. move.b        (a5)+,d2
  110. add.w        #12,d2
  111. move.b        (a5)+,d3
  112. jsr        -306(a6)
  113. dbra        d7,drawloop
  114. lea        coltab(pc),a0
  115. lea        coltab+80(pc),a1
  116. move.w        #20,d7
  117. loopacg:
  118. move.w        (a0)+,-(a1)
  119. dbra        d7,loopacg
  120. lea        oldirq(pc),a0
  121. move.l        $6c,2(a0)
  122. lea        newirq(pc),a0
  123. move.l        a0,$6c
  124.  
  125. ; ---- the new irq follows right on ----
  126. wait:
  127. ; ---- rolling thunder ----
  128. move.w        #21,d7
  129. lea        $7a01a,a0
  130. lea        coltab(pc),a5
  131. move.w        (a5),-8(a0)
  132. loop9:
  133. move.w        #$07,d4
  134. loop5:
  135. move.l        a5,a1
  136. move.w        #15,d6
  137. loop6:
  138. move.w        (a1)+,(a0)
  139. addq.l        #$08,a0
  140. dbra        d6,loop6
  141. dbra        d4,loop5
  142. addq.l        #$02,a5
  143. dbra        d7,loop9
  144. lea        coltab(pc),a0
  145. lea        coltab+2(pc),a1
  146. move.w        #38,d0
  147. move.w        (a0),d1
  148. loop3:
  149. move.w        (a1)+,(a0)+
  150. dbra        d0,loop3
  151. move.w        d1,-(a1)
  152. continue1:
  153. ; ---- mouse button, my master ???? ----
  154. notok:
  155. cmp.b        #$40,$dff006
  156. bls.s        notok
  157. btst        #6,$bfe001
  158. bne.s        wait
  159. ; ---- stop this great one ----
  160. lea        oldirq+2(pc),a0
  161. move.l        (a0),$6c
  162. ;jsr        permit(a6)
  163. lea        gfxname+4(pc),a1
  164. move.l        #" dos",(a1)
  165. movem.l        (a7)+,d0-d7/a0-a6
  166. lea        gfxname+5(pc),a1
  167. jsr        -96(a6)
  168. move.l        d0,a0
  169. move.l        22(a0),a0
  170. clr.l        d0
  171. rts
  172.  
  173. newirq:
  174. movem.l        d0-d7/a0-a6,-(sp)
  175. lea        $70000,a1
  176. move.w        #$01,d0
  177. clr.w        d1
  178. clr.w        d2
  179. move.w        #180+18,d3
  180. move.w        #351,d4
  181. move.w        #188+18,d5
  182. jsr        scrollraster(a6)
  183. lea        rows(pc),a0
  184. sub.b        #$01,(a0)
  185. bne.s        contiue1
  186. move.b        #9,(a0)
  187. lea        label(pc),a0
  188. eor.b        #$01,(a0)
  189. lea        $70000,a1
  190. move.w        #320,36(a1)
  191. move.w        #187+18,38(a1)
  192. lea        ptr(pc),a2
  193. addq.b        #$01,(a2)
  194. cmp.b        #184,(a2)
  195. bne.s        nogoon
  196. clr.b          (a2)
  197. nogoon:
  198. lea        scrollmsg(pc),a0
  199. add.w        -1(a2),a0
  200. move.l        #1,d0
  201. jsr        text(a6)
  202. contiue1:
  203. lea    $7a006,a1
  204. lea    label(pc),a0
  205. tst.b (a0)
  206. beq.s    isit
  207. add.w    #46,(a1)
  208. bra.s    notit
  209. isit:
  210. sub.w    #46,(a1)
  211. notit:
  212. movem.l        (sp)+,d0-d7/a0-a6
  213. oldirq:
  214. jmp    $ffffffff
  215.  
  216. gfxname:
  217. dc.b    "graphics.library",0
  218. ptr:
  219. dc.b    $ff
  220.  
  221. coltab:
  222. dc.w     $005,$006,$007,$008,$009,$00a,$00b,$00c,$00d,$00e,$00f
  223. dc.w     $50f,$60f,$70f,$80f,$90f,$a0f,$b0f,$c0f,$d0f,$e0f,$f0f
  224. taba:
  225. dc.l $dc09fffe,$00e2b058,$01800aaf,$de09fffe,$01820fff,$0180086f
  226. dc.l $f609fffe,$0180042f,$f809fffe,$01800000,
  227.  
  228. data:
  229. blk.b    144,0
  230. rows:
  231. dc.b    1
  232. label:
  233. dc.b    0
  234. scrollmsg:
  235. dc.b    "HQC-of HQC inc present the Game called -- Typhoon -- Special"
  236. dc.b    " Greetings to High Quality Crackings inc. 1987, HQC inc. 198"
  237. dc.b    "7, H.Q.C. 1987, HQC Germany HQC international inc. 87 and HQ"
  238. dc.b    "C   "
  239. b:
  240.