📄 ykjisuan.asm
字号:
ADD A,R0
DA A
MOV R2,A
MOV A,R3
ADDC A,#00H
DA A
MOV R3,A
DJNZ R4,DDBCDM
RET
;------------------------------------------------
;除法运算子程序
;单字节BCD码除法
;入口：R0(被除数)、R1(非零除数)
;出口：R2(商)、R3(余数)
;《MCS-51系列单片机实用子程序集锦》PAGE 73
;-----------------------------------------------
SUDIV:
MOV R1,RES_L
MOV R0,RES_H
BCDDIV:
MOV R2,#00H ;商单元清零
MOV A,R1 ;除数求补
CPL A
ADD A,#9BH
MOV R1,A
MOV A,R0 ;被除数高位移入
ANL A,#0F0H ;部分余单元
SWAP A
LP0: MOV R3,A ;做除法
ADD A,R1
DA A
JNC LP1 ;部分余数>=除数？
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 初始化设置
;-----------------------------------------------------
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点阵
CALL WCOM
CALL DELAY1
MOV A,#38H ;双列显示，字形5*7点阵
CALL WCOM
CALL DELAY1
MOV A,#38H ;双列显示，字形5*7点阵
CALL WCOM
CALL DELAY1
MOV A,#0CH ;开显示，关光标，
CALL WCOM
CALL DELAY1
MOV A,#01H ;清除 LCD 显示屏
CALL WCOM
CALL DELAY1
RET
;----------------------------------------------------
LCD_SHOW: ;在LCD的第一行或第二行显示信息字符
CJNE A,#1,LINE2 ;判断是否为第一行
LINE1: MOV A,#80H ;设置 LCD 的第一行地址
CALL WCOM ;写入命令
CALL CLR_LINE ;清除该行字符数据
MOV A,#80H ;设置 LCD 的第一行地址
CALL WCOM ;写入命令
JMP FILL
LINE2: MOV A,#0C0H ;设置 LCD 的第二行地址
CALL WCOM ;写入命令
CALL CLR_LINE ;清除该行字符数据
MOV A,#0C0H ;设置 LCD 的第二行地址
CALL WCOM
FILL: CLR A ;填入字符
MOVC A,@A+DPTR ;由信息区取出字符
CJNE A,#0,LC1 ;判断是否为结束码
RET
LC1: CALL WDATA ;写入数据
INC DPTR ;指针加1
JMP FILL ;继续填入字符
RET
;---------------------------------------------------
CLR_LINE: ;清除该行 LCD 的字符
MOV R0,#24
CL1: MOV A,#' '
CALL WDATA
DJNZ R0,CL1
RET
;-----------------------------------------------------
; 写指令子程序
;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
;-----------------------------------------------------
;写数据子程序
;RS=H,RW=L,D0-D7=数据，E=高脉冲
;-----------------------------------------------------
WDATA:
MOV P0,A
SETB LCD_RS
CLR LCD_RW
SETB LCD_EN
CALL DELAY0
CLR LCD_EN
RET
;-----------------------------------------------------
;延时250微秒
;-----------------------------------------------------
DELAY0:
MOV R7,#125
DJNZ R7,$
RET
;---------------------------------------------------
;在 LCD 第二行显示字符
;A=ASC DATA, B=LINE X POS
;---------------------------------------------------
LCDP2:
PUSH ACC ;
MOV A,B ;设置显示地址
ADD A,#0C0H ;设置LCD的第二行地址
CALL WCOM ;写入命令
POP ACC ;由堆栈取出A
CALL WDATA ;写入数据
RET
;－－－－－－－－－－－－－－－－－－－－－－－－
;在指定位置显示运算数字与符号子程序
;－－－－－－－－－－－－－－－－－－－－－－－－
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 ;设置显示起始位置
MOV A,R3
ANL A,#0FH ;取出低四位二进制数
PUSH ACC ;压入堆栈
CLR C ;C=0
SUBB A,#0AH ;减10
POP ACC ;弹出堆栈
JC ASCII0 ;该数小于10，转ASCII0
;JMP ASCII1
ADD A,#07H ;大于10的数加上37H
ASCII0: ADD A,#30H ;小于10的数加上30H
MOV B,LCD_X
CALL LCDP2
ASCII1: ;MOV A,R3
RET
;-------------------------------------------------------
T_CONV:
MOV A,OUT_H ;取高位数
MOV LCD_X,#11
CJNE A,#00H,T_CONV1 ;判高位数是否为0？
SETB 20H.6 ;为0，20H.6置1
JMP T_CONV3 ;转取低位数
;高位数不为0，则
T_CONV1: ANL A,#0F0H ;判高位数的高四位是否为0？
CJNE A,#00H,T_CONV2 ;不为0，2位数都显示
SETB 20H.6 ;为0，20H.6置1，只显示低四位
T_CONV2: MOV A,OUT_H
CALL SHOW_DIG2
INC LCD_X
CLR 20H.6 ;清显示标记位
T_CONV3: MOV A,OUT_L ;取低位数
JNB 20H.6,T_CONV5 ;高位数有显示，则不判低位数。
ANL A,#0F0H ;高位数无显示，则判低位数。
CJNE A,#00H,T_CONV4 ;判低位数的高四位是否为0？
SETB 20H.6 ;为0，20H.6置1，只显示低四位
MOV A,OUT_L
JMP T_CONV5
T_CONV4: CLR 20H.6 ;低位数不为0，2位数都显示
MOV A,OUT_L
T_CONV5: CALL SHOW_DIG2
CLR 20H.6 ;清显示标记位
RET
;－－－－－－－－－－－－－－－－－－－－－－－－－－－－
;在 LCD 的第二行显示数字与符号
;－－－－－－－－－－－－－－－－－－－－－－－－－－－－
SHOW_DIG2:
JNB 20H.5,DIG2 ;符号标记
MOV TEMP3,A
MOV A,#2DH ;显示负号
MOV B,LCD_X
CALL LCDP2
MOV A,TEMP3
INC LCD_X
DIG2: MOV B,#16 ;设置被除数
DIV AB ;结果A存商数，B存余数
JNB 20H.6,DIG3 ;显示位标记
MOV A,#20H
JMP DIG4
DIG3: ADD A,#30H ;A为十位数，转换为字符
DIG4: PUSH B ;B放入堆栈暂存
MOV B,LCD_X ;设置 LCD 显示的位置
CALL LCDP2 ;由 LCD 显示出来
POP B ;
MOV A,B ;B为个位数
ADD A,#30H ;转换为字符
INC LCD_X ;LCD 显示位置加1
MOV B,LCD_X ;设置 LCD 显示的位置
CALL LCDP2 ;由 LCD 显示出来
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
;-----------------------------------------------------
;延时R5×10MS
;-----------------------------------------------------
DELAY:
MOV R6,#50
D1: MOV R7,#100
DJNZ R7,$
DJNZ R6,D1
DJNZ R5,DELAY
RET
;-----------------------------------------------------
;延时5MS
;-----------------------------------------------------
DELAY1:
MOV R6,#25
D2: MOV R7,#100
DJNZ R7,$
DJNZ R6,D2
RET
;-----------------------------------------------------
END
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -