home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Assembler / dse-src5.dms / in.adf / copper2.s < prev    next >
Encoding:
Text File  |  1990-05-07  |  3.6 KB  |  130 lines
  1. execbase:   equ      4
  2. dmacon:     equ      $dff096
  3. copjmp1:    equ      $dff088
  4. cop1lc:     equ      $dff080
  5.  
  6. copproglen: equ      94*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.             beq.s    return
  14.  
  15.             lea      copprog(pc),a1
  16.             move.w   #copproglen/2-1,d1
  17. copy_lp1:   move.w   (a1)+,(a0)+
  18.  
  19.             dbf      d1,copy_lp1
  20.  
  21.             move.w   #%0000000100000000,dmacon
  22.             move.l   d0,cop1lc
  23.             move.w   #%1000000100000000,dmacon
  24.  
  25. infinit:    bra.s    infinit
  26.  
  27. return:     moveq    #0,d0
  28.             rts
  29.  
  30. copprog:    dc.w     $180,$000
  31.  
  32.             dc.w     $1e01,$fffe
  33.             dc.w     $180,$fff
  34.             dc.w     $1f01,$fffe
  35.             dc.w     $180,$eee
  36.             dc.w     $2001,$fffe
  37.             dc.w     $180,$ddd
  38.             dc.w     $2101,$fffe
  39.             dc.w     $180,$ccc
  40.             dc.w     $2201,$fffe
  41.             dc.w     $180,$bbb
  42.             dc.w     $2301,$fffe
  43.             dc.w     $180,$aaa
  44.             dc.w     $2401,$fffe
  45.             dc.w     $180,$999
  46.             dc.w     $2501,$fffe
  47.             dc.w     $180,$888
  48.             dc.w     $2601,$fffe
  49.             dc.w     $180,$777
  50.             dc.w     $2701,$fffe
  51.             dc.w     $180,$666
  52.             dc.w     $2801,$fffe
  53.             dc.w     $180,$555
  54.             dc.w     $2901,$fffe
  55.             dc.w     $180,$444
  56.             dc.w     $2a01,$fffe
  57.             dc.w     $180,$333
  58.             dc.w     $2b01,$fffe
  59.             dc.w     $180,$222
  60.             dc.w     $2c01,$fffe
  61.             dc.w     $180,$111
  62.             dc.w     $2d01,$fffe
  63.             dc.w     $180,$000
  64.             dc.w     $6901,$fffe
  65.             dc.w     $180,$111
  66.             dc.w     $6a01,$fffe
  67.             dc.w     $180,$222
  68.             dc.w     $6b01,$fffe
  69.             dc.w     $180,$333
  70.             dc.w     $6c01,$fffe
  71.             dc.w     $180,$444
  72.             dc.w     $6d01,$fffe
  73.             dc.w     $180,$555
  74.             dc.w     $6e01,$fffe
  75.             dc.w     $180,$666
  76.             dc.w     $6f01,$fffe
  77.             dc.w     $180,$777
  78.             dc.w     $7001,$fffe
  79.             dc.w     $180,$888
  80.             dc.w     $7101,$fffe
  81.             dc.w     $180,$999
  82.             dc.w     $7201,$fffe
  83.             dc.w     $180,$aaa
  84.             dc.w     $7301,$fffe
  85.             dc.w     $180,$bbb
  86.             dc.w     $7401,$fffe
  87.             dc.w     $180,$ccc
  88.             dc.w     $7501,$fffe
  89.             dc.w     $180,$ddd
  90.             dc.w     $7601,$fffe
  91.             dc.w     $180,$eee
  92.             dc.w     $7701,$fffe
  93.             dc.w     $180,$fff
  94.             dc.w     $7801,$fffe
  95.             dc.w     $180,$eee
  96.             dc.w     $7901,$fffe
  97.             dc.w     $180,$ddd
  98.             dc.w     $7a01,$fffe
  99.             dc.w     $180,$ccc
  100.             dc.w     $7b01,$fffe
  101.             dc.w     $180,$bbb
  102.             dc.w     $7c01,$fffe
  103.             dc.w     $180,$aaa
  104.             dc.w     $7d01,$fffe
  105.             dc.w     $180,$999
  106.             dc.w     $7e01,$fffe
  107.             dc.w     $180,$888
  108.             dc.w     $7f01,$fffe
  109.             dc.w     $180,$777
  110.             dc.w     $8001,$fffe
  111.             dc.w     $180,$666
  112.             dc.w     $8101,$fffe
  113.             dc.w     $180,$555
  114.             dc.w     $8201,$fffe
  115.             dc.w     $180,$444
  116.             dc.w     $8301,$fffe
  117.             dc.w     $180,$333
  118.             dc.w     $8401,$fffe
  119.             dc.w     $180,$222
  120.             dc.w     $8501,$fffe
  121.             dc.w     $180,$111
  122.             dc.w     $8601,$fffe
  123.             dc.w     $180,$000
  124.  
  125.             dc.w     $ffff,$fffe
  126.  
  127.             end
  128.  
  129.  
  130.