Google
 
Trailing-Edge - PDP-10 Archives - ALGOL-20_29Jan82 - algol-binary/algsys.unv
There are 6 other files named algsys.unv in the archive. Click here to see a list.
x
,5!@P C2<J9 5%
	Q=-1
58
	PORTAL	INITIA		5X; [234] 0- INITIA5xLIZATION
	PORTAL6	PARAM		; [234] 168- PROCEDURE PARAM6XETER ORGANIZATION6x
	PORTAL	PAR0		;7 [234] 2- DITTO, 78VARIABLE LENGTH
7X	PORTAL	GOLAB		; 7x[234] 3- GOTO LAB8EL
	PORTAL	ARRAY88		; [234] 4- ARRA8XY LAYOUT
	PORTAL8x	OARRAY		; [234] 95- OWN ARRAY LAYO98UT
	PORTAL	CHKAR9XR		; [234] 6- CHE9xCK ARRAY SUBSCRIP:TS
	PORTAL	COMPA:8R		; [234] 7- COM:XPARE STRINGS
	PO:xRTAL	PBYTE		; [23;4] 10-BYTE POINTE;8R
	PORTAL	BLKBEG;X		; [234] 11-BLOC;xK BEGIN
	PORTAL	<BLKEND		; [234] 1<82-BLOCK END
	POR<XTAL	CPYSTR		; [23<x4] 13-COPY STRING=
	PORTAL	CPYARR	=8	; [234] 14-COPY =XARRAY
	PORTAL	GE=xTOWN		; [234] 15->GET OWN SPACE
	P>8ORTAL	GETCLR		; [>X234] 16-GET OWN S>xPACE - ZEROED
	P?ORTAL	MONIT		; [2?834] 17-MONITOR
	?XPORTAL	MONIT0		; ?x[234] 20-MONITOR @WITH BREAK
	PORT@8AL	RDOCT		; [234]@X 21-READ OCTAL WO@xRD
	PORTAL	PROCTA		; [234] 22-PRINA8T OCTAL HALFWORD
	PORTAL	INBYTE		Ax; [234] 23-INPUT BBYTE
	PORTAL	OUBB8YTE		; [234] 24-OBXUTPUT BYTE
	PORTBxAL	NXTBYT		; [234C] 25-NEXT INPUT BC8YTE (LOOK AHEAD)
	PORTAL	BRKBYT		Cx; [234] 26-BREAK DOUTPUT
	PORTAL	ID8NCHAR		; [234] 27DX-READ CHARACTER
Dx	PORTAL	OUCHAR		;E [234] 30-OUTPUT E8CHARACTER
	PORTAEXL	BRKCHR		; [234]Ex 31-BREAKCHARACTEFR
	PORTAL	READ.	F8	; [234] 32-READ
	PORTAL	PRINT.		Fx; [234] 33-PRINT
	PORTAL	SELIN		;G8 [234] 34-SELECT GXINPUT
	PORTAL	SEGxLOUT		; [234] 35-HSELECT OUTPUT
	PH8ORTAL	INPT		; [23HX4] 36-INPUT
	PORHxTAL	OUTPT		; [234I] 37-OUTPUT
	PORI8TAL	RELESE		; [23IX4] 40-RELEASE
	PIxORTAL	OPFILE		; [J234] 41-OPEN FILEJ8
	PORTAL	CLFILE	JX	; [234] 42-CLOSEJx FILE
	PORTAL	XFKILE		; [234] 43-TK8RANSFER FILE
	POKXRTAL	BSPACE		; [2Kx34] 44-BACKSPACE
	PORTAL	ENFILE		L8; [234] 45-ENDFILLXE
	PORTAL	REWND.Lx		; [234] 46-REWIMND
	PORTAL	STRASM8S		; [234] 47-STRMXING ASSIGNMENT
	MxPORTAL	FUNCT		; [N234] 50-OVERLAY HN8ANDLER
	PORTAL	TNXRLPRT		; [234] 51Nx-PRINT TRACE LISTO
	PORTAL	TRLAB		O8; [234] 52-TRACE OXLABEL ENTRY
	POROxTAL	TRSTD		; [234P] 53-TRACE STANDAP8RD FUNCTION
	PORPXTAL	STRDEC		; [23Px4] 54-DECLARE STRQINGS
	PORTAL	DDDQ8UMP		; [234] 55-DQXDT DUMP ROUTINE.
	PORTAL	INCHR0		R; [234] [E145] 56R8-READ CHARACTER WRXITH EOF LEGAL

H EOF LEGAL

