*COMDECK  IOEOPR
          TITLE  IOEOP/IOEOR - WRITE END OF PARTITION/RECORD
**        IOEOP  -  WRITE END OF PARTITION
* 
*         ENTRY  X2 = ADDRESS OF FIT
* 
  
 IOEOP    SUBR   =
  
 OSSC2    IFEQ   HOST,SC2 
          ENDFILE  X2 
 OSSC2    ELSE
          WRITEF X2,R 
 OSSC2    ENDIF 
  
          JP     IOEOP       EXIT 
  
  
**        IOEOR  -  WRITE END OF SECTION (RECORD) 
* 
*         ENTRY  X2 = ADDRESS OF FIT
* 
  
 IOEOR    SUBR   =
  
 OSSC2    IFEQ   HOST,SC2 
          WEOR   X2 
 OSSC2    ELSE
 OSNOS    IFEQ   HOST,NOS 
          RECALL X2 
          SA1    X2          FET WORD 0 
          MX3    -4 
          LX3    14 
          BX6    X3*X1       SET LEVEL = 0 (BITS 17-14) 
          SX0    B1 
          BX6    X0+X6       SET COMPLETE BIT IN FET
          SA6    X2          RESTORE FET WORD 0 
  
          WRITER X2,R        NO LEV PARAMETER IN NOS
  
 OSNOS    ELSE
  
          WRITER X2,0,R 
  
 OSNOS    ENDIF 
 OSSC2    ENDIF 
  
          JP     IOEOR       EXIT 
  
  
