Google
 
Trailing-Edge - PDP-10 Archives - ALGOL-10_V10B_BIN_SRC_1err - algsys.unv
There are 6 other files named algsys.unv in the archive. Click here to see a list.
x
,5-@P C2<J9 Fp#
	Q=-1
G
	PORTAL	INITIA		G0; [234] 0- INITIAGPLIZATION
	PORTALGp	PARAM		; [234] 1H- PROCEDURE PARAMH0ETER ORGANIZATIONHP
	PORTAL	PAR0		;Hp [234] 2- DITTO, IVARIABLE LENGTH
I0	PORTAL	GOLAB		; IP[234] 3- GOTO LABIpEL
	PORTAL	ARRAYJ		; [234] 4- ARRAJ0Y LAYOUT
	PORTALJP	OARRAY		; [234] Jp5- OWN ARRAY LAYOKUT
	PORTAL	CHKARK0R		; [234] 6- CHEKPCK ARRAY SUBSCRIPKpTS
	PORTAL	COMPALR		; [234] 7- COML0PARE STRINGS
	POLPRTAL	PBYTE		; [23Lp4] 10-BYTE POINTEMR
	PORTAL	BLKBEGM0		; [234] 11-BLOCMPK BEGIN
	PORTAL	MpBLKEND		; [234] 1N2-BLOCK END
	PORN0TAL	CPYSTR		; [23NP4] 13-COPY STRINGNp
	PORTAL	CPYARR	O	; [234] 14-COPY O0ARRAY
	PORTAL	GEOPTOWN		; [234] 15-OpGET OWN SPACE
	PPORTAL	GETCLR		; [P0234] 16-GET OWN SPPPACE - ZEROED
	PPpORTAL	MONIT		; [2Q34] 17-MONITOR
	Q0PORTAL	MONIT0		; QP[234] 20-MONITOR QpWITH BREAK
	PORTRAL	RDOCT		; [234]R0 21-READ OCTAL WORPRD
	PORTAL	PROCTRp		; [234] 22-PRINST OCTAL HALFWORD
	PORTAL	INBYTE		SP; [234] 23-INPUT SpBYTE
	PORTAL	OUBTYTE		; [234] 24-OT0UTPUT BYTE
	PORTTPAL	NXTBYT		; [234Tp] 25-NEXT INPUT BUYTE (LOOK AHEAD)
	PORTAL	BRKBYT		UP; [234] 26-BREAK UpOUTPUT
	PORTAL	IVNCHAR		; [234] 27V0-READ CHARACTER
