新建 文本文档.txt

51单片机子程序

è??úì??t￡o±??a·?êy?úR2?￠R3?D?￡
3??úD??￠￡o??·??ùè??úR2?￠R3?D￡???êy2?·?μ???êy?a?-êyμ?ò?°?￡???óà?aD?êy?￡
ó°?ì×ê?′￡oPSW?￠A?￠B?￠R2??R7    ????Dè?ó￡o  ￡2×??ú

SH2:	MOV	A,R2
	ORL	A,R3
	JNZ	SH20
	RET		￡?±??a·?êy?aá?￡?2?±?????

SH20:	MOV	R7,#0	￡?×ó1?′?êy3?ê??ˉ
	MOV	A,R2
SH22:	ANL	A,#0C0H	￡?±??a·?êy??×??úD?óú￡′￡°￡è·?￡?
	JNZ	SQRH	￡?2?D?óú￡′￡°￡è￡?×ó1????ˉíê3é￡?×a?a·?1y3ì
	CLR	C	￡???×ó1?ò?′?￡?±??a·?êy×óò?á???
	MOV	A,R3
	RLC	A
	MOV	F0,C
	CLR	C
	RLC	A
	MOV	R3,A
	MOV	A,R2
	MOV	ACC.7,C
	MOV	C,F0
	RLC	A
	RLC	A
	MOV	R2,A
	INC	R7	￡?×ó1?′?êy?óò?
	SJMP	SH22	￡??ìD?×ó1?

    ￡¨￡±￡3￡?  ±êo?￡o  ￡ó￡è￡′    1|?ü￡o??×??ú?t?????T·?o?êy?a??·?￡¨?ì?ù￡?

è??úì??t￡o±??a·?êy?úR2?￠R3?￠R4?￠R5?D?￡

3??úD??￠￡o??·??ù?úR2?￠R3?D￡???êy2?·?μ???êy?a?-êyμ?ò?°?￡???óà?aD?êy?￡
ó°?ì×ê?′￡oPSW?￠A?￠B?￠R2??R7    ????Dè?ó￡o  ￡2×??ú

SH4:	MOV	A,R2
	ORL	A,R3
	ORL	A,R4
	ORL	A,R5
	JNZ	SH40
	RET		￡?±??a·?êy?aá?￡?2?±?????
SH40:	MOV	R7,#0	￡?×ó1?′?êy3?ê??ˉ
	MOV	A,R2
SH41:	ANL	A,#0C0H	￡?±??a·?êy??×??úD?óú￡′￡°￡è·?￡?
	JNZ	SQRH	￡?2?D?óú￡′￡°￡è￡?×ó1????ˉíê3é
	MOV	R6,#2	￡???×ó1?ò?′?￡?±??a·?êy×óò?á???
SH42:	CLR	C	￡?±??a·?êy×óò?ò???
	MOV	A,R5
	RLC	A

MOV	R5,A
	MOV	A,R4
	RLC	A
	MOV	R4,A
	MOV	A,R3
	RLC	A
	MOV	R3,A
	MOV	A,R2
	RLC	A
	MOV	R2,A
	DJNZ	R6,SH42	￡?±??a·?êy×óò?íêá???
	INC	R7	￡?×ó1?′?êy?óò?
	SJMP	SH41	￡??ìD?×ó1?
SQRH:	MOV	A,R2    ￡?1????ˉoó??×??ú°′????·¨·??aèy??????
	ADD	A,#57H
	JC	SQR2
	ADD	A,#45H
	JC	SQR1
	ADD	A,#24H
	MOV	B,#0E3H	￡?μúò?????μ?D±?ê
	MOV	R4,#80H	￡?μúò?????μ???·??ù?ùêy
	SJMP	SQR3
SQR1:	MOV	B,#0B2H	￡?μú?t????μ?D±?ê
	MOV	R4,#0A0H￡?μú?t????μ???·??ù?ùêy

SJMP	SQR3
SQR2:	MOV	B,#8DH	￡?μúèy????μ?D±?ê
	MOV	R4,#0D0H￡?μúèy????μ???·??ù?ùêy
