mirror of
https://github.com/PDP-10/its.git
synced 2026-01-17 00:33:22 +00:00
93da8b9227
There were two extra TERMINs, one of which was misspelled. Newer MIDAS checks these more strictly.
25 lines
369 B
Groff
25 lines
369 B
Groff
TITLE CONSTS
|
|
|
|
RELOCA
|
|
|
|
DEFINE C%MAKE A,B
|
|
.GLOBAL A
|
|
|
|
IRP LH,RH,[B]
|
|
A==[LH,,RH]
|
|
.ISTOP
|
|
TERMIN
|
|
TERMIN
|
|
|
|
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]
|
|
[C%0,0,0],[C%1,0,1],[C%2,0,2],[C%3,0,3],[C%M1,-1,-1],[C%M2,-1,-2]
|
|
[C%M10,-1,0],[C%M20,-2,0],[C%M30,-3,0],[C%M40,-4,0],[C%M60,-6,0]]
|
|
|
|
IRP A,B,[X]
|
|
C%MAKE A,[B]
|
|
.ISTOP
|
|
TERMIN
|
|
|
|
TERMIN
|
|
END
|