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