SQR3:	MUL	AB	￡?ó??????ùμ?μ???ò?á?3?????D±?ê
	MOV	A,B
	ADD	A,R4	￡?à??óμ???·??ùμ??ùêyé?
	MOV	R4,A
	MOV	B,A
	MUL	AB	￡??óμ±?°??·??ùμ??Y
	XCH	A,R3	￡??ó??ò?á?￡¨′?·??úR2R3?D￡?
	CLR	C
	SUBB	A,R3
	MOV	R3,A
	MOV	A,R2
	SUBB	A,B
	MOV	R2,A
SQR4:	SETB	C	￡?ó?????êy·¨D￡?yò???×??úμ???·??ù
	MOV	A,R4	￡?μ±?°??·??ùμ?á?±??óò?′?è?R5R6?D
	RLC	A
	MOV	R6,A

CLR	A
	RLC	A
	MOV	R5,A
	MOV	A,R3	￡???ò?á?D?óú????êy·?￡?
	SUBB	A,R6
	MOV	B,A
	MOV	A,R2
	SUBB	A,R5
	JC	SQR5	￡?D?óú￡?D￡?y?áê?￡?ò?′?μ?ò???×??úμ????è
	INC	R4	￡?2?D?óú￡???·??ù?óò?
	MOV	R2,A	￡?±￡′?D?μ???ò?á?
	MOV	R3,B
	SJMP	SQR4	￡??ìD?D￡?y
SQR5:	MOV	A,R4	￡???ò???×??ú???èμ??ù′?è?R2
	XCH	A,R2
	RRC	A
	MOV	F0,C	￡?±￡′?×?????ò?á?μ?×?????
	MOV	A,R3
	MOV	R5,A	￡???×?????ò?á?μ?μí°???′?è?R5?D
	MOV	R4,#8	￡?í¨1y￡¨R5R6￡ˉR2￡??ó?ùμ?μí×??ú

SQR6:	CLR	C
	MOV	A,R3
	RLC	A
	MOV	R3,A
	CLR	C
	MOV	A,R5
	SUBB	A,R2
	JB	F0,SQR7
	JC	SQR8
SQR7:	MOV	R5,A
	INC	R3
SQR8:	CLR	C
	MOV	A,R5
	RLC	A
	MOV	R5,A
	MOV	F0,C
	DJNZ	R4,SQR6	￡??ùμ?μú?t×??ú????íê￡??úR3?D
	MOV	A,R7	￡?è??-±??a·?êyμ?×ó1?′?êy
	JZ	SQRE	￡??′×ó1?￡??a·??áê?
SQR9:	CLR	C	￡?°′×ó1?′?êyóòò???·??ù￡?μ?μ?êμ?ê?ù
	MOV	A,R2
	RRC	A
	MOV	R2,A
	MOV	A,R3
	RRC	A
	MOV	R3,A
	DJNZ	R7,SQR9
SQRE:	RET

    ￡¨￡±￡′￡?  ±êo?￡o  ￡è￡á￡ó￡?  1|?ü￡oμ￥×??úê?áù????êy×a??3é??×??úASCII??

è??úì??t￡o′y×a??μ?μ￥×??úê?áù????êy?úà??ó?÷A?D?￡
3??úD??￠￡o??????μ?ASCII???úA?D￡?μí????μ?ASCII???úB?D?￡
ó°?ì×ê?′￡oPSW?￠A?￠B    ????Dè?ó￡o  ￡′×??ú

HASC:	MOV	B,A	￡??Y′?′y×a??μ?μ￥×??úê?áù????êy
	LCALL	HAS1	￡?×a??μí????
	XCH	A,B	￡?′?·?μí????μ?ASCII??
	SWAP	A	￡?×?±?×a????????
HAS1:	ANL	A,#0FH	￡???à??ó?÷μ?μí????×a??3éASCII??
	ADD	A,#90H
	DA	A
	ADDC	A,#40H
	DA	A
	RET

    ￡¨￡±￡μ￡?  ±êo?￡o  ￡á￡ó￡?￡è    1|?ü￡oASCII??×a??3éê?áù????êy