VP	PORTAL	OUCHAR		;Vp [234] 30-OUTPUT WCHARACTER
	PORTAW0L	BRKCHR		; [234]WP 31-BREAKCHARACTEWpR
	PORTAL	READ.	X	; [234] 32-READ
	PORTAL	PRINT.		XP; [234] 33-PRINT
	PORTAL	SELIN		;Y [234] 34-SELECT Y0INPUT
	PORTAL	SEYPLOUT		; [234] 35-YpSELECT OUTPUT
	PZORTAL	INPT		; [23Z04] 36-INPUT
	PORZPTAL	OUTPT		; [234Zp] 37-OUTPUT
	POR[TAL	RELESE		; [23[04] 40-RELEASE
	P[PORTAL	OPFILE		; [[p234] 41-OPEN FILE\
	PORTAL	CLFILE	\0	; [234] 42-CLOSE\P FILE
	PORTAL	XF\pILE		; [234] 43-T]RANSFER FILE
	PO]0RTAL	BSPACE		; [2]P34] 44-BACKSPACE
	PORTAL	ENFILE		^; [234] 45-ENDFIL^0E
	PORTAL	REWND.^P		; [234] 46-REWI^pND
	PORTAL	STRAS_S		; [234] 47-STR_0ING ASSIGNMENT
	_PPORTAL	FUNCT		; [_p234] 50-OVERLAY H`ANDLER
	PORTAL	T`0RLPRT		; [234] 51`P-PRINT TRACE LIST`p
	PORTAL	TRLAB		a; [234] 52-TRACE a0LABEL ENTRY
	PORaPTAL	TRSTD		; [234ap] 53-TRACE STANDAbRD FUNCTION
	PORb0TAL	STRDEC		; [23bP4] 54-DECLARE STRbpINGS
	PORTAL	DDDcUMP		; [234] 55-Dc0DT DUMP ROUTINE.
	PORTAL	INCHR0		cp; [234] [E145] 56d-READ CHARACTER Wd0ITH EOF LEGAL

H EOF LEGAL

CK  3%ALGDR+4E2\)3 hA%ALGDR+11C%ALGDR+11E2\[R hXE%ALGDR+12G%ALGDR+12EJ\.: nXu%ALGDR+26w%ALGDR+26EJ\: p%ALGDR+31%ALGDR+31EOr uX-%ALGDR+44/%ALGDR+44G"\Y 7%ALGDR+6G25 tX%%ALGDR+42'%ALGDR+42G>n9 9%ALGDR+7GCLY iXM%ALGDR+14O%ALGDR+14GCN= iI%ALGDR+13K%ALGDR+13I&[8 zQ%ALGDR+55S%ALGDR+55I

D ?+
		IFE PR?0OC-KA10,
			<
	?P		IFNDEF %17A,
	?p		<
			EXTERNAL @%17A
			>
		MOV@0EI	AX,A
		PUSHJ@P	SP,LABEL(17)
		@p	>
		IFE PROC-KIA10,
			<
			IFIA0DN <0> <0>,
				AP<
				DFAD	A0,AAp
				>
			IFIDNB <0> <2>,
				<
				DFAD	A2,A
BP				>
			IFIDN <Bp0> <3>,
				<
	C			DFAD	A3,A
		C0		>
			IFIDN <0>CP <4>,
				<
			Cp	DFAD	A4,A
				D>
			IFIDN <0> <D06>,
				<
				DDPFAD	A6,A
				>
			IFIDN <0> <9>E,
				<
			DFADE0	A11,A
				>
			>
						>
	I

D` `p9
		IFE PRaOC-KA10,
			<
	a0		IFNDEF %25A,
	aP		<
			EXTERNAL ap%25A
			>
		MOVbEI	AX,A
		PUSHJb0	SP,LABEL(25)
		bP	>
		IFE PROC-KIbp10,
			<
			IFIcDN <3> <0>,
				c0<
				DFAD	A0,AcP
				>
			IFIDNcp <3> <2>,
				<
				DFAD	A2,A
d0				>
			IFIDN <dP3> <3>,
				<
	dp			DFAD	A3,A
		e		>
			IFIDN <3>e0 <4>,
				<
			eP	DFAD	A4,A
				ep>
			IFIDN <3> <f6>,
				<
				Df0FAD	A6,A
				>
			IFIDN <3> <9>fp,
				<
			DFADg	A11,A
				>
			>
						>
	I

E {p
		IFE PR|OC-KA10,
			<
	|0		IFNDEF %51A,
	|P		<
			EXTERNAL |p%51A
			>
		MOV}EI	AX,A
		PUSHJ}0	SP,LABEL(51)
		}P	>
		IFE PROC-KI}p10,
			<
			IFI~DN <4> <0>,
				~0<
				DFAD	A0,A~P
				>
			IFIDN~p <4> <2>,
				<
				DFAD	A2,A
0				>
			IFIDN <P4> <3>,
				<
	p			DFAD	A3,A
				>
			IFIDN <4>0 <4>,
				<
			P	DFAD	A4,A
				p>
			IFIDN <4> <6>,
				<
				D0FAD	A6,A
				>
			IFIDN <4> <9>p,
				<
			DFAD	A11,A
				>
			>
						>
	I

