mkfs7: add uid function to handle -1

put B files in bwk; tmg files in doug

.gitignore

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

README.md

@@ -3,30 +3,42 @@
 
 ## About
 
-pdp7-unix is a project to resurrect Unix on the PDP-7 from scans of the original
+pdp7-unix is a project to resurrect Unix on the PDP-7 from scans of
-assembly code done by
+the original assembly code done by
 [Norman Wilson](http://www.cs.toronto.edu/~norman/pers/index.html).
 The scans of PDP-7 Unix are in the [Unix Archive](http://www.tuhs.org/)
-[as the files 0*.pdf](http://www.tuhs.org/Archive/Distributions/Research/McIlroy_v0/).
+as the files
+[0*.pdf and 1*.pdf](http://www.tuhs.org/Archive/Distributions/Research/McIlroy_v0/).
 
 ## Current Status
 
-Update mid-March 2016: We've written an assembler, a user-mode simulator and
+### October 2019
-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
+A second notebook with missing sources has been discovered and
+scanned.  The original commands are now in the disk image
+(only the B compiler, date, mv and od are modern programs).
+
+Graphics programs (including Space Travel) are being debugged
+along with a simulation of the display hardware.
+
+### 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
+(replacement) shell. 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: 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.
 
-
 ## Building pdp7-unix
 
-pdp7-unix requires [Perl5](https://www.perl.org/) to build.
+pdp7-unix requires [Perl5](https://www.perl.org/) to build,
+plus the perl DateTime package (debian/Ubuntu libtimedate-perl).
 
 To compile it:
 
@@ -45,12 +57,6 @@ 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:
@@ -58,10 +64,13 @@ A typical pdp7-unix session on simh looks like:
 <pre>
 pdp7 unixv0.simh
 
-PDP-7 simulator V4.0-0 Beta        git commit id: e153b7f2
+PDP-7 simulator V4.0-0 Current        git commit id: aff3346e
 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-18> att -U g2in 12345
+Listening on port 12345
 PDP-7 simulator configuration
 
 CPU	idle disabled
@@ -70,19 +79,31 @@ 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      
+dd
-system  
+..
-hello   
+system
-.       
+sop.s
+s1.s
+s2.s
+s3.s
+s4.s
+s5.s
+s6.s
+s7.s
+s8.s
+maksys.s
+trysys.s
+sys.rc
 @ ls system
 dd      
 ttyin   
@@ -91,24 +112,40 @@ pptin
 ttyout  
 display 
 pptout  
+apr     
 as      
+bc      
+cas     
 cat     
+check   
 chmod   
 chown   
 chrm    
 cp      
 date    
+db      
 ds      
+dskres  
+dsksav  
+dsw     
 ed      
 init    
 ln      
 ls      
+lsd     
+lsl     
+nm      
+od      
+p       
+pd      
 mv      
 password
+roff    
+rn      
+rm      
 sh      
 stat    
-@ cat hello
+tm      
-Hello, world
 @ 
 </pre>
 
@@ -118,9 +155,8 @@ Hello, world
 The code in the original scans are (c) Novell 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
@@ -128,11 +164,6 @@ source code. Everything that didn't come from the scanned files is GPLv3.
 * /src/other holds PDP-7 source code which did not come from the scanned files
 * /tools     holds the source for the tools written to assist the project
 
-## License
-
-pdp7-unix is under the [GPLv3](LICENSE)
-
-
 ## Mailing List
 
 We have 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
+BFLAGS=-Wno-multichar -Wno-implicit
 PDP7=pdp7
 
 # source dirs
 SYSSRC=../src/sys
 CMDSRC=../src/cmd
+GAMESRC=../src/games
 ALTSRC=../src/alt
 OTHERSRC=../src/other
 TESTSRC=../src/tests
@@ -25,19 +26,12 @@ BINARIES=../binaries/
 
 all: cmd others a.out boot.rim image.fs
 
-# Make alternative everything: no dd but . and ..
-alt: altcmd altothers boot.rim alt/a.out alt/image.fs
-
 # The run rule has no dependencies so that the system can be booted easily
 # and frequently with make run. However, you have to manually make all first!
 run:
 	$(PDP7) unixv0.simh
 
-# Alternative run, use the alt/image.fs
+dist:	all
-altrun:
-	$(PDP7) alt/unixv0.simh
-
-dist: all alt
 	mkdir -p $(BINARIES)
 	mkdir -p $(BINARIES)/orig
 	mkdir -p $(BINARIES)/alt
@@ -45,65 +39,88 @@ dist: all alt
 	cp boot.rim $(BINARIES)/orig
 	cp a.out $(BINARIES)/orig
 	cp unixv0.simh $(BINARIES)/orig
-	cp alt/image.fs $(BINARIES)/alt
-	cp alt/a.out $(BINARIES)/alt
-	cp alt/unixv0.simh $(BINARIES)/alt
-
-# Warm boot Unix kernel: boots into init and a login prompt
-a.out:
-	$(AS) -f ptr  -o a.out $(SYSSRC)/sop.s $(SYSSRC)/s[1-8].s
-	$(AS) -n -f list -o a.lst $(SYSSRC)/sop.s $(SYSSRC)/s[1-8].s
-
-# Alternative kernel: no dd, but . and ..
-alt/a.out:
-	$(AS) -f ptr -o alt/a.out $(SYSSRC)/sop.s $(SYSSRC)/s1.s \
-		$(ALTSRC)/s2.s $(SYSSRC)/s[3-8].s
-	$(AS) -n -f list -o alt/a.lst $(SYSSRC)/sop.s $(SYSSRC)/s1.s \
-		$(ALTSRC)/s2.s $(SYSSRC)/s[3-8].s
 
 # Phil's bootstrap code
 boot.rim: $(SYSSRC)/sop.s $(OTHERSRC)/pbboot.s
 	$(AS) -f rim -o boot.rim $(SYSSRC)/sop.s $(OTHERSRC)/pbboot.s
 
+# Warm boot Unix kernel: boots into init and a login prompt
+SYS_FILES=$(SYSSRC)/sop.s $(sort $(wildcard $(SYSSRC)/s[1-8].s))
+a.out:	$(SYS_FILES)
+	$(AS) -f ptr  -o a.out $(SYS_FILES)
+	$(AS) -n -f list -o a.lst $(SYS_FILES)
+
 # Cold boot Unix kernel: attempts to build a minimal filesystem.
 # Don't use this one!
-coldboot:
+COLD_FILES=$(SYS_FILES) $(SYSSRC)/s9.s
-	$(AS) -f rim  -o boot.rim $(SYSSRC)/sop.s $(SYSSRC)/s[1-9].s
+coldboot.rim: $(COLD_FILES)
-	$(AS) -n -f list -o a.lst $(SYSSRC)/sop.s $(SYSSRC)/s[1-9].s
+	$(AS) -f rim  -o coldboot.rim $(COLD_FILES)
+	$(AS) -n -f list -o coldboot.lst $(COLD_FILES)
 
 # Filesystem image
 image.fs: cmd others
 	$(MKFS) -k a.out proto
 	$(FSCK) image.fs
 
-# Alternate filesystem image: . and .. but no dd
-alt/image.fs: altcmd altothers
-	$(MKFS) -1 -2 -3 -o alt/image.fs -k alt/a.out alt/proto
-	$(FSCK) -3 alt/image.fs
-
 clean:
 	rm -f boot.rim image.fs a.lst n.out a.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 \
+cmd: dirs \
-	$(BINDIR)/chown $(BINDIR)/chrm $(BINDIR)/cp $(BINDIR)/ds \
+	$(BINDIR)/adm \
-	$(BINDIR)/dskres $(BINDIR)/dsksav $(BINDIR)/ed $(BINDIR)/init \
+	$(BINDIR)/apr \
-	$(BINDIR)/db
+	$(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)/rm \
+	$(BINDIR)/rn \
+	$(BINDIR)/roff \
+	$(BINDIR)/salv \
+	$(BINDIR)/sh \
+	$(BINDIR)/stat \
+	$(BINDIR)/tm \
+	$(BINDIR)/ttt \
+	$(BINDIR)/un
 
-# Alternate commands: no dd, but . and ..
+# -- compile errors
-altcmd: dirs $(BINDIR)/as $(BINDIR)/cat $(BINDIR)/check $(BINDIR)/chmod \
+$(BINDIR)/adm: $(CMDSRC)/adm.s
-	$(BINDIR)/chown $(BINDIR)/altchrm $(BINDIR)/cp $(BINDIR)/ds \
+	$(AS) $(ASARGS) -o $(BINDIR)/adm $(CMDSRC)/adm.s
-	$(BINDIR)/ed $(BINDIR)/altinit $(BINDIR)/altmkdir
+
+$(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
 
+# NOT the B compiler!
+$(BINDIR)/bc: $(CMDSRC)/bc.s
+	$(AS) $(ASARGS) -o $(BINDIR)/bcx $(CMDSRC)/bc.s
+
+$(BINDIR)/cas: $(CMDSRC)/cas.s
+	$(AS) $(ASARGS) -o $(BINDIR)/cas $(CMDSRC)/cas.s
+
 $(BINDIR)/cat: $(CMDSRC)/cat.s
 	$(AS) $(ASARGS) -o $(BINDIR)/cat $(CMDSRC)/cat.s
 
@@ -119,20 +136,29 @@ $(BINDIR)/chown: $(CMDSRC)/chown.s
 $(BINDIR)/chrm: $(CMDSRC)/chrm.s
 	$(AS) $(ASARGS) -o $(BINDIR)/chrm $(CMDSRC)/chrm.s
 
-$(BINDIR)/altchrm: $(ALTSRC)/chrm.s
-	$(AS) $(ASARGS) -o $(BINDIR)/altchrm $(ALTSRC)/chrm.s
-
 $(BINDIR)/cp: $(CMDSRC)/cp.s
 	$(AS) $(ASARGS) -o $(BINDIR)/cp $(CMDSRC)/cp.s
 
+$(BINDIR)/db: $(CMDSRC)/db.s
+	$(AS) $(ASARGS) -o $(BINDIR)/db $(CMDSRC)/db.s
+
+# -- compile errors
+$(BINDIR)/dmabs: $(CMDSRC)/dmabs.s
+	$(AS) $(ASARGS) -o $(BINDIR)/dmabs $(CMDSRC)/dmabs.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
+$(BINDIR)/dsw: $(CMDSRC)/dsw.s
-	$(AS) $(ASARGS) -o $(BINDIR)/dskres $(CMDSRC)/dskres.s $(CMDSRC)/dskio.s $(SYSSRC)/sop.s
+	$(AS) $(ASARGS) -o $(BINDIR)/dsw $(CMDSRC)/dsw.s
 
-$(BINDIR)/dsksav: $(CMDSRC)/dsksav.s $(CMDSRC)/dskio.s $(SYSSRC)/sop.s
+DSKRES=$(CMDSRC)/dskres.s $(CMDSRC)/dskio.s $(SYSSRC)/sop.s
-	$(AS) $(ASARGS) -o $(BINDIR)/dsksav $(CMDSRC)/dsksav.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)/ed: $(CMDSRC)/ed1.s $(CMDSRC)/ed2.s
 	$(AS) $(ASARGS) -o $(BINDIR)/ed $(CMDSRC)/ed1.s $(CMDSRC)/ed2.s
@@ -140,70 +166,76 @@ $(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
+$(BINDIR)/ln: $(CMDSRC)/ln.s
-	$(AS) $(ASARGS) -o $(BINDIR)/db $(CMDSRC)/db.s
+	$(AS) $(ASARGS) -o $(BINDIR)/ln $(CMDSRC)/ln.s
 
-# Alternative init: no dd directory
+$(BINDIR)/ls: $(CMDSRC)/ls.s
-$(BINDIR)/altinit: $(ALTSRC)/init.s
+	$(AS) $(ASARGS) -o $(BINDIR)/ls $(CMDSRC)/ls.s
-	$(AS) $(ASARGS) -o $(BINDIR)/altinit $(ALTSRC)/init.s
 
-$(BINDIR)/altmkdir: $(ALTSRC)/wktmkdir.s
+$(BINDIR)/moo: $(CMDSRC)/moo.s
-	$(AS) $(ASARGS) -o $(BINDIR)/altmkdir $(ALTSRC)/wktmkdir.s
+	$(AS) $(ASARGS) -o $(BINDIR)/moo $(CMDSRC)/moo.s
 
+$(BINDIR)/nm: $(CMDSRC)/nm.s
+	$(AS) $(ASARGS) -o $(BINDIR)/nm $(CMDSRC)/nm.s
 
+P=$(sort $(wildcard  $(CMDSRC)/p[1-5].s))
+$(BINDIR)/p: $(P)
+	$(AS) $(ASARGS) -o $(BINDIR)/p $(P)
+
+# contains halt!
+$(BINDIR)/pd: $(CMDSRC)/pd.s
+	$(AS) $(ASARGS) -o $(BINDIR)/pd $(CMDSRC)/pd.s
+
+$(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)/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)
+
+$(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 $(BINDIR)/b $(BINDIR)/date $(BINDIR)/mv $(BINDIR)/od
-altothers: dirs $(BINDIR)/sh $(BINDIR)/wktcat $(BINDIR)/wktcp $(BINDIR)/date \
-	$(BINDIR)/ln $(BINDIR)/altls $(BINDIR)/mv $(BINDIR)/stat $(BINDIR)/od
 
-
+# PLB: B compiler -- renamed from bc to b
-$(BINDIR)/sh: $(OTHERSRC)/pbsh.s
+# there is a bc.s in the second set of scans!
-	$(AS) $(ASARGS) -o $(BINDIR)/sh $(OTHERSRC)/pbsh.s
+$(BINDIR)/b: $(CMDSRC)/bl.s $(CMDSRC)/bi.s ../tools/b.c $(OTHERSRC)/b.b
-
+	$(CC) $(BFLAGS) -o b ../tools/b.c
-$(BINDIR)/wktcat: $(OTHERSRC)/wktcat.s
+	./b $(OTHERSRC)/b.b b.s
-	$(AS) $(ASARGS) -o $(BINDIR)/wktcat $(OTHERSRC)/wktcat.s
+	$(AS) $(ASARGS) -o $(BINDIR)/b $(CMDSRC)/bl.s b.s $(CMDSRC)/bi.s
-
+	rm b b.s
-$(BINDIR)/wktcp: $(OTHERSRC)/wktcp.s
-	$(AS) $(ASARGS) -o $(BINDIR)/wktcp $(OTHERSRC)/wktcp.s
 
 $(BINDIR)/date: $(OTHERSRC)/wktdate.s
 	$(AS) $(ASARGS) -o $(BINDIR)/date $(OTHERSRC)/wktdate.s
 
-$(BINDIR)/ln: $(OTHERSRC)/wktln.s
-	$(AS) $(ASARGS) -o $(BINDIR)/ln $(OTHERSRC)/wktln.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
 	$(AS) $(ASARGS) -o $(BINDIR)/mv $(OTHERSRC)/wktmv.s
 
-$(BINDIR)/stat: $(OTHERSRC)/wktstat.s
-	$(AS) $(ASARGS) -o $(BINDIR)/stat $(OTHERSRC)/wktstat.s
-
 $(BINDIR)/od: $(OTHERSRC)/wktod.s
 	$(AS) $(ASARGS) -o $(BINDIR)/od $(OTHERSRC)/wktod.s
 
-# B compiler
-$(BINDIR)/bc: $(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)/bc $(CMDSRC)/bl.s b.s $(CMDSRC)/bi.s
-	rm b b.s
-
 tests:
 	mkdir -p $(TESTDIR)
 	$(AS) $(ASARGS) -o $(TESTDIR)/decimal_out  $(TESTSRC)/decimal_out.s	
@@ -218,5 +250,3 @@ runtests: tests
 	$(A7OUT) $(TESTDIR)/octal_test
 #	$(A7OUT) $(TESTDIR)/testmul
 #	$(A7OUT) $(TESTDIR)/write_test
-
-

build/fs/b_readme

@@ -1,10 +1,11 @@
 Here is how to compile and run hello.b:
 
-  @ bc hello.b hello.s
+  @ b hello.b hello.s
-  @ as ops.s bl.s hello.s bi.s
+  @ ln dmr op.s
+  @ as op.s bl.s hello.s bi.s
   I
   II
-  ops.s   
+  op.s
   bl.s    
   hello.s 
   bi.s    

build/fs/password

@@ -1,3 +1,5 @@
 system:system:system:777777
-ken:ken:ken:12
+ken:ken:ken:10
-dmr:dmr:dmr:14
+dmr:dmr:dmr:11
+bwk:bwk:bwk:12
+doug:doug:doug:14

build/fs/sys.rc

@@ -1,8 +1,8 @@
-chrm ken ops.s
+rm op.s
-ln dmr ops.s ops.s
+link 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/proto

@@ -11,7 +11,7 @@
 # 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 +20,13 @@ dd 	         drwr- -1 4
         ttyout   irwr- -1 11
         display  irwr- -1 12
         pptout   irwr- -1 13
+        adm      frwr- -1 bin/adm
+        password frw-- -1 fs/password
+        adm      frwr- -1 bin/adm
+        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,17 +38,28 @@ 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
+        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
+        un       frwr- -1 bin/un
 	$
     ken      drwr- 10
       system l----  3
@@ -60,13 +76,27 @@ dd 	         drwr- -1 4
       trysys.s   frwr- 10 ../src/sys/trysys.s
       sys.rc     frwr- 10 fs/sys.rc
       $
-    dmr        drwr- 12
+    dmr        drwr- 11
+      system   l----  3
+      as.s     frwr- 11 ../src/cmd/as.s
+      op.s     frwr- 11 ../src/cmd/op.s
+      $
+    bwk        drwr- 12
       system   l----  3
-      as.s     frwr- 12 ../src/cmd/as.s
       b_readme frwr- 12 fs/b_readme
       bi.s     frwr- 12 ../src/cmd/bi.s
       bl.s     frwr- 12 ../src/cmd/bl.s
       db.s     frwr- 12 ../src/cmd/db.s
       hello.b  frwr- 12 ../src/other/hello.b
-      ops.s    frwr- 12 ../src/other/ops.s
+      $
+    doug       drwr- 14
+      system   l----  3
+      t1.s     frwr- 14 ../src/cmd/t1.s
+      t2.s     frwr- 14 ../src/cmd/t2.s
+      t3.s     frwr- 14 ../src/cmd/t3.s
+      t4.s     frwr- 14 ../src/cmd/t4.s
+      t5.s     frwr- 14 ../src/cmd/t5.s
+      t6.s     frwr- 14 ../src/cmd/t6.s
+      t7.s     frwr- 14 ../src/cmd/t7.s
+      t8.s     frwr- 14 ../src/cmd/t8.s
       $

build/unixv0.simh

@@ -13,7 +13,6 @@ 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
 

misc/cas_syntax.txt

@@ -0,0 +1,71 @@
+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
+12x14 character raster.  Draw a line to that coordinate.  Vertical
+coordinates are a-l, and horizontal are a-m.  aa is upper left and mn
+is lower right.  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.
+
+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 labelled "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" beoynd lower right.  End.
+
+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.

scans/README.md

@@ -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:
@@ -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

@@ -108,7 +108,7 @@ ddisp: 0
    lac lastv
    jms dspnt
    -1
-   dac B i
+   dac 8 i
    lac pbs i
    sza
    jmp .-2
@@ -199,7 +199,7 @@ hisinit: 0
    tad dm1
    dac 8
 1:
-   dsm 8 i
+   dzm 8 i
    isz t1
    jmp 1b
    jmp hisinit i

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

@@ -55,7 +55,7 @@ nofiles:
 
 done:
    lac noc
-   sns
+   sna
    sys exit
    and d1
    sna cla

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/fop.s

@@ -0,0 +1,816 @@
+"** 09-1-35.pdf page 1
+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
+  dac 2f
+  dac 3f
+  dac 4f
+  -1
+  tad hexp
+  cma
+  tad aexp
+  dac aexp
+  lac ans
+  lmq
+  lac ams
+  sna cll
+  jmp 8f
+  div
+2:0
+  szl
+  sys save
+  dac ce10
+  lacq
+  dac 5f
+  lac ce10
+  frdiv
+3:0
+  szl
+  sys save
+  lacq
+  dac ce10
+  lac hls
+  and o377777
+  frdiv
+4:0
+  szl
+  sys save
+  lacq
+  dac 2b
+  spa cla
+"** 09-1-35.pdf page 3
+  -1
+  tad 2b
+  cll
+  mul
+5:0
+  dzm 2b
+  spa
+  isz 2b
+  lls 1
+  dac 3b
+  lacq
+  spa
+  isz 3b
+  skp
+  isz 2b
+  lac ce10
+  lmq
+  lac 3b
+  sna
+  jmp 6f
+  cma
+  tad d1
+  stl
+  tad ce10
+  lmq
+  szl
+  isz 2b
+6:lac 2b
+  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
+   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/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/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+vy
+	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
+   fst; g
+   fld; arg2
+   fst; fact
+   fld; fp01
+   fst; d
+   jms capture
+   -100
+   dac j
+   fld; fp0
+   fst; z
+   fst; oldx
+   fst; oldy
+   lac o400000
+   dac i 11
+   dac i 11
+   lac setx
+   dac i 10
+   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/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

@@ -0,0 +1,881 @@
+"** 03-scope.pdf page 3
+:la
+x
+fb
+v
+de
+dh
+fk
+nk
+x
+ik
+v
+gh
+ge
+ib
+kb
+me
+mh
+kk
+x
+mn
+r
+
+:lb
+x
+ba
+v
+nb
+x
+gb
+v
+ee
+eh
+gk
+kk
+mh
+me
+kb
+x
+mn
+r
+
+:lc
+x
+kk
+v
+mh
+me
+kb
+gb
+ee
+eh
+hl
+x
+mn
+r
+
+:ld
+x
+ak
+v
+nk
+x
+"** 03-scope.pdf page 4
+gk
+v
+eh
+ee
+gb
+kb
+me
+mh
+kk
+x
+mn
+r
+
+:le
+x
+lk
+v
+mh
+me
+kb
+gb
+ee
+eh
+gk
+ik
+ib
+x
+mn
+r
+
+:lf
+x
+me
+v
+ce
+ag
+ak
+x
+fc
+v
+fi
+x
+mn
+r
+
+:lg
+x
+nb
+v
+pe
+ph
+mk
+gk
+eh
+ee
+gb
+jb
+le
+lh
+jk
+x
+"** 03-scope.pdf page 5
+mn
+r
+
+:lh
+x
+ab
+v
+nb
+x
+hb
+v
+fe
+fh
+hk
+nk
+x
+mn
+r
+
+:li
+x
+ce
+v
+cg
+eg
+ee
+ce
+x
+gc
+v
+gf
+mf
+x
+mc
+v
+mi
+x
+mn
+r
+
+:lj
+x
+mb
+v
+od
+of
+mh
+fh
+fd
+x
+ce
+v
+cg
+eg
+ee
+ce
+x
+mn
+r
+
+:lk
+"** 03-scope.pdf page 6
+x
+cb
+v
+nb
+x
+jb
+v
+ek
+x
+hd
+v
+nl
+x
+mn
+r
+
+:ll
+x
+md
+v
+mj
+x
+mg
+v
+bg
+be
+x
+mn
+r
+
+:lm
+v
+ea
+x
+ha
+v
+fb
+fd
+hf
+fg
+fj
+hk
+nk
+x
+hf
+v
+nf
+x
+mn
+r
+
+:ln
+x
+fb
+v
+nb
+x
+hb
+v
+ff
+fh
+"** 03-scope.pdf page 7
+hk
+nk
+x
+mn
+r
+
+:lo
+x
+kb
+v
+hb
+fe
+fh
+hk
+kk
+mh
+me
+kb
+x
+mn
+r
+
+:lp
+x
+pb
+v
+eb
+x
+hb
+v
+fe
+fg
+hk
+kk
+mg
+me
+kb
+x
+mn
+r
+
+:lq
+x
+fk
+v
+pk
+pm
+x
+hk
+v
+fh
+fe
+hb
+kb
+me
+mh
+kk
+x
+mn
+r
+
+"** 03-scope.pdf page 8
+:lr
+x
+md
+v
+gd
+x
+fb
+v
+gd
+ff
+fh
+gj
+x
+mn
+r
+
+:ls
+x
+kb
+v
+md
+mh
+lj
+ij
+hh
+gd
+ed
+de
+di
+fj
+x
+mn
+r
+
+:lt
+x
+db
+v
+dj
+x
+ae
+v
+ke
+mf
+mh
+lj
+x
+mn
+r
+
+:lu
+x
+db
+v
+kb
+md
+mg
+ki
+ci
+x
+mk
+"** 03-scope.pdf page 9
+v
+ki
+x
+mn
+r
+
+:lv
+x
+db
+v
+mf
+dj
+x
+mn
+r
+
+:lw
+x
+da
+v
+md
+gg
+mj
+dm
+x
+mn
+r
+
+:lx
+x
+db
+v
+nl
+x
+dj
+v
+na
+x
+mn
+r
+
+:ly
+x
+db
+v
+mf
+x
+dj
+v
+oe
+ob
+x
+mn
+r
+
+:lz
+x
+dc
+v
+di
+mb
+"** 03-scope.pdf page 10
+mj
+x
+mn
+r
+
+"** 03-scope.pdf page 11
+:space
+x
+mn
+r
+
+:excla
+x
+af
+v
+if
+x
+lf
+v
+mg
+nf
+me
+lf
+x
+mn
+r
+
+:quote
+x
+ad
+v
+dd
+x
+ah
+v
+dh
+x
+mn
+r
+
+:number
+x
+ka
+v
+cf
+x
+kf
+v
+ck
+x
+eb
+v
+ej
+x
+ib
+v
+ij
+x
+mn
+r
+
+:dollar
+x
+bj
+v
+bd
+db
+eb
+"** 03-scope.pdf page 12
+gd
+gh
+ij
+jj
+lh
+la
+x
+af
+v
+nf
+x
+mn
+r
+
+:accr
+x
+ah
+v
+cd
+x
+mn
+r
+
+:accl
+x
+ad
+v
+ch
+x
+mn
+r
+
+:lparn
+x
+ag
+v
+ce
+ke
+nh
+x
+mn
+r
+
+:rparn
+x
+ae
+v
+cg
+kg
+nd
+x
+mn
+r
+
+:aster
+x
+gb
+v
+gk
+x
+dd
+"** 03-scope.pdf page 13
+v
+ki
+x
+dh
+v
+kc
+x
+mn
+r
+
+:plus
+x
+gb
+v
+gk
+x
+cf
+v
+lf
+x
+mn
+r
+
+:comma
+x
+mf
+v
+mg
+oe
+mf
+x
+mn
+r
+
+:minus
+x
+gb
+v
+gk
+x
+mn
+r
+
+:period
+x
+le
+v
+lf
+mf
+me
+le
+x
+mn
+r
+
+:sla
+v
+ak
+x
+v
+bj
+"** 03-scope.pdf page 14
+x
+mn
+r
+
+:bsla
+x
+aa
+v
+nl
+x
+mn
+r
+
+:colon
+x
+le
+v
+lf
+mf
+me
+le
+x
+fe
+v
+ff
+gf
+ge
+fe
+x
+mn
+r
+
+:semcln
+x
+mf
+v
+mg
+oe
+mf
+x
+ff
+v
+fg
+gg
+ge
+fe
+x
+mn
+r
+
+:less
+x
+cj
+v
+gb
+kj
+x
+mn
+r
+
+:great
+"** 03-scope.pdf page 15
+x
+cb
+v
+gj
+kb
+x
+mn
+r
+
+:equal
+x
+eb
+v
+ek
+x
+ib
+v
+ik
+x
+mn
+r
+
+:quest
+x
+eb
+v
+bc
+af
+bi
+ek
+if
+mf
+x
+mn
+r
+
+:lbk
+x
+ai
+v
+af
+mf
+mj
+x
+mn
+r
+
+:rbk
+x
+ac
+v
+af
+mf
+mb
+x
+mn
+r
+
+:cmflx
+x
+bc
+"** 03-scope.pdf page 16
+v
+af
+bj
+x
+mn
+r
+
+:under
+x
+na
+v
+nn
+x
+mn
+r
+
+:at
+v
+aa
+ak
+mk
+ma
+x
+ck
+v
+cd
+kd
+kl
+x
+mn
+r
+
+:lbr
+x
+ai
+v
+bf
+ff
+gd
+hf
+lf
+nj
+x
+mn
+r
+
+:rbr
+x
+ac
+v
+bf
+ff
+gh
+hf
+lf
+nb
+x
+mn
+r
+
+:or
+"** 03-scope.pdf page 17
+x
+af
+v
+nf
+x
+mn
+r
+
+:tild
+x
+ai
+v
+dh
+ad
+db
+x
+mn
+r
+
+:null
+r
+
+:percent
+v
+ak
+ab
+eb
+ef
+af
+x
+hg
+v
+hk
+lk
+lg
+hg
+x
+mn
+r
+
+:amper
+x
+mk
+v
+ki
+gf
+ee
+dd
+cd
+ae
+af
+bg
+cg
+ef
+fe
+gc
+ib
+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/st1.s

@@ -0,0 +1,253 @@
+"** 12-92-119.pdf page 1
+" space travel 1
+
+t = 0
+
+start:
+	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
+	dzm locflg
+	dzm locpar
+	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
+	lac par
+	jms absxy
+	jms shipxy
+	lac goflg
+	spa
+	jmp loop3
+	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
+	lac scale
+	cma
+	tad vscale
+	tad aexp
+	dac aexp
+	jms inscr
+		jmp loop4
+	tad o141577
+	dac i clistp
+	lac o164372
+	dac clistp i
+	cla
+	jms dsplanet
+loop4:
+	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
+	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
+	sma
+	jmp 1f
+	fld; cphi
+	fmp; absy
+	fst; ftmp1
+	fld; sphi
+	fmp; absx
+	fad; ftmp1
+	fdv; dpar
+	fst; stheta
+	fld; sphi
+	fmp; absy
+	fng
+	fst; ftmp1
+	fld; cphi
+	fmp; absx
+	fad; ftmp1
+	fdv; dpar
+	fst; ctheta
+	jmp 2f
+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
+	vecx 767
+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/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: .=.+1
+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

@@ -62,7 +62,7 @@ floop1:
    -1
    tad name
    dac 8
-   r4
+   -4
    dac c1
 1:
    lac 8 i
@@ -214,7 +214,7 @@ discon:
 
 m1:
    <ha>;<ng>;<up>;012
-m2s = .-m1
+m1s = .-m1
 m2:
    <ab>;<or>;<te>;<d 012
 m2s = .-m2
@@ -486,7 +486,7 @@ retry:
    lac opch
    sad o122
    jmp i message
-   lac distlg
+   lac disflg
    sna
    jmp discon
    jmp stop
@@ -583,4 +583,4 @@ dpon = 0704701
 dpof = 0704704
 dpwc = 0704722
 dpop = 0704764
-dprs = 0704752
+dprs = 0704752

src/cmd/ald.s

@@ -0,0 +1,256 @@
+"** 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
+
+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
@@ -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

@@ -108,7 +108,7 @@ ddisp: 0
    lac lastv
    jms dspnt
    -1
-   dac B i
+   dac 8 i
    lac pbs i
    sza
    jmp .-2
@@ -199,7 +199,7 @@ hisinit: 0
    tad dm1
    dac 8
 1:
-   dsm 8 i
+   dzm 8 i
    isz t1
    jmp 1b
    jmp hisinit i

src/cmd/cas.cas

@@ -0,0 +1,551 @@
+: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
+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
+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
+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
+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
+mc
+mi
+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
+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
+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
+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
+r

src/cmd/cas.s

@@ -1,8 +1,8 @@
 "** 04-cas.pdf page 1
 " cas
 
-	" Usage: cas [ input [ output ] ]
+	" Usage: cas output input
-	" graphics display character assembler???
+	" graphics display character assembler
 
    narg = i 017777
 

src/cmd/check.s

@@ -108,7 +108,7 @@ iloop:
 
 dupcheck: 0
    isz blcnt
-   jms betwen i d709; d6400
+   jms betwen i; d709; d6400
    jmp badadr
    dac t5
    lrss 4
@@ -128,8 +128,6 @@ dupcheck: 0
    lac i t6
    xor bit
    dac i t6
-   xor bit
-   dac i t6
    jmp i dupcheck
 
 badadr:
@@ -181,7 +179,7 @@ part2:
    sys write; m4; m4s
    lac indircnt
    jms print
-   dac d1
+   lac d1
    sys write; m5; m5s
    lac blcnt
    jms print

src/cmd/dsw.s

@@ -1,3 +1,4 @@
+"** 07-13-19.pdf page 45
 " dsw
 
    lac djmp
@@ -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

src/cmd/fop.s

@@ -0,0 +1,816 @@
+"** 09-1-35.pdf page 1
+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
+  dac 2f
+  dac 3f
+  dac 4f
+  -1
+  tad hexp
+  cma
+  tad aexp
+  dac aexp
+  lac ans
+  lmq
+  lac ams
+  sna cll
+  jmp 8f
+  div
+2:0
+  szl
+  sys save
+  dac ce10
+  lacq
+  dac 5f
+  lac ce10
+  frdiv
+3:0
+  szl
+  sys save
+  lacq
+  dac ce10
+  lac hls
+  and o377777
+  frdiv
+4:0
+  szl
+  sys save
+  lacq
+  dac 2b
+  spa cla
+"** 09-1-35.pdf page 3
+  -1
+  tad 2b
+  cll
+  mul
+5:0
+  dzm 2b
+  spa
+  isz 2b
+  lls 1
+  dac 3b
+  lacq
+  spa
+  isz 3b
+  skp
+  isz 2b
+  lac ce10
+  lmq
+  lac 3b
+  sna
+  jmp 6f
+  cma
+  tad d1
+  stl
+  tad ce10
+  lmq
+  szl
+  isz 2b
+6:lac 2b
+  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
+   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

src/cmd/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

src/cmd/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:

src/cmd/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

src/cmd/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:

src/cmd/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

src/cmd/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+vy
+	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

src/cmd/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

src/cmd/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

src/cmd/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

src/cmd/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:

src/cmd/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:

src/cmd/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
+   fst; g
+   fld; arg2
+   fst; fact
+   fld; fp01
+   fst; d
+   jms capture
+   -100
+   dac j
+   fld; fp0
+   fst; z
+   fst; oldx
+   fst; oldy
+   lac o400000
+   dac i 11
+   dac i 11
+   lac setx
+   dac i 10
+   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:

src/cmd/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
+

src/cmd/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

src/cmd/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

src/cmd/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

src/cmd/scope.cas

@@ -1,5 +1,3 @@
-r
-
 :la
 x
 fb
@@ -77,11 +75,17 @@ r
 
 :le
 x
-me
+lk
 v
-ce
+mh
-ag
+me
-ak
+kb
+gb
+ee
+eh
+gk
+ik
+ib
 x
 mn
 r
@@ -627,6 +631,7 @@ r
 :colon
 x
 le
+v
 lf
 mf
 me
@@ -646,7 +651,7 @@ r
 x
 mf
 v
-mo
+mg
 oe
 mf
 x
@@ -654,6 +659,7 @@ ff
 v
 fg
 gg
+ge
 fe
 x
 mn
@@ -763,7 +769,7 @@ x
 mn
 r
 
-Llbr
+:lbr
 x
 ai
 v
@@ -857,5 +863,3 @@ ik
 x
 mn
 r
-
-

src/cmd/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:

src/cmd/st1.s

@@ -0,0 +1,253 @@
+"** 12-92-119.pdf page 1
+" space travel 1
+
+t = 0
+
+start:
+	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
+	dzm locflg
+	dzm locpar
+	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
+	lac par
+	jms absxy
+	jms shipxy
+	lac goflg
+	spa
+	jmp loop3
+	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
+	lac scale
+	cma
+	tad vscale
+	tad aexp
+	dac aexp
+	jms inscr
+		jmp loop4
+	tad o141577
+	dac i clistp
+	lac o164372
+	dac clistp i
+	cla
+	jms dsplanet
+loop4:
+	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

src/cmd/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

src/cmd/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
+	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

src/cmd/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
+	sma
+	jmp 1f
+	fld; cphi
+	fmp; absy
+	fst; ftmp1
+	fld; sphi
+	fmp; absx
+	fad; ftmp1
+	fdv; dpar
+	fst; stheta
+	fld; sphi
+	fmp; absy
+	fng
+	fst; ftmp1
+	fld; cphi
+	fmp; absx
+	fad; ftmp1
+	fdv; dpar
+	fst; ctheta
+	jmp 2f
+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

src/cmd/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

src/cmd/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

src/cmd/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
+	vecx 767
+dspl:
+	0400000

src/cmd/stat.s

@@ -0,0 +1,119 @@
+"** 13-120-147.pdf page 1
+" stat
+
+arg = 017777
+
+   lac arg
+   tad d1
+   dac name
+
+loop:
+   lac arg i
+   sad d4
+   sys exit
+   tad dm4
+   dac arg i
+   lac name
+   tad d4
+   dac name
+
+   law statbuf
+   sys status; dotdot; name: ..
+   spa
+   jmp error
+   law obuf-1
+   dac 12
+   lac ii
+   lmq
+   -3
+   jms octal
+   lac iflags
+   lmq
+   -2
+   jms octal
+   lac iuid
+   lmq
+   -2
+   jms octal
+   -1
+   tad inlks
+   cma
+   lmq
+   -2
+   jms octal
+   lac isize
+   lmq
+   -5
+   jms octal
+   lac o12
+   dac obuf+18
+   lac d1
+   sys write; obuf; 19
+   jmp loop
+
+error:
+   lac name
+   dac 1f
+   lac d1
+   sys write; 1:..; 4
+   lac d1
+   sys write; 1f; 2
+   jmp loop
+1: 040077; 012
+
+"** 13-120-147.pdf page 2
+octal: 0
+   dac c
+   law tbuf-1
+   dac 8
+   lac o40
+   dac 8 i
+1:
+   lacq
+   and o7
+   tad o60
+   dac 8 i
+   lrs 3
+   isz c
+   jmp 1b
+   lac 8
+   dac c
+1:
+   lac c i
+   dac 12 i
+   sad o40
+   jmp octal i
+   -1
+   tad c
+   dac c
+   jmp 1b
+
+dotdot:
+   056056; 040040; 040040; 040040
+
+d1: 1
+d2: 2
+d3: 3
+d8: 8
+d14: 14
+d12: 12
+o12: 012
+o60: 060
+o40: 040
+o7: 7
+d4: 4
+dm4: -4
+
+c: .=.+1
+
+statbuf:
+   iflags: .=.+1
+   .=.+7
+   iuid: .=.+1
+   inlks: .=.+1
+   isize: .=.+1
+   .=.+1
+   ii: .=.+1
+
+obuf: .=.+19
+tbuf: .=.+10

src/cmd/t1.s

@@ -0,0 +1,69 @@
+"** 13-120-147.pdf page 5
+t=0
+main:
+  lac 017777 i
+  sad d4
+  jmp 2f
+  sad d8
+  jmp 1f
+  law 9
+  tad 017777
+  dac 0f
+  law 017
+  sys creat;0:0
+  dac output
+1:law 5
+  tad 017777
+  dac 0f
+  sys open;0:0;0
+  dac input
+  spa
+  sys exit
+2:
+  jms advance; jmp 1f
+  jmp rinterp
+
+0:lac 2f
+  jms obuild
+1:lac owrite
+  spa
+  jmp 0b
+  jms oflush
+  las
+  spa
+  sys exit
+  sys save
+2:o777
+
+
+"special machine language code
+
+"puts out and octal strin g from symtab entry
+
+symoct:
+  lac equ
+  add equbot
+  dac 9f+t
+  lac 1f
+  jms twoktab; lac 9f+t i
+1:gf  .+1 x
+  lac ii
+  dac 8
+  lac 8 i
+  add symbot
+  dac 9f+t
+
+2:lac 9f+t i
+  jms putoct
+  lac onenl
+  jms obuild
+  lac 9f+t i
+  and o600600
+  sza    "skip unless word contained eof (0777)
+  jmp ggoon
+  
+"** 13-120-147.pdf page 6
+  isz 9f+t
+  jmp 2b
+t=t+1
+o600600:0600600