;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 newline
ret