From f91b929d902c55ee7e7e98cef928b8f089fd36aa Mon Sep 17 00:00:00 2001
From: Phil Budne <phil@ultimate.com>
Date: Tue, 15 Mar 2016 23:55:38 -0400
Subject: [PATCH] fix/add sys comments

---
 src/sys/s2.s |  4 ++--
 src/sys/s5.s |  4 +++-
 src/sys/s7.s | 28 ++++++++++++++--------------
 3 files changed, 19 insertions(+), 17 deletions(-)

diff --git a/src/sys/s2.s b/src/sys/s2.s
index b0eb48a..9b10af2 100644
--- a/src/sys/s2.s
+++ b/src/sys/s2.s
@@ -27,8 +27,8 @@
 
 	" capture display?
 .capt:
-   lac u.ac
-   dac u.dspbuf
+   lac u.ac			" get user AC
+   dac u.dspbuf			" save as user display buffer
    jms movdsp
    jmp sysexit
 
diff --git a/src/sys/s5.s b/src/sys/s5.s
index 3520ef0..a0a7b4b 100644
--- a/src/sys/s5.s
+++ b/src/sys/s5.s
@@ -242,11 +242,13 @@ dspnl: 0			" only called once!
 dspinit: 0
    lac dspbufp3			" get pointer to dspbuf+3
    dac dsploc			" store location
-   lac o400000			" display "TRAP" instruction
+   lac o400000			" display "TRAP" instruction (end of list)
    dac dspbuf+3			" save in buffer
    dzm dsplno			" clear display line number
    jmp dspinit i
 
+	" "move display" (change display buffer pointer)
+	" called with new buffer pointer in AC??
 movdsp: 0
    iof
    cdf
diff --git a/src/sys/s7.s b/src/sys/s7.s
index f175a46..ce52456 100644
--- a/src/sys/s7.s
+++ b/src/sys/s7.s
@@ -101,7 +101,7 @@ dsprestart:
 
 1: sna ral			" dataphone flag set (bit 7)??
    jmp .+3			"  no
-   raef				" XXX: fix comment
+   raef				" "resume after edges flag"
    jmp piret			" return
    sma				" light pen flags (bit 2)
    jmp 1f			"  no
@@ -114,9 +114,9 @@ dsprestart:
 1: ksf				" (TTY) keyboard flag set?
    jmp 1f			"  no
 
-   lac ttydelay		" get TTY delay
-   sma				"
-   isz ttydelay
+   lac ttydelay			" get TTY delay
+   sma				" minus (waiting for output)?
+   isz ttydelay			"  no: increment??? (make more positive)
    krb				" read keyboard buffer
    dac char			" save in char
    sad o375			" interrupt char (TTY ALT MODE?)
@@ -128,12 +128,12 @@ dsprestart:
    jms wakeup			" wake processes
    dac sfiles+0			" clear sleep word
    lac char			" get character
-   sad o212			" odd condition (break???)
+   sad o212			" new line (with parity)??
    skp				"  yes
    jmp piret			"   no: done
-   lac sfiles+1			" get ttyout wait word
-   sma				" bit for process 1 already set?
-   xor o400000			" no, make it so
+   lac sfiles+1			" get ttyout sleep word
+   sma				" highest bit set?
+   xor o400000			" no, make it so (why???)
    dac sfiles+1			" save back
 
 "** 01-s1.pdf page 43
@@ -259,7 +259,7 @@ ttyrestart: 0
    jmp piret
 
 		"** BEGIN CROSSED OUT
-1: spb					" graphic 2 push button flag set?
+1: spb					" any graphic-2 push button?
    jmp 1f				"  no
 
    cpb					" clear push button flag
@@ -268,11 +268,11 @@ ttyrestart: 0
 
 "** 01-s1.pdf page 45
 
-   and o2000
-   sna
-   jmp piret
-   jms dspinit
-   lac sfiles+6
+   and o2000				" get push button 7
+   sna					" set?
+   jmp piret				"  no: done
+   jms dspinit				" yes: reset display buffer
+   lac sfiles+6				" wake up anyone sleeping on display
    jms wakeup
    dac sfiles+6
    cla					" clear button lights