home *** CD-ROM | disk | FTP | other *** search
/ Fujiology Archive / fujiology_archive_v1_0.iso / !FALCON / AGGRESSN / MOTION.ZIP / MOTION / DSP / SPEEDTST.S56 < prev    next >
Text File  |  1995-03-28  |  1KB  |  81 lines
  1. ; Gshade matikat by WizTom..      
  2.  
  3.  
  4. PBC    equ    $ffe0
  5. HSR    equ    $ffe9
  6. HTX    equ    $ffeb
  7.  
  8.     org    p:$0
  9.     jmp    start
  10.  
  11. ;    org    p:$40
  12.     dc    0,0,0,0,0,0,0,0,0,0
  13.     dc    0,0,0,0,0,0,0,0,0,0
  14.     dc    0,0,0,0,0,0,0,0,0,0
  15.     dc    0,0,0,0,0,0,0,0,0,0
  16.     dc    0,0,0,0,0,0,0,0,0,0
  17.     dc    0,0,0,0,0,0,0,0,0,0
  18.     dc    0,0
  19.  
  20. start    
  21.  
  22. ;get cords of one polygon
  23.  
  24.     move    #$ffff,m0    
  25.  
  26. ;    move    #screen,r0
  27. ;waco    movep    #1,X:PBC        ;yhden polyn x,y
  28. ;    jclr    #0,x:HSR,waco
  29. ;    move    x:HTX,x:(r0)+
  30. ;
  31. ;    move    #cords,r0
  32. ;    do    #3*3,feed_me1
  33. ;revi
  34. ;    movep    #1,X:PBC        ;yhden polyn x,y,z (kulman shadeval)
  35. ;    jclr    #0,x:HSR,revi
  36. ;    move    x:HTX,x:(r0)+
  37. ;feed_me1
  38.  
  39.     
  40. read    movep    #1,X:PBC        ;begin
  41.     jclr    #0,x:HSR,read
  42.     move    x:HTX,x0
  43.  
  44.     do    x0,loop
  45.     move    #0,a
  46.     mpy    x0,x0,a
  47. loop
  48.  
  49.  
  50. write
  51.     jclr    #1,X:HSR,write
  52.     move    x0,X:HTX        
  53.  
  54. dead    jmp    start
  55.  
  56.  
  57. ;jakolaskun testailuun..
  58.  
  59.     org    p:$40
  60.  
  61. jako                    ;divs x0,a,a0 (signed $123.456)
  62.     rep    #12
  63.     asr    a
  64.     andi    #$fe,ccr        ;clear carry
  65.     rep    #24
  66.     div    x0,a
  67.     asl    a
  68.     jclr    #23,x0,pos_diver
  69.     neg    a
  70. pos_diver
  71.     rts
  72.  
  73. ;------------------------------------
  74.  
  75.     org    x:0
  76. jakospare    ds    1
  77. screen        ds    1
  78. cords        ds    9
  79.     end
  80.  
  81.