home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Assembler / dse-src5.dms / in.adf / joystick2.s < prev    next >
Encoding:
Text File  |  1990-05-07  |  2.7 KB  |  91 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         $08
  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. mainv:      
  65.             bra         mainv                
  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. sprite:
  88.             dc.w        $2d60,$2e00
  89.             dc.w        $0001,$0000
  90.             dc.w        $0000,$0000
  91.