;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 printcrlf

ret