Резидентная программа - напоминание

begin:   
 
; proverka ustanovki
install_possibility:
        mov AX,0B100h ; v AH nomer multi-plex processa (B1), v AL status ustanovki
        int 2Fh ; multi-plex prerivanie
        cmp AL,0FFh
        je inst ; esli ustanovlena
 
; esli kom stroka pusta, to oshibka - vigruzhat nechgo
        cmp byte ptr CS:[80h], 0
                je error
 
;esli ne ustanovlena   
 
 
 
        mov AX,352Fh ; chitaem adres multi-plex prerivaniyaÿ
        int 21h
        mov word ptr old_2Fh,BX ; v ES:BX  hranitsya vektor
        mov word ptr old_2Fh+2,ES
 
        mov AX,252Fh ; 
        mov DX,offset new_2Fh ;   funk zapolneniya vektora prerivanii 2Fh
        int 21h
;---------------------------------------------------
        mov AX,3508h ;  chitaem adres vektora 08h
        int 21h
        mov word ptr old_08h,BX ; v ES:BX  hranitsya vektor prerivanii
        mov word ptr old_08h+2,ES
 
        mov AX,2508h ; zapolnenie vektora prerivanii 08h
        mov DX,offset new_08h 
        int 21h    
 
 
xor CH,CH       
cld
mov si,81h  
 
pr1:
    lodsb 
    cmp al,' '
    jne day
    loop pr1  
 
 
day:  
    cmp al,'m'  
    jne no1 
    lodsb
    cmp al,'o'
    jne mes
    mov p_d,1h    
    jmp pr2
no1:    
    cmp al,'w'
    jne no2 
    lodsb
    cmp al,'e'
    jne mes
    mov p_d,3   
    jmp pr2
no2:     
    cmp al,'f'
    jne no3 
    lodsb
    cmp al,'r'
    jne mes
    mov p_d,5 
    jmp pr2
no3:
    cmp al,'s'
    jne no4 
    lodsb
    cmp al,'u'
    jne m1
    mov p_d,0   
    jmp pr2
m1:
    cmp al,'a'
    jne mes
    mov p_d,6 
    jmp pr2
no4:
    cmp al,'t'
    jne mes 
    lodsb
    cmp al,'u'
    jne m2
    mov p_d,2 
    jmp pr2
m2:
    cmp al,'h'
    jne mes
    mov p_d,4  
    jmp pr2
mes:    
    MOV AH,09h
    lea DX,str1
    int 21h 
    int 20h    
 
pr2:
    lodsb 
    cmp al,' '
    jne ho
    loop pr2  
 
ho:  
    xor dl,dl
   re:
   mov bl,al
    sub bl,'0'
    cmp bl,10
    jnb gp_c 
    mov al,10
    imul dl  
    mov dl,al
    add dl,bl
    lodsb
    jmp re
 
gp_c:
    mov p_c,dl
   ; MOV AH,02h
    ;mov Dl,p_c 
    ;int 21h   
 
min:
    lodsb  
    xor dl,dl
   re1:
   mov bl,al
    sub bl,'0'
    cmp bl,10
    jnb gp_m 
    mov al,10
    imul dl  
    mov dl,al
    add dl,bl
    lodsb
    jmp re1
 
gp_m:
    mov p_m,dl
    ;MOV AH,02h
    ;mov Dx,p_m 
    ;int 21h     
 
sek:
    lodsb  
    xor dl,dl
   re2:
   mov bl,al
    sub bl,'0'
    cmp bl,10
    jnb gp_s 
    mov al,10
    imul dl  
    mov dl,al
    add dl,bl
    lodsb
    jmp re2
 
gp_s:
    mov p_s,dl
    ;MOV AH,02h
    ;mov Dl,p_s 
    ;int 21h         
 
        mov AH,09h
        mov DX,offset msg_inst
        int 21h    
 
        mov DX,offset begin ;   ostavlyaem rezidentom 
        int 27h