è??úì??t￡o′y×a??μ?ASCII??￡¨30H??39H?ò41H??46H￡??úA?D?￡
3??úD??￠￡o×a??oóμ?ê?áù????êy￡¨00H??0FH￡?è??úà??ó?÷A?D?￡
ó°?ì×ê?′￡oPSW?￠A    ????Dè?ó￡o  ￡2×??ú

ASCH:	CLR	C
	SUBB	A,#30H
	JNB	ACC.4,ASH1
	SUBB	A,#7
ASH1:	RET

    ￡¨￡±￡?￡?  ±êo?￡o￡è￡?￡?￡?  1|?ü￡oμ￥×??úê?áù??????êy×a??3éμ￥×??ú￡?￡?￡?????êy

è??úì??t￡o′y×a??μ?μ￥×??úê?áù??????êy?úà??ó?÷A?D?￡
3??úD??￠￡o×a??oóμ?￡?￡?￡?????êy￡¨ê???oí????￡?è??úà??ó?÷A?D￡?°ù???úR3?D?￡

ó°?ì×ê?′￡oPSW?￠A?￠B?￠R3    ????Dè?ó￡o  ￡2×??ú

HBCD:	MOV	B,#100	￡?·?à?3?°ù??￡?′?·??úR3?D
	DIV	AB
	MOV	R3,A
	MOV	A,#10	￡?óàêy?ìD?·?à?ê???oí????
	XCH	A,B
	DIV	AB
	SWAP	A
	ORL	A,B	￡???ê???oí?????′×°3é￡?￡?￡???
	RET

    ￡¨￡±￡·￡?  ±êo?￡o ￡è￡?￡2   1|?ü￡o??×??úê?áù??????êy×a??3é??×??ú￡?￡?￡?????êy

è??úì??t￡o′y×a??μ???×??úê?áù??????êy?úR6?￠R7?D?￡
3??úD??￠￡o×a??oóμ?èy×??ú￡?￡?￡?????êy?úR3?￠R4?￠R5?D?￡
ó°?ì×ê?′￡oPSW?￠A?￠R2??R7    ????Dè?ó￡o  ￡2×??ú

HB2:	CLR	A	￡?￡?￡?￡???3?ê??ˉ
	MOV	R3,A
	MOV	R4,A
	MOV	R5,A
	MOV	R2,#10H	￡?×a????×??úê?áù??????êy
HB3:	MOV	A,R7	￡?′ó????ò?3?′y×a??êyμ?ò???μ?CY?D
	RLC	A
	MOV	R7,A
	MOV	A,R6
	RLC	A
	MOV	R6,A
	MOV	A,R5	￡?￡?￡?￡???′?????×?éí?à?ó￡??àμ±óú3?￡2
	ADDC	A,R5
	DA	A	￡?ê?????μ÷??
	MOV	R5,A
	MOV	A,R4
	ADDC	A,R4
	DA	A
	MOV	R4,A
	MOV	A,R3
	ADDC	A,R3
	MOV	R3,A	￡???×??úê?áù????êyμ?íò??êy2?3?1y￡?￡?2?ó?μ÷??
	DJNZ	R2,HB3	￡?′|àííê￡±￡?￡a￡é￡?

RET 	
	    	
    ￡¨￡±￡?￡?  ±êo?￡o  ￡è￡?￡?  1|?ü￡oμ￥×??úê?áù????D?êy×a??3éμ￥×??ú￡?￡?￡???D?êy

è??úì??t￡o′y×a??μ?μ￥×??úê?áù????D?êy?úà??ó?÷A?D?￡
3??úD??￠￡oCY=0ê±×a??oóμ?￡?￡?￡???D?êyè??úA?D?￡CY=1ê±?-D?êy?ó?ü??êy￡±?￡
ó°?ì×ê?′￡oPSW?￠A?￠B    ????Dè?ó￡o  ￡2×??ú

