PDP-10 Archive: update/cblsrc/dbcsym.unv from CFS_TSU04_19910205

Trailing-Edge - PDP-10 Archives - CFS_TSU04_19910205_1of1 - update/cblsrc/dbcsym.unv

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

x
,5f@P C!nP C&*P 7CH1P 	CI1P CJqP CKPP 	CLQP CX1P CY1P CZqP C[PP C\QP Ch1P Ci1P CjqP CkPP ClQP C2+ xA=
	  IFNDEF AL.NAM,<
	   8 FUNCT	ALC.M,<[SIXZ.AB]>
	    MOVxEM	R0,CIC
	  >
	  IFDEF AL.NAM,8<
	    HRRZ	R0,XAL.NLEN(CRU)
	  x  MOVEI	CIC,SIZ.AB
	    GLOYO	TR8U.BLK		
	    MOVXSI	R1,AL.NLEN(CRxU)
	    HRRI	R1,AB.NLEN(CIC)
	 8   BLT 	R1,@R0
	X    FUNCT	UPDSY.,x<AB.ID(CIC)>
	  >
	  IFDEF AL.8NMID,<
	    LD	RX1, AL,NMID,(CRU)x
	    ADD	R1,IDVEC(SS)
	    HRLI8	CIC,TID.AL
	  X  MOVEM	CIC,0(R1)x
	    IFDEF AL.NAM,<MOVEM R1,AB8.ID(CIC)>
	    HXRRZS	CIC			
	  >
	CIC			
	  >C2	`P DC2	hP DC2J2P EC2YltP C2alyP 	C3J2P EC>=9P 8C>H:P CJ,P CJ-J`P 9CJt P CJ|jr v8?O
	  MOVE	vXB,AREALST(SS)
	vx  LD	C, ADR,AB,(wB)		
	  CAMLE	w8A,AB.LASP(C)
	 wX AOBJN	B,.-2
		wxMDDCD.=MDDCD.+1		x	;EXCEPTION CODE
	  JUMPGE B,EXJxXRST (KIA,<MDDCD.>xx)		
	  CAMGE	A,yAB.1STP(C)		
		y8MDDCD.=MDDCD.+1		yX	;EXCEPTION CODE
	  EXCEP	(KIA,<MDDCD.>)				
	MCK   
	  T1.==(1
	  IFNB <B>,<H
	    T1.==B
	h    IFN 100000*T1.-100000*B,<T1.=(=T1.+1>
	  >
	 H A==OFFS. - 1
	h  OFFS.==OFFS.+T1.
	.==OFFS.+T1E2^:= H 6
	  A==OhFFS.
	  OFFS.==0
	
	  OFFS.==0EV9:P 8Eg$\` ( `
	  POS.=H=-1
	  IRP B,<DhUMMY(A,B)>

OFFS.==OFFS.+1
	FS.==OFFS.+1
	GeMrP 	Gf\}P G"YlQP 9G0t;zP G0vJ6P G;!dVP ,G;!h6P ,G;!hpP )G;!huP (G;!hvP &G;!hyP $G;!iP )G;!i7P -G;!iXP *G;!ipP #G;!irP #G;!iwP $G;!jQP (G;!jXP 'G;!jXP 'G;!kVP +G;!lP +G;!lP %G;!lP %G;!ltP G;!lzP G;!mP -G;!m	P -G;!mP *G;!mP &G>$S[P GC8P GWlQP /GWlZP .GWlyP *GW8pP 9I$:P 0I
3YA  I
3YI
3\A  I
3\I
YhZ@ ;I
YjP :I
Yk\P ;I
YlP :I
^)3P IH1P *IKpP AIdP JIdI8P IIe[1P II	j: @Y
		MDDCD.8=MDDCD.+1			;EXCEXPTION CODE
	IFN xTOPS10<
	  MOVSI		R1,B
	  HRRI	R	81,A
	  DEQ.	R1,	X
	    EXCEP (QOS	x,<MDDCD.>,(R1))

	>
	IFN TOPS20<
8
	  MOVEI	R1,B

X	  MOVEI	R2,A
	
x  DEQ
	    EXCEP (QOS,<MDDCD.>,(R1))
	>
	.>,(RI'P ;I<td` 8A{
	  FUNCTX	FIND3%,<KEY NEXTx,ZERO,[A],KEY SET>
	  JUMPE	R0,8B
	  MOVEM	R1,CRU
	MOVEM	R1,CRIVlx:P IVm^   H"
	ONEBYT(A,B,C)
	YT(J#[P tJRP \JP hJ9P DJHgP PJKyP 8J\WP ,J$[P  J%X7P!C(J5RP #J<P 'J<]P *|J=Y6P!GJLCTP!tJL`P .pJMP!/dJMY9P!3XJMl`P!+pJU}9P 2dJ\P 6XJ]`P :LJ]P >@JdX;P B4Jl\P F(Jl;vP!;@JmP!7LJm`P JJmKuP NJmx`P RJmyP UxJm}RP YlJn]P!?4J~	7P ]`J~LtP aTJ|ZP eHJXgP!hJ[ P i<J:P!\J:P!

PJ]P m0J]P!DJH:P!8JKyP uJ%P!,J&(7P y

J&+GP! J&-'P! J.	P!$J=P }JF=P!'|K:!n@ K;	jP DK;	jP RK;	jP @K;	jP OK;	j: z8@=
	IFN TOPzXS10,<
	  MOVSI	Rzx1,B
	  HRRI	R1,{A
	  ENQ.	R1,
{8	    JRST [CAIN	R{X1,ENQRU%
		 C
{x		 CAIN	R1,ENQDR%|
		MDDCD.=MDDCD.|8+1			;EXCEPTION C|XODE
		 EXCEP	(DO|xR,<MDDCD.>)
		 C}AIE	R1,ENQQE%
		}8 CAIN	R1,ENQNC%
}X		MDDCD.=MDDCD.+1}x			;EXCEPTION COD~E
		 EXCEP	(RSX,~8<MDDCD.>)		;MONIT~XOR RAN OUT OF ROO~xM IN SOME WAY
		MDDCD.=MDDCD.+1		8	;EXCEPTION CODE
		 EXCEP	(QOS,<MxDDCD.>)]			;ALL OTHERS
	>				;END8 IFN TOPS10
	IFNX TOPS20,<
	  MOVxEI	R1,B
	  MOVEI	R2,A
	  ENQ
8;[6%520]    JRST X[HRL	R0,R1			;[6%x426] SAVE ENQ ERROR RETURN
	    J8RST [CAIN	R1,ENQXX6		;[6%520] fixedx elsewhere
		 C
		 CAIN	R1,ENQX85
		MDDCD.=MDDCDX.+1			;EXCEPTION xCODE
		 EXCEP	(DOR,<MDDCD.>,R1)	;8[6%520]
		 CAIE	XR1,ENQX18
		 CAIxN	R1,IPCFX8		;NO MONITOR CORE
		M8DDCD.=MDDCD.+1			X;EXCEPTION CODE
x		 EXCEP	(RSX,<MDDCD.>,R1)	;[6%5208]
		MDDCD.=MDDCDX.+1			;EXCEPTION xCODE
		XEXCEP	(QOS,<MDDCD.>,R1)]	8;[6%520]ALL ELSE
	>				;END IFN TOPS20
	D IFN TK;	j\P PK;	lP MK;	l@P AK;	lzP IK;	m P CK;

3T XA
		MDDCD.x=MDDCD.+1			;EXCE

PTION CODE
	IFN

8TOPS10,<
	  MOVE

XI	R0,A
	  MOVEI

x	R1,OTSTAT(X)			;
	ENC.	R0,
	XCEPEQOS,<MDDCD.>,(R0))
	  HRRE	8R0,OTSTAT(X)
	>X
	IFN TOPS20,<
	x  MOVEI	R1,.ENQCS
	8MOVEI	R2,A
	  MOVEI	R3,OTSTXAT(X)
	  ENQC
	x    EXCEP (QOS,<MDDCD.>,(R1))
	  8HRRE	R0,OTSTAT(X)
	>
	TSTAT(X)K;

<ZP SK;&.' F8<O
	  IFN MFXODE.-DUMGAT,<
	 Fx   ACT.==0
	    GIFNB <D>,<ACT.==G8D>
	  >
	  IFEGX MODE.-PORTAL,<<GxC>B<EV%VERB>+<ACTH.>B<EV%FLAG>+ B#H8#>
	  IFN MODE.-HXPORTAL,<
	    IRHxP A,<
		A:
		IENTRY A
	I8  >
	    IFE MODE.-GIXATE,<
	      PUSIxHJ P,OTSCALL
	    >
	  >
		  K;&.9 @</
	ENTRY.	P(CLOSED,CLOSE$,C.pCLOSE,ENQ.ALT)		;(ENQ.X SINCE PLAYSh WITH J LABEL PAGE
							;[6%31]HEAV IS STRONGER THAN
							;...X( SINCE LIKE OPEN
	ENTRY.	(CLOTR,CLOTR$,C.CLOTR,JR.hOVU!JR.UPD!ENQ.J)H
	ENTRY.	(DELETRx,DELET$,C.DELETE,(JR.UPD!ENQ.X!CRU.MUST!VAC.UPD)
	EHNTRY.	(DELTR,DELTxR$,C.DELTR,JR.UPD!ENQ.X!OK.SUS) ;I8S JR.OVU,
						X	   ; BUT WANT A xCMD HDR
							   ; FOR IT!
	ENT8RY.	(FIND1,FIND1$X,C.FIND,ENQ.SH)
x	ENTRY.	(FIND2,FIND2$,C.FIND,ENQ.S8H)
	ENTRY.	(FINDX3,FIND3$,C.FIND,ExNQ.SH)
	ENTRY.	(FINDO,FINDO$,C.FI8ND,ENQ.SH)
	ENTRXY.	(FIND4,FIND4$,xC.FIND,ENQ.SH)
	ENTRY.	(FIND5,FIN8D5$,C.FIND,ENQ.SHX)
	ENTRY.	(FIND6x,FIND6$,C.FIND,ENQ.SH)
	ENTRY.	(F8INS6,FINS6$,C.FINXD,ENQ.SH)
	ENTRYx.	(<GETS,GET>,GET$,C.GET,CRU.MUST!8ENQ.SH)
	ENTRY.	X(<INSRT,INSERT>,IxNSER$,C.INSERT,JR.UPD!ENQ.X!CRU.MU8ST!VAC.UPD)
	ENTXRY.	(<MODIF,MODIFxY>,MODIF$,C.MODIFY,JR.UPD!ENQ.X!CR8U.MUST!VAC.UPD)
X	ENTRY.	(OPEND,OPxEN$,C.OPEN,ENQ.ALT)		;ENQ.ALT PLAY8S SAFE SINCE OPENX CAN INCREASE SIMxULTANEITY
	ENTRY .	(OPENT,OPENT$,C 8.OPNT,JR.OVU!JR.U XPD!ENQ.J)
	ENTRY x.	(<REMOV,REMOVE>!,REMOV$,C.REMOVE,!8JR.UPD!ENQ.X!CRU.!XMUST!VAC.UPD)
	E!xNTRY.	(<STORE,STO"RED>,STORE$,C.STO"8RE,JR.UPD!ENQ.X!V"XAC.UPD)
	
	; **"x*	CONTEXT AFFECTI#NG ENTRY. PTS
CO#8MMENT	\[6%542] Ch#Xange the entry SB#xIND to %SBIND. Co$mpilers will stil$8l refer
	to SBIN$XD, but during the$x link, ots.REL wi%ll resolve 'SBIND%8==%SBIND'
	and r%Xequest DBMS.REL.
	\
	ENTRY.	(%SB&IND,SBIND$,C.BIND&8,OK.NOSS!VAC.BIND&X!OK.SUS!SCH.IO)	;&x[6%542]
	; ***	O'K.SUS ON IN 2 BEL'8OW SO THAT THE BI'XNDING EXCEP WILL 'xBE CORRECTLY RETU(RNED
	; ***	BUT (8NO OTHER VERBS AF(XTER THE FAULTY BI(xNDING WILL SUCCEE)D
	ENTRY.	(BIND,)8BIND$,C.BIND,VAC.)XBIND!OK.SUS!SCH.I)xO)
	ENTRY.	(EBIN*D,EBIND$,C.BIND,V*8AC.BIND!OK.SUS!SC*XH.IO)

COMMENT	*x\[6%542] Make INI+TDB and SETUSE sh+8are an entry, and+X decide which
	i+xs which in the US,E$ code. In DBGAT,8E, 'SETUSE==INITD,XB'.
	This is an ,xinterim fix, unti-l more entries
	-8can be added. At -Xthat time, make i-xt look like this:.
		ENTRY. (INITD.8B,USEC$,C.BIND,VA.XC.BIND!OK.NOSS)
.x		ENTRY. (SETUSE,/USEF$,C.BIND,VAC./8BIND)
	\
	ENTRY/X. (INITDB,USE$,C./xBIND,VAC.BIND!OK.0NOSS)	;[6%542]
08
	ENTRY.	(SETDB,S0XETDB$,C.CALL,VAC.0xCALL!OK.SUS)
	EN1TRY.	(UNSET,UNSET18$,C.CALL,VAC.CALL1X!OK.SUS)
	ENTRY.1x	(SAVESS,SAVES$,C2.CALL,VAC.CALL)
28	; ***	JOURNAL EN2XTRY. PTS
	ENTRY.2x	(JMNAME,JMNAM$,C3.CALL,VAC.CALL)
38	ENTRY.	(JMDISK,J3XMDIS$,C.CALL,VAC.3xCALL)
	ENTRY.	(J4MAFT,JMAFT$,C.CAL48L,VAC.CALL)
	ENT4XRY.	(JMBEF,JMBEF$4x,C.CALL,VAC.CALL)5
	ENTRY.	(JMBOTH58,JMBOT$,C.CALL,VA5XC.CALL)
	ENTRY.	5x(JMNONE,JMNON$,C.6CALL,VAC.CALL)
	68ENTRY.	(JSTRAN,JS6XTRN$,C.CALL,VAC.C6xALL!JR.OVU!JR.UPD7!ENQ.X)
	ENTRY.	78(JETRAN,JETRN$,C.7XCALL,VAC.CALL!JR.7xOVU!JR.UPD!ENQ.X)8
	ENTRY.	(JBTRAN88,JBTRN$,C.CALL,VA8XC.CALL!JR.OVU!JR.8xUPD!ENQ.X!OK.SUS)9
	ENTRY.	(JRDATA98,JRDAT$,C.CALL,VA9XC.CALL!JR.OVU!JR.9xUPD!ENQ.X)
	ENTR:Y.	(JRTEXT,JRTEX$:8,C.CALL,VAC.CALL!:XJR.OVU!JR.UPD!ENQ:x.X)
	; ***	STATI;STICS
	ENTRY.	(S;8TATS,STATS$,C.CAL;XL,VAC.CALL)
	; *;x**	PSEUDO-HOST AC<TIONS: PREDICATES<8 & COPY
	ENTRY.	<X(MOVEC,MOVE$,C.HO<xST)
	ENTRY.	(<EM=PTY,SETCON>,EMPTY=8$,C.HOST,ENQ.SH)	=X		;KEEP LOUSY NAM=xES RATHER THAN CH>ANGE COMPILER
	E>8NTRY.	(<RECMO,TEN>XANT>,TENAN$,C.HOS>xT,ENQ.SH)
	ENTRY?.	(<RECMEM,MEMBER?8>,MEMB$,C.HOST,EN?XQ.SH)
	ENTRY.	(<?xRECOWN,OWNER>,OWN@ER$,C.HOST,ENQ.SH@8)
	ENTRY.	(CALCH@XN,CALCH$,C.CALL,V@xAC.CALL)
	ENTRY.A	(GETUID,GETUI$,CA8.CALL,VAC.CALL)
AX	; ***	USER DEFINAxABLE ENTRY POINTSB
	ENTRY.	(DBUSR1B8,SAVES$,C.USER,VABXC.CALL)	;NOOPS
	BxENTRY.	(DBUSR2,SACVES$,C.USER,VAC.CC8ALL)
	ENTRY.	(DBCXUSR3,SAVES$,C.USECxR,VAC.CALL)
	ENTDRY.	(DBUSR4,SAVESD8$,C.USER,VAC.CALLDX)
	ENTRY.	(DBUSRDx5,SAVES$,C.USER,VEAC.CALL)
	;X***	E8COBOL PANIC EXIT
	ENTRY.	(DBSTP$,ExDBPST$,C.CALL,OK.SUS!OK.NOSS)
	KF,RP HKF,VP GKF,9P IKF,P HKGRP NKGVP NKGP OKGMP 	KGMP 	KG]P KG]P KGmP LKGmP LKGRP FKGVP EKG9P GKGP FKGHRP KKGIVP JKGK9P LKGLP KKJ)0P

KJ X=M
		ERCAL X8[HRRZI R1,400000	XX	;PROCESS HANDLE
			GETER		; GET YTHE ERROR
			MDDY8CD.=MDDCD.+1
			YXEXCEP (A,MDDCD.,R2)](A,MDDCD.,KJmP KJ&)3P KKX`P 	KK]P KKH:P Kb

= <gXCA:Kb\ P8=
		TCOD.=PXMODCD.+^D<B>
		PxRADIX 10
		XP(AQ,\TCOD.)
		XSYM(Q8\TCOD.)
		RADIX QX8
		JRST	[HRRZI QxR0,TCOD.	;[6%520]R[6%18] FOR SUBSIDR8 ERR REG
			IFNBRX <C>,	;[6%520]
Rx				<HRL	R0,C>
S			PUSHJ P,ERRRG.S8##
			PUSHJ P,XC.A##]USHJ P,XCKby =OXC%A##RKbV,z TX==EXJB
		TTxCOD.=MODCD.+^D<BU>
		RADIX 10
		U8XP(A,\TCOD.)
		UXXSYM(\TCOD.)
		RUxADIX 8
		DEFINE VEXJB<[IFNB <C>,V8<HRL	R0,C>
			HVXRRI R0,MODCD.+^D<VxB>	;[6%18] FOR SWUBSID ERR REG
		W8	PUSHJ P,ERRRG.##WX
			PUSHJ P,XC.A##]>SHJ P,XC.Kbm <iXC$AKbmy Sx=!
		MODCD.T=E$A
		MDDCD.==^D500		MDDCD.==Kbn9` <kXC$A##Kbuy J8<]
XC.A::
	  XC%A==:XC.AJx-VEC.XC+1
	  IFNKB <B>,<PUSHJ P,XK8CB>
	  IFB <B>KX,<PUSHJ P,DBSABORT>
	 P,DBSABORKc4 L<aC.A*^D100 + EXCODE(B)00Kc4 LX<eC.A*^D100 + XC%BA*^D100M&0P aM&8 P aM&-I "h"$
	  T1.=1#
	#(IFNB <B>,<
	    T1.==B
	 #H   IFN 100000*T1.#h-100000*B,<T1.==$T1.+1>
	  >
	  $(A==OFFS.
	  OFF$HS.==OFFS.+T1.
	.==OFFS.+T1.
	M&vP ^M&v P _M:!d P M:!d@P M?SP 5M?+P 6M?:=P M?.@P _M?.H P `MJf0P bMJf8 P bMWP [MW P \MWpP \MWx P ]O$PP OJ,p .#
		
	  IFB.( <B>,<GREG.==GRE.HG.-1>
	  IFNB <.hB>,<GREG.==B>
	/  IFL GREG.-LGREG/(.,<LGREG.=GREG.>
	  A=GREG.
	  /hIFDEF .A,<
	0( 0 IFN .A+GREG.,<
	      PRINTX ;"0HA" ALTER-EGO ALR0hEADY IN USE
	   1 >
	  >
	  IFND1(EF .A,<  .A==-GREG.>
	.A==-GOJ,s@P$OO$P&ZQP71Q SEtP 4S4X`P 4S:LHUP <S:MlzP XSRmLzP =U

;ZP=UHrzPUHt(3PUHt(zPUHt*qPUHt+PUHt-3PUHt:PUHtKQPUHtj6PUHu+PUHuI3PUHui2PUHv9PUHvzPUHv+TPUHvKPUHvj2PULv:7PcULv;zPcWcHPWcIPWcIPYh1P 5Y-3P 5YCYP )YYgP Y&u

@ \>

	  TREG=\8=R0
	  IFNB <D>\X,<TREG==D>
		MD\xDCD.=MDDCD.+1			;]EXCEPTION CODE
	]8SKIPL	A,B		
	C]XAMLE	A,IDHIGH(SS]x)
	LINK	ARG.SYM	^			
	SKIPN	TREG,^8A			
	JRST	e
^X	ADD	A,IDVEC(SS)^x		
	IFN TREG,<HL_RZ TREG,0(A)>
	_8IFNB <C>,<
	  I_XFE TREG,<HLRZ TRE_xG,0(A)>
	  CAIE`	TREG,C
	  EXCE`8P	(ARG,MDDCD.)
	`X>
	HRRZ	A,0(A)`x		
	IFB <C>,<JUaMPE	A,EXJRST (ARa8G,<MDDCD.>)>		
e:
	D.>)>		
Y>

HW Ao		
		MDDC8D.=MDDCD.+1			;EXXCEPTION CODE
	  xTREG==R0
	8IFNB <C>,<TREG==C>
	JUMPLE	A,EXJRSXT (SOB,<MDDCD.>)
		MDDCD.=MDDCD.+1			;EXCEPTION CO8DE
	CAMLE	A,IDHXIGH(SS)
	EXCEP	(xSOB,<MDDCD.>)
	ADD	A,IDVEC(SS)
8	IFN TREG,<HLRZ TXREG,0(A)>
	IFNBx <B>,<
	  IFE TREG,<HLRZ TREG,0(8A)>
	  CAIE	TREXG,B
		MDDCD.=MDxDCD.+1			;EXCEPTION CODE
	  JUMPN8	TREG,EXJRST (SOBX,<MDDCD.>)		
	>x
	HRRZ	A,0(A)
	SKIPG	A
	)
