Trailing-Edge
-
PDP-10 Archives
-
decuslib10-03
-
43,50312/fx2.txt
There are no other files named fx2.txt in the archive.
STAXLA: ;STA XLATE
;IFN FTMANT,< JSB (OUTCOD) ;MAKE SURE WE OUTPUT JUMPS ;%%%-WTB-02
;THE FOLLOWING ANGLE BRACKET MATCHES THAT DELETED ABOVE > ;U/O-WTB-02
; SNZ (DEBFLAG) ;NOTE STMT LENGTH ;%%%-WTB-02
IFN FTMANT,< SNZ (DEBFLAG) ;NOTE STMT LENGTH ;U/O-WTB-02
FETT (LOCCNT) ;BUT MUST FIRST FORCE IF JUMPS OUT;U/O-WTB-02
SGTT (ZERO) ;EXCEPT WHEN JUST STARTING ;U/O-WTB-02
JSBT (OUTCOD) ;U/O-WTB-02
SNZ (DEBFLAG) ;U/O-WTB-02
XMLT (REFSTML) ; FOR DEBUGGER>
XML (SSAML) ;STATUS CONTROL
FEX (MPRXLA) ;MAIN PROGRAM XLATE
SCE (S) ;S
JMPT (SSTXLA) ;SUBROUTINE STA XLATE
SCE (F) ;F
JMPT (FSTXLA) ;FUNCTION STA XLATE
SCE (I) ;I
JMPT (IFSXLA) ;INTEGER FUNCTION STA XLATE
SCE (R) ;R
JMPT (RFSXLA) ;REAL FUNCTION STA XLATE
SCE (D) ;D
JMPT (DPFSXL) ;DOUBLE PREC FUNCTION STA XLATE
SCE (C) ;C
JMPT (CFSXLA) ;COMPLEX FUNCTION STA XLATE
SCE (L) ;L
JMPT (LFSXLA) ;LOGICAL FUNCTION STA XLATE
IFNDEF $DATA,
<
SCE (B) ;B
JMPT (BDSXLA) ;BLOCK DATA STA XLATE
>
JMP (MPRXLA) ;MAIN PROGRAM XLATE