projects
/
pdp10-muddle.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
MDL 104-106 and Zork executables from Rich Alderson.
[pdp10-muddle.git]
/
<mdl.comp>
/
newcmp.mud.1
1
2
<TITLE NEWCOMP>
3
4
<PSEUDO <SETG *SSNAM *400016*>>
5
<PSEUDO <SETG *RSNAM *16*>>
6
7
<SETZB A* B>
8
<*SETM2 A*>
9
<MOVE A* [<*CLOSE >]>
10
<MOVEI O* *20*>
11
12
LP <XCT A>
13
<ADD A* [<A*>]>
14
<SOJN O* LP>
15
<*SUSET [<(*RSNAM)A>]>
16
<MOVE B* [<SIXBIT "SYS1">]>
17
<*SUSET [<(*SSNAM)B>]>
18
<*OPEN A* MUDOPN>
19
<*VALUE>
20
SELFLD <*SUSET [<(*SSNAM)A>]>
21
<MOVSI P* STUFF>
22
<BLT P* P>
23
<JRST 1>
24
25
MUDOPN <SIXBIT " $DSK">
26
<SIXBIT "TS ">
27
<SIXBIT "NPCOMP">
28
29
STUFF <SIXBIT "NCOMP ">
30
<*CORE 1>
31
<*VALUE>
32
<*CALL *10*>
33
<*VALUE >
34
<*IOT A* A>
35
<*CLOSE A*>
36
<JRST @ A>
37
38
<SETZ>
39
<SIXBIT "LOAD">
40
<(*1000*) *777777*>
41
<SETZI 1>
42
43
\f
\ 3
\ 3