Trailing-Edge
-
PDP-10 Archives
-
cobol12c
-
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
SEARCH COPYRT
SALL
;COPYRIGHT (C) DIGITAL EQUIPMENT CORPORATION 1974, 1985
;ALL RIGHTS RESERVED.
;
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED
;ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;EDITS
;NAME DATE COMMENTS
;DMN 7-FEB-80 ;[615] CHECK OVERFLOW FLAGS FOR "ON SIZE ERROR".
HISEG
.COPYRIGHT ;Put COPYRIGHT statement in .REL file.
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