home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Assembler / dse-src5.dms / in.adf / intro2.S < prev    next >
Encoding:
Text File  |  1990-05-07  |  2.6 KB  |  127 lines
  1. ****     Sprite Demo     ****
  2. ****   © March 1989 by   ****
  3. ****   Joakim Hallberg   ****
  4. **** Mastermind of Sigma ****
  5.  
  6. ;Konstanter
  7.  
  8. custom:     equ   $dff000
  9. bplcon0:    equ   $100
  10. bplcon1:    equ   $102
  11. bplcon2:    equ   $104
  12. bpl1mod:    equ   $108
  13. ddfstrt:    equ   $092
  14. ddfstop:    equ   $094
  15. diwstrt:    equ   $08e
  16. diwstop:    equ   $090
  17. vposr:      equ   $004
  18. color00:    equ   $180
  19. color01:    equ   $182
  20. color17:    equ   $1a2
  21. color18:    equ   $1a4
  22. color19:    equ   $1a6
  23. dmacon:     equ   $096
  24. cop1lc:     equ   $080
  25. copjmp1:    equ   $088
  26.  
  27.       lea      custom,a0
  28.       move.w   #$1200,bplcon0(a0)
  29.       move.w   #$0000,bpl1mod(a0)
  30.       move.w   #$0000,bplcon1(a0)
  31.       move.w   #$0024,bplcon2(a0)
  32.       move.w   #$0038,ddfstrt(a0)
  33.       move.w   #$00d0,ddfstop(a0)
  34.       move.w   #$2c81,diwstrt(a0)
  35.       move.w   #$f4c1,diwstop(a0)
  36.  
  37.       move.w   #$0008,color00(a0)
  38.       move.w   #$0000,color01(a0)
  39.       move.w   #$0ff0,color17(a0)
  40.       move.w   #$00ff,color18(a0)
  41.       move.w   #$0f0f,color19(a0)
  42.  
  43.       move.l   #$20000,a1
  44.       lea      copperl,a2
  45. cloop:
  46.       move.l   (a2),(a1)+
  47.       cmp.l    #$fffffffe,(a2)+
  48.       bne      cloop
  49.  
  50.       move.l   #$25000,a1
  51.       lea      sprite,a2
  52. sprloop:
  53.       move.l   (a2),(a1)+
  54.       cmp.l    #$00000000,(a2)+
  55.       bne      sprloop
  56.  
  57.       move.l   #$00000000,$30000
  58.  
  59.       move.l   #$16000,a1
  60.       move.w   #2000,d0
  61. floop:
  62.       move.l   #$ffffffff,(a1)+
  63.       subq.w   #1,d0
  64.       bne      floop
  65.  
  66.       move.w   #$0080,custom+dmacon
  67.       move.l   #$20000,custom+cop1lc
  68.       move.w   custom+copjmp1,d0
  69.       move.w   #$83a0,custom+dmacon
  70.    
  71.       move.w   #0000,d5
  72. loop:
  73.       move.b   $dff006,d0
  74.       cmp.b    #$ff,d0
  75.       bne      loop
  76.       jsr      vloop(pc)
  77.       bra      loop
  78.  
  79. copperl:
  80.       dc.w     $00e0,$0001
  81.       dc.w     $00e2,$6000
  82.       dc.w     $0120,$0002
  83.       dc.w     $0122,$5000
  84.       dc.w     $0124,$0003
  85.       dc.w     $0126,$0000
  86.       dc.w     $0128,$0003
  87.       dc.w     $012a,$0000
  88.       dc.w     $012c,$0003
  89.       dc.w     $012e,$0000
  90.       dc.w     $0130,$0003
  91.       dc.w     $0132,$0000
  92.       dc.w     $0134,$0003
  93.       dc.w     $0136,$0000
  94.       dc.w     $0138,$0003
  95.       dc.w     $013a,$0000
  96.       dc.w     $013c,$0003
  97.       dc.w     $013e,$0000
  98.       dc.w     $ffff,$fffe
  99.  
  100. sprite:
  101.       dc.w     $6d60,$7200
  102.       dc.w     $0990,$07e0
  103.       dc.w     $13c8,$0ff0
  104.       dc.w     $23c4,$1ff8
  105.       dc.w     $13c8,$0ff0
  106.       dc.w     $0990,$07e0
  107.       dc.w     $0000,$0000
  108.  
  109. vloop:
  110.       move.b   $25001,d0
  111.       add.b    #1,d0
  112.       move.b   d0,$25001
  113.       jsr      pause
  114.       rts
  115.  
  116. pause:
  117.       move.w   $26000,d5
  118.       add.w    $10,d5
  119.       move.w   d5,$26000
  120. ause:
  121.       dbf      d5,ause
  122.       rts
  123.  
  124.  
  125.  
  126.  
  127.