Trailing-Edge
-
PDP-10 Archives
-
bb-bt99g-bb
-
cmngen.c12
There are 3 other files named cmngen.c12 in the archive. Click here to see a list.
REP 10/1 ;12C1
;COPYRIGHT (C) 1974, 1981 BY DIGITAL EQUIPMENT CORPORATION
WIT
;COPYRIGHT (C) 1974, 1981, 1985 BY DIGITAL EQUIPMENT CORPORATION
INS 19/1 ;12C2
;MJC 18-JUL-85 [1607] Fix edit 1604. Add conditial for ANS74 only.
;MJC 18-JUL-85 [1604] Make XPNLIT fixup CURIRG for INSPECT
INS 20/26 ;12C3
IFN ANS74,< ;[1607] NOT NEEDED BY THE TRANSLATOR
JUMPL TA,STSL1C ;[1604] MUST TEMTAB POINTER
> ;[1607] END IFN ANS74
INS 37/26 ;12C4
IFN ANS74,< ;[1607] NO INSPECT IN THE CBL68 COMPILER
STSL1C: ;[1604] DO THE SAME THING BUT FOR CURIRG
HRRZ TE,CURIRG## ;[1604] GET CURIRG
HRRZ TB,TEMLOC## ;[1604] START OF TABLE
SUB TE,TB ;[1604] THIS IS OFFSET
PUSH PP,TE ;[1604]
PUSHJ PP,XPNLIT ;[1604] EXPAND LITTAB
POP PP,TE ;[1604] GET BP OFFSET
ADD TE,TEMLOC ;[1604] GET NEW PTR INTO VALTAB
MOVEM TE,CURIRG ;[1604] GET BP TO EBASEA OR SOMETHING..
JRST STSL1B ;[1604] POP AND RETURN
> ;[1607] END IFN ANS74
SUM 16699