📄 4jisuan.asm
字号:
RET
;----------------------------------------------
;BCD码左移一位
;---------------------------------------------
LSTBCD:
MOV R3,#04H
LP1: CLR C
MOV A,R4
RLC A
MOV R4,A
MOV A,R5
RLC A
MOV R5,A
MOV A,R6
RLC A
MOV R6,A
MOV A,R7
RLC A
MOV R7,A
DJNZ R3,LP1
RET
;-----------------------------------------------------
SHOW_BIG1:
MOV B,X
ADD A,#30H
CALL LCDP1
RET
;------------------------------------------------------------
;初始化程序
;------------------------------------------------------------
PRO_SET: MOV A,#00H
MOV B,#00H
MOV P0,#0FFH
MOV P1,#0FFH
MOV P2,#0FFH
MOV RES_1,#00H
MOV RES_2,#00H
MOV RES_3,#00H
MOV RES_4,#00H
CLR BEEP
RET
;-----------------------------------------------------
;反转法询键值子程序
;出口：键值入A、R3保存
;有键按下将20H.0置1。
;-----------------------------------------------------
KEY_IN: MOV P1,#0F0H ;置列线为0，行线为1
MOV A,P1
ANL A,#0F0H
MOV B,A
MOV P1,#0FH ;置列线为1，行线为0
MOV A,P1
ANL A,#0FH
ORL A,B ;高四位与低四位重新组合
CJNE A,#0FFH,KEY_IN1 ;0FFH为末按键
CLR 20H.0
RET
KEY_IN1: MOV B,A
MOV DPTR,#KEYTABLE
MOV R3,#0FFH
KEY_IN2: INC R3
MOV A,R3
MOVC A,@A+DPTR
CJNE A,B,KEY_IN3
MOV A,R3 ;找到，取顺序码
SETB 20H.0
RET
KEY_IN3: CJNE A,#0FFH,KEY_IN2 ;末完，继续查
RET ;0FFH为结束码
;-----------------------------------------------------
;LCD 初始化设置
;-----------------------------------------------------
SET_LCD1:
CLR 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 " MULTIPLICATIVE ",0 ;LCD 第一行显示信息
INFO2: DB " CALCULATOR ",0 ;LCD 第二行显示信息
;-----------------------------------------------------
SET_LCD2:
MOV DPTR,#INF03 ;指针指到显示信息1
MOV A,#1 ;显示在第一行
CALL LCD_SHOW
MOV DPTR,#INF04 ;指针指到显示信息2
MOV A,#2 ;显示在第二行
CALL LCD_SHOW
RET
;-----------------------------------------------------
INF03: DB " ",0 ;LCD 第一行显示信息
INF04: DB " ",0 ;LCD 第二行显示信息
;-----------------------------------------------------
;-----------------------------------------------------
;LCD 接口初始化
;8位I/O控制
;-----------------------------------------------------
INIT_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
;-----------------------------------------------------
; 写指令、数据使能子程序
;-----------------------------------------------------
ENABLE: ;写指令使能
CLR RS ;RS=L,RW=L,D0-D7=指令码，E=高脉冲
CLR RW
SETB EN
CALL DELAY0
CLR EN
RET
ENABLE1: ;写数据使能
SETB RS ;RS=H,RW=L,D0-D7=数据，E=高脉冲
CLR RW
SETB EN
CALL DELAY0
CLR EN
RET
DELAY0: MOV R7,#250 ;延时500微秒
DJNZ R7,$
RET
;----------------------------------------------------
;写入命令子程序
;----------------------------------------------------
WCOM: ;以8位控制方式将命令写至LCD
MOV P0,A ;写入命令
CALL ENABLE
RET
;----------------------------------------------------
;写入数据子程序
;----------------------------------------------------
WDATA: ;以8位控制方式将数据写至LCD
MOV P0,A ;写入数据
CALL ENABLE1
RET
;---------------------------------------------------
;在 LCD 第一行显示字符
;A=ASC DATA, B=LINE X POS
;---------------------------------------------------
LCDP1: ;在LCD的第一行显示字符
PUSH ACC ;
MOV A,B ;设置显示地址
ADD A,#80H ;设置LCD的第一行地址
CALL WCOM ;写入命令
POP ACC ;由堆栈取出A
CALL WDATA ;写入数据
RET
;---------------------------------------------------
;在 LCD 第二行显示字符
;A=ASC DATA, B=LINE X POS
;---------------------------------------------------
LCDP2: ;在LCD的第二行显示字符
PUSH ACC ;
MOV A,B ;设置显示地址
ADD A,#0C0H ;设置LCD的第二行地址
CALL WCOM ;写入命令
POP ACC ;由堆栈取出A
CALL WDATA ;写入数据
RET
;-------------------------------------------------------
;ASCII 转换并在第二行显示数字子程序
;判高位数据是否为0，若为0置20H.2为1，判下一位。
;-------------------------------------------------------
CONV2:
MOV A,#3DH ;显示”＝“
MOV B,#1
CALL LCDP2
CLR 20H.2
MOV X,#3 ;设置位置
MOV A,RES_D
CJNE A,#00H,CONV2A ;判数据是否为0？
SETB 20H.2 ;若为0，20H.2置1。
JMP CONV2B ;数据不显示
CONV2A:
CALL SHOW_DIG2 ;显示数据
CONV2B: MOV A,RES_C ;加载数据
JNB 20H.2,CONV2C ;高位数据不为0，跳过。
CJNE A,#00H,CONV2C
SETB 20H.2
JMP CONV2D
CONV2C:
INC X ;设置位置
CALL SHOW_DIG2 ;显示数据
CONV2D: MOV A,RES_B ;加载数据
JNB 20H.2,CONV2E
CJNE A,#00,CONV2E
SETB 20H.2
JMP CONV2F
CONV2E:
INC X ;设置位置
CALL SHOW_DIG2 ;显示数据
CONV2F: MOV A,RES_A
INC X
CALL SHOW_DIG2
RET
;----------------------------------------------------
SHOW_DIG2:
MOV B,#16
DIV AB
ADD A,#30H
PUSH B
MOV B,X
CALL LCDP2
POP B
MOV A,B
ADD A,#30H
INC X
MOV B,X
CALL LCDP2
RET
SHOW_DIG1:
MOV B,#16
DIV AB
ADD A,#30H
PUSH B
MOV B,X
CALL LCDP1
POP B
MOV A,B
ADD A,#30H
INC X
MOV B,X
CALL LCDP1
RET
;-----------------------------------------------------
DELAY1: ;延时5MS
MOV R6,#15
D2: MOV R7,#100
DJNZ R7,$
DJNZ R6,D2
RET
;--------------------- 定时 5MS ------------------------------
DELAY5MS:
PUSH PSW
CLR PSW.3
SETB PSW.4
MOV R0,#250
MOV R1,#4
D20: DJNZ R0,D20
MOV R0,#250
DJNZ R1,D20
POP PSW
RET
;--------------------------------------------------------
;蜂鸣器响一声子程序
;--------------------------------------------------------
BEEP_BL:
MOV R6,#100
BL1: CALL DEX1
CPL BEEP
DJNZ R6,BL1
MOV R5,#50
CALL DELAY
RET
DEX1: MOV R7,#180
DEX2: NOP
DJNZ R7,DEX2
RET
DELAY: ;延时R5×10MS
MOV R6,#50
D1: MOV R7,#100
DJNZ R7,$
DJNZ R6,D1
DJNZ R5,DELAY
RET
;-------------------------------------------------------------
KEYTABLE:
DB 0eeH ,077H,0B7H,0D7H, 07bh,0bbh,0dbh ,07dh,0bdh,0ddh, 0e7h,0ebh,0edh, 07eh,0beh,0deh, 0ffH
;--------------------------------------------------------------
END ;告诉编译器本程序到此结束。
;--------------------------------------------------------------
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -