calc.asm

51单片机工程应用实例

; .\calc.SRC generated from: calc.c
; COMPILER INVOKED BY:
;        C:\Keil\C51\BIN\C51.EXE calc.c BROWSE DEBUG OBJECTEXTEND SRC(.\calc.SRC)

$NOMOD51

NAME	CALC

P0	DATA	080H
P1	DATA	090H
P2	DATA	0A0H
P3	DATA	0B0H
T0	BIT	0B0H.4
AC	BIT	0D0H.6
T1	BIT	0B0H.5
EA	BIT	0A8H.7
IE	DATA	0A8H
RD	BIT	0B0H.7
ES	BIT	0A8H.4
IP	DATA	0B8H
RI	BIT	098H.0
INT0	BIT	0B0H.2
CY	BIT	0D0H.7
TI	BIT	098H.1
INT1	BIT	0B0H.3
PS	BIT	0B8H.4
SP	DATA	081H
OV	BIT	0D0H.2
WR	BIT	0B0H.6
SBUF	DATA	099H
PCON	DATA	087H
SCON	DATA	098H
TMOD	DATA	089H
TCON	DATA	088H
IE0	BIT	088H.1
IE1	BIT	088H.3
B	DATA	0F0H
ACC	DATA	0E0H
ET0	BIT	0A8H.1
ET1	BIT	0A8H.3
TF0	BIT	088H.5
TF1	BIT	088H.7
RB8	BIT	098H.2
TH0	DATA	08CH
EX0	BIT	0A8H.0
IT0	BIT	088H.0
TH1	DATA	08DH
TB8	BIT	098H.3
EX1	BIT	0A8H.2
IT1	BIT	088H.2
P	BIT	0D0H.0
SM0	BIT	098H.7
TL0	DATA	08AH
SM1	BIT	098H.6
TL1	DATA	08BH
SM2	BIT	098H.5
PT0	BIT	0B8H.1
PT1	BIT	0B8H.3
RS0	BIT	0D0H.3
TR0	BIT	088H.4
RS1	BIT	0D0H.4
TR1	BIT	088H.6
PX0	BIT	0B8H.0
PX1	BIT	0B8H.2
DPH	DATA	083H
DPL	DATA	082H
REN	BIT	098H.4
RXD	BIT	0B0H.0
TXD	BIT	0B0H.1
F0	BIT	0D0H.5
PSW	DATA	0D0H
?PR?_calc?CALC       SEGMENT CODE 
?DT?_calc?CALC       SEGMENT DATA OVERLAYABLE 
	EXTRN	CODE (?C?LMUL)
	EXTRN	CODE (?C?ULDIV)
	EXTRN	CODE (?C?IMUL)
	PUBLIC	_calc

	RSEG  ?DT?_calc?CALC
?_calc?BYTE:
        pll?040:   DS   4
	ORG  4
         fg?041:   DS   4
         fx?043:   DS   5
; //C语言被调用部分
; #pragma SMALL
; #include <reg51.H>
; 
; unsigned int calc(unsigned long pll)

	RSEG  ?PR?_calc?CALC
_calc:
	USING	0
			; SOURCE LINE # 6
	MOV  	pll?040+03H,R7
	MOV  	pll?040+02H,R6
	MOV  	pll?040+01H,R5
	MOV  	pll?040,R4
