randomize:
        in al, 40h	; read micro-clock for initial seed
        mov ah, al
        in al, 40h
        xchg al, ah
        or ax, 1
        mov rnum, ax
ret

jmp start
	
xxx:
mov ah, 02ch
int 21h
and dl, 0fh
cmp dl, 9
ja xxx
add dl, 30h
mov [di], dl
ret
	
delay:
mov cx, 0
	
yyy:
mov dx, 0a00h
	
zzz:
xor ax, ax
dec dx
cmp dx, 0
jne zzz
	
loop yyy
ret
	
start:
lea di, numb
call xxx
inc di
call delay
call xxx
inc di
call delay
call xxx
mov ah, 09h
lea dx, numb
int 21h
int 20h
	
numb db 4 dup('$')