Google
 

Trailing-Edge - PDP-10 Archives - BB-H506D-SM_1983 - cobol/source/size1.mac
There are 7 other files named size1.mac in the archive. Click here to see a list.
; UPD ID= 2455 on 2/7/80 at 10:44 AM by NIXON                           
TITLE	SIZE1 FOR LIBOL
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, 1981 BY DIGITAL EQUIPMENT CORPORATION


;EDITS

;NAME	DATE		COMMENTS
;DMN	 7-FEB-80	;[615] CHECK OVERFLOW FLAGS FOR "ON SIZE ERROR".

	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
	JFCL	11,SIZ.1B	;[615] TEST FOR OVERFLOW FLAGS SET

	MOVM	TA,0(PA)	;PICK UP AC AND USE MAGNITUDE
	CAMGE	TA,0(TB)	;IS IT TOO BIG?
	JRST	RET.2		;NO--RETURN TO LOCATION FOLLOWING XWD

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

EXTERNAL SZERA.,OVFLO.,RET.2

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

	END