#P2J ...[??? IPCONT SECT CENT FGN 71 DOC
 #P=B    #   
 #PQ2    #   
 #Q9L    #   
 #QP=    #     THIS MACRO CONVERTS A CONTEXT TYPE IP TO CHARS IN ACOMMUNE1 ONWARD
 #R8W    #     %A = WORD TO BE CONVERTED 
 #RNG    #     %B = ACCUMULATOR TO HOLD CH CT ON EXIT
 #S86    #   
 #SMQ    #MAC  IPCONT
 #T7B          LDN   %B 0
 #TM2          LDX   2  FX2  
 #W6L          LDN   1  3
 #WL=    M1IPCONT
 #X5W          LDX   0  %A   
 #XKG          SMO      FX1  
 #Y56          ANDX  0  M2IPCONT-1(1)
 #YJQ          BZE   0  M3IPCONT 
 #^4B          NGN   0  #34(1)   
 #^J2          DCH   0  ACOMMUNE1(2) 
 *23L          BCHX  2  M4IPCONT 
 *2H=    M2IPCONT
 *32W          +JCONTEXTC
 *3GG          +JCONTEXTB
 *426          +JCONTEXTA
 *4FQ    M4IPCONT
 *4^B          LDN   0  #34  
 *5F2          DCH   0  ACOMMUNE1(2) 
 *5YL          BCHX  2  £
 *6D=          ADN   %B 2
 *6XW    M3IPCONT
 *7CG          BCT   1  M1IPCONT 
 *7X6          SBN   %B 1
 *8BQ          LDX   1  FX1  
 *8WB          LDX   2  FX2  
 *9B2    #NOR