(GIN Macro)
Defined in: MACROSIPC
Used in: IPCEN8
4Q8X ...[??? GPNS SECT COMM FGN 19 DOC 4QH# ...[ GET THE NAMES OF THE PROGRAMS AT EITHER END OF THE LINK 4QTQ #MAC GPNS 4R*B STO 1 GEN0 4RT2 HUNT2B 1,AOBRES,0,2 4S#L LDX 0 A1+1(1) 4SS= STO 0 %A [GIVE 1ST PROGRAM NAME 4T?W SMO AWORK1(2) 4TRG LDX 1 ARINGEL(2) 4W?6 SBX 1 AWORK1(2) 4WQQ LDX 0 ASTATUS2(1) 4X=B ADX 1 AWORK1(2) 4XQ2 SLL 0 1 4Y9L BPZ 0 M1 [J IF LINK ESTABLISHED 4YP= STOZ %B [2ND PROGRAM NAME=0 4^8W BRN MX 4^NG M1 LDX 0 ALTPROG(1) 5286 BZE 0 M2 [J IF WMC LINK 52MQ STO 0 %B 537B BRN MX 53M2 M2 LDX 0 AWORK1(2) 546L SBX 2 0 54L= LDX 1 ARINGEL+1(2) 555W ADX 2 0 55KG SBN 1 ARINGEL 5656 HUNT2B 1,AOBRES,0 56JQ LDX 0 A1+1(1) 574B STO 0 %B 57J2 MX LDX 1 GEN0 583L #NOR