home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Assembler / dse-src5.dms / in.adf / scroll2.S < prev    next >
Encoding:
Text File  |  1990-05-07  |  2.0 KB  |  84 lines
  1.     move.l    $04,a6
  2.     lea    gfxname,a1
  3.     jsr    -408(a6)    ;OldOpenLibrary
  4.     move.l    d0,gfxbase
  5.     move.l    d0,a0
  6.     move.l    50(a0),oldclist        ;remember CList
  7.     move.l    #newclist,50(a0)    ;setnew CList
  8.     move.l    gfxbase,a6
  9.     lea    bitmap,a0
  10.     move.l    #$01,d0        ;bitplanes
  11.     move.l    #436,d1        ;width
  12.     move.l    #180,d2        ;hight
  13.     jsr    -390(a6)    ;InitBitMap
  14.     move.l    #$60000,plane1
  15.     lea    rastport,a1
  16.     jsr    -198(a6)    ;InitRastPort
  17.     move.l    #bitmap,r_bitmap
  18.     lea    rastport,a1
  19.     jsr    -48(a6)        ;ClearScreen
  20.     move.l    #scrollm,zeiger
  21.     move.l    $6c,oldirq+2    ;set backjump
  22.     move.l    #newirq,$6c    ;set new to jump
  23. wait:    btst    #6,$bfe001
  24.     bne.s    wait
  25.     move.l    oldirq+2,$6c    ;restore to jump
  26.     move.l    gfxbase,a0
  27.     move.l    oldclist,50(a0)    ;restore old CList
  28.     move.l    $04,a6
  29.     move.l    gfxbase,a1
  30.     jsr    -414(a6)    ;CloseLibrary
  31.     move.l    #0,d0
  32.     rts
  33.  
  34. newirq:
  35.     movem.l    d0-d7/a0-a6,-(sp)    ;store registers
  36.     move.l    gfxbase,a6
  37.     lea    rastport,a1
  38.     move.l    #00,d0        ;delta X
  39.     move.l    #01,d1        ;delta Y
  40.     move.l    #000,d2        ;minX
  41.     move.l    #000,d3        ;minY
  42.     move.l    #336,d4        ;maxX
  43.     move.l    #200,d5        ;maxY
  44.     jsr    -396(a6)    ;ScrollRaster
  45.     sub.b    #$01,rows
  46.     bne.s    exit        ;branch if no new char
  47.     move.b    #$08,rows
  48.     lea    rastport,a1
  49.     move.l    #320,d0        ;Xpos
  50.     move.l    #110,d1        ;Ypos
  51.     jsr    -240(a6)    ;Move
  52.     lea    rastport,a1
  53.     move.l    zeiger,a0    ;pointer to tekst
  54.     move.l    #$01,d0        ;# of chars
  55.     jsr    -60(a6)        ;Text
  56.     addq.l    #$01,zeiger
  57.     cmp.l    #end,zeiger
  58.     blt.s    exit        ;do not zero ZEIGER
  59.     move.l    #scrollm,zeiger
  60. exit:    movem.l    (sp)+,d0-d7/a0-a6
  61. oldirq:    jmp    $00000000
  62.  
  63. newclist:
  64. dc.w    $008e,$2c81,$0090,$f4f0,$0092,$0038,$0094,$00d0
  65. dc.w    $0102,$0000,$0104,$0000,$0108,$0002,$010a,$0002
  66. dc.w    $0100,$1200,$0180,$0000,$0182,$0fff
  67. dc.w    $00e0,$0006,$00e2,$0000
  68. dc.w    $c00f,$fffe,$0180,$0f00,$ffff,$fffe,$0180,$000f
  69. dc.w    $9e0f,$fffe,$0180,$0f00,$9f0f,$fffe,$0180,$0000
  70. dc.w    $ffff,$fffe
  71.  
  72. zeiger:        dc.l    0
  73. oldclist:    dc.l    0
  74. gfxbase:    dc.l    0
  75. bitmap:        blk.l    2,0
  76. plane1:        blk.l    20,0
  77. rastport:    dc.l    0
  78. r_bitmap:    blk.l    30,0
  79. rows:        dc.b    2
  80. gfxname:    dc.b    "graphics.library",0
  81. scrollm:    dc.b    "HERE IS INFECTION TESING A NEW SCROLL..."
  82.         dc.b    "                "
  83. end:
  84.