{{htmlmetatags>metatag-description:(ICL George 3 and George 4 GIN macro: TELEST)}}
====== TELEST ======
(GIN Macro)

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

**Used in:** [[george:source:GETNO865|GETNO865]], [[george:source:IPCPERI83|IPCPERI83]]

<code - TELEST.mac.txt>
 *GFM ...[??? TELEST SECT COMM FGN 19 DOC
 *GS4 ...[ TEST WHETHER THE LINK IS ESTABLISHED  
 *H6G    #MAC           TELEST   
 *HL6    #STRING        %B   
 *J5Q          LDX   2  %B   
 *JKB    #STRING        %B   
 *K52    #SKIP   
 *KJL          LDX   2  FX2  
 *L4=          SMO      AWORK1(2)
 *LHW          LDX   1  ARINGEL(2)   
 *M3G          LDX   0  ASTATUS2(1)  
 *MH6          SLL   0  1
 *N2Q          BNG   0  M1   
 *NGB          LDN   0  1
 *P22          STO   0  %A   
 *PFL          BRN      M2   
 *P^=    M1    SLL   0  1
 *QDW          BPZ   0  M3   
 *QYG          NGN   0  1
 *RD6          STO   0  %A   
 *RXQ          BRN      M2   
 *SCB    M3    SLL   0  1
 *SX2          BPZ   0  M4   
 *TBL          NGN   0  2
 *TW=          STO   0  %A   
 *W*W          BRN      M2   
 *WTG    M4    SLL   0  5
 *X*6          BPZ   0  M5   
 *XSQ          NGN   0  2
 *Y#B          STO   0  %A   
 *YS2          BRN      M2   
 *^?L    M5    STOZ     %A   
 *^R=    M2    LDX   1  FX1  
 B2=W          LDX   2  FX2  
 B2QG    #NOR
</code>