源程序：

;*************************************************************
;*???????????????ME300B單片機(jī)開(kāi)發(fā)系統(tǒng)演示程序??????????????????????*
;*?????????????????????????????????????????????????????????????????*
;*?紅外遙控式簡(jiǎn)單計(jì)算器演示程序????????????????????????????????????*
;*?用紅外遙控器做輸入（適用新式遙控器）????????????????????????????*
;*?????????????????????????????????????????????????????????????????*
;*?LCD1602顯示方式：???????????????????????????????????????????????*
;*?LCD第一行顯示：CALCULATOR???????????????????????????????????????*
;*?LCD第二行顯示：運(yùn)算過(guò)程?????????????????????????????????????????*
;*?????????????????????????????????????????????????????????????????*
;*?主要功能：??????????????????????????????????????????????????????*
;*?0－99兩位數(shù)之間的加、減、乘、除整數(shù)運(yùn)算?????????????????????????*
;*?????????????????????????????????????????????????????????????????*
;***********************************************************

;K1為清零鍵
;數(shù)字鍵:0,1,2,3,4,5,6,7,8,9
;功能鍵:+,-,*,/,=

;－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
???????????RELAY???EQU??P1.3
???????????BEEP????EQU??P3.7
???????????IRIN????EQU??P3.2
;－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
???????????LCD_RS??EQU??P2.0
???????????LCD_RW??EQU??P2.1
???????????LCD_EN??EQU??P2.2
???????????LCD_X???EQU??3FH???????;LCD?地址變量
;－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
???????????TEMP1???EQU??30H???????;臨時(shí)暫存器
???????????TEMP2???EQU??31H
???????????TEMP3???EQU??32H
???????????TEMP4???EQU??33H

???????????RES_H???EQU??27H???????;輸入被加（減、乘、除）數(shù)
???????????RES_L???EQU??28H???????;輸入加（減、乘、除）數(shù)

???????????OUT_H???EQU??29H???????;運(yùn)算結(jié)果高位
???????????OUT_L???EQU??2AH???????;運(yùn)算結(jié)果低位

???????????IRCOM???EQU??22H???????;22H-25H?IR使用

;－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
???????????ORG??0000H
???????????JMP??MAIN
???????????ORG??0030H
;－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
MAIN:??????MOV??SP,#60H
???????????MOV??R1,#00H
???????????MOV??TEMP1,#00H
???????????MOV??TEMP2,#00H
???????????MOV??TEMP3,#00H
???????????MOV??RES_L,#00H
???????????MOV??RES_H,#00H
???????????MOV??OUT_H,#00H
???????????MOV??OUT_L,#00H
???????????MOV??20H,#00H
???????????CALL??SET_LCD

MAIN1:?????CALL??IR_IN?????????????;大于9的數(shù)無(wú)效
???????????JNB??20H.0,MAIN1
???????????SUBB??A,#0AH
???????????JNC??MAIN1??????????????;C=0，無(wú)借位
???????????MOV??A,R3???????????????;重裝鍵值
???????????JMP??LOOP_0
LOOP:
???????????CALL??IR_IN??????????????;送被（加、減、乘、除）數(shù)
???????????JNB??20H.0,LOOP??????????;鍵標(biāo)記
LOOP_0:
???????????INC??R1
???????????CJNE??R1,#01H,LOOP_1
???????????MOV??TEMP2,A?????????????;高位
???????????MOV??LCD_X,#2
???????????CALL??CONV0

LOOP_1:????CJNE??R1,#02H,LOOP
???????????SUBB??A,#0AH?????????????;判是否是功能鍵？
???????????JNC??LOOP_2??????????????;是，轉(zhuǎn)LOOP_2
???????????MOV??TEMP1,TEMP2
???????????MOV??A,TEMP1
???????????MOV??LCD_X,#1
???????????CALL??CONV0
???????????MOV??A,R3????????????????;恢復(fù)有效鍵值
???????????MOV??TEMP2,A?????????????;低位
???????????MOV??LCD_X,#2
???????????CALL??CONV0
???????????MOV??A,TEMP1
???????????ANL??A,#0FH
???????????SWAP??A
???????????ORL??A,TEMP2
???????????MOV??RES_H,A
???????????JMP??LOOP0
LOOP_2:
???????????MOV??RES_H,TEMP2
???????????AJMP??LOOP0A

