Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99e-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