ASMB,R
      NAM DUFIL,7   92065-16009  REV 1726  770512 
* 
**************************************************************
* (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1977.  ALL RIGHTS    *
* RESERVED.  NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED, RE- *
* PRODUCED, OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITH-  *
* OUT THE PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY.  *
**************************************************************
* 
* 
* 
*     SOURCE 92065-18014
* 
* 
      ENT MVNAM,FILRD,FILWR,CLFIL 
      EXT EXEC,PRMT 
      COM TEMPS(30),PNTRS(61),SPEC(10)
LUOUT EQU PNTRS+28
A     EQU 0 
B     EQU 1 
FLFIL EQU PNTRS+39
* 
ENTRY NOP 
      CLA           RESET FILE FLAG 
      STA FLFIL 
* 
      JSB EXEC      .OUTPUT ERROR MESSAGE 
      DEF EXIT
      DEF TWO 
      DEF LUOUT 
      DEF ERRBF 
      DEF BFLEN 
* 
EXIT  JMP ENTRY,I 
* 
TWO   DEC 2 
ERRBF ASC 15,  ERROR - FILE HANDLER ABSENT
BFLEN DEC -29 
* 
MVNAM EQU ENTRY 
FILRD EQU ENTRY 
FILWR EQU ENTRY 
CLFIL EQU ENTRY 
      END 
                                                                                                                                                                                                                                