Google
 

Trailing-Edge - PDP-10 Archives - BB-4148D-BM_1980 - dbms-v5a/source/mndsym.unv
There is 1 other file named mndsym.unv in the archive. Click here to see a list.
x
,50@P B:7P Cu|A  Cu|C!h@P C?q@ C?R@ C?9<@ C?X<P C?:@ E1h@P E2^:= tH&
	  A==OthFFS.
	  OFFS.==0
	
	OFFS.==0EV5J9A  EV5J9F@ G"
	  ACHA}HN==B
	  $$$A==}h1B<^D35-B>
	  I~NI.CH==INI.CH ! $$$A
	I.CH ! $G>mSQP H:7P I$QP @IE3QP  I@@ I"&#QP IB
sQP K;&.' SP51
	  ACT.=Sp=0
	  IFNB <D>,T<ACT.==D>
	  IFT0E MODE.-PORTAL,<<TPC>B<EV%VERB>+<ACTpT.>B<EV%FLAG>+ BU##>
	  IFE MODE.U0-GATE,<
	    IRPUP A,<
		A:
		EUpNTRY A
	    >
V	    PUSHJ P,OTSCALL
	  >
	TSCK;&.9 O5
	ENTRY.	N@(CLOSED,CLOSE$,C.N CLOSE)
	ENTRY.	(POPEND,OPEN$,C.OPEP0N)
	
	; ***	DBMPPEND SPECIAL ENTRYPp POINTS
	ENTRY.	Q(SKBIND,SKBIN$,C.Q0BIND,OK.NOSS!SCH.QPIO)
	ENTRY.	(XCLQpUDE,XCLUD$,C.OPENR)
	ENTRY.	(FORCER0,FORCE$,C.OPEN)
RP	ENTRY.	(IDNAME,IRpDNAM$,C.HOST)
	ESNTRY.	(DBWROS,DBWRO$,C.HOST)
	WKc4 VP55C.A*^D100 + EXCODE(B)00M&-I H h
	  T1.=1h
	  IFNB <B>,<

	    T1.==B
	 
(   IFN 100000*T1.
H-100000*B,<T1.==
hT1.+1>
	  >
	AOFFS.
	  OFFS.==OFFS.+T1.
	O$PP Q
CQP Q&=P Q7YgP S:IhtP T:7P U&p W6
	  T1.==W00				
	WpIFNDEF WP$$$A,<T1.==1>		
	  IFN T1.,<
	XX   MOVE R0,A			
	    ST R0, UUO,XPCHAN,+JINB
>
	Xp  IFDIF <C><0>,<Y			
	    MOVE	TAY0P,C		
	    LSH	YPTAP,2				
	   IFYpN TOPS20,<
	    ZIFN T1.,<
	     Z0 ST R0, UUO,CHAN,ZP+USI.WD
	      XZpCT USI.WD
	    >[
	[P  IFE T1.,<U[0SETI A,-3(TAP)>
	   >
	  IFN TO[pPS10,<
	   IFE T\1.,<HRLZI R0,A>	\0	;COMPILE-TIME CH\PANNEL
	   IFN T1\p.,<HRLZS R0>			;N]O
	]p HRRI	R0,.F]0OUSI			;FILOP USE]PTI FUNCTION CODE
	   MOVEM	R0,FLP^BLK
	   SUBI	TAP^0,3				;POINT AT B^PEGINING OF PAGE
^p	   MOVEM TAP,FLP_BLK+1			;BLOCK TO_0 POINT AT
	` MOPVE	R0,FILARG			;FpILOP ARG POINTER
	   FILOP. R0,		`0		;POSITION
	   `P JRST D
	  >>
`p 
	  IFN T1.,<
a	    XCT JINB
	a0  >
	  IFE T1.,<aPIN A,IOWDB>
	 ap 
	  SKIPA
	  JRST D
	
	  JU?.@ b06i
	  T1.==bP0				
	cIFNDEF bp$$$A,<T1.==1>		
	  IFN T1.,<
	cc0   MOVE R0,A			
	    ST R0, UUO,cpCHAN,+JOUTB
>
d	  IFDIF <C><0>,d0<			
	    MOVE	TdPAP,C		
	    LSHdp	TAP,2				
	  IFeN TOPS20,<
	    e0IFN T1.,<
	     eP ST R0, UUO,CHAN,ep+USO.WD
	      XfCT USO.WD
	    >f0
	fp  IFE T1.,<UfPSETO A,-3(TAP)>
	  >
	  IFN TOPgS10,<
	   IFE T1g0.,<HRLZI R0,A>		gP;COMPILE-TIME CHAgpNNEL
	   IFN T1.h,<HRLZS R0>			;NOh0
	   HRRI	R0,.FOhPUSO			;FILOP USEThpO FUNCTION CODE
i	   MOVEM	R0,FLPBi0LK
	   SUBI	TAP,iP3				;POINT AT BEipGINING OF PAGE
	j   MOVEM TAP,FLPBj0LK+1			;BLOCK TO jPPOINT AT
	   MOVjpE	R0,FILARG			;FIkLOP ARG POINTER
k0	   FILOP. R0,			kP	;POSITION
	    kpJRST D
	  >>
	l  IFN T1.,<
	   l0 XCT JOUTB
	  >lP
	  IFE T1.,<OUTlp A,IOWDB>
	m
	  SKIPA
	  JRST D
	
	  JRSUHvI6A  UHvI6YYgP Y7YgP [J,s@P \@ ]>~J@ _63@P _.n9`@ _C%w@ a<SQP a=m6@ a?H6P e8 ;H#j
	  A=B;h
	<IFDEF .A,<
	    IFN .A+B,<(<
	      PRINTX <H"A" ALTER-EGO AL<hREADY IN USE
	  =  >
	  >
	  IFN=(DEF .A,<  .A==-B>
	<  .A==-e:LCQP f:7P g
V@ g>>6 E($:
	
	  OFEHFS.==0
	  LMREG.Eh==0
	  LGREG.==1F6
	
	  IFDEF MUF(REG.,<MREG.=MUREGFH.>
	  IFNDEF MURFhEG.,<MREG.==TREG.G>
	  HMREG.==MREG(G.
	  HIGH==1
	
	  HIGH==1
	g'TxPJg'TP@gRCUAgRCUgRM9@gR^:=PCh:7PhDpPiF[UP iFCQP iJ
YhTP @	vcQP 	hTP 	qhTP 	|@P 	hTP  	+hTP 	2hTP 	6~[ZP 	:}[zP 	G-P 	NhTP 	NYhTP 	N]P 	O!hTP 	ShTP 
Q |S@P .=Q }8Q |:}}Q z>]\sQ |?J7Q zB
{ZQ |N,<Q zNO) Q {O$Q {>}{woP