home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 4: Demo 1 / almathera_demo1.bin / sourcecode / dexion / 4th.s < prev    next >
Text File  |  1995-03-17  |  5KB  |  178 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. clr.l    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  #10,d3
  49. move.l  #300,d4
  50. move.l  #250,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  #0,d3
  57. move.l  #15,d4
  58. move.l  #300,d5
  59. jsr     -396(a6)
  60. sub.b    #$01,rows
  61. bne.s    exit
  62. move.b    #$9,rows
  63. lea    rastport,a1
  64. move.l    #320,d0
  65. move.l    #130,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,$000a,$0182,$aaaa
  90. dc.w    $00e0,$0006,$00e2,$0000
  91. dc.w    $3a01,$ff00,$0180,$0009
  92. dc.w    $4b01,$ff00,$0180,$0008
  93. dc.w    $5a01,$ff00,$0180,$0007
  94. dc.w    $6701,$ff00,$0180,$0006
  95. dc.w    $7201,$ff00,$0180,$0005
  96. dc.w    $7a01,$ff00,$0180,$0004
  97. dc.w    $8201,$ff00,$0180,$0003
  98. dc.w    $8601,$ff00,$0180,$0002
  99. dc.w    $8801,$ff00,$0182,$1000,$0180,$1100
  100. dc.w    $8901,$ff00,$0182,$1000,$0180,$2200
  101. dc.w    $8a01,$ff00,$0182,$1000,$0180,$3300
  102. dc.w    $8b01,$ff00,$0182,$000a,$0180,$4400
  103. dc.w    $8c01,$ff00,$0182,$1020,$0180,$5500
  104. dc.w    $8d01,$ff00,$0182,$0001,$0180,$6600
  105. dc.w    $8e01,$ff00,$0182,$0002,$0180,$7700
  106. dc.w    $8f01,$ff00,$0182,$0003,$0180,$8800
  107. dc.w    $9001,$ff00,$0182,$0004,$0180,$9900
  108. dc.w    $9101,$ff00,$0182,$0005,$0180,$aa00 ;
  109. dc.w    $9201,$ff00,$0182,$0006,$0180,$bb00 ;
  110. dc.w    $9301,$ff00,$0182,$0007,$0180,$cc00 ;
  111. dc.w    $9401,$ff00,$0182,$0008,$0180,$dd00 ;
  112. dc.w    $9501,$ff00,$0182,$0009,$0180,$dd00
  113. dc.w    $9601,$ff00,$0182,$000a,$0180,$dd00
  114. dc.w    $9701,$ff00,$0182,$000b,$0180,$cc00
  115. dc.w    $9801,$ff00,$0182,$000c,$0180,$bb00
  116. dc.w    $9901,$ff00,$0182,$000d,$0180,$aa00
  117. dc.w    $9a01,$ff00,$0182,$9900,$0180,$9900
  118. dc.w    $9b01,$ff00,$0182,$8800,$0180,$8800
  119. dc.w    $9c01,$ff00,$0182,$7700,$0180,$7700
  120. dc.w    $9d01,$ff00,$0182,$6600,$0180,$6600
  121. dc.w    $9e01,$ff00,$0182,$5500,$0180,$5500
  122. dc.w    $9f01,$ff00,$0182,$4400,$0180,$4400
  123. dc.w    $a001,$ff00,$0182,$3300,$0180,$3300
  124. dc.w    $a101,$ff00,$0182,$2200,$0180,$2200
  125. dc.w    $a201,$ff00,$0182,$1100,$0180,$1100
  126. dc.w    $a401,$ff00,$0182,$2200,$0180,$2200
  127. dc.w    $a601,$ff00,$0182,$3300,$0180,$3300
  128. dc.w    $aa01,$ff00,$0182,$4400,$0180,$4400
  129. dc.w    $b101,$ff00,$0182,$5500,$0180,$5500
  130. dc.w    $b901,$ff00,$0182,$6600,$0180,$6600
  131. dc.w    $c401,$ff00,$0180,$7700
  132. dc.w    $d301,$ff00,$0180,$8800
  133. dc.w    $e601,$ff00,$0180,$9900
  134. dc.w    $f701,$ff00,$0180,$aa00
  135. dc.w    $ffff,$bb00
  136. text:
  137. dc.b    "  TFC OF THE GREAT  4TH DIMENSION  PROUDLY "
  138. dc.b    "PRESENTS NEW STUFF!!   LET'S GET ON WITH "
  139. DC.B    "THE GREETINGS:    MEDITATION STOPPERS     H"
  140. DC.B    "AGAR OF THE CONNECTION     HOTLINE     TRAC"
  141. DC.B    "K 7 OF RAWHEAD     RISKY BUSINISS BOYS     "
  142. DC.B    "THUNDERBOLT CRACKING CREW      TRIAD     DE"
  143. DC.B    "ADLINE      THE HUNTER OF THE ZAPP      SCI"
  144. DC.B    "FF OF SCIENCE CRACKING TEAM (SCT)     THE A"
  145. DC.B    "MIGA FORCE      ACADEMY      E.C.S      THI"
  146. DC.B    "NK-MAN      THE MECHANIC     THE FLASH TEAM"
  147. DC.B    "     AND ALL OTHERS WE KNOW!!              " 
  148. DC.B    "FOR THE LATEST STUFF, CONTACT ME AT     4TH"
  149. DC.B    " DIMENSION,    KIRKEVEIEN 45,     8200 FAUS"
  150. DC.B    "KE,    NORWAY     OR PHONE: (NORWAY=47) 814"
  151. DC.B    "4845       IF YOU ARE GOING TO HAVE A COPY "
  152. DC.B    "PARTY, PHONE: NORWAY 8143019 AND ASK FOR AN"
  153. DC.B    "DERS!!!     OK, LOOK OUT FOR THE FINAL VER"
  154. DC.B    "SION OF OUR FIRST INTRO!!!  (THIS!!)       "
  155. DC.B    "    RESET THE MACHINE OR READ THE SCROLLTEX"
  156. DC.B    "T AGAIN!!               "
  157. end:
  158. even
  159. taller:
  160. dc.l    0
  161. oldclist:
  162. dc.l    0
  163. gfxbase:
  164. dc.l    0
  165. gfxname:
  166. dc.b    "graphics.library",0
  167. even
  168. bitmap:
  169. blk.w    4,0
  170. plane1:
  171. blk.l    20,0
  172. rastport:
  173. dc.l    0
  174. r_bitmap:
  175. blk.l    30,0
  176. rows:
  177. dc.b    2
  178.