From 2fb917e4b430568efa9c92a4b57f25698a04bd41 Mon Sep 17 00:00:00 2001
From: Tom Everett <tom@khubla.com>
Date: Sat, 19 Oct 2019 17:08:17 -0600
Subject: [PATCH] added moo.s to build and image

---
 build/Makefile |   5 +-
 build/proto    |   1 +
 src/cmd/moo.s  | 514 +++++++++++++++++++++++++++++++++++++++++++++++++
 3 files changed, 519 insertions(+), 1 deletion(-)
 create mode 100644 src/cmd/moo.s

diff --git a/build/Makefile b/build/Makefile
index 8bc377b..e74ae75 100644
--- a/build/Makefile
+++ b/build/Makefile
@@ -97,7 +97,7 @@ cmd: dirs $(BINDIR)/as $(BINDIR)/cat $(BINDIR)/check $(BINDIR)/chmod \
 	$(BINDIR)/dskres $(BINDIR)/dsksav $(BINDIR)/ed $(BINDIR)/init \
 	$(BINDIR)/db $(BINDIR)/stat $(BINDIR)/tm $(BINDIR)/dsw $(BINDIR)/apr \
 	$(BINDIR)/cas $(BINDIR)/rm $(BINDIR)/rn $(BINDIR)/pd $(BINDIR)/nm \
-	$(BINDIR)/roff $(BINDIR)/p $(BINDIR)/apr $(BINDIR)/salv
+	$(BINDIR)/roff $(BINDIR)/p $(BINDIR)/apr $(BINDIR)/salv $(BINDIR)/moo
 
 # Alternate commands: no dd, but . and ..
 altcmd: dirs $(BINDIR)/as $(BINDIR)/cat $(BINDIR)/check $(BINDIR)/chmod \
@@ -200,6 +200,9 @@ $(BINDIR)/p: $(CMDSRC)/p0.s $(CMDSRC)/p1.s $(CMDSRC)/p2.s $(CMDSRC)/p3.s $(CMDSR
 $(BINDIR)/salv: $(CMDSRC)/salv.s
 	$(AS) $(ASARGS) -o $(BINDIR)/salv $(CMDSRC)/salv.s
 
+$(BINDIR)/moo: $(CMDSRC)/moo.s
+	$(AS) $(ASARGS) -o $(BINDIR)/moo $(CMDSRC)/moo.s
+
 # Alternative init: no dd directory
 $(BINDIR)/altinit: $(ALTSRC)/init.s
 	$(AS) $(ASARGS) -o $(BINDIR)/altinit $(ALTSRC)/init.s
diff --git a/build/proto b/build/proto
index 7d9762e..7384cc6 100644
--- a/build/proto
+++ b/build/proto
@@ -42,6 +42,7 @@ dd           drwr- -1 4
         ls       frwr- -1 bin/ls
         lsd      frwr- -1 bin/lsd
         lsl      frwr- -1 bin/lsd
+        moo      frwr- -1 bin/moo
         nm       frwr- -1 bin/nm
         od       frwr- -1 bin/od
         p        frwr- -1 bin/p
diff --git a/src/cmd/moo.s b/src/cmd/moo.s
new file mode 100644
index 0000000..bd272e4
--- /dev/null
+++ b/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 a2
+   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>; 12; 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
+   dac 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 standing
+   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
+9s = .-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