程序中是实现了一字节整数的加减乘除计算，支持连续按键的情况，其程序流程图将要上传至图片，希望对爱好者有所帮助也希望能够得到高手的指点。
ORG 00H
LJMP MAIN
ORG 0BH ;定时器1处理
LJMP PROC_COUNT
Keydata EQU 35H ;0->0 ..9-> , +->10, -->11 , =->14 C->15
flag bit 0
last bit 1
Cup bit 2
tempc bit 3
DisBuffer EQU 50H
STA EQU 49H
OP1 EQU 40H
OP EQU 43H
OP2 EQU 44H
Buff EQU 42H
Resut EQU 41H
MAIN:
CLR flag
CLR last
CLR Cup
CLR tempc
MOV STA,#0
MOV OP1,#0
MOV OP2,#0
MOV OP,#0
MOV Buff,#0
MOV Keydata,#0
MOV SP,#60H
MOV psw ,#0
MOV TMOD,#01H ; clock =12mhz 定时器0的方式1
MOV TH0,#0D8H
MOV TL0,#0F0H ;定时时间为10ms
SETB ET0
SETB EA
SETB TR0
MOV 50H,#3FH ;初始化缓冲区50h-52h
MOV 51H,#3FH
MOV 52H,#3FH
WORK:
CLR C
CALL KeyIN ;调用键盘扫描程序有键按下时C=1 Keydata返回 0~9 为0~9 "+-*/" 为10、11、12、13 "="为14 C键为15
mov tempc,c
anl c,/last
mov Cup,c
mov c,tempc
mov last,c
mov c,Cup
JNC WORK ;进位为0则转移
;检测状态程序段
MOV A,STA ;将状态值送A
RL A
MOV DPTR,#STTAB ;将分支程序的初值送DPTR
JMP @A+DPTR ;选择程序分支
STTAB:
AJMP STA0 ;状态0子程序
AJMP STA1 ;状态1子程序
AJMP STA2 ;状态2子程序
AJMP STA3 ;状态3子程序
AJMP STA4 ;状态4子程序
AJMP STA5 ;状态5子程序
STA0:
MOV A,Keydata ;将键值送A
CLR C ;清除进位位
SUBB A,#10 ;判断是否位数字键
JNC STA0END ;否时转移到STA0END
CALL DATA_IN ;调用DATA_IN子程序讲数值送入Buff
MOV STA,#1
STA0END:
JMP Display
STA1:
MOV A,Keydata ;将键盘所对应的数值送A
CLR C ;清除进位位
SUBB A,#10 ;判断是否位数字键
JNC STA1NEXT ;否时转移到continue
CALL DATA_IN ;调用DATA_IN子程序讲数值送入Buff
JNC STA1END ;无溢出时跳至状态1结束节点
MOV STA,#5 ;有溢出时将状态标志置为5
STA1END:
JMP Display
;判断是否为运算符 是时将Buff中的值送给OP1 将运算符送OP中保存 将状态置为2态
STA1NEXT:
MOV A,Keydata
CLR C
SUBB A,#14
JNC STA1NEXT1
MOV OP1,Buff
MOV OP,Keydata
MOV STA,#2
JMP STA1END
;判断是否是=
STA1NEXT1:
MOV A,Keydata
CJNE A,#14,STA1NEXT2 ;是否为等号 不是时转移
MOV OP1,Buff ;是"="时将Buff中的数值送OP1
MOV Buff,#0 ;将Buff清空将状态变为4态
MOV STA,#4
JMP STA1END ;跳到STA1END
;不是=时只能为C键
STA1NEXT2:
MOV Buff,#0 ;将Buff清空 将状态置为0态
MOV STA,#0
JMP STA1END ;跳至状态1结束节点
;STA2处理程序
STA2:
MOV A,Keydata ;将键盘所对应的数值送A
CLR C ;清除进位位
SUBB A,#10 ;判断是否位数字键
JNC STA2NEXT ;否时转移到STA2NEXT
MOV Buff,#0
CALL DATA_IN ;调用DATA_IN子程序讲数值送入Buff
MOV STA,#3
STA2END:
JMP Display
;是否为运算符 是时将运算符送OP否时转移至STA2NEXT1
STA2NEXT:
MOV A,Keydata
CLR C
SUBB A,#14
JNC STA2NEXT1
MOV A,Keydata
MOV OP,A
JMP STA2END
STA2NEXT1:
MOV A,Keydata
CJNE A,#14,STA2NEXT2 ;是否为等号 不是时转移STA2NEXT2 是"="时 将状态设为4态
MOV STA,#4
JMP STA2END
STA2NEXT2: ;是C键时将Buff清空将状态变为0态
MOV Buff,#0
MOV STA,#0
JMP STA2END
STA3:
MOV A,Keydata ;将键盘所对应的数值送A
CLR C ;清除进位位
SUBB A,#10 ;判断是否位数字键
JNC STA3NEXT ;否时转移到STA3NEXT
CALL DATA_IN ;调用DATA_IN子程序讲数值送入Buff
JNC STA3END ;无溢出时跳至状态3结束节点
MOV STA,#5 ;有溢出时将状态标志置为5
STA3END:
JMP Display
;判断是否为运算符 是运算符时先进行运算 且判断是否有溢出
STA3NEXT:
MOV A,Keydata
CLR C
SUBB A,#14
JNC STA3NEXT1 ;不是运算符时进行下次判断是否为=
MOV OP2,Buff ;是运算符时将缓冲区的数值给OP2 再将缓冲区清除
MOV Buff,#0
CALL Comput ;调用Comput 将结果Resut送入OP1
JNC STA3NEXT2 ;计算完成后判断数值是否有溢出 没有时跳至STA3NEXT2
MOV STA,#5 ;结果有溢出时进入状态5
JMP STA3END
STA3NEXT2:
MOV OP1,Resut
MOV OP,Keydata ;连续按运算符的情况
MOV STA,#2
JMP STA3END
;判断是否为"="的情况
STA3NEXT1:
MOV A,Keydata
CJNE A,#14,STA3NEXT3
MOV OP2,Buff ;是运算符时将缓冲区的数值给OP2 再将缓冲区清除
MOV Buff,#0
CALL Comput
JNC STA3NEXT4 ;计算完成后判断数值是否有溢出 没有时跳至STA3NEXT4
MOV STA,#5 ;结果有溢出时进入状态5
JMP STA3END
STA3NEXT4: ;将结果送入OP1进入状态4
MOV A,Resut
MOV OP1,A
MOV STA,#4
JMP STA3END
STA3NEXT3: ;按C键的情况将缓冲区清除 进入状态0
MOV Buff,#0
MOV STA,#0
JMP STA3END
STA4:
MOV A,Keydata ;将键盘所对应的数值送A
CLR C ;清除进位位
SUBB A,#10 ;判断是否位数字键
JNC STA4NEXT ;不是数字键时处理
MOV Buff,#0 ;清除缓冲区
CALL DATA_IN ;调用DATA_IN子程序
MOV STA,#1 ;进入状态1
STA4END:
JMP Display
;判断是否为运算符
STA4NEXT:
MOV A,Keydata
CLR C
SUBB A,#14
JNC STA4NEXT1
MOV OP,Keydata ;将键盘所对应的数值送OP
MOV STA,#2
JMP STA4END
;为C键的处理
STA4NEXT1:
MOV A,Keydata
CJNE A,#15,STA4END
MOV Buff,#0
MOV STA,#0
JMP STA4END
;在状态5判断是否为C键 若是则清除缓冲区
STA5:
MOV A,Keydata
CJNE A,#15,STA5END
MOV Buff,#0
MOV STA,#0
STA5END:
JMP Display
;Display子程序段 当为状态0、1、3时转向Buff_display 当为状态2、4时转向OP1_display当为状态5和其他状态时转向E_display
Display:
MOV A,STA
JZ Buff_display
CJNE A,#1,DNEXT
JMP Buff_display
DNEXT:
CJNE A,#2,DNEXT1
JMP OP1_display
DNEXT1:
CJNE A,#3,DNEXT2
JMP Buff_display
DNEXT2:
CJNE A,#4,DEND
JMP OP1_display
DEND:
JMP E_display
;因 OP1_display与 Buff_display 的处理一致所以使用公用的程序段BandOP1dis
Buff_display:
MOV R3,Buff
JMP BandOP1dis
OP1_display:
MOV R3,OP1
JMP BandOP1dis
;检查是一位数时进入G_display 是两位数时进入SH_display 三位数时进行 B_display
BandOP1dis:
MOV A,R3
MOV B,#10 ;将R3中的内容除10 若商为0则为一位数
div AB
JZ G_display
MOV A,R3 ;将R3中的内容除100 若商为0则为两位数否则为三位数
MOV B,#100
div AB
JZ SH_display
JMP B_display
G_display:
MOV DPTR,#SEG1_TABLE ;B中的数就是个位上的数 将个位数所对应的7段码送50h 且将51h、52H 存入0FFH将数码管熄灭
MOV R2,B
MOV A,R2
MOVC A,@A+DPTR
MOV 52H,A
MOV 51H,#0
MOV 50H,#0
JMP BandOend
SH_display: ;将R3中的内容除10 商为十位上的数 余数为个位上的数
MOV DPTR,#SEG1_TABLE
MOV A,R3
MOV B,#10
div AB
MOVC A,@A+DPTR
MOV 51H,A ;将十位上的数所对应的7段码送51h
MOV R2,B
MOV A,R2
MOV DPTR,#SEG1_TABLE
MOVC A,@A+DPTR
MOV 52H,A ;将个位上的数所对应的7段码送50h
MOV 50H,#0
JMP BandOend
B_display: ;经过判断以后 A中的数为百位上的数将所对应的7段码送52h
MOV DPTR,#SEG1_TABLE
MOVC A,@A+DPTR
MOV 50H,A
MOV R2,B ;B中为后两位数
MOV A,R2
MOV B,#10
div AB ;运算后A中为十位上的数 B中为个位上的数
MOV DPTR,#SEG1_TABLE
MOVC A,@A+DPTR
MOV 51H,A
MOV R2,B
MOV A,R2
MOV DPTR,#SEG1_TABLE
MOVC A,@A+DPTR
MOV 52H,A
BandOend:
JMP DisOver ;跳入显示结束程序口 DisOver
E_display:
MOV DPTR,#SEG1_TABLE
MOV A,#10
MOVC A,@A+DPTR
MOV 52H,A
MOV 51H,#00H
MOV 50H,#00H
JMP DisOver ;跳入显示结束程序口 DisOver
