*COMDECK /KWMTAB/ 
  MACRO FIELD,A 
  PURGMAC MICRO 
  IF -DEF,QT.,8 
  NOREF TC.,QT.,M.
 TC. SET 0
 QT. SET 1
 L. MICRO ,,//
 QTM. OCTMIC QT.
  QUAL Q."QTM." 
  NOREF H.,I. 
 I. SET 0 
 OM. MICRO 1,,/"L."/
 L. MICRO 1,,A
  IF DEF,M."L.",1 
  SKIP 18 
  QUAL *
  NOREF M."L."
 M."L." SET 0 
  QUAL Q."QTM." 
  IFC GT,/"OM."/"L."/,7 
  QUAL *
 TC. SET TC.+/Q."QTM."/I. 
 QT. SET QT.+1
 QTM. OCTMIC QT.
  QUAL Q."QTM." 
  NOREF I.
 I. SET 0 
 I. SET I.+1
 K. OCTMIC I. 
 TCM. OCTMIC TC.+"K."B
  NOREF T."K."
 T."K." SET "TCM."B 
 V."TCM." MICRO 1,,/"L."/ 
 MICRO OPSYN FIELD
  ENDM
          SPACE     2 
 XPAND1   MACRO     Y 
 M. MICCNT V._Y 
  ECHO 1,P1=(#"V._Y_"#) 
  XPAND2 "V._Y_",M.,"_P1_"
 XPAND1   ENDM
          SPACE     2 
 STEST MACRO A,B,C
  IFC LT,/"_A_"/"_B_"/,C+1
 STEST ENDM 
          SPACE     1 
 SYMSRT MACRO 
  QUAL *
  NOREF QA.,QB.,QD. 
 QA. SET 1
 QB. SET 2
 QD. SET QT.+1
 QAM. OCTMIC QA.
 QBM. OCTMIC QB.
 QDM. OCTMIC QD.
  IFLT QA.,QT.,55 
  DUP QT.,54
  IFEQ QB.,QD.,2
  STOPDUP 
  SKIP 51 
  QUAL Q."QDM." 
  NOREF EA.,EB.,ED.,I.
 EA. SET 1
 EB. SET 1
 ED. SET 0
 EAM. OCTMIC EA.
 EBM. OCTMIC EB.
 VPA. OCTMIC /Q."QAM."/T."EAM." 
 VPB. OCTMIC /Q."QBM."/T."EBM." 
  DUP /Q."QAM."/I.+/Q."QBM."/I.,33
 ED. SET ED.+1
 EDM. OCTMIC ED.
  NOREF T."EDM."
  STEST V."VPA.",V."VPB.",15
 T."EDM." SET "VPA."B 
  IFEQ /Q."QAM."/I.,EA.,9 
  DUP 1+/Q."QBM."/I.-EB.,6
 ED. SET ED.+1
 EDM. OCTMIC ED.
  NOREF T."EDM."
 T."EDM." SET /Q."QBM."/T."EBM."
 EB. SET EB.+1
 EBM. OCTMIC EB.
  STOPDUP 
  SKIP 18 
 EA. SET EA.+1
 EAM. OCTMIC EA.
 VPA. OCTMIC /Q."QAM."/T."EAM." 
  SKIP 14 
 T."EDM." SET "VPB."B 
  IFEQ /Q."QBM."/I.,EB.,9 
  DUP 1+/Q."QAM."/I.-EA.,6
 ED. SET ED.+1
 EDM. OCTMIC ED.
  NOREF T."EDM."
 T."EDM." SET /Q."QAM."/T."EAM."
 EA. SET EA.+1
 EAM. OCTMIC EA.
  STOPDUP 
  SKIP 3
 EB. SET EB.+1
 EBM. OCTMIC EB.
 VPB. OCTMIC /Q."QBM."/T."EBM." 
 I. SET ED. 
  QUAL *
 QA. SET QA.+2
 QB. SET QB.+2
 QD. SET QD.+1
 QAM. OCTMIC QA.
 QBM. OCTMIC QB.
 QDM. OCTMIC QD.
 QDM. OCTMIC QD.-1
 TCM. OCTMIC /Q."QDM."/I. 
 SYMSRT ENDM
  SPACE 1 
 FITTAB MACRO 
  NOREF H.
 H. SET 0 
  DUP "TCM."B,4 
 H. SET H.+1
 C. OCTMIC H. 
 D. OCTMIC /Q."QDM."/T."C." 
  XPAND1 "D." 
 FITTAB ENDM
* END /KWMTAB/
