SHARE
TWEET

Untitled

a guest Oct 23rd, 2019 75 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. x equ r0
  2.  y equ r1
  3.  co equ r2
  4.  xx equ r3
  5.  
  6. cseg at 0
  7.  jmp main
  8. cseg at 5
  9.  cos: // co=(((y*13)>>8)*(0x7f-((y*6)>>8)))>>8;
  10.          mov a,y
  11.          mov b,#13
  12.          mul ab    ;((y*13)>>8)
  13.          mov xx,b
  14.        
  15.          mov a,y
  16.          mov b,#6    ;((y*6)>>8)
  17.          mul ab
  18.          mov a,#0x7f
  19.          subb a,b
  20.          mov b,xx
  21.          mul ab      ;co
  22.          mov co,b   ;co=(((y*43)>>8)*(0x7f-co))>>8;
  23.          mov a,y
  24.          mov b,#43
  25.          mul ab    ;((y*43)>>8)
  26.          mov xx,b
  27.          mov a,#0x7f
  28.          subb a,co
  29.          mul ab      ;co
  30.          mov co,b       ;co=(x*(0xff-co))>>8;
  31.          mov a,#0xff
  32.          subb a,co
  33.          mov b,x
  34.          mul ab      ;co=b
  35.          mov co,b
  36.          ret
  37.          
  38.   main:   ;for(x=0; x<=0x0ff; x++)
  39.         mov x,#0     ;y=(x*x)>>8;
  40.     cikl:  ;  cos(y);
  41.          mov a,x
  42.          mov b,x
  43.          mul ab
  44.          mov y,b
  45.          call cos
  46.          mov P3, co
  47.          inc x
  48.          cjne x,#0x7f,cikl
  49.          jmp main
  50.          nop
  51.          end
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top