Trailing-Edge
-
PDP-10 Archives
-
bb-jr93j-bb
-
7,6/ap013/cmngen.c13
There are 10 other files named cmngen.c13 in the archive. Click here to see a list.
INS 21/1 ;13C1
;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 ;13C2
IFN ANS74,< ;[1607] NOT NEEDED BY THE TRANSLATOR
JUMPL TA,STSL1C ;[1604] MUST TEMTAB POINTER
> ;[1607] END IFN ANS74
INS 37/26 ;13C3
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 100992