org 0000h
ajmp main
org 0030h
main:
   mov sp,#60h
   mov 60h,#0ch
   mov 30h,#00h ;將30H個位顯示緩沖單元清零
   mov 31h,#00h ;將31H十位顯示緩沖單元清零
   mov 32h,#00h ;將32H百位顯示緩沖單元清零
   mov 33h,#00h ;將33H千位顯示緩沖單元清零
   mov 34h,#00h ;將33H萬位顯示緩沖單元清零
   mov 35h,#00h ;將33H十萬位顯示緩沖單元清零
   mov 36h,#00h
   mov 37h,#00h
   mov 38h,#00h
   mov 40h,#00h
   mov 41h,#00h
   mov 42h,#00h
   mov 43h,#00h
   mov 44h,#00h
   mov 45h,#00h
   mov 46h,#00h
   mov 47h,#00h
   mov 50h,#00h
   mov 51h,#00h
   mov 52h,#00h
   mov 53h,#00h
loop:
   lcall display ;調(diào)用顯示程序
   lcall key ;調(diào)用鍵盤描程序
   cpl a ;將A的值取反
   jz loop ;無鍵鍵按下則返回
new:
   mov a,39h
   clr c
   subb a,#0ah
   jnc fun
   mov 30h,31h
   mov 31h,32h
   mov 32h,33h
   mov 33h,34h
   mov 34h,35h
   mov 35h,36h ;將32H顯示單元的內(nèi)容送入33H
   mov 36h,37h ;將31H顯示單元的內(nèi)容送入32H
   mov 37h,38h ;將30H單元的內(nèi)容送入31H
   mov a,30h
   jz read
   lcall error
read:
   mov a,39h ;將鍵值送入ACC
   mov 38h,a ;將ACC的值送入30H
   ljmp loop ;返回主程序循環(huán)
fun:
   clr c
   subb a,#01h
   jz reset
   pop a
   clr c
   subb a,#0ah
   mov dptr ,#table
   clr c
   rl a
   jmp  @a+dptr
table:
   ajmp  equal
   nop
   nop
   ajmp  adder
   ajmp  subtracter
   ajmp  multiplication
   ajmp  division

equal:
   nop
   lcall changebcd
   push  39h
   lcall result
   lcall clear
   ljmp new

reset:
   ljmp main

adder:
   lcall changebcd
   mov  r0,#40h
   mov  r1,#50h
   mov  r3,#04h
   mov  a,r0
   add  a,r3
   mov  r0,a
   dec  r0
   mov  a,r1
   add  a,r3
   mov  r1,a
   dec  r1
   clr  c
cadl_d1:
   mov  a,@r0
   addc a,@r1
   da   a
   mov  @r0,a
   dec  r0
   dec  r1
   djnz r3,cadl_d1
   jnc next0
   lcall error
next0:
   push  39h
   lcall result
   lcall clear
   ljmp new

subtracter:
   lcall changebcd
   mov  r0,#40h
   mov  r1,#50h
   mov  r3,#04h
   mov  a,r0
   add  a,r3
   mov  r0,a
   dec  r0
   mov  a,r1
   add  a,r3
   mov  r1,a
   dec  r1
   setb c
csu_l1:
   clr  a
   addc a,#99h
   subb a,@r1
   add  a,@r0
   da   a
   mov  @r0,a
   dec  r0
   dec  r1
   djnz r3,csu_l1
   jc   next1
   lcall error
next1:
   push  39h
   lcall result
   lcall clear
   ljmp  new
multiplication:
   lcall changebcd
   mov   r0,#40h
   mov   r1,#50h
   mov   r3,#04h
   mov   a,r3
   mov   r6,a
   add   a,r3
   mov   r2,a
   mov   a,r3
   add   a,r0
   mov   r0,a
   mov   a,r1
   add   a,r3
   dec   a
   mov   r1,a
   clr   a
cmul1:
   mov @r0,a
   inc r0
   djnz r6,cmul1
   mov a,r2
   mov r6,a
   dec r0
cmul2:
   clr a
cmul3:
   xch a,@r0
   swap a
   xchd a,@r0
   xch a,@r0
   dec r0
   djnz r2,cmul3
   mov r7,a
   jz cmul7
cmul4:
   mov a,r3
   mov r2,a
   add a,r3
   add a,r0
   mov r0,a
   clr c