E@ 3
		IFE PR0OC-KA10,
			<
	P		IFNDEF %33A,
	p		<
			EXTERNAL %33A
			>
		MOV0EI	AX,A
		PUSHJP	SP,LABEL(33)
		p	>
		IFE PROC-KI10,
			<
			IFI0DN <6> <0>,
				P<
				DFAD	A0,Ap
				>
			IFIDN <6> <2>,
				<
				DFAD	A2,A
P				>
			IFIDN <p6> <3>,
				<
				DFAD	A3,A
		0		>
			IFIDN <6>P <4>,
				<
			p	DFAD	A4,A
				>
			IFIDN <6> <06>,
				<
				DPFAD	A6,A
				>
			IFIDN <6> <9>,
				<
			DFAD0	A11,A
				>
			>
						>
	I

F  +
		IFE PR+0OC-KA10,
			<
	+P		IFNDEF %41A,
	+p		<
			EXTERNAL ,%41A
			>
		MOV,0EI	AX,A
		PUSHJ,P	SP,LABEL(41)
		,p	>
		IFE PROC-KI-10,
			<
			IFI-0DN <9> <0>,
				-P<
				DFAD	A0,A-p
				>
			IFIDN. <9> <2>,
				<
				DFAD	A2,A
.P				>
			IFIDN <.p9> <3>,
				<
	/			DFAD	A3,A
		/0		>
			IFIDN <9>/P <4>,
				<
			/p	DFAD	A4,A
				0>
			IFIDN <9> <006>,
				<
				D0PFAD	A6,A
				>
			IFIDN <9> <9>1,
				<
			DFAD10	A11,A
				>
			>
						>
	I&d S0M
		IFE PRSPOC-KA10,
			<
	Sp		IFNDEF %22A,
	T		<
			EXTERNAL T0%22A
			>
		MOVTPEI	AX,A
		PUSHJTp	SP,LABEL(22)
		U	>
		IFE PROC-KIU010,
			<
			IFIUPDN <0> <0>,
				Up<
				DFDV	A0,AV
				>
			IFIDNV0 <0> <2>,
				<
				DFDV	A2,A
