home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 4: Demo 1 / almathera_demo1.bin / sourcecode / dexion / scroll5.s < prev    next >
Text File  |  1995-03-17  |  2KB  |  126 lines
  1. start:
  2. move.l        #$50100,$dff0a0    
  3. move.w        #36000,$dff0a4 
  4. move.w        #300,$dff0a6    
  5. move.w        #65,$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    #20,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 #10,$dff016
  31. bne wait
  32. add.w #2,pike+2
  33. move.w poke1+2,d0
  34. swap d0
  35. move.w poke1+6,d0
  36. add.b #40,d0
  37. move.w d0,poke1+6
  38. swap d0
  39. move.w d0,poke1+2
  40. btst    #6,$bfe001
  41. bne    wait
  42. jmp     slut
  43. newirq:
  44. movem.l    d0-d7/a0-a6,-(sp)
  45. move.l    gfxbase,a6
  46. lea    rastport,a1
  47. move.l    #$04,d0
  48. clr.l    d1
  49. clr.l    d2
  50. move.l    #01,d3
  51. move.l    #336,d4
  52. move.l    #20,d5
  53. jsr    -396(a6)
  54. sub.b    #$01,rows
  55. bne.s    exit
  56. move.b    #$02,rows
  57. lea    rastport,a1
  58. move.l    #320,d0
  59. move.l    #12,d1
  60. jsr    -240(a6)
  61. lea    rastport,a1
  62. move.l    taller,a0
  63. move.l    #$01,d0
  64. jsr    -60(a6)
  65. addq.l    #$01,taller
  66. cmp.l    #end,taller
  67. blt.s    exit
  68. move.l    #text,taller
  69. exit:
  70. movem.l    (sp)+,d0-d7/a0-a6
  71. oldirq:
  72. jmp    $00000000
  73. slut:
  74. move.w #$0001,$dff096
  75. move.l oldirq+2,$6c
  76. move.l gfxbase,a0
  77. move.l oldclist,50(a0)
  78. move.l $04,a6
  79. jmp -414(a6)
  80. newclist:
  81. dc.w    $008e,$2c81,$0090,$f4c1,$0092,$0038,$0094,$00d0
  82. dc.w    $0102,$0000,$0104,$0000,$0108,$0002,$010a,$0002
  83. dc.w    $0100,$1200,$0180,$0000,$0182,$0fff
  84. dc.w    $00e0,$0006,$00e2,$0000,$2e01,$ff00
  85. dc.w    $0180,$0000,$0180,$0111,$3001,$ff00
  86. pike:
  87. dc.w    $0182,$0222,$0180,$0123,$3c01,$ff00
  88. dc.w    $0180,$0222,$0180,$0444,$3e01,$ff00
  89. dc.w    $0180,$0444,$0180,$023a,$0181,$0000,$0182,$0000
  90. dc.w    $0183,$0000,$0184,$0000,$0185,$0000
  91. dc.w    $0186,$0000,$0187,$0000,$0188,$0000
  92. dc.w    $0189,$0000,$018a,$0000,$018b,$0000
  93. dc.w    $018c,$0000,$018d,$0000,$018e,$0000
  94. dc.w    $0180,$023a,$a301,$ff00,$0180,$023a
  95. dc.w    $0180,$0fe1,$a501,$ff00,$0182,$0ff1
  96. dc.w    $0180,$0000
  97. poke1:
  98. dc.w    $00e0,$0006,$00e2,$0000
  99. dc.w    $fd01,$ff00,$0180,$0000,$0180,$0133
  100. dc.w    $ff01,$ff00,$0182,$0000,$0180,$0000
  101. dc.w    $ffff,$fffe
  102. text:
  103. dc.b    "REFLEX CRACKING SQUAD AND THE DANISH DEMO DUO ARE VERY  GOOD"
  104. dc.b    " FRIENDS SO THEREFORE PET GOT THIS GREAT SCROLL !!!!        "
  105. end:
  106. even
  107. taller:
  108. dc.l    0
  109. oldclist:
  110. dc.l    0
  111. gfxbase:
  112. dc.l    0
  113. gfxname:
  114. dc.b    "graphics.library",0
  115. even
  116. bitmap:
  117. blk.w    4,0
  118. plane1:
  119. blk.l    20,0
  120. rastport:
  121. dc.l    0
  122. r_bitmap:
  123. blk.l    30,0
  124. rows:
  125. dc.b    3
  126.