HBD:	MOV	B,#100	￡??-D?êyà?′óò?°ù±?
	MUL	AB
	RLC	A	￡?óàêy2?·???éá??è?
	CLR	A
	ADDC	A,B
	MOV	B,#10	￡?·?à?3?ê?·???oí°ù·???
	DIV	AB
	SWAP	A
	ADD	A,B	￡??′×°3éμ￥×??ú￡?￡?￡???D?êy
	DA	A	￡?μ÷??oóè?óD????￡??-D?êy?ó?ü??êy￡±

RET

    ￡¨￡±￡1￡? ±êo?￡o ￡è￡?￡?￡2  1|?ü￡o??×??úê?áù????D?êy×a??3é??×??ú￡?￡?￡???D?êy

è??úì??t￡o′y×a??μ???×??úê?áù????D?êy?úR2?￠R3?D?￡
3??úD??￠￡o×a??oóμ???×??ú￡?￡?￡???D?êyè??úR2?￠R3?D?￡
ó°?ì×ê?′￡oPSW?￠A?￠B?￠R2?￠R3?￠R4?￠R5    ????Dè?ó￡o  ￡?×??ú

HBD2:	MOV	R4,#4	￡?????ê???????
HBD3:	MOV	A,R3	￡??-D?êyà?′óê?±?
	MOV	B,#10
	MUL	AB
	MOV	R3,A
	MOV	R5,B
	MOV	A,R2
	MOV	B,#10
	MUL	AB
	ADD	A,R5
	MOV	R2,A
	CLR	A
	ADDC	A,B
	PUSH	ACC	￡?±￡′?ò?3?μ?ò???ê???????

DJNZ	R4,HBD3	￡?????íê????ê???????
	POP	ACC	￡?è?3?íò·???
	MOV	R3,A
	POP	ACC	￡?è?3??§·???
	SWAP	A
	ORL	A,R3	￡??′×°3éμí×??ú￡?￡?￡???D?êy
	MOV	R3,A
	POP	ACC	￡?è?3?°ù·???
	MOV	R2,A
	POP	ACC	￡?è?3?ê?·???
	SWAP	A
	ORL	A,R2	￡??′×°3é??×??ú￡?￡?￡???D?êy
	MOV	R2,A	
	RET

    ￡¨￡2￡°￡?±êo?￡o￡?￡?￡?￡è    1|?ü￡oμ￥×??ú￡?￡?￡?????êy×a??3éμ￥×??úê?áù??????êy

è??úì??t￡o′y×a??μ?μ￥×??ú￡?￡?￡?????êy?úà??ó?÷A?D?￡
3??úD??￠￡o×a??oóμ?μ￥×??úê?áù??????êyè??úà??ó?÷A?D?￡

ó°?ì×ê?′￡oPSW?￠A?￠B?￠R4    ????Dè?ó￡o  ￡2×??ú

BCDH:	MOV	B,#10H	￡?·?à?ê???oí????
	DIV	AB
	MOV	R4,B	￡??Y′?????
	MOV	B,#10	￡???ê???×a??3éê?áù????
	MUL	AB
	ADD	A,R4	￡?°′ê?áù?????óé?????
	RET

    ￡¨￡2￡±￡?±êo?￡o  ￡?￡è￡2   1|?ü￡o??×??ú￡?￡?￡?????êy×a??3é??×??úê?áù??????êy

è??úì??t￡o′y×a??μ???×??ú￡?￡?￡?????êy?úR2?￠R3?D?￡
3??úD??￠￡o×a??oóμ???×??úê?áù??????êyè??úR2?￠R3?D?￡
ó°?ì×ê?′￡oPSW?￠A?￠B?￠R2?￠R3?￠R4    ????Dè?ó￡o  ￡′×??ú

BH2:	MOV	A,R3	￡???μí×??ú×a??3éê?áù????

