METAFORM

(George Source)
22FL    #OPT K0METAFORM=0   
22^=    #LIS K0METAFORM>K0ALLGEO
23DW    #SEG  METAFORM     [R.CLAYTON   
23YG    # THIS SEGMENT IS USED BY #XKA6 TO FIND SUCH USEFUL 
24D6    # ITEMS AS THE CHAPTER TABLE PMFIXINT FIXINT ETC
24XQ    # CHANGES TO ITS LAYOUT MUST (STRESS MUST) BE REFLECTED IN  
25CB    # CHANGES TO #XKA6 !!!! 
25X2    #   
26BL    # NOTE  WORD 1 OF LOADERI (FIRST LOADER SEGMENT) POINTS HERE
26LD ...K1METAFORM  
26W=          8HMETAFORM
27*W           +DCHTABLE
27TG           +LCHTABLE
28*6           +DPMFIXINT   
28SQ           +LPMFIXINT   
29#B           +DFIXINT 
29S2           +LFIXINT 
2=?L    #   
2=R=    #   THIS IS A LIST OF ITEMS IN PMFIXINT WHICH DON'T 
2?=W    #   HAVE NAMES ON THEM IN THE PROG FILE 
2?QG    #   FIRST THERE IS A COUNT OF THE 3 WORD ENTRIES OF 
2#=6    #   THE FORM POSN IN TABLE; NAME OF SEGMENT 
2#PQ    #   
2*9B          23     [ALWAYS 23 SEGMENTS
2*P2           +JMOPPM,8HMOPPM  
2B8L           +JSPARE,8HSPARE  
2BN=           +JBUFFDUMP,8HBUFFDUMP
2C7W           +JPMFSADDA,8HPMFSADDA
2CMG           +JPMFSADDB,8HPMFSADDB
2D76           +JPMFSADDC,8HPMFSADDC
2DLQ           +JPMTYPES,8HPMTYPES  
2F6B           +JPMSUBSA,8HPMSUBSA  
2FL2           +JPMSUBSB,8HPMSUBSB  
2G5L           +JPMSUBSC,8HPMSUBSC  
2GK=           +JPMTABLEA,8HPMTABLEA
2H4W           +JPMTABLEB,8HPMTABLEB
2HJG           +JPMTABLEC,8HPMTABLEC
2J46           +JPMTABLED,8HPMTABLED
2JHQ           +JPMTABLEE,8HPMTABLEE
2K3B           +JPMTABLEF,8HPMTABLEF
2KH2           +JPMTABLEG,8HPMTABLEG
2L2L           +JPMTABLEH,8HPMTABLEH
2LG=           +JPMTABLEI,8HPMTABLEI
2L^W           +JPMTABLEJ,8HPMTABLEJ
2MFG           +JPMTABLEZ,8HPMTABLEZ
2M^6           +JPMREPLAC,8HPMREPLAC
2NDQ           +JFIXINT,8HFIXINT
2NKY ...#GAP 127-0? 
2NR6 ...#   
2NYB    #END
^^^^ ...353336020089