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