home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 4: Demo 1 / almathera_demo1.bin / sourcecode / dexion / 4th4.s < prev    next >
Text File  |  1995-03-17  |  10KB  |  345 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    #$2,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  #310,d4
  50. move.l  #130,d5
  51. jsr     -396(a6)
  52. lea     rastport,a1
  53. move.l  #0,d0
  54. move.l  #-2,d1
  55. move.l  #0,d2
  56. move.l  #10,d3
  57. move.l  #280,d4
  58. move.l  #130,d5
  59. jsr     -396(a6)
  60. lea     rastport,a1
  61. move.l  #0,d0
  62. move.l  #2,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  #-2,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  #2,d1
  79. move.l  #0,d2
  80. move.l  #10,d3
  81. move.l  #190,d4
  82. move.l  #130,d5
  83. jsr     -396(a6)
  84. lea     rastport,a1
  85. move.l  #0,d0
  86. move.l  #-2,d1
  87. move.l  #0,d2
  88. move.l  #10,d3
  89. move.l  #160,d4
  90. move.l  #130,d5
  91. jsr     -396(a6)
  92. lea     rastport,a1
  93. move.l  #0,d0
  94. move.l  #2,d1
  95. move.l  #0,d2
  96. move.l  #10,d3
  97. move.l  #130,d4
  98. move.l  #130,d5
  99. jsr     -396(a6)
  100. lea     rastport,a1
  101. move.l  #0,d0
  102. move.l  #-2,d1
  103. move.l  #0,d2
  104. move.l  #10,d3
  105. move.l  #100,d4
  106. move.l  #130,d5
  107. jsr     -396(a6)
  108. lea     rastport,a1
  109. move.l  #0,d0
  110. move.l  #2,d1
  111. move.l  #0,d2
  112. move.l  #10,d3
  113. move.l  #70,d4
  114. move.l  #130,d5
  115. jsr     -396(a6)
  116. lea     rastport,a1
  117. move.l  #0,d0
  118. move.l  #-2,d1
  119. move.l  #0,d2
  120. move.l  #10,d3
  121. move.l  #40,d4
  122. move.l  #130,d5
  123. jsr     -396(a6)
  124. lea     rastport,a1
  125. move.l  #0,d0
  126. move.l  #1,d1
  127. move.l  #0,d2
  128. move.l  #10,d3
  129. move.l  #13,d4
  130. move.l  #130,d5
  131. jsr     -396(a6)
  132.  
  133.  
  134.  
  135. sub.b    #$01,rows
  136. bne.s    exit
  137. move.b    #$8,rows
  138. lea    rastport,a1
  139. move.l    #320,d0
  140. move.l    #118,d1
  141. jsr    -240(a6)
  142. lea    rastport,a1
  143. move.l    taller,a0
  144. move.l    #$01,d0
  145. jsr    -60(a6)
  146. addq.l    #$01,taller
  147. cmp.l    #end,taller
  148. blt.s    exit
  149. move.l    #text,taller
  150. exit:
  151. movem.l    (sp)+,d0-d7/a0-a6
  152. oldirq:
  153. jmp    $00000000
  154. slut:
  155. move.w #$0001,$dff096
  156. move.l oldirq+2,$6c
  157. move.l gfxbase,a0
  158. move.l oldclist,50(a0)
  159. move.l $04,a6
  160. rts
  161. jsr    -414(a6)
  162.  
  163. newclist:
  164. dc.w    $008e,$2c81,$0090,$f4c1,$0092,$0038,$0094,$00d0
  165. dc.w    $0102,$0000,$0104,$0000,$0108,$0002,$010a,$0002
  166. dc.w    $0100,$1200,$0180,$0000,$0182,$aaaa
  167. dc.w    $00e0,$0006,$00e2,$0000
  168. dc.w    $5701,$ff00,$0182,$d040,$0180,$0001
  169. dc.w    $5801,$ff00,$0182,$d045,$0180,$0002
  170. dc.w    $5901,$ff00,$0182,$d050,$0180,$0003
  171. dc.w    $5a01,$ff00,$0182,$d055,$0180,$0004
  172. dc.w    $5b01,$ff00,$0182,$d060,$0180,$0005
  173. dc.w    $5c01,$ff00,$0182,$d065,$0180,$0006
  174. dc.w    $5d01,$ff00,$0182,$d070,$0180,$0007
  175. dc.w    $5e01,$ff00,$0182,$d070,$0180,$0008
  176. dc.w    $5f01,$ff00,$0182,$d075,$0180,$0009
  177. dc.w    $6001,$ff00,$0182,$d080,$0180,$000a
  178. dc.w    $6101,$ff00,$0182,$d085,$0180,$000b
  179. dc.w    $6201,$ff00,$0182,$d080,$0180,$000c
  180. dc.w    $6301,$ff00,$0182,$d075,$0180,$000b
  181. dc.w    $6401,$ff00,$0182,$d070,$0180,$000a
  182. dc.w    $6501,$ff00,$0182,$d065,$0180,$0009
  183. dc.w    $6601,$ff00,$0182,$d060,$0180,$0008
  184. dc.w    $6701,$ff00,$0182,$d055,$0180,$0007
  185. dc.w    $6801,$ff00,$0182,$d050,$0180,$0006
  186. dc.w    $6901,$ff00,$0182,$d045,$0180,$0005
  187. dc.w    $6a01,$ff00,$0182,$d040,$0180,$0004
  188. dc.w    $6b01,$ff00,$0182,$d035,$0180,$0003
  189. dc.w    $6c01,$ff00,$0182,$d030,$0180,$0002
  190. dc.w    $6d01,$ff00,$0182,$d025,$0180,$0001
  191. dc.w    $6e01,$ff00,$0182,$d020,$0180,$1100
  192. dc.w    $6f01,$ff00,$0182,$d025,$0180,$2200
  193. dc.w    $7001,$ff00,$0182,$d030,$0180,$3300
  194. dc.w    $7101,$ff00,$0182,$1035,$0180,$4400
  195. dc.w    $7201,$ff00,$0182,$1040,$0180,$5500
  196. dc.w    $7301,$ff00,$0182,$1045,$0180,$6600
  197. dc.w    $7401,$ff00,$0182,$1050,$0180,$7700
  198. dc.w    $7501,$ff00,$0182,$1055,$0180,$8800
  199. dc.w    $7601,$ff00,$0182,$1060,$0180,$9900
  200. dc.w    $7701,$ff00,$0182,$1065,$0180,$aa00
  201. dc.w    $7801,$ff00,$0182,$1070,$0180,$bb00
  202. dc.w    $7901,$ff00,$0182,$1075,$0180,$cc00
  203. dc.w    $7a01,$ff00,$0182,$1080,$0180,$dd00
  204. dc.w    $7b01,$ff00,$0182,$1085,$0180,$ee00
  205. dc.w    $7c01,$ff00,$0182,$1080,$0180,$ff00
  206. dc.w    $7d01,$ff00,$0182,$1070,$0180,$ee00
  207. dc.w    $7e01,$ff00,$0182,$1065,$0180,$dd00
  208. dc.w    $7f01,$ff00,$0182,$1060,$0180,$cc00
  209. dc.w    $8001,$ff00,$0182,$1055,$0180,$bb00
  210. dc.w    $8101,$ff00,$0182,$1050,$0180,$aa00
  211. dc.w    $8201,$ff00,$0182,$1045,$0180,$9900
  212. dc.w    $8301,$ff00,$0182,$1030,$0180,$8800
  213. dc.w    $8401,$ff00,$0182,$1025,$0180,$7700
  214. dc.w    $8501,$ff00,$0182,$1020,$0180,$6600
  215. dc.w    $8601,$ff00,$0182,$025,$0180,$5500
  216. dc.w    $8701,$ff00,$0182,$030,$0180,$4400
  217. dc.w    $8801,$ff00,$0182,$035,$0180,$3300
  218. dc.w    $8901,$ff00,$0182,$040,$0180,$2200
  219. dc.w    $8a01,$ff00,$0182,$33,$0180,$1100
  220. dc.w    $8b01,$ff00,$0182,$44,$0180,$2200
  221. dc.w    $8c01,$ff00,$0182,$55,$0180,$3300
  222. dc.w    $8d01,$ff00,$0182,$66,$0180,$4400
  223. dc.w    $8e01,$ff00,$0182,$77,$0180,$5500
  224. dc.w    $8f01,$ff00,$0182,$88,$0180,$6600
  225. dc.w    $9001,$ff00,$0182,$99,$0180,$7700
  226. dc.w    $9101,$ff00,$0182,$aa,$0180,$8800
  227. dc.w    $9201,$ff00,$0182,$bb,$0180,$9900
  228. dc.w    $9301,$ff00,$0182,$cc,$0180,$aa00
  229. dc.w    $9401,$ff00,$0182,$dd,$0180,$bb00
  230. dc.w    $9501,$ff00,$0182,$ee,$0180,$cc00
  231. dc.w    $9601,$ff00,$0182,$ff,$0180,$dd00
  232. dc.w    $9701,$ff00,$0182,$ee,$0180,$ee00
  233. dc.w    $9801,$ff00,$0182,$dd,$0180,$ff00
  234. dc.w    $9901,$ff00,$0182,$cc,$0180,$ee00
  235. dc.w    $9a01,$ff00,$0182,$bb,$0180,$dd00
  236. dc.w    $9b01,$ff00,$0182,$aa,$0180,$cc00
  237. dc.w    $9c01,$ff00,$0182,$99,$0180,$bb00
  238. dc.w    $9d01,$ff00,$0182,$88,$0180,$aa00
  239. dc.w    $9e01,$ff00,$0182,$77,$0180,$9900
  240. dc.w    $9f01,$ff00,$0182,$66,$0180,$8800
  241. dc.w    $a001,$ff00,$0182,$55,$0180,$7700
  242. dc.w    $a101,$ff00,$0182,$44,$0180,$6600
  243. dc.w    $a201,$ff00,$0182,$33,$0180,$5500
  244. dc.w    $a301,$ff00,$0182,$44,$0180,$4400
  245. dc.w    $a401,$ff00,$0182,$55,$0180,$3300
  246. dc.w    $a501,$ff00,$0182,$66,$0180,$2200
  247. dc.w    $a601,$ff00,$0182,$77,$0180,$1100
  248. dc.w    $a701,$ff00,$0182,$1070,$0180,$2200
  249. dc.w    $a801,$ff00,$0182,$1075,$0180,$3300
  250. dc.w    $a901,$ff00,$0182,$1080,$0180,$4400
  251. dc.w    $aa01,$ff00,$0182,$1085,$0180,$5500
  252. dc.w    $ab01,$ff00,$0182,$1080,$0180,$6600
  253. dc.w    $ac01,$ff00,$0182,$1075,$0180,$7700
  254. dc.w    $ad01,$ff00,$0182,$1070,$0180,$8800
  255. dc.w    $ae01,$ff00,$0182,$1065,$0180,$9900
  256. dc.w    $af01,$ff00,$0182,$1060,$0180,$aa00
  257. dc.w    $b001,$ff00,$0182,$1055,$0180,$bb00
  258. dc.w    $b101,$ff00,$0182,$1050,$0180,$cc00
  259. dc.w    $b201,$ff00,$0182,$1045,$0180,$dd00
  260. dc.w    $b301,$ff00,$0182,$1040,$0180,$ee00
  261. dc.w    $b401,$ff00,$0182,$1035,$0180,$ff00
  262. dc.w    $b501,$ff00,$0182,$1030,$0180,$ee00
  263. dc.w    $b601,$ff00,$0182,$1025,$0180,$dd00
  264. dc.w    $b701,$ff00,$0182,$1020,$0180,$cc00
  265. dc.w    $b801,$ff00,$0182,$1025,$0180,$bb00
  266. dc.w    $b901,$ff00,$0182,$1030,$0180,$aa00
  267. dc.w    $ba01,$ff00,$0182,$1035,$0180,$9900
  268. dc.w    $bb01,$ff00,$0182,$1040,$0180,$8800
  269. dc.w    $bc01,$ff00,$0182,$1045,$0180,$7700
  270. dc.w    $bd01,$ff00,$0182,$1050,$0180,$6600
  271. dc.w    $be01,$ff00,$0182,$1055,$0180,$5500
  272. dc.w    $bf01,$ff00,$0182,$1060,$0180,$4400
  273. dc.w    $c001,$ff00,$0182,$1065,$0180,$3300
  274. dc.w    $c101,$ff00,$0182,$1070,$0180,$2200
  275. dc.w    $c201,$ff00,$0182,$1075,$0180,$1100
  276. dc.w    $c301,$ff00,$0182,$1080,$0180,$0001
  277. dc.w    $c401,$ff00,$0182,$1085,$0180,$0002
  278. dc.w    $c501,$ff00,$0182,$1080,$0180,$0003
  279. dc.w    $c601,$ff00,$0182,$1075,$0180,$0004
  280. dc.w    $c701,$ff00,$0182,$1070,$0180,$0005
  281. dc.w    $c801,$ff00,$0182,$1065,$0180,$0006
  282. dc.w    $c901,$ff00,$0182,$1060,$0180,$0007
  283. dc.w    $ca01,$ff00,$0182,$1055,$0180,$0008
  284. dc.w    $cb01,$ff00,$0182,$1050,$0180,$0009
  285. dc.w    $cc01,$ff00,$0182,$1045,$0180,$000a
  286. dc.w    $cd01,$ff00,$0182,$1040,$0180,$000b
  287. dc.w    $ce01,$ff00,$0182,$1035,$0180,$000c
  288. dc.w    $cf01,$ff00,$0182,$1030,$0180,$000b
  289. dc.w    $d001,$ff00,$0182,$1025,$0180,$000a
  290. dc.w    $d101,$ff00,$0182,$1020,$0180,$0009
  291. dc.w    $d201,$ff00,$0182,$1025,$0180,$0008
  292. dc.w    $d301,$ff00,$0182,$1030,$0180,$0007
  293. dc.w    $d401,$ff00,$0182,$1035,$0180,$0006
  294. dc.w    $d501,$ff00,$0182,$1040,$0180,$0005
  295. dc.w    $d601,$ff00,$0182,$1045,$0180,$0004
  296. dc.w    $d701,$ff00,$0182,$1050,$0180,$0003
  297. dc.w    $d801,$ff00,$0182,$1055,$0180,$0002
  298. dc.w    $d901,$ff00,$0182,$1060,$0180,$0001
  299. dc.w    $ffff,$ff00,$0182,$1055,$0180,$0000
  300. text:
  301. DC.B    "THE 4TH DIMENSION BY T.F.C PROUDLY PRESENTS "
  302. DC.B    "NEW, RED HOT STUFF!!      THIS IS THE 3RD IN"
  303. DC.B    "TRO I HAVE WRITTEN!!  THEY ARE JUST GETTING "
  304. DC.B    "BETTER EACH TIME I'M TURNING "
  305. DC.B    "ON THE SEKA-ASSEMBLER!!   THE SCROLL IS SHAK"
  306. DC.B    "ING A BIT, BUT WHO CARES!!       NOW THE GRE"
  307. DC.B    "ETINGS.     HI MEDITATION STOPPERS (AMIGATOR"
  308. DC.B    ")     RAWHEAD (TRACK 7)     THE CONNECTION ("
  309. DC.B    "HAGAR)      TETRAGON       THE ZAPP (THR)   "
  310. DC.B    "  RBB      TCC       SCT (SCIFF)  "
  311. DC.B    "    BACAINOS       TRIAD       ACADEMY      "
  312. DC.B    "THE MECHANIC       MIO SOFT (WIZ)      HEAVY"
  313. DC.B    " METAL (BINK)      KCC (BOOGIE)      GARBAGE"
  314. DC.B    " IND.       E.C.S      THINK-MAN       TFT  "
  315. DC.B    "    DEADLINE       MBB        THE NORWEGAN L"
  316. DC.B    "AW BREAKER    AND ALL OTHERS WE KNOW!!      "
  317. DC.B    "IF YOU WANT TO HAVE THE LATEST AMIGA OR 64 S"
  318. DC.B    "TUFF, THEN WRITE TO:  4TH DIMENSION,     KIR"
  319. DC.B    "KEVEIEN 45,      8200 FAUSKE,       NORWAY  "
  320. DC.B    "      OR PHONE: (NORWAY=47) (0)81 44845     "
  321. DC.B    "SEND YOUR NEWEST STUFF!!             SEE YOU"
  322. DC.B    " LATER!!            © TFC OF 4TH DIMENSION  "
  323. DC.B    "                   "
  324. end:
  325. even
  326. taller:
  327. dc.l    0
  328. oldclist:
  329. dc.l    0
  330. gfxbase:
  331. dc.l    0
  332. gfxname:
  333. dc.b    "graphics.library",0
  334. even
  335. bitmap:
  336. blk.w    4,0
  337. plane1:
  338. blk.l    20,0
  339. rastport:
  340. dc.l    0
  341. r_bitmap:
  342. blk.l    30,0
  343. rows:
  344. dc.b    2
  345.