Merge pull request #113 from teverett/master
added moo.s to build and image
This commit is contained in:
Tom Everett
+4
-1
@@ -97,7 +97,7 @@ cmd: dirs $(BINDIR)/as $(BINDIR)/cat $(BINDIR)/check $(BINDIR)/chmod \
|
|||||||
$(BINDIR)/dskres $(BINDIR)/dsksav $(BINDIR)/ed $(BINDIR)/init \
|
$(BINDIR)/dskres $(BINDIR)/dsksav $(BINDIR)/ed $(BINDIR)/init \
|
||||||
$(BINDIR)/db $(BINDIR)/stat $(BINDIR)/tm $(BINDIR)/dsw $(BINDIR)/apr \
|
$(BINDIR)/db $(BINDIR)/stat $(BINDIR)/tm $(BINDIR)/dsw $(BINDIR)/apr \
|
||||||
$(BINDIR)/cas $(BINDIR)/rm $(BINDIR)/rn $(BINDIR)/pd $(BINDIR)/nm \
|
$(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 ..
|
# Alternate commands: no dd, but . and ..
|
||||||
altcmd: dirs $(BINDIR)/as $(BINDIR)/cat $(BINDIR)/check $(BINDIR)/chmod \
|
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
|
$(BINDIR)/salv: $(CMDSRC)/salv.s
|
||||||
$(AS) $(ASARGS) -o $(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
|
# Alternative init: no dd directory
|
||||||
$(BINDIR)/altinit: $(ALTSRC)/init.s
|
$(BINDIR)/altinit: $(ALTSRC)/init.s
|
||||||
$(AS) $(ASARGS) -o $(BINDIR)/altinit $(ALTSRC)/init.s
|
$(AS) $(ASARGS) -o $(BINDIR)/altinit $(ALTSRC)/init.s
|
||||||
|
|||||||
@@ -42,6 +42,7 @@ dd drwr- -1 4
|
|||||||
ls frwr- -1 bin/ls
|
ls frwr- -1 bin/ls
|
||||||
lsd frwr- -1 bin/lsd
|
lsd frwr- -1 bin/lsd
|
||||||
lsl frwr- -1 bin/lsd
|
lsl frwr- -1 bin/lsd
|
||||||
|
moo frwr- -1 bin/moo
|
||||||
nm frwr- -1 bin/nm
|
nm frwr- -1 bin/nm
|
||||||
od frwr- -1 bin/od
|
od frwr- -1 bin/od
|
||||||
p frwr- -1 bin/p
|
p frwr- -1 bin/p
|
||||||
|
|||||||
+514
@@ -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
|
||||||
Reference in New Issue
Block a user