%recordformat quad fm(%integer a, b) %include "SYSINC:IO.INC" %include "SYSINC:FID.INC" %include "SYSINC:FAB.INC" %include "SYSINC:RAB.INC" %include "SYSINC:NAM.INC" %include "SYSINC:XABDAT.INC" %include "SYSINC:XABFHC.INC" %include "SYSINC:XABPRO.INC" %include "SYSINC:QIOACP.INC" %include "SYSINC:SECTION.INC" %include "CONFIG.INC" %include "COMMON.INC" %begin %record(common fm) common %integer cs, ce, d cs = addr(common) ce = addr(common_end) + 3 phex(cs); newline phex(ce); newline d = ce - cs write(d, 0) write(d >> 9, 1) newline %end %of %program