[МК51] Как в программу добавить проверку контрольной суммы (ассемблер)

    org     0           
    jmp     start   
    org     23h 
    jmp     serial  
    org     30h 
start:      
    mov     tmod,#20h   ; Режим работы таймера
    mov     scon,#01010000b     ; Режим работы UART
    mov     th1,#0fdh   ; Скорость обмена
    mov     tl1,th1     
    mov     dptr,#0 ; Адрес принятых данных
    setb    tr1 ;Старт таймера - UART работает
    setb    es  ;Разрешить прерывания от uart
    setb    ea  
    clr     f0  ; Признак конца приема строки
wait_line:      ; Ожидание приема строки
    jnb     f0,$    ; Строка принята
    clr     f0  
    clr ren 
    mov    dptr,#0  
    setb        ti  ; Начать передачу
    jnb     f0,$    ; Строка передана
    clr     f0  
    setb      ren   
    mov    dptr,#0  
    jmp     wait_line   
serial:     
    jbc     ri,rec  
    clr     ti  
    movx    a,@dptr 
    cjne    a,#0dh,send ; Признак конца строки
    jmp      rte    
send:       
    mov     sbuf,a  
    jmp     d   
rec:        
    mov     a,sbuf  
    movx    @dptr,a 
te:     
    xrl     a,#0dh  ; Признак конца строки
    jnz     d   
rte:        
    setb    f0  
d:          inc     dptr    
    reti    
    end

C_OUT1:
;   Console character output routine.
;   Outputs character received in accumulator to console output device.
;
        JNB     TI,$            ;Wait until transmission completed.
        CLR     TI              ;Clear interrupt flag.
    MOV SBUF,A      ;Write out character.
    RET

C_OUT2:
    MOV SBUF,A
        JNB     TI,$  
        CLR     TI    
    RET

serial_int:
    jnb RI, si0
    clr RI
        push ...
    .... ; код приёма байта
 
        pop  ...
si0:    reti

       JNB TI,$

timer2_int:push psw
    push acc
    push b
    push dpl
    push dph
    ...
    ...           ; *
 
 
    pop dph
        pop dpl
        pop b
        pop acc
        pop psw
        reti

  JNB     TI,$  
  CLR     TI

C_OUT3:
    MOV SBUF,A
        JNB     myTI,$  
        CLR     myTI    
    RET
 
 
serial_int:
    jnb RI, si0
    clr RI
        push ...
    .... ; код приёма байта
 
        pop  ...
si0:    JNB TI, si1 ; в предположении, что байт передаётся как в C_OUT3
        clr  TI     ; сбросить TI, чтобы он не вызвал повторного обращения к прерыванию
        setb myTI   ; установить собственный флаг myTI, чтобы получить информацию о конце передачи байта
si1:    reti

; тестировалась в Mide-51
 
csum    equ 30h ; байт контрольной суммы
ctext1  equ 31h ; цифры контрольной суммы
ctext2  equ 32h
    org 0
start:  mov csum,#9Bh ; предположим, это наша контр сумма
    mov a,csum
    call convtext ; преобразуем a в hex цифры
    call print    ; выводим цифры в порт
    jmp $
convtext:mov b,#10h ; делим a на 16 - получаем 2 цифры
    div ab
    call digit   ; преобр цифру в сиввол
    mov ctext1,a ; запомнить
    mov a,b       
    call digit   ; преобр цифру в сиввол
    mov ctext2,a ; запомнить
    ret
print:  ret ; здессь должен быть код передачи цифр в порт
digit:  mov dptr,#dig
    movc a,@a+dptr
    ret
dig:    db "0123456789ABCDEF"
    end

; Ввод текста через посл порт в xdata и вывод его с контрольной суммой
 
