perm filename MKY.FAI[GEM,BGB] blob sn#047852 filedate 1973-06-08 generic text, type T, neo UTF8
COMMENT ⊗   VALID 00002 PAGES 
RECORD PAGE   DESCRIPTION
 00001 00001
 00002 00002	NSUBR MKY,VERTEX,TYPREL
 00003 ENDMK
⊗;
NSUBR MKY,VERTEX,TYPREL
	CALL(MKNODE,[$YNODE])
	LAC 0,TYPREL
	DAC 0,YREL(1)
	PUSHP 2
	LAC 2,VERTEX
LOOP:	PY 0,2
	JUMPE 0,[PY. 1,2
		 NY. 2,1
		 POPP 2
		 POP2J]
	MOVE 2,0
	GO LOOP
SUBREND MKY

NSUBR KLY,NODE
	MOVE 1,NODE
	PUSHP 2↔PUSHP 3
	PY 2,1↔NY 2,1
	PY. 3,2↔SKIPE 3↔NY. 2,3
	CALL(KLNODE,1)
	LAC 1,3
	POPP 3↔POPP 2
	POP1J
SUBREND KLY