ASMB,R,L,C ** LIMEM ** HED LIMEM - MEMORY LIMITS * NAME: LIMEM * SOURCE: 92067-18477 * RELOC: PART OF 92067-16268 AND 92067-16035 * PGMR: S.K. * * *************************************************************** * * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1979. 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. * * *************************************************************** * * * LIMEM RETURNS THE FIRST WORD OF AVAILABLE MEMORY (IF SEGMENTED * PROGRAM, IT IS HIGH WORD LARGEST SEGMENT + 1) AND THE NUMBER * OF WORDS IN AVAILABLE MEMORY UPTO THE END OF PROGRAM PARTITION * * CALLING SEQUENCE: CALL LIMEM(IWHCH,IFWAM,IWRDS) * WHERE: IF IWHCH IS < 0 THEN JUST RETURN, IFWAM,IWRDS ARE * MEANINGLESS. * IF IWHCH IS >= 0 THEN LIMEM RETURNS: * IFWAM = FIRST WORD OF AVAILABLE MEMORY * IWRDS = NUMBER OF WORDS IN AVAILABLE MEMORY * * * NAM LIMEM,7 92067-1X477 REV.2013 790126 ENT LIMEM * EXT EXEC,.ENTR * IWHCH NOP IFWAM NOP IWRDS NOP * LIMEM NOP JSB .ENTR GET PARAMETERS DEF IWHCH LDA IWHCH,I SSA GET MEMORY LIMITS? JMP LIMEM,I NO, RETURN * JSB EXEC DEF *+5 DEF .26 GET LIMITS DEF IFWAM,I FIRST WORD OF AVAIL MEM DEF IWRDS,I # OF WORDS DEF IWHCH # OF PAGES JMP LIMEM,I RETURN * .26 DEC 26 END