Bug fixes (#236)

* '#' is not a valid comment

* bug fix

* less noisy fix

.github/workflows/main.yml

@@ -0,0 +1,31 @@
+name: CI
+
+on:
+  push:
+    branches: [ master ]
+  pull_request:
+    branches: [ master ]
+jobs:
+  build-ubuntu:
+    runs-on: ubuntu-latest
+
+    steps:
+    - uses: actions/checkout@v2
+
+    - name: get libdatetime-perl
+      run: sudo apt-get install libdatetime-perl
+
+    - name: build 
+      run: make clean;make alt; make clean; make
+
+  build-macos:
+    runs-on: macos-latest
+
+    steps:
+    - uses: actions/checkout@v2
+
+    - name: get DateTime
+      run: sudo cpan -i DateTime
+
+    - name: build 
+      run: make clean;make alt; make clean; make

.gitignore

@@ -12,3 +12,7 @@ build/n.out
 build/alt/a.lst
 build/alt/a.out
 build/alt/image.fs
+**/.DS_Store
+/a.out
+/build/cas.out
+/build/chrtbl.out

.travis.yml

@@ -1,3 +0,0 @@
-language: c
-sudo: false
-script: make clean;make

Makefile

@@ -9,8 +9,11 @@ buildit:
 run: buildit
 	cd build && $(MAKE) run
 
-altrun: buildit
+alt:
-	cd build && $(MAKE) alt && $(MAKE) altrun
+	cd build && $(MAKE) alt
+
+altrun: alt
+	cd build && $(MAKE) altrun
 
 clean:
 	cd build && $(MAKE) clean

README.md

@@ -1,3 +1,5 @@
+![CI](https://github.com/DoctorWkt/pdp7-unix/workflows/CI/badge.svg)
+
 # pdp7-unix
 
 
@@ -11,14 +13,26 @@ The scans of PDP-7 Unix are in the [Unix Archive](http://www.tuhs.org/)
 
 ## Current Status
 
-Update mid-March 2016: We've written an assembler, a user-mode simulator and
+### January 2020
+
+Unixv0 is running on a real PDP-7 at the Living Computer Museum. [Youtube](https://www.youtube.com/watch?v=pvaPaWyiuLA).
+
+### October 2019
+
+A second notebook with missing sources has been
+discovered and scanned.  New files are being added to the scans
+directory as they are typed in!
+
+### March 2016 
+
+We've written an assembler, a user-mode simulator and
 commented several source files. We now have these utilities running:
 as, cat, chmod, chown, chrm, cp, date, ln, ls, mv, stat. We have a working
 shell with some functionality missing. We have a working filesystem and
 we can now boot the kernel, launch init, login, get to a shell prompt and
 run the utilities.
 
-Things to do: finish the shell, write the missing utilities, bring the
+Things to do: bring the
 system fully up on a PDP-7 system, fix any bugs and document everything.
 We have a [real PDP-7](http://physics.uoregon.edu/outreach/movies/pdplives/)
 and [SimH](http://simh.trailing-edge.com/) as target platforms.
@@ -30,12 +44,11 @@ pdp7-unix requires [Perl5](https://www.perl.org/) to build.
 
 To compile it:
 
-`make pdp7`
+`make`
 
 ## Running pdp7-unix
 
-You will need [simh](http://simh.trailing-edge.com/) 4.0 to run pdp7-unix.  You can get the source code [here](https://github.com/simh/simh).  
+You will need [simh](http://simh.trailing-edge.com/) 4.0 to run pdp7-unix.  You can get the source code [here](https://github.com/simh/simh). On 64-bit systems, you may need to set the C compiler's optimisation level to -O1.
-On 64-bit systems, you may need to set the C compiler's optimisation level to -O1.
 
 ### Running from source
 
@@ -45,23 +58,20 @@ To run pdp-unix from the pdp7-unix source tree, do:
 
 Press `ctl-e` to break out the simulator into simh
 
-### Precompiled Binaries
-
-You can also run pdp7-unix from precompiled binaries in the [/binaries](/binaries) directory. 
-
-`cd binaries/; pdp7 unixv0.simh`
-
 ### Typical Output
 
 A typical pdp7-unix session on simh looks like:
 
 <pre>
 pdp7 unixv0.simh
-
+k
-PDP-7 simulator V4.0-0 Beta        git commit id: e153b7f2
+PDP-7 simulator V4.0-0 Current        git commit id: b848cb12
 CPU	idle disabled
-	8192W, EAE
+	8KW, EAE
+/Users/tom/projects/pdp7-unix/build/unixv0.simh-13> att rb image.fs
 RB: buffering file in memory
+/Users/tom/projects/pdp7-unix/build/unixv0.simh-17> att -U g2in 12345
+Listening on port 12345
 PDP-7 simulator configuration
 
 CPU	idle disabled
@@ -70,57 +80,90 @@ PTR	devno=01
 PTP	devno=02
 TTI	devno=03
 TTO	devno=04
-LPT	devno=65-66
+LPT	disabled
 DRM	disabled
 RB	devno=71
-DT	devno=75-76, 8 units
+DT	disabled
+G2OUT	devno=05
+G2IN	devno=43-44
 
 login: ken
 password: ken
-@ ln dd ken .
 @ ls
-dd      
+..
-system  
+dd
-hello   
+maksys.s
-.       
+s1.s
+s2.s
+s3.s
+s4.s
+s5.s
+s6.s
+s7.s
+s8.s
+sop.s
+system
+sys.rc
+trysys.s
 @ ls system
-dd      
+..
-ttyin   
+adm
+apr
+as
+b
+cas
+cat
+check
+chmod
+chown
+chrm
+cp
+date
+db
+dd
+display
+ds
+dskres
+dsksav
+dsw
+dttt
+ed
+init
 keyboard
-pptin   
+link
-ttyout  
+list
-display 
+ln
-pptout  
+ls
-as      
+moo
-cat     
+mv
-chmod   
+nm
-chown   
+od
-chrm    
+p
-cp      
-date    
-ds      
-ed      
-init    
-ln      
-ls      
-mv      
 password
-sh      
+pptin
-stat    
+pptout
-@ cat hello
+rm
-Hello, world
+rn
+roff
+salv
+sh
+stat
+tm
+ttyin
+ttyout
+ttt
+un
 @ 
 </pre>
 
 
 ## Source Tree
 
-The code in the original scans are (c) Novell who own the rights to the Unix
+The code in the original scans are (c) Micro Focus who own the rights to the Unix
 source code. Everything that didn't come from the scanned files is GPLv3.
 
-* /binaries  holds pre-build boot and filesystem binaries for users who wish to run pdp7-unix without building it.
 * /build     is an area to build the kernel & filesystem and run them
-* /man		 holds man pages
+* /man       holds man pages
 * /misc	     holds miscellaneous notes and information
 * /scans     holds the unmodified OCR versions of the scanned files
 * /src/cmd   holds the modified source code of the user-mode programs
@@ -140,7 +183,3 @@ We have a
 for those people actively involved in the restoration effort. Send e-mail
 to Warren Toomey (DoctorWkt) if you are keen to help out.
 
-## Travis Status
-
-<a href="https://travis-ci.org/DoctorWkt/pdp7-unix">
-<img src="https://api.travis-ci.org/DoctorWkt/pdp7-unix.png"></a>

binaries/boot.rim

@@ -1 +0,0 @@
-¸€‚¸›‚¸¹¡¿�€¸¹”½€€¸¹¢‘€¦¶‡ˆ•€¤¸¹„‘€¢¸¹¤¸¹‘±€�¸¹š¼‰€¼€ ¿°€¸¹”‘€£¸¹¢‘€¦¶‡ˆ•€¥¸¹„‘€¢¸¹¤¸¹‘±€œ¸¹š¼‰€¼€ °�€€�€€°€˜€€˜�ˆ€€€±€À

binaries/unixv0.simh

@@ -1,31 +0,0 @@
-set cpu 8k
-set cpu eae
-set cpu history=100
-show cpu
-
-# set up SIMH devices:
-
-# UNIX character translations (CR to NL, ESC to ALTMODE):
-set tti unix
-
-# RB09 fixed head disk:
-set rb ena
-att rb image.fs
-
-# uncomment to TELNET in GRAPHICS-2 keyboard/display(!!)
-# (requires github.com/philbudne/simh)
-set g2in ena
-att -U g2in 12345
-
-# disable hardware UNIX-7 doesn't know about:
-set lpt disa
-set drm disa
-set dt disa
-
-# show device settings:
-show dev
-
-# load and run the paper tape bootstrap
-# (loads system from disk)
-load boot.rim 010000
-go

build/Makefile

@@ -8,12 +8,13 @@ ASARGS=--format=ptr
 MKFS=../tools/mkfs7
 A7OUT=../tools/a7out 
 FSCK=../tools/fsck7
-CCARGS=-Wno-multichar
+CCARGS=-Wno-multichar -Wno-implicit
-PDP7=pdp7
+PDP7?=pdp7
 
 # source dirs
 SYSSRC=../src/sys
 CMDSRC=../src/cmd
+GAMESRC=../src/games
 ALTSRC=../src/alt
 OTHERSRC=../src/other
 TESTSRC=../src/tests
@@ -50,16 +51,20 @@ dist: all alt
 	cp alt/unixv0.simh $(BINARIES)/alt
 
 # Warm boot Unix kernel: boots into init and a login prompt
-a.out:
+SYS=	$(SYSSRC)/sop.s $(SYSSRC)/s1.s $(SYSSRC)/s2.s \
-	$(AS) -f ptr  -o a.out $(SYSSRC)/sop.s $(SYSSRC)/s[1-8].s
+	$(SYSSRC)/s3.s $(SYSSRC)/s4.s $(SYSSRC)/s5.s \
-	$(AS) -n -f list -o a.lst $(SYSSRC)/sop.s $(SYSSRC)/s[1-8].s
+	$(SYSSRC)/s6.s $(SYSSRC)/s7.s $(SYSSRC)/s8.s
+a.out:	$(SYS)
+	$(AS) -f ptr  -o a.out $(SYSSRC)/sop.s $(SYS)
+	$(AS) -n -f list -o a.lst $(SYSSRC)/sop.s $(SYS)
 
 # Alternative kernel: no dd, but . and ..
-alt/a.out:
+ALTSYS=	$(SYSSRC)/sop.s $(SYSSRC)/s1.s $(ALTSRC)/s2.s \
-	$(AS) -f ptr -o alt/a.out $(SYSSRC)/sop.s $(SYSSRC)/s1.s \
+	$(SYSSRC)/s3.s $(SYSSRC)/s4.s $(SYSSRC)/s5.s \
-		$(ALTSRC)/s2.s $(SYSSRC)/s[3-8].s
+	$(SYSSRC)/s6.s $(SYSSRC)/s7.s $(SYSSRC)/s8.s
-	$(AS) -n -f list -o alt/a.lst $(SYSSRC)/sop.s $(SYSSRC)/s1.s \
+alt/a.out: $(ALTSYS)
-		$(ALTSRC)/s2.s $(SYSSRC)/s[3-8].s
+	$(AS) -f ptr -o alt/a.out $(ALTSYS)
+	$(AS) -n -f list -o alt/a.lst $(ALTSYS)
 
 # Phil's bootstrap code
 boot.rim: $(SYSSRC)/sop.s $(OTHERSRC)/pbboot.s
@@ -67,13 +72,14 @@ boot.rim: $(SYSSRC)/sop.s $(OTHERSRC)/pbboot.s
 
 # Cold boot Unix kernel: attempts to build a minimal filesystem.
 # Don't use this one!
-coldboot:
+COLDBOOT=$(SYS) $(SYSSRC)/s9.s
-	$(AS) -f rim  -o boot.rim $(SYSSRC)/sop.s $(SYSSRC)/s[1-9].s
+coldboot.rim: $(COLDBOOT)
-	$(AS) -n -f list -o a.lst $(SYSSRC)/sop.s $(SYSSRC)/s[1-9].s
+	$(AS) -f rim  -o coldboot.rim $(COLDBOOT)
+	$(AS) -n -f list -o a.lst $(COLDBOOT)
 
 # Filesystem image
-image.fs: cmd others
+image.fs: cmd others a.out chrtbl.out
-	$(MKFS) -k a.out proto
+	$(MKFS) -k a.out -c chrtbl.out proto
 	$(FSCK) image.fs
 
 # Alternate filesystem image: . and .. but no dd
@@ -81,29 +87,84 @@ alt/image.fs: altcmd altothers
 	$(MKFS) -1 -2 -3 -o alt/image.fs -k alt/a.out alt/proto
 	$(FSCK) -3 alt/image.fs
 
+# character table: assemble output of cas.s
+chrtbl.out: cas.out ../src/other/chrtbl.s
+	$(AS) -f ptr --no-label-warnings -o chrtbl.out ../src/other/chrtbl.s cas.out
+
+# run cas.s under a7out: needs local file!
+cas.out: bin/cas ../src/sys/cas.in
+	rm -f cas.in
+	ln -s ../src/sys/cas.in .
+	$(A7OUT) bin/cas cas.out cas.in
+	rm -f cas.in
+
 clean:
 	rm -f boot.rim image.fs a.lst n.out a.out
+	rm -f cas cas.in cas.out chrtbl.out
 	rm -f alt/image.fs alt/a.out alt/a.lst
-	rm -rf $(BINDIR) $(TESTDIR)
+	rm -rf $(BINDIR) $(TESTDIR) 
 	rm -rf $(BINARIES)
 
 dirs:
 	mkdir -p $(BINDIR)
 
 # The commands that came from the original scans
-cmd: dirs $(BINDIR)/as $(BINDIR)/cat $(BINDIR)/check $(BINDIR)/chmod \
+# PLEASE KEEP IN ALPHABETICAL ORDER!
-	$(BINDIR)/chown $(BINDIR)/chrm $(BINDIR)/cp $(BINDIR)/ds \
+cmd:	dirs \
-	$(BINDIR)/dskres $(BINDIR)/dsksav $(BINDIR)/ed $(BINDIR)/init \
+	$(BINDIR)/adm \
-	$(BINDIR)/db
+	$(BINDIR)/ald \
+	$(BINDIR)/apr \
+	$(BINDIR)/as \
+	$(BINDIR)/cas \
+	$(BINDIR)/cat \
+	$(BINDIR)/check \
+	$(BINDIR)/chmod \
+	$(BINDIR)/chown \
+	$(BINDIR)/chrm \
+	$(BINDIR)/cp \
+	$(BINDIR)/db \
+	$(BINDIR)/ds \
+	$(BINDIR)/dskres \
+	$(BINDIR)/dsksav \
+	$(BINDIR)/dsw \
+	$(BINDIR)/ed \
+	$(BINDIR)/init \
+	$(BINDIR)/ln \
+	$(BINDIR)/ls \
+	$(BINDIR)/moo \
+	$(BINDIR)/nm \
+	$(BINDIR)/p \
+	$(BINDIR)/psych \
+	$(BINDIR)/rm \
+	$(BINDIR)/rn \
+	$(BINDIR)/roff \
+	$(BINDIR)/salv \
+	$(BINDIR)/sh \
+	$(BINDIR)/st \
+	$(BINDIR)/stat \
+	$(BINDIR)/tm \
+	$(BINDIR)/ttt \
+	$(BINDIR)/un
 
 # Alternate commands: no dd, but . and ..
-altcmd: dirs $(BINDIR)/as $(BINDIR)/cat $(BINDIR)/check $(BINDIR)/chmod \
+altcmd: dirs cmd \
-	$(BINDIR)/chown $(BINDIR)/altchrm $(BINDIR)/cp $(BINDIR)/ds \
+	$(BINDIR)/altchrm $(BINDIR)/cp $(BINDIR)/altinit $(BINDIR)/altmkdir
-	$(BINDIR)/ed $(BINDIR)/altinit $(BINDIR)/altmkdir
+
+$(BINDIR)/adm: $(CMDSRC)/adm.s
+	$(AS) $(ASARGS) -o $(BINDIR)/adm $(CMDSRC)/adm.s
+
+$(BINDIR)/ald: $(CMDSRC)/ald.s
+	$(AS) $(ASARGS) -o $(BINDIR)/ald $(CMDSRC)/ald.s
+
+$(BINDIR)/apr: $(CMDSRC)/apr.s
+	$(AS) $(ASARGS) -o $(BINDIR)/apr $(CMDSRC)/apr.s
 
 $(BINDIR)/as: $(CMDSRC)/as.s
 	$(AS) $(ASARGS) -o $(BINDIR)/as $(CMDSRC)/as.s
 
+$(BINDIR)/bc: $(CMDSRC)/bc.s
+	$(AS) $(ASARGS) -o $(BINDIR)/bc $(CMDSRC)/bc.s
+
 $(BINDIR)/cat: $(CMDSRC)/cat.s
 	$(AS) $(ASARGS) -o $(BINDIR)/cat $(CMDSRC)/cat.s
 
@@ -122,47 +183,124 @@ $(BINDIR)/chrm: $(CMDSRC)/chrm.s
 $(BINDIR)/altchrm: $(ALTSRC)/chrm.s
 	$(AS) $(ASARGS) -o $(BINDIR)/altchrm $(ALTSRC)/chrm.s
 
+$(BINDIR)/cas: $(CMDSRC)/cas.s
+	$(AS) $(ASARGS) -o $(BINDIR)/cas $(CMDSRC)/cas.s
+
 $(BINDIR)/cp: $(CMDSRC)/cp.s
 	$(AS) $(ASARGS) -o $(BINDIR)/cp $(CMDSRC)/cp.s
 
-$(BINDIR)/ds: $(CMDSRC)/ds.s
-	$(AS) $(ASARGS) -o $(BINDIR)/ds $(CMDSRC)/ds.s
-
-$(BINDIR)/dskres: $(CMDSRC)/dskres.s $(CMDSRC)/dskio.s $(SYSSRC)/sop.s
-	$(AS) $(ASARGS) -o $(BINDIR)/dskres $(CMDSRC)/dskres.s $(CMDSRC)/dskio.s $(SYSSRC)/sop.s
-
-$(BINDIR)/dsksav: $(CMDSRC)/dsksav.s $(CMDSRC)/dskio.s $(SYSSRC)/sop.s
-	$(AS) $(ASARGS) -o $(BINDIR)/dsksav $(CMDSRC)/dsksav.s $(CMDSRC)/dskio.s $(SYSSRC)/sop.s
-
-$(BINDIR)/ed: $(CMDSRC)/ed1.s $(CMDSRC)/ed2.s
-	$(AS) $(ASARGS) -o $(BINDIR)/ed $(CMDSRC)/ed1.s $(CMDSRC)/ed2.s
-
-$(BINDIR)/init: $(CMDSRC)/init.s
-	$(AS) $(ASARGS) -o $(BINDIR)/init $(CMDSRC)/init.s
-
 $(BINDIR)/db: $(CMDSRC)/db.s
 	$(AS) $(ASARGS) -o $(BINDIR)/db $(CMDSRC)/db.s
 
-# Alternative init: no dd directory
+$(BINDIR)/dmabs: $(CMDSRC)/dmabs.s
-$(BINDIR)/altinit: $(ALTSRC)/init.s
+	$(AS) $(ASARGS) -o $(BINDIR)/dmabs $(CMDSRC)/dmabs.s
-	$(AS) $(ASARGS) -o $(BINDIR)/altinit $(ALTSRC)/init.s
 
-$(BINDIR)/altmkdir: $(ALTSRC)/wktmkdir.s
+$(BINDIR)/ds: $(CMDSRC)/ds.s
-	$(AS) $(ASARGS) -o $(BINDIR)/altmkdir $(ALTSRC)/wktmkdir.s
+	$(AS) $(ASARGS) -o $(BINDIR)/ds $(CMDSRC)/ds.s
 
+DSKRES=$(CMDSRC)/dskres.s $(CMDSRC)/dskio.s $(SYSSRC)/sop.s
+$(BINDIR)/dskres: $(DSKRES)
+	$(AS) $(ASARGS) -o $(BINDIR)/dskres $(DSKRES)
 
+DSKSAV=$(CMDSRC)/dsksav.s $(CMDSRC)/dskio.s $(SYSSRC)/sop.s
+$(BINDIR)/dsksav: $(DSKSAV)
+	$(AS) $(ASARGS) -o $(BINDIR)/dsksav $(DSKSAV)
+
+$(BINDIR)/dsw: $(CMDSRC)/dsw.s
+	$(AS) $(ASARGS) -o $(BINDIR)/dsw $(CMDSRC)/dsw.s
+
+ED=$(CMDSRC)/ed1.s $(CMDSRC)/ed2.s
+$(BINDIR)/ed: $(ED)
+	$(AS) $(ASARGS) -o $(BINDIR)/ed $(ED)
+
+$(BINDIR)/init: $(CMDSRC)/init.s
+	$(AS) $(ASARGS) -o $(BINDIR)/init $(CMDSRC)/init.s
+
+$(BINDIR)/ln: $(CMDSRC)/ln.s
+	$(AS) $(ASARGS) -o $(BINDIR)/ln $(CMDSRC)/ln.s
+
+$(BINDIR)/ls: $(CMDSRC)/ls.s
+	$(AS) $(ASARGS) -o $(BINDIR)/ls $(CMDSRC)/ls.s
+
+$(BINDIR)/moo: $(CMDSRC)/moo.s
+	$(AS) $(ASARGS) -o $(BINDIR)/moo $(CMDSRC)/moo.s
+
+$(BINDIR)/nm: $(CMDSRC)/nm.s
+	$(AS) $(ASARGS) -o $(BINDIR)/nm $(CMDSRC)/nm.s
+
+P=$(CMDSRC)/p1.s $(CMDSRC)/p2.s $(CMDSRC)/p3.s $(CMDSRC)/p4.s $(CMDSRC)/p5.s
+$(BINDIR)/p: $(P)
+	$(AS) $(ASARGS) -o $(BINDIR)/p $(P)
+
+PSYCH=$(CMDSRC)/psych.s $(CMDSRC)/fop.s
+$(BINDIR)/psych: $(PSYCH)
+	$(AS) $(ASARGS) -o $(BINDIR)/psych $(PSYCH)
+
+$(BINDIR)/rm: $(CMDSRC)/rm.s
+	$(AS) $(ASARGS) -o $(BINDIR)/rm $(CMDSRC)/rm.s
+
+$(BINDIR)/rn: $(CMDSRC)/rn.s
+	$(AS) $(ASARGS) -o $(BINDIR)/rn $(CMDSRC)/rn.s
+
+$(BINDIR)/pd: $(CMDSRC)/pd.s
+	$(AS) $(ASARGS) -o $(BINDIR)/pd $(CMDSRC)/pd.s
+
+$(BINDIR)/roff: $(CMDSRC)/roff.s
+	$(AS) $(ASARGS) -o $(BINDIR)/roff $(CMDSRC)/roff.s
+
+$(BINDIR)/salv: $(CMDSRC)/salv.s
+	$(AS) $(ASARGS) -o $(BINDIR)/salv $(CMDSRC)/salv.s
+
+$(BINDIR)/sh: $(CMDSRC)/sh.s
+	$(AS) $(ASARGS) -o $(BINDIR)/sh $(CMDSRC)/sh.s
+
+$(BINDIR)/stat: $(CMDSRC)/stat.s
+	$(AS) $(ASARGS) -o $(BINDIR)/stat $(CMDSRC)/stat.s
+
+$(BINDIR)/tm: $(CMDSRC)/tm.s
+	$(AS) $(ASARGS) -o $(BINDIR)/tm $(CMDSRC)/tm.s
+
+TTT=$(CMDSRC)/ttt1.s $(CMDSRC)/ttt2.s
+$(BINDIR)/ttt: $(TTT)
+	$(AS) $(ASARGS) -o $(BINDIR)/ttt $(TTT)
+
+ST=$(CMDSRC)/st1.s $(CMDSRC)/st2.s $(CMDSRC)/st3.s $(CMDSRC)/st4.s $(CMDSRC)/fop.s $(CMDSRC)/st5.s $(CMDSRC)/st6.s $(CMDSRC)/st7.s
+$(BINDIR)/st: $(ST)
+	$(AS) $(ASARGS) -o $(BINDIR)/st $(ST)
+
+$(BINDIR)/un: $(CMDSRC)/un.s
+	$(AS) $(ASARGS) -o $(BINDIR)/un $(CMDSRC)/un.s
+
+################
 # The commands that did not come from the scans
-others: dirs $(BINDIR)/sh $(BINDIR)/wktcat $(BINDIR)/wktcp $(BINDIR)/date \
-	$(BINDIR)/ln $(BINDIR)/ls $(BINDIR)/mv $(BINDIR)/stat $(BINDIR)/od \
-	$(BINDIR)/bc  $(BINDIR)/lsd $(BINDIR)/lsl
 
-# Alternative other commands: no dd, but . and ..
+others: dirs \
-altothers: dirs $(BINDIR)/sh $(BINDIR)/wktcat $(BINDIR)/wktcp $(BINDIR)/date \
+	$(BINDIR)/b \
-	$(BINDIR)/ln $(BINDIR)/altls $(BINDIR)/mv $(BINDIR)/stat $(BINDIR)/od
+	$(BINDIR)/date \
+	$(BINDIR)/mv \
+	$(BINDIR)/od
 
+# B compiler
+$(BINDIR)/b: $(CMDSRC)/bl.s $(CMDSRC)/bi.s ../tools/b.c $(OTHERSRC)/b.b
+	$(CC) $(CCARGS) -o b ../tools/b.c
+	./b $(OTHERSRC)/b.b b.s
+	$(AS) $(ASARGS) -o $(BINDIR)/b $(CMDSRC)/bl.s b.s $(CMDSRC)/bi.s
+	rm b b.s
 
-$(BINDIR)/sh: $(OTHERSRC)/pbsh.s
+$(BINDIR)/date: $(OTHERSRC)/wktdate.s
-	$(AS) $(ASARGS) -o $(BINDIR)/sh $(OTHERSRC)/pbsh.s
+	$(AS) $(ASARGS) -o $(BINDIR)/date $(OTHERSRC)/wktdate.s
+
+$(BINDIR)/mv: $(OTHERSRC)/wktmv.s
+	$(AS) $(ASARGS) -o $(BINDIR)/mv $(OTHERSRC)/wktmv.s
+
+$(BINDIR)/od: $(OTHERSRC)/wktod.s
+	$(AS) $(ASARGS) -o $(BINDIR)/od $(OTHERSRC)/wktod.s
+
+################
+# replacement programs (no longer in build)
+
+$(BINDIR)/pbsh: $(OTHERSRC)/pbsh.s
+	$(AS) $(ASARGS) -o $(BINDIR)/pbsh $(OTHERSRC)/pbsh.s
 
 $(BINDIR)/wktcat: $(OTHERSRC)/wktcat.s
 	$(AS) $(ASARGS) -o $(BINDIR)/wktcat $(OTHERSRC)/wktcat.s
@@ -170,39 +308,37 @@ $(BINDIR)/wktcat: $(OTHERSRC)/wktcat.s
 $(BINDIR)/wktcp: $(OTHERSRC)/wktcp.s
 	$(AS) $(ASARGS) -o $(BINDIR)/wktcp $(OTHERSRC)/wktcp.s
 
-$(BINDIR)/date: $(OTHERSRC)/wktdate.s
+$(BINDIR)/wktln: $(OTHERSRC)/wktln.s
-	$(AS) $(ASARGS) -o $(BINDIR)/date $(OTHERSRC)/wktdate.s
+	$(AS) $(ASARGS) -o $(BINDIR)/wktln $(OTHERSRC)/wktln.s
 
-$(BINDIR)/ln: $(OTHERSRC)/wktln.s
+$(BINDIR)/wktls: $(OTHERSRC)/wktls.s
-	$(AS) $(ASARGS) -o $(BINDIR)/ln $(OTHERSRC)/wktln.s
+	$(AS) $(ASARGS) -o $(BINDIR)/wktls $(OTHERSRC)/wktls.s
-
-$(BINDIR)/ls: $(OTHERSRC)/wktls.s
-	$(AS) $(ASARGS) -o $(BINDIR)/ls $(OTHERSRC)/wktls.s
 
 $(BINDIR)/lsd: $(OTHERSRC)/pblsd.s
 	$(AS) $(ASARGS) -o $(BINDIR)/lsd $(OTHERSRC)/pblsd.s
 
-$(BINDIR)/altls: $(ALTSRC)/wktls.s
-	$(AS) $(ASARGS) -o $(BINDIR)/altls $(ALTSRC)/wktls.s
-
 $(BINDIR)/lsl: $(OTHERSRC)/pblsd.s
 	$(AS) $(ASARGS) -o $(BINDIR)/lsl $(OTHERSRC)/pblsd.s
 
-$(BINDIR)/mv: $(OTHERSRC)/wktmv.s
+$(BINDIR)/wktstat: $(OTHERSRC)/wktstat.s
-	$(AS) $(ASARGS) -o $(BINDIR)/mv $(OTHERSRC)/wktmv.s
+	$(AS) $(ASARGS) -o $(BINDIR)/wktstat $(OTHERSRC)/wktstat.s
 
-$(BINDIR)/stat: $(OTHERSRC)/wktstat.s
+################
-	$(AS) $(ASARGS) -o $(BINDIR)/stat $(OTHERSRC)/wktstat.s
+# Alternative init: no dd directory
+$(BINDIR)/altinit: $(ALTSRC)/init.s
+	$(AS) $(ASARGS) -o $(BINDIR)/altinit $(ALTSRC)/init.s
 
-$(BINDIR)/od: $(OTHERSRC)/wktod.s
+$(BINDIR)/altmkdir: $(ALTSRC)/wktmkdir.s
-	$(AS) $(ASARGS) -o $(BINDIR)/od $(OTHERSRC)/wktod.s
+	$(AS) $(ASARGS) -o $(BINDIR)/altmkdir $(ALTSRC)/wktmkdir.s
 
-# B compiler
+# Alternative other commands: no dd, but . and ..
-$(BINDIR)/bc: $(CMDSRC)/bl.s $(CMDSRC)/bi.s ../tools/b.c $(OTHERSRC)/b.b
+altothers: dirs cmd $(BINDIR)/wktcat $(BINDIR)/wktcp $(BINDIR)/date \
-	$(CC) $(CCARGS) -o b ../tools/b.c
+	$(BINDIR)/altls $(BINDIR)/mv $(BINDIR)/od
-	./b $(OTHERSRC)/b.b b.s
+
-	$(AS) $(ASARGS) -o $(BINDIR)/bc $(CMDSRC)/bl.s b.s $(CMDSRC)/bi.s
+$(BINDIR)/altls: $(ALTSRC)/wktls.s
-	rm b b.s
+	$(AS) $(ASARGS) -o $(BINDIR)/altls $(ALTSRC)/wktls.s
+
+################################################################
 
 tests:
 	mkdir -p $(TESTDIR)

build/alt/proto

@@ -9,7 +9,8 @@
 #    link     l---- inumber
 #
 # The top directory's name is ignored
-# Numeric values are in decimal
+# inumbers are in decimal (-1 means previous file)
+# uids are in octal
 # Contents of each directory ends with a $ on a line by itself
 # Format was inspired by 6th Edition mkfs
 #
@@ -41,10 +42,10 @@
         sh       frwr- -1 bin/sh
         stat     frwr- -1 bin/stat
 	$
-    ken      drwr- 10
+    ken      drwr- 12
       system l----  3
-        hello     frwr- 10 fs/hello
+        hello     frwr- 12 fs/hello
       $
-    dmr      drwr- 12
+    dmr      drwr- 14
       system l----  3
       $

build/alt/unixv0.simh

@@ -12,8 +12,7 @@ set tti unix
 set rb ena
 att rb alt/image.fs
 
-# uncomment to TELNET in GRAPHICS-2 keyboard/display(!!)
+# enable TELNET in GRAPHICS-2 keyboard/display(!!)
-# (requires github.com/philbudne/simh)
 set g2in ena
 att -U g2in 12345
 

build/fs/password

@@ -1,3 +1,4 @@
 system:system:system:777777
 ken:ken:ken:12
 dmr:dmr:dmr:14
+doug:doug:doug:15

build/fs/sys.rc

@@ -1,8 +1,8 @@
-chrm ken ops.s
+rm op.s
-ln dmr ops.s ops.s
+ln dmr op.s
-as sop.s ops.s maksys.s
+as sop.s op.s maksys.s
-mv a.out maksys
+rn a.out maksys
-as sop.s ops.s trysys.s
+as sop.s op.s trysys.s
-mv a.out trysys
+rn a.out trysys
-chrm ken ops.s
+rm op.s
 as sop.s s1.s s2.s s3.s s4.s s5.s s6.s s7.s s8.s

build/os.mk

@@ -1,14 +1,18 @@
 
 # detect OS
 UNAME=$(shell uname)
-ifeq ($(UNAME), Linux)
+ifeq ($(UNAME), "Linux")
 	UNAME=LINUX
 else 
-ifeq ($(UNAME), Darwin)
+ifeq ($(UNAME), "Darwin")
 	UNAME=DARWIN
 else 
-ifeq ($(UNAME), FreeBSD)
+ifeq ($(UNAME), "FreeBSD")
 	UNAME=FREEBSD
+else 
+ifeq ($(UNAME), "OpenBSD")
+	UNAME=OPENBSD
+endif
 endif
 endif
 endif
@@ -23,6 +27,10 @@ ifeq ($(UNAME), FREEBSD)
 # FreeBSD
 	CC=cc
 	MAKE=gmake
+ifeq ($(UNAME), OPENBSD)
+# OpenBSD
+	CC=cc
+	MAKE=gmake
 else
 ifeq ($(UNAME), DARWIN)
 # Mac OS X
@@ -33,3 +41,4 @@ else
 endif
 endif
 endif
+endif

build/proto

@@ -7,11 +7,12 @@
 #    link     l---- inumber
 #
 # The top directory's name is ignored
-# Numeric values are in decimal
+# inumbers are in decimal (-1 means previous file)
+# uids are in octal
 # Contents of each directory ends with a $ on a line by itself
 # Format was inspired by 6th Edition mkfs
 #
-dd 	         drwr- -1 4
+dd           drwr- -1 4
     core         frwrw -1 /dev/null 1
     system       drwr- -1 3
         ttyin    irwr- -1 6
@@ -20,8 +21,13 @@ dd 	         drwr- -1 4
         ttyout   irwr- -1 11
         display  irwr- -1 12
         pptout   irwr- -1 13
+        password frw-- -1 fs/password
+        adm      frwr- -1 bin/adm
+        ald      frwr- -1 bin/ald
+        apr      frwr- -1 bin/apr
         as       frwr- -1 bin/as
-        bc       frwr- -1 bin/bc
+        b        frwr- -1 bin/b
+        cas      frwr- -1 bin/cas
         cat      frwr- -1 bin/cat
         check    frwr- -1 bin/check
         chmod    frwr- -1 bin/chmod
@@ -33,40 +39,66 @@ dd 	         drwr- -1 4
         ds       frwr- -1 bin/ds
         dskres   frwr- -1 bin/dskres
         dsksav   frwr- -1 bin/dsksav
+        dsw      frwr- -1 bin/dsw
         ed       frwr- -1 bin/ed
-	init     frwr- -1 bin/init
+        init     frwr- -1 bin/init
         ln       frwr- -1 bin/ln
+        link     l---- -1
         ls       frwr- -1 bin/ls
-        lsd      frwr- -1 bin/lsd
+        list     l---- -1
-        lsl      frwr- -1 bin/lsd
+        moo      frwr- -1 bin/moo
-        od       frwr- -1 bin/od
         mv       frwr- -1 bin/mv
-	password frw-- -1 fs/password
+        nm       frwr- -1 bin/nm
+        od       frwr- -1 bin/od
+        p        frwr- -1 bin/p
+        psych    frwr- -1 bin/psych
+        rm       frwr- -1 bin/rm
+        rn       frwr- -1 bin/rn
+        roff     frwr- -1 bin/roff
+        salv     frwr- -1 bin/salv
         sh       frwr- -1 bin/sh
         stat     frwr- -1 bin/stat
+        tm       frwr- -1 bin/tm
+        ttt      frwr- -1 bin/ttt
+        dttt     l---- -1
+        st       frwr- -1 bin/st
+        un       frwr- -1 bin/un
 	$
-    ken      drwr- 10
+    ken      drwr- 12
       system l----  3
-      sop.s      frwr- 10 ../src/sys/sop.s
+      sop.s      frwr- 12 ../src/sys/sop.s
-      s1.s       frwr- 10 ../src/sys/s1.s
+      s1.s       frwr- 12 ../src/sys/s1.s
-      s2.s       frwr- 10 ../src/sys/s2.s
+      s2.s       frwr- 12 ../src/sys/s2.s
-      s3.s       frwr- 10 ../src/sys/s3.s
+      s3.s       frwr- 12 ../src/sys/s3.s
-      s4.s       frwr- 10 ../src/sys/s4.s
+      s4.s       frwr- 12 ../src/sys/s4.s
-      s5.s       frwr- 10 ../src/sys/s5.s
+      s5.s       frwr- 12 ../src/sys/s5.s
-      s6.s       frwr- 10 ../src/sys/s6.s
+      s6.s       frwr- 12 ../src/sys/s6.s
-      s7.s       frwr- 10 ../src/sys/s7.s
+      s7.s       frwr- 12 ../src/sys/s7.s
-      s8.s       frwr- 10 ../src/sys/s8.s
+      s8.s       frwr- 12 ../src/sys/s8.s
-      maksys.s   frwr- 10 ../src/sys/maksys.s
+      maksys.s   frwr- 12 ../src/sys/maksys.s
-      trysys.s   frwr- 10 ../src/sys/trysys.s
+      trysys.s   frwr- 12 ../src/sys/trysys.s
-      sys.rc     frwr- 10 fs/sys.rc
+      sys.rc     frwr- 12 fs/sys.rc
+      moostat    frwr- 12 fs/moostat
       $
-    dmr        drwr- 12
+    dmr        drwr- 14
       system   l----  3
-      as.s     frwr- 12 ../src/cmd/as.s
+      as.s     frwr- 14 ../src/cmd/as.s
-      b_readme frwr- 12 fs/b_readme
+      op.s     frwr- 14 ../src/cmd/op.s
-      bi.s     frwr- 12 ../src/cmd/bi.s
+      b_readme frwr- 14 fs/b_readme
-      bl.s     frwr- 12 ../src/cmd/bl.s
+      bi.s     frwr- 14 ../src/cmd/bi.s
-      db.s     frwr- 12 ../src/cmd/db.s
+      bl.s     frwr- 14 ../src/cmd/bl.s
-      hello.b  frwr- 12 ../src/other/hello.b
+      db.s     frwr- 14 ../src/cmd/db.s
-      ops.s    frwr- 12 ../src/other/ops.s
+      hello.b  frwr- 14 ../src/other/hello.b
+      b.b      frwr- 14 ../src/other/b.b
+      $
+    doug       drwr- 15
+      system   l----  3
+      t1.s     frwr- 15 ../src/cmd/t1.s
+      t2.s     frwr- 15 ../src/cmd/t2.s
+      t3.s     frwr- 15 ../src/cmd/t3.s
+      t4.s     frwr- 15 ../src/cmd/t4.s
+      t5.s     frwr- 15 ../src/cmd/t5.s
+      t6.s     frwr- 15 ../src/cmd/t6.s
+      t7.s     frwr- 15 ../src/cmd/t7.s
+      t8.s     frwr- 15 ../src/cmd/t8.s
       $

build/unixv0.simh

@@ -3,29 +3,27 @@ set cpu eae
 set cpu history=100
 show cpu
 
-# set up SIMH devices:
+; set up SIMH devices:
 
-# UNIX character translations (CR to NL, ESC to ALTMODE):
+; UNIX character translations (CR to NL, ESC to ALTMODE):
 set tti unix
 
-# RB09 fixed head disk:
+; RB09 fixed head disk:
 set rb ena
 att rb image.fs
 
-# uncomment to TELNET in GRAPHICS-2 keyboard/display(!!)
+; enable TELNET in GRAPHICS-2 keyboard/display(!!)
-# (requires github.com/philbudne/simh)
 set g2in ena
 att -U g2in 12345
 
-# disable hardware UNIX-7 doesn't know about:
+; disable hardware UNIX-7 doesn't know about:
 set lpt disa
 set drm disa
 set dt disa
 
-# show device settings:
+; show device settings:
 show dev
 
-# load and run the paper tape bootstrap
+; load and run the paper tape bootstrap (loads system from disk)
-# (loads system from disk)
 load boot.rim 010000
 go

man/cp.1

@@ -13,7 +13,7 @@ DESCRIPTION	Files are taken in pairs; the first is opened
 .sp
 FILES	--
 .sp
-SEE ALSO	cat, pr
+SEE ALSO	cat, pr, rn
 .sp
 DIAGNOSTICS	Error returns are checked at every system call,
 	and appropriate diagnostics are produced.

man/filesys.5

@@ -1,119 +0,0 @@
-.oh '11/3/70''FILE SYSTEM(V)'
-.ta 18 21 24
-NAME	format of file system
-.sp
-SYNOPSIS	--
-.sp
-DESCRIPTION	The RB09 fixed head disk has 8,000 64-word
-	blocks on each of its two surfaces. Unix uses
-	the second surface (physical blocks 8,000 to
-	15,999) and numbers them from logical block 0 to
-	logical block 7,999. The following discussion
-	refers to logical blocks.
-.sp
-	The Unix filesystem is divided into 8,000 blocks
-	of 64 words per block. Block 0 is the "sysdata"
-	block. The first word points to the first block
-	of the free-storage map. Each block in the
-	free-storage map is structured as follows: the
-	first word is the block number of the next block
-	in the free-storage map, or zero if this is the
-	end of the free-storage map. The next nine words
-	hold free block numbers, or zero (no block
-	number).
-.sp
-	Block 1 on the filesystem is unused. (?)
-.sp
-	I-numbers begin at 1, and the storage for
-	i-nodes begins at block 2. Blocks 2 to 711
-	contain the i-nodes, with five consecutive
-	i-nodes per block. Certain i-nodes are reserved
-	for special files, directories and devices:
-.sp
-		1	The core file written by "sys save" or a
-			bad system call
-		2	The "dd" directory directory
-		3	The "system" directory
-		6	The "ttyin" special file
-		7	The "keyboard" (graphic-2) special file
-		8	The "pptin" (paper tape reader) special
-			file
-		10	The "ttyout" special file
-		11	The "display" (graphic-2) special file
-		12	The "pptout" (paper tape punch) special
-			file
-.sp
-	There is only one file system which is always
-	mounted; it resides on the RB disk. This device
-	is also used for swapping. The swap areas are at
-	the high blocks on this device: blocks 6,400 to
-	7,999. These blocks do not appear in the free
-	list.
-.sp
-	Each i-node represents one file. The format of
-	an i-node is as follows, where the left column
-	represents the offset in words from the
-	beginning of the i-node:
-.sp
-		0	flags (see below)
-		1	first indirect block or contents block
-		...
-		7	seventh indirect block or contents block
-		8	user ID of owner
-		9	link count
-		10	size in words
-		11	unique value assigned at creation
-.sp
-	The flags are as follows:
-.sp
-		400000   i-node is allocated
-		200000   large file
-		??????   allocated bit (always on)
-		000040   special file
-		000020   directory
-		000010   read, owner
-		000004   write, owner
-		000002   read, non-owner
-		000001   write, non-owner
-.sp
-	The allocated bit (flag ??????) is believed even
-	if the i-node map says the i-node is free; thus
-	corruption of the map may cause i-nodes to
-	become unallocatable, but will not cause active
-	nodes to be reused.
-.sp
-	Word number n of a file is accessed as follows:
-	n is divided by 64 to find its logical block
-	number (say b) in the file. If the file is small
-	(flag 200000 is 0), then b must be less than 7,
-	and the physical block number corresponding to b
-	is the bth entry in the address portion of the
-	i-node.
-.sp
-	If the file is large, b is divided by 64 to
-	yield a number which must be less than 8 (or
-	the file is too large for UNIX to handle).
-	The corresponding slot in the i-node address
-	portion gives the physical block number of an
-	indirect block. The residue mod 64 gives a
-	word offset in the indirect block, and the
-	word found there is the physical address of
-	the block corresponding to b.
-.sp
-	If block b in a file exists, it is not necessary
-	that all blocks less than b exist. A zero block
-	number either in the address words of the i-node
-	or in an indirect block indicates that the
-	corresponding block has never been allocated.
-	Such a missing block reads as if it contained
-	all zero words.
-.sp
-FILES	--
-.sp
-SEE ALSO	format of directories
-.sp
-DIAGNOSTICS	--
-.sp
-BUGS	--
-.sp
-OWNER	ken

man/fs.5

@@ -0,0 +1,138 @@
+.oh '11/3/70''FILE SYSTEM(V)'
+.ta 18 21 24
+NAME	format of file system
+.sp
+SYNOPSIS	--
+.sp
+DESCRIPTION
+.in 8
+The RB09 fixed head disk has 8,000 64-word
+blocks (100 tracks of 80 blocks)
+on each of its two surfaces. The Unix filesystem
+is stored in the first 80 tracks of
+the second surface (physical blocks 8,000 to
+14,399 -- physical tracks 100 to 179)
+and numbers them from logical block 0 to
+logical block 6,399.
+.sp
+The Unix filesystem is divided into 6,400 logical blocks
+of 64 words per block. Block 0 is the "sysdata"
+block. The first word points to the first block
+of the free-storage map. Each block in the
+free-storage map is structured as follows: the
+first word is the block number of the next block
+in the free-storage map, or zero if this is the
+end of the free-storage map. The next nine words
+hold free block numbers, or zero (no block
+number).
+.sp
+Block 1 on the filesystem is unused. (?)
+.sp
+I-numbers begin at 1, and the storage for
+i-nodes begins at block 2. Blocks 2 to 711
+contain the i-nodes, with five 12-word
+i-nodes per block. Certain i-nodes are reserved
+for special files, directories and devices:
+.sp
+.nf
+1	The core file written by "sys save"
+	or a bad system call
+2	The "dd" directory directory
+3	The "system" directory
+6	The "ttyin" special file
+7	The "keyboard" (GRAPHIC-2)
+	special file
+8	The "pptin" (paper tape reader)
+	special file
+10	The "ttyout" special file
+11	The "display" (GRAPHIC-2)
+	special file
+12	The "pptout" (paper tape punch)
+	special file
+.fi
+.sp
+There is only one file system which is always
+mounted; it resides on the RB disk.
+.sp
+The last twenty tracks of the second disk surface
+are use for bootable images and swapping:
+.sp
+Each physical track from 180 to 189
+contains a bootable system image of 3K words.
+.sp
+Each physical track from 190 to 199 is used to swap
+a user process (4K words plus a 64-word swapable
+"userdata" area).
+.sp
+Each i-node represents one file. The format of
+an i-node is as follows, where the left column
+represents the offset in words from the
+beginning of the i-node:
+.sp
+.nf
+0	flags (see below)
+1	first indirect block or data block
+...
+7	seventh indirect block or data block
+8	user ID of owner
+9	link count
+10	size in words
+11	unique value assigned at creation
+.sp
+.in 8
+The flags are as follows:
+.sp
+400000   i-node is allocated
+200000   large file
+??????   allocated bit (always on)
+000040   special file
+000020   directory
+000010   read, owner
+000004   write, owner
+000002   read, non-owner
+000001   write, non-owner
+.fi
+.in 8
+.sp
+The allocated bit (flag ??????) is believed even
+if the i-node map says the i-node is free; thus
+corruption of the map may cause i-nodes to
+become unallocatable, but will not cause active
+nodes to be reused.
+.sp
+Word number n of a file is accessed as follows:
+n is divided by 64 to find its logical block
+number (say b) in the file. If the file is small
+(flag 200000 is 0), then b must be less than 7,
+and the physical block number corresponding to b
+is the bth entry in the address portion of the
+i-node.
+.sp
+If the file is large, b is divided by 64 to
+yield a number which must be less than 8 (or
+the file is too large for UNIX to handle).
+The corresponding slot in the i-node address
+portion gives the physical block number of an
+indirect block. The residue mod 64 gives a
+word offset in the indirect block, and the
+word found there is the physical address of
+the block corresponding to b.
+.sp
+If block b in a file exists, it is not necessary
+that all blocks less than b exist. A zero block
+number either in the address words of the i-node
+or in an indirect block indicates that the
+corresponding block has never been allocated.
+Such a missing block reads as if it contained
+all zero words.
+.in 0
+.sp
+FILES	--
+.sp
+SEE ALSO	dir(V)
+.sp
+DIAGNOSTICS	--
+.sp
+BUGS	--
+.sp
+OWNER	ken

man/link.1

@@ -0,0 +1,36 @@
+.oh '11/3/70''LINK(I)'
+.ta 18 30
+NAME	link -- link to a file
+.sp
+.in 0
+SYNOPSIS
+.in 8
+.ul
+link
+file
+.sp
+.ul
+link
+srcdir file
+.sp
+.ul
+link
+srcdir file name
+.sp
+.in 0
+DESCRIPTION
+.in 8
+With one argument makes a link to file in system directory.
+.sp
+With two arguments, makes a link to file in srcdir.
+.sp
+With three arguments, make name a link to file in srcdir.
+.sp
+.in 0
+FILES	--
+.sp
+SEE ALSO	ln
+.sp
+BUGS	--
+.sp
+OWNER	ken, dmr

man/ln.1

@@ -1,21 +1,21 @@
 .oh '11/3/70''LN(I)'
 .ta 18 30
-NAME	ln -- link to a file
+NAME	ln -- link files
 .sp
 SYNOPSIS	
 .ul
 ln
-name1 name2
+srcdir file...
 .sp
-DESCRIPTION	ln adds another filename to the first filename
+DESCRIPTION	make links in current dir to named files in srcdir
 .sp
 FILES	--
 .sp
-SEE ALSO	--
+SEE ALSO	link
 .sp
 DIAGNOSTICS	"twofiles"	- please provide two filenames
 	"? file"	- unable to make the link
 .sp
 BUGS	--
 .sp
-OWNER	wkt
+OWNER	ken, dmr

man/ls.1

@@ -2,21 +2,19 @@
 .ta 18 21 24
 NAME	ls -- list contents of directory
 .sp
-SYNOPSIS	ls [ -l ] directory
+SYNOPSIS	ls [directory]
 .sp
 DESCRIPTION	
 .ul
 ls
-lists the contents of the named directory
+lists the contents of the current,
-	under control of one option:
+or named directory.
 .sp
-		l	list in long format, giving i-number,
+.ul
-			mode, owner, size in words, and name of
+list
-			each file. (see
+lists details in the format of
 .ul
 stat
-for format of the
-			mode). Numeric values are in octal.
 .sp
 FILES	--
 .sp
@@ -29,16 +27,13 @@ BUGS	In a simulated environment, a filename larger
 	than eight characters will cause
 .ul
 ls
-to exit
+	to exit	prematurely.
-	prematurely.
 .sp
 	
 .ul
 ls
-will try to open up a directory named "." if
+will try to open up a directory named ".." if
-	no directory is named. If the user desires this
+	no directory is named.
-	functionality, they need to link "." to the
-	directory in question.
 
 .sp
-OWNER	wkt
+OWNER	ken, dmr

man/rn.1

@@ -0,0 +1,23 @@
+.oh '11/3/70''RN(I)'
+.ta 18 31
+NAME	rn -- rename files
+.sp
+SYNOPSIS	
+.ul
+rn
+from to ...
+.sp
+DESCRIPTION	Files are taken in pairs; The file from
+	is renamed to to, and so on...
+.sp
+FILES	--
+.sp
+SEE ALSO	cp
+.sp
+DIAGNOSTICS
+	"? file"	- either unable to remove or create
+		  a file
+.sp 
+BUGS	The diagnostic is ambiguous.
+.sp
+OWNER	ken, dmr

man/stat.1

@@ -10,52 +10,44 @@ name
 DESCRIPTION	
 .ul
 stat
-gives several kinds of information about
+gives several kinds of information about one file.
-	one file:
 .sp
-		access mode
+.nf
-		number of links
+	i-number
-		owner
+	flags
-		size in words
+	owner
-		name
+	links
+	size
 .sp
-	All information is self-explanatory except the
+flag bits are:
-	mode. The mode is a five-character string whose
+.nf
-	characters mean the following:
+.in 8
+40   special file
+20   directory
+10   read, owner
+04   write, owner
+02   read, non-owner
+01   write, non-owner
+.in 8
 .sp
-		1	s: file is small (smaller than 448 words)
+All values are printed in octal.
-			l: file is large
+.in 0
-			d: file is a directory
-.sp
-		2	r: owner can read
-			-: owner cannot read
-.sp
-		3	w: owner can write
-			-: owner cannot write
-.sp
-		4	r: non-owner can read
-			-: non-owner cannot read
-.sp
-		5	w: non-owner can write
-			-: non-owner cannot write
-.sp
-	All numeric values are printed in octal.
 .sp
 FILES	--
 .sp
-SEE ALSO	
+SEE ALSO
+.in 8
 .ul
-ls
+list
-with the -l option gives the same information
+shows all files in a directory in the same format as
-	as
 .ul
-stat,
+stat.
-except that it also shows the i-node
+.in 0
-	number for each file.
 .sp
 DIAGNOSTICS	"name  ?" for any error. "nofiles" if no file
 	name is given.
 .sp
 BUGS	none
 .sp
-OWNER	wkt
+OWNER	ken, dmr
+

misc/README.md

@@ -0,0 +1,10 @@
+Misc documentation
+==================
+
+See also github wiki pages:
+https://github.com/DoctorWkt/pdp7-unix/wiki/Links
+https://github.com/DoctorWkt/pdp7-unix/wiki/roff-commands
+
+dated:
+https://github.com/DoctorWkt/pdp7-unix/wiki/Source-file-status-scoreboard
+https://github.com/DoctorWkt/pdp7-unix/wiki/Unanswered-questions

misc/cas_syntax.txt

@@ -0,0 +1,168 @@
+It's strongly believed that cas is a "character assembler".  The input
+describes character shapes, and the output is data for GRAPHICS-2.
+
+
+CAS INPUT SYNTAX
+================
+
+: means record following string as a label.
+
+x means following moves are invisible.
+
+v means following moves are visible.
+
+r means end, output label=x-b+number.
+
+All other commands are character pairs denoting y,x coordinates in a
+14x16 character raster.  Draw a line to that coordinate.  Vertical
+coordinates are a-p, and horizontal are a-n.  aa is upper left and pn
+is lower right.  Characters reside on the base line from ma to mn
+(characters like p and q descend below this line).  All characters end
+with a "x mn r" sequence to move to the beginning of the next character.
+
+
+CAS OUTPUT
+==========
+
+The output for each character is:
+
+The label x:
+
+18-bit octal words.  Each word is three 6-bit incremental moves.
+Each incremental move consists of three fields: a 2 bit distance field,
+a 1 bit visibility field, a 3 bit direction field.
+
+If the visibility field is a 0 nothing is drawn, if it is a 1 a line is
+drawn.  The distance field + 1 denotes how many pixels to move in a certain
+direction.  The 2 bit direction field is limited to values in the range 0..3,
+but by adding 1, the actual distances denoted are in the range 1..4.
+The 3 bit direction field with values in the range 0..7 is to be interpreted
+according to this diagram and table:
+
+            y
+            ^			value	direction
+        7   0   1       	-----	---------
+            |           	0	up
+            |           	1	up right
+            |           	2	right
+	6---+---2>x		3	down right
+            |           	4	down
+            |           	5	down left
+            |           	6	left
+        5   4   3               7	up left
+
+
+label=x-b+number.  Number is 01, six bits saying how many moves, and
+10 zeroes.
+
+
+EXAMPLE
+=======
+
+Input:
+
+   :lbk
+   x
+   ai
+   v
+   af
+   mf
+   mj
+   x
+   mn
+   r
+
+This character is labeled "lbk" (left bracket).  Move invisibly to
+"ai" near upper right.  Draw line left to "af".  Draw down to "mf".
+Draw right to "mj".  Invisibly move to "mn" beyond lower right.  End.
+
+This can be interpreted in a grid starting a location ma (row m, column a)
+denoted by a 0, and each succeeding move indicated by an increasing number:
+
+ abcdefghijklmn
+a.....2..1.....
+b..............
+c..............
+d..............
+e..............
+f..............
+g..............
+h..............
+i..............
+j..............
+k..............
+l..............
+m0....3...4...5
+n..............
+o..............
+p..............
+
+Output:
+
+   x:
+   0010101
+   0010101
+   0010160
+   0567474
+   0747262
+   lbk=x-b+0236000
+
+01 means move diagonally up and right one step; do this eight times.
+60 means move up four steps.  56 means draw left three steps.  74
+means draw down four steps.  72 means draw left four steps.  62 means
+move left four steps.
+
+0236000 means there are 15 moves, or 6-bit bytes.
+
+0236000 in binary is 010011110000000000, and shifting this value
+10 bits to the right gives 01001111, where only the 6 least significant
+bits indicate the number of moves, i.e. 001111 or 15 in decimal.
+
+The following explanation separates out each move onto its own line.
+Further it decodes each move into binary, and separates out and interprets
+the three distance, visibility and direction fields.  Finally each line
+ends with a comment indicating which input command generated the output move:
+
+move	move	move	dist	vis	direc	dist	vis	direc	input
+number  octal   binary	binary	binary	binary	decimal	text	text	command
+------  -----	------	------	------	------	-------	----	----	-------
+1       001	000001	00	0	001	1	false	up right ai
+2       001	000001  00	0	001	1	false	up right ai
+3       001	000001  00	0	001	1	false	up right ai
+4       001	000001  00	0	001	1	false	up right ai
+5       001	000001  00	0	001	1	false	up right ai
+6       001	000001  00	0	001	1	false	up right ai
+7       001	000001  00	0	001	1	false	up right ai
+8       001	000001  00	0	001	1	false	up right ai
+9       060	110000  11	0	000	4	false	up	 ai
+a       056	101110  10	1	110	3	true	left	 v af
+b       074	111100  11	1	100	4	true	down	 mf
+c       074	111100  11	1	100	4	true	down	 mf
+d       074	111100  11	1	100	4	true	down	 mf
+e       072	111010  11	1	010	4	true	right	 mj
+f       062	110010  11	0	010	4	false	right	 x mn
+
+This can be interpreted on a grid by starting at ma (row n, column a)
+denoted by a 0 and following the moves denoted by their corresponding
+move number.  Note that after the final move, f, the location being
+outside of the character box corresponds to the location ma of the
+next character to the right.  To the right is the same character where
+x:s denote drawn pixels and . denote undrawn pixels.
+
+ abcdefghijklmn           abcdefghijklmn
+a.....a..9.....          a.....xxxx.....
+b..............          b.....x........
+c..............          c.....x........
+d..............          d.....x........
+e.....b..8.....          e.....x........
+f.......7......          f.....x........
+g......6.......          g.....x........
+h.....5........          h.....x........
+i....4c........          i.....x........
+j...3..........          j.....x........
+k..2...........          k.....x........
+l.1............          l.....x........
+m0....d...e...f          m.....xxxxx....
+n..............          n..............
+o..............          o..............
+p..............          p..............

scans/README.md

@@ -8,8 +8,8 @@ https://www.tuhs.org/Archive/Distributions/Research/McIlroy_v0/
 
 The files should be unaltered versions of the scanned pages.
 
-Novell owns the rights to the Unix source code, so these files are probably
+Micro Focus owns the rights to the Unix source code, so these files are probably
-(c) 1970 Novell. They are certainly not under the GPLv3 license.
+(c) 1970 Micro Focus. They are certainly not under the GPLv3 license.
 
 For modified versions of these files, look in src/cmds and src/sys.
 
@@ -26,9 +26,15 @@ Details of the files:
 * s9.s: pages 53-55  of 01-s1.pdf
 * sysmap: pages 57-61 of 01-s1.pdf
 * sop.s pages 62-63  of 01-s1.pdf
-* sx.s: temp additional symbol defns
 * maksys.s: page 64  of 01-s1.pdf
 * trysys.s: page 65  of 01-s1.pdf
+* scope.cas: pages 3-18 of 03-scope.pdf
+* cas.s: pages 1-8 of 04-cas.pdf
+* cas.cas: pages 9-17 of 04-cas.pdf
+* adm.s: pages 2-11  of 05-1-4.pdf
+* ald.s: pages 13-17 of 05-1-4.pdf
+* apr.s: pages 19-30 of 05-1-4.pdf
+* as.s: pages 32-48 of 05-1-4.pdf
 * bl.s:    pages 3-6   of 06-5-12.pdf
 * bc.s:    pages 7-11  of 06-5-12.pdf
 * bi.s:    pages 12-19 of 06-5-12.pdf
@@ -45,13 +51,46 @@ Details of the files:
 * dskres.s: page  41    of 07-13-19.pdf
 * dskio.s:  pages 42-43 of 07-13-19.pdf
 * dsw.s:    page  45    of 07-13-19.pdf
-* init.s    pages 47-51 of 07-13-19.pdf
+* init.s:   pages 47-51 of 07-13-19.pdf
-* cas.s: pages 1-17 of 04-cas.pdf
 * ind.b:   page 2 of 08-rest.pdf
 * lcase.b: page 4 of 08-rest.pdf
-* adm.s pages 2-11  of 05-1-4.pdf
-* ald.s pages 13-17 of 05-1-4.pdf
-* apr.s pages 19-30 of 05-1-4.pdf
-* as.s: pages 32-48 of 05-1-4.pdf
 * ed1.s: pages 7-20 of 08-rest.pdf
 * ed2.s: pages 21-29 of 08-rest.pdf
+* fop.s: pages 1-14 of 09-1-35.pdf
+* ln.s: pages 15-16 of 09-1-35.pdf
+* ls.s: pages 17-21 of 09-1-35.pdf
+* moo.s: pages 22-30 of 09-1-35.pdf
+* nm.s: pages 31-34 of 09-1-35.pdf
+* op.s: page 35 of 09-1-35.pdf and page 1 of 10-36-55.pdf
+* p1.s: pages 2-6 of 10-36-55.pdf
+* p2.s: pages 7-10 of 10-36-55.pdf
+* p3.s: pages 11-13 of 10-36-55.pdf
+* p4.s: pages 14-17 of 10-36-55.pdf
+* p5.s: pages 18-20 of 10-36-55.pdf
+* pd.s: page 1 of 11-56-91.pdf
+* psych.s: page 2-6 of 11-56-91.pdf
+* rm.s: page 7 of 11-56-91.pdf
+* rn.s: page 8 of 11-56-91.pdf
+* roff.s: pages 9-24 of 11-56-91.pdf
+* salv.s: pages 25-29 of 11-56-91.pdf
+* sh.s: pages 30-36 of 11-56-91.pdf
+* st1.s: pages 1-5 of 12-92-119.pdf
+* st2.s: pages 6-9 of 12-92-119.pdf
+* st3.s: pages 10-13 of 12-92-119.pdf
+* st4.s: pages 14-18 of 12-92-119.pdf
+* st5.s: pages 19-20 of 12-92-119.pdf
+* st6.s: pages 21-25 of 12-92-119.pdf
+* st7.s: pages 26-28 of 12-92-119.pdf
+* stat.s: pages 1-2 of 13-120-147.pdf
+* tm.s: pages 3-4 of 13-120-147.pdf
+* t1.s: pages 5-6 of 13-120-147.pdf
+* t2.s: pages 7-13 of 13-120-147.pdf
+* t3.s: pages 14-18 of 13-120-147.pdf
+* t4.s: pages 19-20 of 13-120-147.pdf
+* t5.s: pages 21-22 of 13-120-147.pdf
+* t6.s: pages 23-25 of 13-120-147.pdf
+* t7.s: pages 26-27 of 13-120-147.pdf
+* t8.s: pages 28 of 13-120-147.pdf
+* ttt1.s: pages 1-12 of 14-148-165.pdf
+* ttt2.s: pages 13-17 of 14-148-165.pdf
+* un.s: page 18 of 14-148-165.pdf

scans/adm.s

@@ -64,7 +64,7 @@ floop1:
 "** 05-1-4.pdf page 3
    tad name
    dac 8
-   r4
+   -4
    dac c1
 1:
    lac 8 i
@@ -218,7 +218,7 @@ discon:
 
 m1:
    <ha>;<ng>;<up>;012
-m2s = .-m1
+m1s = .-m1
 m2:
    <ab>;<or>;<te>;<d 012
 m2s = .-m2
@@ -495,7 +495,7 @@ retry:
    sad o122
    jmp i message
 "** 05-1-4.pdf page 10
-   lac distlg
+   lac disflg
    sna
    jmp discon
    jmp stop
@@ -593,4 +593,4 @@ dpon = 0704701
 dpof = 0704704
 dpwc = 0704722
 dpop = 0704764
-dprs = 0704752
+dprs = 0704752

scans/ald.s

@@ -175,7 +175,7 @@ notbin:
    lac d1
    sys write; m3; m3s
    jms wait
-   cmp cloop
+   jmp cloop
 
 timeout:
    lac d1
@@ -236,6 +236,7 @@ o500: 0500
 o700: 0700
 o12: 012
 wtime: 300
+
 c: .=.+1
 c1: .=.+1
 buf: .=.+100
@@ -252,4 +253,4 @@ crread: .=.+1
 crchar: .=.+1
 tmtime: .=.+1
 
-crsb = 0706744
+crsb = 0706744

scans/apr.s

@@ -50,7 +50,7 @@ floop:
    jms putc
    law 044
    jms putc
-   law040
+   law 040
    jms putc
 
 floop1:
@@ -593,7 +593,7 @@ transcd: 0
    jms transch
    isz c2
    jmp 1b
-   jmp transch i
+   jmp transcd i
 
 transch: 0
    lmq
@@ -699,4 +699,4 @@ dpon = 0704701
 dpof = 0704704
 dpwc = 0704722
 dpop = 0704764
-dprs = 0704752
+dprs = 0704752

scans/as.s

@@ -185,6 +185,7 @@ finis:
    lac bfi
    sys close
    sys exit
+
 "** 05-1-4.pdf page 35
 n.out:
    0156056;0157165;0164040;040040
@@ -247,7 +248,7 @@ proc3:
 proc4:
    jms error; .>
    lac d1
-"** 05-1-4.pdf page 34
+"** 05-1-4.pdf page 36
    dac dot
    dzm dot+1
    jmp skip
@@ -266,7 +267,7 @@ bufwr: 0
    dac maxsto
    jmp i bufwr
 
-:number: 0
+number: 0
    dac 3f
    lac d1000
    dac 2f
@@ -331,6 +332,7 @@ putsc: 0
 sctalp: 0
 sctal: 0
 
+
 betwen: 0
    dac 2f
    lac i betwen
@@ -464,7 +466,7 @@ nf1:
    lac fname
    dac 1f
    lac d1
-   sys write; 1; 0; 4
+   sys write; 1: 0; 4
    lac iof
    sma
    jmp 1f
@@ -539,7 +541,6 @@ gsymb: 0
    dac char
 1:
    jmp 0
-
 jmpsw1:
    jmp .+1
    jmp i gsymb

scans/bc.s

@@ -1,3 +1,4 @@
+"** 06-5-12.pdf page 7
 " bc
 
    jmp start
@@ -60,6 +61,7 @@ trace: 0
    jmp trace i
 
 dtrace: 0
+"** 06-5-12.pdf page 8
    lac pc
    dac 8
    lac 8 i
@@ -108,7 +110,7 @@ ddisp: 0
    lac lastv
    jms dspnt
    -1
-   dac B i
+   dac 8 i
    lac pbs i
    sza
    jmp .-2
@@ -121,6 +123,7 @@ dspblk: 0
    dac t1
    dzm t2
 1:
+"** 06-5-12.pdf page 9
    lac t1
    sna
    jmp 1f
@@ -182,6 +185,7 @@ histog: 0
    tad histbuf
    dac t1
    isz t1 i
+"** 06-5-12.pdf page 10
    jmp histog i
    jmp .
 
@@ -199,7 +203,7 @@ hisinit: 0
    tad dm1
    dac 8
 1:
-   dsm 8 i
+   dzm 8 i
    isz t1
    jmp 1b
    jmp hisinit i
@@ -209,7 +213,7 @@ olddp: 0
 dspbuf: 0
 dspbp: 0
 instr: 0
-obs: 0
+pbs: 0
 inslitr: n 5
 insasg: b 1
 o17: 017
@@ -243,6 +247,7 @@ badsp:
 badasgn:
    jms flush
    lac d1
+"** 06-5-12.pdf page 11
    sys write; mas; mass
    jmp stop
 mpc:

scans/bi.s

@@ -1,3 +1,4 @@
+"** 06-5-12.pdf page 12
 " bi
 
 start:
@@ -60,6 +61,7 @@ binop:
    tad .+3
    dac .+1
    jmp .. i
+"** 06-5-12.pdf page 13
    jmp . i
    basg; bor; band; beq; bne; ble; blt; bge; bgt; brsh; blsh
    badd; bmin; bmod; bmul; bdiv
@@ -121,6 +123,7 @@ blt:
 bge:
    lac t1 i
    cma
+"** 06-5-12.pdf page 14
    tad t2 i
    spa cla
    lac d1
@@ -182,6 +185,7 @@ bdiv:
 
 consop:
    lac sp
+"** 06-5-12.pdf page 15
    tad d1
    dac sp i
    isz sp
@@ -243,6 +247,7 @@ call:
    lac 8 i
    dac t1
    lac t1 i
+"** 06-5-12.pdf page 16
    dac 9 i
    isz 8
    -1
@@ -303,6 +308,7 @@ goto:
    tad t1 i
    dac pc
    jmp fetch
+"** 06-5-12.pdf page 17
    
 retrn:
    -2
@@ -365,6 +371,7 @@ unaop:
    uadr; umin; uind; unot
 
 uadr:
+"** 06-5-12.pdf page 18
    lac t1
    dac t3 i
    jmp fetch
@@ -426,8 +433,8 @@ t4: 0
 addr: 0
 
 pc = 017
-
+"** 06-5-12.pdf page 19
 sp: stack
 dp: stack
 ap: stack
-stack: 0
+stack: 0

scans/bl.s

@@ -1,3 +1,4 @@
+"** 06-5-12.pdf page 3
 " bl
 
 jmp start
@@ -60,6 +61,7 @@ getc: 0
    lac cibufp
    sad eibufp
    jmp 1f
+"** 06-5-12.pdf page 4
    lac cibufp i
    and o777
    dac iflg
@@ -121,6 +123,7 @@ stop:
 flush: 0
    lac oflg
    sza
+"** 06-5-12.pdf page 5
    isz cobufp
    lac cobufp
    cma
@@ -182,6 +185,7 @@ initio: 0
 .fin: 0
 .fout: 1
 eibufp: 0
+"** 06-5-12.pdf page 6
 cibufp: 0
 iflg: 0
 eobufp: 0
@@ -191,4 +195,4 @@ lastv: 017770
 
 o777: 0777
 d4:o4: 4
-d8: 8
+d8: 8

scans/cas.cas

@@ -1,6 +1,4 @@
-"** 04-cas.pdf page 8
+"** 04-cas.pdf page 9
-" captital character definitions???
-" lower case definitions at 03-scope.pdf, page 2 ???
 :ca
 v
 af
@@ -313,7 +311,7 @@ v
 ka
 "** 04-cas.pdf page 14
 mc
-ml "???
+mi "???
 kk
 x
 ak
@@ -435,6 +433,68 @@ gc
 ia
 ma
 ml "???
+"** 04-cas.pdf page 17
+x
+mn
+r
+
+:c3
+x
+aa
+v
+ak
+fe
+fi
+hk
+kk
+mi
+mc
+x
+ka
+v
+nd
+x
+mn
+r
+
+:c4
+x
+mh
+v
+ah
+ia
+il
+x
+mn
+r
+
+:c5
+x
+ak
+v
+aa
+fa
+fi
+hk
+kk
+mi
+mc
+x
+ka
+v
+nd
+x
+mn
+r
+
+:c6
+x
+ck
+v
+ai
+ac
+ca
+ka
 "** 04-cas.pdf page 16
 mc
 mi
@@ -497,70 +557,4 @@ hi
 fk
 x
 mn
-"** 04-cas.pdf page 17
-x
-mn
 r
-
-:c3
-x
-aa
-v
-ak
-fe
-fi
-hk
-kk
-mi
-mc
-x
-ka
-v
-nd
-x
-mn
-r
-
-:c4
-x
-mh
-v
-ah
-ia
-ll
-x
-mn
-r
-
-:c5
-x
-ak
-v
-aa
-fa
-fi
-hk
-kk
-mi
-mc
-x
-ka
-v
-nd
-x
-mn
-r
-
-:c6
-x
-ck
-v
-ai
-ac
-ca
-ka
-
-" The end of file seems abrupt, every other :cX section ends with:
-" x
-" mn
-" r

scans/cas.s

@@ -7,7 +7,7 @@
    tad d5
    dac name1
    tad d4
-   dac name 2
+   dac name2
    lac narg
    sad d4
    jmp 1f
@@ -134,7 +134,7 @@ adv1:
    dac vis
    jmp advanc
 1:
-   sad 0162
+   sad o162
    skp
    jmp letr
    isz mod3
@@ -301,7 +301,7 @@ a:
    cma
    tad d1
 1:
-   tad dlex
+   tad delx
    tad dm4
    sma
    cla
@@ -481,579 +481,10 @@ tmp: .=.+1
 buf: .=.+500
 bufp: buf-1
 lbuf: .=.+10
-lpbufp: lbuf-1
+lbufp: lbuf-1
 nwds: .=.+1
-o1770072: 0170072
+o170072: 0170072
 nins: .=.+1
 o100: 0100
 o12012: 012012
 o12060: 012060
-
-
-
-
-
-"** 04-cas.pdf page 9
-:ca
-v
-af
-nl "???
-x
-hd
-v
-hi
-x
-mn
-r
-
-:cb
-x
-ga
-v
-gi
-ik
-kk
-mi "???
-ma
-aa
-ai
-ck
-ek
-gi
-x
-mn
-r
-
-:cc
-x
-kk
-v
-mi "???
-mc
-ka
-ca
-ac
-ai
-dl
-x
-mn
-r
-
-:cd
-v
-aa
-ai
-ck
-kk
-mi
-ma
-x
-mn
-r
-
-:ce
-x
-mk
-v
-ma
-"** 04-cas.pdf page 10
-aa
-ak
-x
-gh
-v
-ga
-x
-mn
-r
-
-:cf
-v
-aa
-ak
-x
-gh
-v
-ga
-x
-mn
-r
-
-:cg
-x
-gf
-v
-gk
-nk
-x
-kk
-v
-mi
-mc
-ka
-ca
-ac
-ai
-dl
-x
-mn
-r
-
-:ch
-x
-aa
-v
-na
-x
-gb "???
-v
-gk
-x
-ak
-v
-nk
-x
-mn
-r
-
-:ci
-x
-"** 04-cas.pdf page 11
-md
-v
-mi
-x
-lf
-v
-af
-x
-ad
-v
-ai
-x
-mn
-r
-
-:cj
-x
-ka
-v
-mc
-mg
-ki
-ai "???
-x
-ag
-v
-al "???
-x
-mn
-r
-
-:ck
-x
-aa
-v
-na
-x
-ak
-v
-ia
-x
-mk
-v
-fe
-x
-mn
-r
-
-:cl
-x
-aa
-v
-ma
-mk
-x
-mn
-r
-
-:cm
-v
-aa
-"** 04-cas.pdf page 12
-hf
-ak
-nk
-x
-mn
-r
-
-:cn
-x
-ak
-v
-mk
-aa
-na
-x
-mn
-r
-
-:co
-x "???
-ai
-v
-ch
-ei
-ck
-ai
-ac
-ca
-ka
-mc "???
-mi
-kk
-ck
-x
-mn
-r
-
-:cp
-v
-aa
-ai
-ck
-ek
-gi
-ga
-x
-mn
-r
-
-:cq
-x
-mc
-v
-ka
-ca
-ac
-ai
-ck
-kk
-mi
-mc
-"** 04-cas.pdf page 13
-x
-jh
-v
-nl
-x
-mn
-r
-
-:cr
-v
-aa
-ai
-ck
-ek
-gi
-ga
-x
-mk
-v
-gf
-x
-mn
-r
-
-:cs
-x
-ka
-v
-mc
-mi
-kk
-ik
-gi
-gc
-ea
-ca
-ac
-ai
-dl
-x
-mn
-r
-
-:ct
-x
-aa
-v
-al
-x
-mf
-v
-af
-x
-mn
-r
-
-:cu
-x
-aa
-v
-ka
-"** 04-cas.pdf page 14
-mc
-ml "???
-kk
-x
-ak
-v
-lk
-x
-mn
-r
-
-:cv
-x
-aa
-v
-mf
-x
-ak
-v
-mf
-x
-mn
-r
-
-:cw
-x
-aa
-v
-mc
-af
-x
-ak
-v
-mi
-af
-x
-mn
-r
-
-:cx
-v
-gf
-x
-ak
-v
-gf
-x
-aa
-v
-nl
-x
-mn
-r
-
-:cy
-x
-aa
-v
-if
-x
-ak
-"** 04-cas.pdf page 15
-v
-if
-nf
-x
-mn
-r
-
-:cz
-x
-aa
-v
-ak
-ma
-ml
-x
-mn
-r
-
-:c0
-x
-ck
-v
-ai
-ac
-ca
-ka
-mc
-mi
-kk
-ck
-x
-mn
-r
-
-:c1
-x
-ce
-v
-af
-mf
-x
-md
-v
-mi
-x
-mn
-r
-
-:c2
-x
-ca
-v
-ac
-ai
-ck
-ek
-gi
-gc
-ia
-ma
-ml "???
-"** 04-cas.pdf page 16
-mc
-mi
-kk
-hk
-fi
-fc
-ha
-x
-mn
-r
-
-:c7
-x
-aa
-v
-ak
-nb
-x
-mn
-r
-
-:c8
-x
-gc
-v
-ea
-ca
-ac
-ai
-ck
-ek
-gi
-gc
-ia
-ka
-mc
-mi
-kk
-ik
-gi
-x
-mn
-r
-
-:c9
-x
-ka
-v
-mc
-mi
-kk
-ck
-ai
-ac
-ca
-fa
-hc
-hi
-fk
-x
-mn
-"** 04-cas.pdf page 17
-x
-mn
-r
-
-:c3
-x
-aa
-v
-ak
-fe
-fi
-hk
-kk
-mi
-mc
-x
-ka
-v
-nd
-x
-mn
-r
-
-:c4
-x
-mh
-v
-ah
-ia
-ll
-x
-mn
-r
-
-:c5
-x
-ak
-v
-aa
-fa
-fi
-hk
-kk
-mi
-mc
-x
-ka
-v
-nd
-x
-mn
-r
-
-:c6
-x
-ck
-v
-ai
-ac
-ca
-ka
-
-" The end of file seems abrupt, every other :cX section ends with:
-" x
-" mn
-" r

scans/cat.s

@@ -1,3 +1,4 @@
+"** 06-5-12.pdf page 21
 " cat
 
    lac 017777 i
@@ -55,11 +56,12 @@ nofiles:
 
 done:
    lac noc
-   sns
+   sna
    sys exit
    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

scans/check.s

@@ -1,3 +1,4 @@
+"** 06-5-12.pdf page 25
 " check
 
 lac d1
@@ -60,6 +61,7 @@ iloop:
    lac iflags
    and o40
    sza
+"** 06-5-12.pdf page 26
    jmp iloop
    law idskps
    dac t1
@@ -121,6 +123,7 @@ dupcheck: 0
    lac d1
 2: alss 0
    dac bit
+"** 06-5-12.pdf page 27
    lac i t6
    and bit
    sza
@@ -170,7 +173,7 @@ print: 0
 
 part2:
    lac icnt
-   jmp print
+   jms print
    lac d1
    sys write; m3; m3s
    lac licnt
@@ -182,6 +185,7 @@ part2:
    lac d1
    sys write; m5; m5s
    lac blcnt
+"** 06-5-12.pdf page 28
    jms print
    lac d1
    sys write; m6; m6s
@@ -243,6 +247,7 @@ part3:
    cla
    llss 4
    tad alsscom
+"** 06-5-12.pdf page 29
    dac 2f
    lac d1
 2: alss 0
@@ -304,6 +309,7 @@ t1: 0
 t2: 0
 t3: 0
 t4: 0
+"** 06-5-12.pdf page 30
 t5: 0
 t6: 0
 
@@ -321,4 +327,4 @@ linode: .=.+12
 iflags = linode
 idskps = iflags+1
 usetab: .=.+500
-prbuf: .=.+6
+prbuf: .=.+6

scans/db.s

@@ -1,3 +1,4 @@
+"** 07-13-19.pdf page 2
 " db
 
    narg = ..+07777
@@ -60,6 +61,7 @@ wcorep: corename; 1
    "
    lac o52012
    jms wchar
+"** 07-13-19.pdf page 3
    law dotdot
    dac nsearch
    jms nlsearch
@@ -121,6 +123,7 @@ cmd:
    jmp saddress
    sad o75
    jmp address
+"** 07-13-19.pdf page 4
    sad o57
    jmp octal
    sad o72
@@ -182,6 +185,7 @@ saddress:
    lac 9f
    dac curdot
    jmp mloop
+"** 07-13-19.pdf page 5
 9:0
    "
 symbol:
@@ -243,6 +247,7 @@ print:
    spa
    jmp error
    lac rcore
+"** 07-13-19.pdf page 6
    sys read; inbuf; 64
    spa
    jmp error
@@ -304,6 +309,7 @@ prdec:     "temp
 proct:0
    jms octw
    6
+"** 07-13-19.pdf page 7
    jmp i proct
    "
 patch:
@@ -365,6 +371,7 @@ getexp:0
 xloop:
    jms rch
    lmq
+"** 07-13-19.pdf page 8
    sad o44
    skp
    jmp 1f
@@ -426,6 +433,7 @@ xloop:
    lac o40
    sad rator
    skp
+"** 07-13-19.pdf page 9
    jmp error
    lacq
    dac rator
@@ -487,6 +495,7 @@ spcai:
       lac d1
       dac reloc
       jmp i getspec
+"** 07-13-19.pdf page 10
    "
 getsym:0
    lmq
@@ -548,6 +557,7 @@ skipt:
    spa
    jmp 2f
 1:
+"** 07-13-19.pdf page 11
    lac nchar1
    tad om101
    spa
@@ -609,6 +619,7 @@ num1:
    jmp i getnum
    tad om10
    sma
+"** 07-13-19.pdf page 12
    jmp i getnum
    lac nchar1
    dzm nchar1
@@ -670,6 +681,7 @@ prsym:0
    dac word
    dzm relflg
    dzm relocflg
+"** 07-13-19.pdf page 13
    dzm nsearch
    and o760000
    sad o760000
@@ -731,6 +743,7 @@ pr1:
    tad d1
    dac addr
    lac o55
+"** 07-13-19.pdf page 14
    jms wchar
    jmp 2f
 1:
@@ -792,6 +805,7 @@ peae:
    jmp i prsym
 1:
    law eaes
+"** 07-13-19.pdf page 15
    dac addr
    jmp nfnd
    "
@@ -853,6 +867,7 @@ pcal:
    law syss
    jms wrname
    lac o40
+"** 07-13-19.pdf page 16
    jms wchar
    lac addr
    jms wrname
@@ -914,6 +929,7 @@ nloop:
    lacq
    tad d3
    dac np
+"** 07-13-19.pdf page 17
    lac i np
    sna
    jmp nloop
@@ -975,6 +991,7 @@ testn:
    skp
    jmp nloop
    isz minp
+"** 07-13-19.pdf page 18
    isz inbuf
    isz value
    jmp 1b
@@ -1036,6 +1053,7 @@ nlerr:
    "
 rch:0
    lac nchar1
+"** 07-13-19.pdf page 19
    dzm nchar1
    sza
    jmp i rch
@@ -1097,6 +1115,7 @@ d12:12
 d8:8
 d3:3
 o177:0177
+"** 07-13-19.pdf page 20
 o136: 0136
 o45: 045
 sysflag: 0
@@ -1158,6 +1177,7 @@ nchar1:0
 nchar:0
 o177000:0177000
 o56040:056040
+"** 07-13-19.pdf page 21
 nsearch:0
 word:0
 relflg:0

scans/dmabs.s

@@ -1,3 +1,4 @@
+"** 07-13-19.pdf page 23
    " dmabs
 
    lac o17
@@ -60,6 +61,7 @@ dump2:
 dump3:
    -1
    tad bufp
+"** 07-13-19.pdf page 24
    dac 8
    -64
    dac c1
@@ -121,6 +123,7 @@ dump4:
 done:
    lac tracmd
    jms put
+"** 07-13-19.pdf page 25
    cla
    jms put
    lac oldsum
@@ -182,6 +185,7 @@ boot:
 2:
    jms get1-boot+org
    dac cmd-boot+org
+"** 07-13-19.pdf page 26
    jms get1-boot+org
    cma
    dac cnt-boot+org
@@ -231,7 +235,7 @@ mes:
 comand: 0
 tracmd: 0
    d1: 1
-.17777: 017777
+o17777: 017777
 o77: 077
 o200: 0200
 o300: 0300
@@ -243,6 +247,7 @@ punout: <pp>;<to>;<ut>;040040
 o17: 017
 
 fi: 0
+"** 07-13-19.pdf page 27
 fo: 0
 count: 0
 oldsum: 0
@@ -253,4 +258,4 @@ initcmd: dac 0
 c1: 0
 buf:
 
-iot = 0700000
+iot = 0700000

scans/ds.s

@@ -1,3 +1,4 @@
+"** 07-13-19.pdf page 30
 " ds
 
    lac 017777 i
@@ -60,12 +61,13 @@ loop:
    lac i1 i
    sad ddfilp i
    jmp 2f
+"** 07-13-19.pdf page 31
    isz i1
    isz c1
    jmp 1b
 
    lac ddfilp
-   tad i1
+   tad d1
    dac i1
    lac i1 i
    dac .+3
@@ -109,7 +111,7 @@ loop:
    dzm fflg
    law fbuf
    dac i2
-   r1
+   -1
    tad nfiles
    cma
    dac c2
@@ -120,10 +122,11 @@ loop:
    sad i2 i
    skp
    jmp 3f
+"** 07-13-19.pdf page 32
    -1
    tad i1
    dac i3
-   iac i3 i
+   lac i3 i
    dac c3
    law fbuf
    dac i3
@@ -181,6 +184,7 @@ loop:
    jms putname; scrname
    jms putname; dd
    law 012
+"** 07-13-19.pdf page 33
    jms putc
 
 3:
@@ -242,6 +246,7 @@ longout: 0
    lac statbuf+10
    jms octal; -5
    jmp longout i
+"** 07-13-19.pdf page 34
 
 readdir: 0
    law 012
@@ -303,6 +308,7 @@ readdir: 0
    lac i1
    dac 8
    lac 8 i
+"** 07-13-19.pdf page 35
    dac fsopt i
    isz fsopt
    lac 8 i
@@ -364,6 +370,7 @@ octal: 0
    jmp 1b
    lac octal i
    dac c
+"** 07-13-19.pdf page 36
 1:
    ecla llss 3
    tad o60
@@ -425,6 +432,7 @@ putc: 0
    spa
    jmp 1f
    lac 2f i
+"** 07-13-19.pdf page 37
    xor 2f+1
    jmp 3f
 1:
@@ -486,6 +494,7 @@ ddfilp: .=.+1
 ddfiles: .=.+1
 statbuf: .=.+13
 c: .=.+1
+"** 07-13-19.pdf page 38
 i1: .=.+1
 i2: .=.+1
 i3: .=.+1
@@ -498,4 +507,3 @@ fsopt: .=.+1
 fsobuf: .=.+64
 dbuf: .=.+100
 fbuf:
-   

scans/dskio.s

@@ -1,3 +1,4 @@
+"** 07-13-19.pdf page 42
 " dskio
 
 dskrd0: 0
@@ -60,6 +61,7 @@ iskio: 0
    dssf
    jmp .-1
    dsrs
+"** 07-13-19.pdf page 43
    sma
    jmp 1f
    isz 3f
@@ -75,4 +77,4 @@ o200000: 0200000
 dskbufp: dskbuf
 
 side: .=.+1
-dskbuf: .=.+640
+dskbuf: .=.+640

scans/dskres.s

@@ -1,3 +1,4 @@
+"** 07-13-19.pdf page 41
 " dskres
 
    iof
@@ -23,4 +24,4 @@
 
 track: 0
 c1: 0
-d10: 10
+d10: 10

scans/dsksav.s

@@ -1,3 +1,4 @@
+"** 07-13-19.pdf page 40
 " dsksav
 
    iof

scans/dsw.s

@@ -1,9 +1,10 @@
+"** 07-13-19.pdf page 45
 " dsw
 
    lac djmp
    dac .-1
    oas cla
-   oma
+   cma
    tad d1
    dac t1
    sys open; dd; 0
@@ -24,7 +25,7 @@ wr:
    lac d1
    sys write; o12; 1
    sys save
-io:
+do:
    sys unlink; dir+1
    sys exit
 
@@ -34,4 +35,4 @@ o12: 012
 t1: 0
 djmp: jmp do
 dd: 056056;040040;040040;040040
-dir: .=.+8
+dir: .=.+8

scans/ed1.s

@@ -1,6 +1,7 @@
 "** 08-rest.pdf page 8
 "[handwritten page number top right of scan - 1]
 " ed1
+
    lac d1
    sys write; 1f; 3
    lac o17
@@ -32,6 +33,7 @@
    jmp advanc
 1:
    <ed>; <it>; 012
+
 advanc:
    jms rline
    lac linep
@@ -92,6 +94,7 @@ comand:
    sad o75
    jmp ceq
    jmp error
+
 ca:
    jms newline
    jms setfl
@@ -149,7 +152,7 @@ cp1:
    lac d1
    sys write; line; 2: 0
    lac addr1
-   sad addr1
+   sad addr2
    jmp advanc
    tad d1
    dac addr1
@@ -216,6 +219,7 @@ cr:
    isz c1
    jmp 2b
    jmp 1b
+
 cw:
    jms setfl
    lac i addr1
@@ -246,7 +250,7 @@ cw:
    sna
    jmp 3f
    isz num
-   jmp putsc; tal1
+   jms putsc; tal1
    isz c2
 "** 08-rest.pdf page 12
 "[handwritten page number top right of scan - 5]
@@ -710,7 +714,6 @@ addline: 0
    jmp 1b
    jmp i addline
 
-
 getdsk: 0                  "[the entire getdsk procedure was surrounded
    and o776000             " by a box that was Xed out]:
    sad diskin              " --

scans/ed2.s

@@ -81,6 +81,7 @@ cs:
    skp
    jmp 3b
    jms addline
+
 2:
    lac addr1
    sad addr2
@@ -201,7 +202,7 @@ cadvanc:
    "sad o52
    "jmp clsure
    dac 1f
-   jmp comp
+   jms comp
    1; jms matchar; 1: 0; 0
    jmp cadvanc
 
@@ -341,7 +342,7 @@ found: 0
    jmp 2f
    jmp 3f
 1: "???
-   lac charno
+   lac lchrno
    cma
    tad charno
    spa
@@ -515,5 +516,5 @@ line: .=.+64
 nlist: .=.+50
 clist: .=.+50
 compbuf: .=.+100
-dskbuf: .=.+1 "[line crossed out - scan markup]
+dskbuf: .=.+1024 "[line crossed out - scan markup]
 lnodes: .=.+1000

scans/fop.s

@@ -0,0 +1,817 @@
+"** 09-1-35.pdf page 1
+	"[handwritten in the top center of scan - fop.s ]
+jms = 0100000
+"
+q:0
+fmp = jms q
+
+  lac i q
+  garg
+  isz q
+  -1
+  tad aexp
+  tad hexp
+  dac aexp
+  lac ans
+  lmq
+  lac ams
+  sna cll
+  jmp 2f
+  lls 1
+  dac 3f
+  dac 4f
+  lacq
+  dac 1f
+  lac hls
+  lmq
+  lac hms
+  sna cll
+  jmp 2f
+  lls 1
+  dac hms
+  lacq
+  dac hls
+  lac hms
+  mul
+1:0
+  dac ans
+  lacq
+  dac ce10
+  lac hls
+  mul
+3:0
+  dac ams
+  lacq
+  tad ce10
+  glk
+  dzm ce10
+  tad ams
+  szl cll
+  isz ce10
+  tad ans
+  szl cll
+  isz ce10
+  dac ans
+  lac hms
+  mul
+4:0
+  dac ams
+  lacq
+  tad ans
+  szl cll
+  isz ce10
+  lmq
+  lac ce10
+"** 09-1-35.pdf page 2
+  tad ams
+  sma
+  jmp 5f
+  isz aexp
+  nop
+  lrs 1
+5:xor rsign
+  dac ams
+  lacq
+  dac ans
+  jmp i q
+2:dzm aexp
+  dzm ams
+  dzm ans
+  jmp i q
+"
+q:0
+fdv = jms q
+  lac i q
+  garg
+  isz q
+  lac hms
+  sna
+  sys save
+  ral		"[box drawn around instruction - scan markup]
+  dac 2f	"[separate box around the three dac instructions - scan markup]
+  dac 3f
+  dac 4f
+  -1
+  tad hexp	"[-\							- scan markup]
+  cma		"[  | delta aep???					- scan markup]
+  tad aexp	"[  |							- scan markup]
+  dac aexp	"[-/                             / Ams \		- scan markup]
+  lac ans	"[hand written to the right: Rem | --- |    Hls???	- scan markup]
+  lmq		"[                               \ Hms /   -----	- scan markup]
+  lac ams	"[circle around ams            ----------   Hms		- scan markup]
+  sna cll	"[                                 Hms			- scan markup]
+  jmp 8f
+  div
+2:0
+  szl
+  sys save
+  dac ce10	"[arrow pointing from ce10 to "REm"            +-----+-----+	- scan markup]
+  lacq          "[                   handwritten to the right: |  A  |+ B  |	- scan markup]
+  dac 5f	"[circle around 5f                             +-----+-----+	- scan markup]
+  lac ce10	"[                                             |  C  |+ D  |	- scan markup]
+  frdiv		"[                                             +-----+-----+	- scan markup]
+3:0		"[line from 3:0 to a circled "Hms"				- scan markup]
+  szl
+  sys save
+  lacq
+  dac ce10	"[line from ce10 to text "Q1"	- scan markup]
+  lac hls
+  and o377777
+  frdiv		"[                            X		- scan markup]
+4:0		"[handwritten to the right: -----	- scan markup]
+  szl		"[                           A+B	- scan markup]
+  sys save
+  lacq
+  dac 2b	"[circle around 2b with arrow pointing to the right
+  spa cla
+"** 09-1-35.pdf page 3
+  -1		"[vertical line to the right of instructions... - scan markup]
+  tad 2b
+  cll		"[underlined    ...vertical line ends here - scan markup]
+  mul
+5:0		"[line from 5:0 to "Q" - scan markup]
+  dzm 2b
+  spa
+  isz 2b
+  lls 1
+  dac 3b
+  lacq
+  spa
+  isz 3b
+  skp
+  isz 2b
+  lac ce10	"[lac ce10 circled - scan markup]
+  lmq
+  lac 3b
+  sna
+  jmp 6f	"[arrow pointing down starts to the right of 6f - scan markup]
+  cma
+  tad d1
+  stl
+  tad ce10
+  lmq
+  szl
+  isz 2b
+6:lac 2b	"[arrow above points to between this instruction and the next one - scan markup]
+  sma
+  tad d1
+  tad 5b
+  sma cll
+  jmp 7f
+  lrs 1
+  isz aexp
+  nop
+7:xor rsign
+  dac ams
+  lacq
+  dac ans
+  jmp i q
+8:dzm aexp
+  dzm ams
+  jmp i q
+
+q:0
+fad = jms q
+  lac i q
+  garg
+  isz q
+  lac hms
+  sna
+  jmp 4f
+  lac ams
+  sna
+  jmp 8f
+7:lac aexp
+  cma
+  tad hexp
+  sma
+  jmp 5f
+"** 09-1-35.pdf page 4
+  dac ce10
+  tad d34
+  spa cla
+  jmp 0f
+  lac ce10
+  cma
+  tad d1
+  xor o640500
+  dac 1f
+  lac hls
+  lmq
+  lac hms
+  cll
+1:lrs 0
+  dac hms
+  lacq
+  dac hls
+  lac rsign
+  sma
+  jmp 2f
+  lac hls
+  cll cma
+  tad d1
+  dac hls
+  lac hms
+  szl cma
+  tad d1
+  dac hms
+2:lac ams
+  rcr
+  dac ams
+  lac ans
+  rar
+  cll
+  tad hls
+  dac ans
+  glk
+  tad ams
+  tad hms
+  dac ams
+  sma
+  jmp 3f
+  lac ans
+  cma cll
+  tad d1
+  dac ans
+  lac ams
+  szl cma
+  tad d1
+  dac ams
+  lac o400000
+3:isz aexp
+  nop
+0:xor asign
+  and o400000
+  dac rsign
+  fno
+4:lac ams
+  xor rsign
+  dac ams
+  jmp i q
+"** 09-1-35.pdf page 5
+5:jms 6f
+  lac rsign
+  xor asign
+  dac asign
+  jmp 7b
+8:jms 6f
+  jmp 4b
+6:0
+  lac ans
+  lmq
+  lac hls
+  dac ans
+  lacq
+  dac hls
+  lac ams
+  lmq
+  lac hms
+  dac ams
+  lacq
+  dac hms
+  lac hexp
+  lmq
+  lac aexp
+  dac hexp
+  lacq
+  dac aexp
+  jmp i 6b
+"
+q:0
+fno = jms q
+  lac ans
+  sad ams
+  sza cll
+  jmp 1f
+  dzm aexp
+  dzm rsign
+  jmp i q
+ "
+1:lmq
+  lac ams
+  and o200000
+  sza
+  jmp i q
+  lac ams
+  cll
+  norm 36
+  dac ams
+  lacq
+  dac ans
+  lacs
+  tad o777743
+  cma
+  tad aexp
+  dac aexp
+  jmp i q
+"
+q:0
+fcp = jms q
+  lac i q
+  garg
+  isz q
+"** 09-1-35.pdf page 6
+  lac rsign
+  spa
+  jmp 1f
+  lac ams
+  dac 5f
+  xor asign
+  dac ams
+  sna
+  jmp 2f
+  lac hms
+  sna cma
+  jmp 3f
+  lac hexp
+  cma
+  tad d1
+  tad aexp
+  sza
+  jmp 4f
+2:lac hms
+  cma
+3:tad d1
+  tad 5f
+  sza
+  jmp 4f
+  lac hls
+  cma
+  tad d1
+  tad ans
+  sza
+4:xor asign
+  jmp i q
+1:lac ams
+  xor d1
+  jmp i q
+5:0
+
+q: 0
+garg = jms q
+   tad dm1
+   dac 8
+   lac i 8
+   dac hexp
+   lac i 8
+   lmq
+   and o377777
+   dac hms
+   lac i 8
+   dac hls
+   lacq
+   xor ams
+   and o400000
+   dac rsign
+   lac ams
+   and o400000
+   dac asign
+   lac ams
+   and o377777
+   dac ams
+   jmp i q
+
+q: 0
+"** 09-1-35.pdf page 7
+sfmp = jms q
+  lac i q
+  garg
+  isz q
+   -1
+  tad aexp
+  tad hexp
+  dac aexp
+   lac ams
+   sna rcl
+   jmp 2f
+   lmq
+   lac hms
+   sna rcl
+   jmp 2f
+   dac .+2
+   0641122; 0
+   sma
+   jmp 1f
+   rcr
+   xor rsign
+   dac ams
+   isz aexp
+   jmp i q
+   jmp i q
+1:
+   xor rsign
+   dac ams
+   jmp i q
+2:
+   dzm aexp
+  dzm ams
+  jmp i q
+
+q: 0
+sfdv = jms q
+   lac i q
+   garg
+   isz q
+   lac hexp
+   cma
+   tad aexp
+   tad d1
+   dac aexp
+   lac hms
+   sna ral cll
+   sys save
+   dac 1f
+   lac ams
+   frdiv; 1: 0
+   szl
+   sys save
+   lacq
+   spa
+   jmp 1f
+   xor rsign
+   dac ams
+   jmp i q
+1:
+   rcr
+   xor rsign
+"** 09-1-35.pdf page 8
+   dac ams
+   isz aexp
+   jmp i q
+   jmp i q
+q:0
+   sfad = jms q
+   -1
+   tad i q
+   isz q
+   dac 8
+   lac i 8
+   dac hexp
+   lac i 8
+   sma
+   jmp 1f
+   xor o377777
+   tad d1
+1:
+   lrss 1
+   dac hms
+   lac ams
+   sma
+   jmp 1f
+   xor o377777
+   tad d1
+1:
+   lrss 1
+   dac ams
+   lac hexp
+   cma
+   tad aexp
+   tad d1
+   sma
+   jmp 1f
+   cma
+   tad d1
+   dac tmp
+   lac ams
+   lmq
+   lac hms
+   dac ams
+   lacq
+   dac hms
+   lac hexp
+   dac aexp
+   lac tmp
+1:
+   tad dm18
+   sma
+   jmp 3f
+   tad o660522
+   dac 1f
+   lac hms
+1:
+   lrss 0
+   dzm rsign
+   tad ams
+   cll sma
+   jmp 1f
+   lmq
+   and o400000
+"** 09-1-35.pdf page 9
+   dac rsign
+   lacq
+   cma
+   tad d1
+   cll sma
+   jmp 1f
+   isz aexp
+   nop
+   rar
+1:
+   sna
+   jmp 1f
+   norm 18
+   xor rsign
+   dac ams
+   lacs
+   tad om60
+   cma
+   tad aexp
+   dac aexp
+   jmp i q
+1:
+   dzm aexp
+   dzm ams
+   jmp i q
+3:
+   lac ams
+   rcl
+   sma
+   jmp 1f
+   cma
+   tad d1
+   xor o400000
+1:
+   dac ams
+   jmp i q
+q: 0
+fld = jms q
+   -1
+   tad i q
+   dac 8
+   lac i 8
+   dac aexp
+   lac i 8
+   dac ams
+   lac i 8
+   dac ans
+   isz q
+   jmp i q
+
+q: 0
+fst = jms q
+   -1
+   tad i q
+   dac 8
+   lac aexp
+   dac i 8
+   lac ams
+   dac i 8
+   lac ans
+   dac i 8
+"** 09-1-35.pdf page 10
+   isz q
+   jmp i q
+
+q: 0
+fng = jms q
+   lac ams
+   sza
+   xor o400000
+   dac ams
+   jmp i q
+
+q: 0
+fix = jms q
+   lac aexp
+   spa sna
+   jmp 1f
+   tad dm18
+   sma
+   jmp 3f
+   cma
+   tad o660500
+   dac 2f
+   lac ams
+   sma
+   jmp 2f
+   xor o377777
+   tad d1
+2:
+   lrss 0
+   jmp i q
+1:
+   lac ams
+   lrss 18
+   jmp i q
+3:
+   lac ams
+   and o400001
+   sma
+   lac o377777
+   jmp i q
+
+q: 0
+flt = jms q
+   dac tmp
+   dzm ans
+   sma
+   jmp 1f
+   cma
+   tad d1
+   spa
+   cla
+1:
+   sza
+   jmp 1f
+   dzm aexp
+   dzm ams
+   jmp 2f
+1:
+   clq
+   norm 36
+   dac ams
+"** 09-1-35.pdf page 11
+   lacs
+   tad om56
+   cma
+   dac aexp
+2:
+   lac tmp
+   and o400000
+   xor ams
+   dac ams
+   jmp i q
+
+tmp: 0
+stmp: 0
+ce10: 0
+asign: 0
+aexp: 0
+ams: 0
+ans: 0
+hexp: 0
+hms: 0
+hls: 0
+
+q: 0
+sin = jms q
+   lac ams
+   and o400000
+   dac sign
+   lac ams
+   and o377777
+   dac ams
+   fst; ftmp1
+   fdv; fpi
+   fix
+   dac stmp
+   and d1
+   sna
+   jmp 1f
+   lac o400000
+   xor sign
+   dac sign
+1:
+   lac stmp
+   flt
+   fmp; fpi
+   fng
+   fad; ftmp1
+   fst; strm
+   fst; sres
+   fst; ftmp2
+   fld; fp1
+   fst; sfac
+   -6
+   dac scnt
+1:
+bsin:
+   fld; sfac
+   fad; fp1
+   fst; ftmp1
+   fad; fp1
+   fst; sfac
+   fld; strm
+"** 09-1-35.pdf page 12
+   fmp; ftmp2
+   fmp; ftmp2
+   fdv; sfac
+   fdv; ftmp1
+   fng
+   fst; strm
+   fad; sres
+   fst; sres
+   isz scnt
+   jmp 1b
+   lac ams
+   xor sign
+   dac ams
+   jmp i q
+
+q: 0
+sqrt = jms q
+   lac aexp
+   tad d1
+   llss 0
+   rar
+   dac aexp
+   lac ans
+   lmq
+   lac ams
+   spa
+   sys save
+   dac 1f
+   snl
+   jmp 5f
+   lls 1
+   dac ams
+   lacq
+   dac ans
+5:
+   lac 1f
+   sna
+   jmp q i
+   snl cll
+   xor o200000
+   xor o400000
+   dac 1f
+   lac ams	"[a centered dot drawn after ams - scan markup]
+   frdiv; 1:..
+   szl
+   clq
+   lacq
+   tad 1b
+   rar
+   cll
+   dac 2f
+   lac ams
+   frdiv; 2:..
+   szl
+   clq
+   lacq
+   tad 2b
+   rar
+   dac 3f
+   dac 4f
+   lac ans
+"** 09-1-35.pdf page 13
+   lmq
+   lac ams
+   cll
+   div; 3:..
+   szl
+   clq ecla
+   dac 1b
+   lacq
+   tad 3b
+   clq lrs 1
+   cll
+   lrs 1
+   dac ams
+   lacq
+   dac 2b
+   lac 1b
+   frdiv; 4:..
+   szl
+   sys save
+   lacq
+   lrs 2
+   tad 2b
+   dac ans
+   jmp q i
+
+sfac: 0;0;0
+ftmp1: 0;0;0
+ftmp2: 0;0;0
+strm: 0;0;0
+scnt: 0
+sres: 0;0;0
+rsign: 0
+sign: 0
+
+fp1: 1;0200000;0
+
+o400000: 0400000
+o640500: 0640500
+o200000: 0200000
+d34: 34
+o777743: 0777743
+o2: 02
+o377777: 0377777
+dm18: -18
+o377777: 0377777
+om60: -060
+o660522: 0660522
+o660500: 0660500
+o400001: 0400001
+dm1: -1
+om56: -056
+fpi: 2;0311037; 0552421
+fpid2: 1; 0311037;0552421
+buf:
+cgarg = garg-jms
+cfmp = fmp-jms
+cfdv = fdv-jms
+cfad = fad-jms
+cfno = fno-jms
+cfcp = fcp-jms
+csfmp = sfmp-jms
+"** 09-1-35.pdf page 14
+csfdv = sfdv-jms
+csfad = sfad-jms
+cfld = fld-jms
+cfst = fst-jms
+cfng = fng-jms
+cfix = fix-jms
+cflt = flt-jms
+csin = sin-jms

scans/init.s

@@ -1,19 +1,20 @@
 " init
+"** 07-13-19.pdf page 47
 
    -1
    sys intrp
    jms init1
    jms init2
-1:
+l:
    sys rmes
    sad pid1
    jmp 1f
    sad pid2
    jms init2
-   jmp 1
+   jmp l
 1:
    jms init1
-   jmp 1
+   jmp l
 
 init1: 0
    sys fork
@@ -52,7 +53,7 @@ login:
    dac 9
 2:
    lac 8 i
-   sac o12
+   sad o12
    lac o72
    sad 9 i
    skp
@@ -60,6 +61,7 @@ login:
    sad o72
    skp
    jmp 2b
+"** 07-13-19.pdf page 48
    lac 9 i
    sad o72
    jmp 1f
@@ -120,6 +122,7 @@ login:
    cll; als 3
    omq
    dac nchar
+"** 07-13-19.pdf page 49
    jmp 1b
 2:
    lac nchar
@@ -181,6 +184,7 @@ rline: 0
    sad 8
    jmp 1b
    -1
+"** 07-13-19.pdf page 50
    tad 8
    dac 8
    jmp 1b
@@ -225,7 +229,7 @@ gchar: 0
    lac bufp
    dac tal
    lac d2
-   sys tead; buf; 64
+   sys read; buf; 64
    sna
    jmp error
    jmp gchar+1
@@ -238,10 +242,11 @@ error:
    sys exit
 
 m1:
-   012; <lo>;<gi>;<n;<:;<
+   012;<lo>;<gi>;<n;<:;<
 m1s = .-m1
 m2:
    <?; 012
+"** 07-13-19.pdf page 51
 m2s = .-m2
 m3:
    <pa>;<ss>;<wo>;<rd>;<: 040
@@ -269,7 +274,7 @@ password:
 d1: 1
 o43: 043
 o100: 0100
-o400000; 0400000
+o400000: 0400000
 d2: 2
 o12: 012
 om60: -060

scans/ln.s

@@ -0,0 +1,106 @@
+"** 09-1-35.pdf page 15
+" ln
+
+   lac 017777 i
+   sad d4
+   jmp error
+   lac 017777
+   tad d1
+   dac dirn
+   lac dirn i
+   sad qli
+   jmp clink
+   lac 017777
+   tad d5
+   dac dirn
+   dac name
+
+loop:
+   lac 017777 i
+   sad d8
+   sys exit
+   tad dm4
+   dac 017777 i
+   lac name
+   tad d4
+   dac name
+   dac name1
+   sys link; dirn: 0; name: 0; name1: 0
+   sma
+   jmp loop
+   lac name
+   dac 1f
+   lac d1
+   sys write; 1: 0; 4
+   lac d1
+   sys write; errmes; 2
+   jmp loop
+
+clink:
+   lac 017777 i
+   sad d8
+   jmp arg1
+   sad d12
+   jmp arg2
+   sad d16
+   jmp arg3
+
+error:
+   lac d1
+   sys write; errmes+1; 1
+   sys exit
+
+arg1:
+   lac 017777
+   tad d5
+   dac larg+1
+   dac larg+2
+   jmp dlink
+arg2:
+   lac 017777
+   tad d5
+   dac larg
+   tad d4
+"** 09-1-35.pdf page 16
+   dac larg+1
+   dac larg+2
+   jmp dlink
+arg3:
+   lac 017777
+   tad d5
+   dac larg
+   tad d4
+   dac larg+1
+   tad d4
+   dac larg+2
+dlink:
+   sys link; larg: defdir;0;0
+   sma
+   sys exit
+   lac larg
+   dac 1f
+   lac larg+1
+   dac 2f
+   lac larg+2
+   dac 3f
+   lac d1
+   sys write; 1:..; 4
+   lac d1
+   sys write; 2:..; 4
+   lac d1
+   sys write; 3:..; 4
+   lac d1
+   sys write; errmes; 2
+   sys exit
+
+errmes:
+   040; 077012
+d1: 1
+qli: <li>
+d12: 12
+d16: 16
+defdir: <sy>;<st>;<em>;040040
+d4: 4
+d8: 8
+dm4: -4
+d5: 5

scans/ls.s

@@ -0,0 +1,276 @@
+"** 09-1-35.pdf page 17
+" ls
+" list
+
+   lac 017777
+   tad d1
+   dac name
+   lac name i
+   sad ali
+   dac longflg
+   lac 017777 i
+   sad d4
+   skp
+   jmp loop
+   law dd
+   dac name
+   jmp 2f
+
+loop:
+   lac 017777 i
+   sad d4
+   jmp done
+   tad dm4
+   dac 017777 i
+   lac name
+   tad d4
+   dac name
+2:
+   law stbuf
+   sys status; dd; name:..
+   spa
+   jmp badfile
+   lac s.flags
+   and o20
+   sna
+   jmp badfile
+   lac name
+   dac 0f
+   sys open; 0:..; 0
+   spa
+   jmp badfile
+   dac fi
+   jms readdir
+   lac fi
+   sys close
+1:
+   lac o200000
+   dac maxfn
+   jms findf
+   lac maxfn
+   sad o200000
+   jmp loop
+
+   lac longflg
+   sza
+   jms longout
+   law maxfn
+   jms putfn
+   law 012
+   jms putc
+   lac o200000
+   dac maxfp i
+   jmp 1b
+
+"** 09-1-35.pdf page 18
+longout: 0
+   lac name
+   dac 0f
+   law stbuf
+   sys status; 0:..; maxfn
+   lac s.i
+   jms octal; -3
+   lac s.flags
+   jms octal; -2
+   lac s.uid
+   jms octal; -2
+   -1
+   tad s.nlinks
+   cma
+   jms octal; -2
+   lac s.size
+   jms octal; -5
+   jmp longout i
+
+octal: 0
+   lmq
+   lac d5
+   tad octal i
+   cma
+   dac t
+1:
+   llss 3
+   isz t
+   jmp 1b
+   lac octal i
+   dac t
+1:
+   ecla llss 3
+   tad o60
+   jms putc
+   isz t
+   jmp 1b
+   law 040
+   jms putc
+   isz octal
+   jmp octal i
+
+toobig:
+   law 076
+   jms putc
+   law 040
+   jms putc
+
+badfile:
+   lac name
+   jms putfn
+   law 040
+   jms putc
+   law 077
+   jms putc
+   law 012
+   jms putc
+   jmp loop
+
+putfn: 0
+"** 09-1-35.pdf page 19
+   dac t
+   -4
+   dac t1
+1:
+   lac t i
+   lrss 9
+   sad o40
+   jmp putfn i
+   jms putc
+   lac t i
+   and o177
+   sad o40
+   jmp putfn i
+   jms putc
+   isz t
+   isz t1
+   jmp 1b
+   jmp putfn i
+
+done:
+   lac noc
+   sna
+   sys exit
+   and d1
+   sna cla
+   jmp 1f
+   jms putc
+   jmp done
+1:
+   lac noc
+   rcr
+   dac 1f
+   lac fo
+   sys write; iopt+1; 1:..
+   sys exit
+
+readdir: 0
+   lac fi
+   sys read; buf; 2048
+   sad .-1
+   jmp toobig
+   lrss 3
+   cma
+   tad d1
+   dac ndir
+   jmp readdir i
+
+findf: 0
+   law buf
+   dac t
+   lac ndir
+   dac t1
+1:
+   lac t i
+   sna
+   jmp 2f
+   isz t
+   lac t i
+   cma
+   tad maxfn
+   spa
+"** 09-1-35.pdf page 20
+   jmp 2f+1
+   lac t
+   dac maxfp
+   lac t i
+   dac maxfn
+   skp
+2:
+   isz t
+   lac t
+   tad d7
+   dac t
+   isz t1
+   jmp 1b
+
+   lac maxfp
+   dac 8
+   lac 8 i
+   dac maxfn+1
+   lac 8 i
+   dac maxfn+2
+   lac 8 i
+   dac maxfn+3
+   jmp findf i
+
+putc: 0
+   and o177
+   dac 2f+1
+   lac opt
+   dac 2f
+   add o400000
+   dac opt
+   spa
+   jmp 1f
+   lac 2f i
+   xor 2f+1
+   jmp 3f
+1:
+   lac 2f+1
+   alss 9
+3:
+   dac 2f i
+   isz noc
+   lac noc
+   sad d128
+   skp
+   jmp putc i
+   lac fo
+   sys write; iopt+1; 64
+   lac iopt
+   dac opt
+   dzm noc
+   jmp putc i
+2: 0;0
+fi: 0
+opt: .+2
+iopt: .+1; .=.+64
+noc: 0
+fo: 1
+longflg: 0
+
+d1: 1
+"** 09-1-35.pdf page 21
+d5: 5
+o60: 060
+o40: 040
+o20: 020
+d7: 7
+o400000: 0400000
+d128: 128
+d4: 4
+dm4: -4
+o177: 0177
+o200000: 0200000
+dd: 056056;040040;040040;040040
+ali: <li>
+
+t: .=.+1
+t1: .=.+1
+maxfn: .=.+4
+maxfp: .=.+1
+ndir: .=.+1
+stbuf:
+   s.flags: .=.+8
+   s.uid: .=.+1
+   s.nlinks: .=.+1
+   s.size: .=.+2
+   s.i: .=.+1
+buf:

scans/maksys.s

@@ -8,9 +8,9 @@
    spa; jmp error; dac track
    tad dm10; sma; jmp error
 
-   sysopen; a.out; 0
+   sys open; a.out; 0
    spa; jmp error
-   sys read; bufp; buf; 3072
+   sys read; bufp: buf; 3072
    sad .-1
    jmp error
 
@@ -18,7 +18,7 @@
    -3072; dslw
    lac bufp; dslm
    lac track; alss 8; xor o300000; dsld
-   lac o30000; dsls
+   lac o3000; dsls
    dssf; jmp .-1
    dsrs; spa; jmp error
    -1024; dslw
@@ -35,10 +35,10 @@ error:
 1: 077077;012
 
 dm10: -10
-dm5: 5
+d5: 5
 om60: -060
 o300000: 0300000
-o300100: 0300110
+o300110: 0300110
 d8: 8
 d3072: 3072
 o3000: 03000
@@ -49,4 +49,3 @@ a.out:
 track: .=.+1
 
 buf:
-

scans/moo.s

@@ -0,0 +1,514 @@
+"** 09-1-35.pdf page 22
+" moo
+
+   jmp 1f
+reset:
+   jms messg; <es>;<et>;012;0
+1:
+   jms messg; <wr>; <u 077; 040; 0
+   sys open; moostat; 0
+   spa
+   sys exit
+   dac fi
+   sys open; moostat; 1
+   spa
+   sys exit
+   dac fo
+   jms readline
+   dzm user
+   skp
+1:
+   isz user
+   jms getentry
+      jmp noentry
+   lac name
+   sad u.name
+   skp
+   jmp 1b
+   lac name+1
+   sad u.name+1
+   skp
+   jmp 1b
+   lac name+2
+   sad u.name+2
+   skp
+   jmp 1b
+   lac name+3
+   sad u.name+3
+   skp
+   jmp 1b
+
+gloop:
+   jms messg; <re>; <ad>; <y 077; 040; 0
+   law rqname-1
+   dac 8
+   law rqhand-1
+   dac 9
+   -nrq
+   dac 2f
+   jms readch
+1:
+   sad 8 i
+   jmp 9 i
+   isz 9
+   isz 2f
+   jmp 1b
+   jms messg; 077012; 0
+   jmp gloop
+2: 0
+
+noentry:
+   jms messg; <na>; <me>; 040; <no>; <t 040; <fo>
+      <un>; <d 073; 040; <en>; <te>; <r 077; 040; 0
+   jms readch
+"** 09-1-35.pdf page 23
+   sad ch.y
+   skp
+   sys exit
+   jms newline
+   lac name
+   dac u.name
+   lac name+1
+   dac u.name+1
+   lac name+2
+   dac u.name+2
+   lac name+3
+   dac u.name+3
+   dzm u.ngames
+   dzm u.nguess
+   dzm u.ntime
+   dzm u.npenalty
+   jms putentry
+   jmp gloop
+
+gstart1:
+   jms messg; <es>; 012; 0
+
+gstart:
+   jms random
+   dac a1
+1:
+   jms random
+   sad a1
+   jmp 1b
+   dac a2
+1:
+   jms random
+   sad a1
+   jmp 1b
+   sad a2
+   jmp 1b
+   dac a3
+1:
+   jms random
+   sad a1
+   jmp 1b
+   sad a2
+   jmp 1b
+   sad a3
+   jmp 1b
+   dac a4
+   dzm nguess
+
+guessloop:
+   jms readguess
+   lac nguess
+   sza
+   jmp 1f
+   sys time
+   lacq
+   rcr
+   dac stime
+1:
+   dzm nbull
+   dzm ncow
+   lac g1
+"** 09-1-35.pdf page 24
+   sad a1
+   isz nbull
+   sad a2
+   isz ncow
+   sad a3
+   isz ncow
+   sad a4
+   isz ncow
+   lac g2
+   sad a1
+   isz ncow
+   sad a2
+   isz nbull
+   sad a3
+   isz ncow
+   sad a4
+   isz ncow
+   lac g3
+   sad a1
+   isz ncow
+   sad a2
+   isz ncow
+   sad a3
+   isz nbull
+   sad a4
+   isz ncow
+   lac g4
+   sad a1
+   isz ncow
+   sad a2
+   isz ncow
+   sad a3
+   isz ncow
+   sad a4
+   isz nbull
+   lac nbull
+   sad d4
+   jmp gdone
+   jms messg; 040040; 040040; 040040; <bc>; 075; 0
+   lac nbull
+   jms number
+   lac ncow
+   jms number
+   jms newline
+   isz nguess
+   jmp guessloop
+
+gdone:
+   sys time
+   lacq
+   rcr
+   cma
+   tad stime
+   cma
+   spa
+   tad o400000
+   rcr
+   dac stime
+   lac u.ntime
+   tad stime
+   dac u.ntime
+"** 09-1-35.pdf page 25
+   lac u.nguess
+   tad nguess
+   dac u.nguess
+   isz u.ngames
+   jms putentry
+   jms messg; 012; <g 075; 0
+   lac nguess
+   jms number
+   jms messg; 040; <t 075; 0
+   lac stime
+   cll; idiv; 15
+   lacq
+   jms number
+   jms newline
+   jmp gloop
+
+random: 0
+   sys time
+   lacq
+   tad rand
+   cll; mul; 78125
+   lacq
+   dac rand
+   cll; idiv; 10
+   jmp random i
+
+newline: 0
+   jms messg; 012; 0
+   jmp newline i
+
+number: 0
+   lmq
+   law 2f+1
+   dac 3f
+   lacq
+1:
+   cll; idiv; 10
+   tad o60
+   dac 3f i
+   isz 3f
+   lacq
+   sza
+   jmp 1b
+1:
+   -1
+   tad 3f
+   dac 3f
+   lac 3f i
+   sna
+   jmp number i
+   dac .+2
+   jms messg; ..; 0
+   jmp 1b
+2: 0; .=.+10
+3: .=.+1
+
+readguess: 0
+   jms messg; 077040; 0
+   jms cnum
+   dac g1
+   jms cnum
+"** 09-1-35.pdf page 26
+   dac g2
+   jms cnum
+   dac g3
+   jms cnum
+   dac g4
+   jms readch
+   sad o12
+   jmp readguess i
+   jmp readguess+1
+
+cnum: 0
+   jms readch
+   tad om60
+   spa
+   jmp readguess+1
+   dac 1f
+   tad dm10
+   sma
+   jmp readguess+1
+   lac 1f
+   jmp cnum i
+1: 0
+
+readch: 0
+   cla
+   sys read; 1f; 1
+   lac 1f
+   lrss 9
+   jmp readch i
+1: 0
+
+readline: 0
+   -1
+   dac r1f
+   jms read2
+   dac name
+   jms read2
+   dac name+1
+   jms read2
+   dac name+2
+   jms read2
+   dac name+3
+   jmp readline i
+
+read2: 0
+   jms read1
+   alss 9
+   dac 1f
+   jms read1
+   xor 1f
+   jmp read2 i
+1: 0
+
+read1: 0
+   lac r1f
+   sna
+   jmp 1f
+   jms readch
+   sad o12
+   skp
+   jmp read1 i
+"** 09-1-35.pdf page 27
+   dzm r1f
+1:
+   lac o40
+   jmp read1 i
+r1f: 0
+
+getentry: 0
+   lac user
+   cll; mul; 16
+   lacq
+   dac 0f
+   lac fi
+   sys seek; 0:..; 0
+   lac fi
+   sys read; userdata; 16
+   sza
+   isz getentry
+   jmp getentry i
+
+putentry: 0
+   lac user
+   cll; mul; 16
+   lacq
+   dac 0f
+   lac fo
+   sys seek; 0:..; 0
+   lac fo
+   sys write; userdata; 16
+   jmp putentry i
+
+average:
+   jms messg; <ve>;<r 012; 0
+   jms paver
+   jmp gloop
+
+standing:
+   jms messg; <ta>; <nd>; 012; 0
+   lac user
+   dac 2f
+   dzm user
+   skp
+1:
+   isz user
+   jms getentry
+      jmp 1f
+   lac d1
+   sys write; u.name; 4
+   jms paver
+   jmp 1b
+1:
+   lac 2f
+   dac user
+   jms getentry
+      nop
+   jmp gloop
+2: 0
+
+paver: 0
+   lac u.ngames
+   sna
+   jmp 1f
+"** 09-1-35.pdf page 28
+   jms messg; <n; 075; 0
+   lac u.ngames
+   jms number
+   jms messg; 040; <g 075; 0
+   lac u.nguess
+   jms number
+   lac u.nguess
+   jms aver
+   jms messg; 040; <t 075; 0
+   lac u.ntime
+   cll; idiv; 15
+   lacq
+   jms number
+   lac u.ntime
+   cll; idiv; 15
+   lacq
+   jms aver
+   jms newline
+   jmp paver i
+1:
+   jms messg; <no>; 040; <ga>; <me>; <s 012; 0
+   jmp paver i
+
+aver: 0
+   dac 1f
+   lac u.ngames
+   dac 0f
+   jms messg; 050; 0
+   lac 1f
+   cll; idiv; 0: ..
+   dac 1f
+   lacq
+   jms number
+   jms messg; 056; 0
+   lac u.ngames
+   dac 0f
+   lac 1f
+   cll; mul; 100
+   cll; div; 0:..
+   ecla; div; 10
+   dac 1f
+   lacq
+   jms number
+   lac 1f
+   jms number
+   jms messg; 051; 0
+   jmp aver i
+1: .=.+1
+
+messg: 0
+   -1
+   tad messg
+   dac 8
+1:
+   lac 8 i
+   sna
+   jmp 8 i
+   dac 1f
+   lac d1
+   sys write; 1f; 1
+   jmp 1b
+"** 09-1-35.pdf page 29
+1: 0
+
+rqname:
+   y>
+   q>
+   a>
+   s>
+   r>
+nrq = .-rqname
+rqhand:
+   jmp gstart1
+   jmp quit
+   jmp average
+   jmp standings
+   jmp reset
+
+quit:
+   jms messg; <ui>; <t 012; 0
+   sys exit
+
+d1: 1
+o400000: 0400000
+o60: 060
+om60: -060
+dm10: -10
+d4: 4
+o40: 040
+o12: 012
+ch.y: y>
+
+m1: <wr>;<u 077; 040
+m1s = .-m1
+m2: <re>;<ad>;<y 077; 040
+m2s = .-m2
+m3: <na>;<me>;040;<no>;<t 040;<fo>;<un>;<d 012
+    <en>;<te>;<r 077; 040
+m3s = .-m3
+m5: 077040
+m5s = .-m5
+m7: 012;<gu>;<es>;<s 075
+m7s = .-m7
+m8: <av>;<g 075
+m8s = .-m8
+m9: 057
+m9s = .-m9
+m10: 040075; 040
+m10s = .-m10
+moostat: <mo>;<os>;<ta>;<t 040
+
+fi: .=.+1
+fo: .=.+1
+name: .=.+4
+nguess: .=.+1
+nbull: .=.+1
+ncow: .=.+1
+stime: .=.+1
+a1: .=.+1
+a2: .=.+1
+a3: .=.+1
+a4: .=.+1
+g1: .=.+1
+"** 09-1-35.pdf page 30
+g2: .=.+1
+g3: .=.+1
+g4: .=.+1
+rand: .=.+1
+user: .=.+1
+userdata:
+   u.name: .=.+4
+   u.ngames: .=.+1
+   u.nguess: .=.+1
+   u.ntime: .=.+1
+   u.npenalty: .=.+1
+   u.hguess: .=.+1
+   u.lguess: .=.+1
+   u.htime: .=.+1
+   u.ltime: .=.+1
+   . = userdata+16

scans/nm.s

@@ -0,0 +1,234 @@
+"** 09-1-35.pdf page 31
+" nm
+
+   lac 017777 i
+   sad d4
+   skp
+   jmp 1f
+   law n.out
+   dac fname
+   jmp 2f
+1:
+   lac 017777
+   tad d1
+   dac fname
+
+loop:
+   lac 017777 i
+   sad d4
+   jmp done
+   tad dm4
+   dac 017777 i
+   lac fname
+   tad d4
+   dac fname
+2:
+   law 012
+   jms putc
+   sys open; fname: 0; 0
+   sma
+   jmp 1f
+   lac fname
+   dac 2f
+   lac d1
+   sys write; 2: 0; 4
+   lac d1
+   sys write; mes; 2
+   jmp loop
+mes:
+   040077; 012
+
+1:
+   lac d2
+   sys read; buf; 3072
+   cll; idiv; 6
+   lacq
+   dac size
+   law o200000
+   dac c2
+
+print:
+   lac o200000
+   dac c2 i
+   dzm c2name
+   -1
+   tad size
+   cma
+   dac c1
+   law buf
+   dac c3
+   lac o200000
+   dac c2name
+1:
+   lac c3 i
+"** 09-1-35.pdf page 32
+   cma
+   tad c2name
+   spa
+   jmp 2f
+   lac c3 i
+   dac c2name
+   lac c3
+   dac c2
+2:
+   law 6
+   tad c3
+   dac c3
+   isz c1
+   jmp 1b
+   lac c2name
+   sad o200000
+   skp
+   jmp 1f
+   lac d2
+   sys close
+   jmp loop
+1:
+
+   lac c2
+   tad d3
+   dac t
+   lac i t
+   sna
+   jmp print
+   isz t
+   lac i t
+   sna
+   jmp print
+   -1
+   tad c2
+   dac 8
+   -4
+   dac c3
+1:
+   lac 8 i
+   lrss 9
+   jms putc
+   llss 9
+   jms putc
+   isz c3
+   jmp 1b
+   lac i t
+   sad d3
+   jmp undef
+   sna
+   jmp 1f
+   law 0162
+   skp
+1:
+   law 0141
+   dac type
+   law 040
+   jms putc
+   isz t
+   lac i t
+   lmq
+"** 09-1-35.pdf page 33
+   -6
+   dac c3
+1:
+   cla
+   llss 3
+   tad o60
+   jms putc
+   isz c3
+   jmp 1b
+   law 040
+   jms putc
+   lac type
+   jms putc
+   law 012
+   jms putc
+   jmp print
+undef:
+   -8
+   dac c3
+1:
+   law 040
+   jms putc
+   isz c3
+   jmp 1b
+   law 0165
+   jms putc
+   law 012
+   jms putc
+   jmp print
+
+done:
+   lac noc
+   sna
+   sys exit
+   and d1
+   sna cla
+   jmp 1f
+   jms putc
+   jmp done
+1:
+   lac noc
+   rcr
+   dac 1f
+   lac fo
+   sys write; iopt+1; 1:..
+   sys exit
+
+putc: 0
+   and o777
+   dac 2f+1
+   lac opt
+   dac 2f
+   add o400000
+   dac opt
+   spa
+   jmp 1f
+   lac 2f i
+   xor 2f+1
+   jmp 3f
+1:
+   lac 2f+1
+"** 09-1-35.pdf page 34
+   alss 9
+3:
+   dac 2f i
+   isz noc
+   lac noc
+   sad d128
+   skp
+   jmp putc i
+   lac fo
+   sys write; iopt+1; 64
+   lac iopt
+   dac opt
+   dzm noc
+   jmp putc i
+2: 0;0
+ipt: 0
+eipt: 0
+iipt: .+1; .=.+64
+fi: 0
+opt: .+2
+iopt: .+1; .=.+64
+noc: 0
+fo: 1
+
+c1: 0
+c2: 0
+c3: 0
+t: 0
+size: 0
+c2name: 0
+type: 0
+
+d1: 1
+d128: 128
+o200000: 0200000
+o777: 0777
+o400000: 0400000
+d2: 2
+d4: 4
+dm4: -4
+o60: 060
+d3: 3
+d6: 6
+n.out:
+0156056;0157165;0164040;040040
+buf:

scans/op.s

@@ -0,0 +1,101 @@
+"** 09-1-35.pdf page 35
+" op
+
+sys = 0020000
+dac = 0040000
+jms = 0100000
+dzm = 0140000
+lac = 0200000
+xor = 0240000
+add = 0300000
+tad = 0340000
+xct = 0400000
+isz = 0440000
+and = 0500000
+sad = 0540000
+jmp = 0600000
+law = 0760000
+
+nop = 0740000
+cma = 0740001
+cml = 0740002
+oas = 0740004
+ral = 0740010
+rar = 0740020
+hlt = 0740040
+sma = 0740100
+sza = 0740200
+snl = 0740400
+skp = 0741000
+spa = 0741100
+sna = 0741200
+szl = 0741400
+rtl = 0742010
+rtr = 0742020
+cll = 0744000
+stl = 0744002
+rcl = 0744010
+rcr = 0744020
+cla = 0750000
+clc = 0750001
+las = 0750004
+glk = 0750010
+lrs = 0640500
+lrss= 0660500
+lls = 0640600
+llss= 0660600
+als = 0640700
+alss= 0660700
+norm= 0640444
+norms=0660444
+mul = 0653122
+muls= 0657122
+div = 0640323
+divs= 0644323
+idiv= 0653323
+idivs=0657323
+frdiv = 0650323
+frdivs = 0654323
+lacq = 0641002
+lacs = 0641001
+clq = 0650000
+ads = 0644000
+gsm = 0664000
+
+"** 10-36-55.pdf page 1
+osc = 0640001
+omq = 0640002
+otq = 0642000
+cmq = 0640004
+lmq = 0652000
+ecla = 0641000
+
+i = 020000
+
+save = 1
+getuid = 2
+open = 3
+read = 4
+write = 5
+creat = 6
+seek = 7
+tell = 8
+close = 9
+link = 10
+unlink = 11
+setuid = 12
+rename = 13
+exit = 14
+time = 15
+intrp = 16
+chdir = 17
+chmode = 18
+chowner = 19
+sysloc = 21
+capt = 23
+rele = 24
+status = 25
+sleep = 26
+smes = 27
+rmes = 28
+fork = 29

scans/p1.s

@@ -0,0 +1,261 @@
+"** 10-36-55.pdf page 2
+" p1
+
+t = 0
+	las
+	dac .sw
+	law 13
+	sys sysloc
+	dac .pb
+	jms ballinit
+	lac nballp
+	cll; mul; bvsize
+	lacq
+	tad listpm1
+	dac 15
+	tad d1
+	sys capt
+	law outline-1
+	dac 8
+	-noutline
+	dac 9f+t
+1:
+	lac 8 i
+	dac 15 i
+	isz 9f+t
+	jmp 1b
+	lac 15
+	dac displist
+	lac o400000
+	dac 15 i
+	jms dump
+
+loop:
+
+" dump/restore
+
+	lac waitup
+	sza
+	jmp 2f
+	lac .pb i
+	als 5; ral
+	snl
+	jmp 1f
+	jms dump
+	jmp 3f
+1:
+	sma
+	jmp 3f
+	jms restore
+	jmp 3f
+2:
+	lac .pb i
+	als 5; ral
+	szl
+	jmp 3f
+	spa
+	jmp 3f
+	dzm waitup
+3:
+	sys time
+	lacq
+	sad stime
+	jmp loop
+"** 10-36-55.pdf page 3
+	tad dm1
+	sad stime
+	jmp loop
+	tad d1
+	dac stime
+	lac .pb i
+	als 7
+	spa
+	sys exit
+
+	lac displist
+	dac 15
+
+	-nball
+	dac 9f+t
+
+" q and stich controls
+
+	jms getball; ball1; 9f+t
+	lac ball1+vx
+	lmq
+	lac ball1+vy
+	omq
+	sza
+	jmp 1f
+	jms stickcont
+	jms putball; ball1; 9f+t
+
+1:
+	jms getball; ball1; 9f+t
+
+" if in pocket, ignore
+
+	lac ball1+sflg
+	spa
+	jmp 4f
+	lac 9
+	dac 14
+
+" update
+
+	lac ball1+vx
+	lrss 6
+	tad ball1+x
+	and o177777
+	dac ball1+x
+	lac ball1+vy
+	lrss 6
+	tad ball1+y
+	and o177777
+	dac ball1+y
+
+" display
+
+	lac ball1+x
+	lrss 6
+	xor o142000 " setx
+	dac 15 i
+	lac ball1+y
+	lrss 6
+	xor o164000 " sety
+"** 10-36-55.pdf page 4
+	dac 15 i
+
+	law circle-1
+	dac 8
+	-circsize
+	dac 9f+t+1
+2:
+	lac 8 i
+	dac 15 i
+	isz 9f+t+1
+	jmp 2b
+
+" degrade velocity
+	jms frict
+
+" edge collision
+
+	lac lefttest
+	tad ball1+x
+	sma
+	jmp 2f
+	jms pocketlr
+		jmp 4f
+	lac ball1+vx
+	sma
+	jmp 2f
+	cma
+	tad d1
+	dac ball1+vx
+2:
+	lac bottest
+	tad ball1+y
+	sma
+	jmp 2f
+	jms pockettb
+		jmp 4f
+	lac ball1+vy
+	sma
+	jmp 2f
+	cma
+	tad d1
+	dac ball1+vy
+2:
+	lac righttest
+	tad ball1+x
+	spa
+	jmp 2f
+	jms pocketlr
+		jmp 4f
+	lac ball1+vx
+	spa
+	jmp 2f
+	cma
+	tad d1
+	dac ball1+vx
+2:
+	lac toptest
+	tad ball1+y
+	spa
+	jmp 2f
+	jms pockettb
+"** 10-36-55.pdf page 5
+		jmp 4f
+	lac ball1+vy
+	spa
+	jmp 2f
+	cma
+	tad d1
+	dac ball1+vy
+2:
+
+" ball/ball collision
+
+	lac 9f+t
+	tad d1
+	sma
+	jmp 4f
+	dac 9f+t+1
+
+2:
+	lac 14 i
+	dac ball2+0
+	lac 14 i
+	dac ball2+1
+	lac 14 i
+	dac ball2+2
+	lac 14 i
+	dac ball2+3
+	lac 14 i
+	dac ball2+4
+	lac ball2+sflg
+	spa
+	jmp 3f
+	lac ball1+x
+	cma
+	tad ball2+x
+	cma
+	lmq
+	gsm
+	dac .+3
+	lacq
+	muls; ..
+	dac 9f+t+3
+	lrss 4
+	sza
+	jmp 3f
+	lac ball1+y
+	cma
+	tad ball2+y
+	cma
+	lmq
+	gsm
+	dac .+3
+	lacq
+	muls; ..
+	tad 9f+t+3
+	lrss 4
+	sza
+	jmp 3f
+	jms ballball
+	jms putball; ball2; 9f+t+1
+3:
+	isz 9f+t+1
+"** 10-36-55.pdf page 6
+	jmp 2b
+4:
+
+	jms putball; ball1; 9f+t
+	isz 9f+t
+	jmp 1b
+
+	lac o400000
+	dac 15 i
+	jmp loop
+t = t+3

scans/p2.s

@@ -0,0 +1,226 @@
+"** 10-36-55.pdf page 7
+" p2
+
+frict: 0
+	las
+	and d1
+	sza
+	jmp frict i
+	lac ball1+vx
+	cll; muls; frfac
+	dac ball1+vx
+	lac ball1+vy
+	cll; muls; frfac
+	dac ball1+vy
+	gsm
+	dac 9f+t
+	lac ball1+vx
+	gsm
+	tad 9f+t
+	tad minvx
+	sma
+	jmp frict i
+	dzm ball1+vx
+	dzm ball1+vy
+	jmp frict i
+t = t+1
+
+ballball: 0
+	llss 15 " x**2+y**2 in q
+	cma
+	tad o300000
+	dac 1f; dac 2f
+	lac ball2+y
+	cma
+	tad ball1+y
+	cma
+	cll; muls; 1:..; llss 6
+	dac sin
+	lac ball2+x
+	cma
+	tad ball1+x
+	cma
+	cll; muls; 2:..; llss 6
+	dac cos
+
+" calculate closing velocities
+
+	lac ball1+vx
+	gsm
+	dac .+3
+	lac cos
+	muls; ..; llss 3
+	dac 9f+t
+	lac ball1+vy
+	gsm
+	dac .+3
+	lac sin
+	muls; ..; llss 3
+	tad 9f+t
+	dac vp1
+
+	lac ball2+vx
+	gsm
+"** 10-36-55.pdf page 8
+	dac .+3
+	lac cos
+	muls; ..; llss 3
+	dac 9f+t
+	lac ball2+vy
+	gsm
+	dac .+3
+	lac sin
+	muls; ..; llss 3
+	tad 9f+t
+	dac vp2
+	cma
+	tad vp1
+	cma
+	sma
+	jmp ballball i
+
+" calculate tangential velocities
+
+	lac ball1+vx
+	gsm
+	dac .+3
+	lac sin
+	muls; ..; llss 3
+	dac 9f+t
+	lac ball1+vy
+	gsm
+	dac .+3
+	lac cos
+	muls; ..; llss 3
+	cma
+	tad 9f+t
+	cma
+	dac vt1
+
+	lac ball2+vx
+	gsm
+	dac .+3
+	lac sin
+	muls; ..; llss 3
+	dac 9f+t
+	lac ball2+vy
+	gsm
+	dac .+3
+	lac cos
+	muls; ..; llss 3
+	cma
+	tad 9f+t
+	cma
+	dac vt2
+
+" recalculate x,y velocities
+" with interchanged closing components
+
+	lac vp2
+	gsm
+	dac .+3
+	lac cos
+	muls; ..; llss 3
+	cma
+	dac 9f+t
+"** 10-36-55.pdf page 9
+	lac vt1
+	gsm
+	dac .+3
+	lac sin
+	muls; ..; llss 3
+	tad 9f+t
+	cma
+	dac ball1+vx
+
+	lac vp2
+	gsm
+	dac .+3
+	lac sin
+	muls; ..; llss 3
+	dac 9f+t
+	lac vt1
+	gsm
+	dac .+3
+	lac cos
+	muls; ..; llss 3
+	tad 9f+t
+	dac ball1+vy
+
+	lac vp1
+	gsm
+	dac .+3
+	lac cos
+	muls; ..; llss 3
+	cma
+	dac 9f+t
+	lac vt2
+	gsm
+	dac .+3
+	lac sin
+	muls; ..; llss 3
+	tad 9f+t
+	cma
+	dac ball2+vx
+
+	lac vp1
+	gsm
+	dac .+3
+	lac sin
+	muls; ..; llss 3
+	dac 9f+t
+	lac vt2
+	gsm
+	dac .+3
+	lac cos
+	muls; ..; llss 3
+	tad 9f+t
+	dac ball2+vy
+
+	jmp ballball i
+t = t+1
+
+dump: 0
+	lac o17
+	sys creat; dmpname
+	spa
+	sys save
+"** 10-36-55.pdf page 10
+	dac waitup
+	sys write; qsin; 1
+	lac waitup
+	sys write; qcos; 1
+	lac nballp
+	cll; mul; bvsize
+	lacq
+	dac 0f
+	lac waitup
+	sys write; list; 0:..
+	lac waitup
+	sys close
+	jmp dump i
+
+restore: 0
+	sys open; dmpname; 0
+	spa
+	sys save
+	dac waitup
+	sys read; qsin; 1
+	lac waitup
+	sys read; qcos; 1
+	lac nballp
+	cll; mul; bvsize
+	lacq
+	dac 0f
+	lac waitup
+	sys read; list; 0:..
+	sad 0b
+	skp 
+	sys save
+	lac waitup
+	sys read; dump; 1
+	sza
+	sys save
+	lac waitup
+	sys close
+	jmp restore i

scans/p3.s

@@ -0,0 +1,149 @@
+"** 10-36-55.pdf page 11
+" p3
+
+rad = 02000
+diam = rad+rad
+diam3 = diam-0200
+middle: 0100000
+high: 0177700-010000
+low: 010000
+ballinit: 0
+	-nball
+	dac 9f+t
+
+" Q ball
+
+	lac middle
+	dac ball1+x
+	lac low
+	dac ball1+y
+	dzm ball1+vx
+	dzm ball1+vy
+	dzm ball1+sflg
+	jms put
+
+" top row
+
+	lac d1
+	dac ball1+sflg
+	lac high
+	dac ball1+y
+	-diam-diam-diam
+	tad ball1+x
+	dac ball1+x
+	jms put
+	jms put
+	jms put
+	jms put
+	jms put
+
+" second row
+
+	-diam3
+	tad ball1+y
+	dac ball1+y
+	-diam-diam-diam
+	tad ball1+x
+	dac ball1+x
+	-diam-rad
+	tad ball1+x
+	dac ball1+x
+	jms put
+	jms put
+	jms put
+	jms put
+
+" third row
+
+	-diam3
+	tad ball1+y
+	dac ball1+y
+	-diam-diam-diam-rad
+	tad ball1+x
+	dac ball1+x
+"** 10-36-55.pdf page 12
+	jms put
+	jms put
+	jms put
+
+" fourth row
+
+	-diam3
+	tad ball1+y
+	dac ball1+y
+	-diam-diam-rad
+	tad ball1+x
+	dac ball1+x
+	jms put
+	jms put
+
+" last row
+
+	-diam3
+	tad ball1+y
+	dac ball1+y
+	-diam-rad
+	tad ball1+x
+	dac ball1+x
+	jms put
+
+	jmp ballinit i
+
+put: 0
+	jms putball; ball1; 9f+t
+	-diam-1
+	cma
+	tad ball1+x
+	dac ball1+x
+	isz 9f+t
+	jmp put i
+	jmp put i
+t = t+1
+
+getball: 0
+	-1
+	tad getball i
+	dac 8
+	isz getball
+	lac getball i
+	dac 9f+t
+	lac nballp
+	tad 9f+t i
+	cll; mul; bvsize
+	lacq
+	tad listpm1
+	dac 9
+	-bvsize
+	dac 9f+t
+1:
+	lac 9 i
+	dac 8 i
+	isz 9f+t
+	jmp 1b
+	isz getball
+	jmp getball i
+
+"** 10-36-55.pdf page 13
+putball: 0
+	-1
+	tad putball i
+	dac 8
+	isz putball
+	lac putball i
+	dac 9f+t
+	lac nballp
+	tad 9f+t i
+	cll; mul; bvsize
+	lacq
+	tad listpm1
+	dac 9
+	-bvsize
+	dac 9f+t
+1:
+	lac 8 i
+	dac 9 i
+	isz 9f+t
+	jmp 1b
+	isz putball
+	jmp putball i
+t = t+1

scans/p4.s

@@ -0,0 +1,202 @@
+"** 10-36-55.pdf page 14
+" p4
+
+stickcont: 0
+
+" display stick
+
+	lac ball1+x
+	lrss 6
+	xor o142000 " setx
+	dac 15 i
+	lac ball1+y
+	lrss 6
+	xor o164000 " sety
+	dac 15 i
+
+	lac qcos
+	lrss 8
+	sma
+	jmp 1f
+	cma
+	tad d1
+	xor o2000 " minus
+1:
+	xor o100000 " vecx hold
+	dac 15 i
+
+	lac qsin
+	lrss 8
+	sma
+	jmp 1f
+	cma
+	tad d1
+	xor o2000 " minus
+1:
+	xor o124000 " vecy vis
+	dac 15 i
+
+" rotation
+
+	lac .pb i
+	rtl
+	sma rar
+	jmp 2f
+
+" coarse rotation
+
+	sma
+	jmp 1f
+	szl
+	jmp 3f
+	jms rotate; mcsin; ccos
+	jmp 3f
+1:
+	snl
+	jmp 3f
+	jms rotate; csin; ccos
+	jmp 3f
+
+" fine rotation
+
+2:
+	sma
+"** 10-36-55.pdf page 15
+	jmp 1f
+	szl
+	jmp 3f
+	jms rotate; mfsin; fcos
+	jmp 3f
+1:
+	snl
+	jmp 3f
+	jms rotate; fsin; fcos
+3:
+
+" strike
+
+	lac .pb i
+	rtl; ral
+	sma ral
+	jmp 1f
+
+	lac qcos
+	dac ball1+vx
+	lac qsin
+	dac ball1+vy
+	jmp stickcont i
+
+1:	sma
+	jmp stickcont i
+	lac qcos
+	lrss 1
+	dac ball1+vx
+	lac qsin
+	lrss 1
+	dac ball1+vy
+	jmp stickcont i
+
+rotate: 0
+	lac rotate i
+	dac 9f+t+1
+	lac 9f+t+1 i
+	dac 9f+t
+	isz rotate
+	lac rotate i
+	dac 9f+t+1
+	lac 9f+t+1 i
+	dac 9f+t+1
+	isz rotate
+
+	lac qsin
+	gsm
+	dac .+3
+	lac 9f+t+1
+	muls; ..; llss 2
+	dac 9f+t+2
+	lac qcos
+	gsm
+	dac .+3
+	lac 9f+t
+	muls; ..; llss 2
+	tad 9f+t+2
+	dac 9f+t+3
+
+	lac qsin
+"** 10-36-55.pdf page 16
+	gsm
+	dac .+3
+	lac 9f+t
+	muls; ..; llss 2
+	cma
+	dac 9f+t+2
+	lac qcos
+	gsm
+	dac .+3
+	lac 9f+t+1
+	muls; ..; llss 2
+	tad 9f+t+2
+	dac qcos
+	lac 9f+t+3
+	dac qsin
+	jmp rotate i
+t = t+4
+
+prad: 02000
+pocketlr: 0
+	lac ball1+sflg
+	sna
+	jmp 2f
+	-1
+	tad prad
+	cma
+	tad bottest
+	tad ball1+y
+	spa
+	jmp 3f
+	lac prad
+	tad toptest
+	tad ball1+y
+	sma
+	jmp 3f
+	-1
+	tad middle
+	cma
+	tad ball1+y
+	sma
+	cma
+	tad prad
+	sma
+	jmp 3f
+2:
+	isz pocketlr
+	jmp pocketlr i
+3:
+	-1
+	dac ball1+sflg
+	jmp pocketlr i
+
+pockettb: 0
+	lac ball1+sflg
+	sna
+	jmp 2f
+	-1
+	tad prad
+	cma
+	tad lefttest
+	tad ball1+x
+"** 10-36-55.pdf page 17
+	spa
+	jmp 3f
+	lac prad
+	tad righttest
+	tad ball1+x
+	sma
+	jmp 3f
+2:
+	isz pockettb
+	jmp pockettb i
+3:
+	-1
+	dac ball1+sflg
+	jmp pockettb i

scans/p5.s

@@ -0,0 +1,156 @@
+"** 10-36-55.pdf page 18
+" p5
+
+frfac = 0774000 " loss in vel to friction
+toptest: 02000+01000-0177700
+bottest: -02000-01000
+righttest: 02000+040400-0177700
+lefttest: -02000-040400
+minvx: -02000 " vel below whitch vel is set zero
+fsin: 0203 " sine of fine rotation angle
+csin: 02534 " sine of coarse rotation angle
+mfsin: -0203 " negative of fsin
+mcsin: -02534 " negative of csin
+fcos: 0177777 " cosine of fine rotation angle
+ccos: 0177761 " cosine of coarse rotation angle
+
+nball = 16
+
+d1: 1
+o17: 017
+o300000: 0300000
+dm1: -1
+o142000: 0142000
+o164000: 0164000
+o400000: 0400000
+o177777: 0177777
+o2000: 02000
+o100000: 0100000
+o124000: 0124000
+qsin: 0177777
+qcos: 0
+dmpname: <pd>;<um>;<p 040; 040040
+nballp: nball
+listpm1: list-1
+
+outline:
+	0065047
+	0140000 0400
+	0164000 04
+	0220414
+	0124000 01000-010-020
+	0225010
+	0221010
+	0124000 0777-010-020
+	0224414
+	0221444
+	0120000 0777-010-020
+	0221404
+	0224454
+	0126000 0777-010-020
+	0221050
+	0225050
+	0126000 01000-010-020
+	0220454
+	0225404
+	0122000 0777-010-020
+	0225444
+noutline = .-outline
+
+circle:
+	0212000
+	0220002
+	0220002
+"** 10-36-55.pdf page 19
+	0224101
+	0220002
+	0224101
+	0224101
+	0224101
+	0224101
+	0224101
+	0224101
+	0224101
+	0224101
+	0224200
+	0224101
+	0224200
+	0224200
+	0224200
+	0224200
+	0224141
+	0224200
+	0224141
+	0224141
+	0224141
+	0224141
+	0224141
+	0224141
+	0224141
+	0224141
+	0220042
+	0224141
+	0220042
+	0220042
+	0220042
+	0220042
+	0220141
+	0220042
+	0220141
+	0220141
+	0220141
+	0220141
+	0220141
+	0220141
+	0220141
+	0220141
+	0220200
+	0220141
+	0220200
+	0220200
+	0220200
+	0220200
+	0220101
+	0220200
+	0220101
+	0220101
+	0220101
+	0220101
+	0220101
+	0220101
+	0220101
+	0220101
+	0220002
+	0220101
+	0220002
+"** 10-36-55.pdf page 20
+	0220002
+	circsize = .-circle
+
+.pb: .=.+1
+.sw: .=.+1
+stime: .=.+1
+waitup: .=.+1
+sin: .=.+1
+cos: .=.+1
+vp1: .=.+1
+vp2: .=.+1
+vt1: .=.+1
+vt2: .=.+1
+displist: .=.+1
+9: .=.+t
+ball1:
+	sflg = .-ball1
+	.=.+1
+	x = .-ball1
+	.=.+1
+	y = .-ball1
+	.=.+1
+	vx = .-ball1
+	.=.+1
+	vy = .-ball1
+	.=.+1
+bvsize = .-ball1
+ball2:
+	.=.+bvsize
+list:

scans/pd.s

@@ -0,0 +1,59 @@
+" ** 11-56-91.pdf page 1
+" pd
+	
+   sys open; dotdot; 0
+   spa; jms error
+   dac df
+   law dir-1
+   dac 8
+1:
+   lac df
+   sys read; tbuf; 8
+   spa; jms error
+   sna
+   jmp 1f
+   lac tbuf
+   sna
+   jmp 1b
+   -8
+   dac c1
+   law tbuf-1
+   dac 9
+2:
+   lac 9 i
+   dac 8 i
+   isz c1
+   jmp 2b
+   jmp 1b
+
+1:
+   lac df
+   sys close
+   law 017
+   sys creat; dotdot
+   spa; jms error
+   dac df
+   law dir-2
+   cma
+   tad 8
+   dac .+4
+   lac df
+   sys write; dir; ..
+   spa; jms error
+   lac df
+   sys close
+   sys exit
+
+error: 0
+   -1
+   tad error
+   hlt
+   sys save
+
+dotdot:
+   056056; 040040; 040040; 040040
+
+c1: .=.+1
+df: .=.+1
+tbuf: .=.+8
+dir:

scans/psych.s

@@ -0,0 +1,304 @@
+" ** 11-56-91.pdf page 2
+" psych
+
+   lac d1
+   sys close
+   lac d13 "pushbuttons
+   sys sysloc
+   dac .pbp
+   tad d1
+   dac .pbp1
+restart:
+   fld; arg1		"[   g = arg1						- scan markup]
+   fst; g		"[   fact = arg2					- scan markup]
+   fld; arg2		"[   d = 1.0						- scan markup]
+   fst; fact		"[   z = 0						- scan markup]
+   fld; fp01		"[   oldx = 0						- scan markup]
+   fst; d		"[   oldy = 0						- scan markup]
+   jms capture		"[loop:							- scan markup]
+   -100			"[   b = z - 110.					- scan markup]
+   dac j		"[      ----------					- scan markup]
+   fld; fp0		"[       radians					- scan markup]
+   fst; z		"[   z = z + g						- scan markup]
+   fst; oldx		"[   g = -g * fact					- scan markup]
+   fst; oldy		"[   fact = 1 / fact					- scan markup]
+   lac o400000		"[   xx = 500. * d * sin(b + pi/2)			- scan markup]
+   dac i 11		"[   ni()						- scan markup]
+   dac i 11		"[   yy = 500. * d * sin(b)				- scan markup]
+   lac setx		"[   ni()						- scan markup]
+   dac i 10		"[   goto loop	" an arrow points up to loop: above	- scan markup]
+   lac sety
+   dac i 10
+
+loop:
+   sys time
+   fld; z
+   fad; fm110
+   fdv; radians
+   fst; b
+   fld; z
+   fad; g
+   fst; z
+   fld; g
+   fng
+   fmp; fact
+   fst; g
+   fld; fp1
+   fdv; fact
+   fst; fact
+   fld; b
+   fad; fpid2
+   sin
+   fmp; d
+   fmp; fp500
+   fst; xx
+   jms in
+   jmp done
+   fld; b
+   sin
+   fmp; d
+   fmp; fp500
+   fst; yy
+   jms in
+   jmp done
+" ** 11-56-91.pdf page 3
+   lac o400000
+   dac i 11
+   dac i 11
+   fld; oldx
+   fng
+   fad; xx
+   fix
+   spa
+   xor o775777
+   tad vecx
+   dac i 10
+   fld; oldy
+   fng
+   fad; yy
+   fix
+   spa
+   xor o775777
+   tad vecy
+   dac i 10
+   fld; xx
+   fst; oldx
+   fld; yy
+   fst; oldy
+   isz j
+   skp
+   jmp done
+   fld; g
+   fdv; fp90000
+   fad; d
+   fst; d
+   jmp loop
+
+done:
+   -1000
+   dac 9f
+   sys time
+   isz 9f
+   jmp .-2
+   skp
+9f:0
+   dzm char
+   lac auto
+   sza
+   jmp doauto
+1:
+   sys time " swap
+   lac i .pbp
+   sna
+   jmp 1b
+   spa ral
+   jmp 1f
+   spa ral
+   jmp 2f
+   spa ral
+   jmp 3f
+   spa ral
+   jmp 4f
+   spa ral
+   jmp 5f
+   spa ral
+   jmp 6f
+" ** 11-56-91.pdf page 4
+   spa ral
+   jmp 7f
+   jms release
+   sys exit
+7:
+   cla
+   sys read; tmp; 1
+   lac tmp
+   sad o141000
+   skp
+   jmp 0f
+   dac auto
+   dzm i .pbp1
+   jmp doauto
+0:
+   sad o12000
+   jmp restart
+   dzm g
+9:
+   cla
+   sys read; char; 1
+   lac char
+   sad o12000
+   jmp 9f
+   lrss 9
+   dac char
+   lac g
+   alss 3
+   tad char
+   tad om60
+   dac g
+   jmp 9b
+9:
+   lac tmp
+   sad o61000
+   jmp 9f
+   lac g
+   dac arg2
+   jmp restart
+9:
+   lac g
+   dac arg1
+   jmp restart
+5:
+   isz fp500
+   nop
+   jmp restart
+6:
+   -1
+   tad fp500
+   dac fp500
+   jmp restart
+4:
+   lac o400000
+   dac char
+3:
+   fld; arg1
+   fmp; fm056
+   lac char
+   spa
+   fng
+" ** 11-56-91.pdf page 5
+   fad; arg1
+   fst; arg1
+   jmp restart
+2:
+   lac o400000
+   dac char
+1:
+   fld; arg2
+   fmp; fm056
+   lac char
+   spa
+   fng
+   fad; arg2
+   fst; arg2
+   jmp restart
+
+doauto:
+   lac i .pbp1
+   sma
+   jmp 1f
+   dzm auto
+   jmp done
+1:
+   sys time
+   omq
+   tad 0
+   tad stick
+   cll
+   mul
+   78625
+   lls 9
+   dac stick
+   dzm aexp
+   and o177777
+   xor o200000
+   dac ams
+   fad; fmhalf
+   fmp; fp128
+   lac stick
+   and d1
+   sna
+   jmp 1f
+   fst; arg1
+   jmp restart
+1:
+   fst; arg2
+   jmp restart
+
+in: 0
+   fix
+   tad d500
+   spa
+   jmp i in
+   tad dm1000
+   spa
+   isz in
+   jmp i in
+
+capture: 0
+   law buf-1
+   dac 10
+" ** 11-56-91.pdf page 6
+   dac 11
+   lac o400000
+   dac i 11
+   law buf
+   sys capt
+   jmp i capture
+
+release: 0
+   sys rele
+   jmp i release
+
+char: 0
+stick: 0
+xx: 0; 0; 0
+oldx: 0; 0; 0
+yy: 0; 0; 0
+oldy: 0;0 0; 0
+j: 0
+auto: 0
+
+setx: 0142000 +512
+sety: 0146000 +512
+vecx: 0100000
+vecy: 0124000
+o775777: 0775777
+o177777: 0177777
+o12000: 012000
+o61000: 061000
+om60: -060
+d13: 13
+d500: 500
+o141000: 0141000
+fp128:8; 0240000; 0
+fmhalf: 0; 0600000; 0
+dm1000: -1000
+
+fact: 0;0;0
+g: 0;0;0
+z: 0;0;0
+b: 0;0;0
+d: 0;0;0
+
+radians: 6;0345136;0
+fm110: 7;0734000;0
+arg1: 7;0234167;0
+arg2: 1;0275531;0
+fp0: 0;0;0
+fp01: -6;0243656;0
+fm056: -4;0745301;0
+fp500: 11;0372000;0
+fp90000: 021;0257620;0
+   .pbp: .=.+1
+   .pbp1: 0
+buf:

scans/rm.s

@@ -0,0 +1,33 @@
+" ** 11-56-91.pdf page 7
+" rm
+
+   lac 017777
+   tad d1
+   dac 2f
+1:
+   lac 017777 i
+   sad d4
+   sys exit
+   tad dm4
+   dac 017777 i
+   lac 2f
+   tad d4
+   dac 2f
+   sys unlink; 2: 0
+   sma
+   jmp 1b
+   lac 2b
+   dac 2f
+   lac d1
+   sys write; 2: 0; 4
+   lac d1
+   sys write; 1f; 2f-1f
+   jmp 1b
+1:
+   040077;012000
+2:
+
+d1: 1
+d4: 4
+dm4: -4
+

scans/rn.s

@@ -0,0 +1,54 @@
+" ** 11-56-91.pdf page 8
+" rn
+
+   lac 017777
+   tad d1
+   dac name2
+loop:	
+   lac 017777 i
+   sad d4
+   sys exit
+   sad d8
+   jmp unbal
+   tad dm8
+   dac 017777 i
+   lac name2
+   tad d4
+   dac name1
+   tad d4
+   dac name2
+   sys unlink; name2: 0
+   lac name2
+   dac 1f
+   sys rename; name1: 0; 1: 0
+   sma
+   jmp loop
+   lac name1
+   dac 1f
+   lac d1
+   sys write; 1: 0; 4
+   lac d1
+   sys write; mes; 1
+   lac name2
+   dac 1f
+   lac d1
+   sys write; 1: 0; 4
+   lac d1
+   sys write; mes; 2
+   jmp loop
+mes:
+   040000;077012
+unbal:
+   lac name2
+   tad d4
+   dac 1f
+   lac d1
+   sys write; 1: 0; 4
+   lac d1
+   sys write; mes; 2
+   sys exit
+
+d1: 1
+d4: 4
+d8: 8
+dm8: -8

scans/roff.s

@@ -0,0 +1,947 @@
+" ** 11-56-91.pdf page 9
+" roff
+
+   lac i 017777
+   sad d4
+   sys exit
+   lac 017777
+   tad d1
+   dac fname
+   jms nextfile
+   lac obufp
+   dac otal
+
+" main i/o loop
+1:
+   jms readline
+   jmp 3f
+   lac rawchar
+   sad cc
+   jmp 2f
+   jms text
+   jmp 1b
+2:
+   jms control
+   jmp 1b
+3:
+   jms break
+   jms eject
+   lac otal
+   sma
+   jmp 1f
+   cla
+   jms putsc; otal
+1:
+   -1
+   tad obufp
+   cma
+   tad otal
+   dac 1f
+   lac output
+   sys write; obuf; 1: 0
+   sys exit
+
+" read line routine
+readline: 0
+   law rawchar-1
+   dac 8
+1:
+   jms getchar
+   dac i 8
+   sad o12
+   skp
+   jmp 1b
+   isz readline
+   jmp i readline
+
+" read character routine
+getchar: 0
+   lac ital
+   sad eibufp
+   skp
+   jmp 1f
+   -64
+" ** 11-56-91.pdf page 10
+   dac 3f
+   law ibuf-1
+   dac 15
+2:
+   dzm i 15
+   isz 3f
+   jmp 2b
+   lac input
+   sys read; ibuf; 64
+   sna
+   jms nextfile
+   lac ibufp
+   dac ital
+1:
+   jms getsc; ital
+   sza
+   jmp i getchar
+   jmp getchar+1
+3: 0
+
+putchar: 0
+   jms putsc; otal
+   lac otal
+   sad eobufp
+   skp
+   jmp i putchar
+   lac output
+   sys write; obuf; 64
+   lac obufp
+   dac otal
+   jmp i putchar
+
+laci: 0
+   dac 1f
+   lac i 1f
+   jmp i laci
+1: 0
+
+nextfile: 0
+   lac i 017777
+   sad d4
+   jmp i readline
+   tad dm4
+   dac i 017777
+   lac fname
+   tad d4
+   dac fname
+   lac input
+   sys close
+   sys open; fname: 0; 0
+   sma
+   jmp 1f
+   lac fname
+   dac 2f
+   lac d1
+   sys write; 2: 0; 4
+   lac d1
+   sys write; 2f; 2
+   sys exit
+2: 040077;012
+1:
+" ** 11-56-91.pdf page 11
+   dac input
+   lac eibufp
+   dac ital
+   jmp i nextfile
+
+getsc: 0
+lac i getsc
+dac sctalp
+isz getsc
+lac i sctalp
+dac sctal
+add o400000
+dac i sctalp
+ral
+lac i sctal
+szl
+lrss 9
+and o177
+jmp i getsc
+
+putsc: 0
+and o177
+lmq
+lac i putsc
+dac sctalp
+isz putsc
+lac i sctalp
+dac sctal
+add o400000
+dac i sctalp
+sma cla
+jmp 1f
+llss 27
+dac i sctal
+lrss 9
+jmp i putsc
+1:
+lac i sctal
+omq
+dac i sctal
+lacq
+jmp i putsc
+
+" control card decoder
+control: 0
+   law 2f-1
+   dac 8
+   -ncase
+   dac c
+   lac rawchar+1
+   alss 9
+   xor rawchar+2
+1:
+   sad i 8
+   jmp i 8
+   isz 8
+   isz c
+   jmp 1b
+   jmp i control
+2:
+   ncase = 0
+" ** 11-56-91.pdf page 12
+   <ad>; jmp casead; ncase = ncase+1
+   <bp>; jmp casebp; ncase = ncase+1
+   <br>; jmp casebr; ncase = ncase+1
+   <cc>; jmp casecc; ncase = ncase+1
+   <ce>; jmp casece; ncase = ncase+1
+   <ds>; jmp caseds; ncase = ncase+1
+   <fi>; jmp casefi; ncase = ncase+1
+   <in>; jmp casein; ncase = ncase+1
+   <li>; jmp caseli; ncase = ncase+1
+   <ll>; jmp casell; ncase = ncase+1
+   <ls>; jmp casels; ncase = ncase+1
+   <na>; jmp casena; ncase = ncase+1
+   <ne>; jmp casene; ncase = ncase+1
+   <nf>; jmp casenf; ncase = ncase+1
+   <pl>; jmp casepl; ncase = ncase+1
+   <sp>; jmp casesp; ncase = ncase+1
+   <ss>; jmp casess; ncase = ncase+1
+   <ti>; jmp caseti; ncase = ncase+1
+   <ul>; jmp caseul; ncase = ncase+1
+   <un>; jmp caseun; ncase = ncase+1
+
+" control cases
+casead:
+   jms break
+   -1
+   dac ad
+   jmp i control
+
+casebp:
+   jms break
+   jms eject
+   jmp i control
+
+casebr:
+   jms break
+   jmp i control
+
+casecc:
+   jms skipcont
+   lac i 8
+   sad o12
+   jmp i control
+   dac cc
+   jmp i control
+
+casece:
+   jms break
+   jms number; d0
+   spa
+   cla
+   dac ce
+   jms need; ce
+   jmp i control
+
+caseds:
+   jms break
+   lac d2
+   dac ls
+   jmp i control
+
+casefi:
+" ** 11-56-91.pdf page 13
+   jms break
+   -1
+   dac fi
+   jmp i control
+
+casein:
+   jms number; in
+   cma
+   tad d1
+   sma
+   cla
+   dac in
+   dac un
+   jmp i control
+
+caseli:
+   jms number; d0
+   cma
+   tad d1
+   sma
+   jmp i control
+   dac 2f
+1:
+   jms readline
+   jmp i control
+   jms text
+   isz 2f
+   jmp 1b
+   jmp i control
+2: 0
+
+casell:
+   jms number; ll
+   spa
+   cla
+   dac ll
+   jmp i control
+
+casels:
+   jms number; d0
+   sza; spa
+   lac d1
+   dac ls
+   jmp i control
+
+casena:
+   jms break
+   dzm ad
+   jmp i control
+
+casene:
+   jms number; d0
+   spa
+   cla
+   dac c
+   jms need; c
+   jmp i control
+
+casenf:
+   jms break
+   dzm fi
+" ** 11-56-91.pdf page 14
+   jmp i control
+
+casepl:
+   jms number; pl
+   spa
+   cla
+   dac pl
+   jms topbot
+   jmp i control
+
+casesp:
+   jms break
+   jms number; d0
+   cma
+   tad d1
+   sma
+   jmp i control
+   dac c
+1:
+   jms nline
+   isz c
+   jmp 1b
+   jmp i control
+
+casess:
+   jms break
+   lac d1
+   dac ls
+   jmp i control
+
+caseti:
+   jms break
+   jms number; in
+   spa
+   cla
+   dac un
+   jmp i control
+
+caseul:
+   jms number; d0
+   spa
+   cla
+   dac ul
+   jmp i control
+
+caseun:
+   jms number; d0
+   tad in
+   sma
+   cla
+   dac un
+   jmp i control
+
+" selected short routines
+skipcont: 0
+   law rawchar-1
+   dac 8
+1:
+   lac i 8
+   sad o40
+   jmp 1f
+" ** 11-56-91.pdf page 15
+   sad o12
+   jmp 2f
+   jmp 1b
+1:
+   lac i 8
+   sad o12
+   jmp 2f
+   sad o40
+   jmp 1b
+2:
+   -1
+   tad 8
+   dac 8
+   jmp i skipcont
+
+break: 0
+   lac nc
+   sna
+   jmp i break
+   -2
+   tad ls
+   cma
+   sma
+   jmp 2f
+   dac c
+1:
+   jms nline
+   isz c
+   jmp 1b
+2:
+   lac nl
+   sad bl
+   jms eject
+   lac nl
+   sza
+   jmp 2f
+   -5
+   dac c
+1:
+   lac o55
+   jms putchar
+   isz c
+   jmp 1b
+   lac ma1
+   dac c
+1:
+   jms newline
+   isz c
+   jmp 1b
+2:
+   law char-1
+   dac 8
+   lac un
+   sma
+   jmp 1f
+   dac c
+2:
+   lac o40
+   jms putchar
+   isz c
+   jmp 2b
+" ** 11-56-91.pdf page 16
+1:
+   lac i 8
+   jms putchar
+   isz nc
+   jmp 1b
+   jms newline
+   dzm nwd
+   dzm ne
+   lac in
+   dac un
+   jmp i break
+
+newline: 0
+   lac o12
+   jms putchar
+   isz nl
+   jmp i newline
+
+nline: 0
+   lac nl
+   sna
+   jmp i nline
+   sad bl
+   jmp i nline
+   jms newline
+   jmp i nline
+
+number: 0
+   dzm num
+   dzm sign
+   -1
+   dac any
+   jms skipcont
+1:
+   lac i 8
+   sad o12
+   jmp 3f
+   sad o53
+   jmp 2f
+   sad o55
+   jmp 2f
+   tad om72
+   sma
+   jmp 1b
+   tad o12
+   spa
+   jmp 1b
+   dac any
+   lac num
+   cll; mul; 10
+   lacq
+   tad any
+   dac num
+   jmp 1b
+2:
+   dac sign
+   jmp 1b
+3:
+   lac any
+   sma
+   jmp 1f
+" ** 11-56-91.pdf page 17
+   lac d1
+   isz number
+   jmp i number
+1:
+   lac sign
+   sza
+   jmp 1f
+   lac num
+   isz number
+   jmp i number
+1:
+   sad o53
+   jmp 1f
+   lac i number
+   jms laci
+   cma
+   tad num
+   cma
+   isz number
+   jmp i number
+1:
+   lac i number
+   jms laci
+   tad num
+   isz number
+   jmp i number
+
+eject: 0
+   lac pl
+   sna
+   jmp i eject
+   lac nl
+   sna
+   jmp i eject
+1:
+   sad pl
+   jmp 1f
+   jms newline
+   lac nl
+   jmp 1b
+1:
+   dzm nl
+   jmp i eject
+
+storechar: 0
+   lmq
+   lac nc
+   sza
+   jmp 1f
+   law char-1
+   dac 10
+1:
+   lacq
+   dac i 10
+   jms width
+   cma
+   tad d1
+   tad ne
+   dac ne
+   -1
+   tad nc
+" ** 11-56-91.pdf page 18
+   dac nc
+   jmp i storechar
+
+getword: 0
+   law word-1
+   dac 8
+		" *** hand written box/arrow to move after 1:
+   dzm wne
+   dzm wch
+1:
+   lac i 11
+   sad o12
+   jmp i getword
+2:
+   dac i 8
+   lmq
+   jms width
+   cma
+   tad d1
+   tad wne
+   dac wne
+   -1
+   tad wch
+   dac wch
+   lacq
+   sad o40
+   jmp 1b
+   lac word
+   sad o40
+   jmp 1f
+   lac o40
+   dac word
+   lacq
+   jmp 2b
+1:
+   lac i 11
+   sad o12
+   jmp 1f
+   sad o40
+   jmp 1f
+   dac i 8
+   jms width
+   cma
+   tad d1
+   tad wne
+   dac wne
+   -1
+   tad wch
+   dac wch
+   jmp 1b
+1:
+   -1
+   tad 11
+   dac 11
+   isz getword
+   jmp i getword
+
+need: 0
+   lac ls
+   dac 1f
+   lac i need
+   jms laci
+" ** 11-56-91.pdf page 19
+   cll; mul; 1: 0
+   lacq
+   tad nl
+   cma
+   tad bl
+   spa
+   jms eject
+   isz need
+   jmp i need
+
+" text line routine
+text: 0
+   -1
+   tad ul
+   sma
+   jms undline
+   -1
+   tad ce
+   sma
+   jms center
+   law rawchar-1
+   dac 11
+   lac rawchar
+   sad o12
+   jmp 1f-1
+   sad o40
+   jmp 1f-1
+   lac fi
+   sza
+   jmp 2f
+   skp
+   jms break
+1:
+   lac i 11
+   sad o12
+   jmp 1f
+   jms storechar
+   jmp 1b
+1:
+   lac nc
+   sna
+   jms nline
+   jms break
+   jmp i text
+2:
+   jms getword; jmp i text
+   lac wne
+   tad ne
+   tad un
+   tad ll
+   spa
+   jms adjust
+   law word-1
+   dac 8
+   lac nwd
+   sza
+   jmp 3f
+1:
+   lac i 8
+   sad o40
+   skp
+" ** 11-56-91.pdf page 20
+   jmp 3f+1
+   isz wch
+   jmp 1b
+3:
+   lac i 8
+   jms storechar
+   isz wch
+   jmp 3b
+   isz nwd
+   jmp 2b
+
+" adjust routine
+adjust: 0
+   lac nwd
+   sna
+   jmp i adjust
+   law char-1
+   dac 8
+   law tchar-1
+   dac 9
+   dzm ndiv
+   dzm nrem
+   lac ad
+   sna
+   jmp 1f
+   -1
+   tad nwd
+   sna
+   jmp 1f
+   dac 2f
+   lac ll
+   tad ne
+   tad un
+   spa
+   jmp 1f
+   cll; idiv; 2: 0
+   dac nrem
+   lacq
+   dac ndiv
+1:
+   lac i 8
+   sad o40
+   jms fill
+   dac i 9
+   isz nc
+   jmp 1b
+   lac o12
+   dac i 9
+   law tchar-1
+   dac 8
+2:
+   lac i 8
+   sad o12
+   jmp 2f
+   jms storechar
+   jmp 2b
+2:
+   jms break
+   jmp i adjust
+
+fill: 0
+" ** 11-56-91.pdf page 21
+   lac nrem
+   sna
+   jmp 2f
+   tad dm1
+   dac nrem
+   lac d1
+2:
+   tad ndiv
+   cma
+   dac c
+   lac o40
+2:
+   dac i 9
+   isz c
+   jmp 2b
+2:
+   isz nc
+   lac i 8
+   sad o40
+   skp
+   jmp i fill
+   dac i 9
+   jmp 2b
+
+" more routines
+topbot: 0
+   lac pl
+   sza
+   jmp 1f
+   dzm bl
+   jmp i topbot
+1:
+   -11
+   tad pl
+   spa
+   jmp 1f
+   dac bl
+   cma
+   tad d1
+   tad nl
+   spa
+   jmp i topbot
+   lac bl
+   dac nl
+   jmp i topbot
+1:
+   lac d55
+   dac bl
+   dac nl
+   tad d11
+   dac pl
+   jmp i topbot
+
+undline: 0
+   dac ul
+   law rawchar-1
+   dac 8
+   law tchar-1
+   dac 9
+1:
+   lac i 8
+" ** 11-56-91.pdf page 22
+   dac i 9
+   sad o12
+   jmp 1f
+   sad o40
+   jmp 1b
+   lac o10
+   dac i 9
+   lac o137
+   dac i 9
+   jmp 1b
+1:
+   law tchar-1
+   dac 8
+   law rawchar-1
+   dac 9
+1:
+   lac i 8
+   dac i 9
+   sad o12
+   jmp i undline
+   jmp 1b
+
+center: 0
+   dac ce
+   law rawchar-1
+   dac 8
+   law tchar-1
+   dac 9
+   dzm wne
+1:
+   lac i 8
+   dac i 9
+   sad o12
+   jmp 1f
+   jms width
+   tad wne
+   dac wne
+   jmp 1b
+1:
+   -1
+   tad wne
+   spa
+   jmp i center
+   cma
+   tad ll
+   tad in
+   lrss 1
+   cma
+   tad d1
+   sma
+   -1
+   dac c
+   law tchar-1
+   dac 8
+   law rawchar-1
+   dac 9
+   lac o40
+1:
+   dac i 9
+   isz c
+   jmp 1b
+" ** 11-56-91.pdf page 23
+1:
+   lac i 8
+   dac i 9
+   sad o12
+   jmp i center
+   jmp 1b
+
+width: 0
+   sad o10
+   jmp 1f
+   lac d1
+   jmp i width
+1:
+   -1
+   jmp i width
+
+eibufp: ibuf+64
+ibufp: ibuf
+eobufp: obuf+64
+obufp: obuf
+input: 0
+output: 1
+ls: 1
+ce: 0
+in: 0
+un: 0
+ul: 0
+ma1: -5
+bl: 55
+ll: 50
+nwd: 0
+nl: 0
+nc: 0
+ne: 0
+pl: 66
+ad: -1
+fi: -1
+cc: .>
+
+o12: 012
+o40: 040
+o177: 0177
+o53: 053
+om72: -072
+o55: 055
+o400000: 0400000
+o10: 010
+d11: 11
+d55: 55
+o137: 0137
+d1: 1
+d2: 2
+d4: 4
+dm4: -4
+d0: 0
+dm1: -1
+
+c: .=.+1
+nrem: .=.+1
+ndiv: .=.+1
+num: .=.+1
+" ** 11-56-91.pdf page 24
+any: .=.+1
+ital: .=.+1
+otal: .=.+1
+sctal: .=.+1
+sctalp: .=.+1
+sign: .=.+1
+wch: .=.+1
+wne: .=.+1
+word: .=.+300
+char: .=.+300
+tchar: .=.+300
+rawchar: .=.+300
+ibuf: .=.+64
+obuf: .=.+64

scans/s2.s

@@ -116,7 +116,7 @@
    lac u.base
    jms iget
    lac ii
-   dzm d.i
+   dac d.i
    jms copy; name; d.name; 4
    lac i.uniq
    dac d.uniq
@@ -134,7 +134,7 @@
    lac d1
    dac mode
    jms access
-   dac d.i
+   dzm d.i
    jms dput
    lac u.base
    jms iget
@@ -166,6 +166,7 @@
    dac mode
    jms access
    jms copy; 1:0; d.name; 4
+   jms dput
    jmp okexit
 
 .time:

scans/s3.s

@@ -70,7 +70,7 @@ lookfor: 0
    isz u.rq+8
    dzm u.intflg
    jmp sysexit
-t= t+1
+t = t+1
 
 badcal:
    clon
@@ -258,6 +258,10 @@ rkbdi:
    sad o134
    skp
    jmp 2f
+   lacq
+   xor o40
+   lmq
+   jmp 2f
 1:
    lacq
    xor o20
@@ -291,7 +295,6 @@ wdspo:
    jms swap
    jmp wdspo
 
-
 rppti:
    lac d4
    jms getchar

scans/s6.s

@@ -317,7 +317,7 @@ cskp:
       lac 9f+t+3
       jms dskwr
    4:
-"** 01-s1.pdf page 38
+"** 01-s1.pdf page 39
       lac 9f+t+2
       jmp iread i
 3:

scans/s7.s

@@ -92,9 +92,9 @@ dsprestart:
    dac .dsptm
    jmp piret
 
-1: sna ral
+1: sma ral
    jmp .+3
-   dpcf
+   raef
    jmp piret
    sma
    jmp 1f

scans/s8.s

@@ -95,7 +95,7 @@ dm1: -1
 
 9: .=.+t
 c1: .=.+1
-q1: q2;q2+90  "** ?? 98 ??
+q1: q2;q2+98
    .=.+14
 q2:
    .+2;0;.+2;0;.+2;0;.+2;0;.+2;0;.+2;0;.+2;0;.+2;0;.+2;0;.+2;0
@@ -107,7 +107,7 @@ dsploc: .=.+1
 dsplno: .=.+1
 dspbuf:
    0065057;0147740;0160000
-   .=.+30
+   . = . + 30
 coldentry:
    dzm 0100 " not re-entrant
    caf
@@ -178,7 +178,7 @@ ulist:
 userdata:
    u.ac: 0
    u.mq: 0
-   u.rq: .=.+9
+   u.rg: .=.+9
    u.uid: -1
    u.pid: 1
    u.cdir: 3
@@ -200,7 +200,7 @@ inode:
    i.nlks: .=.+1
    i.size: .=.+1
    i.uniq: .=.+1
-      .= inode+12
+      . = inode+12
 di: .=.+1
 dnode:
    d.i: .=.+1

scans/salv.s

@@ -0,0 +1,302 @@
+" ** 11-56-91.pdf page 25
+" salv
+
+   lac d1
+   sys sysloc
+   dac iget
+
+   lac d2
+   sys sysloc
+   dac inode
+
+   lac d4
+   sys sysloc
+   dac nxfblk
+   tad d1
+   dac nfblks
+   tad d1
+   dac fblks
+
+   lac d5
+   sys sysloc
+   dac copy
+
+   lac d6
+   sys sysloc
+   dac copyz
+
+   lac d7
+   sys sysloc
+   dac betwen
+
+   lac d8
+   sys sysloc
+   dac dskrd
+
+   lac d10
+   sys sysloc
+   dac dskbuf
+
+   lac d15
+   sys sysloc
+   dac free
+
+      dzm indircnt
+      dzm icnt
+      dzm licnt
+      dzm blcnt
+      dzm curi
+      jms copyz i; usetab; 500
+
+iloop:
+   isz curi
+   -3400
+   tad curi
+   sma
+   jmp part2
+   lac curi
+   jms iget i
+   jms copy i; inode: 0; linode; 12
+   lac iflags
+   sma
+   jmp iloop
+   isz icnt
+
+" ** 11-56-91.pdf page 26
+
+   lac iflags
+   and o40
+   sza
+   jmp iloop
+   law idskps
+   dac t1
+   -7
+   dac t2
+1:
+   lac i t1
+   sza
+   jms dupcheck
+   isz t1
+   isz t2
+   jmp 1b
+   lac iflags
+   and o200000
+   sna
+   jmp iloop
+
+   isz licnt
+   law idskps
+   dac t1
+   -7
+   dac t2
+1:
+   lac i t1
+   sna
+   jmp 3f
+   jms dskrd i
+   jms copy i; dskbuf: 0; ldskbuf; 64
+   isz indircnt
+   law ldskbuf
+   dac t3
+   -64
+   dac t4
+2:
+   lac i t3
+   sza
+   jms dupcheck
+   isz t3
+   isz t4
+   jmp 2b
+3:
+   isz t1
+   isz t2
+   jmp 1b
+   jmp iloop
+
+dupcheck: 0
+   isz blcnt
+   jms betwen i; d709; d6400
+   jmp badadr
+   dac t5
+   lrss 4
+   tad usetabp
+   dac t6
+   cla
+   llss 4
+   tad alsscom
+   dac 2f
+
+" ** 11-56-91.pdf page 27
+
+      lac d1
+2: alss 0
+      dac bit
+      lac i t6
+      and bit
+      sza
+      jmp dup
+      lac i t6
+      xor bit
+      dac i t6
+      jmp i dupcheck
+
+badadr:
+      jms print
+      lac d1
+      sys write; badmes; 3
+      jmp i dupcheck
+badmes:
+      < b>;<ad>;<r 012
+
+dup:
+      lac t5
+      jms print
+      lac d1
+      sys write; dupmes; 3
+      jmp i dupcheck
+dupmes:
+      < d>;<up>;<a 012
+
+print: 0
+      lmq
+      law prbuf-1
+      dac 8
+      -6
+      dac t6
+1:
+      cla
+      llss 3
+      tad o60
+      dac i 8
+      isz t6
+      jmp 1b
+      lac d1
+      sys write; prbuf; 6
+      jmp i print
+
+part2:
+      lac icnt
+      jms print
+      lac d1
+      sys write; m3; m3s
+      lac licnt
+      jms print
+      lac d1
+      sys write; m4; m4s
+      lac indircnt
+      jms print
+      lac d1
+      sys write; m5; m5s
+      lac blcnt
+      jms print
+
+" ** 11-56-91.pdf page 28
+
+      lac d1
+      sys write; m6; m6s
+      dzm blcnt
+      dzm nxfblk i
+      dzm nfblks i
+
+      lac d709
+      dac t1
+1:
+      isz t1
+      lac t1
+      sad d6400
+      jmp part3
+      lrss 4
+      tad usetabp
+      dac t2
+      cla
+      llss 4
+      tad alsscom
+      dac 2f
+      lac d1
+2: alss 0
+      dac bit
+      lac i t2
+      and bit
+      sza
+      jmp 1b
+      lac t1
+      jms free i
+      isz blcnt
+      jmp 1b
+
+part3:
+      lac blcnt
+      jms print
+      lac d1
+      sys write; m7; m7s
+      sys exit
+
+d1: 1
+d2: 2
+d4: 4
+d5: 5
+d6: 6
+d7: 7
+d8: 8
+d10: 10
+d15: 15
+o60: 060
+o400000: 0400000
+o400001: 0400001
+o40: 040
+o200000: 0200000
+alsscom: alss 0
+d709: 709
+d6400: 6400
+
+m3:
+      040;<fi>;<le>;<s 012
+   m3s = .-m3
+m4:
+" ** 11-56-91.pdf page 29
+      040;<la>;<rg>;<e 012
+   m4s = .-m4
+m5:
+      040;<in>;<di>;<r 012
+   m5s = .-m5
+m6:
+      040;<us>;<ed>;012
+   m6s = .-m6
+m7:
+      040;<fr>;<ee>;012
+   m7s = .-m7
+m8:
+      040;<mi>;<ss>;<in>;<g 012
+   m8s = .-m8
+
+usetabp: usetab
+curi: 0
+bit: 0
+blcnt: 0
+indircnt: 0
+icnt: 0
+licnt: 0
+t1: 0
+t2: 0
+t3: 0
+t4: 0
+t5: 0
+t6: 0
+
+iget: 0
+nxfblk: 0
+nfblks: 0
+fblks: 0
+copy: 0
+copyz: 0
+betwen: 0
+dskrd: 0
+free: 0
+
+
+ldskbuf: .=.+64
+linode: .=.+12
+  iflags = linode
+  idskps = iflags+1
+usetab: .=.+500
+prbuf: .=.+6

scans/scope.cas

@@ -1,5 +1,4 @@
-r
+"** 03-scope.pdf page 3
-
 :la
 x
 fb
@@ -62,6 +61,7 @@ ak
 v
 nk
 x
+"** 03-scope.pdf page 4
 gk
 v
 eh
@@ -77,11 +77,17 @@ r
 
 :le
 x
-me
+lk
 v
-ce
+mh
-ag
+me
-ak
+kb
+gb
+ee
+eh
+gk
+ik
+ib
 x
 mn
 r
@@ -117,6 +123,7 @@ le
 lh
 jk
 x
+"** 03-scope.pdf page 5
 mn
 r
 
@@ -178,6 +185,7 @@ mn
 r
 
 :lk
+"** 03-scope.pdf page 6
 x
 cb
 v
@@ -239,6 +247,7 @@ hb
 v
 ff
 fh
+"** 03-scope.pdf page 7
 hk
 nk
 x
@@ -300,6 +309,7 @@ x
 mn
 r
 
+"** 03-scope.pdf page 8
 :lr
 x
 md
@@ -361,6 +371,7 @@ ki
 ci
 x
 mk
+"** 03-scope.pdf page 9
 v
 ki
 x
@@ -422,11 +433,13 @@ dc
 v
 di
 mb
+"** 03-scope.pdf page 10
 mj
 x
 mn
 r
 
+"** 03-scope.pdf page 11
 :space
 x
 mn
@@ -489,6 +502,7 @@ v
 bd
 db
 eb
+"** 03-scope.pdf page 12
 gd
 gh
 ij
@@ -550,6 +564,7 @@ v
 gk
 x
 dd
+"** 03-scope.pdf page 13
 v
 ki
 x
@@ -611,6 +626,7 @@ ak
 x
 v
 bj
+"** 03-scope.pdf page 14
 x
 mn
 r
@@ -627,6 +643,7 @@ r
 :colon
 x
 le
+v
 lf
 mf
 me
@@ -646,7 +663,7 @@ r
 x
 mf
 v
-mo
+mg
 oe
 mf
 x
@@ -654,6 +671,7 @@ ff
 v
 fg
 gg
+ge
 fe
 x
 mn
@@ -670,6 +688,7 @@ mn
 r
 
 :great
+"** 03-scope.pdf page 15
 x
 cb
 v
@@ -731,6 +750,7 @@ r
 :cmflx
 x
 bc
+"** 03-scope.pdf page 16
 v
 af
 bj
@@ -763,7 +783,7 @@ x
 mn
 r
 
-Llbr
+:lbr
 x
 ai
 v
@@ -792,6 +812,7 @@ mn
 r
 
 :or
+"** 03-scope.pdf page 17
 x
 af
 v
@@ -853,9 +874,8 @@ kc
 ld
 mf
 lh
+"** 03-scope.pdf page 18
 ik
 x
 mn
 r
-
-

scans/sh.s

@@ -0,0 +1,425 @@
+" ** 11-56-91.pdf page 30
+" sh
+
+clear:
+   jmp shell
+
+1:
+   dzm i 8
+   isz clear
+   jmp 1b
+   lacq
+   jmp 017771
+zerop: .-1
+
+comerr:
+   lac d1
+   sys write; errmes; 1
+
+
+shell:
+   lac d1
+   sys write; ready; 1
+shell1:
+   lac delim
+   sad newln
+   jms rline
+   jms getcom
+   lac narg
+   sna
+   jmp comretrn
+   lac args
+   sad chcom
+   skp
+   jmp 3f
+   lac args+1
+   sad spsp
+   jmp doch
+3:
+   sys fork
+      skp
+      jmp loadcom
+   spa
+   jmp comerr
+   lmq
+   lac delim
+   sad amper
+   jmp shell1
+   lacq			" hand written: send
+   clq			" "done" (crossed out)
+   sys smes		" mesg to child
+comretrn:
+   lac delim
+   sad newln
+   jmp shell
+   jmp shell1
+
+
+loadcom:
+   sys open; args; 0
+   sma
+   jmp 1f
+   sys link; system; args; args
+   spa
+" ** 11-56-91.pdf page 31
+   jmp 2f
+   -1
+   dac lnkflg
+   jmp loadcom
+
+2:
+   lac lnkflg
+   sna
+   jmp 3f
+   sys unlink; args
+3:
+   lac d1
+   sys write; args; 4
+   lac d1
+   sys write; errmes; 1
+   sys exit
+
+1:
+   lac lnkflg
+   sna
+   jmp 1f
+   sys unlink; args
+1:
+   lac in
+   sna
+   jmp 2f
+   cla
+   sys close
+   sys open; in; 0
+   sma
+   jmp 2f
+   lac d1
+   sys write; in; 4
+   lac d1
+   sys write; errmes; 1
+   sys exit
+2:
+   lac out
+   sna
+   jmp 1f
+   lac d1
+   sys close
+   lac o17
+   sys creat; out
+   spa
+   sys exit
+1:
+   lac narg
+   cma
+   dac t1
+   tad o17771
+   dac 017777
+   tad dm1
+   dac 8
+   and o7777
+   dac boot+2
+   cma
+   tad d7
+   dac clear
+   lac nargp
+   dac 9
+" ** 11-56-91.pdf page 32
+2:
+   lac i 9
+   dac i 8
+   isz t1
+   jmp 2b
+   lac bootp
+   dac 9
+   -6
+   dac t1
+2:
+   lac i 9
+   dac i 8
+   isz t1
+   jmp 2b
+   lac d2
+   lmq
+   lac zerop
+   dac 8
+   jmp clear+1
+
+boot:
+   sys read; 4096; ..
+   lacq
+   sys close
+   jmp 4096
+
+getcom: 0
+   law args-1
+   dac 10
+   dzm in
+   dzm out
+   dzm narg
+   dzm lnkflg
+
+   jms get
+nparm:
+   sad gr
+   jmp cgr
+   sad ls
+   jmp cls
+   sad amper
+   jmp endcom
+   sad semic
+   jmp endcom
+   sad newln
+   jmp endcom
+   sad space
+   jmp nparm-1
+   lmq
+   lac narg
+   tad d4
+   dac narg
+   lacq
+   jms getparm
+   jmp nparm
+
+endcom:
+   dac delim
+   jmp getcom i
+
+cls:
+" ** 11-56-91.pdf page 33
+   jms get
+   jms getparm
+   dac t1
+   law in-1
+   jmp cpio
+cgr:
+   jms get
+   jms getparm
+   dac t1
+   law out-1
+cpio:
+   dac 11
+   lac 10
+   tad dm4
+   dac 10
+   lmq
+   -4
+   dac c1
+1:
+   lac i 10
+   dac i 11
+   isz c1
+   jmp 1b
+   lacq
+   dac 10
+   lac t1
+   jmp nparm
+
+getparm:0
+   lmq
+   -8
+   dac c1
+   lacq
+   skp
+1:
+   jms get
+   sad space
+   jmp 1b
+   jms checkdlm
+   jmp comerr
+   jmp 2f
+1:
+   jms get
+   jms checkdlm
+   jmp fill1
+2:
+   alss 9
+   isz c1
+   lmq
+   jms get
+   jms checkdlm
+   jmp fill
+   omq
+   dac i 10
+   isz c1
+   jmp 1b
+1:
+   jms get
+   jms checkdlm
+   jmp i getparm
+   jmp 1b
+
+" ** 11-56-91.pdf page 34
+fill:
+   dac t1
+   lac space
+   omq
+   dac i 10
+   isz c1
+   nop
+   lac t1
+fill1:
+   lmq
+   lac c1
+   spa
+   jmp 1f
+   lacq
+   jmp i getparm
+1:
+   lac spsp
+   dac i 10
+   isz c1
+   isz c1
+   jmp 1b
+   lacq
+   jmp i getparm
+
+checkdlm: 0
+   sad space
+   jmp i checkdlm
+   sad newln
+   jmp i checkdlm
+   sad amper
+   jmp i checkdlm
+   sad semic
+   jmp i checkdlm
+   isz checkdlm
+   jmp i checkdlm
+
+get: 0
+   lac i 8
+   sad slash
+   skp
+   jmp i get
+   lac i 8
+   sad newln
+   skp
+   jmp comerr
+   lacq
+   dac 1f
+   jms rline
+   lac 1f
+   lmq
+   lac space
+   jmp i get
+
+1: 0
+rline:0
+2:
+   law lineb-1
+   dac 15
+   dac 8
+1:
+   jms getcha
+" ** 11-56-91.pdf page 35
+   dac i 15
+   sad newln
+   jmp i rline
+   sad sharp
+   jmp psharp
+   sad atsign
+   jmp 2b
+   jmp 1b
+psharp:
+   -1
+   tad 15
+   sad 2b
+   jmp 2b
+   tad dm1
+   dac 15
+   jmp 1b
+
+getcha: 0
+   lac char
+   dzm char
+   sza
+   jmp i getcha
+   isz nread
+   jmp 1f
+   cla
+   sys read; inbuf; 64
+   spa sna
+   jmp lgout
+   cma
+   tad d1
+   dac nread
+   law inbuf-1
+   dac 14
+1:
+   lac i 14
+   lmq
+   and o777
+   dac char
+   ecla llss 9
+   jmp i getcha
+
+doch:
+   lac narg
+   lrss 2
+   cma
+   tad d1
+   dac narg
+   law args+4
+   dac 1f
+2:
+   isz narg
+   skp
+   jmp comretrn
+   sys chdir; 1:0
+   spa
+   jmp cherr
+   lac 1b
+   tad d4
+   dac 1b
+   jmp 2b
+cherr:
+" ** 11-56-91.pdf page 36
+   lac 1b
+   dac .+3
+   lac d1
+   sys write; ..; 4
+   jmp comerr
+
+lgout:
+   clq
+   lac d1
+   sys smes
+   sys exit
+
+
+d1: 1
+dm1: -1
+d4: 4
+dm4: -4
+d2: 2
+d7: 7
+o17: 017
+o17771: 017771
+o7777: 07777
+o777: 0777
+gr: 076
+ls: 074
+amper: &>
+semic: 073
+space: 040
+sharp: 043
+atsign: 0100
+newln: 012
+slash: 057
+in: 0;0;0;0
+out: 0;0;0;0
+errmes: 077012
+chcom: <ch>
+ready: 0100040
+delim: 012
+system: <sy>; <st>; <em>; spsp: 040040
+nargp: narg-1
+bootp: boot-1
+char: 0
+nread: -1
+lineb: .=.+128
+inbuf: .=.+64
+c1: .=.+1
+t1: .=.+1
+lnkflg: .=.+1
+narg: .=.+1
+args:

scans/sop.s

@@ -25,26 +25,27 @@ sma = 0740100
 sza = 0740200
 snl = 0740400
 skp = 0741000
+spa = 0741100
 sna = 0741200
 szl = 0741400
 rtl = 0742010
 rtr = 0742020
-cil = 0744000
+cll = 0744000
 rcl = 0744010
 rcr = 0744020
-cia = 0750000
+cla = 0750000
 lrs = 0640500
 lrss = 0660500
 lls = 0640600
 llss = 0660600
 als = 0640700
 alss = 0660700
-mul = 0653323
+mul = 0653122
 idiv = 0653323
 lacq = 0641002
 clq = 0650000
-omq = 0650002
+omq = 0640002
-cmq = 0650004
+cmq = 0640004
 lmq = 0652000
 
 dscs = 0707141
@@ -60,7 +61,6 @@ ion = 0700042
 caf = 0703302
 clon = 0700044
 clsf = 0700001
-
 "** 01-s1.pdf page 63
 clof = 0700004
 ksf = 0700301
@@ -94,4 +94,3 @@ dpcf = 0704761
 dprc = 0704712
 crsf = 0706701
 crrb = 0706712
-

scans/st1.s

@@ -0,0 +1,253 @@
+"** 12-92-119.pdf page 1
+" space travel 1
+
+t = 0
+
+start:			"[------ stuff for gravity - scan markup]
+	law 13
+	sys sysloc
+	dac .pbson
+	lac pww
+	dac 1f
+	dac 2f
+	lac pw
+	dac 3f
+	-32
+	dac cplan
+4:
+	fld; 1:0
+	fmp; 2:0
+	-1
+	tad aexp
+	dac aexp
+	fng
+	fad; fpone
+	fst; 3:0
+	lac 1b
+	tad d3
+	dac 1b
+	dac 2b
+	lac 3b
+	tad d3
+	dac 3b
+	isz cplan
+	jmp 4b
+	law dspl-1
+	dac clistp
+	dac lanflg
+	dzm crflg
+	dzm goflg
+	dzm .pbsint
+	dzm forflg
+	dzm bacflg
+	dzm dspflg	"[line connecting this instruction to... - scan markup]
+	dzm locflg
+	dzm locpar	"[... this instruction - scan markup]
+	lac d1
+	dac par
+	jms dispname
+	fld; prsq+4
+	sqrt
+	fst; rpar
+	fst; y
+	fst; oy
+	fld; fpone
+	fst; sphi
+	fst; stheta
+	jms dspsca
+	fld; fpzero
+	fst; x
+	fst; ox
+	fst; cphi
+	fst; ctheta
+	law displist
+"** 12-92-119.pdf page 2
+	sys capt
+	jmp loop
+
+loop:
+	law dspl-1
+	dac clistp
+	jms contrl	"[arrow from below points to this instruction - scan markup]
+	lac par
+	jms absxy
+	jms shipxy
+	lac goflg
+	spa
+	jmp loop3	"[long dash after loop3 - scan markup]
+	fld; fpzero
+	fst; ax
+	fst; ay
+	fst; maxa
+	lac nplan
+	skp
+loop1:
+	lac cplan
+	tad dm1
+	spa
+	jmp loop2
+	dac cplan
+	tad fppar
+	dac fcplan
+	lac i fcplan
+	dac fcplan
+	jms updacc
+	jms displa
+	lac cplan
+	sza
+	jms updpln
+	lac cplan
+	and o7
+	sad o7
+	jms contrl
+	jmp loop1
+
+loop2:
+	lac lanflg
+	sma
+	jms updshp
+loop3:
+	fld; horizv	"[a box enclosing all code from loop3 to loop4 - scan markup]
+	lac scale	"[arrow drawn from box up to location above - scan markup]
+	cma
+	tad vscale
+	tad aexp
+	dac aexp
+	jms inscr
+		jmp loop4
+	tad o141577
+	dac i clistp	"[crossed out with an arrow pointint to "dac dspvel" - scan markup]
+	lac o164372	"[crossed out - scan markup]
+	dac clistp i	"[crossed out - scan markup]
+	cla		"[crossed out - scan markup]
+	jms dsplanet	"[crossed out - scan markup]
+loop4:			"[inside a drawn box - scan markup]
+	sys time "put delay here.....
+"** 12-92-119.pdf page 3
+	dzm dispcl
+	lac crflg
+	sma
+	jmp 1f
+	lac o20714 "cl
+	dac dispcl
+	jmp 2f
+1:
+	lac lanflg
+	sma
+	jmp 2f
+	lac o114 "l
+	dac dispcl
+2:
+	lac dhalt
+	dac i clistp
+	jmp loop " check 2-display question
+
+contrl: 0
+	lac i .pbson
+	xor .pbsint
+	and .pbson i
+	sna
+	jmp noneon
+	lmq
+	spa ral
+	sys exit
+	sma
+	jmp 1f
+	dzm goflg
+	dzm crflg
+1:
+	lacq
+	als 6
+	sma ral
+	jmp 1f
+	spa
+	jmp noneon
+	isz scale
+	nop
+	jms dspsca "uprange
+	jmp noneon
+1:
+	sma
+	jmp noneon
+	-1
+	tad scale
+	dac scale
+	jms dspsca "downrange
+noneon:
+	dzm forflg
+	dzm bacflg
+	lac i .pbson
+	dac .pbsint
+	als 2
+	sma
+	jmp 1f
+	lac dhalt
+	dac forflg
+	lac goflg
+	sma
+"** 12-92-119.pdf page 4
+	dzm lanflg
+1:
+	lac i .pbson
+	als 3
+	sma
+	jmp 1f
+	lac dhalt
+	dac bacflg
+	lac goflg
+	sma
+	dzm lanflg
+1:
+	lac i .pbson
+	als 4
+	sma
+	jmp 1f
+	ral
+	spa
+	jmp i contrl
+	dzm 9f+t
+	jmp 2f
+1:
+	ral
+	sma
+	jmp i contrl
+	lac dhalt
+	dac 9f+t
+2:
+	fld; cphi
+	fmp; sdphi
+	lac 9f+t
+	sma
+	fng
+	fst; ftmp1
+	fld; sphi
+	fmp; cdphi
+	fad; ftmp1
+	fst; ftmp2
+	fld; sphi
+	fmp; sdphi
+	lac 9f+t
+	spa
+	fng
+	fst; ftmp1
+	fld; cphi
+	fmp; cdphi
+	fad; ftmp1
+	fst; cphi
+	fld; ftmp2
+	fst; sphi
+	jmp i contrl
+
+t = t+1
+
+shipxy: 0
+	fld; absx
+	fad; x
+	fng
+	fst; shipx
+	fld; absy
+	fad; y
+"** 12-92-119.pdf page 5
+	fng
+	fst; shipy
+	jmp i shipxy

scans/st2.s

@@ -0,0 +1,222 @@
+"** 12-92-119.pdf page 6
+	" space travel 2
+
+absv: 0
+	dzm absx
+	dzm absx+1
+	dzm absx+2
+	dzm absy
+	dzm absy+1
+	dzm absy+2
+1:
+	dac absi
+	sna
+	jmp i absv
+	tad fppar
+	dac 9f+t
+	jms invert
+	fld; ftmp1
+	fng
+	fad; absx
+	fst; absx
+	fld; ftmp2
+	fng
+	fad; absy
+	fst; absy
+	jms invert
+	fld; ftmp1
+	fad; absx
+	fst; absx
+	fld; ftmp2
+	fad; absy
+	fst; absy
+	lac absi
+	tad ppar
+	dac 9f+t
+	lac i 9f+t
+	jmp 1b
+
+invert: 0
+	lac i 9f+t
+	dac fcplan
+	tad pww
+	dac 1f
+	dac 2f
+	lac fcplan
+	tad px
+	dac 3f
+	lac fcplan
+	tad py
+	dac 4f
+	fld; 1:..
+	fng
+	fst; 2:..
+	jms updpln
+	fld; 3:..
+	fst; ftmp1
+	fld; 4:..
+	fst; ftmp2
+	jmp i invert
+
+	t = t+1
+
+updpln: 0
+"** 12-92-119.pdf page 7
+	lac fcplan
+	lmq
+	tad px
+	dac 1f
+	dac 5f
+	lacq
+	tad py
+	dac 3f
+	dac 6f
+	dac 0f
+	lacq
+	tad pw
+	dac 2f
+	dac 7f
+	lacq
+	tad pww
+	dac 4f
+	dac 8f
+
+	fld; 1:..
+	fst; ftmp1
+	fmp; 2:..
+	fst; ftmp2
+	fld; 3:..
+	fmp; 4:..
+	fng
+	fad; ftmp2
+	fst; 5:..
+	fld; 6:..
+	fmp; 7:..
+	fst; ftmp2
+	fld; ftmp1
+	fmp; 8:..
+	fad; ftmp2
+	fst; 0:..
+	jmp updpln i
+
+updacc: 0
+	lac cplan
+	sad par
+	jmp upda2
+	jms absxy
+	fld; absx
+	fad; shipx
+	jmp 1f
+upda2:
+	fld; x
+	fng
+1:
+	fst; absx
+	fmp; absx
+	fst; ftmp1
+	lac cplan
+	sad par
+	jmp 1f
+	fld; absy
+	fad; shipy
+	jmp 2f
+1:
+	fld; y
+	fng
+"** 12-92-119.pdf page 8
+2:
+	fst; absy
+	fmp; absy
+	fad; ftmp1
+	fst; dtmp1
+	sqrt
+	fst; dpar
+	lac cplan
+	sad par
+	skp
+	jmp upda5
+	fld; ox
+	fng
+	fad; x
+	fst; ftmp1
+	fmp; y
+	fst; horizv
+	fld; y
+	fng
+	fad; oy
+	fst; ftmp2
+	fmp; x
+	fad; horizv
+	fdv; dpar
+	fst; horizv
+	fld; dpar
+	fcp; rpar
+	sma
+	jmp upda5
+	lac lanflg
+	spa
+	jmp upda5
+	fld; ftmp1
+	fmp; ftmp1
+	fst; ftmp1
+	fld; ftmp2
+	fmp; ftmp2
+	fad; ftmp1
+	fcp; crash
+	spa
+	jmp 1f
+	lac dhalt
+	dac goflg
+	dac crflg
+1:
+	lac dhalt
+	dac lanflg
+	fld; rpar
+	fdv; dpar
+	fst; ftmp1
+	fmp; x
+	fst; x
+	fst; ox
+	fld;  ftmp1
+	fmp; y
+	fst; y
+	fst; oy
+	lac par
+	jms absxy
+	jms shipxy
+	jmp upda2
+"** 12-92-119.pdf page 9
+upda5:
+	fcp; fardst
+	spa
+	jmp 1f
+	lac cplan
+	sna
+	jmp 1f
+	lac dhalt
+	dac grvflg
+	jmp i updacc
+1:
+	dzm grvflg
+	lac fcplan
+	tad accl
+	dac 1f
+	fld; 1:..
+	fdv; dtmp1
+	fcp; maxa
+	spa
+	jmp 2f
+	fst; maxa
+	lac cplan
+	dac maxj
+2:
+	fdv; dpar
+	fst; ftmp1
+	fmp; absx
+	fad; ax
+	fst; ax
+	fld; ftmp1
+	fmp; absy
+	fad; ay
+	fst; ay
+	jmp i updacc

scans/st3.s

@@ -0,0 +1,188 @@
+"** 12-92-119.pdf page 10
+	" space travel 3
+
+updshp: 0
+	lac forflg
+	spa
+	jmp .+4
+	lac bacflg
+	sma
+	jmp 3f
+	fld; ascale
+	lac  forflg
+	sma
+	jmp 1f
+	lac bacflg
+	sma
+	jmp 1f+1
+	fld; fpzero
+	jmp 2f
+1:
+	fng
+	lac scale
+	tad aexp
+	dac aexp
+	lac forflg
+	sma
+	jmp .+3
+2:
+	lac accflg	"[arrow pointing here from the text "how to set?" - scan markup]
+	sma
+	jmp .+3
+	fad; maxa
+	fng
+	fst; ftmp1
+	fmp; ctheta
+	fad; ax
+	fst; ax
+	fld; ftmp1
+	fmp; stheta
+	fad; ay
+	fst; ay
+3:
+	fld; ox
+	fng
+	fad; ax
+	fst; ftmp1
+	fld; x
+	lac aexp
+	tad d1
+	dac aexp
+	fad; ftmp1
+	fst; ftmp1
+	fld; x
+	fst; ox
+	fld; ftmp1
+	fst; x
+	fld; oy
+	fng
+	fad; ay
+	fst; ftmp1
+	fld; y
+	lac aexp
+	tad d1
+"** 12-92-119.pdf page 11
+	dac aexp
+	fad; ftmp1
+	fst; ftmp1
+	fld; y
+	fst; oy
+	fld; ftmp1
+	fst; y
+	lac par
+	sad maxj
+	jmp i updshp
+	jms absxy
+	jms shipxy
+	lac par
+	jms absv
+	fld; ox
+	fng
+	fad; x
+	fad; absx
+	fst; ox
+	fld; oy
+	fng
+	fad; y
+	fad; absy
+	fst; oy
+	lac maxj
+	dac par
+	jms absv
+	fld; ox
+	fng
+	fad; absx
+	fst; ox
+	fld; oy
+	fng
+	fad; absy
+	fst; oy
+	lac par
+	jms absxy
+	fld; absx
+	fad; shipx
+	fng
+	fst; x
+	fad; ox
+	fst; ox
+	fld; absy
+	fad; shipy
+	fng
+	fst; y
+fadins:
+	fad; oy
+	fst; oy
+	lac par
+	tad fppar
+	dac 1f
+	lac i 1f
+	tad prsq
+	dac 1f
+	fld; 1:..
+	sqrt
+	fst; rpar
+	jms dspsca
+	lac par
+"** 12-92-119.pdf page 12
+	jms dispname
+	jmp i updshp
+
+inscr: 0
+	fng
+	fix
+	tad d383
+	spa
+	jmp i inscr
+	tad dm768
+	sma
+	jmp i inscr
+	isz inscr
+	jmp i inscr
+
+absxy: 0
+	sna
+	jmp 7f
+	lmq
+	lac fldins
+	dac 2f-1
+	dac 4f-1
+	lacq
+1:
+	dac absi
+	sna
+	jmp i absxy
+	tad fppar
+	dac 9f+t
+	lac i 9f+t
+5:
+	tad px
+	dac 2f
+fldins:
+	fld; absx
+	fad; 2:..
+	fst; absx
+	lac i 9f+t
+6:
+	tad py
+	dac 4f
+	fld; absy
+	fad; 4:..
+	fst; absy
+	lac fadins
+	dac 2b-1
+	dac 4b-1
+	lac absi
+	tad ppar
+	dac 9f+t
+	lac i 9f+t
+	jmp 1b
+7:
+	dzm absx
+	dzm absx+1
+	dzm absx+2
+	dzm absy
+	dzm absy+1
+	dzm absy+2
+	jmp i absxy
+"** 12-92-119.pdf page 13
+	t = t+1

scans/st4.s

@@ -0,0 +1,255 @@
+"** 12-92-119.pdf page 14
+	" space travel 4
+
+displa: 0
+	lac locpar
+	sad cplan
+	skp
+	jmp 2f
+	lac locflg	"[arrow points here from the text "how to set?" - scan markup]
+	sma
+	jmp 1f
+	fld; cphi	"[-\                     - scan markup]
+	fmp; absy	"[  |			 - scan markup]
+	fst; ftmp1	"[  |			 - scan markup]
+	fld; sphi	"[  |			 - scan markup]
+	fmp; absx	"[  |			 - scan markup]
+	fad; ftmp1	"[  |			 - scan markup]
+	fdv; dpar	"[  |			 - scan markup]
+	fst; stheta	"[  \  lock calculation	 - scan markup]
+	fld; sphi	"[  /			 - scan markup]
+	fmp; absy	"[  |			 - scan markup]
+	fng		"[  |			 - scan markup]
+	fst; ftmp1	"[  |			 - scan markup]
+	fld; cphi	"[  |			 - scan markup]
+	fmp; absx	"[  |			 - scan markup]
+	fad; ftmp1	"[  |			 - scan markup]
+	fdv; dpar	"[  |			 - scan markup]
+	fst; ctheta	"[  |			 - scan markup]
+	jmp 2f		"[-/			 - scan markup]
+1:
+	fld; sphi
+	fst; stheta
+	fld; cphi
+	fst; ctheta
+2:
+	fld; absx
+	sfmp; ctheta
+	fst; ftmp1
+	fld; absy
+	sfmp; stheta
+	fad; ftmp1
+	lac aexp
+	cma
+	tad scale
+	cma
+	dac aexp
+	fst; spy
+	dzm inflg
+	jms inscr
+		jmp 1f
+	tad o145777
+	dac clistp i
+	jms rotx
+	lac dhalt
+	dac inflg
+	jms inscr
+		jmp 1f
+	tad o161577
+	dac i clistp
+	lac cplan
+	jms dsplanet
+1:
+	jms drcirc
+"** 12-92-119.pdf page 15
+	jmp i displa
+
+rotx: 0
+	fld; absx
+	sfmp; stheta
+	fst; ftmp1
+	fld; absy
+	sfmp; ctheta
+	fng
+	fad; ftmp1
+	lac aexp
+	cma
+	tad scale
+	cma
+	dac aexp
+	fst; spx
+	jmp i rotx
+
+surf: 0
+	-1
+	tad setx
+	cma
+	dac tsetx
+	lac setx
+	tad o141577
+	dac i clistp
+	-1
+	tad sety
+	cma
+	dac tsety
+	lac sety
+	tad o165777
+	dac clistp i
+	lac narcs
+	dac nt
+	fld; wx
+	fst; twx
+	fld; wy
+	fst; twy
+	fld; v
+	fng
+	fst; v
+2:
+	fld; v
+	sfmp; twy
+	fng
+	fst; ftmp1
+	fld; vv
+	sfmp; twx
+	fad; ftmp1
+	fst; ftmp2
+	fld; v
+	sfmp; twx
+	fst; ftmp1
+	fld; vv
+	sfmp; twy
+	fad; ftmp1
+	fst; twy
+	fad; spy
+	jms inscr
+		jmp 1f
+"** 12-92-119.pdf page 16
+	tad tsety
+	dac dely
+	cma
+	tad d1
+	tad tsety
+	dac tsety
+	fld; ftmp2
+	fst; twx
+	fad; spx
+	jms inscr
+		jmp 1f
+	tad tsetx
+	dac delx
+	cma
+	tad d1
+	tad tsetx
+	dac tsetx
+	lac delx
+	sma
+	jmp .+3
+	cma
+	tad o41
+	alss 6
+	dac delx
+	lac dely
+	sma
+	jmp .+3
+	cma
+	tad o41
+	tad delx
+	tad o220000
+	dac i clistp
+	isz nt
+	jmp 2b
+	jmp i surf
+1:
+	isz surf
+	jmp i surf
+
+drcirc: 0
+	lac grvflg
+	spa
+	jmp i drcirc
+	lac fcplan
+	tad prsq
+	dac .+2
+	fld; ..
+	sqrt
+	lac aexp
+	cma
+	tad scale
+	cma
+	dac aexp
+	fst; dtmp1
+	fcp; thrs
+	spa
+	jmp i drcirc
+	fng
+	lac dpar
+	cma
+	tad scale
+"** 12-92-119.pdf page 17
+	cma
+	dac dpar
+	fad; dpar
+	sfdv; dpar
+	fst; dtmp2
+	sfmp; spy
+	fst; wy
+	jms inscr
+		jmp i drcirc
+	dac sety
+	lac inflg
+	sma
+	jms rotx
+	fld; dtmp2
+	sfmp; spx
+	fst; wx
+	jms inscr
+		jmp i drcirc
+	dac setx
+	fld; spy
+	fng
+	fad; wy
+	fst; wy
+	fld; spx
+	fng
+	fad; wx
+	fst; wx
+	fld; dtmp1
+	sfmp; pid10
+	fcp; f400
+	spa
+	jmp 1f
+	lac d400
+	dac narcs
+	jmp 2f
+1:
+	fix
+	tad dm20
+	spa
+	cla
+	tad d20
+	dac narcs
+	flt
+2:
+	fst; dtmp1
+	-1
+	tad narcs
+	cma
+	dac narcs
+	fld; f2pi
+	sfdv; dtmp1
+	fst; v
+	sfmp; v
+	-1
+	tad aexp
+	dac aexp
+	fng
+	fad; fpone
+	fst; vv
+	lac o40004
+	dac i clistp
+"** 12-92-119.pdf page 18
+	jms surf
+		jmp i drcirc
+	jms surf
+		jmp i drcirc
+	jmp i drcirc

scans/st5.s

@@ -0,0 +1,75 @@
+"** 12-92-119.pdf page 19
+" space travel 5
+
+dsplanet: 0
+	tad points
+	dac 9f+t
+	lac i 9f+t
+	dac i clistp
+	lac o246256
+	dac i clistp
+	lac o253052
+	dac i clistp
+	lac o246036
+	dac i clistp
+	jmp dsplanet i
+
+dispname: 0
+	tad names
+	dac 9f+t
+	lac i 9f+t
+	tad dm1
+	dac 8
+	law namedsp-1
+	dac 9
+	-10
+	dac 9f+t
+1:
+	lac i 8
+	sna
+	jmp 2f
+	dac 9f+t+1
+	lrss 9
+	dac i 9
+	isz 9f+t
+	skp
+	jmp i dispname
+	lac 9f+t+1
+	and o177
+	sna
+	jmp 2f
+	dac i 9
+	isz 9f+t
+	jmp 1b
+	jmp i dispname
+2:
+	dzm i 9
+	isz 9f+t
+	jmp 2b
+	jmp i dispname
+
+t = t+2
+
+dspsca: 0
+	lac scale
+	sma
+	jmp 1f
+	lac o55 "-
+	dac dssca
+	-1
+	tad scale
+	cma
+	jmp 2f
+1:
+"** 12-92-119.pdf page 20
+	lac o53 "+
+	dac dssca
+	lac scale
+2:
+	cll; idiv; 10
+	tad o60
+	dac dssca+2
+	lacq
+	tad o60
+	dac dssca+1
+	jmp i dspsca

scans/st6.s

@@ -0,0 +1,292 @@
+"** 12-92-119.pdf page 21
+"space travel 6 -- tables
+
+names: .+1
+sun
+earth
+ariel
+callisto
+moon
+deimos
+dione
+enceladus
+europa
+ganymede
+hyperion
+iapetus
+io
+jupiter
+mars
+mercury
+mimas
+miranda
+neptune
+nereid
+oberon
+phobos
+phoebe
+pluto
+rhea
+saturn
+tethys
+titan
+triton
+umbriel
+uranus
+venus
+
+sun: <su>;<n
+earth: <ea>;<rt>;<h
+ariel: <ar>;<ie>; <l
+callisto: <ca>;<ll>;<is>;<to>;0
+moon: <mo>;<on>;0
+deimos: <de>;<im>;<os>;0
+dione: <di>;<on>;<e
+enceladus: <en>;<ce>;<la>;<du>;<s
+europa: <eu>;<ro>;<pa>;0
+ganymede: <ga>;<ny>;<me>;<de>;0
+hyperion: <hy>;<pe>;<ri>;<on>;0
+iapetus: <ia>;<pe>;<tu>;<s
+io: <io>;0
+jupiter: <ju>;<pi>;<te>;<r
+mars: <ma>;<rs>;0
+mercury: <me>;<cu>;<ry>;0
+mimas: <mi>;<ma>;<s
+miranda: <mi>;<ra>;<nd>;<a
+neptune: <ne>;<pt>;<un>;<e
+nereid: <ne>;<re>;<id>;0
+oberon: <ob>;<er>;<on>;0
+phobos: <ph>;<ob>;<os>;0
+phoebe: <ph>;<oe>;<be>;0
+pluto: <pl>;<ut>;<o
+rhea: <rh>;<ea>;0
+saturn: <sa>;<tu>;<rn>;0
+"** 12-92-119.pdf page 22
+tethys: <te>;<th>;<ys>;0
+titan: <ti>;<ta>;<n
+triton: <tr>;<it>;<on>;0
+umbriel: <um>;<br>;<ie>;<l
+uranus: <ur>;<an>;<us>;0
+venus: <ve>;<nu>;<s
+
+points: .+1
+br3
+br2
+br0
+br2
+br1
+br0
+br1
+br0
+br1
+br2
+br0
+br1
+br1
+br3
+br2
+br1
+br0
+br0
+br3
+br0
+br1
+br0
+br0
+br1
+br1
+br3
+br1
+br2
+br1
+br0
+br3
+br2
+
+fppar:  .+1
+0;3;6;9;12;15;18;21
+24;27;30;33;36;39;42;45
+48;51;54;57;60;63;66;69
+72;75;78;81;84;87;90;93
+
+ppar: .+1
+0;0;036;015;01;016;031;031
+015;015;031;031;015;0;0;0
+031;036;0;022;036;016;031;0
+031;0;031;031;022;036;0;0
+
+prsq: .+1
+016;0272245;075341
+1;0200000;0
+-07;0244122;0506362
+-02;0251477;0620663
+-03;0230761;0127762
+-025;0320300;054474
+-06;0324134;0124211
+"** 12-92-119.pdf page 23
+-010;0335416;0541570
+-04;0371372;0
+-06;0247430;0
+-011;0311150;0
+-05;0302622;0
+-02;0256475;0
+07;0376733;0
+-01;0221530;0
+-02;0235142;0
+-010;0217266;0
+-011;0274361;0
+04;0365471;0
+-012;0227176;0
+-06;0342454;0
+-023;0326340;0
+-013;0326265;0
+-02;0323774;0
+-05;0255140;0
+07;0263573;0
+-06;0223174;0
+-02;0251477;0
+-02;0235142;0
+-05;0223060;0
+05;0206115;0
+0;0362406;0
+
+accl: .+1
+0;0204365;0
+-023;0320324;0
+-036;0227207;0
+-017;0340500;0
+-030;0210041;0
+-063;0341666;0
+-034;0235122;0
+-037;0247531;0
+-031;0310316;0
+-027;0334427;0
+-041;0315203;0
+-033;0303403;0
+-030;0245752;0
+-017;0201414;0
+-026;0263753;0
+-026;0205241;0
+-040;0256464;0
+-041;0272051;0
+-017;0340566;0
+-043;0275073;0
+-034;0255345;0
+-060;0341650;0
+-044;0341552;0
+-020;0307762;0
+-033;0243712;0
+-014;0233053;0
+-035;0265543;0
+-027;0340500;0
+-027;0210344;0
+-037;0210777;0
+-017;0275653;0
+-023;0252667;0
+
+px: .+1
+"** 12-92-119.pdf page 24
+0;000000;0
+015;0620356;0
+005;0360005;0
+010;0666214;0
+005;0704053;0
+002;0347600;0
+005;0310506;0
+006;0220622;0
+007;0310473;0
+004;0370065;0
+006;0304101;0
+011;0676631;0
+006;0653020;0
+020;0317202;0
+017;0644356;0
+013;0206414;0
+005;0245346;0
+004;0222264;0
+023;0261234;0
+001;0372225;0
+007;0646102;0
+001;0212446;0
+013;0773152;0
+024;0274557;0
+004;0227474;0
+020;0263122;0
+004;0333254;0
+010;0216672;0
+006;0231142;0
+006;0212701;0
+023;0650051;0
+016;0233751;0
+
+py: .+1
+000;0000000;0
+017;0664054;0
+002;0662035;0
+010;0350757;0
+006;0334771;0
+000;0267000;0
+006;0726770;0
+004;0225752;0
+006;0201346;0
+010;0247536;0
+010;0343277;0
+011;0314411;0
+006;0712237;0
+021;0334656;0
+017;0342324;0
+016;0615151;0
+005;0644257;0
+005;0622456;0
+024;0224063;0
+012;0331314;0
+006;0640034;0
+001;0200024;0
+011;0243161;0
+023;0772355;0
+007;0644432;0
+022;0726324;0
+006;0260740;0
+"** 12-92-119.pdf page 25
+010;0600213;0
+006;0237476;0
+005;0674734;0
+023;0616334;0
+016;0327155;0
+
+pw: .+1
+.=.+32+32+32
+
+pww: .+1
+0000;0000000;0000000
+-054;0663265;0376074
+-036;0743326;0460356
+-043;0647730;0444215
+-045;0767246;0341205
+-034;0745027;0221674
+-036;0702670;0530661
+-034;0702340;0273047
+-037;0747771;0100452
+-041;0743411;0732756
+-044;0716603;0200021
+-050;0755641;0517072
+-035;0751602;0332677
+-072;0631066;0300145
+-056;0712656;0015171
+-050;0701167;0507203
+-033;0715124;0202507
+-034;0665024;0365605
+-073;0730064;0776551
+-054;0667362;0431776
+-043;0775760;0312631
+-030;0740613;0034530
+-055;0635657;0370276
+-074;0677234;0315321
+-037;0617102;0655555
+-066;0723370;0773672
+-035;0714526;0724272
+-043;0667633;0402706
+-040;0636053;0440472
+-037;0650025;0224325
+-071;0717663;0701773
+-052;0754612;0304722

scans/st7.s

@@ -0,0 +1,158 @@
+"** 12-92-119.pdf page 26
+" space travel 7
+
+clistp = 017
+br0 = 040004
+br1 = 040005
+br2 = 040006
+br3 = 040007
+
+d10: 10
+d3: 3
+o246256: 0246256
+o253052: 0253052
+o246036: 0246036
+o177: 0177
+nplan: 32
+d1: 1
+d20: 20
+dm1: -1
+o141577: 0141577
+o161577: 0161577
+o164372: 0164372
+o114: 0114
+o20714: 020714
+d383: 383
+dm768: -768
+o145777: 0145777
+o165777: 0165777
+o7: 7
+o60: 060
+o55: 055
+o53: 053
+o41: 041
+o220000: 0220000
+d400: 400
+dm20: -20
+o40004: 040004
+
+fardst: 020;0200000; 0
+f2pi: 03;0311037;552421
+pid10: -01;0240662;756647
+thrs: 02;0200000;0
+f400: 011;0310000;0
+crash: -028;0200000;0
+stheta: 01;0200000;0
+ctheta: 0;0;0
+fpzero: 0;0;0
+scale: 0
+vscale: 6
+ascale: -1
+sdphi: -05;0253436;0700177
+cdphi: 000;0377743;0201725
+dhalt: 0400000
+fpone: 01;0200000;0
+
+9: .=.+t
+horizv: .=.+3
+.pbson: .=.+1
+.pbsint: .=.+1
+dspflg: .=.+1
+par: .=.+1
+absi: .=.+1
+absx: .=.+3
+"** 12-92-119.pdf page 27
+absy: .=.+3
+v: .=.+3
+vv: .=.+3
+spx: .=.+3
+spy: .=.+3
+wx: .=.+3
+wy: .=.+3
+twx: .=.+3
+twy: .=.+3
+setx: .=.+1
+sety: .=.+1
+narcs: .=.+1
+nt: .=.+1
+inflg: .=.+1
+grvflg: .=.+1
+dtmp1: .=.+3
+dtmp2: .=.+3
+delx: .=.+1
+dely: .=.+1
+tsetx: .=.+1
+tsety: .=.+1
+accflg: .=.+1
+locpar: .=.+1
+crflg: .=.+1
+rpar: .=.+3
+dpar: .=.+3
+ax: .=.+3
+ay: .=.+3
+maxa: .=.+3
+maxj: .=.+1
+dcplan: .=.+1
+fcplan: .=.+1
+cplan: .=.+1
+shipx: .=.+3
+shipy: .=.+3
+x: .=.+3
+y: .=.+3
+ox: .=.+3
+oy: .=.+3
+lanflg: .=.+1
+goflg: .=.+1
+forflg: .=.+1
+bacflg: .=.+1
+sphi: .=.+3
+cphi: .=.+3
+ftmp1: .=.+3
+ftmp2: .=.+3
+locflg: .=.+3
+
+dsetx = 0140000
+dsety = 0164000
+vecx = 0120000
+vecy = 0124000
+m = 02000
+displist:
+	075057 "scale 1 intens 3 blink on lp 0 sym 0
+	dsetx 800
+	dsety 20
+dispcl:
+	0
+	060004 "intens 0 blink off
+"** 12-92-119.pdf page 28
+	dsetx 0
+	dsety 20
+namedsp:
+	.=.+10
+	dsetx 400
+	dsety 20
+dssca:
+	.=.+3
+	040040 "scale 0
+	dsetx 127
+	dsety 250
+	vecx 768
+	dsetx 895
+	dsety 255
+	vecy 768
+	dsetx 895
+	dsety 1023
+	vecx m 768
+	dsetx 127
+	dsety 1023
+	vecy m 768
+	dsetx 127
+	dsety 255
+	vecx 768
+	dsetx 511
+	dsety 255
+	vecy 767
+	dsetx 127
+	dsety 639   "[--- - scan markup]
+	vecx 767    "[an arrow starts between vecx and dspl, it points to the right - scan markup]
+dspl:
+	0400000

scans/stat.s

@@ -36,7 +36,7 @@ loop:
    -2
    jms octal
    -1
-   tad iniks
+   tad inlks
    cma
    lmq
    -2
@@ -110,7 +110,7 @@ statbuf:
    iflags: .=.+1
    .=.+7
    iuid: .=.+1
-   iniks: .=.+1
+   inlks: .=.+1
    isize: .=.+1
    .=.+1
    ii: .=.+1

scans/sysmap

@@ -1,29 +1,30 @@
 "** 01-s1.pdf page 57 -- system assembly map
-.        004671 r
+.	 004671 r
-.ac      004012 r
+.ac	 004102 r
 .chown	 000426 r
+.close	 000725 r
 .capt	 000404 r
-.creat   000665 r
+.creat	 000665 r
 .chdir	 000622 r
-.chmod   000414 r
+.chmod	 000414 r
 .dskb	 004105 r
 .dspb	 005547 r
 .dsptm	 004104	r
 .dske	 004106 r
 .exit	 001170 r
 .fork	 001116 r
-.getuid  000433 r
+.getuid	 000433 r
 .halt	 001343 r
 .int1	 004100 r
 .insys	 004077 r
 .int2	 004101 r
 .intrp	 000257 r
-.link    000474 r
+.link	 000474 r
 .lpba	 005550 r
 .open	 000633 r
 .rmes	 001204 r
 .rele	 000410	r
-.rename	 000547	r
+.rename	 000574 r
 .read	 000731	r
 .smes	 001232	r
 .savblk	 004103	r
@@ -45,7 +46,7 @@ badcal	 001153	r
 betwen	 001654	r
 c1	 004270 r
 chkint	 000320 r
-chkink1	 001546 r
+chkint1	 001546 r
 char 	 005522	r
 cnop	 003453	r
 coldentr 004520 r
@@ -60,7 +61,7 @@ d.name	 005761 r
 d.uniq	 005765 r
 d.i	 005760 r
 "** 01-s1.pdf page 58
-d0       004127 r
+d0	 004127 r
 d10	 004141 r
 d1	 004130 r
 d2	 004131 r
@@ -69,7 +70,7 @@ d3	 004132 r
 d4	 004133 r
 d5	 004134 r
 d6	 004135 r
-d65	 004155 r
+d65	 004152 r
 d7999	 004166 r
 d7	 004136	r
 d8	 004137 r
@@ -95,7 +96,7 @@ dskrd	 002127 r
 dsktrans 002231 r
 dsploc	 004455 r
 dslot	 002474 r
-dspino	 004456 r
+dsplno	 004456 r
 dspbufp3 004116 r
 dspbufp	 005506 r
 dspresta 003523	r
@@ -105,6 +106,11 @@ dskwr	 002157 r
 dspput	 002551 r
 dspleft	 002573 r
 dspbuf	 004457 r
+dskswap	 002300 r
+dspinit	 002617 r
+dspnl	 002605 r
+edskbsp	 005504 r
+edspbuf	 004115 r
 error	 001542	r
 exitrw	 001041 r
 f.badd	 005771	r
@@ -116,8 +122,8 @@ fget	 002371	r
 finac	 003401	r
 fnode	 005770 r
 "** 01-s1.pdf page 59
-forall	 002434 r
+forall	 002423 r
-fput	 003413	r
+fput	 002413 r
 free	 001615 r
 getchar	 001756 r
 getw	 004635 r
@@ -170,11 +176,11 @@ o100000	 004177 r
 o140000	 004200 r
 o14	 004142 r
 o15	 004143 r
-0155	 004157 r
+o155	 004157 r
 o2000	 004164 r
 o200001	 004262 r
 o20001	 004172 r
-020	 004145 r
+o20	 004145 r
 o212	 004161 r
 o200000	 004201	r
 "** 01-s1.pdf page 60
@@ -183,6 +189,7 @@ o33	 004146 r
 o300000	 004203 r
 o4000	 004165 r
 o40000	 004173 r
+o40001	 004174 r
 o40	 004147 r
 o400000	 004204 r
 o500000	 004205 r
@@ -191,7 +198,7 @@ o577777	 004206 r
 o600000	 004207 r
 o640000	 004210 r
 o777	 004163	r
-o77	 004157 r
+o77	 004151 r
 o70000	 004175 r
 o77777	 004176 r
 o777760	 004213 r
@@ -252,8 +259,8 @@ u.limit	 005664 r
 u.cdir	 005657 r
 u.count	 005663 r
 u.base	 005662 r
-u.rq	 005644 r
+u.rg	 005644 r
-ulsit	 005562	r
+ulist	 005572	r
 uniqpid	 005524	r
 uquant	 005505 r
 userdata 005642 r

scans/t2.s

@@ -27,7 +27,7 @@ advance:0
   jmp advance i
 
 retreat:
-  dmz junk
+  dzm junk
   lac gflag
   sza
   jmp 1f
@@ -173,7 +173,7 @@ reuu:
 rerb:
   cml
 rera:
-  dmz fflag
+  dzm fflag
   snl
   jmp goon
   jms aget
@@ -341,7 +341,7 @@ gegq:
   jms advance; jmp ggoon
   lac env
   add d.ii
-  dac jumk
+  dac junk
   jms aget
   add junk i
   dac junk

scans/t3.s

@@ -207,7 +207,7 @@ putoct:0
   dac 9f+t+1
 
 1:lac 9f+t
-  cil
+  cll
   lrs 15
   add o60
   dac 8f+1

scans/t4.s

@@ -14,7 +14,7 @@ table:
   dac 8
   lac symwrite
   dac 8 i
-  add sumbot
+  add symbot
   dac 2f
   lac mdelta
 1:dzm 8 i

scans/t5.s

@@ -72,7 +72,7 @@ bundle:
   dac nframe i
   isz nframe
   jmp goon
-j=j+1
+t=t+1
 
 "   jms between;add a; add b; skip if a<=ac<b
 

scans/t6.s

@@ -56,7 +56,7 @@ obranch:
   opr        ;pl=op;op=op+1
   jmp romi   ;mi=op;op=op+1
   cma        ;cm=op;op=op+1
-  jmp roindir;inter=op;op=op+1
+  jmp roindir;indir=op;op=op+1
   lac holdlv ;addr=op;op=op+1
 unary:xct obranch+1+pl
 
@@ -84,7 +84,7 @@ sub:0
   cma
   jmp sub i
 
-roor
+roor:
   lmq
   lac rand2
   omq

scans/t7.s

@@ -90,7 +90,7 @@ equ = equread
 equbot: equtab
 equsiz = 500
 equmax: equsiz
-dleta: 2
+delta: 2
 mdelta:0-2
 
 sbsiz=50

scans/ttt1.s

@@ -0,0 +1,727 @@
+"** 14-148-165.pdf page 1
+" ttt1.s
+
+t = 0
+   lac 017777
+   tad d1
+   dac 9f+t
+   lac 9f+t i
+   sad qdt
+   skp
+   jmp loop
+   dac dspflg
+   law sbuf-1
+   dac blk1
+   dac blk2
+   jms dsboard
+   law dbuf
+   sys capt
+   law 16
+   sys sysloc
+   tad d1
+   dac lpadr
+   law 13
+   sys sysloc
+   dac pbadr
+   dzm lpadr i
+loop:
+   jms move
+   jms must; jmp loop
+   lac imaxin
+   dac maxin
+   law stack-1
+   dac 10
+   jms try; jmp unwind
+   jms heur; jmp loop
+
+unwind:
+   lac 12
+   dac 9f+t
+1:
+   lac 9f+t i
+   jms mark; 1
+   -1
+   tad 9f+t
+   dac 9f+t
+   lac 9f+t i
+   spa
+   jmp done
+   jms mark; 512
+   -1
+   tad 9f+t
+   dac 9f+t
+   lac dspflg
+   sna
+   jmp 1b
+   jms getpb
+   sza
+   jmp .-2
+   jms getpb
+   sna
+   jmp .-2
+   jmp 1b
+t = t+1
+
+"** 14-148-165.pdf page 2
+move: 0
+   lac dspflg
+   sza
+   jmp dspmove
+   jms messg; m>;o>;v>;e>;0
+   dzm 9f+t
+1:
+   jms getc
+   sad o12
+   jmp 1f
+   tad om60
+   spa
+   jmp move+1
+   dac 9f+t+1
+   and o3
+   sad 9f+t+1
+   skp
+   jmp move+1
+   lac 9f+t
+   alss 2
+   xor 9f+t+1
+   dac 9f+t
+   jmp 1b
+1:
+   lac 9f+t
+   spa
+   jmp move+1
+   and o77
+   sad 9f+t
+   skp
+   jmp move+1
+   tad boardp
+   dac 9f+t
+   lac 9f+t i
+   sza
+   jmp move+1
+   lac 9f+t
+   jms mark; 512
+   jmp move i
+
+dspmove:
+   jms getpb
+   sza
+   jmp pbhit
+   lac lpadr i
+   sna
+   jmp dspmove
+
+lphit:
+   lmq
+   lac blink
+   sna
+   jmp 1f
+   cma
+   tad boardp
+   cma
+   alss 4
+   tad sbufp
+   dac 9f+t
+   lac noblink
+"** 14-148-165.pdf page 3
+   dac blk1 i
+   dac blk2 i
+   dac 9f+t i
+1:
+   dzm lpadr i
+   lacq
+   cma
+   tad sbufp
+   cma
+   lrss 4
+   dac 9f+t
+   and o77
+   sad 9f+t
+   skp
+   jmp dspmove
+   tad boardp
+   dac blink
+   lac 9f+t
+   alss 4
+   tad sbufp
+   dac 9f+t
+   lac blinkpar
+   dac 9f+t i
+   jmp dspmove
+
+pbhit:
+   lac blink
+   sna
+   jmp dspmove
+   jms mark; 512
+   dzm blink
+   jmp move i
+t = t+2
+
+must: 0
+
+" check for 3g.4g.4b
+
+   law line-1
+   dac 8
+   -76
+   dac 9f+t
+   dzm 9f+t+1
+   dzm 9f+t+2
+1:
+   cla
+   xct 8 i
+   xct 8 i
+   xct 8 i
+   xct 8 i
+   sad o4
+   jmp done
+   sad o4000
+   jmp done
+   sad o3
+   dac 9f+t+2
+   sad o3000
+   skp
+   jmp 2f
+   -4
+   tad 8
+"** 14-148-165.pdf page 4
+   dac 9
+   cla
+   xct 9 i
+   sza cla
+   jmp .-2
+   -1
+   tad 9
+   dac 9
+   lac 9 i
+   dac 9f+t+1
+2:
+   isz 9f+t
+   jmp 1b
+   lac 9f+t+2
+   sza
+   jmp 1f
+   lac 9f+t+1
+   sna
+   jmp 1f
+   jms mark; 1
+   jmp must i
+1:
+   isz must
+   jmp must i
+t = t+3
+
+done:
+   lac dspflg
+   sza
+   jmp 1f
+   jms messg; e>;x>;i>;t>;0
+   sys exit
+1:
+   law sbuf-1
+   dac blk1
+   dac blk2
+   jms dsboard
+   law line-1
+   dac 8
+   -76
+   dac 9f+t
+1:
+   cla
+   xct 8 i
+   xct 8 i
+   xct 8 i
+   xct 8 i
+   sad o4
+   jmp 1f
+   sad o4000
+   jmp 1f
+   isz 9f+t
+   jmp 1b
+   sys exit
+1:
+   -4
+   tad 8
+   dac 9
+1:
+   lac 9 i
+   cma
+"** 14-148-165.pdf page 5
+   tad boardp
+   cma
+   alss 4
+   tad sbufp
+   dac 9f+t
+   lac blinkpar
+   dac 9f+t i
+   lac 8
+   sad 9
+   skp
+   jmp 1b
+   jms getpb
+   sza
+   jmp .-2
+   jms getpb
+   sna
+   jmp .-2
+   sys exit
+t = t+1
+
+mark: 0
+   dac 9f+t
+   lac mark i
+   dac 9f+t i
+   isz mark
+   lac dspflg
+   sna
+   jmp 1f
+   lac blk1
+   dac blk2
+   lac 9f+t
+   cma
+   tad boardp
+   cma
+   alss 4
+   tad sbufp
+   dac blk1
+   jms dsboard
+   jmp mark i
+1:
+   lac 9f+t i
+   sad d1
+   skp
+   jmp mark i
+   lac 9f+t
+   cma
+   tad boardp
+   cma
+   dac 9f+t
+   lrs 4
+   and o3
+   tad o60
+   dac 0f
+   lac 9f+t
+   lrs 2
+   and o3
+   tad o60
+   dac 0f+1
+   lac 9f+t
+   and o3
+   tad o60
+"** 14-148-165.pdf page 6
+   dac 0f+2
+   jms messg; 0:0;0;0;0
+   jmp mark i
+t = t+1
+
+try: 0
+
+" check 3g or 3b
+
+   law line-1
+   dac 9
+   -76
+   dac 9f+t+3
+   dzm 9f+t+4
+1:
+   cla
+   xct 9 i
+   xct 9 i
+   xct 9 i
+   xct 9 i
+   sad o3000
+   dac 9f+t+4
+   sad o3
+   skp
+   jmp 2f
+   lac 10
+   dac 12
+   -1
+   dac 12 i
+   -4
+   tad 9
+   dac 9
+   cla
+   xct 9 i
+   sza cla
+   jmp .-2
+   -1
+   tad 9
+   dac 9
+   lac 9 i
+   dac 12 i
+   lac dspflg
+   sza
+   jmp try i
+   jms messg; i>;040;w>;i>;n>;0
+   jmp try i
+2:
+   isz 9f+t+3
+   jmp 1b
+   lac 9f+t+4
+   sna
+   jmp 1f
+   isz try
+   jmp try i
+
+" save
+
+1:
+   isz maxin
+   jmp 1f
+   -1
+"** 14-148-165.pdf page 7
+   dac maxin
+   isz try
+   jmp try i
+1:
+   lac try
+   dac 10 i
+   lac 8
+   dac 10 i
+   lac 9f+t
+   dac 10 i
+   lac 9f+t+1
+   dac 10 i
+   lac 9f+t+2
+   dac 10 i
+
+" check 2g
+
+   law line-1
+   dac 8
+   -76
+   dac 9f+t
+1:
+   cla
+   xct 8 i
+   xct 8 i
+   xct 8 i
+   xct 8 i
+   sad o2
+   skp
+   jmp 2f
+   -4
+   tad 8
+   dac 9
+   cla
+   xct 9 i
+   sza cla
+   jmp .-2
+   lac 9
+   dac 9f+t+1
+   lac 9f+t+1 i
+   dac 9f+t+1
+   cla
+   xct 9 i
+   sza cla
+   jmp .-2
+   lac 9
+   dac 9f+t+2
+   lac 9f+t+2 i
+   dac 9f+t+2
+
+" recurse
+
+   lac d1
+   dac 9f+t+1 i
+   lac o1000
+   dac 9f+t+2 i
+   jms try; jmp prnt
+   lac d1
+   dac 9f+t+2 i
+   lac o1000
+   dac 9f+t+1 i
+"** 14-148-165.pdf page 8
+   jms try; jmp prnt
+   dzm 9f+t+1 i
+   dzm 9f+t+2 i
+2:
+   isz 9f+t
+   jmp 1b
+
+" restore
+   
+   -5
+   tad 10
+   dac 10
+   dac 9
+   lac 9 i
+   dac try
+   lac 9 i
+   dac 8
+   lac 9 i
+   dac 9f+t
+   lac 9 i
+   dac 9f+t+1
+   lac 9 i
+   dac 9f+t+2
+   isz try
+   jmp try i
+
+prnt:
+   lac 9f+t+1 i
+   sad d1
+   jmp 1f
+   lac 9f+t+1
+   dac 12 i
+   lac 9f+t+2
+   jmp 2f
+1:
+   lac 9f+t+2
+   dac 12 i
+   lac 9f+t+1
+2:
+   dac 12 i
+   dzm 9f+t+1 i
+   dzm 9f+t+2 i
+   -5
+   tad 10
+   dac 10
+   dac 9
+   lac 9 i
+   dac try
+   lac 9 i
+   dac 8
+   lac 9 i
+   dac 9f+t
+   lac 9 i
+   dac 9f+t+1
+   lac 9 i
+   dac 9f+t+2
+   jmp try i
+t = t+5
+
+heur: 0
+   jms addpri
+"** 14-148-165.pdf page 9
+   -2
+   tad force
+   dac lforce
+   -1000
+   dac lpri
+   -64
+   dac 9f+t
+   lac boardp
+   dac 9f+t+1
+1:
+   lac 9f+t+1 i
+   sza
+   jmp 3f
+   lac d1
+   dac 9f+t+1 i
+   jms addpri
+   lac force
+   sad lforce
+   jmp 4f
+   lac pri
+   cma
+   tad lpri
+   sma cma
+   jmp 3f-1
+   sza
+   jmp 2f
+   isz prob
+   -1
+   cll; idiv; prob:..
+   lacq
+   lrss 6
+   dac force
+   sys time
+   lacq
+   tad rand
+   cll; mul; 37111
+   lacq
+   dac rand
+   cll; lrs 6
+   cma
+   tad force
+   spa
+   jmp 3f-1
+   jmp 2f+2
+2:
+   lac d1
+   dac prob
+   lac pri
+   dac lpri
+   lac 9f+t+1
+   dac lmov
+   dzm 9f+t+1 i
+3:
+   isz 9f+t+1
+   isz 9f+t
+   jmp 1b
+   lac lmov
+   jms mark; 1
+   jmp heur i
+4:
+   lac 9f+t+1
+"** 14-148-165.pdf page 10
+   jms mark; 1
+   jmp heur i
+t = t+2
+   
+addpri: 0
+   clq
+   law line-1
+   dac 8
+   -76
+   dac 9f+t
+   dzm force
+1:
+   cla
+   xct 8 i
+   xct 8 i
+   xct 8 i
+   xct 8 i
+   sad o2000
+   isz force
+   dac 9f+t+1
+   rtr;rtr;rtr;rar
+   xor 9f+t+1
+   and o77
+   tad 2f
+   dac .+2
+   lacq
+   tad ..
+   lmq
+   isz 9f+t
+   jmp 1b
+   law plane-1
+   dac 8
+   -18
+   dac 9f+t
+1:
+   -16
+   dac 9f+t+1
+   cla
+0:
+   xct 8 i
+   isz 9f+t+1
+   jmp 0b
+pstrat:
+   jms 3f; 04002; 1
+   jms 3f; 03001; 15
+   jms 3f; 04001; 20
+   jms 3f; 1; 1
+   isz 9f+t
+   jmp 1b
+   lacq
+   dac pri
+   jmp addpri i
+2: tad pritab
+3: 0
+   sad 3b i
+   jmp 1f
+   isz 3b
+   isz 3b
+   jmp 3b i
+1:
+   isz 3b
+"** 14-148-165.pdf page 11
+   lacq
+   tad 3b i
+   lmq
+   cla
+   isz 3b
+   jmp 3b i
+t = t+2
+
+dsboard: 0
+   -64
+   dac 9f+t
+   dzm 9f+t+2
+   law board-1
+   dac 8
+   law sbuf-1
+   dac 11
+
+8:
+   lac noblink
+   dac 11 i
+   lac 9f+t+2
+   and o3
+   alss 6
+   dac 9f+t+3
+   alss 1
+   tad 9f+t+3
+   dac 9f+t+3
+   lac 9f+t+2
+   and o14
+   alss 4
+   tad 9f+t+3
+   xor setxv
+   dac 11 i
+   lac 9f+t+2
+   and o74
+   alss 4
+   xor setyv
+   dac 11 i
+   lac 8 i
+   sna
+   jmp 4f
+   sad d1
+   jmp 3f
+   law ex-1
+   jmp 2f
+3: law oh-1
+   jmp 2f
+4: law dot-1
+2: dac 9
+   -12
+   dac 9f+t+1
+1:
+   lac 9 i
+   dac 11 i
+   isz 9f+t+1
+   jmp 1b
+   lac noblink
+   dac 11 i
+   isz 9f+t+2
+   isz 9f+t
+   jmp 8b
+"** 14-148-165.pdf page 12
+   -1
+   dac 11 i
+   lac blinkpar
+   dac blk1 i
+   dac blk2 i
+   jmp dsboard i
+t = t+4
+
+getc: 0
+   cla
+   sys read; 9f+t; 1
+   sna spa
+   sys save
+   lac 9f+t
+   lrss 9
+   jmp getc i
+
+messg: 0
+   -1
+   tad messg
+   dac 9
+1:
+   lac 9 i
+   sna
+   jmp 1f
+   dac 9f+t
+   lac d1
+   sys write; 9f+t; 1
+   jmp 1b
+1:
+   lac d1
+   sys write; o12; 1
+   jmp 9 i
+t = t+1
+
+getpb: 0
+   sys time
+   lac pbadr i
+   and o2000
+   sza
+   sys exit
+   lac pbadr i
+   jmp getpb i

scans/ttt2.s

@@ -0,0 +1,275 @@
+"** 14-148-165.pdf page 13
+" ttt2
+
+boardp: board
+sbufp: sbuf
+qdt: <dt>
+imaxin: -4000
+noblink: 060000
+blinkpar: 070000
+setxv: setx
+setyv: sety
+o12: 012
+o14: 014
+o74: 074
+o3: 03
+o2000: 02000
+o60: 060
+o4: 4
+o3000: 03000
+o4000: 04000
+o2: 2
+o1000: 01000
+d1: 1
+om60: -060
+o77: 077
+line:
+tb = tad board-1
+   tb+52; tb+56; tb+60; tb+64
+   tb+1; tb+6; tb+11; tb+16
+   tb+2; tb+6; tb+10; tb+14
+   tb+2; tb+18; tb+34; tb+50
+   tb+2; tb+22; tb+42; tb+62
+   tb+3; tb+7; tb+11; tb+15
+   tb+3; tb+23; tb+43; tb+63
+   tb+3; tb+19; tb+35; tb+51
+   tb+4; tb+7; tb+10; tb+13
+   tb+4; tb+8; tb+12; tb+16
+   tb+4; tb+19; tb+34; tb+49
+   tb+4; tb+20; tb+36; tb+52
+   tb+4; tb+23; tb+42; tb+61
+   tb+61; tb+62; tb+63; tb+64
+   tb+4; tb+24; tb+44; tb+64
+   tb+5; tb+6; tb+7; tb+8
+   tb+5; tb+21; tb+37; tb+53
+   tb+5; tb+22; tb+39; tb+56
+   tb+6; tb+22; tb+38; tb+54
+   tb+7; tb+23; tb+39; tb+55
+   tb+8; tb+23; tb+38; tb+53
+   tb+8; tb+24; tb+40; tb+56
+   tb+9; tb+10; tb+11; tb+12
+   tb+9; tb+26; tb+43; tb+60
+   tb+9; tb+25; tb+41; tb+57
+   tb+12; tb+28; tb+44; tb+60
+   tb+13; tb+14; tb+15; tb+16
+   tb+13; tb+25; tb+37; tb+49
+   tb+13; tb+26; tb+39; tb+52
+   tb+13; tb+29; tb+45; tb+61
+   tb+13; tb+30; tb+47; tb+64
+   tb+14; tb+26; tb+38; tb+50
+   tb+14; tb+30; tb+46; tb+62
+   tb+15; tb+27; tb+39; tb+51
+   tb+53; tb+54; tb+55; tb+56
+   tb+15; tb+31; tb+47; tb+63
+"** 14-148-165.pdf page 14
+   tb+16; tb+28; tb+40; tb+52
+   tb+16; tb+27; tb+38; tb+49
+   tb+16; tb+31; tb+46; tb+61
+   tb+16; tb+32; tb+48; tb+64
+   tb+17; tb+21; tb+25; tb+29
+   tb+17; tb+18; tb+19; tb+20
+   tb+17; tb+22; tb+27; tb+32
+   tb+18; tb+22; tb+26; tb+30
+   tb+19; tb+23; tb+27; tb+31
+   tb+20; tb+23; tb+26; tb+29
+   tb+20; tb+24; tb+28; tb+32
+   tb+21; tb+22; tb+23; tb+24
+   tb+25; tb+26; tb+27; tb+28
+   tb+29; tb+30; tb+31; tb+32
+   tb+33; tb+34; tb+35; tb+36
+   tb+33; tb+38; tb+43; tb+48
+   tb+33; tb+37; tb+41; tb+45
+   tb+34; tb+38; tb+42; tb+46
+   tb+35; tb+39; tb+43; tb+47
+   tb+36; tb+39; tb+42; tb+45
+   tb+36; tb+40; tb+44; tb+48
+   tb+37; tb+38; tb+39; tb+40
+   tb+41; tb+42; tb+43; tb+44
+   tb+45; tb+46; tb+47; tb+48
+   tb+49; tb+50; tb+51; tb+52
+   tb+49; tb+53; tb+57; tb+61
+   tb+12; tb+27; tb+42; tb+57
+   tb+49; tb+54; tb+59; tb+64
+   tb+50; tb+54; tb+58; tb+62
+   tb+51; tb+55; tb+59; tb+63
+   tb+52; tb+55; tb+58; tb+61
+   tb+57; tb+58; tb+59; tb+60
+   tb+11; tb+27; tb+43; tb+59
+   tb+10; tb+26; tb+42; tb+58
+   tb+1; tb+2; tb+3; tb+4
+   tb+1; tb+5; tb+9; tb+13
+   tb+1; tb+17; tb+33; tb+49
+   tb+1; tb+18; tb+35; tb+52
+   tb+1; tb+21; tb+41; tb+61
+   tb+1; tb+22; tb+43; tb+64
+plane:
+   tb+1; tb+2; tb+3; tb+4; tb+5; tb+6; tb+7; tb+8
+   tb+9; tb+10; tb+11; tb+12; tb+13; tb+14; tb+15; tb+16
+
+   tb+17; tb+18; tb+19; tb+20; tb+21; tb+22; tb+23; tb+24
+   tb+25; tb+26; tb+27; tb+28; tb+29; tb+30; tb+31; tb+32
+
+   tb+33; tb+34; tb+35; tb+36; tb+37; tb+38; tb+39; tb+40
+   tb+41; tb+42; tb+43; tb+44; tb+45; tb+46; tb+47; tb+48
+
+   tb+49; tb+50; tb+51; tb+52; tb+53; tb+54; tb+55; tb+56
+   tb+57; tb+58; tb+59; tb+60; tb+61; tb+62; tb+63; tb+64
+
+   tb+13; tb+14; tb+15; tb+16; tb+29; tb+30; tb+31; tb+32
+   tb+45; tb+46; tb+47; tb+48; tb+61; tb+62; tb+63; tb+64
+
+   tb+9; tb+10; tb+11; tb+12; tb+25; tb+26; tb+27; tb+28
+   tb+41; tb+42; tb+43; tb+44; tb+57; tb+58; tb+59; tb+60
+
+   tb+5; tb+6; tb+7; tb+8; tb+21; tb+22; tb+23; tb+24
+   tb+37; tb+38; tb+39; tb+40; tb+53; tb+54; tb+55; tb+56
+"** 14-148-165.pdf page 15
+   tb+1; tb+2; tb+3; tb+4; tb+17; tb+18; tb+19; tb+20
+   tb+33; tb+34; tb+35; tb+36; tb+49; tb+50; tb+51; tb+52
+
+   tb+1; tb+5; tb+9; tb+13; tb+17; tb+21; tb+25; tb+29
+   tb+33; tb+37; tb+41; tb+45; tb+49; tb+53; tb+57; tb+61
+
+   tb+2; tb+6; tb+10; tb+14; tb+18; tb+22; tb+26; tb+30
+   tb+34; tb+38; tb+42; tb+46; tb+50; tb+54; tb+58; tb+62
+
+
+   tb+3; tb+7; tb+11; tb+15; tb+19; tb+23; tb+27; tb+31
+   tb+35; tb+39; tb+43; tb+47; tb+51; tb+55; tb+59; tb+63
+
+   tb+4; tb+8; tb+12; tb+16; tb+20; tb+24; tb+28; tb+32
+   tb+36; tb+40; tb+44; tb+48; tb+52; tb+56; tb+60; tb+64
+
+   tb+1; tb+6; tb+11; tb+16; tb+17; tb+22; tb+27; tb+32
+   tb+33; tb+38; tb+43; tb+48; tb+49; tb+54; tb+59; tb+64
+
+   tb+4; tb+7; tb+10; tb+13; tb+20; tb+23; tb+26; tb+29
+   tb+35; tb+39; tb+42; tb+45; tb+52; tb+55; tb+58; tb+62
+
+   tb+1; tb+2; tb+3; tb+4; tb+21; tb+22; tb+23; tb+24
+   tb+41; tb+42; tb+43; tb+44; tb+61; tb+62; tb+63; tb+64
+
+   tb+13; tb+14; tb+15; tb+16; tb+25; tb+26; tb+27; tb+28
+   tb+37; tb+38; tb+39; tb+40; tb+39; tb+50; tb+51; tb+52
+
+   tb+1; tb+5; tb+9; tb+13; tb+18; tb+22; tb+26; tb+30
+   tb+35; tb+39; tb+43; tb+47; tb+52; tb+56; tb+60; tb+64
+
+   tb+4; tb+8; tb+12; tb+16; tb+19; tb+23; tb+27; tb+31
+   tb+34; tb+38; tb+42; tb+46; tb+49; tb+53; tb+57; tb+61
+pritab:
+   0;10;22;0
+   0;10;20;0
+   0;30;30;0
+   0;0;0;0;0
+ex:
+   vx 0100
+   vy 020 iv
+   vx 0200
+   vy 040 v
+   vx m 0140
+   vy 0 iv
+   vx 0100
+   vy m 040 v
+   dnop
+   dnop
+   dnop
+   dnop
+oh:
+   vx 0100
+   vy 020 iv
+   vx 0140
+   vy 0 v
+   vx 040
+   vy 040 v
+   vx m 0140
+   vy 0 v
+"** 14-148-165.pdf page 16
+   vx m 040
+   vy m 040 v
+   dnop
+   dnop
+dot:
+   lpenb
+   vx 0200
+   vy 040 iv
+   vx 05
+   vy 0 v
+   vx 0
+   vy m 05 v
+   vx m 05
+   vy 0 v
+   vx 0
+   vy 05 v
+   lpdis
+dbuf:
+   lpdis
+   scale 0
+   setx 0
+   sety 0
+   "
+   vx 01400 v
+   vx 0377
+   vy 0374 v
+   vx m 01377 v
+   vx m 0400
+   vy m 0374 v
+   "
+   setx 0
+   sety 0400
+   vx 01400 v
+   vx 0377
+   vy 0374 v
+   vx m 01377 v
+   vx m 0400
+   vy m 0374 v
+   "
+   setx 0
+   sety 01000
+   vx 01400 v
+   vx 0377
+   vy 0374 v
+   vx m 01377 v
+   vx m 0400
+   vy m 0374 v
+   "
+   setx 0
+   sety 01400
+   vx 01400 v
+   vx 0377
+   vy 0374 v
+   vx m 01377 v
+   vx m 0400
+   vy m 0374 v
+   dnop
+sbuf: .=.+1050
+board: .=.+64
+maxin: .=.+1
+force: .=.+1
+"** 14-148-165.pdf page 17
+pri: .=.+1
+lpri: .=.+1
+lforce: .=.+1
+rand: .=.+1
+lmov: .=.+1
+dspflg: .=.+1
+lpadr: .=.+1
+pbadr: .=.+1
+blink: .=.+1
+blk1: .=.+1
+blk2: .=.+1
+9: .=.+t
+stack:
+
+dnop = 040040
+setx = 0140000
+sety = 0164000
+m = 02000
+scale = 0040040
+v = 020000
+iv = 030000
+vx = 0100000
+vy = 0104000
+lpdis = 0044000
+lpenb = 0046000
+vbl = 0704424

scans/un.s

@@ -0,0 +1,49 @@
+"** 14-148-165.pdf page 18
+" un
+
+   sys open; n.out; 0
+   spa
+   jmp error
+   sys read; buf; 3072
+   cll; idiv; 6
+   lacq; cma; tad d1
+   dac c1
+1:
+   lac t1
+   tad d4
+   dac t2
+   lac i t2
+   sad d3
+   skp
+   jmp 2f
+   lac d1
+   sys write; t1: buf; 4
+   lac d1
+   sys write; mes+1; 1
+2:
+   lac t1
+   tad d6
+   dac t1
+   isz c1
+   jmp 1b
+
+   sys exit
+
+error:
+   lac d1
+   sys write; mes; 2
+   sys exit
+
+mes:
+   077; 012
+n.out:
+   <n.>;<ou>;<t 040;040040
+
+d1: 1
+d6: 6
+d3: 3
+c1: 0
+t2: 0
+d4: 4
+
+buf:

src/cmd/adm.s

@@ -1,3 +1,4 @@
+"** 05-1-4.pdf page 2
 " adm
 
    lac 017777 i
@@ -60,9 +61,10 @@ floop1:
    dac fi
 
    -1
+"** 05-1-4.pdf page 3
    tad name
    dac 8
-   r4
+   -4
    dac c1
 1:
    lac 8 i
@@ -121,6 +123,7 @@ eof:
    dac buf+3 " final check sum
    jms putcard
    jmp floop
+"** 05-1-4.pdf page 4
 
 getword: 0
    lac ipt
@@ -182,6 +185,7 @@ putcard: 0
 
    jmp floop
 
+"** 05-1-4.pdf page 5
 ferror:
    lac name
    dac 1f
@@ -214,7 +218,7 @@ discon:
 
 m1:
    <ha>;<ng>;<up>;012
-m2s = .-m1
+m1s = .-m1
 m2:
    <ab>;<or>;<te>;<d 012
 m2s = .-m2
@@ -243,6 +247,7 @@ disflg: 0
 flush: 0
    lac noc
    sna
+"** 05-1-4.pdf page 6
    jmp flush i
    law 0104
    jms message; tbuf
@@ -304,6 +309,7 @@ putw: 0
 1: 0
 
 putc: 0
+"** 05-1-4.pdf page 7
    and o177
    dac opt i
    -0141
@@ -364,6 +370,7 @@ connect: 0
    and ilock
    sna
    jmp 1b
+"** 05-1-4.pdf page 8
    law 041
    dac echoch
    law 0102
@@ -425,6 +432,7 @@ retry:
    jms transch
    isz c2
    jmp 1b
+"** 05-1-4.pdf page 9
 
 " put out etx character
 2:
@@ -486,7 +494,8 @@ retry:
    lac opch
    sad o122
    jmp i message
-   lac distlg
+"** 05-1-4.pdf page 10
+   lac disflg
    sna
    jmp discon
    jmp stop
@@ -547,6 +556,7 @@ d14: 14
 o400000: 0400000
 o577777: 0577777
 o200500: 0200500
+"** 05-1-4.pdf page 11
 o122: 0122
 o3: 3
 o2: 2
@@ -583,4 +593,4 @@ dpon = 0704701
 dpof = 0704704
 dpwc = 0704722
 dpop = 0704764
-dprs = 0704752
+dprs = 0704752

src/cmd/ald.s

@@ -0,0 +1,266 @@
+"** 05-1-4.pdf page 13
+" ald
+
+   law 17
+   sys sysloc
+   dac crread
+   tad d1
+   dac crchar
+
+   law 4
+   sys sysloc
+   tad d14
+   dac systime
+
+loop:
+   jms holcard
+   lac o12
+   dac buf+4
+   lac d1
+   sys write; buf; 5
+   law 017
+   sys creat; buf
+   spa
+   jmp ferror
+   dac fo
+   dzm noc
+   law obuf
+   dac opt
+   dzm seq
+
+cloop:
+   jms bincard
+   lac buf
+   and o700
+   sad o500
+   skp
+   jmp notbin
+
+   -48
+   dac c1
+   lac buf+3
+   dac sum
+   dzm buf+3
+   law buf-1
+   dac 10
+   cla
+1:
+   add 10 i
+   isz c1
+   jmp 1b
+   sad sum
+   skp
+   jmp badcksum
+
+   lac buf+1
+   sad seq
+   skp
+   jmp badseq
+
+   -1
+   tad buf+2
+   cma
+   dac c1
+"** 05-1-4.pdf page 14
+   law buf+3
+   dac 10
+1:
+   lac 10 i
+   jms putword
+   isz c1
+   jmp 1b
+
+   isz seq
+   lac buf
+   sma
+   jmp cloop
+   lac noc
+   sna
+   jmp 1f
+   dac 0f
+   lac fo
+   sys write; obuf; 0:..
+1:
+   lac fo
+   sys close
+   sys exit
+
+holcard: 0
+   jms rawcard
+   lac 1f
+   dac buf
+   lac 1f+1
+   dac buf+1
+   lac 1f+2
+   dac buf+2
+   lac 1f+3
+   dac buf+3
+   jmp holcard i
+1: <xx>;040040;040040;040040
+
+bincard: 0
+   jms rawcard
+   -24
+   dac c
+   law tbuf-1
+   dac 8
+   law buf-1
+   dac 9
+1:
+   lac 8 i
+   alss 6
+   dac 1f
+   lac 8 i
+   dac 1f+1
+   lac 8 i
+   dac 1f+2
+   lac 1f+1
+   lrss 6
+   xor 1f
+   dac 9 i
+   lac 1f+1
+   alss 12
+   xor 1f+2
+   dac 9 i
+   isz c
+"** 05-1-4.pdf page 15
+   jmp 1b
+   jmp bincard i
+1: 0;0;0
+
+rawcard: 0
+   lac systime i
+   tad wtime
+   dac tmtime
+   -80
+   dac c
+   law tbuf-1
+   dac 8
+   crsb
+1:
+   dzm crread i
+2:
+   lac systime i
+   cma
+   tad tmtime
+   spa
+   jmp timeout
+   lac crread i
+   sna
+   jmp 2b
+   lac crchar i
+   dac 8 i
+   isz c
+   jmp 1b
+   law
+   dac 1f
+   isz 1f
+   jmp .-1
+   jmp rawcard i
+1: 0
+
+badcksum:
+   lac d1
+   sys write; m1; m1s
+   jms wait
+   jmp cloop
+
+badseq:
+   lac d1
+   sys write; m2; m2s
+   jms wait
+   jmp cloop
+
+notbin:
+   lac d1
+   sys write; m3; m3s
+   jms wait
+   jmp cloop
+
+timeout:
+   lac d1
+   sys write; m4; m4s
+   jms wait
+   jmp rawcard+1
+
+m1:
+  <ba>;<d 040; <ch>;<ec>;<ks>;<um>; 012
+"** 05-1-4.pdf page 16
+m1s = .-m1
+
+m2:
+   <ba>;<d 040; <se>;<qu>;<en>;<ce>; 012
+m2s = .-m2
+
+m3:
+   <no>;<t 040; <bi>;<na>;<ry>; 012
+m3s = .-m3
+
+m4:
+  <ti>;<me>;<ou>;<t 012
+m4s = .-m4
+
+wait: 0
+   las
+   dac 2f
+1:
+   las
+   sad 2f
+   jmp 1b
+   and d1
+   sna
+   jmp wait i
+   sys save
+2: 0
+
+putword: 0
+   dac opt i
+   isz opt
+   isz noc
+   lac noc
+   sad d2048
+   skp
+   jmp putword i
+   lac fo
+   sys write; obuf; 2048
+   dzm noc
+   law obuf
+   dac opt
+   jmp putword i
+   jmp putword i
+
+ferror:
+   lac buf
+   dac 1f
+   lac d1
+   sys write; 1:..; 4
+   lac d1
+   sys write; 1f; 1
+   jmp loop
+1: 077012
+
+d1: 1
+d2048: 2048
+d14: 14
+o500: 0500
+o700: 0700
+o12: 012
+wtime: 300
+
+c: .=.+1
+c1: .=.+1
+buf: .=.+100
+tbuf: .=.+80
+fo: .=.+1
+seq: .=.+1
+sum: .=.+1
+obuf: .=.+2048
+noc: .=.+1
+opt: .=.+1
+"** 05-1-4.pdf page 17
+systime: .=.+1
+crread: .=.+1
+crchar: .=.+1
+tmtime: .=.+1
+
+crsb = 0706744

src/cmd/apr.s

@@ -1,3 +1,4 @@
+"** 05-1-4.pdf page 19
 " apr
 
    lac 017777 i
@@ -49,7 +50,7 @@ floop:
    jms putc
    law 044
    jms putc
-   law040
+   law 040
    jms putc
 
 floop1:
@@ -60,6 +61,7 @@ floop1:
    dac 017777 i
    lac name
    tad d4
+"** 05-1-4.pdf page 20
    dac name
 
    sys open; name: ..; 0
@@ -99,6 +101,13 @@ cloop:
    jmp pass2
    sad o10
    jmp bksp
+" -------------- sad o11
+"                jmp tab	"tab:
+"                       	"isz eol
+"                       	"lac col
+"                       	"ell: >div; 5
+"                               "jmp tab
+"                       	"jmp ell
    sad o15
    jmp cret
    sad o40
@@ -121,6 +130,7 @@ inb2:
    dac t
    dac crflg
    lac ch
+"** 05-1-4.pdf page 21
    dac t i
    isz col
    jmp cloop
@@ -182,6 +192,7 @@ p2loop:
    lac t i
    sad o44
    jmp dol
+"** 05-1-4.pdf page 22
    sad o41
    law 045
    sad o77
@@ -243,6 +254,7 @@ p2test:
 
 getc: 0
    lac ipt
+"** 05-1-4.pdf page 23
    sad eipt
    jmp 1f
    dac 2f
@@ -304,6 +316,7 @@ m3s = .-m3
 m4:
    <di>;<sc>;<on>;<ne>;<ct>;<ed>;012
 m4s = .-m4
+"** 05-1-4.pdf page 24
 
 stop:
    dpof
@@ -318,7 +331,7 @@ noc: 0
 carrier: 0100000
 ilock: 040000
 totime: 300
-disflg: 0
+disflg: 0	" 2: both cases
 
 casetab:
    2;2;2;2;2;2;2;2
@@ -328,9 +341,9 @@ casetab:
    2;1;2;2;2;0;0;2
    2;2;2;2;2;0;2;2
    2;2;2;2;2;2;2;2
-   2;2;2;2;2;2;2;1
+   2;2;2;2;2;2;2;1	" 0 - 100 case
-   0;0;0;0;0;0;0;0
+   0;0;0;0;0;0;0;0	" 1 - 200 case
-   0;0;0;0;0;0;0;0
+   0;0;0;0;0;0;0;0	" 2 - 300 case
    0;0;0;0;0;0;0;0
    0;0;0;0;0;0;2;1
    2;1;1;1;1;1;1;1
@@ -342,15 +355,15 @@ gcard: 0
    lac gcard i
    isz gcard
    sna
-   jmp gcard i
+   jmp gcard i	"circled with 3f written in and to the right:
-   lrss 9
+   lrss 9	"3: lac noc
-   sad o45
+   sad o45	"sna
-   jmp 1f
+   jmp 1f	"jmp gcard i
-   jms putc
+   jms putc	"sad d80
-   jmp gcard+1
+   jmp gcard+1  "jmp gcard i
-1:
+1:            	"law 040
-   -1
+   -1         	"jms putc
-   tad gcard i
+   tad gcard i	"jmp 3b
    cma
    dac 2f
    isz gcard
@@ -365,6 +378,7 @@ gcard: 0
 done:
    lac noc
    sna
+"** 05-1-4.pdf page 25
    jmp 1f
    sad d72
    jmp 1f
@@ -426,6 +440,7 @@ connect: 0
    dac dpwrite
    tad d1
    dac dpchar
+"** 05-1-4.pdf page 26
    dzm dpstat i
    las
    dac opch
@@ -450,14 +465,14 @@ message: 0
    dac stsch
 
 retry:
-   lac dpstat i
+   lac dpstat i	"* lac dpstat crossed through and dpstart written in
    and carrier
    sza
    jmp retry
    dprs
-   and ilock
+   and ilock	"* arrow to note carrier drops + iloc
-   sna
+   sna		"* carrier = 0
-   jmp hangup
+   jmp hangup	"* ilock = 1
    lac d1
    dac dpwrite i
    sys time
@@ -486,7 +501,7 @@ retry:
 " echo the sequence character
    lac echoch
    jms transch
-
+"** 05-1-4.pdf page 27
 " if there is a buffer pointer
 " put out 160 words of data
    -1
@@ -547,6 +562,7 @@ retry:
    and o177
    sza
    jmp error
+"** 05-1-4.pdf page 28
 
 " and exit
    lac seqch
@@ -577,7 +593,7 @@ transcd: 0
    jms transch
    isz c2
    jmp 1b
-   jmp transch i
+   jmp transcd i
 
 transch: 0
    lmq
@@ -608,6 +624,7 @@ recvch: 0
 
 checktim: 0
    lac systime i
+"** 05-1-4.pdf page 29
    cma
    tad rctim
    spa
@@ -669,6 +686,7 @@ echoch: .=.+1
 seqch: .=.+1
 tbuf: .=.+144
 rbuf: .=.+64
+"** 05-1-4.pdf page 30
 rctim: .=.+1
 sum: .=.+1
 ch: .=.+1
@@ -681,4 +699,4 @@ dpon = 0704701
 dpof = 0704704
 dpwc = 0704722
 dpop = 0704764
-dprs = 0704752
+dprs = 0704752

src/cmd/as.s

@@ -248,8 +248,8 @@ proc3:
 proc4:
    jms error; .>
    lac d1
-   dac dot		" set '.' type to 1
 "** 05-1-4.pdf page 36
+   dac dot		" set '.' type to 1
    dzm dot+1		" clear dot value
    jmp skip
 
@@ -1014,6 +1014,7 @@ lineno: .=.+1		" source file line number
 fakename: .=.+6		" dummy namelist entry returned by tlookup??
 namlst:			" symbol table
 .=.+4			" dot name
+"** 05-1-4.pdf page 48
 dot:			" dot type, value
 .=.+6			" dot dot name
 cmflx:			" dotdot type, value

src/cmd/bc.s

@@ -1,3 +1,4 @@
+"** 06-5-12.pdf page 7
 " bc
 
    jmp start
@@ -60,6 +61,7 @@ trace: 0
    jmp trace i
 
 dtrace: 0
+"** 06-5-12.pdf page 8
    lac pc
    dac 8
    lac 8 i
@@ -108,7 +110,7 @@ ddisp: 0
    lac lastv
    jms dspnt
    -1
-   dac B i
+   dac 8 i
    lac pbs i
    sza
    jmp .-2
@@ -121,6 +123,7 @@ dspblk: 0
    dac t1
    dzm t2
 1:
+"** 06-5-12.pdf page 9
    lac t1
    sna
    jmp 1f
@@ -182,6 +185,7 @@ histog: 0
    tad histbuf
    dac t1
    isz t1 i
+"** 06-5-12.pdf page 10
    jmp histog i
    jmp .
 
@@ -199,7 +203,7 @@ hisinit: 0
    tad dm1
    dac 8
 1:
-   dsm 8 i
+   dzm 8 i
    isz t1
    jmp 1b
    jmp hisinit i
@@ -209,7 +213,7 @@ olddp: 0
 dspbuf: 0
 dspbp: 0
 instr: 0
-obs: 0
+pbs: 0
 inslitr: n 5
 insasg: b 1
 o17: 017
@@ -243,6 +247,7 @@ badsp:
 badasgn:
    jms flush
    lac d1
+"** 06-5-12.pdf page 11
    sys write; mas; mass
    jmp stop
 mpc:

src/cmd/bi.s

@@ -1,3 +1,4 @@
+"** 06-5-12.pdf page 12
 " bi
 
 start:
@@ -60,6 +61,7 @@ binop:
    tad .+3
    dac .+1
    jmp .. i
+"** 06-5-12.pdf page 13
    jmp . i
    basg; bor; band; beq; bne; ble; blt; bge; bgt; brsh; blsh
    badd; bmin; bmod; bmul; bdiv
@@ -121,6 +123,7 @@ blt:
 bge:
    lac t1 i
    cma
+"** 06-5-12.pdf page 14
    tad t2 i
    spa cla
    lac d1
@@ -182,6 +185,7 @@ bdiv:
 
 consop:
    lac sp
+"** 06-5-12.pdf page 15
    tad d1
    dac sp i
    isz sp
@@ -243,6 +247,7 @@ call:
    lac 8 i
    dac t1
    lac t1 i
+"** 06-5-12.pdf page 16
    dac 9 i
    isz 8
    -1
@@ -303,6 +308,7 @@ goto:
    tad t1 i
    dac pc
    jmp fetch
+"** 06-5-12.pdf page 17
    
 retrn:
    -2
@@ -365,6 +371,7 @@ unaop:
    uadr; umin; uind; unot
 
 uadr:
+"** 06-5-12.pdf page 18
    lac t1
    dac t3 i
    jmp fetch
@@ -427,6 +434,7 @@ addr: 0
 
 pc = 017
 
+"** 06-5-12.pdf page 19
 sp: stack
 dp: stack
 ap: stack

src/cmd/bl.s

@@ -1,3 +1,4 @@
+"** 06-5-12.pdf page 3
 " bl
 
 jmp start
@@ -60,6 +61,7 @@ getc: 0
    lac cibufp
    sad eibufp
    jmp 1f
+"** 06-5-12.pdf page 4
    lac cibufp i
    and o777
    dac iflg
@@ -121,6 +123,7 @@ stop:
 flush: 0
    lac oflg
    sza
+"** 06-5-12.pdf page 5
    isz cobufp
    lac cobufp
    cma
@@ -182,6 +185,7 @@ initio: 0
 .fin: 0
 .fout: 1
 eibufp: 0
+"** 06-5-12.pdf page 6
 cibufp: 0
 iflg: 0
 eobufp: 0