7.1.12最小二乘法拟合.txt

MCS－51单片机应用开发实用子程序.zip

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