cmul5:
   mov a,@r0
   addc a,@r1
   da a
   mov @r0,a
   dec r0
   dec r1
   djnz r2,cmul5
   mov a,r3
   mov r2,a
cmul6:
   clr a
   addc a,@r0
   da a
   mov @r0,a
   dec r0
   djnz r2,cmul6
   mov a,r3
   add a,r1
   mov r1,a
   djnz r7,cmul4
cmul7:
   mov a,r3
   add a,r3
   mov r2,a
   add a,r0
   mov r0,a
   djnz r6,cmul2
   mov a,40h
   orl a,41h
   orl a,42h
   orl a,43h
   jnz bridge3
   ajmp goon3
bridge3:
   lcall error
goon3:
   mov 40h,44h
   mov 41h,45h
   mov 42h,46h
   mov 43h,47h
   mov 44h,#00h
   mov 45h,#00h
   mov 46h,#00h
   mov 47h,#00h
   push  39h
   lcall result
   lcall clear
   ljmp new
division :
   lcall changebcd
   mov  r0,#40h
   mov  r1,#50h
   mov  r3,#04h
   mov a,50h
   orl a,51h
   orl a,52h
   orl a,53h
   jnz shift
   lcall error
shift:
   mov 44h,40h
   mov 45h,41h
   mov 46h,42h
   mov 47h,43h
   mov 40h,#00h
   mov 41h,#00h
   mov 42h,#00h
   mov 43h,#00h
   mov a,r3
   add a,r3
   mov r7,a
   dec r0
   dec r1
cdiv1:
   mov a,r3
   add a,r3
   mov r2,a
   add a,r0
   mov r0,a
   clr a
cdiv2:
   xch a,@r0
   swap a
   xchd a,@r0
   xch a,@r0
   dec r0
   djnz r2,cdiv2
   mov r4,a
cdiv3:
   mov a,r3
   mov r6,a
   add a,r0
   mov r0,a
   add a,r3
   xch a,r0
   inc @r0
   xch a,r0
   mov a,r1
   add a,r3
   mov r1,a
   setb c
cdiv4:
   clr a
   addc a,#99h
   subb a,@r1
   add a,@r0
   da a
   mov @r0,a
   dec r0
   dec r1
   djnz r6,cdiv4
   cpl c
   mov a,r4
   subb a,#0
   mov r4,a
   jnc cdiv3
   mov a,r3
   mov r6,a
   add a,r0
   mov r0,a
   add a,r3
   xch a,r0
   dec @r0
   xch a,r0
   mov a,r1
   add a,r3
   mov r1,a
   clr c
cdiv5:
   mov a,@r0
   addc a,@r1
   da a
   mov @r0,a
   dec r0
   dec r1
   djnz r6,cdiv5
   djnz r7,cdiv1
   mov 40h,44h
   mov 41h,45h
   mov 42h,46h
   mov 43h,47h
   mov 44h,#00h
   mov 45h,#00h
   mov 46h,#00h
   mov 47h,#00h
   push  39h
   lcall result
   lcall clear
   ljmp new

display:
   mov p3,#0ffh ;將P3口置高電平
   mov r7,#50 ;軟件計數(shù)器賦值
   mov dptr,#tab ;將表頭位置送入DPTR
dd1:
   mov a,38h ;將顯示緩沖區(qū)30H中的值送入ACC
   movc a,@a+dptr ;查表取要顯示的數(shù)并把查表的結(jié)果送入ACC
   mov p2,a ;將要顯示的數(shù)送入P0口
   clr p3.0 ;開個位顯示單元
   lcall delay100us ;延時100US
   setb p3.0 ;關(guān)個位顯示單

   mov a,37h ;將顯示緩沖區(qū)別31H中的值送入A
   orl a,36h
   orl a,35h
   orl a,34h
   orl a,33h
   orl a,32h
   orl a,31h
   jz n0
   mov a,37h
   movc a,@a+dptr ;查表取要顯示的數(shù)并把查表的結(jié)果送入ACC
   mov p2,a ;將要顯示的數(shù)送入P0口
   clr p3.1 ;開十位顯示單元
   lcall delay100us ;延時100US
