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