home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Assembler / dse-src1.dms / in.adf / demosas.lzh / demosource.LZH / scroll.include < prev    next >
Encoding:
Text File  |  1991-05-17  |  826 b   |  40 lines
  1. ; Scroller Include
  2.  
  3. Blit_Zap
  4.     ;a0 = screen to clear (small screen only)
  5.     bsr waitblit
  6.     move.l a0,BLTDPTH(a6)
  7.     move.w #0,BLTDMOD(a6)
  8.     move.w #DEST,BLTCON0(a6)
  9.     move.w #0,BLTCON1(a6)
  10.     move.w #$3218,BLTSIZE(a6)
  11.     rts
  12.  
  13.  
  14. Scroll
  15.     lea CUSTOM,a6
  16.     move.l #SCREEN1+$2366,a0
  17.     ;bsr waitblit
  18.     ;rts
  19.     move.w #$ffff,BLTAFWM(a6)
  20.     move.w #$ff00,BLTALWM(a6)
  21.     move.w #2,BLTCON1(a6)            ; Special modes; descend
  22.     move.l a0,BLTAPTH(a6)            ; Area to copy FROM
  23.     move.w #0,BLTAMOD(a6)            ; No need to skip a word
  24.     move.l a0,BLTDPTH(a6)            ; Area to copy TO
  25.     move.w #0,BLTDMOD(a6)            ; No need to skip a word
  26.     move.w #$29F0,BLTCON0(a6)        ; Copy A -> D, shift 1 pixel
  27.     move.w #$696,BLTSIZE(a6)        ; Size and DO IT!
  28.     ;bsr waitblit
  29.     rts
  30.  
  31.  
  32. waitblit
  33.     ;move.l #0,d7
  34.     move.w DMACONR(a6),d7
  35. waitblit2
  36.     move.w DMACONR(a6),d7
  37.     lsr.w #7,d7
  38.     btst #7,d7
  39.     bne.s waitblit2
  40.     rts