From cd60f962c0aa900c8efd0b9b6f91f2d19b809ccf Mon Sep 17 00:00:00 2001
From: Warren Toomey <wkt@tuhs.org>
Date: Tue, 1 Mar 2016 17:58:01 +1000
Subject: [PATCH] I found the type in cat.s and now original PDP-7 cat works
 with a7out! Yay!

---
 src/cmd/cat.s | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/src/cmd/cat.s b/src/cmd/cat.s
index abb566a..f40fd6c 100644
--- a/src/cmd/cat.s
+++ b/src/cmd/cat.s
@@ -63,14 +63,14 @@ done:
    and d1
    sna cla
      jmp 1f
-   jms putc			" Print out the character
+   jms putc			" Store the character in the buffer
    jmp done			" and loop back
 1:
-   lac noc			
-   rcr
-   dac 1f
+   lac noc			" Get the number of characters in the buffer
+   rcr				" Divide by two to convert to words
+   dac 1f			" Save in the write's word count below
    lac fo			" Load fd 1, stdout
-   sys write; iopt+1; 1
+   sys write; iopt+1; 1:..	" Write the leftover buffer and exit
    sys exit
 
 getc: 0