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