22FL    #   
22^=    #   
23DW    #           [A C PUTMAN 
23YG    #   
24D6    [ INCIDF IS DEFINED IN S/F COMPS RM50.  
24XQ    #OPT  K0IDF=0                      [GENERAL LISTING LEVEL FOR IDF   
25CB    #   
25X2    #DEF  IDFINC=1  
26BL    #OPT  IDFREAD=1 
26W=    #OPT  IDFMARK8=0
27*W    [IDENTIFIERS FOR APERI/APERIDF BLOCK
27TG
29#B    #DEF  IDFWK=A1+2
29S2    #DEF  IDEVIC1=IDFWK+4   
2=?L    #DEF  APERATTRIB=IDEVIC1+2  
2=R=    #DEF  IDEVIC2=APERATTRIB+ATTMAX 
2?5M ...#DEF  APERATT2=IDEVIC2+2
2?D4 ...#DEF  IDEVMN=APERATT2+ATTMAX
2?QG    #DEF  APERIDFLEN=IDEVMN+1-A1
2FL2    #DEF  ASSOCSLEN=5                  [FOR APERI/ASSOCS BLOCK  
2G5L    #DEF  IDFREC=512
2GK=    #DEF  CELLEN=8  
2H4W    #DEF  BMULT=20                     [LARGEST NO OF MULT & UNI ON INSTAL. 
2HJG    [IDENTIFIERS FOR BASE CELL  
2J46    #DEF  BRECNO=1  
2JHQ    #DEF  BUNIT=BRECNO+1
2K3B    #DEF   BIPB=BUNIT+1 
2KH2    #DEF  BCONT=BIPB+1  
2L2L    #DEF  BEXOT=BCONT+1 
2LG=    [IDENTIFIERS FOR UNIT/LINE CELLS
2L^W    #DEF  BNO=1 
2MFG    #DEF  BTYPE=BNO+1   
2M^6    #DEF  BNUMB=BTYPE+1 
2NDQ    #DEF  BLINE=BNUMB+1 
2NYB    #DEF  BASS=6
2PD2    #DEF  BATT=7
2PXL    #DEF  CONTCEP=5                    [DEPENDING ON PTR. TO UNIT CELL  
2QC=
2RW6    #DEF  CIPROPNO=1                   [IN CI CHANNEL CELL  
2S*Q    #DEF  IPROPNO=4                    [IN CI IDENTIFIER CELL   
2SN7 ... BITDEFS BTYPE,1,IDFPSEUDO  
2T2J ... BITDEFS 4,0,IDF7502LP  
2T*2    [IDENTIFIERS FOR WORDS IN IDF/AREMOTE BLOCK 
2TSL    #DEF  APCTLIN=A1                   [LINE NO 
2W#=    #DEF  APCTNO=APCTLIN+1             [NO OF PCT'S ON LINE 
2WRW    #DEF  APCTLS=APCTNO+1   
2X?G    [IDENTIFIERS FOR INTERNAL IDF MACHINE TYPES.
2XR6    #DEF  CONSMACH=1                   [7071 CONSOLE.   
2Y=Q    #DEF  APCTMACH=CONSMACH+1          [7020 PCT.   
2YQB    #DEF  ASENTMACH=APCTMACH+1         [SENTINEL.   
2^=2    #DEF  HIGHTYPE=ASENTMACH           [HIGHEST INTERNAL MACHINE TYPE.  
2^PL    #DEF  K6XATTACH=K6GREATGEO  
^^^^ ...050526210007