home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Assembler / dse-src5.dms / in.adf / scroll.S < prev    next >
Encoding:
Text File  |  1990-05-07  |  1.2 KB  |  68 lines
  1. custom:    equ    $dff000
  2. bplcon0:    equ    $100
  3. bplcon1:    equ    $102
  4. bplcon2:    equ    $104
  5. bpl1mod:    equ    $108
  6. ddfstrt:    equ    $092
  7. ddfstop:    equ    $094
  8. diwstrt:    equ    $08e
  9. diwstop:    equ    $090
  10. vposr:      equ    $004
  11. color00:    equ    $180
  12. color01:    equ    $182
  13. color02:    equ    $184
  14. color03:    equ    $186
  15. dmacon:     equ    $096
  16. cop1lch:    equ    $080
  17. copjmp1:    equ    $088
  18. bpl1pth:    equ    $0e0
  19. bpl1ptl:    equ    $0e2
  20.  
  21.         lea        custom,a0
  22.         move.w    #$1200,bplcon0(a0)
  23.         move.w    #0,bplcon1(a0)
  24.         move.w    #0,bpl1mod(a0)
  25.         move.w    #$0038,ddfstrt(a0)
  26.         move.w    #$00d0,ddfstop(a0)
  27.         move.w    #$2c81,diwstrt(a0)
  28.         move.w    #$f4c1,diwstop(a0)
  29.         move.w    #$0f00,color00(a0)
  30.         move.w    #$0ff0,color01(a0)
  31.         move.l    $00000,bpl1pth(a0)
  32.  
  33.         move.l    #$20000,a1
  34.         lea        copperl,a2
  35. cloop:    move.l    (a2),(a1)+
  36.         cmpi.l    #$fffffffe,(a2)+
  37.         bne        cloop
  38.  
  39.         move.l    #$20000,cop1lch(a0)
  40.         move.w    copjmp1(a0),d0
  41.         move.w    #$8380,dmacon(a0)
  42.  
  43. loop:        move.b    $dff006,d0
  44.         cmp.b        #$ff,d0
  45.         bne        loop
  46.  
  47.         andi.b    #64,$bfe001
  48.         bne        loop
  49.         jmp        $fc0000
  50.  
  51.         lea        custom,a0        
  52.             move.l       bpl1pth(a0),d0
  53.         add.l        #40,d0
  54.         move.l    d0,bpl1pth(a0)
  55. pause:    move.w    #50000,d1
  56. ause:        subq.w      #1,d1  
  57.         cmp.w        #0,d1
  58.         bne        ause    
  59.         bra        loop    
  60.  
  61. copperl:
  62.             dc.w        $180,$f00
  63.             dc.w        $a801,$ff00
  64.             dc.w        $180,$a59
  65.                dc.w        $ffff,$fffe
  66.     
  67.             end
  68.