001A - Denbora kalkulatu

title 'proba.asm'

.model small

.data
 mezua db 'Denbora kalkulatzen ari naiz...',10,13,'$'
 orduak db ?
 minutuak db ?
 segunduak db ?
 msegunduak db ?

.code
nagusia proc near
hasi:
 mov ax, @data
 mov ds, ax

 ; Denbora kalkulatzera goaz
 mov ah,2ch
 int 21h

 mov orduak,ch
 mov minutuak,cl
 mov segunduak,dh
 mov msegunduak,dl

 call agurra

; ezberdintasuna kalkulatzen da
 sub dl,msegunduak
 jnc  sub_seg
 add dl,100
 dec dh

sub_seg:
 sub dh,segunduak
 jnc sub_min
 add dh, 60
 dec cl

sub_min:
 sub cl,minutuak
 jnc sub_ord
 add cl,60
 dec ch

sub_ord:
 sub ch, orduak
 jnc ok
 add ch,24

ok:
 ; irten
 mov ah,4ch
 int 21h
nagusia endp

agurra proc near
 xor ax,ax
 mov ah,09h
 lea dx, mezua
 int 21h
 mov cx,100
 rep nop
 ret
agurra endp
end hasi