LOOP0:?????CALL??IR_IN
???????????JNB??20H.0,LOOP0

LOOP0A:????MOV??A,R3?????????????????;重裝鍵值
???????????CJNE??A,#0AH,LOOP1????????;加運(yùn)算
???????????CALL??CONV1
???????????SETB??20H.1???????????????;加運(yùn)算標(biāo)記
???????????AJMP??LOOP5
LOOP1:?????CJNE??A,#0BH,LOOP2????????;減運(yùn)算
???????????CALL??CONV2
???????????SETB??20H.2???????????????;減運(yùn)算標(biāo)記
???????????AJMP??LOOP5
LOOP2:?????CJNE??A,#0CH,LOOP3????????;乘運(yùn)算
???????????CALL??CONV3
???????????SETB??20H.3???????????????;乘運(yùn)算標(biāo)記
???????????AJMP??LOOP5
LOOP3:?????CJNE??A,#0DH,LOOP4????????;除運(yùn)算
???????????CALL??CONV4
???????????SETB??20H.4???????????????;除運(yùn)算標(biāo)記
???????????AJMP??LOOP5
LOOP4:?????CJNE??A,#0FH,LOOP4A
???????????AJMP??MAIN

LOOP4A:????AJMP??LOOP0

LOOP5:?????MOV??R1,#00H
???????????MOV??TEMP1,#00H
???????????MOV??TEMP2,#00H
???????????CLR??20H.0????????????????;送（加、減、乘、除）數(shù)

LOOP5A:????CALL??IR_IN
???????????JNB??20H.0,LOOP5A
???????????;CALL??BEEP_BL

???????????CJNE??A,#0FH,LOOP5B
???????????AJMP??MAIN

LOOP5B:????INC??R1
???????????CJNE??R1,#01H,LOOP5C
???????????MOV??TEMP2,A
???????????MOV??LCD_X,#6
???????????CALL??CONV0

LOOP5C:????CJNE??R1,#02H,LOOP5A
???????????SUBB??A,#0AH?????????????;判是否是功能鍵？
???????????JNC??LOOP5D??????????????;是，轉(zhuǎn)LOOP5C
???????????MOV??TEMP1,TEMP2
???????????MOV??A,TEMP1
???????????MOV??LCD_X,#6
???????????CALL??CONV0
???????????MOV??A,R3
???????????MOV??TEMP2,A
???????????MOV??LCD_X,#7
???????????CALL??CONV0
???????????MOV??A,TEMP1
???????????ANL??A,#0FH
???????????SWAP??A
???????????ORL??A,TEMP2
???????????MOV??RES_L,A
???????????JMP??LOOP6

LOOP5D:????MOV??RES_L,TEMP2
???????????JMP??LOOP6A

LOOP6:?????CALL??IR_IN
LOOP6A:????MOV??A,R3????????????????;重裝鍵值
???????????CJNE??A,#0FH,LOOP6B
???????????AJMP??MAIN
LOOP6B:????CJNE??A,#0EH,LOOP6???????;顯示（=）
???????????CALL??CONV5??????????????;顯示運(yùn)算結(jié)果
???????????;CALL??BEEP_BL????????????
???????????JNB??20H.1,LOOP6C
???????????CALL??SUADD
LOOP6C:????JNB??20H.2,LOOP6D
???????????CALL??SUSUB
LOOP6D:????JNB??20H.3,LOOP6E
???????????CALL??SUMUL
LOOP6E:????JNB??20H.4,LOOP7
???????????CALL??SUDIV

LOOP7:?????CALL??IR_IN
???????????CJNE??A,#0FH,LOOP7????????;復(fù)位（清零）
???????????AJMP??MAIN
;---------------------------------------------------
;?IR?譯碼子程序
;出口：A、R3存鍵值
;---------------------------------------------------
IR_IN:
??????????MOV???R0,#IRCOM
?I1:??????JNB??IRIN,I2???????;等待?IR?信號(hào)出現(xiàn)
??????????JMP??I1
?I2:??????MOV??R4,#20
?I20:?????CALL??DEL
??????????DJNZ??R4,I20
??????????JB??IRIN,I1????????;確認(rèn)IR信號(hào)出現(xiàn)

