ASMB,R,L * NAME : $MDBU * SOURCE: 92064-18035 * RELOC: PART OF 92064-16013 * PROGMR: E.J.W. * * **************************************************************** * * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1976. 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 $MDBU,0 92064-16013 REV.1650 761020 ENT $QCHK,$ALC,$RTN EXT $WORK * $ALC JMP $WORK DO NOTHING ON INITIALIZATION ISZ $ALC CCA (A) = -1 FOR NO MEMORY EVER CLB (B) = 0 FOR MAXIMUM MEMORY = 0 JMP $ALC,I RETURN * $RTN NOP DO NOTHING ON MEMORY BLOCK RETURN ISZ $RTN ISZ $RTN JMP $RTN,I RETURN * $QCHK NOP ISZ $QCHK NO OVERFLOW, RETURN OK JMP $QCHK,I RETURN * BSS 0 SIZE OF MODULE END