Enter your search terms Submit search form
	Web pdp-10.trailing-edge.com

 REP 2/1	;14C1
		TV	MTHERR	Error output routine for MTHLIB, 2(4011)
 WIT
		TV	MTHERR	Error output routine for MTHLIB, 2(4021)
 INS 49/1	;14C2
	4021	MRB	13-Jan-86
		The math library may not give the correct name of the math function
		in which an error was detected.  This is due to the incorrect
		computation of the high-segment starting address. (This is edit 4221
		to FOROTS) 
 REP 6/2	;14C3
	ADRCHK:
	IF10,<				;[3151] This code doesn't work for Tops-20
		CAIGE	T1,140		;BELOW LOW SEG START?
		  POPJ	P,		;NO, BAD
		CAMG	T1,.JBREL	;BELOW LOW SEG END?
		  JRST	%POPJ1		;YES, FINE

		SKIPE	T2,.JBHRL	;GET HIGH SEG POINTER
		CAILE	T1,(T2)		;COULD ADDRESS BE IN HIGH SEG?
		 POPJ	P,		;NO
		HLRZ	T3,T2		;GET HIGH SEG LENGTH
		SUBI	T2,(T3)		;GET HIGH SEG ORIGIN
		CAIL	T1,(T2)		;IS ADDRESS IN HIGH SEG?
	%POPJ1:	 AOS	(P)		;YES, IT'S OK
 WIT
	ADRCHK:  
	IF10,<				;[3151] This code doesn't work for Tops-20 
		CAIGE	T1,140		;BELOW LOW SEG START?
		 POPJ	P,		;NO, BAD 
		CAMG	T1,.JBREL	;BELOW LOW SEG END?
		 JRST	%POPJ1		;YES, FINE 

		SKIPN	T2,.JBHRL	;[4021]Is there a hi-segment?
		 POPJ	P,		;[4021]No. 
		HRRZ	T2,T2		;[4021]Get end of High-Segment

		MOVE	T3,[XWD -2,.GTUPM];[4021]Set up for a GETTAB
		GETTAB	T3,		;[4021]Get hi-segment origin
		 POPJ	P,		;[4021]GETTAB Error!
		HLRZ	T3,T3		;[4021]Shift to Right-Half

		CAIL	T1,(T3)		;[4021]Is Addr.GE.Hi-Seg-Start-Addr 
		 CAILE	T1,(T2)		;[4021].AND.Addr.LE.Hi-Seg-End-Addr?
		  POPJ	P,		;[4021]No, It's Bad

	%POPJ1:	AOS	(P)		;YES, IT'S OK
 SUM 5695