Google
 

Trailing-Edge - PDP-10 Archives - decuslib10-05 - 43,50337/10/t1.mac
There is 1 other file named t1.mac in the archive. Click here to see a list.
;<ENDERIN>T1.MAC.2,  6-Dec-76 14:15:57, Edit by ENDERIN
COMMENT;::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::

AUTHOR:		CLAES WIHLBORG
VERSION:	4 [144,225,260]

PURPOSE:	TERMINATION OF PASS 1
CONTENTS:	T1  =  NORMAL TERMINATION
		T1AB=ABNORMAL TERMINATION

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

	SALL
	SEARCH	SIMMC1,SIMMAC
	CTITLE	T1 (TERMINATION PASS 1)

	INTERN	T1,T1AB

	EXTERN	DP,O1ZS,O1PACK
			edit(144)
	EXTERN	O1SFDC	;[144]
	edit(225)
IFN QDEC20,<EXTERN I2EN,I3,YPASSNO,O2AB,T3T3>;[225]
IFG QDEBUG,<EXTERN P1DUMP>
IFG QTRACE,<EXTERN YTRPAS,YTRACC>

	EXTERN	QBKSTZ
	EXTERN	QOPSTZ
	EXTERN	Y1MASK
	EXTERN	Y2STAR
	EXTERN	Y3LOWE
	EXTERN	YATSFD	;[144]
	EXTERN	YATRPPN	;[144]
	EXTERN	YBKST
	EXTERN	YBKSTP
	EXTERN	YBRBUF,YBRZSE,YBRSRC
	EXTERN	YBREAK
	EXTERN	YDCSTB
	EXTERN	YDCSTO
	EXTERN	YDCSTP
	EXTERN	YDICTB
	EXTERN	YEXTS	;[144]
	EXTERN	YFXTAB
	EXTERN	YLINE
	EXTERN	YMAXFX
	EXTERN	YMAXID
	EXTERN	YLSSFD	;[144]
	EXTERN	YOPST
	EXTERN	YOPSTB
	EXTERN	YOPSTP
	EXTERN	YRDSTB
	EXTERN	YRDSTP
	EXTERN	YRELCN
	EXTERN	YRLSFD	;[144]
	EXTERN	YRSSFD	;[144]
	EXTERN	YSTATM
	EXTERN	YSWITC
	EXTERN	YSWRF	;[144]
	EXTERN	YZHET


	MACINIT
	TWOSEG
	RELOC	400000
	SUBTTL	T1AB

T1AB:
	SETON	YSWTRM

T1ABC:
	L	YBRSRC
	ST	YBRZSE
	EXEC	O1ZS
	LF	,YLSCLIN
	ST	YELIN2##
	ERRLI
	SETONA	YERNP2
	ST	X1MASK,Y1MASK
	HRRZS	YMAXID

	edit(225)
IFE	QDEC20,<;[225]
	L	X3,[XWD 1,Y3LOWE]

IFG QTRACE,<
		IFON	YTRSW
		MOVSI	X3,1>

	SWAPPA(SIMP3,S3,0,QP3PPN)
>;[225]

IFN QDEC20,<;;[225]
	L	YPASSNO
	CAIN	1
	BRANCH	I3
	CAIN	2
	BRANCH	O2AB
	BRANCH	T3T3
>
	SUBTTL	T1, FINALIZE PASS1

T1:
	EXEC	O1PACK
	SETON	YSWP1
	IFONA	YERNP2
	GOTO	T1ABC
	EXEC	DP

	edit(144)	;[144] Copy any SFD paths to permanent locations

	LI	X1,YEXTS+7	;[144] REL file ppn or sfd ptr
	LI	X2,YRLSFD	;[144]
	EXEC	O1SFDC		;[144]

	LI	X1,YEXTS+3	;[144] LST file ppn or sfd ptr
	LI	X2,YLSSFD	;[144]
	EXEC	O1SFDC		;[144]

	LI	X1,YATRPPN	;[144] Any global ATR file
	LI	X2,YATSFD	;[144]
	EXEC	O1SFDC		;[144]

	LI	X1,YSWRF+4	;[144] /RUNSWITCHES:"dev:file.ext[path]"
	LI	X2,YRSSFD	;[144]
	EXEC	O1SFDC		;[144]

	EXEC	O1ZS

	L	YMAXFX
	CAIL	10K
	GOTO	[ERR	QT,Q1T1.T
		GOTO	T1AB]

	SETOFF	YSWP1
	L	YBRZSE
	ST	YBRBUF
	ST	X1MASK,Y1MASK

IFG QDEBUG,<EXEC P1DUMP>

	HRRZS	YMAXID
	L	X7,YMAXID
	LI	X6,YDICTB+1(X7)
	LI	X5,0(X6)
	ADD	X5,YMAXFX
	LI	X5,40(X5)
	LI	X3,1200(X5)
	IORI	X3,1777

IFG QTRACE,<	IFON	YTRSW
		LI	X3,YTRACC-1>

	L	[XWD Y2START,Y2START+1]
	SETZM	Y2START
	BLT	0(X3)
	ST	X6,YFXTAB
	ST	X5,YRDSTB
	SETZM	YLINE
	SETZM	YSTATM
	LI	-1(X5)
	ST	YRDSTP
	LI	X2,0(X3)
	LI	X1,-1(X2)
	ST	X1,YDCSTO
	SUB	X2,YRDSTB
	ASH	X2,-3
	ADDI	X2,^D200(X5)
	ST	X2,YDCSTB
	ST	X2,YDCSTP
	ST	X2,YZHET
	SUB	X5,X2
	HRLM	X5,YRDSTP
	L	[XWD QBKSTZ,YBKST-1]
	ST	YBKSTP
	LI	YOPST
	ST	YOPSTB
	L	[XWD QOPSTZ,YOPST-1]
	ST	YOPSTP

	L	YBREAK
	ST	YRELCN

IFE	QDEC20,<;[225]

IFG QTRACE,<	IFON	YTRSW
		LI	X3,0>

	HRLI	X3,1
	SWAPPA(SIMP2,S2,0,QP2PPN)
>

IFN QDEC20,<BRANCH	I2EN>;[225]
	LIT
	END