home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 4: Demo 1 / almathera_demo1.bin / sourcecode / dexion / hires_dscroll.s < prev    next >
Text File  |  1995-03-17  |  2KB  |  104 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    #400,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. move.l    gfxbase,a6
  31. lea    rastport,a1
  32. move.l    #0,d0
  33. move.l    #-1,d1
  34. move.l    #0,d3
  35. move.l    #0,d2
  36. move.l    #336,d4
  37. move.l    #400,d5
  38. jsr    -396(a6)
  39. sub.b    #1,rows
  40. bne.s    exit
  41. move.b    #8,rows
  42. lea    rastport,a1
  43. move.l    #0,d0
  44. move.l    #7,d1
  45. jsr    -240(a6)
  46. lea    rastport,a1
  47. move.l    taller,a0
  48. move.l    #40,d0
  49. jsr    -60(a6)
  50. add.l    #40,taller
  51. cmp.l    #end,taller
  52. blt.s    exit
  53. move.l    #text,taller
  54. exit:
  55. movem.l    (sp)+,d0-d7/a0-a6
  56. oldirq:
  57. jmp    $00000000
  58. slut:
  59. move.w #$0001,$dff096
  60. move.l oldirq+2,$6c
  61. move.l gfxbase,a0
  62. move.l oldclist,50(a0)
  63. move.l $04,a6
  64. jmp -414(a6)
  65. newclist:
  66. dc.w    $8e,$2c81,$90,$41ff,$92,$3c,$94,$d4
  67. dc.w    $102,$0,$104,$24,$108,$4,$10a,$4
  68. dc.w    $100,$9200,$180,$0,$0182,$0
  69. dc.w    $2411,$fffe
  70. dc.w    $00e0,$0006,$00e2,$0000
  71. dc.w    $5711,$fffe,$182,$0fff
  72. dc.w    $e811,$fffe,$182,$0,180,$0,$ffff,$fffe
  73. text:
  74. dc.b    "THE DANISH DEMO DUO 1987 ARE PET & TOX !"        
  75. dc.b    "PETER OLSEN M0LLEAGER 14 2640 HEDEHUSENE"        
  76. dc.b    "THE DANISH DEMO DUO 1987 ARE PET & TOX !"        
  77. end:
  78. even
  79. taller:
  80. dc.l    0
  81. oldclist:
  82. dc.l    0
  83. gfxbase:
  84. dc.l    0
  85. gfxname:
  86. dc.b    "graphics.library",0
  87. even
  88. bitmap:
  89. blk.w    4,0
  90. plane1:
  91. blk.l    20,0
  92. rastport:
  93. dc.l    0
  94. r_bitmap:
  95. blk.l    30,0
  96. rows:
  97. dc.b    2
  98. even
  99. sine:
  100. dc.w     $2c91,$2d91,$2f91,$3391,$3791,$4091,$3791,$3391,$2f91
  101. dc.w     $2d91,$2c91
  102. endsine:
  103. even
  104.