.TITLE P.MGET .GLOBL H.HGH .MCALL .SETTOP ;MEMORY REQUEST SUBROUTINE ; C CLEAR IF NO MORE MEMORY AVAILABLE ; C SET IF MORE OBTAINED ;NOTE: NO REGISTERS ALTERED P.GMEM:: TSTB V.MFLG BNE 1$ MOV R0,-(SP) .SETTOP #-2 MOV R0,H.HGH INCB V.MFLG MOV (SP)+,R0 SEC 1$: RTS PC .PSECT $MSG,D V.MFLG::.BYTE 0 .END