[mcs-51] Инкремент счетчика нажатий кнопки SW15, и декремент счетчика при нажатии кнопки SW16

Name Lab_9_4
N EQU 1
Const_TH0 EQU high(65536 - 6144)
Const_TL0 EQU low(65536 - 6144)
CSEG AT 0x00
    MOV R0, #0x7F
    CLR A
L1:
    MOV @R0, A
    DJNZ R0, L1
    MOV TMOD, #0x01
    SETB TR0
    CLR  A
    
    MOV R3, #1
    MOV R7, #0x00
    MOV R6, #0x00
    
L_ADD:      
    JNB P3.2, $
        
    MOV R5, #N
    CALL Delay10
    call cadd
         
    JC L_END
 
    JB  P3.2, $
    MOV R5, #0x01
    CALL Delay10
    JB  P3.2, $
    JMP L_ADD
        
Delay10:
    MOV R5, #N
  
LZ2:
    MOV TH0, #Const_TH0
    MOV TL0, #Const_TL0
LZ1:
    JNB TF0, LZ1
    CLR TF0
    DJNZ R5, LZ2
    RET
 
cadd:
    MOV A,  R7
    ADD A,  #1
    DA A
    MOV R7, A
        
    MOV A,  R6
    ADDC    A,  #0
    DA A
    MOV R6, A
    MOV DPTR, #0xA000
    MOVX @DPTR, A
    MOV A,  R7
    MOV DPTR, #0xB000
    MOVX @DPTR, A
    ret
    
    
csubb:
    MOV A,  R7
    SUBB    A,  #1
    DA A
    MOV R7, A
        
    MOV A,  R6
    SUBB    A,  #0
    DA A
    MOV R6, A
    MOV DPTR, #0xA000
    MOVX @DPTR, A
    MOV A,  R7
    MOV DPTR, #0xB000
    MOVX @DPTR, A
    ret
    
 
 
L_END:
    END

N EQU 1
Const_TH0 EQU high(65536 - 6144)
Const_TL0 EQU low(65536 - 6144)
CSEG AT 0x00
MOV R0, #0x7F
CLR A
L1:
  MOV @R0, A
  DJNZ R0, L1
  MOV TMOD, #0x01
  SETB TR0
  CLR  A
 
  
  MOV  R7,  #0x00
  MOV  R6,  #0x99
 
start:
    JNB P2.2,   L_SUBB
 
L_ADD:
  JNB IE0, L_ADD
L4:
  MOV R5, #N
  CALL Delay10
  JNB IE0, L4
  
  MOV  A,  R7
  ADD  A,  #1
  DA A
  MOV  R7,  A
  
  MOV  A,  R6
  ADDC  A,  #0
  DA A
  MOV  R6,  A
  
  MOV DPTR, #0xa000
  MOVX @DPTR, A
  MOV A,   R7
  MOV DPTR, #0xB000
  MOVX @DPTR, A
  
L5:
  JB IE0, L5
  MOV R5, #0x01
L6:
  CALL Delay10
  JB IE0, L6
  JMP start
  
  
 
 
L_SUBB:
  JNB IE1, L_SUBB
L44:
  MOV R5, #N
  CALL Delay10
  JNB IE1, L44
  
  MOV  A,  R7
  SUBB  A,  #1
  MOV   R3, A
  DA A
  MOV  R7,  A
  
  MOV  A,  R6
  SUBB  A,  #0
  DA A
  MOV  R6,  A
  
  MOV DPTR, #0xa000
  MOVX @DPTR, A
  MOV A,   R7
  MOV DPTR, #0xB000
  MOVX @DPTR, A
  MOV   B,  R3
  MOV   R7, B
  
L55:
  JB IE1, L55
  MOV R5, #0x01
L66:
  CALL Delay10
  JB IE0, L66
  JMP start
  
  
Delay10:
  MOV R5, #N
  
LZ2:
  MOV TH0, #Const_TH0
  MOV TL0, #Const_TL0
LZ1:
  JNB TF0, LZ1
  CLR TF0
  DJNZ R5, LZ2
  RET
  END

L_SUBB:
  MOV  R7,  #10
  MOV  R6,  #10
 
