加法器减法器编程

最新推荐文章于 2022-07-19 19:08:08 发布

zhaolinlin2009

最新推荐文章于 2022-07-19 19:08:08 发布

阅读量967

点赞数

CC 4.0 BY-SA版权

文章标签：编程 delay div c

本文链接：https://blog.youkuaiyun.com/zhaolinlin2009/article/details/4480005

org 0000h
ajmp main
org 0030h
CLR P3.3
setb p2.4;
setb p2.5;
setb p2.6;
setb p2.7;
MOV P2,#0001111B
main:
mov dptr,#tab
        mov   24h,#00h
        mov   25h,#00h
mov   30h,#00h
mov   31h,#00h
mov   32h,#00h
mov   33h,#00h
        mov   34h,#00h
mov   35h,#00h
        mov   36h,#00h
        mov   37h,#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

loop:
jb f0,kk1                   ;f0若等于一则跳到KK1处
mov 25h,#00h
kk2:
lcall display           ;调用显示程序
lcall key           ;调用键盘描程序
cpl a                        ;将A的值取反
jz loop                      ;无键按下则返回

mov a,24h                           ;有键按下将键值送入ACC
cjne a,#0ah,bb
        mov   20h,#01h
        sjmp    cc
bb:     cjne a ,#0bh,dd
        mov      20h,#02h

;

cc:     mov      40h,30h
        mov      41h,31h
        mov      42h,32h
        mov      43h,33h
        mov      44h,34h
        mov      45h,35h
        mov      46h,36h
        mov      47h,37h

        mov   30h,#00h
mov   31h,#00h
mov   32h,#00h
mov   33h,#00h
        mov   34h,#00h
mov   35h,#00h
        mov   36h,#00h
        mov   37h,#00h
        ljmp     loop                      ;返回LOOP处不断的循环
kk1:
inc 25h
mov a,25h
cjne a,#10,kk2

mov 25h,#00h

cpl       00h                          ;将00H位取反
ajmp kk2
dd:
;******************************************等号判断
        cjne    a,#0fh ,norp
        mov     a,20h
        cjne    a,#01h,ff
        mov     r0,#40h
        mov     r1,#30h
        mov     r3,#08h
cc1:     mov     a, @r0
        addc    a,@r1
        mov     b,#0ah
        div     ab
        mov     @r1,b
        jnz      aa
        clr    c
        sjmp   bb1
aa:    setb      c
bb1:    inc      r1
        inc      r0
       djnz      r3, cc1
      lcall     display
       ljmp      loop
ff:   ;减法
        mov     r0,#40h
        mov     r1,#30h
        mov     r3,#08h
gg:     mov     a, @r0
        add    a,#10h
        subb    a,21h
        subb    a,@r1
        subb     a,#06h
        mov     b,#0ah
        div     ab
        mov     @r1,b
        ;mov     b,#0ah
        ;div     ab
        ;mov     @r1,b
        jz      aa1
        mov     21h,#00h
        sjmp   bb2
aa1:    mov     21h,#01h
bb2:    inc      r1
        inc      r0
       djnz      r3, gg
      lcall     display
       ljmp      loop

norp:   mov     37h, 36h
        mov     36h, 35h
        mov     35h,34h
        mov     34h,33h
mov 33h,32h                  ;将32H显示单元的内容送入33H
mov     32h,31h                      ;将31H显示单元的内容送入32H
mov     31h,30h                      ;将30H单元的内容送入31H
mov a,24h                    ;将键值送入ACC
mov 30h,a                    ;将ACC的值送入30H
ljmp loop                     ;返回主程序循环
display:
   mov p2,#0ffh            ;将P2口置高电平
   mov r7,#50            ;软件计数器赋值
                                                   ;若00H等于1则跳转至DD1B
