34 lines
No EOL
282 B
NASM
34 lines
No EOL
282 B
NASM
.code
|
|
|
|
cat START 0
|
|
|
|
CLEAR X
|
|
|
|
|
|
read RD #0
|
|
STCH BUFF, X
|
|
COMP #10 . \n
|
|
JEQ cont
|
|
TIX #bufflen
|
|
JLT read
|
|
|
|
|
|
cont CLEAR X
|
|
print LDCH BUFF, X
|
|
WD #1
|
|
TIX #bufflen
|
|
COMP #0
|
|
JGT print
|
|
|
|
halt J halt
|
|
|
|
|
|
.data
|
|
|
|
BUFF RESB 128
|
|
BYTE 0
|
|
buffend EQU *
|
|
bufflen EQU buffend - BUFF - 1
|
|
|
|
|
|
END cat |