glm94/pdp7-unix
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Merge pull request #199 from sebras/pagecomments/cat.s

Browse Source 
Add page comments to cat.s
This commit is contained in:
Tom Everett
2020-03-14 14:55:22 -06:00
committed by GitHub
parent f2797117ff 25fc9eb131
commit c953a887f1
2 changed files with 6 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
scans/cat.s
+3
View File
@@ -1,3 +1,4 @@
"** 06-5-12.pdf page 21
" cat " cat
lac 017777 i lac 017777 i
@@ -60,6 +61,7 @@ done:
and d1 and d1
sna cla sna cla
jmp 1f jmp 1f
"** 06-5-12.pdf page 22
jms putc jms putc
jmp done jmp done
1: 1:
@@ -121,6 +123,7 @@ putc: 0
sad d128 sad d128
skp skp
jmp putc i jmp putc i
"** 06-5-12.pdf page 23
lac fo lac fo
sys write; iopt+1; 64 sys write; iopt+1; 64
lac iopt lac iopt
src/cmd/cat.s
+3
View File
@@ -1,3 +1,4 @@
"** 06-5-12.pdf page 21
" cat: cat arg1 [arg2 ...] " cat: cat arg1 [arg2 ...]
" Load the pointer pointer in 017777 to see if we have any arguments " Load the pointer pointer in 017777 to see if we have any arguments
@@ -63,6 +64,7 @@ done:
and d1 and d1
sna cla sna cla
jmp 1f jmp 1f
"** 06-5-12.pdf page 22
jms putc " Store the character in the buffer jms putc " Store the character in the buffer
jmp done " and loop back jmp done " and loop back
1: 1:
@@ -126,6 +128,7 @@ putc: 0
sad d128 sad d128
skp skp
jmp putc i " No, so return (more room still in the buffer) 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) lac fo " Load fd1 (i.e stdout)
sys write; iopt+1; 64 " and write out the 64 words in the buffer sys write; iopt+1; 64 " and write out the 64 words in the buffer
lac iopt lac iopt