home *** CD-ROM | disk | FTP | other *** search
/ Fujiology Archive / fujiology_archive_v1_0.iso / !FALCON / AGGRESSN / MOTION.ZIP / MOTION / DSP / URGH.S56 < prev    next >
Text File  |  1995-04-23  |  506b  |  41 lines
  1.  
  2. MAXR    EQU    200
  3.  
  4.     ORG    P:$200
  5.  
  6.     move    #$ffff,m0
  7.     move    #$ffff,m1
  8.     move    #1,n0
  9.     move    #1,n1
  10.     move    #matrix,r1
  11.  
  12.     do    x0,rot
  13.     move    r1,r0
  14.     nop
  15.     move    x:(r0)+,x0
  16.     mpy    x0,x1,a        x:(r0)+,x0
  17.     mac    x0,y0,a        x:(r0)+,x0
  18.     mac    x0,y1,a
  19.     move    a,x0
  20.     add    #256+MAXR,x0
  21.     move    #<1,a
  22.     and    #$fe,ccr
  23.     rep    #24
  24.     div    x0,a
  25.     asl    a
  26.     move    x:(r0)+,x0
  27.     mpy    x0,x1,b        x:(r0)+,x0
  28.     mac    x0,y0,b        x:(r0)+,x0
  29.     mac    x0,y1,b        a,x0
  30.  
  31.     mpy    x0,x1,b        x:(r0)+,x0
  32.     mac    x0,y0,b        x:(r0)+,x0
  33.     mac    x0,y1,b
  34. rot
  35.  
  36. matrix    ds    5
  37.  
  38.     END
  39.  
  40.  
  41.