TELECOM [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: TELECOM)}}
====== TELECOM ======
(GIN Macro)

**Defined in:** [[george:source:MACS_SPC|MACS SPC]]

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

<code - TELECOM.mac.txt>
 J92=    #MAC  TELECOM   
 J9FW          SETNCORE CPDATA+2-A1,3,ADATA,CREADL   
 J9^G          LDN   0  8
 J=F6          STO   0  A1(3)
 J=YQ          LDN   0  CPDATA(3)
 J?DB          LDN   7  MTELCO(1)
 J?Y2          MOVE  7  2                   [MOVE IN COMMAND 
 J#CL          STOZ     JSOURCE2(2)  
 J#X=          LDCT  0  #770 
 J*BW          STO   0  JSOURCE1(2)         [MARK OPS CONSOLE ORIGIN 
 J*WG          LDCT  0  #400                [SYSTEM ISSUED CONTEXT   
 JBB6          STO   0  CONTEXT(2)   
 JBTQ          ACROSS   COMPROA,1
 JC*B    MTELCO         8HTELELOAD   
 JCT2    #NOR
</code>