Google
 
Trailing-Edge - PDP-10 Archives - ap-c800d-sb - size1.mac
There are 7 other files named size1.mac in the archive. Click here to see a list.
TITLE	SIZE1 FOR LIBOL V12
SUBTTL	CHECK 1-WORD ITEM FOR SIZE ERROR		AL BLACKINGTON/CAM



;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
;  OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;
;COPYRIGHT (C) 1974, 1979 BY DIGITAL EQUIPMENT CORPORATION


	HISEG

ENTRY SIZE.1

;CALLING SEQUENCE:
;	MOVEI PA,<AC TO BE TESTED>
;	PUSHJ PP,SIZE.1
;	XWD   <EXIT IF SIZE ERROR>,<ADDRESS OF VALUE TO BE COMPARED AGAINST>


SIZE.1:	MOVE	TB,@0(PP)	;PICK UP XWD

	SKIPE	OVFLO.		;ANY OVERFLOW?
	JRST	SIZ.1B		;YES

	MOVM	TA,0(PA)	;PICK UP AC AND USE MAGNITUDE
	CAML	TA,0(TB)	;IS IT TOO BIG?
	JRST	SIZ.1B		;YES

	AOS	(PP)		;NO--RETURN TO LOCATION FOLLOWING XWD
	POPJ	PP,

SIZ.1B:	HLRM	TB,0(PP)	;SIZE ERROR--SET UP RETURN ADDRESS
	SETOM	SZERA.		;SET INDICATOR

	POPJ	PP,

EXTERNAL SZERA.,OVFLO.

	PP=17	;PUSH-DOWN POINTER
	PA=16	;INPUT UUO
	TA=13	;TEMP
	TB=14	;TEMP

	END