home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 4: Demo 1 / almathera_demo1.bin / sourcecode / dexion / 4th_color.s < prev    next >
Text File  |  1995-03-17  |  5KB  |  221 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.  
  36. move.b  #$80,lab1+3
  37. lea     tabel,a0
  38.  
  39. s1:
  40. jmp     s9
  41.  
  42. lab1:   
  43. cmp.b   #$80,$dff006
  44. bne     s1
  45. s2:
  46. move.w  farve,$dff180
  47. add.b   #1,lab1+3
  48. move.w  (a0)+,farve
  49. cmp.l   #endtab,a0
  50. bne     s1
  51. cmp.b   #$01,tjekk
  52. beq     spe2
  53. spe1:
  54. add.b   #1,s+3
  55. cmp.b   #$e0,s+3
  56. bne     newirq
  57. move.b  #$01,tjekk
  58. bra     newirq
  59. spe2:
  60. add.b   #$50,s+3
  61. bne     newirq
  62. move.b  #$00,tjekk
  63. bra     newirq
  64.  
  65. s9:
  66. move.l    gfxbase,a6
  67. lea    rastport,a1
  68. move.l    #$01,d0
  69. move.l  #1,d1
  70. clr.l    d2
  71. move.l    #10,d3
  72. move.l    #336,d4
  73. move.l    #130,d5
  74. jsr    -396(a6)
  75. lea     rastport,a1
  76. move.l  #$0,d0
  77. move.l  #-1,d1
  78. move.l  #0,d2
  79. move.l  #10,d3
  80. move.l  #300,d4
  81. move.l  #250,d5
  82. jsr     -396(a6)  
  83. lea     rastport,a1
  84. move.l  #$0,d0
  85. move.l  #-1,d1
  86. move.l  #0,d2
  87. move.l  #0,d3
  88. move.l  #15,d4
  89. move.l  #300,d5
  90. jsr     -396(a6)
  91. sub.b    #$01,rows
  92. bne.s    exit
  93. move.b    #$9,rows
  94. lea    rastport,a1
  95. move.l    #320,d0
  96. move.l    #130,d1
  97. jsr    -240(a6)
  98. lea    rastport,a1
  99. move.l    taller,a0
  100. move.l    #$01,d0
  101. jsr    -60(a6)
  102. addq.l    #$01,taller
  103. cmp.l    #end,taller
  104. blt.s    exit
  105. move.l    #text,taller
  106. exit:
  107. movem.l    (sp)+,d0-d7/a0-a6
  108. oldirq:
  109. jmp    $00000000
  110. slut:
  111. move.w #$0001,$dff096
  112. move.l oldirq+2,$6c
  113. move.l gfxbase,a0
  114. move.l oldclist,50(a0)
  115. move.l $04,a6
  116. jmp -414(a6)
  117. newclist:
  118. dc.w    $008e,$2c81,$0090,$f4c1,$0092,$0038,$0094,$00d0
  119. dc.w    $0102,$0000,$0104,$0000,$0108,$0002,$010a,$0002
  120. dc.w    $0100,$1200,$0180,$000a,$0182,$aaaa
  121. dc.w    $00e0,$0006,$00e2,$0000
  122. dc.w    $3a01,$ff00,$0180,$0009
  123. dc.w    $4b01,$ff00,$0180,$0008
  124. dc.w    $5a01,$ff00,$0180,$0007
  125. dc.w    $6701,$ff00,$0180,$0006
  126. dc.w    $7201,$ff00,$0180,$0005
  127. dc.w    $7a01,$ff00,$0180,$0004
  128. dc.w    $8201,$ff00,$0180,$0003
  129. dc.w    $8601,$ff00,$0180,$0002
  130. dc.w    $8801,$ff00,$0182,$1000,$0180,$1100
  131. dc.w    $8901,$ff00,$0182,$1000,$0180,$2200
  132. dc.w    $8a01,$ff00,$0182,$1000,$0180,$3300
  133. dc.w    $8b01,$ff00,$0182,$000a,$0180,$4400
  134. dc.w    $8c01,$ff00,$0182,$1020,$0180,$5500
  135. dc.w    $8d01,$ff00,$0182,$0001,$0180,$6600
  136. dc.w    $8e01,$ff00,$0182,$0002,$0180,$7700
  137. dc.w    $8f01,$ff00,$0182,$0003,$0180,$8800
  138. dc.w    $9001,$ff00,$0182,$0004,$0180,$9900
  139. dc.w    $9101,$ff00,$0182,$0005,$0180,$aa00 ;
  140. dc.w    $9201,$ff00,$0182,$0006,$0180,$bb00 ;
  141. dc.w    $9301,$ff00,$0182,$0007,$0180,$cc00 ;
  142. dc.w    $9401,$ff00,$0182,$0008,$0180,$dd00 ;
  143. dc.w    $9501,$ff00,$0182,$0009,$0180,$dd00
  144. dc.w    $9601,$ff00,$0182,$000a,$0180,$dd00
  145. dc.w    $9701,$ff00,$0182,$000b,$0180,$cc00
  146. dc.w    $9801,$ff00,$0182,$000c,$0180,$bb00
  147. dc.w    $9901,$ff00,$0182,$000d,$0180,$aa00
  148. dc.w    $9a01,$ff00,$0182,$9900,$0180,$9900
  149. dc.w    $9b01,$ff00,$0182,$8800,$0180,$8800
  150. dc.w    $9c01,$ff00,$0182,$7700,$0180,$7700
  151. dc.w    $9d01,$ff00,$0182,$6600,$0180,$6600
  152. dc.w    $9e01,$ff00,$0182,$5500,$0180,$5500
  153. dc.w    $9f01,$ff00,$0182,$4400,$0180,$4400
  154. dc.w    $a001,$ff00,$0182,$3300,$0180,$3300
  155. dc.w    $a101,$ff00,$0182,$2200,$0180,$2200
  156. dc.w    $a201,$ff00,$0182,$1100,$0180,$1100
  157. dc.w    $a401,$ff00,$0182,$2200,$0180,$2200
  158. dc.w    $a601,$ff00,$0182,$3300,$0180,$3300
  159. dc.w    $aa01,$ff00,$0182,$4400,$0180,$4400
  160. dc.w    $b101,$ff00,$0182,$5500,$0180,$5500
  161. dc.w    $b901,$ff00,$0182,$6600,$0180,$6600
  162. dc.w    $c401,$ff00,$0180,$7700
  163. dc.w    $d301,$ff00,$0180,$8800
  164. dc.w    $e601,$ff00,$0180,$9900
  165. dc.w    $f701,$ff00,$0180,$aa00
  166. dc.w    $ffff,$bb00
  167. text:
  168. dc.b    "  TFC OF THE GREAT  4TH DIMENSION  PROUDLY "
  169. dc.b    "PRESENTS NEW STUFF!!   LET'S GET ON WITH "
  170. DC.B    "THE GREETINGS:    MEDITATION STOPPERS     H"
  171. DC.B    "AGAR OF THE CONNECTION     HOTLINE     TRAC"
  172. DC.B    "K 7 OF RAWHEAD     RISKY BUSINISS BOYS     "
  173. DC.B    "THUNDERBOLT CRACKING CREW      TRIAD     DE"
  174. DC.B    "ADLINE      THE HUNTER OF THE ZAPP      SCI"
  175. DC.B    "FF OF SCIENCE CRACKING TEAM (SCT)     THE A"
  176. DC.B    "MIGA FORCE      ACADEMY      E.C.S      THI"
  177. DC.B    "NK-MAN      THE MECHANIC     THE FLASH TEAM"
  178. DC.B    "     AND ALL OTHERS WE KNOW!!              " 
  179. DC.B    "FOR THE LATEST STUFF, CONTACT ME AT     4TH"
  180. DC.B    " DIMENSION,    KIRKEVEIEN 45,     8200 FAUS"
  181. DC.B    "KE,    NORWAY     OR PHONE: (NORWAY=47) 814"
  182. DC.B    "4845       IF YOU ARE GOING TO HAVE A COPY "
  183. DC.B    "PARTY, PHONE: NORWAY 8143019 AND ASK FOR AN"
  184. DC.B    "DERS!!!     OK, LOOK OUT FOR THE FINAL VER"
  185. DC.B    "SION OF OUR FIRST INTRO!!!  (THIS!!)       "
  186. DC.B    "    RESET THE MACHINE OR READ THE SCROLLTEX"
  187. DC.B    "T AGAIN!!               "
  188. end:
  189. even
  190. taller:
  191. dc.l    0
  192. oldclist:
  193. dc.l    0
  194. gfxbase:
  195. dc.l    0
  196. gfxname:
  197. dc.b    "graphics.library",0
  198. even
  199. bitmap:
  200. blk.w    4,0
  201. plane1:
  202. blk.l    20,0
  203. rastport:
  204. dc.l    0
  205. r_bitmap:
  206. blk.l    30,0
  207. rows:
  208. dc.b    2
  209.  
  210. tabel:
  211. dc.b  $111,$222,$333,$444,$555,$666,$777,$888,$999,$aaa,$bbb
  212. dc.b  $aaa,$999,$888,$777,$666,$555,$444,$333,$222,$111
  213. endtab:
  214. even
  215. farve:
  216. dc.w  $0
  217. even
  218. tjekk:
  219. dc.b  $00
  220. even
  221.