Google
 
Trailing-Edge - PDP-10 Archives - PCL_FOR_701 - s.unv
There are 3 other files named s.unv in the archive. Click here to see a list.
x,?K@P BP CH1P#qCHVP C&=A  C&=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 CC pCO;wP$CO

SP"CW%xZP DP EMp s EMx@ u E$\YP E,\YP E<.: @XLIST
	IF`B  <B>,<$XBYP==<A>-1>
	IFNB <B >,<$XBYP==<B>>
@	$XBYS==<A>
	$XBYT==0
	LIST$XE3&^QXEXCTUX(<AE3'CTXU(<AE:4\YP ENMp sENMx@ uESyS 
IFE FTMP8,<
	CONO	PI,PI.OXFF
>
IFN FTMP,<x
IFNDEF LOKBTI,<EXTERNAL LOKBTI>
	PUSHJ	P,LOKBTI
>SHJ	P,LOKBTI
IFE FTMP,<
	CONO	PI,PI.O8N
>
IFN FTMP,<
IFNDEF UNLBTI,<ExXTERNAL UNLBTI>
	PUSHJ	P,UNLBTI
>SHJ	P,UNLBTI
Eg%[rP F

HuQ |F

LQQ vF

QQ zF*:Q |F]7Q ~FKQ ~F$Q wF&9:Q xFM\@Q }FN`Q vFN]7Q }FT* Q tF^>9Q xFm@Q tFvH`Q tFw Q zFK{Q {FY Q uF%I Q F,Z5Q yF<rQ wFDZ5Q yF([w EX5		
	  DEFExINE C.A(TEXT)<		F	
	    C%%%ON <F8A>,<BC>,<TEXT>	FX
	  >
	  DEFINE A<BC>		
	EF:xQ8 1P#			
	    30C%%%ON <O%%P>,<OP3%%%D (.SOSLE	)>,<A>	
	  
	    G	7Q GD[<P GdX9 Bx)			
	  DECFINE C.A(FTXT)<	C8		
	    DEFINE CCX.A(TEXT)<		
	  Cx    C%%%ON <A>,<DFTXT>,<TEXT>	
	 D8   >
	    DEFINEDX A<FTXT>			
	  Dx>
	  .XCREF C.AE			
	  DEFINE A<>				
	INE AG
PQ ~8GZP LG"t8VP G2\HKP  G2\^P$G2^ P$G3	z g8
	SALL
	g(ZZ==0		;SET TO 1 gHIF A VALID ARG ISgh SEEN

IFN FTKIh10,<
	IFIDN <A>h( <P4><
			ZZ==1
			IFNDEF .CPEBRhh,<EXTERN .CPEBR>
			DATAO	PAG,.CPi(EBR
			>
	IFIDNiH <A> <0><
			ZZih==1
			IFNDEF .CjPEBR,<EXTERN .CPEj(BR>
			DATAO	PAGjH,.CPEBR
			>
	IjhFIDN <A> <1><
	k		ZZ==1
			IFNDEk(F .CPEBR,<EXTERN kH.CPEBR>
			DATAOkh	PAG,.CPEBR
			>l
	>;END IFN FTKIl(10

IFN FTKL10,lH<
IFB <B> <
	IlhFIDN <A> <P4><
m			ZZ==1
			IFNDm(EF .CPEBR,<EXTERNmH .CPEBR>
			CONOmh	PAG,@.CPEBR
			n>
	IFIDN <A> <0n(><
			ZZ==1
			nHIFNDEF .CPEBR,<EXnhTERN .CPEBR>
			oCONO	PAG,@.CPEBR
			>
	IFIDN <AoH> <1><
			ZZ==1
			IFNDEF .CPEBRp,<EXTERN .CPEBR>
			CONO	PAG,@.CPpHEBR
			>
	>

phIFNB <B> <
			ZqZ==1		;FLAG THAT q(CPU ARG IS OK
		qH	CLRPT	B
	>
	>qh;END IFN FTKL10
r
IFN FTKS10 <
Ir(FB <B> <
	IFIDNrH <A> <P4><
			ZrhZ==1
			IFNDEF .sCPEBR,<EXTERN .CPs(EBR>
			WREBR	@.sHCPEBR
			>
	IFIshDN <A> <0><
			tZZ==1
			IFNDEF t(.CPEBR,<EXTERN .CtHPEBR>
			WREBR	@th.CPEBR
			>
	>

IFNB <B> <
	u(		ZZ==1		;FLAG THuHAT CPU ARG IS OK
			CLRPT	B
	>
	>;END IFN FTKS1v(0

IFE ZZ,<PRINvHTX ? BAD CPU ARGUvhMENT A TO CLRPGTw MACRO>
	PURGE ZZ
O>
	PURGEpZG3G3qP G3H:P  G3KP G3@P G3k1P G3}:P G3,zP G7< P"G:|\YP G;&+P G>$\` )p"a	X	IOW,,SJ*,	
	X	TIOW,,SJ,	*0
	X	DIOW,,DJ,	
*P
	X	PIOW,,DJ,	
*p
	X	SLP,,SJ,	
	+X	EW,,SJ,		
	X	N+0AP,,SJ,	
	X	NUL,+P,SJ,	
IFN FTDAEM+p,<
	X	JDC,,SJ,	
>
	X	STOP,,SJ,	
	X	STOP,,SJ,	G>t0 ;ABCDG>t8: G9C.A <B>;C.A <B>G>t@ 0x
	XP	C$MI`N,C$MIN-1		;DECREMENT MINIMUM CODE 
	IFNB	<A>,<XP @A,C$MIN>	;SET NEW CODE = NEW MIN
ODEP= NEW@MINQ @G@t<hQ  G@t<iQ G@t<iQ G@t<jQ G@t<jQ G@t<kQ G@t<kQ @G@t<|Q @G@v

hQ  G@v

hQ G@v

iQ G@v

iQ G@v

jQ G@v

jQ G@v

|Qx?G@vQ@GBexueOD$t\GC-kVgdS$uGJn9QGN$\YPGPu8P\GPu:IPGPu;P`GPu<`PGPv@PGSMtPGSMVPGSMrPP"I7P$I<P 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 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<PtI6=PI6=P I6N8PtI7Iuh9Q Iv)Q  Iv*RQ Iv,1Q  Iv,5Q Iv8RQ @IvyVQ I0P I"tpQ I&pP I&uQ I':=P I2XP I2l uhL	XLIST

