x equ r0
 y equ r1
 co equ r2
 xx equ r3

cseg at 0
 jmp main
cseg at 5
 cos: // co=(((y*13)>>8)*(0x7f-((y*6)>>8)))>>8;
		 mov a,y
		 mov b,#13
		 mul ab    ;((y*13)>>8)
		 mov xx,b

		 mov a,y
		 mov b,#6    ;((y*6)>>8)
		 mul ab
		 mov a,#0x7f
		 subb a,b
		 mov b,xx
		 mul ab      ;co
		 mov co,b	;co=(((y*43)>>8)*(0x7f-co))>>8;
		 mov a,y
		 mov b,#43
		 mul ab    ;((y*43)>>8)
		 mov xx,b
		 mov a,#0x7f
		 subb a,co
		 mul ab      ;co
		 mov co,b		;co=(x*(0xff-co))>>8;
		 mov a,#0xff
		 subb a,co
		 mov b,x
		 mul ab      ;co=b
		 mov co,b
		 ret

  main:   ;for(x=0; x<=0x0ff; x++)
		mov x,#0	 ;y=(x*x)>>8;
	cikl:  ;  cos(y);
		 mov a,x
		 mov b,x
		 mul ab
		 mov y,b
		 call cos
		 mov P3, co
		 inc x
		 cjne x,#0x7f,cikl
		 jmp main
		 nop
		 end