n0:setb p3.1 ;關(guān)十位顯示單元

   mov a,36h ;將顯示緩沖區(qū)32H中的值送入ACC
   orl a,35h
   orl a,34h
   orl a,33h
   orl a,32h
   orl a,31h
   jz n1
   mov a,36h
   movc a,@a+dptr ;查表取要顯示的數(shù)并把查表的結(jié)果送入ACC
   mov p2,a ;將要顯示的數(shù)送入P0口
   clr p3.2 ;開百位顯示單元
   lcall delay100us ;延時100US
n1:setb p3.2 ;關(guān)百位顯示單元

   mov a,35h ;將顯示緩沖區(qū)33H中的值送入ACC
   orl a,34h
   orl a,33h
   orl a,32h
   orl a,31h
   jz n2
   mov a,35h
   movc a,@a+dptr ;查表取要顯示的數(shù)并把查表的結(jié)果送入ACC
   mov p2,a ;將要顯示的數(shù)送入P0口
   clr p3.3 ;開千位顯示單元
   lcall delay100us ;延時100US
n2:setb p3.3 ;關(guān)千位顯示單元

   mov a,34h ;將顯示緩沖區(qū)33H中的值送入ACC
   orl a,33h
   orl a,32h
   orl a,31h
   jz n3
   mov a,34h
   movc a,@a+dptr ;查表取要顯示的數(shù)并把查表的結(jié)果送入ACC
   mov p2,a ;將要顯示的數(shù)送入P0口
   clr p3.4 ;開萬位顯示單元
   lcall delay100us ;延時100US
n3:setb p3.4 ;關(guān)萬位顯示單元

   mov a,33h ;將顯示緩沖區(qū)33H中的值送入ACC
   orl a,32h
   orl a,31h
   jz  n4
   mov a,33h
   movc a,@a+dptr ;查表取要顯示的數(shù)并把查表的結(jié)果送入ACC
   mov p2,a ;將要顯示的數(shù)送入P0口
   clr p3.5 ;開十萬位顯示單元
   lcall delay100us ;延時100US
n4:
   setb p3.5 ;關(guān)十萬位顯示單元

   mov a,32h ;將顯示緩沖區(qū)36H中的值送入ACC
   orl a,31h
   jz  n5
   mov a,32h
   movc a,@a+dptr ;查表取要顯示的數(shù)并把查表的結(jié)果送入ACC
   mov p2,a ;將要顯示的數(shù)送入P0口
   clr p3.6 ;開百萬位顯示單元
   lcall delay100us ;延時100US
n5:
   setb p3.6 ;關(guān)百萬位顯示單元

   mov a,31h ;將顯示緩沖區(qū)33H中的值送入ACC
   jz  n6
   movc a,@a+dptr ;查表取要顯示的數(shù)并把查表的結(jié)果送入ACC
   mov p2,a ;將要顯示的數(shù)送入P0口
   clr p3.7 ;開千萬位顯示單元
   lcall delay100us ;延時100US
n6:
   setb p3.7 ;關(guān)千萬位顯示單元
   djnz r7,bridge ;R7不等于0返回至DD1處
   sjmp goon
bridge:
   ljmp dd1
goon:
   ret ;R7等于0子程序返回

KEY:
   LCALL KS ;調(diào)用檢測按鍵子程序
   JNZ K1 ;有鍵按下繼續(xù)
   ljmp key_exit ;無鍵按下退出KEY子程序
K1:
   LCALL delay4ms ;返回繼續(xù)檢測有無按鍵按下
   LCALL delay4ms
   LCALL KS ;有鍵按下繼續(xù)延時去抖動
   JNZ K2 ;再一次調(diào)用檢測按鍵程序
   ljmp key_exit ;無鍵按下退出KEY子程序
K2:
   MOV R2,#0EFH ;將掃描值送入 R2暫存
   MOV R4,#00H ;將第一列的列值00H送入R4暫存,R4用于存放列
K3:
   MOV P1,R2 ;將R2的值送入P1口
L6:
   JB P1.0,L1 ;P1.0等于1跳轉(zhuǎn)到L1
   MOV A,#00H ;將第一行的行值00H送入ACC
   AJMP LK ;跳轉(zhuǎn)到鍵值處理程序
L1:
   JB P1.1,L2 ;P1.1等于1跳轉(zhuǎn)到L2
   MOV A,#04H ;將第二行的行值送入ACC
   AJMP LK ;跳轉(zhuǎn)到鍵值理程序進(jìn)行鍵值處理
