ASMB,R,L,C HED COMPILER LIBRARY END ROUTINE NAM END.C,7 92064-16089 781006 REV. 1901 $CLIB * * *************************************************************** * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1977. ALL RIGHTS * * RESERVED. NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED, RE- * * REPRODUCED, OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITH- * * OUT THE PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY. * *************************************************************** * * * * SOURCE PART NUMBER : 92064-18260 * * * END ROUTINE * * THIS ROUTINE WILL SEARCH THE LINKED LIST OF FCB'S AND CLOSE ALL * FILES. * * * * * * * CALLING SEQUENCE: * * JSB END.C * DEF COMLST THIS LIST IS NOT USED IN RTE-M * ERROR RETURN * * * * ENTRY POINT: * ENT END.C * * EXTERNALS: * EXT LIMEM RETURN MEMORY EXT EXEC SYSTEM EXEC EXT PRTN PARAMETER RETURNER EXT CLO.C CLOSE ROUTINE EXT C.HLK HEAD OF FCB LIST * * * * * DETERMINE TYPE OF OPERATION * * THE FCB CONTAINS THE OPERATION TYPE AS FOLLOWS: * * TYPE = 0 IS READ SOURCE FILE(OR LU) * = 1 IS WRITE BINARY FILE(OR LU) * = 2 IS WRITE SCRATCH FILE * = 3 IS WRITE LIST FILE(OR LU) * * * * END.C NOP LDA C.HLK GET ADDRESS OF END1 STA FCB OF FCB SZA,RSS END? JMP EXIT YES! JSB CLO.C CLOSE FCB FCB NOP JMP ERROR ERROR! LDA FCB,I GET NEXT FCB ADDRESS JMP END1 AND CLOSE IT * ERROR ISZ END.C STEP TO RETURN JSB LIMEM RETURN MEMORY DEF *+2 DEF M1 JMP END.C,I ERROR RETURN * EXIT JSB EXEC DEF *+2 DEF .6 * .6 DEC 6 M1 DEC -1 END