Vp				>
			IFIDN <W0> <3>,
				<
	W0			DFDV	A3,A
		WP		>
			IFIDN <0>Wp <4>,
				<
			X	DFDV	A4,A
				X0>
			IFIDN <0> <XP6>,
				<
				DXpFDV	A6,A
				>
			IFIDN <0> <9>Y0,
				<
			DFDVYP	A11,A
				>
			>
						>
	I&d` u[
		IFE PRu0OC-KA10,
			<
	uP		IFNDEF %30A,
	up		<
			EXTERNAL v%30A
			>
		MOVv0EI	AX,A
		PUSHJvP	SP,LABEL(30)
		vp	>
		IFE PROC-KIw10,
			<
			IFIw0DN <3> <0>,
				wP<
				DFDV	A0,Awp
				>
			IFIDNx <3> <2>,
				<
				DFDV	A2,A
xP				>
			IFIDN <xp3> <3>,
				<
	y			DFDV	A3,A
		y0		>
			IFIDN <3>yP <4>,
				<
			yp	DFDV	A4,A
				z>
			IFIDN <3> <z06>,
				<
				DzPFDV	A6,A
				>
			IFIDN <3> <9>{,
				<
			DFDV{0	A11,A
				>
			>
						>
	I&e@ $0U
		IFE PR$POC-KA10,
			<
	$p		IFNDEF %36A,
	%		<
			EXTERNAL %0%36A
			>
		MOV%PEI	AX,A
		PUSHJ%p	SP,LABEL(36)
		&	>
		IFE PROC-KI&010,
			<
			IFI&PDN <6> <0>,
				&p<
				DFDV	A0,A'
				>
			IFIDN'0 <6> <2>,
				<
				DFDV	A2,A
'p				>
			IFIDN <(6> <3>,
				<
	(0			DFDV	A3,A
		(P		>
			IFIDN <6>(p <4>,
				<
			)	DFDV	A4,A
				)0>
			IFIDN <6> <)P6>,
				<
				D)pFDV	A6,A
				>
			IFIDN <6> <9>*0,
				<
			DFDV*P	A11,A
				>
			>
						>
	I&f  ?0-
		IFE PR?POC-KA10,
			<
	?p		IFNDEF %44A,
	@		<
			EXTERNAL @0%44A
			>
		MOV@PEI	AX,A
		PUSHJ@p	SP,LABEL(44)
		A	>
		IFE PROC-KIA010,
			<
			IFIAPDN <9> <0>,
				Ap<
				DFDV	A0,AB
				>
			IFIDNB0 <9> <2>,
				<
				DFDV	A2,A
Bp				>
			IFIDN <C9> <3>,
				<
	C0			DFDV	A3,A
		CP		>
			IFIDN <9>Cp <4>,
				<
			D	DFDV	A4,A
				D0>
			IFIDN <9> <DP6>,
				<
				DDpFDV	A6,A
				>
			IFIDN <9> <9>E0,
				<
			DFDVEP	A11,A
				>
			>
						>
	In LP
		IFE PRLpOC-KA10,
			<
	M		IFNDEF %21A,
	M0		<
			EXTERNAL MP%21A
			>
		MOVMpEI	AX,A
		PUSHJN	SP,LABEL(21)
		N0	>
		IFE PROC-KINP10,
			<
			IFINpDN <0> <0>,
				O<
				DFMP	A0,AO0
				>
			IFIDNOP <0> <2>,
				<
				DFMP	A2,A
P				>
			IFIDN <P00> <3>,
				<
	PP			DFMP	A3,A
		Pp		>
			IFIDN <0>Q <4>,
				<
			Q0	DFMP	A4,A
				QP>
			IFIDN <0> <Qp6>,
				<
				DRFMP	A6,A
				>
			IFIDN <0> <9>RP,
				<
			DFMPRp	A11,A
				>
			>
						>
	In@ Z
		IFE PRZ0OC-KA10,
			<
	ZP		IFNDEF %50A,
	Zp		<
			EXTERNAL [%50A
			>
		MOV[0EI	AX,A
		PUSHJ[P	SP,LABEL(50)
		[p	>
		IFE PROC-KI\10,
			<
			IFI\0DN <2> <0>,
				\P<
				DFMP	A0,A\p
				>
			IFIDN] <2> <2>,
				<
				DFMP	A2,A
]P				>
			IFIDN <]p2> <3>,
				<
	^			DFMP	A3,A
		^0		>
			IFIDN <2>^P <4>,
				<
			^p	DFMP	A4,A
				_>
			IFIDN <2> <_06>,
				<
				D_PFMP	A6,A
				>
			IFIDN <2> <9>`,
				<
			DFMP`0	A11,A
				>
			>
						>
	In` n0%
		IFE PRnPOC-KA10,
			<
	np		IFNDEF %27A,
	o		<
			EXTERNAL o0%27A
			>
		MOVoPEI	AX,A
		PUSHJop	SP,LABEL(27)
		p	>
		IFE PROC-KIp010,
			<
			IFIpPDN <3> <0>,
				pp<
				DFMP	A0,Aq
				>
			IFIDNq0 <3> <2>,
				<
				DFMP	A2,A
qp				>
			IFIDN <r3> <3>,
				<
	r0			DFMP	A3,A
		rP		>
			IFIDN <3>rp <4>,
				<
			s	DFMP	A4,A
				s0>
			IFIDN <3> <sP6>,
				<
				DspFMP	A6,A
				>
			IFIDN <3> <9>t0,
				<
			DFMPtP	A11,A
				>
			>
						>
	In 	0}
		IFE PR	POC-KA10,
			<
		p		IFNDEF %52A,
	
		<
			EXTERNAL 
0%52A
			>
		MOV
PEI	AX,A
		PUSHJ
