NUMB EQU 10 TABLA EQU 9000H STRT: PUSH PSW SETB RS0 CLR RS1 MOV R0,#18H LP51: MOV @R0,#0 INC R0 CJNE R0,#1CH,LP51 MOV R0,#30H LP52: MOV @R0,#0 INC R0 CJNE R0,#40H,LP52 MOV B,#NUMB MOV DPTR,#TABLA LOOP3: ACALL GETA LCALL INVX LCALL LD6 LCALL GET1 LCALL FPAD LCALL LD1 ACALL GET6 PUSH DPL PUSH DPH ACALL GETA POP DPH POP DPL LCALL FPMU ACALL LD7 LCALL GET2 LCALL FPAD LCALL LD2 ACALL GET7 LCALL SAV0 LCALL FPMU LCALL GET3 LCALL FPAD LCALL LD3 ACALL GET6 LCALL SAV0 LCALL FPMU ACALL LD6 LCALL GET4 LCALL FPAD LCALL LD4 ACALL GET6 ACALL GETA LCALL FPMU ACALL GET5 LCALL FPAD ACALL LD5 DJNZ B,LOOP3 LCALL GET4 LCALL SAV0 LCALL GET3 LCALL FPMU ACALL LD6 ACALL GET5 LCALL SAV0 LCALL FPMU ACALL GET6 LCALL FPSU ACALL LD6 LCALL GET2 LCALL SAV0 LCALL GET4 LCALL FPMU ACALL LD7 LCALL GET1 LCALL SAV0 ACALL GET5 LCALL FPMU ACALL GET7 LCALL FPSU ACALL GET6 LCALL EX LCALL FPDI ACALL LD7 ACALL GET5 LCALL FPMU LCALL GET1 LCALL FPSU LCALL GET4 LCALL EX LCALL FPDI ACALL LD6 POP PSW RET GETA: PUSH 8 MOV R0,#0CH GETL: MOVX A,@DPTR MOV @R0,A INC DPTR INC R0 CJNE R0,#10H,GETL POP 8 RET LD5: MOV 3CH,R4 MOV 3DH,R5 MOV 3EH,R6 MOV 3FH,R7 RET LD6: MOV 40H,R4 MOV 41H,R5 MOV 42H,R6 MOV 43H,R7 RET LD7: MOV 44H,R4 MOV 45H,R5 MOV 46H,R6 MOV 47H,R7 RET GET5: MOV R0,3CH MOV R1,3DH MOV R2,3EH MOV R3,3FH RET GET6: MOV R0,40H MOV R1,41H MOV R2,42H MOV R3,43H RET GET7: MOV R0,44H MOV R1,45H MOV R2,46H MOV R3,47H RET