perm filename LINKS[LSP,BGB]3 blob
sn#043274 filedate 1973-05-19 generic text, type C, neo UTF8
COMMENT ⊗ VALID 00002 PAGES
C REC PAGE DESCRIPTION
C00001 00001
C00002 00002 TITLE LINKS
C00005 ENDMK
C⊗;
TITLE LINKS
POP1J.:SUB 17,[XWD 2,2]↔JRST@2(17)
POP2J.:SUB 17,[XWD 3,3]↔JRST@3(17)
DEFINE DATUM $(NAM,WRD){
INTERN NAM,NAM$.↔NAM:↔MOVE 1,-1(17)
MOVE 1,WRD(1)↔JRST POP1J.
NAM$.: MOVE 1,-1(17)↔MOVE 2,-2(17)↔MOVEM 1,WRD(2)
JRST POP2J.}
DEFINE LEFT $(NAM,WRD){
INTERN NAM,NAM$.↔NAM:↔MOVE 1,-1(17)
HLRZ 1,WRD(1)↔JRST POP1J.
NAM$.: MOVE 1,-1(17)↔MOVE 2,-2(17)↔HRLM 1,WRD(2)
JRST POP2J.}
DEFINE RITE $(NAM,WRD){
INTERN NAM,NAM$.↔NAM:↔MOVE 1,-1(17)
HRRZ 1,WRD(1)↔JRST POP1J.
NAM$.: MOVE 1,-1(17)↔MOVE 2,-2(17)↔HRRM 1,WRD(2)
JRST POP2J.}
DEFINE DLEFT $(NAM,WRD){
INTERN NAM,NAM$.↔NAM: MOVE 1,-1(17)
HLLE 1,WRD(1)↔JRST POP1J.
NAM$.: MOVE 1,-1(17)↔MOVE 2,-2(17)↔HLLM 1,WRD(2)
JRST POP2J.}
DEFINE DRITE $(NAM,WRD){
INTERN NAM,NAM$.↔NAM: MOVE 1,-1(17)
HRLE 1,WRD(1)↔JRST POP1J.
NAM$.: MOVE 1,-1(17)↔MOVE 2,-2(17)↔HLRM 1,WRD(2)
JRST POP2J.}
DATUM(XWC,-3)
DATUM(YWC,-2)
DATUM(ZWC,-1)
DATUM(XPP,4)
DATUM(YPP,5)
DATUM(ZPP,6)
DLEFT(XDC,1)
DRITE(YDC,1)
LEFT(NFACE,1)↔RITE(PFACE,1)
LEFT(NED,2)↔RITE(PED,2)
LEFT(NVT,3)↔RITE(PVT,3)
LEFT(DAD,4)↔RITE(SON,4)
LEFT(BRO,5)↔RITE(SIS,5)
LEFT(ALT,6)↔RITE(ALT2,6)
LEFT(CW,7)↔RITE(CCW,7)
INTERN GPUSH GPOP
EXTERNAL PDLPTR
GPUSH: MOVE 1,PDLPTR
PUSH 1,-1(17)
MOVEM 1,PDLPTR
MOVE 1,(1)
JRST POP1J.
GPOP: MOVE 2,PDLPTR
POP 2,1
MOVEM 2,PDLPTR
JRST POP1J.
END