Trailing-Edge
-
PDP-10 Archives
-
bb-bt99g-bb
-
cmngen.c09
There are 4 other files named cmngen.c09 in the archive. Click here to see a list.
INS 19/1 ;09C1
;MJC 21-AUG-84 [1543] Fix 1411 to give no warning if ON SIZE ERROR
; is used.
REP 13/40 ;09C2
ROUNDG: MOVE TE,ESIZEB ;[1411] CALCULATE DIFFERENCE IN DIGITS BEFORE
WIT
ROUNDG: TLNE W1,GNSERA ;[1543] ON SIZE ERROR USED?
JRST ROUNDH ;[1543] DON'T CHECK FOR TRUNCATION ERROR IF SO
MOVE TE,ESIZEB ;[1543] [1411] FIND DIFFERENCE IN DIGITS BEFORE
REP 19/40 ;09C3
MOVE TE,[XWD ESIZEB,ESIZEA]
WIT
ROUNDH: MOVE TE,[XWD ESIZEB,ESIZEA] ;[1543]
SUM 216527