; { 
			; SOURCE LINE # 7
; 	
; unsigned long  fg;
; unsigned int fr;
; unsigned char  fx[5];
; 
; 	
; 	fg=pll*8192+225000;
			; SOURCE LINE # 14
	CLR  	A
	MOV  	R7,A
	MOV  	R6,#020H
	MOV  	R5,A
	MOV  	R4,A
	MOV  	R3,pll?040+03H
	MOV  	R2,pll?040+02H
	MOV  	R1,pll?040+01H
	MOV  	R0,pll?040
	LCALL	?C?LMUL
	MOV  	A,R7
	ADD  	A,#0E8H
	MOV  	fg?041+03H,A
	MOV  	A,R6
	ADDC 	A,#06EH
	MOV  	fg?041+02H,A
	MOV  	A,R5
	ADDC 	A,#03H
	MOV  	fg?041+01H,A
	CLR  	A
	ADDC 	A,R4
	MOV  	fg?041,A
; 	
; 	fx[0]=fg/100000000;
			; SOURCE LINE # 16
	MOV  	R3,#00H
	MOV  	R2,#0E1H
	MOV  	R1,#0F5H
	MOV  	R0,#05H
	MOV  	R7,fg?041+03H
	MOV  	R6,fg?041+02H
	MOV  	R5,fg?041+01H
	MOV  	R4,A
	LCALL	?C?ULDIV
	MOV  	fx?043,R7
; 	fx[1]=(fg%100000000)/10000000;
			; SOURCE LINE # 17
	MOV  	R3,#00H
	MOV  	R2,#0E1H
	MOV  	R1,#0F5H
	MOV  	R0,#05H
	MOV  	R7,fg?041+03H
	MOV  	R6,fg?041+02H
	MOV  	R5,fg?041+01H
	MOV  	R4,fg?041
	LCALL	?C?ULDIV
	MOV  	R4,AR0
	MOV  	R5,AR1
	MOV  	R6,AR2
	MOV  	R7,AR3
	MOV  	R3,#080H
	MOV  	R2,#096H
	MOV  	R1,#098H
	MOV  	R0,#00H
	LCALL	?C?ULDIV
	MOV  	fx?043+01H,R7
; 	fx[2]=(fg%10000000)/1000000;
			; SOURCE LINE # 18
	MOV  	R3,#080H
	MOV  	R2,#096H
	MOV  	R1,#098H
	MOV  	R0,#00H
	MOV  	R7,fg?041+03H
	MOV  	R6,fg?041+02H
	MOV  	R5,fg?041+01H
	MOV  	R4,fg?041
	LCALL	?C?ULDIV
	MOV  	R4,AR0
	MOV  	R5,AR1
	MOV  	R6,AR2
	MOV  	R7,AR3
	MOV  	R3,#040H
	MOV  	R2,#042H
	MOV  	R1,#0FH
	MOV  	R0,#00H
	LCALL	?C?ULDIV
	MOV  	fx?043+02H,R7
; 	fx[3]=(fg%1000000)/100000;
			; SOURCE LINE # 19
	MOV  	R3,#040H
	MOV  	R2,#042H
	MOV  	R1,#0FH
	MOV  	R0,#00H
	MOV  	R7,fg?041+03H
	MOV  	R6,fg?041+02H
	MOV  	R5,fg?041+01H
	MOV  	R4,fg?041
	LCALL	?C?ULDIV
	MOV  	R4,AR0
	MOV  	R5,AR1
	MOV  	R6,AR2
	MOV  	R7,AR3
	MOV  	R3,#0A0H
	MOV  	R2,#086H
	MOV  	R1,#01H
	MOV  	R0,#00H
	LCALL	?C?ULDIV
	MOV  	fx?043+03H,R7
; 	fx[4]=(fg%100000)/10000;
			; SOURCE LINE # 20
	MOV  	R3,#0A0H
	MOV  	R2,#086H
	MOV  	R1,#01H
	MOV  	R0,#00H
	MOV  	R7,fg?041+03H
	MOV  	R6,fg?041+02H
	MOV  	R5,fg?041+01H
	MOV  	R4,fg?041
	LCALL	?C?ULDIV
	MOV  	R4,AR0
	MOV  	R5,AR1
	MOV  	R6,AR2
	MOV  	R7,AR3
	CLR  	A
	MOV  	R3,#010H
	MOV  	R2,#027H
	MOV  	R1,A
	MOV  	R0,A
	LCALL	?C?ULDIV
	MOV  	fx?043+04H,R7
; 	fg=fx[0]*10000+fx[1]*1000+fx[2]*100+fx[3]*10+fx[4];
			; SOURCE LINE # 21
	MOV  	R7,fx?043+01H
	MOV  	R6,#00H
	MOV  	R4,#03H
	MOV  	R5,#0E8H
	LCALL	?C?IMUL
	MOV  	R2,AR6
	MOV  	R3,AR7
	MOV  	R7,fx?043
	MOV  	R6,#00H
	MOV  	R4,#027H
	MOV  	R5,#010H
	LCALL	?C?IMUL
	MOV  	A,R7
	ADD  	A,R3
	MOV  	R5,A
	MOV  	A,R6
	ADDC 	A,R2
	MOV  	R4,A
	MOV  	A,fx?043+02H
	MOV  	B,#064H
	MUL  	AB
	ADD  	A,R5
	MOV  	R5,A
	MOV  	A,B
	ADDC 	A,R4
	MOV  	R4,A
	MOV  	A,fx?043+03H
	MOV  	B,#0AH
	MUL  	AB
	ADD  	A,R5
	MOV  	R7,A
	MOV  	A,B
	ADDC 	A,R4
	MOV  	R6,A
	MOV  	R4,#00H
	MOV  	A,R7
	ADD  	A,fx?043+04H
	MOV  	R7,A
	MOV  	A,R4
	ADDC 	A,R6
	MOV  	R6,A
	CLR  	A
	MOV  	fg?041+03H,R7
	MOV  	fg?041+02H,R6
	MOV  	fg?041+01H,A
	MOV  	fg?041,A
; 	if (fx[4]>5)fg=fg+1;
			; SOURCE LINE # 22
	MOV  	A,fx?043+04H
	SETB 	C
	SUBB 	A,#05H
	JC   	?C0001
	MOV  	A,fg?041+03H
	ADD  	A,#01H
	MOV  	fg?041+03H,A
	CLR  	A
	ADDC 	A,fg?041+02H
	MOV  	fg?041+02H,A
	CLR  	A
	ADDC 	A,fg?041+01H
	MOV  	fg?041+01H,A
	CLR  	A
	ADDC 	A,fg?041
	MOV  	fg?041,A
?C0001:
; 	fr=fg/10;
			; SOURCE LINE # 23
	CLR  	A
	MOV  	R3,#0AH
	MOV  	R2,A
	MOV  	R1,A
	MOV  	R0,A
	MOV  	R7,fg?041+03H
	MOV  	R6,fg?041+02H
	MOV  	R5,fg?041+01H
	MOV  	R4,fg?041
	LCALL	?C?ULDIV
;---- Variable 'fr?042' assigned to Register 'R6/R7' ----
; 
; 	return fr;	 
			; SOURCE LINE # 25
; }
			; SOURCE LINE # 26
?C0002:
	RET  	
; END OF _calc

	END