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 
                                                                                                                                  