Динамические часы на ассемблере

Ideal
        Model small
        P486N                       
        Stack 256
 
MACRO   window N,attrib,y1,x1,y2,x2     
    mov ah,06h    
    mov al,N                
    mov bh,attrib           
    mov ch,y1               
    mov cl,x1               
    mov dh,y2               
    mov dl,x2               
    int 10h             
ENDM    window  
 
MACRO   locate y,x
    mov ah,02h
    mov bh,0
    mov dh,y
    mov dl,x
    int 10h
ENDM    locate
 
MACRO   cprintf mes,len,attrib,x,y,n
    mov ah,13h
    mov al,1    ;Признак смещения курсора в конец строки
    mov bh,n    ;Номер видеостраницы
    mov bl,attrib
    mov cx,len
    mov dh,y
    mov dl,x
    mov bp,offset mes   ;Адрес строки ES:BP
    int 10h
ENDM    cprintf
 
MACRO   out_str mes
    mov ah,09h
    lea dx,[mes]
    int 21h
ENDM    out_str
                                       
        DATASEG
 
intro   db  13,10," ╔═════════════════════════════════════╗"    
    db  13,10," ║                Курсовая работа по Ассемблеру                                  ║"    
    db  13,10," ║  Студент: Шевченко Н.С.   Преподаватель: Афанасьев В.А.   ║"    
    db  13,10," ╚═════════════════════════════════════╝",13,10,'$'
                                               
mes_t11     db  13,10,"                ╔═════════════════════════════════╗"   
    db  13,10,"                ║    Текущее время:                                                               ║"
    db  13,10,"                ║   Реальное время:                                                               ║"
    db  13,10,"                ╚═════════════════════════════════╝$"
 
status  db  13,10," ╔════════════════════════════════╗"   
    db  13,10," ║  Статус:                                                                            ║"
    db  13,10," ╚════════════════════════════════╝$"
 
mode    db  13,10," ╔════════════════════════════════╗"   
    db  13,10," ║  Коэффициент замедления:                                           ║"
    db  13,10," ╚════════════════════════════════╝$"
 
info1   db  13,10," ╔═════════════════════════════════════════════╗"   
    db  13,10," ║  Нажмите комбинацию клавиш вида <Scroll Lock + цифра>                         ║"
    db  13,10," ║  где цифра = 1 ... 8 (коэффициент замедления)                                                ║"
    db  13,10," ║  цифра '1' означает, что  замедление отсутствует                                            ║"
    db  13,10," ║  Примечание : по умолчанию замедление отсутствует!                                 ║"
    db  13,10," ╚═════════════════════════════════════════════╝$"
 
str1    db  "1/1$"
str2    db  "1/2$"
str3    db  "1/3$"
str4    db  "1/4$"
str5    db  "1/5$"
str6    db  "1/6$"
str7    db  "1/7$"
str8    db  "1/8$"
len7 = $-str8
 
error   db  13,10,13,10, "Неверная комбинация клавиш. Попробуйте еще раз. $"
 
temp    db  ?
temp1   db  ?
 
 
clocks  db  "00:00:00"
sclock_len = $-clocks
 
yes db  "Резидент обнаружен"
yes_len = $-yes
no  db  "Резидент не обнаружен"
no_len  = $-no
 
;--------------------------------------------------------------
 
    Codeseg
Start:
    mov ax,@data        
    mov ds,ax
    mov es,ax
    
;вывод пользовательского меню
 
    window 0,8Fh,0,0,25,80  
    locate 0,0  
 
    out_str  intro
    out_str  mes_t11
    out_str  status
    out_str  mode
    out_str  info1  
 
    mov ax,0C800h       
    int 2Fh     
    cmp al,0ffh 
    jne ok       
    cprintf yes,yes_len,2Fh,12,11,0
    mov [temp1],1
 
    jmp work
 
; резидента в памяти нет - выход
ok: 
    cprintf no,no_len,4Fh,12,11,0
    jmp quit
 
; вывод на экран незамедленного (системного) времени         
work:       
    mov ah, 2Ch
    int 21h
    jc end_out
 
    mov al,ch
    call bcd_asc
    mov [clocks],ah
    mov [clocks+1],al   
    mov al,cl
    call bcd_asc
    mov [clocks+3],ah
    mov [clocks+4],al
    mov al,dh
    call bcd_asc
    mov [clocks+6],ah
    mov [clocks+7],al
    cprintf clocks,sclock_len,1Fh,36,7,0
end_out:
    
;--------------------------------------------------------------------   
    
    push ax 
    mov ax,0C700h
    int 2Fh
    mov [temp],al 
    
    locate 14,30
    
    cmp [temp],0h
    jne del1
    cmp [temp1],1h
    jne del1
    out_str str1,len7,1Eh,63,15,0
    
del1:   cmp [temp],01h
    jne del2
    out_str str1,len7,1Eh,63,15,0
            
del2:   cmp [temp],02h
    jne del3
    out_str str2,len7,1Eh,63,15,0
        
del3:   cmp [temp],03h
    jne del4
    out_str str3,len7,1Eh,63,15,0
    
del4:   cmp [temp],04h
    jne del5
    out_str str4,len7,1Eh,63,15,0
    
del5:   cmp [temp],05h
    jne del6
    out_str str5,len7,1Eh,63,15,0
    
del6:   cmp [temp],06h
    jne del7
    out_str str6,len7,1Eh,63,15,0
        
del7:   cmp [temp],07h
    jne del8
    out_str str7,len7,1Eh,63,15,0
    
del8:   cmp [temp],08h
    jne del9
    out_str str8,len7,1Eh,63,15,0
del9:   
 
    pop ax
;---------------------------------------------------------------
; проверка на нажатие клавиши         
quit:   mov ah, 01h
    int 16h
    je work        
    
exit:   
    mov ax,4C00h        
    int 21h 
        
;---------------------------------------------------------------
; процедура преобразования числа в ASCII-форму
Proc    bcd_asc
 
    xor bx,bx
    mov bl, al
    mov bh, 00h
    mov ax,bx                     
    
    mov cl, 10  ; 10 == 1010b
        div cl                        
                               
    add ah, '0'                              
    add al, '0'                              
              
    xchg ah,al  
                              
    ret                                     
Endp    bcd_asc                                 
                                                
;---------------------------------------------------------------
End start       ; конец программы/точка выхода

132.  push cx
133.  mov al,ch
134.  call bcd_asc
135.  pop cx