Trailing-Edge
-
PDP-10 Archives
-
decuslib10-05
-
43,50337/09/trace.mac
There are 14 other files named trace.mac in the archive. Click here to see a list.
COMMENT;::::::::::::::::::::::::::::::::::::::::::::::::::
AUTHOR: CLAES WIHLBORG
KIM WALDEN
UPDATED AT ACADIA UNIVERSITY FOR KA10
UPDATE: 1
PURPOSE:TRACE PERFORMS THE TRACE FUNCTION OF THE COMPILER.
IT IS LOADED IN EVERY PASS.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
SEARCH SIMMAC
SALL
CTITLE TRACE
MACINIT
TWOSEG
RELOC 400K
INTERN TRACE
EXTERN YPASSNO,YTRSAV,YTRLC,YTRJLC,YTRINS,YTRLOW,YTRHGH,YTRTP
EXTERN YTRPAS,YTRACC,YTRSIM,YTRTAB,.JBUUO,.JB41
DEFINE X(F,L,T)<
IFB<L>,<<IX'T-IXCT>B8+I'T>
IFNB<L>,<REPEAT L+1-F,<<IX'T-IXCT>B8+I'T>>
>
TAB:
X 0,0,SKIP
X 1,37,UUO
X 40,46,SKIP
X 47,47,CALLI
X 50,107,SKIP
X 110,251,ORD
X 252,255,JUMP
X 256,,XCT
X 257,,ORD
X 260,,PUSHJ
X 261,262,ORD
X 263,,POPJ
X 264,,JSR
X 265,,JSP
X 266,,JSA
X 267,,JRA
X 270,277,ORD
X 300,317,SKIP
X 320,327,JUMP
X 330,337,SKIP
X 340,347,JUMP
X 350,357,SKIP
X 360,367,JUMP
X 370,377,SKIP
X 400,577,ORD
X 600,677,SKIP
X 700,777,SKIP
TRACE:
L 1,YPASSNO
SKIPN YTRPAS(1)
BRANCH @16
OPEN QCHTRC,[16
SIXBIT/DSK/
0]
HALT .
;***AUBEG
; ;PARENTHESISE LITERAL FOR KA10
LD 2,<[SIXBIT/TRACE0/
SIXBIT/BIN/]>
;***AUEND
SETZB 4,5
OR 2,YPASSNO
IF LOOKUP QCHTRC,2
GOTO FALSE
;***AUBEG
; PARENTHESISE LITERAL FOR KA10
THEN LD 6,<[IOWD 37003,YTRACC
0]>
;***AUEND
INPUT QCHTRC,6
CLOSE QCHTRC,
ELSE
SETZM YTRACC
L 1,[XWD YTRACC,YTRACC+1]
BLT 1,YTRSIM+37000
;***AUBEG
; SPECIFY X0 AND
; PARENTHESISE LITERAL FOR KA10
LD X0,<[XWD 331100,400010
XWD 331100,437000]>
STD X0,YTRLOW
;***AUEND
FI
RELEASE QCHTRC,
L [XWD 1,YTRTAB-400010]
ST YTRTP
HRLI 16,331100
ST 16,YTRLC
L 1,16
GOTO NEXTIA
IXORD:
IORD: L 1,YTRSAV+1
XCT @YTRLC
NEXTI: ST 1,YTRSAV+1
NEXTIS: AOS 1,YTRLC
NEXTIA: AOS YTRACC
IF
CAMGE 1,YTRLOW
GOTO FALSE
CAMG 1,YTRHGH
THEN AOS @YTRTP
FI
L 1,YTRSAV+1
LDB 1,YTRLC
GOTO @TAB(1)
IXSKIP:
ISKIP: L 1,YTRSAV+1
XCT @YTRLC
GOTO NEXTI
AOS YTRLC
GOTO NEXTI
IJUMP:
L 1,YTRSAV+1
L 1,@YTRLC
ST 1,YTRINS
IXJUMP: L 1,YTRSAV+1
LI 1,@YTRINS
ST 1,YTRJLC
L 1,YTRINS
HRRI 1,IJUMPA
TLZ 1,37
ST 1,YTRINS
L 1,YTRSAV+1
XCT YTRINS
ST 1,YTRSAV+1
GOTO NEXTIS
IJUMPA: ST 1,YTRSAV+1
L 1,YTRJLC
HRRM 1,YTRLC
HRLI 1,331100
GOTO NEXTIA
IPUSHJ:
L 1,YTRSAV+1
L 1,@YTRLC
ST 1,YTRINS
IXPUSH: L 1,YTRSAV+1
LI 1,@YTRINS
ST 1,YTRJLC
L 1,YTRINS
AOS YTRLC
TDZ 1,[777037,,-1]
ADD 1,[PUSH YTRLC]
ST 1,YTRINS
L 1,YTRSAV+1
XCT YTRINS
ST 1,YTRSAV+1
L 1,YTRJLC
HRRM 1,YTRLC
HRLI 1,331100
GOTO NEXTIA
IPOPJ:
L 1,YTRSAV+1
L 1,@YTRLC
IPOPJX: TLZ 1,1037
HRRI 1,YTRJLC
ST 1,YTRINS
L 1,YTRSAV+1
XCT YTRINS
ST 1,YTRSAV+1
L 1,YTRJLC
HRRM 1,YTRLC
GOTO NEXTIA
IJSP:
L 1,YTRSAV+1
L 1,@YTRLC
ST 1,YTRINS
IXJSP: L 1,YTRSAV+1
LI 1,@YTRINS
ST 1,YTRJLC
L 1,YTRINS
TDZ 1,[777037,,-1]
ADD 1,[L YTRLC]
AOS YTRLC
ST 1,YTRINS
L 1,YTRSAV+1
XCT YTRINS
ST 1,YTRSAV+1
L 1,YTRJLC
HRRM 1,YTRLC
HRLI 331100
GOTO NEXTIA
IJRA:
L 1,YTRSAV+1
L 1,@YTRLC
ST 1,YTRINS
IXJRA: L 1,YTRSAV+1
LI 1,@YTRINS
ST 1,YTRJLC
AOS YTRLC
L 1,YTRINS
TDZ 1,[777037,,-1]
ADD 1,[L YTRLC]
ST 1,YTRINS
L 1,YTRSAV+1
XCT YTRINS
ST 1,YTRSAV+1
L 1,YTRJLC
HRRM 1,YTRLC
HRLI 331100
GOTO NEXTIA
IXCT:
L 1,YTRSAV+1
L 1,@YTRLC
ST 1,YTRINS
IXXCT: L 1,YTRSAV+1
L 1,@YTRINS
ST 1,YTRINS
LSH 1,-33
HLRE 1,TAB(1)
ASH 1,-11
GOTO IXCT(1)
IXPOPJ: L 1,YTRINS
GOTO IPOPJX
ICALLI:
L 1,YTRSAV+1
L 1,@YTRLC
ST 1,YTRINS
IXCALL: HRRZ 1,YTRINS
CAIN 1,12
GOTO FIN
CAIE 1,11
GOTO ISKIP
HRR 1,YTRLC
TRNE 1,400K
GOTO ISKIP
PROC
FIN: SAVE <2,3,4,5,6,7>
L 1,[XWD 331100,YTRTAB]
L 2,YTRLOW
OPC: SKIPN 0(1)
GOTO CONT
LDB 2
DPB 1
CONT: ADDI 1,1
ADDI 2,1
CAMG 2,YTRHGH
GOTO OPC
HRREI 1,-377
SEEK: SKIPE YTRSIM+377(1)
AOJL 1,SEEK
L YELSRC##
ST YTRSIM+377(1)
OPEN QCHTRC,[16
SIXBIT/DSK/
0]
HALT .
;***AUBEG
; PARENTHESISE LITERAL FOR KA10
LD 2,<[SIXBIT/TRACE0/
SIXBIT/BIN/]>
;***AUEND
SETZB 4,5
OR 2,YPASSNO
ENTER QCHTRC,2
HALT .
;***AUBEG
; PARENTHESISE LITERAL FOR KA10
LD 6,<[IOWD 37003,YTRACC
0]>
;***AUEND
OUTPUT QCHTRC,6
CLOSE QCHTRC,
RELEASE QCHTRC,
STPTRC: L 1,YTRSAV+1
RESTORE
GOTO @YTRLC
EPROC
IUUO: L 1,@YTRLC
ST 1,YTRINS
IXUUO: L 1,YTRSAV+1
LI 1,@YTRINS
HLL 1,YTRINS
ST 1,.JBUUO
L 1,[XCT .JB41]
ST 1,YTRINS
GOTO IXXCT
IJSR:
L 1,YTRSAV+1
L 1,@YTRLC
ST 1,YTRINS
IXJSR: LI 1,@YTRINS
ST 1,YTRJLC
ST 0,YTRSAV
L 0,YTRLC
ADDI 0,1
L 1,YTRSAV+1
ST 0,@YTRJLC
SKIPE YTRJLC
L 0,YTRSAV
ST 1,YTRSAV+1
AOS 1,YTRJLC
HRRM 1,YTRLC
HRLI 331100
GOTO NEXTIA
IJSA:
L 1,YTRSAV+1
L 1,@YTRLC
ST 1,YTRINS
IXJSA: L 1,YTRSAV+1
LI 1,@YTRINS
ST 1,YTRJLC
L 1,YTRINS
TLZ 1,777000
ADD 1,[ST]
ST 1,YTRINS
L 1,YTRSAV+1
XCT YTRINS
ST 1,YTRSAV+1
AOS 1,YTRLC
HRL 1,YTRJLC
HLRM 1,YTRLC
ST 1,YTRJLC
L 1,YTRINS
TDZ 1,[777037,,-1]
ADD 1,[L YTRJLC]
ST 1,YTRINS
L 1,YTRSAV+1
XCT YTRINS
GOTO NEXTI
LIT
END