github.com/DoctorWkt.pdp7-unix
1
0
Fork 0
mirror of https://github.com/DoctorWkt/pdp7-unix.git synced 2026-04-17 00:45:26 +00:00
Code Issues Releases Wiki Activity

Add page comments to cat.s

Browse Source
This commit is contained in:
Sebastian Rasmussen
2019-11-01 02:23:51 +01:00
parent e8c99b737a
commit 25fc9eb131
2 changed files with 6 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
scans/cat.s
View File

@@ -1,3 +1,4 @@
"** 06-5-12.pdf page 21
" cat
lac 017777 i
@@ -60,6 +61,7 @@ done:
and d1
sna cla
jmp 1f
"** 06-5-12.pdf page 22
jms putc
jmp done
1:
@@ -121,6 +123,7 @@ putc: 0
sad d128
skp
jmp putc i
"** 06-5-12.pdf page 23
lac fo
sys write; iopt+1; 64
lac iopt

3
src/cmd/cat.s
View File

@@ -1,3 +1,4 @@
"** 06-5-12.pdf page 21
" cat: cat arg1 [arg2 ...]
" Load the pointer pointer in 017777 to see if we have any arguments
@@ -63,6 +64,7 @@ done:
and d1
sna cla
jmp 1f
"** 06-5-12.pdf page 22
jms putc " Store the character in the buffer
jmp done " and loop back
1:
@@ -126,6 +128,7 @@ putc: 0
sad d128
skp
jmp putc i " No, so return (more room still in the buffer)
"** 06-5-12.pdf page 23
lac fo " Load fd1 (i.e stdout)
sys write; iopt+1; 64 " and write out the 64 words in the buffer
lac iopt