*DECK OPNBIN
          IDENT  OPNBIN 
 OPNBIN   TITLE  OPNBIN - OPEN OBJECT BINARY FILE 
          B1=1
*CALL     COBIOM
**        OPNBIN -  OPEN BINARY FILE
* 
*         OPNBIN(CCTOBJFILE); 
  
  
          ENTRY  OPNBIN 
 OPNBIN   CON    *
          SB1    1
          SA2    X1+0 
          SA5    LGO
          SX5    X5 
          BX7    X5+X2
          SA7    A5 
          EQ     OPNBIN 
FIT       SPACE  4
  
  
          USE    /COMPFIT/
 UFILE    FILEB  COMPBUF,COMPBFS,(RTP=Z)
          USE    *
 DUMM     BSS    0
          ORG    UFILE
          DATA   0
          ORG    DUMM 
 COMPBUF  EQU    0           LET CMM ASSIGN THE BUFFER
  
          ENTRY  UPTR 
 UPTR     CON    UFILE
          USE    /BINFET/ 
 LGO      FILEB  BINBUF,LGOBFS,(RTP=U)
          USE    *
 BINBUF   EQU    0           LET CMM ASSIGN SPACE 
          SPACE  4
          END 
