Trailing-Edge
-
PDP-10 Archives
-
bb-bt99e-bb
-
expgen.c09
There is 1 other file named expgen.c09 in the archive. Click here to see a list.
INS 19/1 ;09C1
;JEH 19-DEC-83 [1511] Test for need of float. point correction factor
; before generating rounding statements
REP 164/3 ;09C2
MOVE TC,OPERND
MOVE TC,1(TC)
TLNE TC,GNROUN
IFE BIS,<
WIT
IFE BIS,< ;[1511] Start non-BIS case now
MOVE TC,OPERND
MOVE TC,1(TC)
TLNE TC,GNROUN
DEL 171/3 ;09C3
JRST [PUSHJ PP,ROUND ;[762] ROUNDING REQUIRED
JRST CEND1C] ;[762]
REP 182/3 ;09C4
CEND1C:>
WIT
CEND1C: HRRZ TC,OPERND ;[1511] Destination operand address
MOVE TC,1(TC) ;[1511] second word of operand pair
TLNE TC,GNROUN ;[1511] test on rounding bit
PUSHJ PP,ROUND## ;[1511] generate rounding code
>
SUM 99481