LCALL	BCDH
	MOV	R3,A
	MOV	A,R2	￡?????×??ú×a??3éê?áù????
	LCALL	BCDH
	MOV	B,#100	￡?à?′óò?°ù±?
	MUL	AB
	ADD	A,R3	￡?oíμí×??ú°′ê?áù?????à?ó
	MOV	R3,A
	CLR	A
	ADDC	A,B
	MOV	R2,A
	RET

    ￡¨￡2￡2￡?±êo?￡o  ￡?￡è￡?   1|?ü￡oμ￥×??ú￡?￡?￡???D?êy×a??3éμ￥×??úê?áù????D?êy

è??úì??t￡o′y×a??μ?μ￥×??ú￡?￡?￡???êy?úà??ó?÷A?D?￡
3??úD??￠￡o×a??oóμ?μ￥×??úê?áù????D?êyè??úà??ó?÷A?D?￡
ó°?ì×ê?′￡oPSW?￠A?￠R2?￠R3    ????Dè?ó￡o  ￡2×??ú

BHD:	MOV	R2,#8	￡?×?±?????ò???×??úD?êy

BHD0:	ADD	A,ACC	￡?°′ê?????±???
	DA	A
	XCH	A,R3
	RLC	A	￡???????±ê??ò?è??á1??D
	XCH	A,R3
	DJNZ	R2,BHD0	￡?12????￡?￡a￡é￡?D?êy
	ADD	A,#0B0H	￡?ê￡óà2?·?′?μ?￡°￡?￡μ￡°·?￡?
	JNC	BHD1	￡???éá
	INC	R3	￡???è?
BHD1:	MOV	A,R3	￡?è??á1?
	RET

    ￡¨￡2￡3￡?±êo?￡o ￡?￡è￡?￡2  1|?ü￡o??×??ú￡?￡?￡???D?êy×a??3é??×??úê?áù????D?êy

è??úì??t￡o′y×a??μ???×??ú￡?￡?￡???D?êy?úR4?￠R5?D?￡
3??úD??￠￡o×a??oóμ???×??úê?áù????D?êy?úR2?￠R3?D?￡*
ó°?ì×ê?′￡oPSW?￠A?￠R2??R6    ????Dè?ó￡o  ￡2×??ú

BHD2:	MOV	R6,#10H	￡?×?±?????á???×??úD?êy
BHD3:	MOV	A,R5	￡?°′ê?????±???
	ADD	A,R5
	DA	A
	MOV	R5,A
	MOV	A,R4
	ADDC	A,R4
	DA	A
	MOV	R4,A
	MOV	A,R3	￡???????±ê??ò?è??á1??D
	RLC	A
	MOV	R3,A
	MOV	A,R2
	RLC	A
	MOV	R2,A
	DJNZ	R6,BHD3	￡?12????￡±￡?￡a￡é￡?D?êy
	MOV	A,R4
	ADD	A,#0B0H	￡?ê￡óà2?·?′?μ?￡°￡?￡μ￡°·?￡?
	JNC	BHD4	￡???éá
	INC	R3	￡???è?
	MOV	A,R3
	JNZ	BHD4
	INC	R2
BHD4:	RET

    ￡¨￡2￡′￡?  ±êo?￡o  ￡í￡í    1|?ü￡o?óμ￥×??úê?áù?????T·?o?êy?Y?éμ????μ

è??úì??t￡oêy?Y?éμ?ê×?·?úDPTR?D￡?êy?Y??êy?úR7?D?￡
3??úD??￠￡o×?′ó?μ?úR6?D￡?μ??·?úR2R3?D￡?×?D??μ?úR7?D￡?μ??·?úR4R5?D?￡
ó°?ì×ê?′￡oPSW?￠A?￠B?￠R1??R7      ????Dè?ó￡o  ￡′×??ú

MM:	MOV	B,R7	￡?±￡′?êy?Y??êy
	MOVX	A,@DPTR	￡??áè?μúò???êy?Y
	MOV	R6,A	￡?×÷?a×?′ó?μμ?3?ê??μ
	MOV	R7,A	￡?ò2×÷?a×?D??μμ?3?ê??μ
	MOV	A,DPL	￡?è?μúò???êy?Yμ?μ??·
	MOV	R3,A	￡?×÷?a×?′ó?μ′?·?μ??·μ?3?ê??μ