REG0 equ 0 ; адрес регистра
REG2 equ 2 ; адрес регистра
myTI bit 0 ; флаг Вывод символа завершён
txtready bit 1 ; флаг Строка готова
txtlen equ 16 ; длина буфера ввода
outbuf equ 16 ; адрес буфера вывода
; (фдрес буфера ввода=0)
checksum equ 30h ; байт контрольной суммы
    org     0           
    jmp     start   
    org     23h 
    jmp     serial  
    org     30h 
start:      
    mov     tmod,#20h ; инит послед порт
    mov     scon,#01010000b
    mov     th1,#0fdh
    mov     tl1,th1     
    mov     dptr,#0
    setb    tr1
    setb    es
    setb txtready ; флаг=1 (ввод данных в порт запрещён)
    setb    ea
main:mov dptr,#mess1
    call cprint
    call xinput ; ввести строку данных
    mov dptr,#mess2
    call cprint
    mov R1,#outbuf ; вывести строку данных
    call xprint
    mov R1,#outbuf
    call findcs ; найти контр сумму
    mov a,#"["
    call pchar
    call printcs ; напечатать контр сумму
    mov a,#"]"
    call pchar
    mov dptr,#mess3
    call cprint
    jmp main
 
copyinput:mov P2,#0 ; копировать буфер ввода в строку вывода
    mov R0,#0
    mov R1,#outbuf
    mov R2,#txtlen
copy1:  movx A,@R0
    movx @R1,A
    inc R0
    inc R1
    djnz R2,copy1
    ret
 
clrinput:mov P2,#0 ; очистить буфер ввода
    mov R0,#0
    mov R2,#txtlen
    clr A
clr1:   movx @R0,A
    inc R0
    djnz R2,clr1
    ret
    
xinput: call clrinput ; ввод строки
    mov P2,#0
       mov R1,#0 ; R1=R0=начало буфера
       mov R0,#0
       clr txtready ; разрешить ввод строки
xin0:  jb txtready,xin2 ; если строка готова, то выход
       mov A,R1 ; если есть ненапечатанные символы в буфере, то напечатать
       cjne A,REG0,xin1
       jmp xin0
xin1:  movx A,@R1
       call pchar
       inc R1
       jmp xin0
xin2:   call copyinput
    ret
 
findcs: clr A ; подсчёт контр суммы
    mov R2,a
findcs0:movx a,@R1
    inc R1
    jnz findcs1
    mov checksum,R2
    ret
findcs1:xrl REG2,A ; здесь надо вставить нормальный алгоритм контр суммы
    jmp findcs0
 
printcs:mov A,checksum ; печать контр суммы в 16 ричном виде
    mov b,#16
    div ab
    call digit
    call pchar
    mov a,b       
    call digit
    call pchar
    ret
digit:  mov dptr,#dig
    movc a,@a+dptr
    ret
dig:    db "0123456789ABCDEF"
 
 
xprint: movx a,@R1 ; печать строки из xdata (точнее - pdata)
    inc R1
    jnz xpri1
    ret
xpri1:  call pchar
    jmp xprint
 
cprint: clr a ; печать строки из RON
    movc a,@a+dptr
    inc dptr
    jnz cpri1
    ret
cpri1:  call pchar
    jmp cprint
 
pchar:  mov sbuf,a ; вывод A в послед порт
    jnb myti,$
    clr myti
    ret
 
; обработка послед прерываний
; использует R0, заполняет xdata от адреса 0 до txtlen
serial: jnb ri,s1
    clr ri
    jb txtready,s1
    cjne R0,#(txtlen-2),s0
        setb txtready
    jmp s1
s0: push acc
        mov a,sbuf
    movx @R0,A
    inc R0
    cjne A,#13,s3
    dec R0
    clr A
    movx @R0,A
    setb txtready
s3: pop acc
s1: jnb ti,s2
    clr ti
    setb myTi
s2: reti
mess1: db "Input a string:",13,10,0
mess2: db 13,10,"Your input is:",13,10,0
mess3: db 13,10,0
    end