ASMB,R,L,C * NAME: LIMEM * SOURCE: 91740-18055 * RELOC: 91740-16055 * PGMR: MIKE SCHOENDORF * * *************************************************************** * * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1977. ALL RIGHTS * * * RESERVED. NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED, * * * REPRODUCED OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITHOUT* * * THE PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY. * * *************************************************************** * * NAM LIMEM,8 91740-16055 REV 1740 770912 * * * ENTRY POINT NAMES * ENT LIMEM * * * EXTERNAL REFERENCE NAMES * EXT DB#PC,LIST * * * THIS SUBROUTINE GETS AND RETURNS THE LAST AVAILABLE * WORD OF USER MEMORY AND THE NUMBER OF WORDS OF * AVAILABLE MEMORY. * * SKP LIMEM NOP LDA LIMEM,I GET RETURN ADDRESS ISZ LIMEM STA LIM2 LDB LIMEM,I ISZ LIMEM LDB 1,I GET AVAILABLE MEMORY? SSB JMP LIM2,I NO, RELEASE MEMORY JSB DB#PC FIND LONGEST SEGMENT DEF *+4 RETURN ADDRESS DEF LIST # OF NAMES IN LIST DEF FWAMM FWAM THAT MAY BE USED BY PROGRAM DEF LWAMM LWA OF USER MEMORY LDA FWAMM GET FWAM SZA,RSS =0? JMP ERRLM YES, ERROR LDB LIMEM,I ISZ LIMEM STA 1,I RETURN FWAM CMA,INA ADA LWAMM INA ERRLM LDB LIMEM,I STA 1,I RETURN # WORDS OF AVAILABLE MEMORY JMP LIM2,I * B6 OCT 6 * FWAMM NOP LIM2 NOP LWAMM NOP END