home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Assembler / dse-src5.dms / in.adf / sprite.S < prev    next >
Encoding:
Text File  |  1990-05-07  |  2.1 KB  |  93 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. color17:    equ   $1a2
  14. color18:    equ   $1a4
  15. color19:    equ   $1a6
  16. dmacon:     equ   $096
  17. cop1lc:     equ   $080
  18. copjmp1:    equ   $088
  19.  
  20.       lea      custom,a0
  21.       move.w   #$1200,bplcon0(a0)
  22.       move.w   #$0000,bpl1mod(a0)
  23.       move.w   #$0000,bplcon1(a0)
  24.       move.w   #$0024,bplcon2(a0)
  25.       move.w   #$0025,ddfstrt(a0)
  26.       move.w   #$00d0,ddfstop(a0)
  27.       move.w   #$1f18,diwstrt(a0)
  28.       move.w   #$00d8,diwstop(a0)
  29.  
  30.       move.w   #$0008,color00(a0)
  31.       move.w   #$0000,color01(a0)
  32.       move.w   #$0fff,color17(a0)
  33.       move.w   #$0fff,color18(a0)
  34.       move.w   #$0fff,color19(a0)
  35.  
  36.       move.l   #$20000,a1
  37.       lea      copperl,a2
  38. cloop:
  39.       move.l   (a2),(a1)+
  40.       cmp.l    #$fffffffe,(a2)+
  41.       bne      cloop
  42.  
  43.       move.l   #$25000,a1
  44.       lea      sprite,a2
  45. sprloop:
  46.       move.l   (a2),(a1)+
  47.       cmp.l    #$00000000,(a2)+
  48.       bne      sprloop
  49.  
  50.       move.l   #$00000000,$30000
  51.  
  52.       move.l   #$21000,a1
  53.       move.w   #2000,d0
  54. floop:
  55.       move.l   #$ffffffff,(a1)+
  56.       subq.w   #1,d0
  57.       bne      floop
  58.  
  59.       move.w   #$0080,custom+dmacon
  60.       move.l   #$20000,custom+cop1lc
  61.       move.w   custom+copjmp1,d0
  62.       move.w   #$83a0,custom+dmacon
  63.  
  64. main:
  65.       bra      main
  66.    
  67. copperl:
  68.       dc.w     $00e0,$0002
  69.       dc.w     $00e2,$1000
  70.       dc.w     $0120,$0002
  71.       dc.w     $0122,$5000
  72.       dc.w     $0124,$0003
  73.       dc.w     $0126,$0000
  74.       dc.w     $0128,$0003
  75.       dc.w     $012a,$0000
  76.       dc.w     $012c,$0003
  77.       dc.w     $012e,$0000
  78.       dc.w     $0130,$0003
  79.       dc.w     $0132,$0000
  80.       dc.w     $0134,$0003
  81.       dc.w     $0136,$0000
  82.       dc.w     $0138,$0003
  83.       dc.w     $013a,$0000
  84.       dc.w     $013c,$0003
  85.       dc.w     $013e,$0000
  86.       dc.w     $ffff,$fffe
  87.  
  88. sprite:
  89.       dc.w     $2d60,$2e00
  90.       dc.w     $0001,$0000
  91.       dc.w     $0000,$0000
  92.     
  93.