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.int>
/
const.mid.5
1
TITLE CONSTS
2
3
RELOCA
4
5
DEFINE C%MAKE A,B
6
.GLOBAL A
7
8
IRP LH,RH,[B]
9
A==[LH,,RH]
10
.ISTOP
11
TERMIM
12
TERMIN
13
TERMIN
14
15
IRP X,,[[C%11,1,1],[C%22,2,2],[C%33,3,3],[C%44,4,4],[C%55,5,5],[C%66,6,6]
16
[C%0,0,0],[C%1,0,1],[C%2,0,2],[C%3,0,3],[C%M1,-1,-1],[C%M2,-1,-2]
17
[C%M10,-1,0],[C%M20,-2,0],[C%M30,-3,0],[C%M40,-4,0],[C%M60,-6,0]]
18
19
IRP A,B,[X]
20
C%MAKE A,[B]
21
.ISTOP
22
TERMIN
23
24
TERMIN
25
TERMIN
26
END