home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 4: Demo 1 / almathera_demo1.bin / sourcecode / dexion / scr_to_lcc1+.s < prev    next >
Text File  |  1995-03-17  |  6KB  |  251 lines
  1. org $40000
  2. load $40000
  3. s:
  4. move.l        #$50100,$dff0a0    
  5. move.w        #36000,$dff0a4 
  6. move.w        #300,$dff0a6    
  7. move.w        #65,$dff0a8    
  8. move.w        #$83a1,$dff096    
  9. move.l    $04,a6
  10. lea    gfxname,a1
  11. jsr    -408(a6)
  12. move.l    d0,gfxbase
  13. move.l    d0,a0
  14. move.l    50(a0),oldclist
  15. move.l    #newclist,50(a0)
  16. move.l    gfxbase,a6
  17. lea    bitmap,a0
  18. move.l    #$01,d0
  19. move.l    #336,d1
  20. move.l    #20,d2
  21. jsr    -390(a6)
  22. move.l    #$50000,plane1
  23. lea    rastport,a1
  24. jsr    -198(a6)
  25. move.l    #bitmap,r_bitmap
  26. lea    rastport,a1
  27. jsr    -48(a6)
  28. move.l    #text,taller
  29. move.l    $6c,oldirq+2
  30. move.l    #newirq,$6c
  31. wait:
  32. move.l #$45000,a0
  33. l1: 
  34. move.w $dff012,d1
  35. cmpi.b #$ff,$dff006
  36. bne l1
  37. move.l (a0)+,spr4a
  38. move.l 20(a0),spr4b
  39. move.l 40(a0),spr4
  40. move.l 60(a0),spr3
  41. move.l 80(a0),spr2
  42. move.l 100(a0),spr1
  43. cmp.w $dff012,d1
  44. bne end1
  45. cmpi.l #$47000,a0
  46. beq wait 
  47. jmp l1
  48. end1:
  49. jmp slut
  50. newirq:
  51. movem.l    d0-d7/a0-a6,-(sp)
  52. move.l    gfxbase,a6
  53. lea    rastport,a1
  54. move.l    #2,d0
  55. clr.l    d1
  56. clr.l    d2
  57. move.l    #1,d3
  58. move.l    #336,d4
  59. move.l    #20,d5
  60. jsr    -396(a6)
  61. sub.b    #1,rows
  62. bne.s    exit
  63. move.b    #4,rows
  64. lea    rastport,a1
  65. move.l    #320,d0
  66. move.l    #10,d1
  67. jsr    -240(a6)
  68. lea    rastport,a1
  69. move.l    taller,a0
  70. move.l    #1,d0
  71. jsr    -60(a6)
  72. addq.l    #1,taller
  73. cmp.l    #end,taller
  74. blt.s    exit
  75. move.l    #text,taller
  76. exit:
  77. movem.l    (sp)+,d0-d7/a0-a6
  78. oldirq:
  79. jmp    $00000000
  80. slut:
  81. move.w #3,$dff096
  82. move.l oldirq+2,$6c
  83. move.l gfxbase,a0
  84. move.l oldclist,50(a0)
  85. move.l $04,a6
  86. jmp -414(a6)
  87. newclist:
  88. dc.w    $008e,$2c91,$0090,$41f0,$0092,$0038,$0094,$00d0
  89. dc.w    $0102,$0000,$0104,$0000,$0108,$0002,$010a,$0002
  90. dc.w    $0100,$1200,$0180,$0000
  91. dc.w    $00e0,$0005,$00e2,$0000
  92. dc.w    $2011,$fffe,$0180,$111
  93. dc.w    $2111,$fffe,$0180,$222
  94. dc.w    $2211,$fffe,$0180,$333
  95. dc.w    $2311,$fffe,$0180,$444
  96. dc.w    $2411,$fffe,$0180,$555
  97. dc.w    $2511,$fffe,$0180,$666
  98. dc.w    $2611,$fffe,$0180,$777
  99. dc.w    $2711,$fffe,$0180,$888
  100. dc.w    $2811,$fffe,$0180,$999
  101. dc.w    $2911,$fffe,$0180,$aaa
  102. dc.w    $2a11,$fffe,$0180,$bbb
  103. dc.w    $2b11,$fffe,$0180,$ccc
  104. dc.w    $2c11,$fffe,$0180,$ddd
  105. dc.w    $2d11,$fffe,$0180,$eee
  106. dc.w    $2e11,$fffe,$0180,$fff
  107. dc.w    $3001,$ff00,$0182,$111
  108. dc.w    $3101,$ff00,$0182,$333
  109. dc.w    $3201,$ff00,$0182,$555
  110. dc.w    $3301,$ff00,$0182,$777
  111. dc.w    $3401,$ff00,$0182,$999
  112. dc.w    $3501,$ff00,$0182,$bbb
  113. dc.w    $3601,$fffe,$0182,$ddd
  114. dc.w    $3911,$fffe,$0180,$eee
  115. dc.w    $3a11,$fffe,$0180,$ddd
  116. dc.w    $3b11,$fffe,$0180,$ccc
  117. dc.w    $3c11,$fffe,$0180,$bbb
  118. dc.w    $3d11,$fffe,$0180,$aaa
  119. dc.w    $3e11,$fffe,$0180,$999
  120. dc.w    $3f11,$fffe,$0180,$888
  121. dc.w    $4011,$fffe,$0180,$777
  122. dc.w    $4111,$fffe,$0180,$666
  123. dc.w    $4211,$fffe,$0180,$555
  124. dc.w    $4311,$fffe,$0180,$444
  125. dc.w    $4411,$fffe,$0180,$333
  126. dc.w    $4511,$fffe,$0180,$222
  127. dc.w    $4611,$fffe,$0180,$111
  128. dc.w    $4711,$fffe,$0180,$000
  129. dc.w    $4a11,$fffe,$0180,$fff
  130. dc.w    $4b11,$fffe,$0180,$000
  131. dc.w    $0100,$5200,$0096,$83a1
  132. dc.w    $00e0,$0000,$00e2,$0000
  133. dc.w    $00e4,$0000,$00e6,$0000
  134. dc.w    $00e8,$0000,$00ea,$0000
  135. dc.w    $00ec,$0000,$00ee,$0000
  136. dc.w    $00f0,$0000,$00f2,$0000
  137. dc.w    $00f4,$0000,$00f6,$0000
  138. dc.w    $00f8,$0000,$00fa,$0000
  139. sprp0:    dc.w    $0120,$0004,$0122,$1510
  140. sprp1:    dc.w    $0124,$0004,$0126,$1558
  141. sprp2:    dc.w    $0128,$0004,$012a,$15a0
  142. sprp3:    dc.w    $012c,$0004,$012e,$15e8
  143. sprp4:    dc.w    $0130,$0004,$0132,$1630
  144. sprp5:    dc.w    $0134,$0004,$0136,$1678
  145. col0:    dc.w    $0180,$444,$0182,$555,$0184,$777,$0186,$999
  146. col4:    dc.w    $0188,$444,$018a,$555,$018c,$777,$018e,$999
  147. col8:    dc.w    $0190,$444,$0192,$555,$0194,$777,$0196,$999
  148. col12:    dc.w    $0198,$444,$019a,$555,$019c,$777,$019e,$999
  149. col16:    dc.w    $01a0,$444,$01a2,$555,$01a4,$777,$01a6,$999
  150. col20:    dc.w    $01a8,$444,$01aa,$555,$01ac,$777,$01ae,$999
  151. col24:    dc.w    $01b0,$444,$01b2,$555,$01b4,$777,$01b6,$999
  152. col28:    dc.w    $01b8,$444,$01ba,$555,$01bc,$777,$01be,$999
  153. dc.w    $ffff,$fffe
  154. text:
  155. dc.b    "        HELLO THIS THE DANISH DEMO DUO. WE ARE JUST LANDED"
  156. dc.b    " ON THE AMIGA. NOW I (PET) HAS GAINED ENOUGH KNOWLEGED TO "
  157. dc.b    "START PROGRAMMING MACHINE CODE ON THIS WONDERFUL MACHINE. "
  158. dc.b    " "
  159. dc.b    " "
  160. end:
  161. even
  162. taller:
  163. dc.l    0
  164. oldclist:
  165. dc.l    0
  166. gfxbase:
  167. dc.l    0
  168. gfxname:
  169. dc.b    "graphics.library",0
  170. even
  171. bitmap:
  172. blk.w    4,0
  173. plane1:
  174. blk.l    20,0
  175. rastport:
  176. dc.l    0
  177. r_bitmap:
  178. blk.l    30,0
  179. rows:
  180. dc.b    3
  181. even
  182. org $41510
  183. load $41510
  184. Spr4a:
  185. dc.w $70a0,$8100
  186. dc.w $0002FBF8,$0002FBF8
  187. dc.w $0002FBFC,$00028A04,$0002DB06,$0002AAFA
  188. dc.w $0002DBFF,$0002AA01,$0002DBFF,$0002ABFF
  189. dc.w $0002D800,$0002A800,$0002D81F,$0002A81F
  190. dc.w $0002D81F,$0002A811,$0002D81B,$0002A815
  191. dc.w $0002D81F,$0002A81F,$0002D800,$0002A800
  192. dc.w $0002DBFF,$0002ABFF,$0002DBFF,$0002AA01
  193. dc.w $0002DB06,$0002AAFA,$0002FBFC,$00028A04
  194. dc.w $0002FBF8,$0002FBF8
  195. dc.w $0000,$0000
  196. spr4b:
  197. dc.w $7090,$8100
  198. dc.w $0002FBF8,$0002FBF8,$0002FBFC,$00028A04
  199. dc.w $0002DB06,$0002AAFA,$0002DBFF,$0002AA01
  200. dc.w $0002DBFF,$0002ABFF,$0002D800,$0002A800
  201. dc.w $0002D81F,$0002A81F,$0002D81F,$0002A811
  202. dc.w $0002D81B,$0002A815,$0002D81F,$0002A81F
  203. dc.w $0002D800,$0002A800,$0002DBFF,$0002ABFF
  204. dc.w $0002DBFF,$0002AA01,$0002DB06,$0002AAFA
  205. dc.w $0002FBFC,$00028A04,$0002FBF8,$0002FBF8
  206. dc.w $0000,$0000
  207. spr4:
  208. dc.w $7080,$8100
  209. dc.w $0002FBF8,$0002FBF8,$0002FBFC,$00028A04
  210. dc.w $0002DB06,$0002AAFA,$0002DBFF,$0002AA01
  211. dc.w $0002DBFF,$0002ABFF,$0002D800,$0002A800
  212. dc.w $0002D81F,$0002A81F,$0002D81F,$0002A811
  213. dc.w $0002D81B,$0002A815,$0002D81F,$0002A81F
  214. dc.w $0002D800,$0002A800,$0002DBFF,$0002ABFF
  215. dc.w $0002DBFF,$0002AA01,$0002DB06,$0002AAFA
  216. dc.w $0002FBFC,$00028A04,$0002FBF8,$0002FBF8
  217. dc.w $0000,$0000
  218. Spr3:
  219. dc.w $7060,$8100
  220. dc.w $0002FBFF,$0002FBFF,$0002FBFF,$00028A01
  221. dc.w $0002DB03,$0002AAFD,$0002DBFF,$0002AA01
  222. dc.w $0002DBFF,$0002ABFF,$0002D800,$0002A800
  223. dc.w $0002DBF0,$0002ABF0,$0002DBF0,$0002AA10
  224. dc.w $0002DB30,$0002AAD0,$0002DBF0,$0002AA10
  225. dc.w $0002DBF0,$0002ABF0,$0002DBFF,$0002ABFF
  226. dc.w $0002DBFF,$0002AA01,$0002DB03,$0002AAFD
  227. dc.w $0002FBFF,$00028A01,$0002FBFF,$0002FBFF
  228. dc.w $0000,$0000
  229. spr2:
  230. dc.w $7050,$8100
  231. dc.w $0002F81F,$0002F81F,$0002F81F,$00028811
  232. dc.w $0002D81B,$0002A815,$0002D81B,$0002A815
  233. dc.w $0002D81B,$0002A815,$0002D81B,$0002A815
  234. dc.w $0002DBFB,$0002ABF5,$0002DBFB,$0002AA05
  235. dc.w $0002DB03,$0002AAFD,$0002DBFB,$0002AA05
  236. dc.w $0002DBFB,$0002ABF5,$0002D81B,$0002A815
  237. dc.w $0002D81B,$0002A815,$0002D81B,$0002A815
  238. dc.w $0002F81F,$00028811,$0002F81F,$0002F81F
  239. dc.w $0000,$0000
  240. spr1:
  241. dc.w $7040,$8100
  242. dc.w $0002ffff,$0002ffff,$0002FFFF,$00028001
  243. dc.w $0002C003,$0002BFFD,$0002FFFF,$00028001
  244. dc.w $0002FFFF,$0002FFFF,$00020000,$00020000
  245. dc.w $000207C0,$000207C0,$000207C0,$00020440
  246. dc.w $000206C0,$00020540,$000206C0,$00020540
  247. dc.w $000206C0,$00020540,$000206C0,$00020540
  248. dc.w $000206C0,$00020540,$000206C0,$00020540
  249. dc.w $000207C0,$00020440,$000207C0,$000207C0
  250. dc.w $0000,$0000
  251.