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