L_SUBB_1:
 
 
  MOV  A,  R7
  SUBB  A,  #1
  JC    L5
  MOV  R3,  A
  
 
  MOV B, #10
  DIV AB
  SWAP A
  MOV  @R1, B
  XCHD A,  @R1
 
  MOV DPTR, #0xB000
  MOVX @DPTR, A
  
  MOV  A,  R6
  MOV B, #10
  DIV AB
  SWAP A
  MOV  @R1, B
  XCHD A,  @R1
  MOV DPTR, #0xA000
  MOVX @DPTR, A
  MOV  A,  R3
  MOV  R7,  A
  JMP L_6
 
 L5:
  MOV  R7,    #0x63
  MOV  A,    R7
  MOV B, #10
  DIV AB
  SWAP A
  MOV  @R1, B
  XCHD A,  @R1
  
  MOV DPTR, #0xB000
  MOVX @DPTR, A
  
  MOV  A,  R6
  SUBB  A,  #1
  MOV  R4,  A
  MOV B, #10
  DIV AB
  SWAP A
  MOV  @R1, B
  XCHD A,  @R1
 
  MOV DPTR, #0xA000
  MOVX @DPTR, A
  MOV  A,  R4
  MOV  R6,  A
  MOV  A,  R7
  MOV  R7,  A
  
 L_6:
  JMP L_SUBB_1
  RET

CSEG    AT 0
    ORG 0
    JMP START
    ORG 26H
start:  nop ; добавьте сюда запуск таймера, если надо
    call cntzero
mainloop:call cntshow
; правильно ли я понял - клавиша отпущена=1, нажата=0 ?
    call delay10 ; ожидать отпускания 2 клавиш (две 1)
    mov C,p3.2
    anl C,p3.3
    jz mainloop
m2: mov C,p3.2     ; ожидать нажатия хотя бы 1 клавиши (1 0 или 0 1)
    anl C,p3.3
    jnz m2
    jnb p3.2,pressed0
    jnb p3.3,pressed1
    jmp mainloop
pressed0:call cntadd1
    jmp mainloop
 
pressed1:call cntsub1
    jmp mainloop
 
delay10:mov R4,#4 ; сделайте здесь ожидание по таймеру, если надо
    mov R5,#0
wt: djnz R5,wt
    djnz R4,wt
    ret
 
; обнулить счетчик
cntzero:mov R6,#0 ; старший байт
    mov R7,#0 ; младший байт
    ret
 
; прибавить к счетчику 1
cntadd1:mov a,R7 ; младший байт
    add a,#1
    da a     ; десятичная коррекция
    mov R7,a
 
    mov a,R6 ; старший байт
    addc a,#0
    da a     ; десятичная коррекция
    mov R6,a
    ret
 
; показать счетчик на дисплее
cntshow: mov dptr,#0B000h
    mov a,R6  ; старший байт
    movx @dptr,a
    mov dptr,#0A000h
    mov a,R7 ; младший байт
    movx @dptr,a
    ret
 
; отнять от счетчика 1
cntsub1:clr C
    mov a,R7 ; младший байт
    subb a,#1
    call dasub ; десятичная коррекция после вычитания
    mov R7,a
    mov a,R6 ; старший байт
    subb a,#0
    call dasub ; десятичная коррекция  после вычитания
    mov R6,a
    ret
 
; Это коррекция только для вычитания 1, а не для любого вычитаемого
dasub:  cjne a,#0FFh,das1 ; упрощенная коррекция a=#FFh ?
    mov a,#99h        ; да, присвоить a #99h ...
    setb C            ; и установить C
    ret
das1:   push acc
    anl a,#0Fh        ; младшая цифра=#0Fh ?
    cjne a,#0Fh,das2
    pop acc
    clr C             ; да - сбросить C и установить мл цифру #9 (15-6=9)
    subb a,#6
    ret
das2:   pop acc
    clr C
    ret
 
        end

CSEG    AT 0
    ORG 0
    JMP START
    ORG 26H
start:  nop ; добавьте сюда запуск таймера, если надо
    call cntzero
mainloop:call cntshow
; клавиша отпущена=0, нажата=1 ?
    call delay10 ; ожидать отпускания 2 клавиш (два 0)
    mov C,p3.2
    orl C,p3.3
    jnz mainloop
m2: mov C,p3.2     ; ожидать нажатия хотя бы 1 клавиши (1 0 или 0 1)
    orl C,p3.3
    jz  m2
    jb  p3.2,pressed0
    jb  p3.3,pressed1
    jmp mainloop
pressed0:call cntadd1
    jmp mainloop
 
pressed1:call cntsub1
    jmp mainloop
 
; и далее без изменений

start:  setb P3.2 ; установить пины в режим чтения
          setb P3.3

CSEG    AT 0
    ORG 0
    JMP START
    ORG 26H
start:  nop ; добавьте сюда запуск таймера, если надо
    call cntzero
mainloop:call cntshow
; клавиша отпущена=0, нажата=1 ?
    call delay10 ; ожидать отпускания 2 клавиш (два 0)
    mov C,p3.2
    orl C,p3.3
    jC  mainloop ; а не z !!!
m2: mov C,p3.2     ; ожидать нажатия хотя бы 1 клавиши (1 0 или 0 1)
    orl C,p3.3
    jnC  m2       ; а не z !!!
    jb  p3.2,pressed0
    jb  p3.3,pressed1
    jmp mainloop
 
; далее без изменений