KFH6    #MAC  SETELOG   
 KG2Q          LDX   0  %B   
 KGGB          ADN   0  12   
 KH22          SETUPCORE 0,2,ADATA,ELOUT 
 KHFL          STOZ     A1(2)
 KH^=          LDN   0  A1(2)
 KJDW          LDN   1  A1+1(2)  
 KJYG          SMO      %B   
 KKD6          MOVE  0  11   
 KKXQ          LDX   0  %B   
 KLCB          ADN   0  11   
 KLX2          STO   0  ELDMECT(2)   
 KMBL          LDCT  0  #600 
 KMW=          ADX   0  %C   
 KN*W          STO   0  ACSTSN(2)
 KNTG          LDN   0  128  
 KP*6          STO   0  ELDMEINF(2)  
 KPSQ          LDX   0  2
 KQ#B          LDX   1  FX1  
 KQS2          LDX   2  FX2  
 KR?L          STO   0  %A   
 KRR=    #NOR