home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Assembler / dse-src5.dms / in.adf / Ham.S < prev    next >
Encoding:
Text File  |  1990-05-07  |  1.7 KB  |  73 lines
  1. *************************
  2. **** © March 1989 by ****
  3. ***** Roger Nilsson *****
  4. *** alias MegaStar of ***
  5. ********* Sigma *********
  6. ********* ^^^^^ *********
  7. *************************
  8.  
  9.          lea      $bfe000,a0
  10.          move.w   #$6a00,$100(a0)
  11.          move.w   #0,$102(a0)
  12.          move.w   #0,$108(a0)
  13.          move.w   #0,$10a(a0)
  14.          move.w   #$0038,$092(a0)
  15.          move.w   #$00d0,$094(a0)
  16.          move.w   #$2c81,$08e(a0)
  17.          move.w   #$f4c1,$090(a0)
  18.  
  19.          move.w   #32,d0
  20.          lea      $dff000+$180,a1
  21. cregloop:
  22.          move.w   #$0000,(a1)+
  23.          subq.w   #1,d0
  24.          bne      cregloop
  25.  
  26.          move.w   #2000,d0
  27.          move.l   #$21000,a1
  28.          move.l   #$23000,a2
  29.          move.l   #$25000,a3
  30.          move.l   #$27000,a4
  31.          move.l   #$29000,a5
  32.          move.l   #$2b000,a6
  33. fplloop:
  34.          move.l   #$55555555,(a1)+
  35.          move.l   #$33333333,(a2)+
  36.          move.l   #$0f0f0f0f,(a3)+
  37.          move.l   #$00ff00ff,(a4)+
  38.          move.l   #$ffffffff,(a5)+
  39.          move.l   #$00000000,(a6)+
  40.          subq.w   #1,d0
  41.          bne      fplloop
  42.  
  43.          move.l   #$20000,a1
  44.          lea      copperl,a2
  45. cloop:   move.l   (a2),(a1)+
  46.          cmpi.l   #$fffffffe,(a2)+
  47.          bne      cloop
  48.  
  49.          move.l   #$20000,$080(a0)
  50.          move.w   $088(a0),d0
  51.  
  52.          move.w   #$8380,$096(a0)
  53. Sigma:
  54.          bra      Sigma
  55.  
  56. copperl:
  57.          dc.w     $00e0,$0002
  58.          dc.w     $00e2,$1000
  59.          dc.w     $00e4,$0002
  60.          dc.w     $00e6,$3000
  61.          dc.w     $00e8,$0002
  62.          dc.w     $00ea,$5000
  63.          dc.w     $00ec,$0002
  64.          dc.w     $00ee,$7000
  65.          dc.w     $00f0,$0002
  66.          dc.w     $00f2,$9000
  67.          dc.w     $00f4,$0002
  68.          dc.w     $00f6,$b000
  69.          dc.w     $ffff,$fffe
  70.  
  71.          end
  72.  
  73.