CK  %&%ALGDR+4E2\)3 V@%4%ALGDR+116%ALGDR+11E2\[R W%8%ALGDR+12:%ALGDR+12EJ\.: ]%h%ALGDR+26j%ALGDR+26EJ\: ^@%t%ALGDR+31v%ALGDR+31EOr d& %ALGDR+44"%ALGDR+44G"\Y %*%ALGDR+6G25 c&%ALGDR+42%ALGDR+42G>n9 %,%ALGDR+7GCLY X%@%ALGDR+14B%ALGDR+14GCN= W@%<%ALGDR+13>%ALGDR+13I&[8 h@&D%ALGDR+55F%ALGDR+55K:5 d@&$%ALGDR+45&%ALGDR+45Kc%H1 3X#
	IRP	A,<EXTERN %AL>A,MVt= f&0%ALGDR+502%ALGDR+50O$; Y%H%ALGDR+16J%ALGDR+16O%}w X@%D%ALGDR+15F%ALGDR+15O>d@ %$%ALGDR+3S: [@%\%ALGDR+23^%ALGDR+23S:9 ]@%l%ALGDR+27n%ALGDR+27S:

H i&H%ALGDR+56J%ALGDR+56S:NJ0 &P%ALGDR+0S;@ a&%ALGDR+36
%ALGDR+36Y[ #%AL*|Y&[Z *"u
	ENTRY	%)8AL
	IFNDEF	%ALG*8DR,<
	EXTERNAL	%*XALGDR
	SALL
	%S*xUBTTL(ALGLIB,ALGO+L LIBRARY)
>
d+8:	Z			
	ZZZ==1		+X	
	IRPC	B,<ZZZ=+x=ZZZ+1>
	XWD	<ZZ,Z/6+1>,ZZZ	
	SIX,8BIT\B*\
	IFE	<<,XZZZ/6>*6-ZZZ>,<
,x	Z			
	>
	IFNB	-<C>, <
	XWD	DL,-8C		
B:				
LA-XBEL(A):	JSP	AX,P-xAR0>
	IFB	<C>, .<
B:				
LABEL.8(A):	JSP	AX,PARA.XM>
	EXP	d		
	PURGE	B		

	P[>u&Y@%L%ALGDR+17N%ALGDR+17[>u Z%P%ALGDR+20R%ALGDR+20]c$.: \@%d%ALGDR+25f%ALGDR+25(< %(%ALGDR+5B5 b@&%ALGDR+41%ALGDR+41V \%`%ALGDR+24b%ALGDR+24V9 ^%p%ALGDR+30r%ALGDR+30W&

%ALGDR+37%ALGDR+37a %"%ALGDR+2a  % %ALGDR+1aNI  V%0%ALGDR+102%ALGDR+10aJMm @%|%ALGDR+33~%ALGDR+33aJ|= [%X%ALGDR+22Z%ALGDR+22b@ d 4#!DEFINE B
	<%ALGDR+A>B%ALGDR+21V%ALGDR+21e

C@ _%x%ALGDR+32z%ALGDR+32ed\r b&%ALGDR+40%ALGDR+40e=i e&(%ALGDR+46*%ALGDR+46ge@ `&%ALGDR+34%ALGDR+34ge}: `@&%ALGDR+35%ALGDR+35gR$[Z /#
	ENTRY	%/8AL

	IFNDEF	%A/XLGDR,<
	EXTERNAL/x	%ALGDR
	SALL
	0%SUBTTL(ALGLIB,AL08GOL LIBRARY)
>
0X
c:	Z			
	ZZZ=0x=1
	IRPC	B,<ZZZ1==ZZZ+1>
	XWD	<Z18ZZ/6+1>,ZZZ	
	SI1XXBIT\B*\
	IFE	<1x<ZZZ/6>*6-ZZZ>,<
	Z			
>

B:	28			
LABEL(A):		2X	
	PUSHJ	SP,TRST2xD
	EXP	c
	PURGE	B
c
	PURGgSy e@&,%ALGDR+47.%ALGDR+47gSI1 h&@%ALGDR+54B%ALGDR+54iJd@ g&8%ALGDR+52:%ALGDR+52iJf

Z f@&4%ALGDR+516%ALGDR+51iKI g@&<%ALGDR+53>%ALGDR+53qMI  c@&%ALGDR+43%ALGDR+43tH<P uyP uZ7P u[wP v91P w9P vI9 )X"M
	IRP	A,<ENTRY	%AL>A,VuR @ JUNIVERSAL `A - B, 1.2(310)	, EUROPEAN SOFTWA	 RE ENGINEERING, SEP-74
ERING, SS@P $;SP >}{woP