Y>

I  gx>k
		
	  TREhG==R0
	  IFNB <h8D>,<TREG==D>
	ShXKIPL	A,B		
	CAhxMLE	A,IDHIGH(SS)i
	LINK	ARG.SYM		i8		
	SKIPN	TREG,iXA			
	JRST	e+1
	ADD	A,IDVEC(SSj)		
	IFN TREG,<Hj8LRZ TREG,0(A)>
jX		MDDCD.=MDDCD.+1jx			;EXCEPTION CODkE
	IFNB <C>,<
k8	  IFE TREG,<HLRZkX TREG,0(A)>
	  kxCAIE	TREG,C
	  lEXCEP	(ARG,<MDDCDl8.>)
	>
	HRRZ	AlX,0(A)		
	IFB <lxC>,<JUMPE	A,EXJRmST (ARG,<MDDCD.>)m8>		;EMPTY SLOT ILLEGAL
e:
	ILY>

I2 ax>;	
	  TREGb==R0
	  IFNB <Db8>,<TREG==D>
	SKbXIPLE	A,B		
	CAbxMLE	A,IDHIGH(SS)c
	LINK	ARG.SYM		c8		
	ADD	A,IDVECcX(SS)		
	IFN TREGcx,<HLRZ TREG,0(A)d>
	IFNB <C>,<
