home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 4: Demo 1 / almathera_demo1.bin / sourcecode / dexion / 4th_intro1.s < prev    next >
Encoding:
Text File  |  1995-03-17  |  3.3 KB  |  139 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. clr.l    d1
  39. clr.l    d2
  40. move.l    #01,d3
  41. move.l    #336,d4
  42. move.l    #200,d5
  43. jsr    -396(a6)
  44. sub.b    #$01,rows
  45. bne.s    exit
  46. move.b    #$8,rows
  47. lea    rastport,a1
  48. move.l    #320,d0
  49. move.l    #108,d1
  50. jsr    -240(a6)
  51. lea    rastport,a1
  52. move.l    taller,a0
  53. move.l    #$01,d0
  54. jsr    -60(a6)
  55. addq.l    #$01,taller
  56. cmp.l    #end,taller
  57. blt.s    exit
  58. move.l    #text,taller
  59. exit:
  60. movem.l    (sp)+,d0-d7/a0-a6
  61. oldirq:
  62. jmp    $00000000
  63. slut:
  64. move.w #$0001,$dff096
  65. move.l oldirq+2,$6c
  66. move.l gfxbase,a0
  67. move.l oldclist,50(a0)
  68. move.l $04,a6
  69. jmp -414(a6)
  70. rts
  71. newclist:
  72. dc.w    $008e,$2c81,$0090,$f4c1,$0092,$0038,$0094,$00d0
  73. dc.w    $0102,$0000,$0104,$0000,$0108,$0002,$010a,$0002
  74. dc.w    $0100,$1200,$0180,$6600,$0182,$aaaa
  75. dc.w    $00e0,$0006,$00e2,$0000
  76. dc.w    $8e01,$ff00,$0182,$1000,$0180,$7700
  77. dc.w    $8f01,$ff00,$0182,$1000,$0180,$8800
  78. dc.w    $9001,$ff00,$0182,$1000,$0180,$9900
  79. dc.w    $9101,$ff00,$0182,$1000,$0180,$aa00
  80. dc.w    $9201,$ff00,$0182,$1000,$0180,$bb00
  81. dc.w    $9301,$ff00,$0182,$1000,$0180,$cc00
  82. dc.w    $9401,$ff00,$0182,$1000,$0180,$dd00
  83. dc.w    $9501,$ff00,$0182,$1000,$0180,$dd00
  84. dc.w    $9601,$ff00,$0182,$1000,$0180,$dd00
  85. dc.w    $9701,$ff00,$0182,$1000,$0180,$cc00
  86. dc.w    $9801,$ff00,$0182,$1000,$0180,$bb00
  87. dc.w    $9901,$ff00,$0182,$1000,$0180,$aa00
  88. dc.w    $9a01,$ff00,$0182,$1000,$0180,$9900
  89. dc.w    $9b01,$ff00,$0182,$1000,$0180,$8800
  90. dc.w    $9c01,$ff00,$0182,$1000,$0180,$7700
  91. dc.w    $9d01,$ff00,$0182,$1000,$0180,$6600
  92. dc.w    $ffff,$fffe
  93. text:
  94. dc.b    "THE FUTURE CRACKER (TFC) OF 4TH DIMENSION IN "        
  95. dc.b    "1988 PRESENTS NEW STUFF!     THIS TIME, THE G"
  96. DC.B    "REETINGS GOES TO M.E.S, HOTLINE, TRACK 7, RIS"
  97. DC.B    "KY BUSINISS BOYS, THUNDERBOLT CRACKING CREW, "
  98. DC.B    "TRIAD, THE HUNTER OF ZAPP, ACADEMY, SCIFF OF "
  99. DC.B    "SCT, BACAINOS, DEADLINE, RAWHEAD, THINK-MAN, "
  100. DC.B    "E.C.S, WIZ OF MIO SOFT, HEAVY METAL (BINK), M"
  101. DC.B    "R. CHIP & <-RAWEN, TFT (NOT FOR HOT STUFF) AND ALL O"
  102. DC.b    "THERS WE KNOW!   IF YOU ARE ONE OF OUR CONTAC"
  103. DC.B    "TS AND IF YOU CAN`T SEE YOURSELF ON THE GREET"
  104. DC.B    "ING LIST, THEN YOU BETTER START SENDING BETTE"
  105. DC.B    "R STUFF, REAL FAST!!    IF YOU WANT TO HAVE T"
  106. DC.B    "HE LATEST STUFF (AMIGA), THEN CONTACT ME AT: "
  107. DC.B    "4TH DIMENSION (TFC), KIRKEVEIEN 45, 8200 FAUS"
  108. DC.B    "KE, NORWAY.    TEL:NORWAY (47) + 081 44845   "
  109. DC.B    "  FOR THE LATES 64 STUFF, JUST CONTACT ME AND"
  110. DC.B    " I`LL GIVE THE LETTER TO THE 64 GUYS!!       "
  111. DC.B    "  THIS IS THE FIRST REAL THING I HAVE DONE AL"
  112. DC.B    "ONE IN 68000 ON AMIGA, SO JUST WAIT UNTIL I H"
  113. DC.B    "HAVE READ SOME MORE BOOKS ABOUT 68000!       "
  114. DC.B    "    KILL LEFT MOUSE BUTTON TO GET ON!    "
  115. DC.B    "                                "
  116.  
  117.  
  118. end:
  119. even
  120. taller:
  121. dc.l    0
  122. oldclist:
  123. dc.l    0
  124. gfxbase:
  125. dc.l    0
  126. gfxname:
  127. dc.b    "graphics.library",0
  128. even
  129. bitmap:
  130. blk.w    4,0
  131. plane1:
  132. blk.l    20,0
  133. rastport:
  134. dc.l    0
  135. r_bitmap:
  136. blk.l    30,0
  137. rows:
  138. dc.b    2
  139.