home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 4: Demo 1 / almathera_demo1.bin / sourcecode / dexion / 4th1.s < prev    next >
Text File  |  1995-03-17  |  3KB  |  161 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    #256,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. move.l  #$646b0,a0
  31. move.w  $dff012,d1
  32. l1: cmpi.b  #$ff,$dff006
  33. bne     l1
  34. move.l  (a0)+,$64500
  35. move.l  20(a0),$64548
  36. move.l  40(a0),$64590
  37. move.l  60(a0),$645d8
  38. move.l  80(a0),$64620
  39. move.l  100(a0),$64668
  40. cmp.w   $dff012,d1
  41. bne     end1
  42. cmpi.l  #$696b0,a0
  43. beq     wait
  44. l2:cmpi.b  #$00,$dff006
  45. bne     l2
  46. jmp    l1
  47. end1:
  48. jmp     slut
  49. newirq:
  50. movem.l    d0-d7/a0-a6,-(sp)
  51. move.l    gfxbase,a6
  52. lea    rastport,a1
  53. move.l    #0,d0
  54. move.l  #1,d1
  55. move.l  #0,d2
  56. move.l    #$b0,d3
  57. move.l    #336,d4
  58. move.l    #200,d5
  59. jsr    -396(a6)
  60. lea     rastport,a1
  61. move.l  #1,d0
  62. clr.l   d1
  63. clr.l   d2
  64. move.l  #0,d3
  65. move.l  #9,d4
  66. move.l  #30,d5
  67. jsr     -396(a6)
  68. lea     rastport,a1
  69. move.l  #2,d0
  70. clr.l   d1
  71. move.l  #8,d2
  72. move.l  #0,d3
  73. move.l  #310,d4
  74. move.l  #30,d5
  75. jsr     -396(a6)
  76. lea     rastport,a1
  77. move.l  #1,d0
  78. clr.l   d1
  79. move.l  #310,d2
  80. move.l  #0,d3
  81. move.l  #336,d4
  82. move.l  #30,d5
  83. jsr     -396(a6)
  84. sub.b   #1,rows
  85. bne.s    exit
  86. move.b    #8,rows
  87. lea    rastport,a1
  88. move.l    #320,d0
  89. move.l    #13,d1
  90. jsr    -240(a6)
  91. lea    rastport,a1
  92. move.l    taller,a0
  93. move.l    #$01,d0
  94. jsr    -60(a6)
  95. addq.l    #$01,taller
  96. cmp.l    #end,taller
  97. blt.s    exit
  98. move.l    #text,taller
  99. exit:
  100. movem.l    (sp)+,d0-d7/a0-a6
  101. oldirq:
  102. jmp    $00000000
  103. slut:
  104. move.w #$0001,$dff096
  105. move.l oldirq+2,$6c
  106. move.l gfxbase,a0
  107. move.l oldclist,50(a0)
  108. move.l $04,a6
  109. jmp -414(a6)
  110. newclist:
  111. dc.w    $008e,$2c81,$0090,$f4c1,$0092,$0038,$0094,$00d0
  112. dc.w    $0102,$0000,$0104,$0000,$0108,$0002,$010a,$0002
  113. dc.w    $0100,$1200,$0180,$0000,$0182,$0fff
  114. dc.w    $00e0,$0006,$00e2,$0000
  115. dc.w    $ffff,$fffe
  116. text:
  117. dc.b    "THE FUTURE CRACKER (TFC) OF 4TH DIMENSION IN "        
  118. dc.b    "1988 PRESENTS NEW STUFF!     THIS TIME, THE G"
  119. DC.B    "REETINGS GOES TO M.E.S, HOTLINE, TRACK 7, RIS"
  120. DC.B    "KY BUSINISS BOYS, THUNDERBOLT CRACKING CREW, "
  121. DC.B    "TRIAD, THE HUNTER OF ZAPP, ACADEMY, SCIFF OF "
  122. DC.B    "SCIENCE CRACKING TEAM, THE FLASH TEAM, BACAIN"
  123. DC.B    "OS, DEADLINE, RAWHEAD, THINK-MAN, E.C.S, GARB"
  124. DC.B    "AGE IND., THE FUTURE PROJECT (KCC), WIZ OF MI"
  125. DC.B    "O SOFT, HEAVY METAL (BINK), MBB, THE NORWEGAN"
  126. DC.B    " LAW BREAKER, T.U.C, MR. CHIP & <-RAVEN, H.C."
  127. DC.B    "C AND ALL OTHERS WE KNOW!!    SPECIAL GREETIN"
  128. DC.B    "GS TO ALL MEMBERS OF 4TH DIMENSION ALL OVER T"
  129. DC.B    "HE WORLD: VAMPIRE (AMIGA), THE STRANGER (AMIG"
  130. DC.B    "A), ALF (AMIGA), GHOSTSOFT (AMIGA), S-C (64),"
  131. DC.B    " DAVID CLARCK (64)!!!         FOR THE NEWEST "
  132. DC.B    "STUFF FOR AMIGA, CONTACT ME AT: 4TH DIMENSION"
  133. DC.B    ", KIRKEVEIEN 45, 8200 FAUSKE, NORWAY... TEL:N"
  134. DC.B    "-081 44845      FOR THE LATEST 64 STUFF, CONT"
  135. DC.B    "ACT S-C AT: 4TH DIMENSION, STERVEIEN 7B, 8200"
  136. DC.B    " FAUSKE, NORWAY....       KILL LEFT MOUSE BUT"
  137. DC.B    "TON TO GET ON!      HI D.D.D!                "
  138.  
  139.  
  140. end:
  141. even
  142. taller:
  143. dc.l    0
  144. oldclist:
  145. dc.l    0
  146. gfxbase:
  147. dc.l    0
  148. gfxname:
  149. dc.b    "graphics.library",0
  150. even
  151. bitmap:
  152. blk.w    4,0
  153. plane1:
  154. blk.l    20,0
  155. rastport:
  156. dc.l    0
  157. r_bitmap:
  158. blk.l    30,0
  159. rows:
  160. dc.b    2
  161.