home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 4: Demo 1 / almathera_demo1.bin / sourcecode / dexion / scr+irqflim.s < prev    next >
Text File  |  1995-03-17  |  2KB  |  108 lines
  1. start:
  2. move.l        #$50100,$dff0a0    
  3. move.w        #[37560/2],$dff0a4 
  4. move.w        #360,$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. move.l  $64,oldirq1+2
  30. move.l  #flim,$64
  31. wait:
  32. btst    #6,$bfe001
  33. bne    wait
  34. jmp     slut
  35. newirq:
  36. movem.l    d0-d7/a0-a6,-(sp)
  37. move.l    gfxbase,a6
  38. lea    rastport,a1
  39. move.l    #$01,d0
  40. clr.l    d1
  41. clr.l    d2
  42. move.l    #01,d3
  43. move.l    #336,d4
  44. move.l    #200,d5
  45. jsr    -396(a6)
  46. sub.b    #$01,rows
  47. bne.s    exit
  48. move.b    #$8,rows
  49. lea    rastport,a1
  50. move.l    #320,d0
  51. move.l    #108,d1
  52. jsr    -240(a6)
  53. lea    rastport,a1
  54. move.l    taller,a0
  55. move.l    #$01,d0
  56. jsr    -60(a6)
  57. addq.l    #$01,taller
  58. cmp.l    #end,taller
  59. blt.s    exit
  60. move.l    #text,taller
  61. exit:
  62. movem.l    (sp)+,d0-d7/a0-a6
  63. oldirq:
  64. jmp    $00000000
  65. flim:
  66. movem.l d0-d7/a0-a6,-(sp)
  67. addq.l #1,$dff180
  68. movem.l (sp)+,d0-d7/a0-a6
  69. oldirq1:
  70. jmp     $00000000
  71. slut:
  72. move.w #$0001,$dff096
  73. move.l oldirq+2,$6c
  74. move.l oldirq1+2,$64
  75. move.l gfxbase,a0
  76. move.l oldclist,50(a0)
  77. move.l $04,a6
  78. jmp -414(a6)
  79. newclist:
  80. dc.w    $008e,$2c81,$0090,$f4c1,$0092,$0038,$0094,$00d0
  81. dc.w    $0102,$0000,$0104,$0000,$0108,$0002,$010a,$0002
  82. dc.w    $0100,$1200,$0182,$0fff
  83. dc.w    $00e0,$0006,$00e2,$0000
  84. dc.w    $ffff,$fffe
  85. text:
  86. dc.b    "REFLEX CRACKING SQUAD                      "        
  87. end:
  88. even
  89. taller:
  90. dc.l    0
  91. oldclist:
  92. dc.l    0
  93. gfxbase:
  94. dc.l    0
  95. gfxname:
  96. dc.b    "graphics.library",0
  97. even
  98. bitmap:
  99. blk.w    4,0
  100. plane1:
  101. blk.l    20,0
  102. rastport:
  103. dc.l    0
  104. r_bitmap:
  105. blk.l    30,0
  106. rows:
  107. dc.b    2
  108.