home *** CD-ROM | disk | FTP | other *** search
/ The C Users' Group Library 1994 August / wc-cdrom-cusersgrouplibrary-1994-08.iso / vol_300 / 338_02 / test.asm < prev   
Assembly Source File  |  1989-12-01  |  347b  |  30 lines
  1. *    data    2
  2. i    DS      80
  3.  
  4. *    text
  5. main    link    A6,#-4
  6.     movem.l    A4/,-(A7)
  7.     move    #0,D3
  8. L0000    NOP
  9.     cmp.l    #20,D3
  10.     bge    L0001
  11.     move.l    D3,D0
  12.     add.l    D3,D0
  13.     move.l    D3,D1
  14.     asl.l    #2,D1
  15.     move.l    D1,A0
  16.     add.l    #i,A0
  17.     move.l    D0,(A0)
  18.     add.l    #1,D3
  19.     bra    L0000
  20. L0001    NOP
  21. L0002    NOP
  22.     movem.l    (A7)+,A4/
  23.     unlk    A6
  24.     rts
  25. *    global    i
  26. *    global    main
  27.  
  28.     END
  29.  
  30.