d8	  IFE TREG,<HLRZdX TREG,0(A)>
	  dxCAIE	TREG,C
		MeDDCD.=MDDCD.+1			e8;EXCEPTION CODE
eX	  EXCEP	(ARG,<MDexDCD.>)
	>
	HRRZf	A,0(A)
		MDDCf8D.=MDDCD.+1			;EXfXCEPTION CODE
	JUfxMPE	A,EXJRST (ARgG,<MDDCD.>)		;EMPg8TY SLOT ILLEGAL
	SLOT ILLEGAL
Y>

K@ mx?
		
	  TREnG==R0
	  IFNB <n8D>,<TREG==D>
	SnXKIPL	A,B		
	CAnxMLE	A,IDHIGH(SS)o
	LINK	ARG.SYM		o8		
	SKIPN	TREG,oXA			
	JRST	e
	oxADD	A,IDVEC(SS)	p	
	IFN TREG,<HLRp8Z TREG,0(A)>
		pXMDDCD.=MDDCD.+1		px	;EXCEPTION CODE
	IFNB <C>,<
	 q8 IFE TREG,<HLRZ TqXREG,0(A)>
	  CAqxIE	TREG,C
	  EXrCEP	(ARG,<MDDCD.>r8)
	>
	HRRZ	A,0rX(A)		
	IFB <C>rx,<JUMPE	A,EXJRSTs (ARG,<MDDCD.>)>	s8	;EMPTY SLOT ILLEsXGAL
	SKIPA