?I21:?????JB??IRIN,I3????????;等?IR?變?yōu)楦唠娖?br>??????????CALL??DEL
??????????JMP??I21
?I3:??????MOV??R3,#0?????????;8位數(shù)清為0
?LL:??????JNB??IRIN,I4???????;等?IR?變?yōu)榈碗娖?br>??????????CALL??DEL
??????????JMP??LL
?I4:??????JB??IRIN,I5????????;等?IR?變?yōu)楦唠娖?br>??????????CALL??DEL
??????????JMP??I4
?I5:??????MOV??R2,#0?????????;0.14MS?計(jì)數(shù)
?L1:??????CALL??DEL
??????????JB??IRIN,?N1???????;等?IR?變?yōu)楦唠娖?br>?????????????????????????????;IR=0，檢查R2中的計(jì)數(shù)值
??????????MOV??A,#8
??????????CLR??C
??????????SUBB??A,R2?????????;判斷高低位
?????????????????????????????;IF?C=0??BIT=0
??????????MOV??A,@R0
??????????RRC??A
??????????MOV??@R0,A?????????;處理完一位
??????????INC??R3
??????????CJNE??R3,#8,LL?????;需處理完8位
??????????MOV??R3,#0
??????????INC??R0
??????????CJNE??R0,#IRCOM+4,LL???;收集到4字節(jié)了
??????????;JMP??OK
??????????JMP???IR_SHOW
?N1:??????INC??R2
??????????CJNE??R2,#30,L1????;0.14MS?計(jì)數(shù)過(guò)長(zhǎng)則時(shí)間到自動(dòng)離開(kāi)
?OK:??????RET
;--------------------------------------------------------------------
IR_SHOW:
???????????MOV?A,IRCOM+3
???????????CPL?A????????????????????;將25H取反后和24H比較
???????????CJNE?A,IRCOM+2,IR_SHOW1??;如果不等表示接收數(shù)據(jù)發(fā)生錯(cuò)誤,放棄。
???????????SETB??20H.0??????????????;解碼成功20H.0置1。
???????????MOV??A,IRCOM+2
???????????MOV??B,A
???????????MOV??DPTR,#IR_TABLE_NEW
???????????MOV??R3,#0FFH
IR_IN1:????INC??R3
???????????MOV??A,R3
???????????MOVC??A,@A+DPTR
???????????CJNE??A,B,IR_IN2
???????????MOV??A,R3????????????????;找到，取順序碼
???????????CALL??BEEP_BL????????????;蜂鳴器鳴響表示解碼成功
???????????RET
IR_IN2:????CJNE??A,#0FFH,IR_IN1??;末完，繼續(xù)查
IR_SHOW1:??RET
;---------------------------------------------------------
;紅外遙控器鍵值碼
;---------------------------------------------------------
IR_TABLE_NEW:
?????DB???40H,48H,04H,00H,02H,05H,54H,4DH,0AH,1EH
?????DB???09H,1FH,17H,16H,4CH,10H,0FFH
;IR_TABLE:
;????DB???1BH,10H,03H,01H,06H,09H,1DH,1FH,0DH,19H
;????DB???1CH,14H,0FH,0CH,40H,04H,0FFH
;---------------------------------------------------------
;?DELAY??R5*0.14MS
DEL:
??????????MOV??R5,#1???????;IR解碼使用
DEL0:?????MOV??R6,#2
DEL1:?????MOV??R7,#32
DEL2:?????DJNZ??R7,DEL2
??????????DJNZ??R6,DEL1
??????????DJNZ??R5,DEL0
??????????RET
;－－－－－－－－－－－－－－－－－－－－－－－－
;加法運(yùn)算子程序
;入口：R0-被加數(shù),R1-加數(shù)
;出口：R4(高)、R2(低)為和值
;－－－－－－－－－－－－－－－－－－－－－－－－
SUADD:?????
???????????MOV??R1,RES_L
???????????MOV??R0,RES_H

