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