e:
	
	SKIPA
e:h6P 3Y?9n@ UYK. P @[AjQP [AlP 6[AlyP [AnP <[Dli@

[D+P]4[J,s@P]]mI7P]],HTP]6]>P >
V)1P ?_63@P _:,.: LH$n
	  IFNB Lh<D>,<D.B=OFFS.M-A.D>
	  A.BM(==OFFS.
	  A$BMH==C
	  POS.==POMhS.+C
	  A%B==POS.
	 A%B==P@rPtPSHVPt	SJ2PX	SXVP SZ2P Sh(P 4Sh)P 5Sh1P 1ShVP 3ShwP SiWP Sj2P 3Sm7P 3SJ9P 1SH:P 4W%YP Y^tHUP ?a$kP .a9kP Qa={P Ba=LzP 7a&!iP 6a&!lP 6a&!lrP 5a?zP Pa?H6P a?`P aJMY P @aKK8P AaNMYSP aO8P 8aX.\@ aX/
	  MOVE	ZxR1,B
	  MOVEI	R[0, AB.1STP(R1)
	[8  ST	R1, RB,RAB,+[XA
	  ST	R0, RB,RWB,+A
	, RB,et}tP CeyP Fe6|P GeMh`P Fef|P He=iP Ge=9P 8eKsP 9eJ9P 9eh6P e<RP edY9P Zet P Ye&h6P Le,t\YP e:=9<P g4(9P :g59<P Lg>>6 `&
	
	  OF`8FS.==0
	  LMREG.`X==0
	  LGREG.==1`x6
	
	  IFDEF MUaREG.,<MREG.=MUREGa8.>
	  IFNDEF MURaXEG.,<MREG.==TREG.ax>
	  HMREG.==MREbG.
	  HIGH==1
	
	  HIGH==1
	g!j9PlQg!kYP%Rg%]P%Hg%xxP%Mg&\P%Mg"~-P g'Qk9P g'Qk]P pg'QlYP g'QlqP g'QlyP Dg'QnP g'V<rP g.,:P ;g.,J:P g.-h6P :g..-7P <g..<P dg2ez`P gL@ gLuh6P gLukP gLv
P CgO%\
P DgR

:xP *gRylQP Ogg;vP =gg)1P =hDpP i
ez`P ?i&%
3P >i&&i1P >i&ilyP ?i&lHQP ?i&nK8P .i&~:=P i7lQP Oi7lqP Ni7nP Ui7J9P @i7qP Ti7I3P Ni7h6P /i7h9P 0i7kP /i7m6P 0i7\rP /i>K8P JiH$zP 	iH%P 	iH,zP iH-P iHtzP iHuP iJ

9  =Q
	##OiJ,s@P iJuJ9P @iLv3P iNlQP 0iNlZP /k6\^ P kN-H9P AkN.

WP kN.i1P @kNHP WkNxP XkOlP kOP kX&

WP 	kX'rP 	kX.

WP kX/rP kXv

WP kXwrP m*2P m*<P Am-P mN8 t?/
	LOADN	Rt8ECBLK,A
	MOVE	RtXECBLK,CUR.RB(SS)	tx	
	CAME	RECBLK,CuUR.RB(SS)
		MDDCu8D.=MDDCD.+1			;EXuXCEPTION CODE
	EXuxCEP	(RWT,<MDDCD.>)
	WT,<MDDCD.>mdyP m6|I P mPvK8P o&tK{P o?@ 8(E
	  BYTESX(A,<B>)
	  OFFS.==0
	
	  OFFp@ qt[RP TquX<P RqvK8P Sq.
2P q0uX<P Sq8uK{P Tq@ OX<
		IF2 <POxRINTX ;!*;A  XB  C>!*;A  XBqOMP Mx<yIFDEF XA,N<IF1 <PRINTX XA N8PREVIOUSLY DEFINENXD>>
			 IFNDEF XNxA,<
				LALL
	O			XA=A
				SALL>A=A
				SAqRn`P qRnP qRn P q_Ah1P PS@P OQ z`Q y>}{woP