p	SP,LABEL(52)
			>
		IFE PROC-KI010,
			<
			IFIPDN <4> <0>,
				p<
				DFMP	A0,A


				>
			IFIDN

0 <4> <2>,
				<

P
				DFMP	A2,A


p				>
			IFIDN <
				<
			DFMP	A3,A
		>
			IFIDN <4>
				<
				DFMP	A4,A
				0>
			IFIDN <4> <P6>,
				<
				DpFMP	A6,A
				>
			IFIDN <4> <9>0,
				<
			DFMPP	A11,A
				>
			>
						>
	In@ P
		IFE PRpOC-KA10,
			<
			IFNDEF %35A,
	0		<
			EXTERNAL P%35A
			>
		MOVpEI	AX,A
		PUSHJ	SP,LABEL(35)
		0	>
		IFE PROC-KIP10,
			<
			IFIpDN <6> <0>,
				 <
				DFMP	A0,A 0
				>
			IFIDN P <6> <2>,
				<
				DFMP	A2,A
!				>
			IFIDN <!06> <3>,
				<
	!P			DFMP	A3,A
		!p		>
			IFIDN <6>" <4>,
				<
			"0	DFMP	A4,A
				"P>
			IFIDN <6> <"p6>,
				<
				D#FMP	A6,A
				>
			IFIDN <6> <9>#P,
				<
			DFMP#p	A11,A
				>
			>
						>
	In  8Pw
		IFE PR8pOC-KA10,
			<
	9		IFNDEF %43A,
	90		<
			EXTERNAL 9P%43A
			>
		MOV9pEI	AX,A
		PUSHJ:	SP,LABEL(43)
		:0	>
		IFE PROC-KI:P10,
			<
			IFI:pDN <9> <0>,
				;<
				DFMP	A0,A;0
				>
			IFIDN;P <9> <2>,
				<
				DFMP	A2,A
<				>
			IFIDN <<09> <3>,
				<
	<P			DFMP	A3,A
		<p		>
			IFIDN <9>= <4>,
				<
			=0	DFMP	A4,A
				=P>
			IFIDN <9> <=p6>,
				<
				D>FMP	A6,A
				>
			IFIDN <9> <9>>P,
				<
			DFMP>p	A11,A
				>
			>
						>
	I$ Epa
		IFE PRFOC-KA10,
			<
	F0		IFNDEF %20A,
	FP		<
			EXTERNAL Fp%20A
			>
		MOVGEI	AX,A
		PUSHJG0	SP,LABEL(20)
		GP	>
		IFE PROC-KIGp10,
			<
			IFIHDN <0> <0>,
				H0<
				DFSB	A0,AHP
				>
			IFIDNHp <0> <2>,
				<
				DFSB	A2,A
