PDP-10 Archive: s.unv from dec-10-omona-u-mc9

Trailing-Edge - PDP-10 Archives - dec-10-omona-u-mc9 - s.unv

There are 3 other files named s.unv in the archive. Click here to see a list.

xh@P BP CH1P#ACHVP CT, `CV<  C4\YP C0P C@tUP @C@trP C@t{P C@t81P @C@t87P C@t9WP  C@t:2P C@t;8P  C@t;VP C@t<P$C@tH7P C@tHtP C@tIWP C@tX7P C@tXtP C@tYWP @C@tkrP @C@tk{P  C@uP  C@uyP"C@unP C@v{P"C@v

P C@vKyP C@vZ7P!C@v]xQ CCP CC pCO;wP$CO

SP"DP E$\YP E,\YP E<.: X=XLIST
	IFxB  <B>,<$XBYP==<A>-1>
	IFNB <B8>,<$XBYP==<B>>
X	$XBYS==<A>
	$XBYT==0
	LIST$XE3&^EhEXCTUX(<A>)EXCTUX(<AE3' F

HuQ |F

LQQ vF

QQ zF*:Q |F]7Q ~FKQ FKQ ~F$Q wF&9:Q xFM\@Q }FN`Q vFN]7Q }F^>9Q xFm@Q tFvH`Q tFw Q zFK{Q {FY Q uFX`Q uF%I Q F&,	Q {F,Z5Q yF<rQ wFDZ5Q yGP GD[<P G"t8VP G2\HKP  G2\^P$G2^ P$G3	z `d
	SALL
	ZZ==0		;SET TO 1  IF A VALID ARG IS@ SEEN

IFN FTKI`10,<
	IFIDN <A> <P4><
			ZZ==1
			IFNDEF .CPEBR@,<EXTERN .CPEBR>
			DATAO	PAG,.CPEBR(P4)
			>
	I FIDN <A> <0><
	@		ZZ==1
			IFNDE`F .C0EBR,<EXTERN .C0EBR>
			DATAO 	PAG,.C0EBR
			>@
	IFIDN <A> <1>`<
			ZZ==1
			IFNDEF .C1EBR,<EXT ERN .C1EBR>
			D@ATAO	PAG,.C1EBR
`			>
		>;END IFN FTKI10

IFN FT KL10,<
IFB <B> @<
	IFIDN <A> <P`4><
			ZZ==1
			IFNDEF .CPEBR,<E XTERN .CPEBR>
		@	CONO	PAG,@.CPEBR`(P4)
			>
	IFIDN <A> <0><
			Z Z==1
			IFNDEF .@C0EBR,<EXTERN .C0`EBR>
			CONO	PAG,@.C0EBR
			>
	 IFIDN <A> <1><
@			ZZ==1
			IFND`EF .C1EBR,<EXTERN .C1EBR>
			CONO 	PAG,@.C1EBR
			@>
	>

IFNB <B`> <
			ZZ==1		;FLAG THAT CPU ARG  IS OK
			CLRPT	@B
	>
IFE ZZ,<PR`INTX ? BAD CPU ARGUMENT A TO CLRP GT MACRO>
	PURGE@ ZZ
	>;END IFN FTKL10
NDIFNFG3qP G3H:P  G3KP G3@P G3k1P G3}:P G3,zP G7< P"G;&+P G>$\` HXY	X	IOW,,SJHx,	
	X	TIOW,,SJ,	I
	IFN	FTDISK,<
I8	X	DIOW,,DJ,	
	>IX
IFN FTVM,<
	X	IxPIOW,,DJ,	
>
	XJ	SLP,,SJ,	
	X	EWJ8,,SJ,		
	X	NAP,,JXSJ,	
	X	NUL,,SJ,Jx	
IFN FTDAEM,<
K	X	JDC,,SJ,	
>
	X	STOP,,SJ,	
G>t@

xi
	XP	C$MI`N,C$MIN-1	;DECREM

XENT MINIMUM CODE

8
	XP	A,C$MIN	;SE MIN
ODE = NEW G?;ZP  G@t<hQ G@t<hQ G@t<iQ @G@t<iQ  G@t<jQ G@t<jQ G@t<|Q xG@v

Q  G@v

	Q G@v

	Q G@v

Q G@v

Q G@v

Q >G@v

hQ G@v

hQ @G@v

iQ  G@v

iQ G@v

jQ G@v

jQ G@v

|Q |G@vQ @GBexu 28
	PUSHJ	P2X,LOKA	;ENTER CPU2x INTER-LOCKED REG3ION ON A
	EXTERN	LOKA
	EXTERGC-k 3X#
	PUSHJ	P3x,ULKA	;EXIT CPU 4INTER-LOCKED REGI48ON ON A
	EXTERN	ULKA
	EXTERNGN$\YP GPu8 P GPu: P GPu;P GPv@P HP I$@ I`P IeP IepP If P IHP IN` `IxP I5pQ ~IpP IP"I7P$II6P II9P IXyP @I]VP IiPP"IkxP$IQP @IRP"II7P!I\sP  I{RP!I(9P @I:2P @I:6P!I<P$I]7P II7P @I(9P  I4P I4P I47P I4-3P I4:P I4:2P I4=P I4LP I4\rP I4]VP I4^P 	I4j6P I5{P I52P I5yP I5+qP I5KP 	I5KsP I5LrP I5[rP I5\sP I5h6P I5x2P I6

P 	I6

tP I699P I6<PuI6=PI6=P I6N8PvI7Iv8RQ @I0P I"tpQ I&pP I&uQ I':=P I'V e(.EXTERNAL CeHHNOFF
	CONI	PI,ehA
	CONO	PI,CHNOFF	CONO	PI,CHNOFI2XP I2l S 8	XLIST

S@DEFINE	WORD(SYMBOS`L)<SYMBOL==.I	
	T		.I==.I+1>

DET FINE	DATA(SYMBOL,T@DATUM)<SYMBOL==.IT`
			.I==.I+1>
U
DEFINE	PNTR(SYMBU OL,WORD),<.I==.I+U@1>

DEFINE	BLK(U`SYMBOL,SIZE),<IFDVEF SIZE,<.I==.I+SV IZE>
			  IFNDEFV@ SIZE,<PURGE .I>>V`

	.I==0
	MAP7W6		;DEFINE PARAMETERS
	LIST
MEI3Ahu %>

	XLIST% 

DLX.44=0		
D%@LX.76=0
DLX.75=0%`
DLX.78=0
PDP11&N=0
ZZ=0
	REPEA& T	10,<
	.DLTYP(\&@ZZ,ZZZ,A)
ZZ=ZZ&`+1
>
	LIST
	XP'	DLX.44,DLX.44	
' 	XP	DLX.76,DLX.76'@	
	XP	DLX.75,DLX'`.75
	XP	DLX.78,DLX.78	
LX.78,DI6

;P!I7 P I7-@ @I:

\YP I:,\YP 	I>5@Q }I?(P IHP IJ`P IJpP INHP IN]yS 8xc
IF2,<IFN9DEF DSKPIF,<EXTER98N DSKPIF>>
IFN F9XTKL10,<
IF2,<IFN9xDEF PIOFF,<EXTERN: PIOFF>>
	CONO	P:8I,PIOFF	;FOR BUG :XIN .LT. LEVEL 8 K:xL10 PI SYSTEM
	C;ONO	PI,DSKPIF+PI.;8ON
>;END IFN FTK;XL10
IFN FTKA10!F;xTKI10,<
	CONO	PI<,DSKPIF
>;END IF<8N FTKA10!FTKI10
FTKA10!FTKI10
IN]{@ 7xC
IF2,<IFN8DEF DSKPIN,<EXTER88N DSKPIN>>
	CONO	PI,DSKPIN
ONOIN^+PINxPIO,.IIOPQZ~IR\YPIR,PIR,;"P	IR,HbPIR,IPIR,I"PIR,hBPIR,i"PIR-BPIR-BPIR-hbPIR-iBPIR-j"P IR-lP IR.

+ f(>EXTERNAL CfHHNON
	ANDCMI	A,fhCHNOFF	;DO NOT TOgUCH DC CHANNELS
g(	TRO	A,2000		;SEgHT TO TURN SELECTEghD CHANNEL ON
	CONO	PI,(A)
	COK:\YP K:$.: 
8YXLIST
	IF
XN $XBYP-$XBYS+1,<
xEXP <$XBYT>>
	PURGE $XBYT,$XBYP,$XBYS
	LISTYP,$K;

\YP@  KJ 0
.N==0
R00EPEAT	A,<ERRJSP 0P(\.N)
.N=.N+1>
0pECOD:	SUBI	T1,ECO1D0+1
	HRRZS	T1
10	JUMPL	M,CPOPJ
	JRST	STOTAC##
	KJy +0a
	.DIRECT+PIVE .XTABM
	ERRC+pOD	(A,B,\B)
	,.DIRECTIVE .ITABMIRECTIVE .ITABMKK;r ,Pk
	IFG <B,p+1-ECDMAX>,<GENEC-D(A,B,C)>
	IF-0NDEF A,<A==ECODC##>,<A==ECODKK,x 1p
ECODA::JSP	T1,ECODA::KNfXP

KNf

}PKXti4PKXti7PKXuP KXuHVP KXui:P KXv);P KXvJ{P K^
	SALL
	@GINST==<PXCT PX.M`EM,[A]>


	PXGEN(<A>,<DPB,IDP B>,<PX.SRC>)	
		@			
	PXGEN(<A>,`<BLT,PUSH,POP>,<PX.SRC!PX.MEM>)
	 GINST
	PURGE GINST

	PURGE GINKbM< `P
	SALL
		GINST==<PXCT PX.M	 EM,[A]>
	PXGEN(	@<A>,<LDB,ILDB,PO	`P,BLT>,<PX.SRC>)

	GINST
	PURGE GINST

	PURGE GKbN 
@b
	SALL
	
`GINST==<PXCT PX.MEM,[A]>
	PXGEN( <A>,<IDPB,DPB,PU@SH>,<PX.SRC>)
	P`XGEN(<A>,<POP,BL

T>,<PX.MEM>)
	GI

 NST
	PURGE GINST

	PURGE GINSTKb,81 W@{
IFN FTKLW`10,<
	SALL
IFB ^0<A>,<
	DATAO	PA^PG,[LG.LAB+01B11]
>
IFNB <A>,<
	DATAO	PAG,[LG.LA0B+<<A3>+1>B11]
>
	LIST
>1]P L@ M
l\YP M,\YP

Mt80Q@Mt;qQ  Mt;|Q Mv8xQ M]KUP M:4\YP MJ
	%%%N==0y			;ARGUMENT COUNy(T
IRP A,<
	%FRyHAM1(A,\<%%%N+1>)yh	;DEFINE MACRO
	z%%%N==%%%N+1		;BUz(MP COUNT
>
IFE zHFTKL10,<
IFN FTVzhM,<
	ADD	P,[%%%N{,,%%%N]	;ALLOCATE{( THE SPACE
	JUMP{HGE	P,S..EPO##	;SH{hOULD NEVER HAPPEN|
>>
IFN FTKL10,|(<
	ADJSP	P,%%%N
>
	PUSHJ	P,b		|h;DO THE SUBROUTIN}E
	  JRST	.+2		;}(NON-SKIP RETURN
}H	AOS	-%%%N(P)	;PA}hSS ON THE SKIP RE~TURN
	SUB	P,[%%%~(N,,%%%N]	;DEALLOC~HATE SPACE
	POPJ	~hP,0		;RETURN
b: ;SUBROUTINE WITH( LOCAL STORAGE
LOCAL STORAGE
MJ.3P$MJ>93P$MLt+5P `MLu\uP MLuhyP @MLuk5P MLv{P  MQ93Q MR;Q MR%uQ MR/	 Q MR4H2Q MR\(P MR](P MR]D(Q MReytQ MRn0Q MSQ MSHuP MSx8Q MS%H1Q MS5PQ OtXr -p}
PRINTX %.ECODC IS UNDEFIN.0ED, DEFINE ECDMAX.P IN S.MAC TO BE .pC+1
A==[MOVEI	T/1,B
	JUMPL	M,CP/0OPJ##
	JRST	STOT/PAC##]
	IF1,<A==0>]
	IF1,<A==Ov<QP$OPt;rQQOPuPPOPu+qPPOPv	PPOPv93P OPv[RP OS93P @Qf@ +Q&~)`P$Q2>WP QN

rQ @S

tTQ  S

tQ S

t*9Q S

t>(Q  S

t>(Q S

uJ8Q @S

vKHQ S

vKHQ S

v[zQ S\uP SyP S:=P Se|qP S$tYQ S$t[Q S$twP ?S$tQ  S$t3Q @S$tyQ S$t;hP  S$t;iP S$t;iP S$t;jP S$t;jP S$t;kP S$t;kP S$t<P$S$t<P  S$t\P @S$t\Q S$uP @S$u	P  S$u	P S$u
P S$u
P S$uP S$uP S$uP S$ulyQ  S$v
0P @S$v

HQ S$v

IQ S$v

IQ S$v

JQ @S$v

JQ  S$v

KQ S$v

KQ S$v

yQ @S$v\Q S2hP  S3,\YP S:h@P S:NH@P$S; P S<P S>

=PS>Y`P8S>=P<@S>}PS>8PS>\P<S>{@PS>$[RPS>$\BP<S>$\YP"S>&I9P!S>,8|P=S>-iP=S>6=PKS>DI9PMS>EI"P*S>L(`P"S>M\P$S>NbPIS>fI"PKS>v(uP[PS?@PS?BPS?I"PS?HVPyS?$[RP{S?%I"P}S?.9SP$S?4i"P\S?5I"PS?6-7P=S?8P9S?<0P9S?=I"PIS@rTQLS@tUPS@tRPHS@t81PS@t82PS@t:2PS@t:7PM@S@t;QS@t;VP  S@t<WQ S@t=P!S@tHtP S@tXtP S@tk9Q S@usP @S@uyP"S@uXvQ S@uZ2Q S@u[VQ @S@u[ZQ  S@u[rQ  S@unP  S@v9P"S@v	2P!S@v
4P U
4=P U
6P U
6YP U
ehyP U
f{P UhyP U{P$U:=P UP!U{@P  U P  U2|pP U:P @U>	P#A$U>

WP#APU@t8qP U@tLP#U@t[XP  U@uP$U@uY:P @U@vuP  UHv(yQ @UHv*9Q UHv+yQ  UHv,YQ UHv.Q UHv.Q |UKP ULtXP"ULtP ULtpP ULt,Q ULt9\Q @ULt;Q xULtI6P!ULtI8P ULtLP  ULt^Q ULtnQ @ULtnQ ULuSP  ULu)P @ULuZ3P$ULu\P ULu\uP |ULuhyQ ULumP ULunP ULu{wP ULvyP ULv,P ULv,9P ULv-:P ULv8wP ULv9RP$ULv9VP ULv:=P ULv;Q  ULvIWP ULvN8P ULw`P ULwyP U\vyP  U\vyP U\vyP"U\v{P U\v{:P U\v{VP @U\v|P  U\v|WP!U\v}YP U\v}zP @U_|`P U_@P Uc`P!V;$4 P V;%T@P V;%X P V;%X@P V;' P Yt+zP Yt;wP YtI9P YtMP Yt[sP Yu	P YuxP YuMP Yv

rP YvLRP YvkP Yv{P Yt81Q `Yt<vP$Yt<{P"Yt<|Q Yt\P Yu6P$Yu:8P YuH1Q @YuLQ  YuM1Q Yv1Q YvyQ xYvI7P  Yv\P Y$twP ?Y$t;hP  Y$t;iP Y$t;iP Y$t;jP Y$t;jP Y$t;kP Y$t;kP Y$t<P  Y$t\P$Y$t\P"Y$uP @Y$u	P  Y$u	P Y$u
P Y$u
P Y$uP Y$uP Y$uP Y$v
0P @Y$v

HQ Y$v

IQ Y$v

IQ Y$v

JQ @Y$v

JA  Y$v

KQ Y$v

KQ Y.P#pY8t[RP Y>D\YP

Y>XP"Y>\]QP!Y>]P @Y>^
P"Y>^93P Y>}8@P @Y@tP  Y@t9Q Y@t9P @Y@t<qP"Y@t<rP Y@t<sP  Y@tLsP @Y@t\sP!Y@uRQ  Y@uZP Y@usP Y@uyP"Y@ui2Q @Y@unP Y@v9P Y@v	Q Y@v	2Q Y@v	RQ Y@v
0P Y@v8RP Y@v9Q Y@v92Q Y@v<sP YBYP YBP YB[P YB-QP YB<P YBIP YBZqP YHt;P YHt;P YHt[zP YHt[{P YHtj7P YHtkzP YHvyP YHvK P YHv\XP YPt+P YPt8PP YPt8YP YPuP YPu6P YPuMP YPuX<P YPukP YPulvP YPv;P YPv=6P YZd\YP 
Z@ [u@ ( 




(@







(`








)







) 







	.)@.P==A	
			
	
)`IFN  <FTKI10!FTKL*10>,<
	DATA	KII,* <JSR D70AKI>
		*@			
					
>	;EN*`D IFN <FTKI10!FTK+L10>
IFN FTKA10,+ <
	DATA	KII,<Z>	+@
>	;END IFN FTKA+`10
	WORD	ESA,	
,			

	WORD	WNU,, 	


	WORD	NAM,,@	
			
	DATA	EPN,`,<..P>
			
			

	WORD	OK,	
		- 	
			

	WORD	H-@LT,	
			

	WOR-`D	DWN,	
			
			.
			

	PNTR	UP. T,.C0UPT,	
				
	IFDEF	M.AD85,<.`
	IFE	M.AD85,<
	WORD	TTP,	
			/ 

	WORD	TTG,	
/@			

	WORD	TEP,/`	
			
	
	WORD	0TEG,	
			

	DA0 TA	EBS,<TEBSA> 

	DATA	TBS,<TTB0`SA> 

	DATA	LT1O,<D7AOFS> 
			1 

	DATA	DTO,<D71@ADSO> 
	PNTR	ST1`S,STATES,	
				

	PNTR	FRN,TTFR2 EN,	
				
				

	DATA	AOM,<M72`AKII>
				
				3

	DATA	TEA,<M73 ATEQ>
				

	3@DATA	TTA,<M7ATTQ3`>

	DATA	MAX,<M4.D7AN+TYPNUA> 
	DATA	NTT,<M.D74@AN> 

	IFNB	<A4`>,<ZZZZ==PARAN>
	IFB	<A>,<ZZZZ=5 =0>
	DATA	PAR,<Z5@ZZZ>	
	IFNB	<A>5`,<ZZZZ==ZZZZ+PCR6AN>

	DATA	PCR,6 <ZZZZ>	
	IFNB	<6@A>,<ZZZZ==ZZZZ+PA6`PAN>
	DATA	PAP,7<ZZZZ>	
	IFNB	<7 A>,<ZZZZ==ZZZZ+LP7@CAN>
	DATA	LPC,7`<ZZZZ>	
	IFNB	<8A>,<ZZZZ==ZZZZ+PC8 PAN>
	DATA	PCP,8@<ZZZZ>	
	DATA	PI8`O,<M7ANIP>	

9

	BLK	TTQ,<TTBS9 A>,

	BLK	TEQ,9@<TEBSA>,

	BLK9`	NIP,<TYPNUA>	
:>	
	IFN	M.AD85,: <	
	WORD	SWD,	;G:@LOBAL STATUS WORD:`
			;1=DEPOSIT
;			;2=EXAMINE
		; 	;4=ADDRESS IS GA;@RBAGE
			;10=HOL;`D EVERYTHING
	WO<RD	ADR,	;EXAMINE/< DEPOSIT ADDRESS
<@	WORD	DAT,	;EXAMI<`NE/DEPOSIT DATA
=	WORD	REC,	;MAXIM= UM RECORD LENGTH
	WORD	MOD,	;VERS=`ION OF SOFTWARE
>	WORD	TA,	;10 ALI> VE IF .LE. 1 (11 >@INCREMENTS, 10 SE>`TS TO -1)
	WORD	?TS,	;10 STATUS (0? =INITIAL,1=STARTE?@D INIT,-1=RUNNING?`)
	WORD	ES,	;11 @STATUS (0=INITIAL@ ,1=STARTED INIT,-@@1=RUNNING)
	WORD@`	IFL,	;INPUT FLAGAS
	WORD	IC1,	;INA PUT COUNT (PART 1A@)
	WORD	ID1,	;INA`PTA POINTER (PARTB 1)
	WORD	IC2,	;B INPUT COUNT
	WORB@D	ID2,	;INPUT DATB`A BYTE POINTER
	CWORD	OFL,	;OUTPUTC  FLAGS
			;1=HEAC@DER THERE
			;2=C`FIRST HALF THERE
			;4=SECOND HALD F THERE
	WORD	OCD@1,	;OUTPUT HEADERD` COUNT
	WORD	OD1E,	;OUTPUT HEADER E POINTER
	WORD	OCE@2,	;OUTPUT DATA CE`OUNT
	WORD	OD2,	F;OUTPUT DATA POINF TER
	WORD	OC3,	;F@OUTPUT DATA COUNTF` (PART 2)
	WORD	GOD3,	;OUTPUT DATAG  POINTER (PART 2)G@
>	;IFN	M.AD85
>	
	IFNDEF	M.AHD85,<
	WORD	TTP,H 	
			

	WORD	TH@TG,	
			

	WORH`D	TEP,	
			
	
I	WORD	TEG,	
			

	DATA	EBS,<TEBI@SA> 

	DATA	TBI`S,<TTBSA> 

	DJATA	LTO,<D7AOFS>J  
			

	DATA	DJ@TO,<D7ADSO> 
	PJ`NTR	STS,STATES,	
				

	PNTR	FRK N,TTFREN,	
				
				

	DATA	AOK`M,<M7AKII>
				L
				

	DATA	TL EA,<M7ATEQ>
			L@	

	DATA	TTA,<ML`7ATTQ>

	DATA	MMAX,<M.D7AN+TYPNM UA> 
	DATA	NTT,M@<M.D7AN> 

	IFM`NB	<A>,<ZZZZ==PANRAN>
	IFB	<A>,N <ZZZZ==0>
	DATA	N@PAR,<ZZZZ>	
	IFNN`B	<A>,<ZZZZ==ZZZOZ+PCRAN>

	DATO A	PCR,<ZZZZ>	
	IO@FNB	<A>,<ZZZZ==ZO`ZZZ+PAPAN>
	DATPA	PAP,<ZZZZ>	
	IP FNB	<A>,<ZZZZ==ZP@ZZZ+LPCAN>
	DATP`A	LPC,<ZZZZ>	
	IQFNB	<A>,<ZZZZ==ZQ ZZZ+PCPAN>
	DATQ@A	PCP,<ZZZZ>	
	DQ`ATA	PIO,<M7ANIP>R	



	BLK	TTQR ,<TTBSA>,

	BLR@K	TEQ,<TEBSA>,
R`
	BLK	NIP,<TYPNUA>	
>	
TYPNU[$KP @[nH1P$4[nHV@ [$t7@  [$t8P @[$t`P [$uP [$vKwP [&tLP [<t7P  [<t8P @[<t`P [<t=P [<uP [<uH1P$[<vKsP [<vKwP [>u|SP$T[>vLQP [B}Z (IFN FTMETRH,<
	SKIPGE	T2,MEhPA##
	PUSHJ	P,(T2)
>PUSHJ	P,([Pt,sP [Pt,yP [PtI1P  [PtlsP [PtlyP [PuRP  [PuI3Q @[PuX<P [Pv);P [Pv9:P [Pv=P @[Pv[VP [Pvx:P [Pv{P [Pv}P [SP 
],\YP]\uP]P]HIFNDEF]A,<XP]<A>,<B>>,]`SIFNDEF]A,<A==B>DEF A,]\YP ]$\YP ]2L\YP

tRQ _

t(rQ  _

t(tQ @_

t(vQ _

t({Q _

t,zQ @_

ti8Q _

tm8Q _e|qP _W$)QP @_W&@P `@ `D@ `H@ `L@ `P@ at Q at<Q auP aunQ @au}:Q avrP avtP av2P av4P av)2Q av|ZQ  aw)9Q a8P a<9"P a<:"P a="P a=P a=bP a=P a=I"P a=Y"P a=Z"P a=lbP a=m6P'~a=mBP a>:P a>H1P$a>HVP a>YBP a|\YP a

tVP a

tZP a

t*9Q a

t>(Q  a

t>(Q a

vPP a

vQP a

vJ6P a

v]7P atLQ atlxQ auQ  avP$aeI7P ,anZP an=xP$auP avZP aP aZP at8sQ at8tQ at8yQ at;P at<Q @at<Q  at<	Q at<	Q at<
Q at<
Q at<Q at<Q @at<Q  at]VP  at]qQ @aulP avtP @avzP av
7P'~av

P$av

P"av

	P!av

	P @av

P  av

P av

P av

P av

TQ av

VQ av=qQ  avXtQ atSP 	atXP atP av

SP 	av

[P av
av=;P av\yQ @a	HP$a	HP"a	IP!a	IP @a	JP  athP athQ atiQ  atiQ 0atrQ atLuQ  atX:P  auI1P$auM1Q @av;Q  a"}kP$a$P a$t;hP  a$t;iP a$t;iP a$t;jP a$t;jP a$t;kP a$t;kP a$t<P"a$t<P$a$t<P a$tLP!a$t\P @a$u7P a$uP @a$u	P  a$u	P a$u
P a$u
P a$uP a$uP a$uP a$uySP a$u{@P @a$v9P"a$v	2P!a$v
0P$@a$v8hP a$v8iP!a$v8iP a$v8jP a$v8jP a$v8kPta$v8kPa$vIXP a$vKXPta&m[rPa*n	r 5a*n 4`a+= +a+= +a+ - a+-\ 4@a+-\ 5`a+-\ 4 a+-\ 5@a4tqP$a4t<tP  a4v

 P aZexuP aZv<P @a[MP a[0P a[6P a[&,P a`t.:P a`tX1P a`uY6P a`v<QP ab@ +@abM: ("
	EXCTUU(<A>)
	EXCTUU(abM< (
	EXCTUX(<A>)
	EXCTUX(abN h
	EXCTXU(<A>)
	EXCTXU(ab<[@

`
	ZZ==0
	IRPC A,<
	ZZ1=
	IFIDNZ<=>1<
	IFI	> <A>,<ZZ1==1>
	IFN ZZ1,<ST OPI>
	IFE ZZ1,<
	ZZ==ZZ_6
	ZZ==`ZZ+'A'
>;END IFE ZZ1
>;END IRPC  A
	IRP B,<
	@IFE <ZZ^!'B'>,<G`INST==<PXCT C,[A]>>
>;END IRP  B

	PURGE OPCOD,ZZ1
RGE OPCODac=LtP cV.Y9 Ax	X	RN,7,DJB,	
	X	WS,6,SJ,	
	X	TS,6,SJ,	
IFBXN FTDISK,<
	X	DSBx,6,DJ,	
IFN FTVMC,<
	X	PS,6,DJ,	
>>X	PS,6,DJ,	P et7P"et.8P et.9P etD+P etD@P etE P etEIP etFP etKXP etKYP etM7P et^P$ethSP ethYP ethyP etkP etkXP etkYP etlQP etlRP etlVP etlZP etl[P etlrP etlsP etlyP etmP etmzP etn1P euUQP euUqP euUzP euX\P euXrP euYP euYP ev9P!ev,P ev,8P ev,9P ev8ZP  ev9P"ev92P!ev97P ev99P$ev9:P ev:6P ev;P ev;7P ev;VP ev;vP ev<RP  ev<[P @ev=P ev=P @e,z pRe.(  pelz pPe\S p@e%2 pBe%{8P euX@P e]P e#<]VP eVpP$eVtVP$@eVu\uP e^
IFN FTDICxSK,<
	X	AU,4,DJ,D	
	X	MQ,4,DJ,	
D8	X	DA,4,DJ,	
	X	DXCB,4,DJ,	
>
IFEDx FTDISK,<
	X	ST,E6,SJ,	
>
	X	D1,E84,SJ,	
	X	D2,4,SEXJ,	
	X	DC,4,SJ,	Ex
IFN FTPDBS,< ;IFF WE SWAP PDB'S WF8E NEED THIS QUEUEFX FOR GETTAB'S ETCFx.
	X	SC,7,DJ,	
G				
> ;END FTPDG8BS
IFN FTLOCK,<
	X	CA,4,SJ,	>
IGxFN FTKI10!FTKL10,H<
	X	EV,4,SJ,	>
	X	EV,4,SJ,	>
%3 pg
ez` 4x-
	PUSHJ	P5,SBA	;INTERLOCK 58THIS SUBROUTINE O5XN A
	EXTERN	SBAA
	EXTERN	SBgDbPZgDXBPhgDYlgElbP gFXbP gFYBP gFZBP gF\"P gP g=X@P g P  g"0P g#93P"g#,iV &<.:5g$u{@Q @g&=h6 
	 IFDIF (<A><@T1>,<
	  IHFNDEF A,<
	  PRhINTX	? A IS NOT DEFINED IN FILE S(.MAC!
	  XP	A,CH$MIN-1	;CONDITIONh YOU CAN NOT ENABLE
	  >
	  IFL (<A><
	HRROI	T1,HA		;SETUP CONDIThION
	   >
	  IF GE <A><
	MOVE	T (1,[A]	;SETUP CON HDITION
	  >
	 > h
	XCT	OKSGNL##	;!SKIP IF USER ENAB!(LED FOR TRAPS
	I!HF2,<
	 IFNDEF PS!hISIG,<
	  EXTERN"AL PSISIG
	  >
"(	 >
	JRST	.+3		;"HCHARGE AHEAD IF N"hO TRAPS ALLOWED
#	PUSHJ	P,PSISIG	;#(ELSE CALL SIGNALER
	ALL SIGNALEg+ - g/< 6;
IF2,< IF68NDEF $SCPA,<EXTE6XRNAL $SCPA>>
IF6xIDN <A><I>,< PRI7NTX %SKPCPU (I) U78SED>
	XCT	$SCPA

	XCT	$SCPAg0t:QLg0t:Q g0tJ7Q  g0t\YQ g0tlSQ @g0urQ g0uxQ g0uQ g0v:7Q g2
	BE8GBYT(.FSSIZ)
	$SXLALL==.FSMIN
	RExPEAT .SLMAX,<
		XBYT($SLALL)
		$8SLALL==$SLALL+1
X		>
	XBYT(.FSFNCx)
	XBYT(.FSSTP)
	ENDBYT;
	LIST	ENDBYT;
	LISTg29Y [STg2;5 ]g2< _g2,\YP 
g2-\ XLIST
	BE0GBYT(.FSSIZ)
	XBhYT(.FSFNC)
	XBYTH(.FSEND)
	REPEAT8 A-1,<XBYT(0)>
X	XBYT(.FSSTP)
	ENDBYT;
	LIST	Eg2.i6P g2L9 P g:P$g:4\YP 	g;\YP g@t8hQ @g@t:HQ g@t:HQ g@t<HP g@t<HP g@ulHQ  g@ulHQ g@v8hP  g@v8hP @g@vKQ gCN93P$gLv>9P @gP,[9P!gP-Q gP-hyQ gP/

P"gPtyP  gPt+wP gPt>1Q gPtIP gPtLuQ @gPtM6Q gPt[7Q  gPtmQ gPu

Q @gPu3Q gPuRQ gPuKsQ gPuXSQ gPu\QQ gPukP gPukxP gPulVP gPulZP gPulxP @gPv

[Q gPv-Q gPv=xQ  gPvIQ pgPvMyQ gR- h(JEXTERNAL PhHIOFF,PION
	CONO	hhPI,PIOFF
	CONO	iA,(T1)
	HLRM	T1,i(ACON
	CONO	PI,PION
	CONO	PI,PgR~r ihB
	SALL		

	CONTYP==^O17	j(

IFIDN <A><.>jH<	CONTYP==0>
IFIjhDN <A><.+1><	CONkTYP==1>
IFIDN <k(A><CPOPJ><	CONTYPkH==2>
IFIDN <A><khCPOPJ##><	CONTYP=l=2>
IFIDN <A><Cl(POPJ1><	CONTYP==3lH>
IFIDN <A><CPOlhPJ1##><	CONTYP==3m>



	ACTTYP=m(=-1

IF2 <
IFBmH <B><	PRINTX	?MImhSSING STOPCD ACTInON - SEE %%.C INn( CREF>>

IFIDN nH<B><HALT><	ACTTYnhP==0>	
IFIDN <Bo><STOP><	ACTTYP==o(1>	
IFIDN <B><JoHOB><	ACTTYP==2>	
IFIDN <B><DEBUGp><	ACTTYP==3>	
p(
IFL	ACTTYP,<
IFpH2 <
	PRINTX	?STOphPCD C IS IN ERROqR -- SEE %%.C INq( CREF
>
%%.C::qH	
	ACTTYP==0	
>qh
IFB <C><	PRINTrX	?STOPCD WITHOUTr( A NAME. -- SEE SrH.. IN CREF>

IFrhE	ACTTYP,<
S..Cs::!JRST	4,A		;ERs(ROR C
>
IFN	ACsHTTYP,<
IF2 ,<IFNshDEF	DIE,< EXTERNAtL DIE>>
S..C::!t(PUSHJ	P,DIE		;***tH*** C STOP *****th*
	SIXNAM==<SIXBuIT /C/>
	SIXNAMu(=SIXNAM_<-^D18>
uHIFN <CONTYP-17>,<uh
	BYTE	(9)^O300(v4)ACTTYP(1)0(4)COv(NTYP(18)SIXNAM
>vH
IFE <CONTYP-17>vh,<
	BYTE	(9)^O30w4(4)ACTTYP(1)0(4)w(CONTYP(18)SIXNAM
	JRST	A		;RECOVwhER FROM C STOP
x>>
	PURGE	CONTYPx(,ACTTYP,SIXNAM
	XALL		
XNAM
	gR~
7P"

gS'HP gS'SP gX,]P gX,;wP @gX-
9P$gX.:P"gX.>6P  gX.|ZP!gXtJ9P gXt[RP g_P g_  p2g_` p:g_X  p6g_[` p>g_h  p4g_k` p<ggI;P  hD@ hH@ hL@ hP@ iyS =x
IF2,<IFN>DEF TPIOFF,<EXTER>8N TPIOFF>>
IFN F>XTKL10,<
IF2,<IFN>xDEF PIOFF,<EXTERN? PIOFF>>
	CONO	P?8I,PIOFF	;FOR BUG ?XIN .LT. LEVEL 8 K?xL10 PI SYSTEM
	C@ONO	PI,TPIOFF+PI.@8ON
>;END IFN FTK@XL10
IFN FTKA10!F@xTKI10,<
	CONO	PIA,TPIOFF
>;END IFA8N FTKA10!FTKI10
FTKA10!FTKI10
i{@ <xk
IF2,<IFN=DEF TPION,<EXTERN=8 TPION>>
	CONO	PI,TPION
CONO	PiuMP i$uSQ xi$uXQ i$uYP i$uP  i$v

SP i$v

XP i$v

YP i$vJ7P @i$vK{P i&hP i7+P i:

\YP i<t::P$i<t=P  i<v

SP i<v

XP i<v

YP i<v::P @i@tE
P i@tEP i@tEjP i@tEkP i@tElP i@tF
P iJ^P iJPP iJKUP iJ(zP iJ=P iJ{P iJl,BP iJl9P iJlKbP iJm"P iJmiP iJmlP iJt\YP iKL\P iSLP  iSL*:P iSN\rP iduKP @iduYP idu\P  igX<P j@ kunP kv	3P k&}[rP k:t\YP k@ty:Q k@uYxQ k@v80Q k@vzQ  kBEkP"kN.(1 _p
IFN FTKL`10,<
	SALL
	DAT`0AO	PAG,[LG.LAB+11B11]
	LIST
>1kO[rP kSP @kTt81P @kTt90P kTt<P$kTtX P  kTuI0P `kTuI9P kTuIZP kTuY0P 
`kTu[YP kTu\uP kTuh6P kTvxqP  kVtP kVt^P kVuh6P kVv

PmkWDzPmkWDPHkWD:PKkWDI2P]kWDI;PhkWD[PhkWD[ZPmkWD[\PnkWD\zPkWD]7P kWD^P kWDkP

kWFyP kWF

P kWF

RP

kWF

[P kWFP 	kWFP 	kWFP 
kWF:=P kWF=P kWFJ6P kWFYRP 
kWFi9P kWG

PP k_P k_ySP!n@ oDP#|o2\\YP oJ5 poK  pDoNH1P#AoNHVP oRluP |ocLtQ {qN@ OXLIST
	$X8BYT==$XBYT+<A>B<X$XBYP>
	$XBYP==$xXBYP+$XBYS
	IFG 	$XBYP-^D35,<
		E	8XP <$XBYT>
		$XB	XYP==$XBYS-1
		$X	xBYT==0
		>
	LIST==0
		>
	LISq

tk{Q q

tm3Q q

uiQ q

u}SQ @q

vQ @q

vLXQ q

vZ7Q q

v\yQ q$t<P"q@ A==:Bq@t8sP q@t;P q@tIP$qB` ~A=BqC _A=:But)P ut,P utkP uu P 	0 )S
	IFL LOC)0FLG,<HILOC==.
		)PLOCFLG==1
		LOC	)pABSLOC>
	IFE LOC*FLG,<LOLOC==.
		*0LOCFLG==1
		LOC	ABSLOC>
		LOC		"Lz &-
	IFE LOC$PFLG,<LOLOC==.
		$pLOCFLG==-1
		REL%OC	HILOC>
	IFG L%0OCFLG,<ABSLOC==.
		LOCFLG==-1
		RELOC	HILOC>
=	2N@ *pW
	$HIGH
	LIT

	$HIGH
	2~p #p!
	IFL LOC&pFLG,<HILOC==.
		'LOCFLG==0
		RELO'0C	LOLOC>
	IFG LOhCFLG,<ABSLOC==.
$		LOCFLG==0
		RELOC	LOLOC>
CFL	J-Kq

3
	SALL
	'pTWOSEG	HIORG
	RE'PLOC	HIORG
	LOCFL(G==-1		;0=LOW SEG(0
				;-1=HIGH SE(PG
				;+1=ABSOLU(pTE LOW SEGMENT
	HILOC==HIORG
	LO&0LOC==0
	ABSLOC==0
G==0
		RELO( h
DEFINE	A,<-B(P)>
IFE F(TKL10,<
IFE FTVMH,<
	PUSH	P,1(P)	h	;ADJUST STACK POINTER
>>ACK3PO$@P.$K .@t86PB@~0:DLP DMhP DMhP DMiP Dh{P E{P EIP EM2P E\P EnP F>9P FH{P S@P fN8 8$	IFNDEF	M.XAD85,<M.AD85==0(>	
B=TYPNUA+M.@D7AN+M.AD85	
I`FN C,< IFN	B,<XXICHN==SCNCHN>>	
TP.DLA==0			
	@IFN	B,<
	IFN	M.`AD78,<	
	IF1,	<
	PRINTX	WARNING  DL-10 A A IS D@EFINED AS A DAS78` A AND
	PRINTX	EITHER A DC44 DC7 6 OR DC75,THE DAS@78 DEFINITION
	P`RINTX	HAS BEEN OVERRIDDEN.
>		
M .AD78==0		
M.DA@S78==M.DAS78-1	
`>		
	IFN	M.AD85,<	
	IFN	<TYPNU A+M.D7AN>,<	
	I@F1,	<
	PRINTX	WA`RNING DL-10 A A HAS MORE THAN ON E OPTION 
	PRINT@X	FROM THE SET: D`C44 DC76 & DC75 THE DC75 HAS BEEN
	PRINTX	CHOSEN. @IGNORE THIS WARNI`NG WHEN THIS WAS  DONE ON PURPOSE
  >		
>		
TP.DLA @==TP.D85		
DLX.7 `5=DLX.75+1
>		
!	IFE	M.AD85,<	
! 	IFN	TYPNUA,<TP.!@DLA==TP.DLA+TP.!`D44
	DLX.44=DLX."44+1>
	IFN	M.D7" AN,<TP.DLA==TP.D"@LA+TP.D76
DLX.7"`6=DLX.76+1>
> >	#	
	IFN	FTDAS78,<# 
	IFN	M.AD78,<
TP.DLA==TP.D78	#`
	DLX.78=DLX.78+$1
>		
>	;END OF$  FTDAS78
IFN TP.$@DLA,<PDP11N=PDP11N+1>
11N=PDP1  `<P <vP$<P <qP KP LP MP  Z5P  m6P qP P 9P ;P

LP X3P \P \qP \rP \sP$nP yVP 
6P$<P H8P KP LP zP <P$.8P$D: *$81P $82P $;P $;P $<P '
:P [RP kQP lwP X<P Z7P :=P =P K8P P "eK  P@"eN@ R#+  X@#+y \`#.Y Z`&~+  G@*
`P#H*
hP#J*
iP#L*$P#B2$   2lXTP "2lXVP "2mXTP #2mXVP #2n	WP !2n	XP  2n	[P  6<P 6,:yP @6.,P @6.,	P @6.,	P A6.,
P A6.,
P A6.,P A6.,P B6.,P @6.\P @6T,P 6T,	P 6T,P 6TH:P 6~i   6~i6  @6~k@ "7<P B7$[8P 7.8P 75)P ?7P @?P'p?*XP!?I6P"?I9P!?QP  ?	P$?:2P B

x0P B

xpP B

xrP B

y6P B

ypP B

z7P B

|VP B

}yP N.NV @@N] 7N] 6@N] 7`N] 6 N^	r 7 N^ 6`NeP NeX<P Ne^P Ne^P Nf

qP Nf

rPMNfyPMNfyP#N~0N>N~;L>`OPNO9PNO9P OLP OP O@P SMZP SMLP SMLP SMX7P$SMXyP SM\P 
SN)P SN<P SNLuP SNMP SNh9P SN}P SO

WzP 	WPP kWzP W-P kW\P WiZP eWkxP mW

rP iW

yP jWzP lW+qP hWIZP eWLP YWY6P iW\P#@W]7P 
W]8P 
W	P 	W	TP lW	ZP W	qP hW)6P fWK1P gWK4P gWK8P ZWX1P ]W\P WhzP fWlZP jWD:P WFLVP"ZTMP#D>}{woP