*COMDECK,FA=EOF 
          CTEXT  FA=EOF - WRITE END-OF-FILE/PARTITION 
 EOF      SPACE  4
          IF     -DEF,QUAL$,1 
          QUAL   FA=EOF 
  
  
**        FA=EOF - WRITE END-OF-FILE/PARTITION. 
* 
* 
*         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  ENDFILE, FA=FLSH 
  
  
 FA=EOF   JP     *+4S15      ** ENTRY/EXIT ** 
          PL     X2,EOF2     IF NO HOLDING BUFFER 
  
          IFEQ   TEST,0,2 
          IX7    X2+X2       LEFT ADJUST SPILL FLAG 
          PL     X7,FA=EOF   IF FILE NOT SPILLED TO DISK, EXIT
  
          RJ     FA=FLSH
 EOF2     ENDFILE   X2
          JP     FA=EOF      EXIT 
  
  
          IF     -DEF,QUAL$,2 
          QUAL   *
 FA=EOF   EQU    /FA=EOF/FA=EOF 
          ENDX
