Trailing-Edge
-
PDP-10 Archives
-
bb-bt99g-bb
-
cobst.c07
There is 1 other file named cobst.c07 in the archive. Click here to see a list.
INS 30/1 ;07C1
;22-AUG-83 JEH [1076] Add error trapping after GET call for OTS
;***** 12B
REP 109/2 ;07C2
TRO T1,GT%ADR ;CHECK ADDRESS LIMITS
MOVE T2,[400,,677] ;ALL OF HIGH SEGMENT
GET% ;GET THE OTS.
WIT
TRO T1,GT%ADR!GT%NOV ;[1076] CHECK ADDRESS LIMITS, OVERLAYS
MOVE T2,[400,,677] ;ALL OF HIGH SEGMENT
GET% ;GET THE OTS.
ERJMP GTFAIL ;[1076] DIDN'T GET IT
INS 32/3 ;07C3
GTFAIL: HRROI T1,[ASCIZ /
?/] ;[1076]
PSOUT% ;[1076]
MOVEI T1,.FHSLF ;[1076] SET UP PROCESS HANDLE
GETER% ;[1076] GET THE ERROR NUMBER
CAMN T2,[.FHSLF,,GETX3] ;[1076] WILL WE OVERWRITE APPLICATION?
JRST GTFL1 ;[1076] YES
MOVEI T1,.PRIOU ;[1076] NO, USE MONITOR ERROR MESSAGE
HRLOI T2,.FHSLF ;[1076]
SETZ T3, ;[1076]
ERSTR% ;[1076] PRINT IT
JFCL ;[1076]
JFCL ;[1076]
HALTF% ;[1076] SHUT DOWN
JRST GTFAIL ;[1076] DON'T ALLOW CONTINUE
GTFL1: HRROI T1,GTFSTR ;[1076] PRINT MESSAGE ADVISING USE OF
PSOUT% ;[1076] /R SWITCH, THEN IT'S UP TO LINK
HALTF% ;[1076]
JRST GTFAIL ;[1076]
GTFSTR: ASCIZ!OTS overwriting application - program too large,
try re-compiling with switch /R.
! ;[1076]
SUM 239633