1: !R10 = 输入值 ;
2: !R11 = 输出结果 ;
3: !R13 = 个位值 ;
4: !R14 =小数后第一位 ;
5: ;
6: --ch:精度0.1 不四舍五入 ;
7: ;
8: !初始值 ;
9: R[1]=10 ;
10: R[2]=20 ;
11: R[3]=100 ;
12: R[13]=0 ;
13: R[14]=0 ;
14: R[5]=1 ;
15: ;
16: !个位值 ;
17: LBL[100] ;
18: R[6]=R[5]*R[5] ;
19: IF (R[10]<=R[6]) THEN ;
20: R[13]=R[5]-1 ;
21: ELSE ;
22: R[5]=R[5]+1 ;
23: JMP LBL[100] ;
24: ENDIF ;
25: ;
26: !小数后一位 ;
27: ;
28: R[7]=(R[10]-R[13]*R[13]) ;
29: ;
30: R[7]=R[7]*R[3] ;
31: R[8]=R[13]*R[2] ;
32: ;
33: IF (R[8]=R[7]) THEN ;
34: R[14]=1 ;
35: JMP LBL[2] ;
36: ENDIF ;
37: ;
38: IF (R[8]>R[7]) THEN ;
39: R[14]=0 ;
40: JMP LBL[2] ;
41: ENDIF ;
42: ;
43: R[4]=9 ;
44: LBL[1] ;
45: IF (R[8]<R[7]) THEN ;
46: R[9]=R[8]*R[4] ;
47: IF (R[9]<R[7]) THEN ;
48: R[14]=R[4] ;
49: ELSE ;
50: R[4]=R[4]-1 ;
51: JMP LBL[1] ;
52: ENDIF ;
53: ENDIF ;
54: LBL[2] ;
55: ;
56: !结果 ;
57: R[11]=R[14]/10 ;
58: R[11]=R[11]+R[13] ;
/POS
/END