Trailing-Edge
-
PDP-10 Archives
-
bb-bt99g-bb
-
cmngen.c07
There is 1 other file named cmngen.c07 in the archive. Click here to see a list.
INS 19/1 ;07C1
;JEH 10-OCT-83 [1477] Adjust the correction factor added to floating
; point numbers (epsilon) to consider nbr of
; decimal places in source
;JBB 22-SEP-83 [1476] Bad table link, catastrophe in phase E with
; subscript assoc with linkage item with no
; occurs clause. corrects edit 1123.
REP 7/44 ;07C2
EPSLON: SKIPGE TC,EDPLB ;[762] GET NO OF DECIMAL PLACES IN "B"
WIT
EPSLON: MOVE TC,EDPLB ;[1477] If destination can hold more dec pl
CAMGE TC,EDPLA ;[1477] or if source has generated extra
MOVE TC,EDPLA ;[1477] use smaller correction factor
SKIPGE TC ;[1477] [762] GET NO OF DECIMAL PLACES IN "A"
REP 39/120 ;07C3
LDB TA,DA.OCH
JUMPE TA,NOTSUB ;[1123] IF NO SUBSCR AT ALL IN DATAB WE HAVE
;[1123] AN ERROR, DON'T TRY TO FIND ITS LINK
PUSHJ PP,LNKSET
WIT
LDB TE,DA.SUB ;[1476] DOES THIS ITEM NEED A SUBSCRIPT?
JUMPE TE,NOTSUB ;[1476] NO, THEN THERE'S NO DA.OCH ENTRY
LDB TA,DA.OCH
JUMPE TA,NOTSUB ;[1123] IF NO SUBSCR AT ALL IN DATAB WE HAVE
;[1123] AN ERROR, DON'T TRY TO FIND ITS LINK
PUSHJ PP,LNKSET
SUM 70013