dd1:          mov a,30h                ;将显示缓冲区30H中的值送入ACC
   movc a,@a+dptr           ;查表取要显示的数并把查表的结果送入ACC
   mov p0,a                 ;将要显示的数送入P0口
   clr p2.7                ;开个位显示单元
   lcall delay100us         ;延时100US
   setb p2.7               ;关个位显示单

                        mov a,31h
                        movc a,@a+dptr
                        mov p0,a
                        clr p2.6
                         lcall delay100us
                         setb p2.6
                         mov a,32h
                         movc a,@a+dptr
                         mov p0,a
                         clr p2.5
                          lcall delay100us
                          setb p2.5
                          mov a,33h
                          movc a,@a+dptr
                          mov p0,a
                          clr p2.4
                          lcall delay100us
                          setb p2.4
   mov a,34h                ;将显示缓冲区30H中的值送入ACC
   movc a,@a+dptr           ;查表取要显示的数并把查表的结果送入ACC
   mov p0,a                 ;将要显示的数送入P0口
   clr p2.3               ;开个位显示单元
   lcall delay100us         ;延时100US
   setb p2.3               ;开个位显示单元
dd1c:
   mov a,35h                ;将显示缓冲区别31H中的值送入A
   movc a,@a+dptr           ;查表取要显示的数并把查表的结果送入ACC
   mov p0,a                 ;将要显示的数送入P0口
   clr p2.2                ;开十位显示单元
   lcall delay100us         ;延时100US
   setb p2.2              ;关十位显示单元

   mov a,36h                ;将显示缓冲区32H中的值送入ACC
   movc a,@a+dptr           ;查表取要显示的数并把查表的结果送入ACC
   mov p0,a                 ;将要显示的数送入P0口
   clr p2.1                 ;开百位显示单元
   lcall delay100us         ;延时100US
   setb p2.1                ;关百位显示单元

   mov a,37h                ;将显示缓冲区33H中的值送入ACC
   movc a,@a+dptr           ;查表取要显示的数并把查表的结果送入ACC
   mov p0,a                 ;将要显示的数送入P0口
   clr p2.0                 ;开千位显示单元
   lcall delay100us         ;延时100US
   setb p2.0                ;关千位显示单元
   djnz r7,dd1              ;R7不等于0返回至DD1处
   ret                      ;R7等于0子程序返回

KEY: LCALL KS            ;调用检测按键子程序
     JNZ K1                                   ;有键按下继续
ljmp key_exit                         ;无键按下退出KEY子程序
K1: LCALL delay4ms                              ;返回继续检测有无按键按下
     ;LCALL delay4ms
     LCALL KS                                    ;有键按下继续延时去抖动
     JNZ K2                                      ;再一次调用检测按键程序
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跳转到L1
     MOV A,#00H                               ;将第一行的行值00H送入ACC
     AJMP LK                                  ;跳转到键值处理程序
L1: JB P1.1,L2                               ;P1.1等于1跳转到L2
     MOV A,#04H                                  ;将第二行的行值04H送入ACC
     AJMP LK                                     ;跳转到键值理程序进行键值处理
L2: JB P1.2,L3                                   ;P1.2等于1跳转到L3
     MOV A,#08H                                  ;将第三行的行值08H送入ACC
     AJMP LK                                     ;跳转到键值处理程序
L3: JB P1.3,NEXT                             ;P1.3等于1跳转到NEXT处
     MOV A,#0cH                                  ;将第四行的行值0CH送入ACC
LK: ADD A,R4                                 ;行值与列值相加后的键值送入A
mov 24h,a                    ;将A中的值送入34h暂存
K4: ;LCALL delay4ms                          ;
     lcall display                    ;调用动态显示子程序
     LCALL KS                                    ;
     JNZ K4                                      ;按键没有松开继续返回检测
     RET                                         ;按键松开返回

NEXT:
    INC R4                                      ;将列值加一
    MOV A,R2                                     ;将R2的值送入A
    JNB ACC.7,key_exit                           ;扫描完成跳至KEY处进行下一回合的扫描
    RL A                                         ;扫描未完成将A中的值右移一位进行下一列的扫描
    MOV R2,A                                     ;将ACC的值送入R2暂存
    AJMP K3                                      ;跳转到K3继续
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

tab: db 0c0h,0f9h,0a4h,0b0h,99h,92h,82h,0f8h,80h,90h,88h,83h,0c6h,0a1h,86h,8eh
end