Trailing-Edge
-
PDP-10 Archives
-
bb-kl11i-bm_tops20_v7_0_atpch_1-22
-
autopatch/expgen.c19
There are 9 other files named expgen.c19 in the archive. Click here to see a list.
REP 1/1 ;19C1
; UPD ID= 1577 on 5/4/84 at 10:57 AM by MCARLETON
; UPD ID= 1520 on 2/2/84 at 6:04 PM by HOFFMAN
WIT
;<KSTEVENS.BUFFER>EXPGEN.MAC.2, 21-Mar-88 22:01:45, Edit by KSTEVENS
; UPD ID= 1520 on 2/2/84 at 6:04 PM by HOFFMAN
REP 33/1 ;19C2
;JEH 30-Sep-82 [1402] Force floating point divide, but convert
WIT
;JEH 30-Sep-82 [1402] Force floating point divide, but convert
REP 50/1 ;19C3
;V12 RELEASE
;EHM 28-DEC-76 ;[456] WARN IF ROUNDING IN WRONG PLACE
;V11 RELEASE
WIT
;V12 RELEASE
;EHM 28-DEC-76 ;[456] WARN IF ROUNDING IN WRONG PLACE
;V11 RELEASE
REP 42/2 ;19C4
;[1402] SETOM FLTDIV ;[637] SET FLAG
WIT
;[1402] SETOM FLTDIV ;[637] SET FLAG
INS 33/3 ;19C5
SETZM EAC ;[1647]MAKE SURE AC IS SET CORRECTLY TO 0
REP 26/11 ;19C6
CAIN TE,D4MODE ;IF "A" IS 4-WORDS
WIT
CAIN TE,D4MODE ;IF "A" IS 4-WORDS
REP 5/13 ;19C7
CAIE TE,OPCEXP ;IS IT EXPONENTIATION?
WIT
CAIE TE,OPCEXP ;IS IT EXPONENTIATION?
REP 22/20 ;19C8
MOVE TA,CUREOP
WIT
MOVE TA,CUREOP
REP 42/20 ;19C9
PUSH PP,EXPBEG ;save counter
WIT
PUSH PP,EXPBEG ;save counter
REP 64/20 ;19C10
JUMPGE TB,GTOPN8 ; searching for operands until finding the one
WIT
JUMPGE TB,GTOPN8 ; searching for operands until finding the one
SUM 104752