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