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

TIMES   SEGMENT 
ORG 256   ;   ставим счетчик
ASSUME  CS:TIMES, DS:TIMES  ; программа типа com
 
Start:  JMP Resedent   ;   управление передается команде с меткой Resedent
 
Input   PROC 
    PUSH AX  ; помещаем в стек АХ
    PUSH BX  ; BX и.т.д
    PUSH CX
    PUSH DX
    PUSH ES
    PUSH DI  ; помещаем в стек DI
    
    MOV AX,0B800H ; функция прямого  отображения в регистр AX
    MOV ES,AX   ; записываем AX в ES
    MOV DI,144   ; задаем смещение в DI
    
    MOV AH,02 ; функция 02 прерывания INT 1AH - прочитать показания часов реального времени     
    INT 1AH
 
    MOV BX,CX   ; счетчик тиков. CX - старшая часть значения
    
    MOV AH,0dH  ; 
    MOV CL,04
 
    MOV AL,BH     ; заносим значение BH в AL
    SHR AL,CL     ; сдвиг всех разрядов регистра на CL разрядов вправо
    ADD AL,30H    ;прибавить 30H
    STOSW   ; сохраняем элементы из аккумулятора в последовательности
    MOV AL,BH      ;
    AND AL,0FH  ; если бит источника и приемника 1, то результат 1
    ADD AL,30H
    STOSW
 
    MOV AL,':'
    STOSW
 
    MOV AL,BL           ; заносим значение BH в AL
    SHR AL,CL          ; сдвиг всех разрядов регистра на CL разрядов вправо
    ADD AL,30H          ;прибавить 30H
    STOSW                  сохраняем элементы из аккумулятора в последовательности
    MOV AL,BL
    AND AL,0FH          если бит источника и приемника 1, то результат 1
    ADD AL,30H
    STOSW
    
    MOV AL,':'
    STOSW
 
    MOV AL,DH
    SHR AL,CL
    ADD AL,30H
    STOSW
    MOV AL,DH
    AND AL,0FH
    ADD AL,30H
    STOSW
 
    POP  DI       ; вытащить из стека в обратном порядке
    POP  ES
    POP  DX
    POP  CX
    POP  BX
    POP  AX
    db  0eah
    Vector1 DW  ?
    Vector2 DW  ?
Input   ENDP
 
Resedent:
    MOV AX,351CH    ;   получить вектор прерывания
    INT 21H
    MOV Vector1,BX
        MOV Vector2,ES
 
    MOV AX,251CH    ; установить вектор прерывания
    MOV DX,OFFSET INPUT
    INT 21H
 
    MOV AX,3100H   ; завершиться и остаться резидентным
    MOV DX,OFFSET Resedent
    INT 21H
 
TIMES   ENDS
END Start