*DECK PUTBIN
          IDENT  PUTBIN 
          TITLE  PUTBIN/PUTWEOR -  *PUT* A BINARY RECORD OR EOR 
*CALL     COBIOM
**        PUTBIN -  PUT RECORD ON BINARY FILE 
* 
*         PUTBIN(LOC(RECORD),NWORDS); 
  
  
          ENTRY  PUTBIN 
 PUTBIN   CON    *
          SA2    BINFILE     42/LFN, 18/MISCELLANEOUS 
          MX0    42          77777777777777000000B
          BX2    X0*X2       42/LFN, 18/0 
          ZR     X2,PUTBIN   IF CONTROL CARD HAD B=0,  EXIT 
          SA3    X1 
          SB2    X3          WSA
          SA3    A1+1 
          SA3    X3 
          SB3    X3          RL 
          PUTSQ  BINFILE,B2,B3
          EQ     PUTBIN 
          SPACE  4
**        PUTWEOR -  PUT AN END-OF-RECORD ON LGO FILE 
* 
*         PUTWEOR;
  
  
          ENTRY  PUTWEOR
 PUTWEOR  CON    *           ENTRY/EXIT WORD
          SA2    BINFILE     42/LFN, 18/MISCELLANEOUS 
          MX0    42          77777777777777000000B
          BX2    X0*X2       42/LFN, 18/0 
          ZR     X2,PUTWEOR 
          PUTSQ  BINFILE,0,0 FLUSH CIO BUFFER 
          EQ     PUTWEOR
FIT       SPACE  4
          USE    /BINFET/ 
 BINFILE  BSS    #LENFET# 
          SPACE  4
          END 
