home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Assembler / dse-src5.dms / in.adf / Display.S < prev    next >
Encoding:
Text File  |  1990-05-07  |  1.7 KB  |  65 lines
  1. ****  © March 1989 by  ****
  2. ****   Roger Nilsson   ****
  3. **** alias MegaStar of ****
  4. ****       SIGMA       ****
  5. ****       ^^^^^       ****
  6.  
  7. custom:     equ         $dff000
  8. bplcon0:    equ         $100
  9. bplcon1:    equ         $102
  10. bplcon2:    equ         $104
  11. bpl1mod:    equ         $108
  12. ddfstrt:    equ         $092
  13. ddfstop:    equ         $094
  14. diwstrt:    equ         $08e
  15. diwstop:    equ         $090
  16. vposr:      equ         $004
  17. color00:    equ         $180
  18. color01:    equ         $182
  19. color02:    equ         $184
  20. color03:    equ         $186
  21. dmacon:     equ         $096
  22. cop1lch:    equ         $080
  23. copjmp1:    equ         $088
  24.  
  25.             lea         custom,a0
  26.             move.w      #$1200,bplcon0(a0)
  27.             move.w      #0,bplcon1(a0)
  28.             move.w      #0,bpl1mod(a0)
  29.             move.w      #$0038,ddfstrt(a0)
  30.             move.w      #$00d0,ddfstop(a0)
  31.             move.w      #$2c81,diwstrt(a0)
  32.             move.w      #$f4c1,diwstop(a0)
  33.             move.w      #$0f00,color00(a0)
  34.             move.w      #$0ff0,color01(a0)
  35.  
  36.             move.l      #$21000,a1
  37.             move.l      #$ff00ff00,d0
  38.             move.w      #2000,d1
  39.  
  40. loop:       move.l      d0,(a1)+
  41.             subq.w      #1,d1
  42.             bne         loop
  43.  
  44.             move.l      #$20000,a1
  45.             lea         copperl,a2
  46. cloop:      move.l      (a2),(a1)+
  47.             cmpi.l      #$ffffffff,(a2)+
  48.             bne         cloop
  49.  
  50.             move.l      #$20000,cop1lch(a0)
  51.             move.w      copjmp1(a0),d0
  52.  
  53.             move.w      #$8380,dmacon(a0)
  54. branch:     bra.s       branch
  55.  
  56. copperl:
  57.             dc.w        $00e0,$0002
  58.  
  59.             dc.w        $00e2,$1000
  60.  
  61.             dc.w        $ffff,$fffe
  62.  
  63.             end
  64.  
  65.