GPNS [ICL George 3]

This page is read only. You can view the source, but not change it. Ask your administrator if you think this is wrong.
{{htmlmetatags>metatag-description:(ICL George 3 and George 4 GIN macro: GPNS)}}
====== GPNS ======
(GIN Macro)

**Defined in:** [[george:source:MACROSIPC|MACROSIPC]]

**Used in:** [[george:source:IPCEN8|IPCEN8]]

<code - GPNS.mac.txt>
 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
</code>