;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