home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 4: Demo 1 / almathera_demo1.bin / sourcecode / dexion / 4th3.s < prev    next >
Text File  |  1995-03-17  |  8KB  |  280 lines
  1. s:
  2. move.l        #$50000,$dff0a0    
  3. move.w        #36000,$dff0a4 
  4. move.w        #300,$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    #$1,d0
  38. move.l  #0,d1
  39. move.l  #0,d2
  40. move.l    #10,d3
  41. move.l    #336,d4
  42. move.l    #130,d5
  43. jsr    -396(a6)
  44. lea     rastport,a1
  45. move.l  #$0,d0
  46. move.l  #1,d1
  47. move.l  #0,d2
  48. move.l  #0,d3
  49. move.l  #300,d4
  50. move.l  #130,d5
  51. jsr     -396(a6)
  52. lea     rastport,a1
  53. move.l  #0,d0
  54. move.l  #-1,d1
  55. move.l  #0,d2
  56. move.l  #10,d3
  57. move.l  #276,d4
  58. move.l  #130,d5
  59. jsr     -396(a6)
  60. lea     rastport,a1
  61. move.l  #0,d0
  62. move.l  #-1,d1
  63. move.l  #0,d2
  64. move.l  #10,d3
  65. move.l  #250,d4
  66. move.l  #130,d5
  67. jsr     -396(a6)
  68. lea     rastport,a1
  69. move.l  #0,d0
  70. move.l  #1,d1
  71. move.l  #0,d2
  72. move.l  #10,d3
  73. move.l  #220,d4
  74. move.l  #130,d5
  75. jsr     -396(a6)
  76. lea     rastport,a1
  77. move.l  #0,d0
  78. move.l  #1,d1
  79. move.l  #0,d2
  80. move.l  #10,d3
  81. move.l  #100,d4
  82. move.l  #130,d5
  83. jsr     -396(a6)
  84. lea     rastport,a1
  85. move.l  #0,d0
  86. move.l  #-1,d1
  87. move.l  #0,d2
  88. move.l  #10,d3
  89. move.l  #70,d4
  90. move.l  #130,d5
  91. jsr     -396(a6)
  92. lea     rastport,a1
  93. move.l  #0,d0
  94. move.l  #-1,d1
  95. move.l  #0,d2
  96. move.l  #10,d3
  97. move.l  #45,d4
  98. move.l  #130,d5
  99. jsr     -396(a6)
  100. lea     rastport,a1
  101. move.l  #0,d0
  102. move.l  #1,d1
  103. move.l  #0,d2
  104. move.l  #10,d3
  105. move.l  #20,d4
  106. move.l  #130,d5
  107. jsr     -396(a6)
  108. sub.b    #$01,rows
  109. bne.s    exit
  110. move.b    #$8,rows
  111. lea    rastport,a1
  112. move.l    #320,d0
  113. move.l    #108,d1
  114. jsr    -240(a6)
  115. lea    rastport,a1
  116. move.l    taller,a0
  117. move.l    #$01,d0
  118. jsr    -60(a6)
  119. addq.l    #$01,taller
  120. cmp.l    #end,taller
  121. blt.s    exit
  122. move.l    #text,taller
  123. exit:
  124. movem.l    (sp)+,d0-d7/a0-a6
  125. oldirq:
  126. jmp    $00000000
  127. slut:
  128. move.w #$0001,$dff096
  129. move.l oldirq+2,$6c
  130. move.l gfxbase,a0
  131. move.l oldclist,50(a0)
  132. move.l $04,a6
  133. jmp -414(a6)
  134. newclist:
  135. dc.w    $008e,$2c81,$0090,$f4c1,$0092,$0038,$0094,$00d0
  136. dc.w    $0102,$0000,$0104,$0000,$0108,$0002,$010a,$0002
  137. dc.w    $0100,$1200,$0180,$1100,$0182,$aaaa
  138. dc.w    $00e0,$0006,$00e2,$0000
  139. dc.w    $6101,$ff00,$0182,$d085
  140. dc.w    $6201,$ff00,$0182,$d080
  141. dc.w    $6301,$ff00,$0182,$d075
  142. dc.w    $6401,$ff00,$0182,$d070
  143. dc.w    $6501,$ff00,$0182,$d065
  144. dc.w    $6601,$ff00,$0182,$d060
  145. dc.w    $6701,$ff00,$0182,$d055
  146. dc.w    $6801,$ff00,$0182,$d050
  147. dc.w    $6901,$ff00,$0182,$d045
  148. dc.w    $6a01,$ff00,$0182,$d040
  149. dc.w    $6b01,$ff00,$0182,$d035
  150. dc.w    $6c01,$ff00,$0182,$d030
  151. dc.w    $6d01,$ff00,$0182,$d025
  152. dc.w    $6e01,$ff00,$0182,$d020
  153. dc.w    $6f01,$ff00,$0182,$d025,$0180,$2200
  154. dc.w    $7001,$ff00,$0182,$d030,$0180,$3300
  155. dc.w    $7101,$ff00,$0182,$1035,$0180,$4400
  156. dc.w    $7201,$ff00,$0182,$1040,$0180,$5500
  157. dc.w    $7301,$ff00,$0182,$1045,$0180,$6600
  158. dc.w    $7401,$ff00,$0182,$1050,$0180,$7700
  159. dc.w    $7501,$ff00,$0182,$1055,$0180,$8800
  160. dc.w    $7601,$ff00,$0182,$1060,$0180,$9900
  161. dc.w    $7701,$ff00,$0182,$1065,$0180,$aa00
  162. dc.w    $7801,$ff00,$0182,$1070,$0180,$bb00
  163. dc.w    $7901,$ff00,$0182,$1075,$0180,$cc00
  164. dc.w    $7a01,$ff00,$0182,$1080,$0180,$dd00
  165. dc.w    $7b01,$ff00,$0182,$1085,$0180,$ee00
  166. dc.w    $7c01,$ff00,$0182,$1080,$0180,$ff00
  167. dc.w    $7d01,$ff00,$0182,$1070,$0180,$ee00
  168. dc.w    $7e01,$ff00,$0182,$1065,$0180,$dd00
  169. dc.w    $7f01,$ff00,$0182,$1060,$0180,$cc00
  170. dc.w    $8001,$ff00,$0182,$1055,$0180,$bb00
  171. dc.w    $8101,$ff00,$0182,$1050,$0180,$aa00
  172. dc.w    $8201,$ff00,$0182,$1045,$0180,$9900
  173. dc.w    $8301,$ff00,$0182,$1030,$0180,$8800
  174. dc.w    $8401,$ff00,$0182,$1025,$0180,$7700
  175. dc.w    $8501,$ff00,$0182,$1020,$0180,$6600
  176. dc.w    $8601,$ff00,$0182,$1025,$0180,$5500
  177. dc.w    $8701,$ff00,$0182,$1030,$0180,$4400
  178. dc.w    $8801,$ff00,$0182,$1035,$0180,$3300
  179. dc.w    $8901,$ff00,$0182,$1040,$0180,$2200
  180. dc.w    $8a01,$ff00,$0182,$1045,$0180,$3300
  181. dc.w    $8b01,$ff00,$0182,$1050,$0180,$4400
  182. dc.w    $8c01,$ff00,$0182,$1065,$0180,$5500
  183. dc.w    $8d01,$ff00,$0182,$1070,$0180,$6600
  184. dc.w    $8e01,$ff00,$0182,$1075,$0180,$7700
  185. dc.w    $8f01,$ff00,$0182,$1080,$0180,$8800
  186. dc.w    $9001,$ff00,$0182,$1085,$0180,$9900
  187. dc.w    $9101,$ff00,$0182,$1080,$0180,$aa00
  188. dc.w    $9201,$ff00,$0182,$1075,$0180,$bb00
  189. dc.w    $9301,$ff00,$0182,$1070,$0180,$cc00
  190. dc.w    $9401,$ff00,$0182,$1065,$0180,$dd00
  191. dc.w    $9501,$ff00,$0182,$1060,$0180,$dd00
  192. dc.w    $9601,$ff00,$0182,$1055,$0180,$dd00
  193. dc.w    $9701,$ff00,$0182,$1050,$0180,$cc00
  194. dc.w    $9801,$ff00,$0182,$1045,$0180,$bb00
  195. dc.w    $9901,$ff00,$0182,$1040,$0180,$aa00
  196. dc.w    $9a01,$ff00,$0182,$1035,$0180,$9900
  197. dc.w    $9b01,$ff00,$0182,$1030,$0180,$8800
  198. dc.w    $9c01,$ff00,$0182,$1025,$0180,$7700
  199. dc.w    $9d01,$ff00,$0182,$1020,$0180,$6600
  200. dc.w    $9e01,$ff00,$0182,$1025,$0180,$5500
  201. dc.w    $9f01,$ff00,$0182,$1030,$0180,$4400
  202. dc.w    $a001,$ff00,$0182,$1035,$0180,$3300
  203. dc.w    $a101,$ff00,$0182,$1040,$0180,$2200
  204. dc.w    $a201,$ff00,$0182,$1045,$0180,$1100
  205. dc.w    $a301,$ff00,$0182,$1050,$0180,$2200
  206. dc.w    $a401,$ff00,$0182,$1055,$0180,$3300
  207. dc.w    $a501,$ff00,$0182,$1060,$0180,$4400
  208. dc.w    $a601,$ff00,$0182,$1065,$0180,$5500
  209. dc.w    $a701,$ff00,$0182,$1070,$0180,$6600
  210. dc.w    $a801,$ff00,$0182,$1075,$0180,$7700
  211. dc.w    $a901,$ff00,$0182,$1080,$0180,$8800
  212. dc.w    $aa01,$ff00,$0182,$1085,$0180,$9900
  213. dc.w    $ab01,$ff00,$0182,$1080,$0180,$aa00
  214. dc.w    $ac01,$ff00,$0182,$1075,$0180,$bb00
  215. dc.w    $ad01,$ff00,$0182,$1070,$0180,$cc00
  216. dc.w    $ae01,$ff00,$0182,$1065,$0180,$dd00
  217. dc.w    $af01,$ff00,$0182,$1060,$0180,$ee00
  218. dc.w    $b001,$ff00,$0182,$1055,$0180,$ff00
  219. dc.w    $b101,$ff00,$0182,$1050,$0180,$ee00
  220. dc.w    $b201,$ff00,$0182,$1045,$0180,$dd00
  221. dc.w    $b301,$ff00,$0182,$1040,$0180,$cc00
  222. dc.w    $b401,$ff00,$0182,$1035,$0180,$bb00
  223. dc.w    $b501,$ff00,$0182,$1030,$0180,$aa00
  224. dc.w    $b601,$ff00,$0182,$1025,$0180,$9900
  225. dc.w    $b701,$ff00,$0182,$1020,$0180,$8800
  226. dc.w    $b801,$ff00,$0182,$1025,$0180,$7700
  227. dc.w    $b901,$ff00,$0182,$1030,$0180,$6600
  228. dc.w    $ba01,$ff00,$0182,$1035,$0180,$5500
  229. dc.w    $bb01,$ff00,$0182,$1040,$0180,$4400
  230. dc.w    $bc01,$ff00,$0182,$1045,$0180,$3300
  231. dc.w    $bd01,$ff00,$0182,$1050,$0180,$2200
  232. dc.w    $be01,$ff00,$0182,$1055,$0180,$1100
  233. dc.w    $ffff,$ff00,$0182,$1055,$0180,$0000
  234. text:
  235. dc.b    "THE FUTURE CRACKER (TFC) OF 4TH DIMENSION IN "        
  236. dc.b    "1988 PRESENTS NEW STUFF!     THIS TIME, THE G"
  237. DC.B    "REETINGS GOES TO M.E.S, HOTLINE, TRACK 7, THE "
  238. DC.B    "CONNECTION (HAGAR), RBB, THUNDERBOLT CRACKING CREW, "
  239. DC.B    "TRIAD, THE HUNTER OF ZAPP, ACADEMY, SCIFF OF "
  240. DC.B    "SCT, BACAINOS, DEADLINE, RAWHEAD, THINK-MAN, "
  241. DC.B    "E.C.S, WIZ OF MIO SOFT, HEAVY METAL (BINK), M"
  242. DC.B    "R. CHIP & <-RAWEN, TFT (NOT FOR HOT STUFF) AND ALL O"
  243. DC.b    "THERS WE KNOW!   IF YOU ARE ONE OF OUR CONTAC"
  244. DC.B    "TS AND IF YOU CAN`T SEE YOURSELF ON THE GREET"
  245. DC.B    "ING LIST, THEN YOU BETTER START SENDING BETTE"
  246. DC.B    "R STUFF, REAL FAST!!    IF YOU WANT TO HAVE T"
  247. DC.B    "HE LATEST STUFF (AMIGA), THEN CONTACT ME AT: "
  248. DC.B    "4TH DIMENSION (TFC), KIRKEVEIEN 45, 8200 FAUS"
  249. DC.B    "KE, NORWAY.    TEL:NORWAY (47) + 081 44845   "
  250. DC.B    "  FOR THE LATES 64 STUFF, JUST CONTACT ME AND"
  251. DC.B    " I`LL GIVE THE LETTER TO THE 64 GUYS!!       "
  252. DC.B    "  THIS IS THE FIRST REAL THING I HAVE DONE AL"
  253. DC.B    "ONE IN 68000 ON AMIGA, SO JUST WAIT UNTIL I H"
  254. DC.B    "HAVE READ SOME MORE BOOKS ABOUT 68000!       "
  255. DC.B    "    KILL LEFT MOUSE BUTTON TO GET ON!    "
  256. DC.B    "                                "
  257.  
  258.  
  259. end:
  260. even
  261. taller:
  262. dc.l    0
  263. oldclist:
  264. dc.l    0
  265. gfxbase:
  266. dc.l    0
  267. gfxname:
  268. dc.b    "graphics.library",0
  269. even
  270. bitmap:
  271. blk.w    4,0
  272. plane1:
  273. blk.l    20,0
  274. rastport:
  275. dc.l    0
  276. r_bitmap:
  277. blk.l    30,0
  278. rows:
  279. dc.b    2
  280.