Trailing-Edge
-
PDP-10 Archives
-
bb-bt99e-bb
-
ovrlay.c08
There is 1 other file named ovrlay.c08 in the archive. Click here to see a list.
REP 30/1 ;08C1
DECEVR==210 ;DEC EDIT VERSION
WIT
DECEVR==211 ;DEC EDIT VERSION
INS 98/7 ;08C2
;211 HD 21-Nov-83
; Check error return status for FUNCT. call at OVINI2 and make sure it
; doesn't loop if there is not enough memory available.
REP 12/46 ;08C3
SKIPN STATUS ;DID WE WIN?
JRST OVINI3 ;YES
OVINI5: MOVEI T0,1000 ;NO, WILL HAVE TO GO RELOCATABLE
ADDM T0,ADDCOR ;LEAVE SOME SPACE
JRST OVINI2 ;AND TRY AGAIN
WIT
;**;[211] Change code at OVINI2+2 HD 21-Nov-83
SKIPN T1,STATUS ;[211] DID WE SUCCEED
JRST OVINI3 ;YES
CAIN T1,1 ;[211] NO - CHECK FOR NO MEMORY AVAIL
JRST E$$CGM ;[211] IF NO MEMORY AVAILABLE - ISSUE
;ERROR MESSAGE AND DIE
OVINI5: MOVEI T0,1000 ;[211] ELSE HAVE TO GO RELOCATABLE
ADDB T0,ADDCOR ;[211] LEAVE SOME SPACE
CAILE T0,777777 ;[211] HAVE WE GONE TOO FAR?
JRST E$$CGM ;[211] YES SO DIE
JRST OVINI2 ;[211] NO - TRY AGAIN
REP 49/88 ;08C4
PUSHJ P,CRLF ;[100] FINISH THE LINE
WIT
;**;[211] Change one line at E$$STS+3 HD 21-Nov-83
PJRST CRLF ;[211] FINISH THE LINE
SUM 208