'DP' OW,
      WF,
;
      WF STEP =
         1,0,0,1,2,0,0,3,
         'FOR' 9 'LBR' 0 'RBR'
;BUILD BLOCK:: ('DP' OBJECT WORD , WORD FLAG)'LBR'
      OBJECTWORD  -> OW,
      WORD FLAG -> WF = WF7 'OR' WF = WF12 'OR' WF = WF13:
         OW # 0:
            OW & 07FFF -> N,
            NAMELIST [N] & REGBIT # 0:
               FAULTPRINT(35);;
            NAMELIST [N] 'OR' USE BIT -> NAMELIST [N];
            FAULTPRINT(10),
            NULLX -> OW;    ;;
      WF # WF6 'OR' OW # 0:
         WF -> WO [WO PTR],
         OW -> 'DP' WO [WO PTR+1],
         WO PTR + 3 -> WO PTR>=WO SIZE:
            WRITE WO;;
         LIST (LOWWF,OW,WF),
         WF = WF5 'OR' WF = WF8:
            WF STEP [WF] -> PRIOR STEP;
            WF # WF6:
               WF = WF7 & PRIOR STEP =0:
                  2 -> PRIOR STEP;;
            LC + WF STEP [WF] + PRIOR STEP -> LC,
         0 -> PRIOR STEP;;   ;   ;;
      TLI >=TRANSFER LIST SIZE:
         FAULT PRINT (89),       // FLOWCHART TO COMPLEX
         0 -> TLI;;
      'RBR'
  WRITE WO:'LBR'
      WRITE SEQUENTIAL (SS2,WO,WO SIZE),
      0-> WO PTR,
      'RBR'
.....