I0				>
			IFIDN <IP0> <3>,
				<
	Ip			DFSB	A3,A
		J		>
			IFIDN <0>J0 <4>,
				<
			JP	DFSB	A4,A
				Jp>
			IFIDN <0> <K6>,
				<
				DK0FSB	A6,A
				>
			IFIDN <0> <9>Kp,
				<
			DFSBL	A11,A
				>
			>
						>
	I$` gPo
		IFE PRgpOC-KA10,
			<
	h		IFNDEF %26A,
	h0		<
			EXTERNAL hP%26A
			>
		MOVhpEI	AX,A
		PUSHJi	SP,LABEL(26)
		i0	>
		IFE PROC-KIiP10,
			<
			IFIipDN <3> <0>,
				j<
				DFSB	A0,Aj0
				>
			IFIDNjP <3> <2>,
				<
				DFSB	A2,A
k				>
			IFIDN <k03> <3>,
				<
	kP			DFSB	A3,A
		kp		>
			IFIDN <3>l <4>,
				<
			l0	DFSB	A4,A
				lP>
			IFIDN <3> <lp6>,
				<
				DmFSB	A6,A
				>
			IFIDN <3> <9>mP,
				<
			DFSBmp	A11,A
				>
			>
						>
	I% PG
		IFE PRpOC-KA10,
			<
			IFNDEF %53A,
	0		<
			EXTERNAL P%53A
			>
		MOVpEI	AX,A
		PUSHJ	SP,LABEL(53)
		0	>
		IFE PROC-KIP10,
			<
			IFIpDN <4> <0>,
				<
				DFSB	A0,A0
				>
			IFIDNP <4> <2>,
				<
				DFSB	A2,A
				>
			IFIDN <04> <3>,
				<
	P			DFSB	A3,A
		p		>
			IFIDN <4> <4>,
				<
			0	DFSB	A4,A
				P>
			IFIDN <4> <p6>,
				<
				DFSB	A6,A
				>
			IFIDN <4> <9>P,
				<
			DFSBp	A11,A
				>
			>
						>
	I%@ pi
		IFE PROC-KA10,
			<
	0		IFNDEF %34A,
	P		<
			EXTERNAL p%34A
			>
		MOVEI	AX,A
		PUSHJ0	SP,LABEL(34)
		P	>
		IFE PROC-KIp10,
			<
			IFIDN <6> <0>,
				0<
				DFSB	A0,AP
				>
			IFIDNp <6> <2>,
				<
				DFSB	A2,A
0				>
			IFIDN <P6> <3>,
				<
	p			DFSB	A3,A
				>
			IFIDN <6>0 <4>,
				<
			P	DFSB	A4,A
				p>
			IFIDN <6> <6>,
				<
				D0FSB	A6,A
				>
			IFIDN <6> <9>p,
				<
			DFSB	A11,A
				>
			>
						>
	I&  1pA
		IFE PR2OC-KA10,
			<
	20		IFNDEF %42A,
	2P		<
			EXTERNAL 2p%42A
			>
		MOV3EI	AX,A
		PUSHJ30	SP,LABEL(42)
		3P	>
		IFE PROC-KI3p10,
			<
			IFI4DN <9> <0>,
				40<
				DFSB	A0,A4P
				>
			IFIDN4p <9> <2>,
				<
				DFSB	A2,A
50				>
			IFIDN <5P9> <3>,
				<
	5p			DFSB	A3,A
		6		>
			IFIDN <9>60 <4>,
				<
			6P	DFSB	A4,A
				6p>
			IFIDN <9> <76>,
				<
				D70FSB	A6,A
				>
			IFIDN <9> <9>7p,
				<
			DFSB8	A11,A
				>
			>
						>
	I? 70o
	DEFINE 7PAB(Z)
		<
		I7pFE PROC-KA10,
		8	<
			IFNDEF %C80A,
			<
			EXTE8PRNAL %CA
			>
8p		MOVEI	AX,Z
		P9USHJ	SP,LABEL(C)90
			>
		IFE PRO9PC-KI10,
			<
		9p	IFIDN <B> <0>,
				<
				A	A0:0,Z
				>
			IFI:PDN <B> <2>,
			:p	<
				A	A2,Z
;				>
			IFIDN <;0B> <3>,
				<
;P				A	A3,Z
				;p>
			IFIDN <B> <<4>,
				<
				<0A	A4,Z
				>
	<P		IFIDN <B> <6>,<p
				<
				A	A=6,Z
				>
			IF=0IDN <B> <9>,
		=P		<
			A	A11,Z
				>
			>
		>
	>
			>
		>I?,+ >0s
	A
	B
	A
	BK:5 v1%ALGDR+453%ALGDR+45Kc%H1 5P7
	IRP	A	5p<
	IFE	PROC-KA106,
	<EXTERN	%AA
>
	IFN	PROC-KA16P0,
	<EXTERN %AI6p
	 EXTERN	%AL		;[205]
>>AL		MVt= wX=%ALGDR+50?%ALGDR+50O$; jXU%ALGDR+16W%ALGDR+16O%}w jQ%ALGDR+15S%ALGDR+15O>d@ 1%ALGDR+3S: mi%ALGDR+23k%ALGDR+23S:9 oy%ALGDR+27{%ALGDR+27S:

H zXU%ALGDR+56W%ALGDR+56S:NJ0 ^%ALGDR+0S;@ rX%ALGDR+36%ALGDR+36W
P W%
P Y[ )%AI74
Y&[Z (py
	IFE	PRO)C-KA10,<
	ENTRY	)0%AA
>
	IFN	PRO)PC-KA10,<
	ENTRY	)p%AI
	%AL=%AI	*	;[205]
	ENTRY	%*0AL		;[205]
>
*P
	IFNDEF	%ALGDR,<*p
	EXTERNAL	%ALGD+R
	SALL
	%SUBTT+0L(ALGLIB,ALGOL LI+PBRARY)
>
d:	Z	+p		
	ZZZ==1			
	,IRPC	B,<ZZZ==ZZZ,0+1>
	XWD	<ZZZ/6+,P1>,ZZZ	
	SIXBIT\,pB*\
	IFE	<<ZZZ/-6>*6-ZZZ>,<
	Z		-0	
	>
	IFNB	<C>-P, <
	XWD	DL,C		-p
B:				
LABEL(.A):	JSP	AX,PAR0>.0
	IFB	<C>, <
.PB:				
LABEL(A).p:	JSP	AX,PARAM>
/	EXP	d		
	PURGE	B		

	PURGE[>ukY%ALGDR+17[%ALGDR+17[>ukX]%ALGDR+20-%ALGDR+20]c$.: nq%ALGDR+25s%ALGDR+25a(< 5%ALGDR+5B5t!%ALGDR+41#%ALGDR+41%V2mXm%ALGDR+24o%ALGDR+24V9oX}%ALGDR+30%ALGDR+30W&
	<%ALGDR+A>B%ALGDR+21c%ALGDR+21e

C@pX%ALGDR+32%ALGDR+32ed\rsX%ALGDR+40%ALGDR+40e=ivX5%ALGDR+467%ALGDR+46ge@ qX
	IFE	PRO/pC-KA10,<
	ENTRY	0%AA
>
	IFN	PRO00C-KA10,<
	ENTRY	0P%AI
	%AL=%AI	0p	;[205]
	ENTRY	%1AL		;[205]
>
10
	IFNDEF	%ALGDR,<1P
	EXTERNAL	%ALGD1pR
	SALL
	%SUBTT2L(ALGLIB,ALGOL LI20BRARY)
>

c:	2PZ			
	ZZZ==1
	I2pRPC	B,<ZZZ==ZZZ+31>
	XWD	<ZZZ/6+130>,ZZZ	
	SIXBIT\3PB*\
	IFE	<<ZZZ/63p>*6-ZZZ>,<
	Z			4
>

B:				
L40ABEL(A):			
	PU4PSHJ	SP,TRSTD
	EX4pP	c
	PURGE	B
c
	PURGE	B
gSy w9%ALGDR+47;%ALGDR+47gSI1 yXM%ALGDR+54O%ALGDR+54iJd@ xXE%ALGDR+52G%ALGDR+52iJf

Z xA%ALGDR+51C%ALGDR+51iKI yI%ALGDR+53K%ALGDR+53qMI  u)%ALGDR+43+%ALGDR+43tH<P uyP uZ7P u[wP v91P w9P vI9 &pC
	IRP	A	'<
		IFE	PROC-KA1'00,
			<ENTRY	%A&PA
>
		IFN	PROC-'PKA10,
			<ENTRY	'p%AI
			 %AL=%(AI	;[205]
			 EN(0TRY	%AL	;[205]
>>%AL	;[205]
VuR h$UNIVERSAL A - B, 10B(310)(, EUROPEAN SOFTWAHRE ENGINEERING, SEP-74
ERING, SS@P $;SP >}{woP