???????????MOV??A,R0
???????????ADD??A,R1
???????????DA??A
???????????MOV??R2,A
???????????CLR??A
???????????ADDC??A,#00H
???????????MOV??R4,A
???????????MOV??OUT_H,R4
???????????MOV??OUT_L,R2
???????????CALL?T_CONV
???????????RET
;－－－－－－－－－－－－－－－－－－－－－－－－
;減法運(yùn)算子程序
;入口：R0-被減數(shù),R1-減數(shù)
;出口：R2－差值
;－－－－－－－－－－－－－－－－－－－－－－－－
SUSUB:
??????????MOV??R1,RES_L
??????????MOV??R0,RES_H
??????????CLR??C
??????????MOV??A,#9AH
??????????SUBB??A,R1???????;減數(shù)十進(jìn)制求補(bǔ)
??????????ADD??A,R0
??????????DA??A
??????????MOV??R2,A????????;差值送R2
??????????JC??POSI?????????;C=1，表示差值為正
?NEGA:????MOV??A,#9AH??????;差值為負(fù)，求補(bǔ)后得差值的絕對(duì)值
??????????SUBB??A,R2
??????????MOV??R2,A
??????????SETB??20H.5??????;顯示負(fù)號(hào)標(biāo)記
?POSI:????MOV??OUT_H,#00H
??????????MOV??OUT_L,R2
??????????CALL??T_CONV
??????????RET
;－－－－－－－－－－－－－－－－－－－－－－－－－
;乘法運(yùn)算子程序
;單字節(jié)BCD碼乘法子程序
;入口:?R0(被乘數(shù))、R1(乘數(shù)）
;出口:?R3(高)、R2(低)，積為雙字節(jié)，BCD碼形式的積
;從乘數(shù)高位開(kāi)始進(jìn)行BCD碼移位乘法
;－－－－－－－－－－－－－－－－－－－－－－－－－
SUMUL:
????????????MOV??R1,RES_L
????????????MOV??R0,RES_H
BCDMUL:
????????????CLR??A?????????????;積單元清零
????????????MOV??R2,A
????????????MOV??R3,A
????????????MOV??A,R1
????????????JZ??RETURN
????????????ANL??A,#0F0H????????;取乘數(shù)高位
????????????JZ??LBCD????????????;乘數(shù)高位是否為0？
????????????SWAP??A
????????????MOV??R4,A
????????????ACALL??DDBCDM
????????????SWAP??A?????????????;BCD碼左移一位
????????????MOV??R3,A
????????????MOV??A,R2
????????????SWAP??A
????????????MOV??R2,A
????????????ANL??A,#0FH
????????????ORL??A,R3
????????????MOV??R3,A
????????????MOV??A,R2
????????????ANL??A,#0F0H
????????????MOV??R2,A
?LBCD:??????MOV??A,R1????????????;取乘數(shù)低位
????????????ANL??A,#0FH
????????????JZ??RETURN???????????;乘數(shù)低位是否為0？
????????????MOV??R4,A
????????????ACALL??DDBCDM
RETURN:?????MOV??OUT_H,R3
????????????MOV??OUT_L,R2
????????????CALL?T_CONV
????????????RET

DDBCDM:??????????????????????????;一位BCD碼乘法
????????????MOV??A,R2
????????????ADD??A,R0
????????????DA??A
????????????MOV??R2,A
????????????MOV??A,R3
????????????ADDC??A,#00H
????????????DA??A
????????????MOV??R3,A
????????????DJNZ??R4,DDBCDM
????????????RET
;------------------------------------------------
;除法運(yùn)算子程序

;單字節(jié)BCD碼除法
;入口：R0(被除數(shù))、R1(非零除數(shù))
;出口：R2(商)、R3(余數(shù))
;《MCS-51系列單片機(jī)實(shí)用子程序集錦》PAGE?73
;-----------------------------------------------
SUDIV:
??????????????MOV??R1,RES_L
??????????????MOV??R0,RES_H
BCDDIV:
??????????????MOV??R2,#00H??????;商單元清零
??????????????MOV??A,R1?????????;除數(shù)求補(bǔ)
??????????????CPL??A
??????????????ADD??A,#9BH
??????????????MOV??R1,A
??????????????MOV??A,R0??????????;被除數(shù)高位移入
??????????????ANL??A,#0F0H???????;部分余單元
??????????????SWAP??A
???LP0:???????MOV??R3,A??????????;做除法
??????????????ADD??A,R1
??????????????DA??A
??????????????JNC??LP1???????????;部分余數(shù)>=除數(shù)？
??????????????INC??R2????????????;商加1
??????????????SJMP??LP0
???LP1:???????MOV??A,R3??????????;
??????????????SWAP??A
??????????????MOV??R3,A
??????????????MOV??A,R2??????????;商左移一位
??????????????SWAP??A
??????????????MOV??R2,A
??????????????MOV??A,R0???????????;移位
??????????????ANL??A,#0FH
??????????????ORL??A,R3
??LP2:????????MOV??R3,A???????????;做除法
??????????????ADD??A,R1
??????????????DA??A
??????????????JNC??LP3
??????????????INC??R2?????????????;商加1
??????????????SJMP??LP2
??LP3:????????MOV??A,R3???????????;四舍五人
??????????????ADD??A,R3
??????????????DA??A
??????????????JC??LP4
??????????????ADD??A,R1
??????????????DA??A
??????????????JNC??RETURN1
??LP4:????????MOV??A,R2
??????????????ADDC??A,#00H
??????????????DA??A
??????????????MOV??R2,A
?RETURN1:?????MOV??OUT_H,#00H
??????????????MOV??OUT_L,R2
??????????????CALL?T_CONV
??????????????RET
;-----------------------------------------------------
;??LCD?初始化設(shè)置
;-----------------------------------------------------
SET_LCD:
??????????CLR??LCD_EN
??????????CALL??INIT_LCD?????;初始化?LCD
??????????CALL??DELAY1
??????????MOV??DPTR,#INFO1???;指針指到顯示信息1
??????????MOV??A,#1??????????;顯示在第一行
??????????CALL??LCD_SHOW
??????????MOV??DPTR,#INFO2???;指針指到顯示信息2
??????????MOV??A,#2??????????;顯示在第二行
??????????CALL??LCD_SHOW
??????????RET
;-----------------------------------------------------
INFO1:??DB??"???CALCULATOR???",0??;LCD?第一行顯示信息
INFO2:??DB??"????????????????",0??;LCD?第二行顯示信息
;----------------------------------------------------
INIT_LCD:?????????????????;8位I/O控制?LCD?接口初始化
??????????MOV??A,#38H?????;雙列顯示，字形5*7點(diǎn)陣
??????????CALL??WCOM
??????????CALL??DELAY1
??????????MOV??A,#38H?????;雙列顯示，字形5*7點(diǎn)陣
??????????CALL??WCOM
??????????CALL??DELAY1
??????????MOV??A,#38H?????;雙列顯示，字形5*7點(diǎn)陣
??????????CALL??WCOM
??????????CALL??DELAY1
??????????MOV??A,#0CH?????;開(kāi)顯示，關(guān)光標(biāo)，
??????????CALL??WCOM
??????????CALL??DELAY1
??????????MOV??A,#01H?????;清除?LCD?顯示屏
??????????CALL??WCOM
??????????CALL??DELAY1
??????????RET
;----------------------------------------------------
LCD_SHOW:???????;在LCD的第一行或第二行顯示信息字符

??????????CJNE??A,#1,LINE2??;判斷是否為第一行
??LINE1:??MOV??A,#80H???????;設(shè)置?LCD?的第一行地址
??????????CALL??WCOM????????;寫(xiě)入命令
??????????CALL??CLR_LINE????;清除該行字符數(shù)據(jù)
??????????MOV??A,#80H???????;設(shè)置?LCD?的第一行地址
??????????CALL??WCOM????????;寫(xiě)入命令
??????????JMP??FILL

??LINE2:??MOV??A,#0C0H??????;設(shè)置?LCD?的第二行地址
??????????CALL??WCOM????????;寫(xiě)入命令
??????????CALL??CLR_LINE????;清除該行字符數(shù)據(jù)
??????????MOV??A,#0C0H??????;設(shè)置?LCD?的第二行地址
??????????CALL??WCOM
??FILL:???CLR??A????????????;填入字符
??????????MOVC??A,@A+DPTR???;由信息區(qū)取出字符
??????????CJNE??A,#0,LC1????;判斷是否為結(jié)束碼
??????????RET
??LC1:????CALL??WDATA???????;寫(xiě)入數(shù)據(jù)
??????????INC??DPTR?????????;指針加1
??????????JMP??FILL?????????;繼續(xù)填入字符
??????????RET
;---------------------------------------------------
CLR_LINE:??????????????????;清除該行?LCD?的字符
??????????MOV??R0,#24
???CL1:???MOV??A,#'?'
??????????CALL??WDATA
??????????DJNZ??R0,CL1
??????????RET
;-----------------------------------------------------
;?寫(xiě)指令子程序
;RS=L,RW=L,D0-D7=指令碼，E=高脈沖
;-----------------------------------------------------
WCOM:
??????????MOV???P0,A
??????????CLR???LCD_RS
??????????CLR???LCD_RW
??????????SETB??LCD_EN
??????????CALL??DELAY0
??????????CLR???LCD_EN
??????????RET
;-----------------------------------------------------
;寫(xiě)數(shù)據(jù)子程序
;RS=H,RW=L,D0-D7=數(shù)據(jù)，E=高脈沖
;-----------------------------------------------------
WDATA:
??????????MOV???P0,A
??????????SETB??LCD_RS
??????????CLR???LCD_RW
??????????SETB??LCD_EN
??????????CALL??DELAY0
??????????CLR???LCD_EN
??????????RET
;-----------------------------------------------------
;延時(shí)250微秒
;-----------------------------------------------------
DELAY0:
??????????MOV???R7,#125
??????????DJNZ??R7,$
??????????RET
;---------------------------------------------------
;在?LCD?第二行顯示字符
;A=ASC?DATA,?B=LINE?X?POS
;---------------------------------------------------
LCDP2:
?????????PUSH??ACC????????;
?????????MOV??A,B?????????;設(shè)置顯示地址
?????????ADD??A,#0C0H?????;設(shè)置LCD的第二行地址
?????????CALL??WCOM???????;寫(xiě)入命令
?????????POP??ACC?????????;由堆棧取出A
?????????CALL??WDATA??????;寫(xiě)入數(shù)據(jù)
?????????RET

;－－－－－－－－－－－－－－－－－－－－－－－－
;在指定位置顯示運(yùn)算數(shù)字與符號(hào)子程序
;－－－－－－－－－－－－－－－－－－－－－－－－
CONV0:
??????????ADD?A,#30H
??????????MOV??B,LCD_X
??????????CALL??LCDP2
??????????RET
CONV1:
??????????MOV??LCD_X,#4
??????????MOV??A,#2BH????????;+
??????????MOV??B,LCD_X
??????????CALL??LCDP2
??????????RET

CONV2:
??????????MOV??LCD_X,#4
??????????MOV??A,#2DH????????;-
??????????MOV??B,LCD_X
??????????CALL??LCDP2
??????????RET
CONV3:
??????????MOV??LCD_X,#4
??????????MOV??A,#2AH????????;*
??????????MOV??B,LCD_X
??????????CALL??LCDP2
??????????RET
CONV4:
??????????MOV??LCD_X,#4
??????????MOV??A,#2FH????????;/
??????????MOV??B,LCD_X
??????????CALL??LCDP2
??????????RET
CONV5:
??????????MOV??LCD_X,#09H
??????????MOV??A,#3DH????????;=
??????????MOV??B,LCD_X
??????????CALL??LCDP2
??????????RET
;－－－－－－－－－－－－－－－－－－－－－－－－－－
;
;－－－－－－－－－－－－－－－－－－－－－－－－－－
CONV:
??????????MOV???LCD_X,#3????????;設(shè)置顯示起始位置
??????????MOV???A,R3
??????????ANL???A,#0FH??????;取出低四位二進(jìn)制數(shù)
??????????PUSH??ACC??????????;壓入堆棧
??????????CLR???C????????????;C=0
??????????SUBB??A,#0AH???????;減10
??????????POP???ACC??????????;彈出堆棧
??????????JC????ASCII0???????;該數(shù)小于10，轉(zhuǎn)ASCII0
??????????;JMP??ASCII1
??????????ADD???A,#07H???????;大于10的數(shù)加上37H
ASCII0:???ADD???A,#30H???????;小于10的數(shù)加上30H
??????????MOV???B,LCD_X
??????????CALL??LCDP2
ASCII1:???;MOV??A,R3
??????????RET

;-------------------------------------------------------
T_CONV:

??????????MOV???A,OUT_H??????????;取高位數(shù)
??????????MOV??LCD_X,#11
??????????CJNE??A,#00H,T_CONV1???;判高位數(shù)是否為0？
??????????SETB??20H.6????????????;為0，20H.6置1
??????????JMP??T_CONV3???????????;轉(zhuǎn)取低位數(shù)
?????????????????????????????????;高位數(shù)不為0，則
T_CONV1:??ANL?A,#0F0H????????????;判高位數(shù)的高四位是否為0？
??????????CJNE??A,#00H,T_CONV2???;不為0，2位數(shù)都顯示
??????????SETB??20H.6????????????;為0，20H.6置1，只顯示低四位
T_CONV2:??MOV??A,OUT_H
??????????CALL??SHOW_DIG2
??????????INC??LCD_X
??????????CLR??20H.6?????????????;清顯示標(biāo)記位

T_CONV3:??MOV??A,OUT_L???????????;取低位數(shù)
??????????JNB??20H.6,T_CONV5?????;高位數(shù)有顯示，則不判低位數(shù)。
??????????ANL??A,#0F0H???????????;高位數(shù)無(wú)顯示，則判低位數(shù)。
??????????CJNE??A,#00H,T_CONV4???;判低位數(shù)的高四位是否為0？
??????????SETB??20H.6????????????;為0，20H.6置1，只顯示低四位
??????????MOV??A,OUT_L
??????????JMP??T_CONV5
T_CONV4:??CLR??20H.6?????????????;低位數(shù)不為0，2位數(shù)都顯示
??????????MOV??A,OUT_L

T_CONV5:??CALL??SHOW_DIG2
??????????CLR??20H.6?????????????;清顯示標(biāo)記位
??????????RET
;－－－－－－－－－－－－－－－－－－－－－－－－－－－－
;在?LCD?的第二行顯示數(shù)字與符號(hào)
;－－－－－－－－－－－－－－－－－－－－－－－－－－－－
SHOW_DIG2:
??????????JNB??20H.5,DIG2????;符號(hào)標(biāo)記
??????????MOV??TEMP3,A
??????????MOV??A,#2DH????????;顯示負(fù)號(hào)
??????????MOV??B,LCD_X
??????????CALL??LCDP2
??????????MOV??A,TEMP3
??????????INC??LCD_X
?DIG2:????MOV??B,#16?????????;設(shè)置被除數(shù)
??????????DIV??AB????????????;結(jié)果A存商數(shù)，B存余數(shù)
??????????JNB??20H.6,DIG3????;顯示位標(biāo)記
??????????MOV??A,#20H
??????????JMP??DIG4
DIG3:?????ADD??A,#30H????????;A為十位數(shù)，轉(zhuǎn)換為字符
DIG4:?????PUSH??B????????????;B放入堆棧暫存
??????????MOV??B,LCD_X???????????;設(shè)置?LCD?顯示的位置
??????????CALL??LCDP2????????;由?LCD?顯示出來(lái)
??????????POP??B?????????????;
??????????MOV??A,B???????????;B為個(gè)位數(shù)
??????????ADD??A,#30H????????;轉(zhuǎn)換為字符
??????????INC??LCD_X?????????????;LCD?顯示位置加1
??????????MOV??B,LCD_X???????????;設(shè)置?LCD?顯示的位置
??????????CALL??LCDP2????????;由?LCD?顯示出來(lái)
??????????RET
;--------------------------------------------------------
;蜂鳴器響一聲子程序
;--------------------------------------------------------
BEEP_BL:
?????????MOV??R6,#100
??BL1:???CALL??DEX1
?????????CPL??BEEP
?????????DJNZ??R6,BL1
?????????MOV??R5,#10
?????????CALL??DELAY
?????????RET
?DEX1:???MOV??R7,#180
?DEX2:???NOP
?????????DJNZ??R7,DEX2
?????????RET
;-----------------------------------------------------
;延時(shí)R5×10MS
;-----------------------------------------------------
DELAY:
?????????MOV??R6,#50
??D1:????MOV??R7,#100
?????????DJNZ??R7,$
?????????DJNZ??R6,D1
?????????DJNZ??R5,DELAY
?????????RET
;-----------------------------------------------------
;延時(shí)5MS
;-----------------------------------------------------
DELAY1:
?????????MOV??R6,#25
??D2:????MOV??R7,#100
?????????DJNZ??R7,$
?????????DJNZ??R6,D2
?????????RET
;-----------------------------------------------------
?????????END