home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 4: Demo 1 / almathera_demo1.bin / sourcecode / dexion / eccintro.s < prev    next >
Text File  |  1995-03-17  |  2KB  |  129 lines
  1.  
  2. move.l    $04,a6
  3. lea    gfxname,a1
  4. jsr    -408(a6)
  5. move.l    d0,gfxbase
  6. move.l    d0,a0
  7. move.l    50(a0),oldclist
  8. move.l    #newclist,50(a0)
  9. move.l    gfxbase,a6
  10. lea    bitmap,a0
  11. move.l    #$01,d0
  12. move.l    #336,d1
  13. move.l    #200,d2
  14. jsr    -390(a6)
  15. move.l    #$70000,plane1
  16. lea    rastport,a1
  17. jsr    -198(a6)
  18. move.l    #bitmap,r_bitmap
  19. lea    rastport,a1
  20. jsr    -48(a6)
  21. move.l    #scrollm,zeiger
  22. move.l    $6c,oldirq+2
  23. move.l    #newirq,$6c
  24. wait:
  25. jsr scroll
  26. or.b #2,$bfe001
  27. btst    #6,$bfe001
  28. bne.s    wait
  29. move.l    oldirq+2,$6c
  30. move.l    gfxbase,a0
  31. move.l    oldclist,50(a0)
  32. move.l    $04,a6
  33. move.l    gfxbase,a1
  34. jsr    -414(a6)
  35. jsr stop
  36. rts
  37.  
  38. newirq:
  39. jsr sound
  40. movem.l    d0-d7/a0-a6,-(sp)
  41. move.l    gfxbase,a6
  42. lea    rastport,a1
  43. move.l    #$02,d0
  44. clr.l    d1
  45. clr.l    d2
  46. move.l    #090,d3
  47. move.l    #336,d4
  48. move.l    #200,d5
  49. jsr    -396(a6)
  50. sub.b    #$02,rows
  51. bne.s    exit
  52. move.b    #$08,rows
  53. lea    rastport,a1
  54. move.l    #320,d0
  55. move.l    #098,d1
  56. jsr    -240(a6)
  57. lea    rastport,a1
  58. move.l    zeiger,a0
  59. move.l    #$01,d0
  60. jsr    -60(a6)
  61. addq.l    #$01,zeiger
  62. cmp.l    #end,zeiger
  63. blt.s    exit
  64. move.l    #scrollm,zeiger
  65. exit:
  66. movem.l    (sp)+,d0-d7/a0-a6
  67. oldirq:
  68. jmp    $00000000
  69. scroll:
  70. andi.b #253,$bfe001
  71. jsr -270(a6)
  72. lea po1,a2
  73. move.l #-2*20,d0
  74. add.w d0,(a2)
  75. lea po2,a2
  76. move.l #-2*10,d0
  77. add d0,(a2)
  78. lea po3,a2
  79. add #1,(a2)
  80. rts
  81. sound:
  82. move.l #$60100,$dff0a0
  83. move.w #[37560/2],$dff0a4
  84. move.w #360,$dff0a6
  85. move.w #64,$dff0a8
  86. move.w #$8201,$dff096
  87. rts
  88. stop:move.w #$0001,$dff096
  89. newclist:
  90. dc.w    $008e,$2c81,$0090,$1cc1,$0092,$0038,$0094,$00d0
  91. dc.w    $0102,$0000,$0104,$0000,$010a,$0000
  92. dc.w    $0100,$4200,$0180,$0000,$0182
  93. po3:dc.w $0fff
  94. dc.w $0184,$0fff
  95. dc.w    $0188,$0444,$0190,$0aaa
  96. dc.w    $00e0,$0007,$00e2,$0000
  97. dc.w    $00e4,$0004,$00e6
  98. po1:dc.w $0000
  99. dc.w    $00e8,$0004,$00ea,$0000
  100. dc.w    $00ec,$0004,$00ee
  101. po2:dc.w $0000
  102. dc.w    $8201,$fffe,$0180,$000f,$8501,$fffe,$0180,$000a
  103. dc.w    $9201,$fffe,$0180,$0007,$9501,$fffe,$0180,$0000
  104. dc.w    $010a,$0000,$0108,$0002
  105. dc.w    $ffff,$fffe
  106. scrollm:
  107. dc.b    "THE E.C.C. HOLLAND GREETINGS TO ALL PIRATES   "
  108. end:
  109. even
  110. zeiger:
  111. dc.l    0
  112. oldclist:
  113. dc.l    0
  114. gfxbase:
  115. dc.l    0
  116. gfxname:
  117. dc.b    "graphics.library",0
  118. even
  119. bitmap:
  120. blk.w    4,0
  121. plane1:
  122. blk.l    20,0
  123. rastport:
  124. dc.l    0
  125. r_bitmap:
  126. blk.l    30,0
  127. rows:
  128. dc.b    2
  129.