Резидентная программа вывода времени на экран

puts    macro   string      
    lea dx,string
    mov ah,09h
    int 21h
endm
 
.model tiny
.code
 
        org 80h
cmd_len     db    ?     
cmd_line        db    ?     
    org 100h
.386
start:
    jmp inst
Unloaded    db  
Success     db  10,13,
Old2D       dd  ?   
Old1C       dd  ?      
 
already     db  10,13,
WrongComLine    db  10,13,
Help            db      10,13,
            db  10,13,
            db  10,13,
            db  10,13,
New2DObrab  proc        
    cli         
    pushf           
    cmp al,98h      
    jne UnloadTSR   
    inc al      
    popf            
    sti                     
    iret                    
    cmp ah,77h      
    jne DoNothing       
    push ES         
    push DS
    pusha           
    mov ax,252Dh        
    lds DX,CS:Old2D         
    mov ax,251Ch        
    lds DX,CS:Old1C         
    mov ES,CS:[2Ch]     
    int 21h                
    pop ES
    mov AH,49h      
    int 21h                 
    popa            
    pop DS          
    pop ES
    popf            
    sti                     
    iret                    
    popf            
    sti         
endp
New1CObrab  proc        
    pushf           
    call    dword   ptr 
    cli         
    push ax
    mov ax,0b800h       
    mov ds,ax       
    mov al,4    
    out     70h,al    
    jmp     $+2       
    in      al,71h    
    mov ah,0fh      
    push ax         
    shr al,4        
    add al,'0'      
    mov ds:[(80-8)*2],ax    
    pop ax          
    and al,0fh      
    add al,'0'      
    mov ds:[(80-7)*2],ax    
    mov al,':'
    mov ds:[(80-6)*2],ax    
    mov al,2    
    out     70h,al    
    jmp     $+2       
    in      al,71h    
    mov ah,0fh                                   
    push ax                 
    shr al,4                
    add al,'0'                              
    mov ds:[(80-5)*2],ax                            
    pop ax                  
    and al,0fh                              
    add al,'0'                              
    mov ds:[(80-4)*2],ax                            
    mov al,':'                                                         
    mov ds:[(80-3)*2],ax                   
    mov al,0    
    jmp           
    in      al,71h   
    mov ah,0fh                                 
    push ax                
    add al,'0'                     
    mov ds:[(80-2)*2],ax                         
    pop ax                                    
    add al,'0'                             
    mov ds:[(80-1)*2],ax                          
 
    pop ax          
    pop ds
    sti         
 
inst:           
 
    cmp     byte ptr cmd_len,0      
    je      Parameters          
    cmp word ptr cmd_line[1],'?'*256+'/'
    je  sprav                           
    cmp word ptr cmd_line[1],'u'*256+'/'
    je  Unload_resident                 
    cmp word ptr cmd_line[1],'U'*256+'/'
    je  Unload_resident                 
    jmp     Parameters          
sprav:  puts    Help        
    jmp Quit        
 
Unload_resident:
    cli             mov     AH,77h      
        int     2Dh         puts    Unloaded    
    sti             jmp Quit        
ComLineError:
    puts    WrongComLine    
    jmp Quit            
; ???U ??u? ???
Parameters:
    mov AL,98h      
    int 2Dh     
    cmp AL,99h      
        jnz     not_loaded  
    puts already        
    jmp quit        
not_loaded:
 
    mov ax,352Dh    ; GetVector
    int 21h
    mov     word  ptr  Old2D,BX
    mov word  ptr  Old2D+2,ES
    mov ax,252Dh    ; SetVector
    mov dx,offset  New2DObrab
    int 21h
 
    mov ax,351Ch    ; GetVector
    int 21h
    mov     word  ptr  Old1C,BX
    mov word  ptr  Old1C+2,ES
    mov ax,251Ch    ; SetVector
    mov dx,offset  New1CObrab
    int 21h
 
    puts    Success     
 
    mov ax,3100h    ; KeepProc
    mov dx,(inst-start+100h);   27h     ; ?????? ??? *???
    ret
 
 
Quit:   mov ah,4ch      
    int 21h
 
    end start