L2:
   JB P1.2,L3 ;P1.2等于1跳轉(zhuǎn)到L3
   MOV A,#08H ;將第三行的行值送入ACC
   AJMP LK ;跳轉(zhuǎn)到鍵值處理程序
L3:
   JB P1.3,NEXT ;P1.3等于1跳轉(zhuǎn)到NEXT處
   MOV A,#0cH ;將第四行的行值送入ACC
LK:
   ADD A,R4 ;行值與列值相加后的鍵值送入A
   mov 39h,a ;將A中的值送入39h暫存
K4:
   lcall display ;調(diào)用動態(tài)顯示子程序
   LCALL KS
   JNZ K4 ;按鍵沒有松開繼續(xù)返回檢測
   RET ;按鍵松開返回

NEXT:
   INC R4 ;將列值加一
   MOV A,R2 ;將R2的值送入A
   JNB ACC.7,key_exit ;掃描完成跳至KEY處進(jìn)行下一回合的掃描
   RL A ;掃描未完成將A中的值右移一位進(jìn)行下一列的掃
   MOV R2,A ;將ACC的值送入R2暫存
   AJMP K3 ;跳轉(zhuǎn)到K3繼續(xù)
key_exit:
   mov a,#0ffh ;無鍵按下則將A賦成0FFH。
   ret

KS:
   MOV P1,#0FH ;將P1口高四位置0低四位值1
   MOV A,P1 ;讀P1口
   XRL A,#0FH ;將A中的值與A中的值相異或
   RET ;子程序返回
delay4ms: ;4ms延時程序
   MOV R5,#08H
L7:
   MOV R6,#0FAH
L8:
   DJNZ R6,L8
   DJNZ R5,L7
   RET

delay100us: ;100US延時程序
   mov r5,#50
   djnz r5,$
   ret

error:
   mov p3,#0ffh ;將P3口置高電平
   lcall delay100us
   lcall delay100us
   lcall delay100us
   lcall delay100us
   mov r7,#8h ;軟件計數(shù)器賦值
dd2:
   mov r6,#50h
again:
   mov p2,#0b9h ;將要顯示的數(shù)送入P0口
   clr p3.3
   lcall delay100us ;延時100US
   lcall delay100us
   lcall delay100us
   lcall delay100us
   setb p3.3 ;關(guān)個位顯示單

   mov p2,#28h ;將要顯示的數(shù)送入P0口
   clr p3.4 ;開十位顯示單元
   lcall delay100us ;延時100US
   lcall delay100us
   lcall delay100us
   lcall delay100us
   setb p3.4 ;關(guān)十位顯示單元

   mov p2,#0b9h ;將要顯示的數(shù)送入P0口
   clr p3.5 ;開百位顯示單元
   lcall delay100us ;延時100US
   lcall delay100us
   lcall delay100us
   lcall delay100us
   setb p3.5 ;關(guān)百位顯示單元

   mov p2,#0b9h ;將要顯示的數(shù)送入P0口
   clr p3.6 ;開千位顯示單元
   lcall delay100us ;延時100US
   lcall delay100us
   lcall delay100us
   lcall delay100us
   setb p3.6 ;關(guān)千位顯示單元

   mov p2,#0a1h ;將要顯示的數(shù)送入P0口
   clr p3.7 ;開萬位顯示單元
   lcall delay100us ;延時100US
   lcall delay100us
   lcall delay100us
   lcall delay100us
   setb p3.7 ;關(guān)萬位顯示單元
   djnz r6,again
   djnz r7,dd2;R7不等于0返回至DD1處
   ljmp main
   ret

result:
   mov p3,#0ffh ;將P3口置高電平
   mov r7,#50 ;軟件計數(shù)器賦值
   mov dptr,#tab
dd3:
   mov a,43h
   anl a,#0fh
   movc a,@a+dptr ;查表取要顯示的數(shù)并把查表的結(jié)果送入ACC
   mov p2,a ;將要顯示的數(shù)送入P0口
   clr p3.0 ;開個位顯示單元
   lcall delay100us ;延時100US
   setb p3.0 ;關(guān)個位顯示單

   mov a,43h
   anl a,#0f0h
   swap a
   orl a,42h
   orl a,41h
   orl a,40h
   jz m0
   mov a,43h
   anl a,#0f0h
   swap a
   movc a,@a+dptr ;查表取要顯示的數(shù)并把查表的結(jié)果送入ACC
   mov p2,a ;將要顯示的數(shù)送入P0口
   clr p3.1 ;開十位顯示單元
   lcall delay100us ;延時100US
