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