added cat.asm
This commit is contained in:
parent
fb9dd4d7ec
commit
47f3dcfc12
1 changed files with 1 additions and 0 deletions
|
|
@ -1,33 +0,0 @@
|
|||
.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
|
||||
Loading…
Add table
Add a link
Reference in a new issue