m0:
   setb p3.1 ;關(guān)十位顯示單元

   mov a,42h
   orl a,41h
   orl a,40h
   jz m1
   mov a,42h
   anl a,#0fh
   movc a,@a+dptr ;查表取要顯示的數(shù)并把查表的結(jié)果送入ACC
   mov p2,a ;將要顯示的數(shù)送入P0口
   clr p3.2 ;開百位顯示單元
   lcall delay100us ;延時100US
m1:setb p3.2 ;關(guān)百位顯示單元

   mov a,42h
   anl a,#0f0h
   orl a,41h
   orl a,40h
   jz m2
   mov a,42h
   anl a,#0f0h
   swap a
   movc a,@a+dptr ;查表取要顯示的數(shù)并把查表的結(jié)果送入ACC
   mov p2,a ;將要顯示的數(shù)送入P0口
   clr p3.3 ;開千位顯示單元
   lcall delay100us ;延時100US
m2:setb p3.3 ;關(guān)千位顯示單元

   mov a,41h
   orl a,40h
   jz m3
   mov a,41h
   anl a,#0fh
   movc a,@a+dptr ;查表取要顯示的數(shù)并把查表的結(jié)果送入ACC
   mov p2,a ;將要顯示的數(shù)送入P0口
   clr p3.4 ;開萬位顯示單元
   lcall delay100us ;延時100US
m3:setb p3.4 ;關(guān)萬位顯示單元

   mov a,41h
   anl a,#0f0h
   orl a,40h
   jz  m4
   mov a,41h
   anl a,#0f0h
   swap a
   movc a,@a+dptr ;查表取要顯示的數(shù)并把查表的結(jié)果送入ACC
   mov p2,a ;將要顯示的數(shù)送入P0口
   clr p3.5 ;開十萬位顯示單元
   lcall delay100us ;延時100US
m4:setb p3.5 ;關(guān)十萬位顯示單元

   mov a,40h
   jz  m5
   anl a,#0fh
   movc a,@a+dptr ;查表取要顯示的數(shù)并把查表的結(jié)果送入ACC
   mov p2,a ;將要顯示的數(shù)送入P0口
   clr p3.6 ;開百萬位顯示單元
   lcall delay100us ;延時100US
m5:setb p3.6 ;關(guān)百萬位顯示單元

   mov a,40h
   anl a,#0f0h
   swap a
   jz  m6
   movc a,@a+dptr ;查表取要顯示的數(shù)并把查表的結(jié)果送入ACC
   mov p2,a ;將要顯示的數(shù)送入P0口
   clr p3.7 ;開千萬位顯示單元
   lcall delay100us ;延時100US
m6:setb p3.7 ;關(guān)千萬位顯示單元
   djnz r7,bridge1 ;R7不等于0返回至DD1處
   sjmp goon1
bridge1:
   ljmp dd3
goon1:
   lcall key ;調(diào)用鍵盤描程序
   cpl a ;將A的值取反
   jz bridge2 ;無鍵鍵按下則返回
   sjmp goon2
bridge2:
   ljmp result
goon2:
   ret


changebcd:
   mov  r0,#31h
   mov  r1,#50h
   mov  r3,#04h
d_bcd_y:
   mov    a,@r0
   swap   a
   inc       r0
   xchd   a,@r0
   mov    @r1,a
   xchd     a,@r0
   inc      r0
   inc       r1
   djnz     r3,d_bcd_y
   ret
clear:
   mov 30h,#00h ;將30H個位顯示緩沖單元清零
   mov 31h,#00h ;將31H十位顯示緩沖單元清零
   mov 32h,#00h ;將32H百位顯示緩沖單元清零
   mov 33h,#00h ;將33H千位顯示緩沖單元清零
   mov 34h,#00h ;將33H萬位顯示緩沖單元清零
   mov 35h,#00h ;將33H十萬位顯示緩沖單元清零
   mov 36h,#00h
   mov 37h,#00h
   mov 38h,#00h
   ret

tab: db 28h,7eh,0a2h,62h,74h,61h,21h,7ah,20h,60h
   end