АВМиС - бывшее АПЭВМ / Shpora / 13

.model small
.data
t dw 0
h db 0
m db 0
s db 0
hh db 0
mm db 0
ss db 0
.code
b:
mov ax,@data
mov ds,ax
mov cx,10
p:
push cx
mov ah,02h
int 1ah
call transfer
mov h,ch
mov m,cl
mov s,dh
xor ax,ax
mov al,m
xor cx,cx
mov cl,s
mul cx
mov t,ax
p1:
mov ah,02h
int 1ah
call transfer
mov hh,ch
mov mm,cl
mov ss,dh
call time
cmp al,1
jne p1
pop cx
loop p
mov ah,4ch
int 21h
transfer proc
mov al,ch
xor ah,ah
mul 10
and ch,fh
add ch,al
....
ret
transfer endp
time proc
mov al,h
xor ah,ah
cmp al,hh
je s
mov cx,3600
add cl,ss
sub cx,t
cmp cx,5
jne exit
jmp s1
s:
xor ax,ax
xor cx,cx
mov al,ss
mov cl,mm
mul cx
sub ax,t
cmp ax,5
jne exit
s1:
mov ah,9h
mov al,'h'
mov bh,0
mov bl,4ah
mov cx,1
int 10h
exit:
ret
time endp
b end