home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Assembler / dse-src5.dms / in.adf / copper3.S < prev    next >
Encoding:
Text File  |  1990-05-07  |  4.5 KB  |  156 lines
  1. execbase:   equ      4
  2. dmacon:     equ      $dff096
  3. copjmp1:    equ      $dff088
  4. cop1lc:     equ      $dff080
  5.  
  6. copproglen: equ      134*4
  7.  
  8.             move.l   execbase,a6
  9.             move.l   #copproglen,d0
  10.             moveq    #2,d1
  11.             jsr      -198(a6)
  12.             move.l   d0,a0
  13.  
  14.             lea      copprog(pc),a1
  15.             move.w   #copproglen/2-1,d1
  16. copy_lp1:   move.w   (a1)+,(a0)+
  17.  
  18.             dbf      d1,copy_lp1
  19.  
  20.             move.w   #%0000000100000000,dmacon
  21.             move.l   d0,cop1lc
  22.             move.w   #%1000000100000000,dmacon
  23.  
  24. infinit:    bra.s    infinit
  25.  
  26. copprog:    dc.w     $180,$000
  27.  
  28.             dc.w     $1e01,$fffe
  29.             dc.w     $180,$fff
  30.             dc.w     $1f01,$fffe
  31.             dc.w     $180,$eee
  32.             dc.w     $2001,$fffe
  33.             dc.w     $180,$ddd
  34.             dc.w     $2101,$fffe
  35.             dc.w     $180,$ccc
  36.             dc.w     $2201,$fffe
  37.             dc.w     $180,$bbb
  38.             dc.w     $2301,$fffe
  39.             dc.w     $180,$aaa
  40.             dc.w     $2401,$fffe
  41.             dc.w     $180,$999
  42.             dc.w     $2501,$fffe
  43.             dc.w     $180,$888
  44.             dc.w     $2601,$fffe
  45.             dc.w     $180,$777
  46.             dc.w     $2701,$fffe
  47.             dc.w     $180,$666
  48.             dc.w     $2801,$fffe
  49.             dc.w     $180,$555
  50.             dc.w     $2901,$fffe
  51.             dc.w     $180,$444
  52.             dc.w     $2a01,$fffe
  53.             dc.w     $180,$333
  54.             dc.w     $2b01,$fffe
  55.             dc.w     $180,$222
  56.             dc.w     $2c01,$fffe
  57.             dc.w     $180,$111
  58.             dc.w     $2d01,$fffe
  59.             dc.w     $180,$000
  60.             dc.w     $6901,$fffe
  61.             dc.w     $180,$111
  62.             dc.w     $6a01,$fffe
  63.             dc.w     $180,$222
  64.             dc.w     $6b01,$fffe
  65.             dc.w     $180,$333
  66.             dc.w     $6c01,$fffe
  67.             dc.w     $180,$444
  68.             dc.w     $6d01,$fffe
  69.             dc.w     $180,$555
  70.             dc.w     $6e01,$fffe
  71.             dc.w     $180,$666
  72.             dc.w     $6f01,$fffe
  73.             dc.w     $180,$777
  74.             dc.w     $7001,$fffe
  75.             dc.w     $180,$888
  76.             dc.w     $7101,$fffe
  77.             dc.w     $180,$999
  78.             dc.w     $7201,$fffe
  79.             dc.w     $180,$aaa
  80.             dc.w     $7301,$fffe
  81.             dc.w     $180,$bbb
  82.             dc.w     $7401,$fffe
  83.             dc.w     $180,$ccc
  84.             dc.w     $7501,$fffe
  85.             dc.w     $180,$ddd
  86.             dc.w     $7601,$fffe
  87.             dc.w     $180,$eee
  88.             dc.w     $7701,$fffe
  89.             dc.w     $180,$fff
  90.             dc.w     $7801,$fffe
  91.             dc.w     $180,$eee
  92.             dc.w     $7901,$fffe
  93.             dc.w     $180,$ddd
  94.             dc.w     $7a01,$fffe
  95.             dc.w     $180,$ccc
  96.             dc.w     $7b01,$fffe
  97.             dc.w     $180,$bbb
  98.             dc.w     $7c01,$fffe
  99.             dc.w     $180,$aaa
  100.             dc.w     $7d01,$fffe
  101.             dc.w     $180,$999
  102.             dc.w     $7e01,$fffe
  103.             dc.w     $180,$888
  104.             dc.w     $7f01,$fffe
  105.             dc.w     $180,$777
  106.             dc.w     $8001,$fffe
  107.             dc.w     $180,$666
  108.             dc.w     $8101,$fffe
  109.             dc.w     $180,$555
  110.             dc.w     $8201,$fffe
  111.             dc.w     $180,$444
  112.             dc.w     $8301,$fffe
  113.             dc.w     $180,$333
  114.             dc.w     $8401,$fffe
  115.             dc.w     $180,$222
  116.             dc.w     $8501,$fffe
  117.             dc.w     $180,$111
  118.             dc.w     $8601,$fffe
  119.             dc.w     $180,$000
  120.             dc.w     $f101,$fffe
  121.             dc.w     $180,$110
  122.             dc.w     $f201,$fffe
  123.             dc.w     $180,$220
  124.             dc.w     $f301,$fffe
  125.             dc.w     $180,$330
  126.             dc.w     $f401,$fffe
  127.             dc.w     $180,$440
  128.             dc.w     $f501,$fffe
  129.             dc.w     $180,$550
  130.             dc.w     $f601,$fffe
  131.             dc.w     $180,$660
  132.             dc.w     $f701,$fffe
  133.             dc.w     $180,$770
  134.             dc.w     $f801,$fffe
  135.             dc.w     $180,$880
  136.             dc.w     $f901,$fffe
  137.             dc.w     $180,$990
  138.             dc.w     $fa01,$fffe
  139.             dc.w     $180,$aa0
  140.             dc.w     $fb01,$fffe
  141.             dc.w     $180,$bb0
  142.             dc.w     $fc01,$fffe
  143.             dc.w     $180,$cc0
  144.             dc.w     $fd01,$fffe
  145.             dc.w     $180,$dd0
  146.             dc.w     $fe01,$fffe
  147.             dc.w     $180,$ee0
  148.             dc.w     $ff01,$fffe
  149.             dc.w     $180,$ff0
  150.  
  151.             dc.w     $ffff,$fffe
  152.  
  153.             end
  154.  
  155.  
  156.