;Reads a string of at most AL characters to DI until a return and prints a newline.

readln:

;Read the string
call readstr

;Print a newline
call printnl

ret