*COMDECK,FA=EOR 
          CTEXT  FA=EOR - WRITE END-OF-RECORD/SECTION 
 EOR      SPACE  4
          IF     -DEF,QUAL$,1 
          QUAL   FA=EOR 
  
  
**        FA=EOR - WRITE END-OF-RECORD/SECTION. 
* 
* 
*         ENTRY  (X2) = PSEUDO-FET WORD 1 
*                (A2) = PSEUDO-FET ADDRESS
*                (B1) = 1 
* 
*         EXIT   (X2) = PSEUDO-FET WORD 1 
*                (A2) = PSEUDO-FET ADDRESS
*                (B1) = 1 
* 
*         USES   X - 7
*                A - NONE 
*                B - NONE 
* 
*         CALLS  FA=FLSH, WEOR
  
  
 FA=EOR   JP     *+4S15      ** ENTRY/EXIT ** 
          PL     X2,EOR2     IF NO HOLDING BUFFER 
  
          IFEQ   TEST,0,2 
          IX7    X2+X2       LEFT ADJUST SPILL FLAG 
          PL     X7,FA=EOR   IF FILE NOT SPILLED TO DISK, EXIT
  
          RJ     FA=FLSH
 EOR2     WEOR   X2 
          JP     FA=EOR      EXIT 
  
  
          IF     -DEF,QUAL$,2 
          QUAL   *
 FA=EOR   EQU    /FA=EOR/FA=EOR 
  
          IF     -ABS,FA=EOR,1
          ENTRY  FA=EOR 
  
          ENDX