vDEFINE	WORD(SYMBOv(L)<SYMBOL==.I	
	vH		.I==.I+1>

DEvhFINE	DATA(SYMBOL,wDATUM)<SYMBOL==.Iw(
			.I==.I+1>
wH
DEFINE	PNTR(SYMBwhOL,WORD),<.I==.I+x1>

DEFINE	BLK(x(SYMBOL,SIZE),<IFDxHEF SIZE,<.I==.I+SxhIZE>
			  IFNDEFy SIZE,<PURGE .I>>y(

	.I==0
	MAP7yH6		;DEFINE PARAMETERS
	LIST
MEI3Ahu ;h

	XLIST<

DLX.44=0		
D<(LX.76=0
DLX.75=0<H
DLX.60=0
PDP11<hN=0
ZZ=0
	REPEA=T	10,<
	.DLTYP(\=(ZZ,ZZZ,A)
ZZ=ZZ=H+1
>
;
; DEFIN=hE FOR PDP11'S ON >DTE20'S SO WE GET>( SYMBOLS DEFINED.>H
;
DL10XI==PDP1>h1N		
	.DLTYP(8,Z?ZZ,A)
	.DLTYP(9?(,ZZZ,A)
	.DLTYP?H(A,ZZZ,A)
	.DLT?hYP(B,ZZZ,A)
	LI@ST
	XP	DLX.44,DL@(X.44	
	XP	DLX.76@H,DLX.76	
	XP	DLX@h.75,DLX.75
	XP	DLX.60,DLX.60	
I6

;P!I7 P I7-@ @I:

\YP I:,\YP 	I>5@Q }I?(P IHP IJ`P IJn9Q IJpP INHP IN]yS p!
IFE FTMP,<
IF2,<IFNDEF D0SKPIF,<EXTERN DSKPPIF>>
	CONO	PI,DpSKPIF
>
IFN FTMP,<
IF2,<IFNDEF 0DSKLOK,<EXTERN DSPKLOK>>
	PUSHJ	P,DSKLOK
>
J	P,IN]{@ P!
IFE FTMPp,<
IF2,<IFNDEF DSKPIN,<EXTERN DSK0PIN>>
	CONO	PI,DPSKPIN
>
IFN FTMpP,<
IF2,<IFNDEF DSKULK,<EXTERN DS0KULK>>
	PUSHJ	P,DSKULK
>
J	P,IN^+P INxP IO,Y SIOPQ~IR\YPuIR,PIR,;"P 	IR,HbP IR,IP!IR,I"P"IR,hBP"IR,i"P IR-BP IR-BP IR-hbP$IR-iBP IR-j"P"IR-lP IR.`P IZei`P IZf
PQ `Ii
;PYpJ&=`(Kt:Q8KtH:Q Kv<QQ Kv=xQ Kv|ZQ K%X<P 
	IF@N $XBYP-$XBYS+1,<`EXP <$XBYT>>
	PURGE $XBYT,$XBYP,$XBYS
	LISTYP,$K;

\YP@  KJ 
P _
.N==0
R
pEPEAT	A,<ERRJSP (\.N)
.N=.N+1>
0ECOD:	SUBI	T1,ECOPD0+1
	HRRZS	T1
p	JUMPL	M,CPOPJ
	JRST	STOTAC##
	KJy p 5
	.DIRECTIVE .XTABM
	ERRC0OD	(A,B,\B)
	P.DIRECTIVE .ITABMIRECTIVE .ITABMKJU\ 4KK;r  ?
	IFG <B0+1-ECDMAX>,<GENECPD(A,B,C)>
	IFpNDEF A,<A==ECODC##>,<A==ECODKK,x 

0 c
ECODA::JSP	T1,ECODA::KNfXP 

KNf

}PKXtEHPKXti4PKXti7P KXuP KXuHVP KXui:P KXumP KXv);P KXv=P KXvJ{P K^
	X	EV.TK W,SJ	;TAPE KONTRO#HLLER WAIT
	X	EV.$0REW,SJ	;REWIND WA`IT
	X	EV.LBL,SJ	&h;LABEL PROCESSING' WAIT
	X	EV.NET,'(SJ	;NETWORK DEVIC'HE WAIT
	X	EV.NTC'h,DJ	;NETWORK TERM(INAL CONNECT WAIT((
	X	EV.STC,DJ	;N(HETWORK STATION CO(hNTROL WAIT
	X	EV).IPC,SJ	;IPCF SYS)(TEM PROCESS RECEI)HVE WAIT
	X	EV.FE)hI,SJ	;FRONT END D*EVICE INPUT WAIT
	X	EV.FEO,SJ	;FR*HONT END DEVICE OU*hTPUT WAIT
	X	EV.+D60,DJ	;DN60 DEVI+(CE WAIT (WAITING +HFOR THE PDP11)
OR THE PDP11)
KbM: SX-
	SALL
	SxGINST==<PXCT PX.MTEM,[A]>


	PXT8GEN(<A>,<DPB,IDPTXB>,<PX.SRC>)	
		Tx			
	PXGEN(<A>,U<BLT,PUSH,POP>,<PU8X.SRC!PX.MEM>)
	UXGINST
	PURGE GINST

	PURGE GINKbM< V;
	SALL
	V8GINST==<PXCT PX.MVXEM,[A]>
	PXGEN(Vx<A>,<LDB,ILDB,POWP,BLT>,<PX.SRC>)
	GINST
	PURGE GINST

	PURGE GKbN WxM
	SALL
	XGINST==<PXCT PX.MX8EM,[A]>
	PXGEN(XX<A>,<IDPB,DPB,PUXxSH>,<PX.SRC>)
	PYXGEN(<A>,<POP,BLY8T>,<PX.MEM>)
	GIYXNST
	PURGE GINST

	PURGE GINSTKb,81 `H"
IFN FTKL`h10,<
	SALL
IFB a<A>,<
	DATAO	PAa(G,[LG.LAB+01B11]
>
IFNB <A>,<
ah	DATAO	PAG,[LG.LAbB+<<A3>+1>B11]
>
	LIST
>;IFN bHFTKL10
IFN FTKS1bh0,<
	SALL
IFB <cA>,<
	WRUBR	[SGc(.LAB+01B11]
>
IcHFNB <A>,<
	WRUBchR	[SG.LAB+<<A_3>d+1>B11]
>
	LISTd(
>;IFN FTKS10

>;IFN FTKS10
Kb.:=P L@ M
l\YP M,\YP 

Mt80Q@Mt;qQMt;|QMv8xQM\*WPM\+PM\,tPM\,wPM\LxPM] Mt<YP MtMwP Mu{QP Mv)P Mv91P Mv=P Mv\P Mv|ZP M$tMwP M$uyP M$v)P M$v=P M,t<P M,u1P M,uM1P M,uj2P"M,um6P  M,ux1P M,u{VP$M,v=P!M,v=P @M:4\YP M?)6P MJ
	%%%N==0;			;ARGUMENT COUN;8T
IRP A,<
	%FR;XAM1(A,\<%%%N+1>);x	;DEFINE MACRO
	<%%%N==%%%N+1		;BU<8MP COUNT
>
IFE <XFTKL10!FTKS10,<
<x	ADD	P,[%%%N,,%%%=N]	;ALLOCATE THE =8SPACE
	JUMPGE	P,=XS..EPO##	;SHOULD =xNEVER HAPPEN
>
>IFN FTKL10!FTKS10>8,<
	ADJSP	P,%%%N>X
>
	PUSHJ	P,b	>x	;DO THE SUBROUTI?NE
	?XJRST	.+2		?8;NON-SKIP RETURN
	AOS	-%%%N(P)	;P?xASS ON THE SKIP R@ETURN
	SUB	P,[%%@8%N,,%%%N]	;DEALLO@XCATE SPACE
	POPJ@x	P,0		;RETURN
bA: ;SUBROUTINE WITA8H LOCAL STORAGE
LOCAL STORAGE
MJ.3P$MJ>93P$MLt+5P `MLu\uP MLuhyP @MLuk5P MLv{P  MR

8zQ MR/	 Q MR4H2Q MR](P MR]D(P MR^4(Q MRnP MSQ MSHuP MS%H1Q MS5PQ OtXr 0 Q
PRINTX %PECODC IS UNDEFINpED, DEFINE ECDMAX	 IN S.MAC TO BE 	0C+1
A==[MOVEI	T	P1,B
	JUMPL	M,CP	pOPJ##
	JRST	STOT
AC##]
	IF1,<A==0>]
	IF1,<A==Ov<QP$O?I3 HXG		
	O%%Hx%PD(INTERNAL,A)
	INTERNAL,A)		
	  O%%IX%PD(<.NODDT,INTERNAL>,A)
	NTEROPt;rQ OPuPtOPu+qPOPv	POPv+SP,OPv93P 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 SrTP$St:P!St<tP"Sv

wP SvDXQ @Sv]WQ xSw2Q  Sw
vP @SwS$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 S6XP S:h@P S:NH@P$S; P S<P S>

=PS>Y`P8S>=P<@S>}PS>}PS>8P<iS>\PS>{@PS>$T"P<S>$TBPS>$XbPS>$[RP=S>$\BP=S>$\YP"S>&I9P!S>,8|P*S>-iP\S>6=PS>DI9PIS>EI"PKS>L(`P"S>M\P$S>M|PS>NbPS>fI"PyS>t\@P'S>uiP}S>v(uP	PS?@PS?BP*S?I"P\S?	"P	S?K9P=PS?@P!S?HVPS?$[RPS?%I"P9S?-hbP9S?.9UP$S?4i"PLS?5I"PHS?6-7PS?8PS?<0PLS?=I"PLS@rTQS@tUPS@tRPS@t81PS@t82P  S@t:2P S@t:7P @S@t;Q S@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 U,wP`p0#yp0#v$Pp0#ycp0#vB%xTUhyP U|P`p0#rp0#o>

Pp0#rcp0#oB%xTU{P$U}P`p0#kp0#hDPp0#kcp0#hB%xTU:=P UP!U{@P  U P  U,t7Q U,tQ `U,t]PQ U,v\Q  U,v|ZQ @U.%h"P U.LP U.M+BP U.v

WP#qSU@t8qP U@tLP#U@t[XP  U@uP$U@uY:P @U@u|Q U@vuP  UHv(yQ @UHv*9Q UHv+yQ  UHv,YQ UHv.Q UHv.Q |UKP ULtXP"ULtpP ULt(UQ  ULt,Q ULt9\Q @ULt;Q xULt<xQ ULtI1Q 0ULtI6P!ULtI8P ULtLP  ULt^Q ULtlQ ULtnQ ULu
1Q  ULuSQ ULuyQ ULuQ @ULuZ3P$ULu\P ULu\uP |ULuhyQ ULukXQ @ULumP ULunP ULu{Q ULu{wP ULvyP ULv

)Q @ULv,P ULv,9P ULv-:P ULv8wP ULv9RP$ULv9VP ULv:8Q ULv:=P ULvIWP ULvN8P ULw`P ULwyP ULwP ULw<P @U\vyP  U\vyP U\vyP"U\vyVP 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:'@P V;"vP V;$4 P V;%T@P V;%TTP V;%X P V;%X@P V;' P Wh6P W2

=QW2L89PW2L:PW2MW2MrP W2MxtP W2M}VP W2M}rP W2|:P W6PQ a0W6;P 0WB

=Q WB WOIQ Y
` "
	IFNDEF	0CK.BDY,<EXTERNAL PCK.BDY>
	IFNDEF	pNEWCKS,<EXTERNAL NEWCKS>
	SKIPA	T02,[770000,,CK.BDYP]
	JRST	.+4
	TDpNN	T2,B
	PUSHJ	 P,NEWCKS
	ILDB	A,B

	ILDB	Y
y  P"
	IFNDEF	 pCK.BDY,<EXTERNAL !CK.BDY>
	IFNDEF	!0NEWCKI,<EXTERNAL !PNEWCKI>
	SKIPA	T!p2,[770000,,CK.BDY"]
	JRST	.+4
	TD"0NN	T2,B
	PUSHJ	"PP,NEWCKI
	ILDB	A,B

	ILDB	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 YA
pQ {YA
;P vYBYP 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 YPukP YPulvP YPv;P YPv=6P YZd\YP 
Z@ [u@ A(*




AH







Ah








B







B(







	.BH.P==B	
			
	
Bh	DATA	KII,<JSR D7C0BKI>
					
		C(			
	WORD	ESA,	
			

	WORD	WNUCh,	


	WORD	NAMD,	
			
	DATA	EPD(N,<..P>
			
			DH

	WORD	OK,	
		Dh	
			

	WORD	HELT,	
			

	WORE(D	DWN,	
			
			EH
			

	PNTR	UPEhT,.C0UPT,	
				
	IFDEF	MABD85,F(<
	IFE	MABD85+FHMABD60,<  
	WOFhRD	TTP,	
			

G	WORD	TTG,	
			

	WORD	TEP,	
	GH		
	
	WORD	TEG,Gh	
			

	DATA	EHBS,<TEBSB> 

	H(DATA	TBS,<TTBSB>HH 

	DATA	LTO,<DHh7BOFS> 
			

I	DATA	DTO,<D7BDSI(O> 
	PNTR	STS,STIHATES,	
				

	IhPNTR	FRN,TTFREN,	J
				
				

	J(DATA	AOM,<M7BKIIJH>
				
				

Jh	DATA	TEA,<M7BTEKQ>
				

	DATAK(	TTA,<M7BTTQ>
KH
	DATA	MAX,<M.D7KhBN+TYPNUB> 
	DALTA	NTT,<M.D7BN> L(
	DATA	PIO,<M7BLHNIP>	



	BLKLh	TTQ,<TTBSB>,
M
	BLK	TEQ,<TEBSBM(>,

	BLK	NIP,<TMHYPNUB>	
>	
	IFMhN	MABD85+MABDN60,<  
	WORD	SWDN(,	;GLOBAL STATUS NHWORD
			;1=DEPOSNhIT
			;2=EXAMINEO
			;4=ADDRESS IO(S GARBAGE
			;10OH=HOLD EVERYTHING
	WORD	ADR,	;EXAMPINE/DEPOSIT ADDREP(SS
	WORD	DAT,	;EPHXAMINE/DEPOSIT DAPhTA
	WORD	REC,	;MQAXIMUM RECORD LENQ(GTH
	WORD	MOD,	;QHVERSION OF SOFTWAQhRE
	WORD	TA,	;10R ALIVE IF .LE. 1 R((11 INCREMENTS, 1RH0 SETS TO -1)
	WRhORD	TS,	;10 STATUSS (0=INITIAL,1=STS(ARTED INIT,-1=RUNSHNING)
	WORD	ES,	Sh;11 STATUS (0=INITTIAL,1=STARTED INT(IT,-1=RUNNING)
ITHFN MABD60,< 
	ThXP	D60WVR,3	;DN60U WINDOW VERSON
	U(WORD	MXL,	;MAX LIUHNES ON THIS A
	UhWORD	LT1,	;FIRST VLIGHTS WORD
	WORV(D	LT2,	;SECOND LIVHGHTS WORD
	WORD	VhOPE,	;11-OPERATIOWN:
			; 0 = IDLEW(
			; 1 = REQUESWHT TO READ DATA
	Wh		; 2 = REQUEST TXO WRITE DATA
			X(; 3 = REQUEST TO XHREAD DEVICE STATUXhS
			; 4 = REQUEYST TO WRITE DEVICY(E STATUS
			; 5 YH= REQUEST TO READYh LINE STATUS
			Z; 6 = REQUEST TO Z(WRITE LINE STATUSZH
	WORD	LNE,	;LINZhE NUMBER OF ABOVE[ OPERATION
	WORD[(	DVE,	;DEVICE NUM[HBER OF ABOVE OPER[hATION

	WORD	OPX\,	;10-OPERATION C\(ODE
			; 0 = IDL\HE
			; 1 = READ \hDATA INTO 10
			]; 2 = WRITE DATA ](FROM 10
			; 3 =]H READ DEVICE STAT]hUS
			; 4 = WRIT^E DEVICE STATUS
^(			; 5 = READ LIN^HE STATUS
			; 6 ^h= WRITE LINE STAT_US
	WORD	LNX,	;L_(INE NUMBER OF ABO_HVE OPERATION
	WO_hRD	DVX,	;DEVICE N`UMBER OF ABOVE OP`(ERATION (1-4)
	W`HORD	RST,	;RESULT `hCODE
	WORD	XFR,	a;NUMBER OF BYTES a(TRANSFERRED
	BLKaH	CBP,40,	;COUNTS ahAND BYTE POINTERSb (16 OF EACH)
> b(;IFN MABD60
IFbHE MABD60,<  
	bhWORD	IFL,	;INPUT cFLAGS
	WORD	IC1,c(	;INPUT COUNT (PAcHRT 1)
	WORD	ID1,ch	;INPTA POINTER (dPART 1)
	WORD	ICd(2,	;INPUT COUNT
dH	WORD	ID2,	;INPUTdh DATA BYTE POINTEeR
	WORD	OFL,	;OUe(TPUT FLAGS
			;1eH=HEADER THERE
		eh	;2=FIRST HALF THfERE
			;4=SECONDf( HALF THERE
	WORfHD	OC1,	;OUTPUT HEfhADER COUNT
	WORDg	OD1,	;OUTPUT HEAg(DER POINTER
	WORgHD	OC2,	;OUTPUT DAghTA COUNT
	WORD	OhD2,	;OUTPUT DATA h(POINTER
	WORD	OChH3,	;OUTPUT DATA ChhOUNT (PART 2)
	WiORD	OD3,	;OUTPUT i(DATA POINTER (PARiHT 2)
>	;IFE MAihBD60
>	;IFN	MAjBD85+MABD60
>	j(
	IFNDEF	MABD8jH5,<
	WORD	TTP,	
			

	WORD	TTGk,	
			

	WORD	k(TEP,	
			
	
	WkHORD	TEG,	
			
kh
	DATA	EBS,<TEBSlB> 

	DATA	TBS,l(<TTBSB> 

	DATlHA	LTO,<D7BOFS> 
			

	DATA	DTmO,<D7BDSO> 
	PNm(TR	STS,STATES,	
mH				

	PNTR	FRNmh,TTFREN,	
				
n				

	DATA	AOMn(,<M7BKII>
				
				

	DATA	TEnhA,<M7BTEQ>
				o

	DATA	TTA,<M7o(BTTQ>

	DATA	MoHAX,<M.D7BN+TYPNUohB> 
	DATA	NTT,<pM.D7BN> 

	IFNp(B	<B>,<ZZZZ==PARpHBN>
	IFB	<B>,<phZZZZ==0>
	DATA	PqAR,<ZZZZ>	
	IFNBq(	<B>,<ZZZZ==ZZZZqH+PCRBN>

	DATAqh	PCR,<ZZZZ>	
	IFrNB	<B>,<ZZZZ==ZZr(ZZ+PAPBN>
	DATArH	PAP,<ZZZZ>	
	IFrhNB	<B>,<ZZZZ==ZZsZZ+LPCBN>
	DATAs(	LPC,<ZZZZ>	
	IFsHNB	<B>,<ZZZZ==ZZshZZ+PCPBN>
	DATAt	PCP,<ZZZZ>	
	DAt(TA	PIO,<M7BNIP>	tH



	BLK	TTQ,th<TTBSB>,

	BLKu	TEQ,<TEBSB>,
u(
	BLK	NIP,<TYPNUB>	
>	
TYPNU[,P [;ZQ [:=P [$KP @[nH1P$6[nHV@ [$t7@  [$t8P @[$t`P [$uP [$vKwP [&f97Q [&tLP [<t7P  [<t8P @[<t`P [<t=P [<uP [<uH1P$[<vKsP [<vKwP [>u|SP$V[>vLQP [B}Z PIFN FTMETRP8,<
	SKIPGE	T2,MEPXPA##
	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 [cXtP [c,-wP  ],\YP ]\uP ]P ] XIFNDEF A,<XP <A>,<B>>,]` @\IFNDEF A,<A==B>DEF A,]\YP ]\YP ]$HU XA
	IFNDEF xNTLCKJ,<EXTERNAL NTLCKJ>
	PUSHJ	P,NTLCKJ
USHJ	P]$HV X1
	IFNDEF xNTLCLK,<EXTERNAL NTLCLK>
	PUSHJ	P,NTLCLK
USHJ	P]$HZ X9
	IFNDEF xNTUNLK,<EXTERNAL NTUNLK>
	PUSHJ	P,NTUNLK
USHJ	P]$\YP ]%yS p!m
IF2,<IFNDEF NETPIF,<EXTER0N NETPIF>
    IFPN FTMP,<IFNDEF LOpKNPI,<EXTERN LOKNPI>>
>
IFE FTMP0,<CONO PI,NETPIF>P
IFN FTMP,<PUSHJ P,LOKNPI>
SHJ]%{@ P![
IF2,<IFNpDEF NETPIN,<EXTERN NETPIN>
    IF0N FTMP,<IFNDEF UNPLNPI,<EXTERN UNLNpPI>>
>
IFE FTMP,<CONO PI,NETPIN>0
IFN FTMP,<PUSHJ P,UNLNPI>
SHJ]2L\YP?T* Q]?
]Jl\YP ]N$\YP ]N4\YP ]ND`P ]O*:P$]O>P ]R$+ XI
	IFNDEF xNTLCKI,<EXTERNAL NTLCKI>
	PUSHJ	P,NTLCKI
USHJ	P]R$-3 X3
	IFNDEF xNTCHCK,<EXTERNAL NTCHCK>
	IFNDEF 8NTDSTP,<EXTERNAL XNTDSTP>
	IFNDEF xUUOLVL,<EXTERNAL UUOLVL>
	IFNDEF 8INTLVL,<EXTERNAL XINTLVL>

ZZZ==0x				

IFB <B>,<ZZZ==1>		
IFNB 8<B>,<			
  IFIDXN <B><EITHER>,<ZxZZ==1>
  IFIDN < B><UUO>,<ZZZ==1	 8
	PUSHJ	P,UUOLVL X	
	 PUSHJ	P,NTDS xTP>	
  IFIDN <B!><INT>,<ZZZ==1	
!8	PUSHJ	P,INTLVL	
	 PUSHJ	P,NTDSTP!x>>	

IFE ZZZ,<P"RINTX ?BAD SECOND"8 ARG (= B ) TO N"XTDBUG MACRO?>

"xZZZ==0

IFB <A#>,<ZZZ==2>		
IFI#8DN <A><EITHER>,<#XZZZ==1>	
IFIDN <#xA><YES>,<ZZZ==2>$	
IFIDN <A><NO>$8,<ZZZ==3>	

IFE$X ZZZ,<PRINTX ?BAD$x FIRST ARG (= A %) TO NTDBUG MACRO%8?>
IFGE ZZZ-2,<	%X		
	PUSHJ	P,NTCH%xCK	
  IFE ZZZ-3,&<JRST .+2>		
	 P&8USHJ	P,NTDSTP>	

ZZZ==0				

]R$-4 XQ
	IFNDEF xNTULKI,<EXTERNAL NTULKI>
	PUSHJ	P,NTULKI
USHJ	P]R=R Xa		
	IFNDExF NTLERR,<EXTERNAL NTLERR>
	PUSHJ	P,NTLERR	PUSHJ]S}P ]SR XY
	IFNDEF xNTSAV,<EXTERNAL NTSAV>
	PUSHJ	P,NTSAV
PUSHJ	P,N]^l<P 0]_=P ]bl*:P  ^(\ Ju
	  .XCREJ8F
	  CCLEAR(O%%PJX)			
	KCONCAT(OJx%%P,<OP%%%D (>)	
	  IRPC B,<
	 K8   IFIDN <B><[>,KX<
	      STOPI		Kx	
	    >
	    ILFDIF <B><[>,<
	L8      CONCAT(O%%PLX,B)		
	    >
	Lx  >
	  CONCAT(O%M%P,<)>)		
	  O%%M8P				
	  .CREF		MX		
	  OPDEF	B		Mx	
	  .XCREF			
N	  IRP A,<
	   N8 O%%P%D(A)			
	NX  >
	  .CREF
	 >
	  .CREF
	^. 2p#OP%%%D (.SOSLE	)P%%%D (.S^.2 /0"{
	    A	.SOSLE	
	  A	_,h@P!_

tRQ _

t(rQ  _

t(tQ @_

t(vQ _

t({Q _

t,zQ @_

ti8Q _

tm8Q _e|qP _@(Q2 O}
	  DEFINO8E O%%P%D(OP)<
	 OX   OP	A
	  >
	 OP	A
	  >
	_W$)QP @_W&@P `@ `D@ `H@ `L@ `P@ at Q at<Q atzQ @at|tQ  at|xQ auP auHuQ auhyQ aunQ @au}:Q avrP avtP av2P av4P av)2Q av|ZQ  aw)9Q a<9"P a<:"P a="P a=P a=bP a=P a=I"P a=Y"P a=Z"P a=lP a=lbP a=m6P'~a=mBP a>:P a>H1P$a>HVP a>YBP a|\YP a[@Q @a

tVP a

tZP a

t*9Q a

t>(Q  a

t>(Q a

vPP a

vQP a

vJ6P a

v]7P a

vzQ @a

v|yQ  ad)Q 'h@ad*;P <atH2Q atLQ atlxQ auQ  avP$avYQ 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

P$av

P"av

	P!av

	P @av

P  av

P av

P av

P av

P'~av

TQ av

VQ av=qQ  avXtQ auxP aunP av9P av
av\yQ @a	HP$a	HP"a	IP!a	IP @a	JP  a	JP athP athQ atiQ  atiQ 0atrQ atLuQ  atX:P  at\P auI1P$auM1Q @av;Q  av\Q xa"}kP$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$v8kP a$v8kP a$vIXP a$vKXP a&m[rP a&|i@ 
IFE FTMP
IFNDEFESYSOFFFF>
	CONO	PI,SYSOFF
>
IFN FTMP,<
I8FNDEF LOKDPI,<EXTXERN LOKDPI>
	PUSHJ	P,LOKDPI
>Sa&}` 
IFE FTMP8,<
IFNDEF SYSON,X<EXTERN SYSON>
	xCONO	PI,SYSON
>
IFN FTMP,<
IFND8EF UNLDPI,<EXTERNX UNLDPI>
	PUSHJ	P,UNLDPI
>SHJ	a*n	r@5va*n\4`a+=+a+=+a+-ta+-\4@a+-\5`a+-\4ua+-\5@a4tqP$a4t<tP  a4v

 P aZexuP aZv<P @a[MP a[0P a[6P a[&,P a_h6P a`t.:P a`tX1P a`uY6P a`v<QP ab@ +@abM: S
	EXCTUU(<A>)
	EXCTUU(abM< R
	EXCTUX(<A>)
	EXCTUX(abN RX
	EXCTXU(<A>)
	EXCTXU(ab<[@ Z(n
	ZZ==0
ZH	IRPC A,<
	ZZ1=Zh=0
	IFIDN < > <[A>,<ZZ1==1>
	IFI[(DN <	> <A>,<ZZ1=[H=1>
	IFN ZZ1,<ST[hOPI>
	IFE ZZ1,<
	ZZ==ZZ_6
	ZZ==\(ZZ+'A'
>;END IF\HE ZZ1
>;END IRPC\h A
	IRP B,<
	]IFE <ZZ^!'B'>,<G](INST==<PXCT C,[]HA]>>
>;END IRP ]hB

	PURGE OPCOD,ZZ1
RGE OPCODac=LtP cV,tP cV,vP`p0#|jp0#|C&=cV,yP cV,QP cV,htP`p0#p0#|p0#jp0#|C&=cV,hvP cV,hwP`p0$p0#p0$p0#|p0#jp0#|C&=cV,kP cV-vP cV-+qP cV-KTP cV-X]P cV-{TP cV-{VP cV-{WP cV.9P`p0$p0$p0$p0#|p0$jp0#|C&=cV.Y9 %P"3	X	RN,7,DJ%p,	
	X	WS,6,SJ,	
	X	TS,6,SJ,	
	X&0	DS,6,DJ,	
	X	PS,6,DJ,	

	X	PScV.[TP cV.[VP cV.\wP d@ etzP 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 @evvP!ev,P ev,8P ev,9P ev88P 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

@ p
e8@ pBe= pFe,,@ p*eF8@ pLeMm pJeMp r@eMx@ t@e pe\@ pDe@ p@e%2 pHe,,@ p"e%{8P euX@P e]P eKy _h
	EXECAC	`(A)
	MOVSI	17,B
	BLT	17,17
e&:x z(=
	IFNDEF	zCPOPJ1,<EXTERNAL XCPOPJ1>
	JRST	CPOPJ1

	JRST	CPe!
pQ }`e!
;P Ve!pQ ue!;P Je#<]VP e3=|RP 

eVpP$eVtVP$@eVu\uP e^
	X	AU,4,'DJ,	
	X	DA,4,DJ,'0	
	X	CB,4,DJ,	
'P	X	D1,4,SJ,	
	X	'pD2,4,SJ,	
	X	DC,(4,SJ,	
IFN FTLOC(0K,<
	X	CA,4,SJ,	(P>
IFN FTMP,<
	X(p	MM,4,DJ,	>
	X	E)V,4,SJ,	
IFN FTE)0QDQ,<
	X	EQ,4,DJ,	
>
	EQ,4,DJf@ g4P ^(z
	EXECAC	^H(A)
	MOVEM	17,^hB+17
	MOVEI	17,_B
	BLT	17,B+16
	MOVE	17,B+17
MOVE	17,B+17
gt;P g
ez`  i S$u	gDbP gDXBP gDY Am@QgDkBP gEZ"P gEhbP gEjP gElP gFXbP gFYBP gFZBP gF\"P guyS 0!I
IF2,<IFNPDEF SCNPIF,<EXTERpN SCNPIF>
    IFN FTMP,<IFNDEF LO0KSCI,<EXTERN LOKSPCI>>
>
IFE FTMPp,<CONO PI,SCNPIF>
IFN FTMP,<PUSHJ P,LOKSCI>
SHJgu{@ !7
IF2,<IFN0DEF SCNPIN,<EXTERPN SCNPIN>
    IFpN FTMP,<IFNDEF UNLSCI,<EXTERN UNLS0CI>>
>
IFE FTMPP,<CONO PI,SCNPIN>p
IFN FTMP,<PUSHJ P,UNLSCI>
SHJgP g=X@P g P  gt81Q `gt\P gu:8P guH1Q @guM1Q gv1Q gvI7P  gv\P g"0P g#93P"g#,iV 7t<hQg$twP ?g$t;hP  g$t;iP g$t;iP g$t;jP g$t;jP g$t;kP g$t;kP g$t<P  g$tHUQ  g$uP @g$u	P  g$u	P g$u
P g$u
P g$uP g$uP g$uP g$u{@Q @g$v
0P @g$v

HQ g$v

IQ g$v

IQ g$v

JQ @g$v

JA  g$v

KQ g$v

KQ g&=h6 wPi
	IF2,<IFwpNDEF PSICND,<EXTExRNAL PSICND>>
		x0IFNDEF A,<
		  xPPRINTX  ? A IS NxpOT DEFINED IN FILyE S.MAC!
		  XP	y0A,C$MIN-1	;CONDIyPTION YOU CAN NOT ypENABLE
		  >
		zIFGE <A><
		  Pz0RINTX  ? A IS NOzP A NEGATIVE NUMBEzpR!
		  XP	A,C$M{IN-1	;CONDITION Y{0OU CAN NOT ENABLE{P
		  >
	HRROI	T{p1,A		;SETUP COND|ITION
	XCT	NOPIS|0K##	;SKIP IS USER|P IS NOT ENABLED
|p	PUSHJ	P,PSICND	;}ENABLED, CALL SIGNALLER
	LLSIGg',\YP g+ - g/< 
IF2,< IFSKA,<EXTERNAL .CPSKA>>
	XCT	.CPSKA

g0t:Qg0t:Q g0tJ7Q  g0t\YQ g0tlSQ @g0urQ g0uxQ g0uQ g0v:7Q g2
	BE GBYT(.FSSIZ)
	$S@LALL==.FSMIN
	RE`PEAT .SLMAX,<
		XBYT($SLALL)
		$ SLALL==$SLALL+1
@		>
	XBYT(.FSFNC`)
	XBYT(.FSSTP)
	ENDBYT;
	LIST	ENDBYT;
	LISTg29Y :ST5[rg2;5 <I5h6g2< >I6

g2,\YP 
g2-\ |XLIST
	BE

GBYT(.FSSIZ)
	XB

 YT(.FSFNC)
	XBYT

h(.FSEND)
	REPEAT  A-1,<XBYT(0)>
@	XBYT(.FSSTP)
	ENDBYT;
	LIST	Eg2.i6P g2L9 P g2d\YP g:P$g:4\YP 	g;\YP g?I3 GxA		
	  O%%H%PD(.NODDT,A)
	D(.NODDT,A)
	g@t8hQ @g@t:HQ g@t:HQ g@t:PQ |g@t<P g@t<P g@t<HP g@t<HP g@t<PP g@t<sP  g@tLsP @g@t\sP!g@ti4P g@u8P @g@u

Q g@uRP g@uZP g@uyP"g@uQ g@uP g@ui2Q g@ulHQ g@ulHQ g@ulPQ ~g@unP g@v	RQ  g@v
0P g@v+xQ g@v8hP  g@v8hP @g@v8pP `g@v;8P  g@v<Q g@v<sP gCN93P$gCNH1P#qqgCNHVP gHtvP gHt<qP gHtJ2P gHtLqP gHv=P gLv>9P @gP,{Q @gP,[9P!gP-Q gP-LqQ gP-YQ gP-hyQ gP-i9Q  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- '8A
	CONO	PI'X,PI.OFF
	CONO	A'x,(T1)
	HLRM	T1,(ACON
	CONO	PI,PI.ON
CONO	PI,PIgR
` #")
	IFNDEF	#0CK.BDY,<EXTERNAL #PCK.BDY>
	IFNDEF	#pNEWCKO,<EXTERNAL $NEWCKO>
	SKIPA	T$02,[770000,,CK.BDY$P]
	JRST	.+4
	TD$pNN	T2,B
	PUSHJ	%P,NEWCKO
	IDPB	A,B

	IDPB	gR~r (XS
	SALL		

	CONTYP==^O17	)

IFIDN <A><.>)8<	CONTYP==0>
IFI)XDN <A><.+1><	CON)xTYP==1>
IFIDN <*A><CPOPJ><	CONTYP*8==2>
IFIDN <A><*XCPOPJ##><	CONTYP=*x=2>
IFIDN <A><C+POPJ1><	CONTYP==3+8>
IFIDN <A><CPO+XPJ1##><	CONTYP==3+x>



	ACTTYP,==-1

IF2 <
IF,8B <B><	PRINTX	?M,XISSING STOPCD ACT,xION - SEE %%.C I-N CREF>>

IFIDN-8 <B><HALT><	ACTT-XYP==0>	
IFIDN <-xB><STOP><	ACTTYP=.=1>	
IFIDN <B><.8JOB><	ACTTYP==2>	.X
IFIDN <B><DEBU.xG><	ACTTYP==3>	
/IFIDN <B><CPU><	/8ACTTYP==4>	

IF/XL	ACTTYP,<
IF2 </x
	PRINTX	?STOPCD0 C IS IN ERROR -08- SEE %%.C IN CR0XEF
>
%%.C::	
0x	ACTTYP==0	
>
I1FB <C><	PRINTX	?18STOPCD WITHOUT A 1XNAME. -- SEE S.. 1xIN CREF>

IFE	A2CTTYP,<
S..C::!28JRST	4,A		;ERROR2X C
>
IFN	ACTTY2xP,<
IFNB <D>,<A3CTTYP==ACTTYP+10>38
IF2 ,<IFNDEF	DI3XE,< EXTERNAL DIE>3x>
S..C::!PUSHJ	4P,DIE		;****** C48 STOP ******
	SI4XXNAM==<SIXBIT /C4x/>
	SIXNAM=SIXNA5M_<-^D18>
IFN <C58ONTYP-17>,<
IFB 5X<D>,<
	BYTE	(9)5x^O300(4)ACTTYP(1)60(4)CONTYP(18)SIX68NAM
>
IFNB <D>6X,<
	BYTE	(9)^O306x0(4)ACTTYP(1)0(4)7CONTYP(18)[D,,SI78XNAM]
>
>
IFE 7X<CONTYP-17>,<
IF7xB <D>,<
	BYTE	(89)^O304(4)ACTTYP(881)0(4)CONTYP(18)S8XIXNAM
>
IFNB <8xD>,<
	BYTE	(9)^O9304(4)ACTTYP(1)0(984)CONTYP(18)[D,,9XSIXNAM]
>
	JRST9x	A		;RECOVER FRO:M C STOP
>>
	P:8URGE	CONTYP,ACTTYP,SIXNAM
ACTTYgR~
7P"

gS'HP gS'SP gX,]P gX,;wP @gX-
9P$gX.:P"gX.>6P  gX.|ZP!gXtJ9P gXt[RP g_P ggI;P  gg
3 XM
IFE FTMPx,<
	CONO	PI,PI.O	FF
>
IFN FTMP,<	8IFNDEF LOKSPI,<EX	XTERN LOKSPI>
	PUSHJ	P,LOKSPI
>gg
7 
e
IFN FTMP
8,<IFNDEF UNLSPI,<
XEXTERN UNLSPI,UNL
xSPT>
IFB <A><PUSHJ P,UNLSPI>
IF8NB <A><PUSHJ P,UXNLSPT
	CONO PI,PxI.ON+A>
>
IFE 

FTMP,<
IFB <A><

8CONO PI,PI.ON>
I

XFNB <A><CONO PI,PI.ON+A>
>PI,hD@ hH@ hL@ hP@ iyS !%
IF2,<IFN0DEF TPIOFF,<EXTERPN TPIOFF>>
	CONO	PI,TPIOFF
ONOi{@ !
IF2,<IFN0DEF TPION,<EXTERNP 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&|P ri&|X@ ti&}` r i&}h@ t i7L\YP i:

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

SP i<v

XP i<v

YP i<v::P @i@tE
P i@tEP i@tEHP i@tEjP i@tEkP 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 idty7P iduKP @iduYP idu\P  igX<P j@ k

^P'fk
]6P k
	yP  k
Mj:P  krzP ktzP kunP kv	P kv	3P kv	ZP k$rzP k$tzP k$v	P k$v	ZP k&}[rP k6~i  qk6~i6 q k:5QP!k:vP k:+2P"k:,P!k:D,P"k:MP @k:[TP k:i2P @k:9Q k:,[P$k:=P  k:=P'f k:K7P$k:hZP @k:t\YP k@rzP k@tzP k@t<xQ k@ty:Q k@uYxQ k@u[P k@u[7Q @k@u\Q k@v	P k@v	WQ k@v	ZP k@v	qQ  k@v80Q k@vzQ  k@v|yQ kBEkP"kN.(1 dh4
IFN FTKLe10,<
	SALL
	DATe(AO	PAG,[LG.LAB+11eHB11]
	LIST
>;IFehN FTKL10
IFN FTKfS10,<
	SALL
	WRf(UBR	[SG.LAB+11B11fH]
	LIST
>;IFN FTKS10

>;IFN FkO[rP kSP @kTt81P @kTt90P kTt<P$kTtX P  kTuI0P `kTuI9P kTuIZP kTuY0P 
`kTu[YP kTu\uP kTuh6P kTuhvP @kTvxqP  kVtP kVt^P kVuh6P kVv

P kV}Ku '5x2PkV}k )6

tPkWDzPmkWDPHkWD: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 oJ

@ poJ8@ pRoJ= pVoJ,,@ p(oJF8@ p\oJMm pZoJMp r`oJMx@ t`oK poK\@ pToK@ pPoK%2 pXoK,,@ p&oNH1P#qoNHVP oPukyQ oPul[P oPv-zP$oPv}Q @oRluP |ocLtQ {p +hf			
  IFN-hB <A>,<A==:%%%O,FF>		
  IFNB <B,(>,<%%%OFF==%%%OFF,H+B>	
  IFB  <B,h>,<%%%OFF==%%%OFF+1>	
TATE CODEqN@ .XLIST
	$X BYT==$XBYT+<A>B<@$XBYP>
	$XBYP==$`XBYP+$XBYS
	IFG $XBYP-^D35,<
		E XP <$XBYT>
		$XB@YP==$XBYS-1
		$X`BYT==0
		>
	LIST==0
		>
	LISq

tk{Q q

tm3Q q

uiQ q

u}SQ @q

vLXQ q

vZ7Q q

v\yQ q$t<P"q@ TA==:B@q@t8sP q@t;P q@tIP$q@uMP$qB` RA=BqC "gA=:BHxq`P ut)P ut,P utkP uu P 	0 P '
	IFL LOCpFLG,<HILOC==.
		LOCFLG==1
		LOC	0ABSLOC>
	IFE LOCPFLG,<LOLOC==.
		pLOCFLG==1
		LOC	ABSLOC>
		LOC		"Lz p 
	IFE LOCFLG,<LOLOC==.
		0LOCFLG==-1
		RELPOC	HILOC>
	IFG LpOCFLG,<ABSLOC==.
		LOCFLG==-1
		RELOC	HILOC>
		2N@ 0 +
	$HIGH
	LIT

	$HIGH
	2~p  
	IFL LOC0FLG,<HILOC==.
		PLOCFLG==0
		RELOpC	LOLOC>
	IFG LOCFLG,<ABSLOC==.
0		LOCFLG==0
		RELOC	LOLOC>
	RE	J-Kq }P}
	SALL
	}pTWOSEG	HIORG
	RE~LOC	HIORG
	LOCFL~0G==-1		;0=LOW SEG~P
				;-1=HIGH SE~pG
				;+1=ABSOLUTE LOW SEGMENT
	0HILOC==HIORG
	LOPLOC==0
	ABSLOC==0
0
	ABSLOC==
-ySP ( Ax
DEFINE	BA,<-B(P)>
IFE FB8TKL10!FTKS10,<
>L10!FTKS10,<
>$@`.$K.@t86B@~0:D=iP DLP DMhP DMhP DMiP Dh{P E{P EIP EM2P E\P EnP F>9P FH{P nNP S@P 8:P 8sP 8wP 9P ;3P ;7P ;SP ;WP <P =P >P fN8 -HZ	IFNDEF	M0.AD85,<M0AD85==0.(>	
	IFNDEF	M0AD.H60,<M0AD60==0>	
	IFNDEF	TYPNUA,/H<TYPNUA==0>	
	I/hFNDEF	M.D7AN,<M.0D7AN==0>	
B=TY0(PNUA+M.D7AN+M00HAD85	
IFN C,< I0hFN	B,<XXICHN==SC1NCHN>>	
TP.DLA=1(=0			
B==0
IFN1H TYPNUA,<B==B+1h1>
IFE TYPNUA,<2IFN M.D7AN,<B==2(B+1>>
IFN M0AD2H85,<B==B+1>
IF2hN M0AD60,<B==B3+1>
IFG B,<
B3(=B-1
IFG B,<
3H	IF1,	<
	PRINTX	3hWARNING: DL10 PDP4-11 NUMBER A HAS4(
	PRINTX	MORE TH4HAN ONE OPTION
	P4hRINTX	FROM THE SE5T: DC44, DC76, DA5(S85(OR DC75)
	PR5HINTX	AND DN60.
>5h		
> ;END OF IFG6 B
IFN M0AD85,6(<
TP.DLA==TP.D86H5
DLX.75==DLX.756h+1>
IFE TP.DLA,7<
	IFN	TYPNUA,<7(TP.DLA==TP.DLA+7HTP.D44
	DLX.44=D7hLX.44+1>
	IFN	M.8D7AN,<TP.DLA==T8(P.DLA+TP.D76
DL8HX.76=DLX.76+1>
I8hFE TP.DLA,<IFN F9TDN60,<
	IFN	M09(AD60,<
TP.DLA==9HTP.D60	
	DLX.60=9hDLX.60+1
>		
>	:;END OF FTDN60
>:( ;END OF IFE TP.D:HLA
> ;END OF IF:hE TP.DLA
IFN TP;.DLA,<PDP11N=PDP;(11N+1>
> ;END OF IFG B
END OF  `<P <vP$9P$<P <qP <qP KP LP LqP LqP MP  NP Z5P  m6P qP qP P 9P :8P ;P 

;P <P <wP LP X3P \P \qP \rP \sP$nP yVP 
6P$<P ;\P <P =rP H8P KP LP zP <P$.8P$D: *$81P $82P $;P $;P $<P '
:P X`P#@[RP kQP lwP X<P Z7P :=P =P K8P P "eK  P@"eN@ R#+  X@#+y \`#.Y Z`&~+  G@*
`P#x*
hP#z*
iP#|*$P#r2$   2lXTP "2lXVP "2mXTP #2mXVP #2n	WP !2n	XP  2n	[P  3X`P#p6<P 6m@Q 6,:yP @6.,P @6.,	P @6.,	P A6.,
P A6.,
P A6.,P A6.,P B6.,P @6.-6P B6.\P @6T,P 6T,	P 6T,P 6TH:P 6~i   6~i6  @6~k@ "7<P B7$[8P 7.8P 7.\P 75)P >luP'?7P @?P'|?*XP!?I6P"?I9P!?K9P!?lxP"?QP  ?HSP ?	P$?,QP ?:2P B

x0P B

xpP B

xrP B

y6P B

ypP B

z7P B

|VP B

}yP B%xTA  B%xTBmY9P NkQP Nk1P N%X<P N.NV @@N] 7N] 6@N] 7`N] 6 N^	r 7 N^ 6`NeP NeX<P Ne^P Ne^P Nf

qP Nf

rP NfyP NfyP N~0 >N~;=>`OP O9P O9P OLP OP O
R"+1P 
R"+9PR-\P#vSLVPSL9P	SL9PSLElPSLJ9PSLLPPSLLuP SLMP SL\zP SM@P SMZP SMLP SMLP SMX7P$SMXyP SM\P 
SN)P SN<P SNLuP SNMP SNh9P SN}P SO

WzP 	WPP oWzP W-P nW=P {W[RP |W\P WhqP yWhrP zWhzP zWiZP hWkxP pW

rP mW

yP mWzP oW+qP lWIZP iWKVP {WLP \WLzP yWY6P lW\P#pW]P W]P 

W]7P 
W]8P 
W]XQ 0WnP kW	P 	W	TP pW	ZP W)6P jW;P ]W=tP zWK1P kWK4P jWK8P ]WMQP WX1P `W\P WhzP iWlZP nW.8P#pWD:P WFLVP"ZTMP#t_$zP 	_$I9P 
_%h6P _%|YP"_&NP _&YQP 
>}{woP