DR
proc SayM
mov ax, 0
nextch:
mov si, dx
add si, eax
mov di, dx
mov byte al, [edi]
rep movsb
mov byte di, [al]
cmp di, 0x0
je end
inc ax
mov ah, 0x0e
mov al, di
int 0x10
jmp nextch
end:
xor ax, ax
endp
mov dx, [say_casino]
call SayM
mov dx, [say_getstr]
call SayM
mov dx, 0
next_get_ch:
cmp [getnum], 0x0
mov ah, 00h
mov al, [getnum]
int 16h
jmp next_get_ch
xor dx, dx
mov dx, [fail_casino]
call SayM
cli