home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 4: Demo 1 / almathera_demo1.bin / sourcecode / dexion / scroll_reset.s < prev    next >
Text File  |  1995-03-17  |  2KB  |  132 lines
  1. run:
  2. allocmem=-198
  3. require=1
  4. coldcapture=42
  5.  
  6. move.l $4,a6
  7. move.l #ende-start,d0
  8. move.l #require,d1
  9. jsr allocmem(a6)
  10. tst.l d0
  11. beq fejl
  12. move.l d0,a1
  13. move.l a1,coldcapture(a6)
  14. move.w #ende-start,d0
  15. lea.l start,a0
  16. l1:
  17. move.b (a0)+,(a1)+
  18. dbf d0,l1
  19. clr.l d1
  20. lea.l 34(a6),a0
  21. move.w #$16,d0
  22. l2:
  23. add.w (a0)+,d1
  24. dbf d0,l2
  25. not.w d1
  26. move.w d1,82(a6)
  27. fejl: 
  28. rts
  29. ; reset_jmp start
  30. start:
  31. lea.l start,a0
  32. move.l $4,a6
  33. move.l a0,coldcapture(a6)
  34. move.l        #$50100,$dff0a0    
  35. move.w        #[37560/2],$dff0a4 
  36. move.w        #360,$dff0a6    
  37. move.w        #64,$dff0a8    
  38. move.w        #$8201,$dff096    
  39. move.l    $04,a6
  40. lea    gfxname,a1
  41. jsr    -408(a6)
  42. move.l    d0,gfxbase
  43. move.l    d0,a0
  44. move.l    50(a0),oldclist
  45. move.l    #newclist,50(a0)
  46. move.l    gfxbase,a6
  47. lea    bitmap,a0
  48. move.l    #$01,d0
  49. move.l    #336,d1
  50. move.l    #200,d2
  51. jsr    -390(a6)
  52. move.l    #$60000,plane1
  53. lea    rastport,a1
  54. jsr    -198(a6)
  55. move.l    #bitmap,r_bitmap
  56. lea    rastport,a1
  57. jsr    -48(a6)
  58. move.l    #text,taller
  59. move.l    $6c,oldirq+2
  60. move.l    #newirq,$6c
  61. wait:
  62. btst    #6,$bfe001
  63. bne    wait
  64. jmp     slut
  65. newirq:
  66. movem.l    d0-d7/a0-a6,-(sp)
  67. move.l    gfxbase,a6
  68. lea    rastport,a1
  69. move.l    #$01,d0
  70. clr.l    d1
  71. clr.l    d2
  72. move.l    #01,d3
  73. move.l    #336,d4
  74. move.l    #200,d5
  75. jsr    -396(a6)
  76. sub.b    #$01,rows
  77. bne.s    exit
  78. move.b    #$8,rows
  79. lea    rastport,a1
  80. move.l    #320,d0
  81. move.l    #108,d1
  82. jsr    -240(a6)
  83. lea    rastport,a1
  84. move.l    taller,a0
  85. move.l    #$01,d0
  86. jsr    -60(a6)
  87. addq.l    #$01,taller
  88. cmp.l    #end,taller
  89. blt.s    exit
  90. move.l    #text,taller
  91. exit:
  92. movem.l    (sp)+,d0-d7/a0-a6
  93. oldirq:
  94. jmp    $00000000
  95. slut:
  96. move.w #$0001,$dff096
  97. move.l oldirq+2,$6c
  98. move.l gfxbase,a0
  99. move.l oldclist,50(a0)
  100. move.l $04,a6
  101. jmp -414(a6)
  102. newclist:
  103. dc.w    $008e,$2c81,$0090,$f4c1,$0092,$0038,$0094,$00d0
  104. dc.w    $0102,$0000,$0104,$0000,$0108,$0002,$010a,$0002
  105. dc.w    $0100,$1200,$0180,$0000,$0182,$0fff
  106. dc.w    $00e0,$0006,$00e2,$0000
  107. dc.w    $ffff,$fffe
  108. text:
  109. dc.b    "REFLEX CRACKING SQUAD                      "        
  110. end:
  111. even
  112. taller:
  113. dc.l    0
  114. oldclist:
  115. dc.l    0
  116. gfxbase:
  117. dc.l    0
  118. gfxname:
  119. dc.b    "graphics.library",0
  120. even
  121. bitmap:
  122. blk.w    4,0
  123. plane1:
  124. blk.l    20,0
  125. rastport:
  126. dc.l    0
  127. r_bitmap:
  128. blk.l    30,0
  129. rows:
  130. dc.b    2
  131. ende:
  132.