Google
 
Trailing-Edge - PDP-10 Archives - ap-5069b-sb - 10,6/algsys.unv
There are 6 other files named algsys.unv in the archive. Click here to see a list.
x+@P C2<J9 l
	Q=-1
l8
	JRST	INITIA		; lX0- INITIALIZATIONlx
	JRST	PARAM		; m1- PROCEDURE PARAm8METER ORGANIZATIOmXN
	JRST	PAR0		; mx2-DITTO, VARIABLEn LENGTH
	JRST	GOn8LAB		; 3-GOTO LABnXEL
	JRST	ARRAY		nx; 4-ARRAY LAYOUT
	JRST	OARRAY		; o85-OWN ARRAY LAYOUoXT
	JRST	CHKARR		ox; 6-CHECK ARRAY SpUBSCRIPTS
	JRST	p8COMPAR		; 7-COMPApXRE STRINGS
	JRSTpx	PBYTE		; 10-BYTEq POINTER
	JRST	Bq8LKBEG		; 11-BLOCKqX BEGIN
	JRST	BLKqxEND		; 12-BLOCK ErND
	JRST	CPYSTR	r8	; 13-COPY STRINGrX
	JRST	CPYARR		;rx 14-COPY ARRAY
	sJRST	GETOWN		; 15s8-GET OWN SPACE
	sXJRST	GETCLR		; 16sx-GET OWN SPACE - tZEROED
	JRST	MONt8IT		; 17-MONITOR
	JRST	MONIT0		; tx20-MONITOR WITH BuREAK
	JRST	RDOCTu8		; 21-READ OCTALuX WORD
	JRST	PROCuxT		; 22-PRINT OCTvAL HALFWORD
	JRSv8T	INBYTE		; 23-INvXPUT BYTE
	JRST	OvxUBYTE		; 24-OUTPUwT BYTE
	JRST	NXTw8BYT		; 25-NEXT INwXPUT BYTE (LOOK AHwxEAD)
	JRST	BRKBYxT		; 26-BREAK OUTx8PUT
	JRST	INCHARxX		; 27-READ CHARAxxCTER
	JRST	OUCHAyR		; 30-OUTPUT CHy8ARACTER
	JRST	BRyXKCHR		; 31-BREAKCyxHARACTER
	JRST	RzEAD.		; 32-READ
z8	JRST	PRINT.		; 3zX3-PRINT
	JRST	SEzxLIN		; 34-SELECT {INPUT
	JRST	SELO{8UT		; 35-SELECT O{XUTPUT
	JRST	INPT{x		; 36-INPUT
	JR|ST	OUTPT		; 37-OU|8TPUT
	JRST	RELES|XE		; 40-RELEASE
|x	JRST	OPFILE		; 4}1-OPEN FILE
	JRS}8T	CLFILE		; 42-CL}XOSE FILE
	JRST	X}xFILE		; 43-TRANSF~ER FILE
	JRST	BS~8PACE		; 44-BACKSP~XACE
	JRST	ENFILE~x		; 45-ENDFILE
	JRST	REWND.		; 468-REWIND
	JRST	STXRASS		; 47-STRINGx ASSIGNMENT
	JRST	FUNCT		; 50-OVE8RLAY HANDLER [P31X]
	JRST	TRLPRT		x; 51-PRINT TRACE LIST [P37]
	JRST8	TRLAB		; 52-TRACXE LABEL ENTRY [P3x7]
	JRST	TRSTD		; 53-TRACE STANDA8RD FUNCTION [P37]X
	JRST	STRDEC		;x 54-DECLARE STRINGS [P52]
	JRST	D8DDUMP		; 55-DDT DXUMP ROUTINE.

MP ROUTINE.

CK  8@%ALGDR+4:@%ALGDR+4E2\)3 	@L@%ALGDR+11@%ALGDR+11E2\[R 
P@%ALGDR+12@%ALGDR+12EJ\.: @%ALGDR+26@%ALGDR+26EJ\: @

@%ALGDR+31@%ALGDR+31EOr 8@%ALGDR+44@%ALGDR+44G"\Y @@%ALGDR+6B@%ALGDR+6G25 0@%ALGDR+42@%ALGDR+42G>n9 @D@%ALGDR+7F@%ALGDR+7GCLY X@%ALGDR+14@%ALGDR+14GCN= 
@T@%ALGDR+13@%ALGDR+13I&[8 @\@%ALGDR+55@%ALGDR+55I

D /8	IFE PROC-/XKA10, <
	IFNDEF /x%17A,<
	EXTERNAL0 %17A
>
	MOVEI	08AX,A
	PUSHJ	SP,0XLABEL(17)>
	IFE 0xPROC-KI10, <
	IF1IDN <0> <0>, <
	18DFAD	A0,A>
	IFI1XDN <0> <3>, <
	D1xFAD	A3,A>
	IFID2N <0> <6>, <
	DF28AD	A6,A>
	IFIDN2X <0> <9>, <
	DFAD	A11,A>>
DFAI

D`>8ROC->XKA10, <
	IFNDEF >x%25A,<
	EXTERNAL? %25A
>
	MOVEI	?8AX,A
	PUSHJ	SP,?XLABEL(25)>
	IFE ?xPROC-KI10, <
	IF@IDN <3> <0>, <
	@8DFAD	A0,A>
	IFI@XDN <3> <3>, <
	D@xFAD	A3,A>
	IFIDAN <3> <6>, <
	DFA8AD	A6,A>
	IFIDNAX <3> <9>, <
	DFAD	A11,A>>
DFAI

E@ M8	IFE PROC-MXKA10, <
	IFNDEF Mx%33A,<
	EXTERNALN %33A
>
	MOVEI	N8AX,A
	PUSHJ	SP,NXLABEL(33)>
	IFE NxPROC-KI10, <
	IFOIDN <6> <0>, <
	O8DFAD	A0,A>
	IFIOXDN <6> <3>, <
	DOxFAD	A3,A>
	IFIDPN <6> <6>, <
	DFP8AD	A6,A>
	IFIDNPX <6> <9>, <
	DFAD	A11,A>>
DFAI

F  \8}	IFE PROC-\XKA10, <
	IFNDEF \x%41A,<
	EXTERNAL] %41A
>
	MOVEI	]8AX,A
	PUSHJ	SP,]XLABEL(41)>
	IFE ]xPROC-KI10, <
	IF^IDN <9> <0>, <
	^8DFAD	A0,A>
	IFI^XDN <9> <3>, <
	D^xFAD	A3,A>
	IFID_N <9> <6>, <
	DF_8AD	A6,A>
	IFIDN_X <9> <9>, <
	DFAD	A11,A>>
DFAI&d :Xo	IFE PROC-:xKA10, <
	IFNDEF ;%22A,<
	EXTERNAL;8 %22A
>
	MOVEI	;XAX,A
	PUSHJ	SP,;xLABEL(22)>
	IFE <PROC-KI10, <
	IF<8IDN <0> <0>, <
	<XDFDV	A0,A>
	IFI<xDN <0> <3>, <
	D=FDV	A3,A>
	IFID=8N <0> <6>, <
	DF=XDV	A6,A>
	IFIDN=x <0> <9>, <
	DFDV	A11,A>>
DFDI&d` IXg	IFE PROC-IxKA10, <
	IFNDEF J%30A,<
	EXTERNALJ8 %30A
>
	MOVEI	JXAX,A
	PUSHJ	SP,JxLABEL(30)>
	IFE KPROC-KI10, <
	IFK8IDN <3> <0>, <
	KXDFDV	A0,A>
	IFIKxDN <3> <3>, <
	DLFDV	A3,A>
	IFIDL8N <3> <6>, <
	DFLXDV	A6,A>
	IFIDNLx <3> <9>, <
	DFDV	A11,A>>
DFDI&e@ XX_	IFE PROC-XxKA10, <
	IFNDEF Y%36A,<
	EXTERNALY8 %36A
>
	MOVEI	YXAX,A
	PUSHJ	SP,YxLABEL(36)>
	IFE ZPROC-KI10, <
	IFZ8IDN <6> <0>, <
	ZXDFDV	A0,A>
	IFIZxDN <6> <3>, <
	D[FDV	A3,A>
	IFID[8N <6> <6>, <
	DF[XDV	A6,A>
	IFIDN[x <6> <9>, <
	DFDV	A11,A>>
DFDI&f  gXW	IFE PROC-gxKA10, <
	IFNDEF h%44A,<
	EXTERNALh8 %44A
>
	MOVEI	hXAX,A
	PUSHJ	SP,hxLABEL(44)>
	IFE iPROC-KI10, <
	IFi8IDN <9> <0>, <
	iXDFDV	A0,A>
	IFIixDN <9> <3>, <
	DjFDV	A3,A>
	IFIDj8N <9> <6>, <
	DFjXDV	A6,A>
	IFIDNjx <9> <9>, <
	DFDV	A11,A>>
DFDIn 6xQ	IFE PROC-7KA10, <
	IFNDEF 78%21A,<
	EXTERNAL7X %21A
>
	MOVEI	7xAX,A
	PUSHJ	SP,8LABEL(21)>
	IFE 88PROC-KI10, <
	IF8XIDN <0> <0>, <
	8xDFMP	A0,A>
	IFI9DN <0> <3>, <
	D98FMP	A3,A>
	IFID9XN <0> <6>, <
	DF9xMP	A6,A>
	IFIDN: <0> <9>, <
	DFMP	A11,A>>
DFMIn` ExI	IFE PROC-FKA10, <
	IFNDEF F8%27A,<
	EXTERNALFX %27A
>
	MOVEI	FxAX,A
	PUSHJ	SP,GLABEL(27)>
	IFE G8PROC-KI10, <
	IFGXIDN <3> <0>, <
	GxDFMP	A0,A>
	IFIHDN <3> <3>, <
	DH8FMP	A3,A>
	IFIDHXN <3> <6>, <
	DFHxMP	A6,A>
	IFIDNI <3> <9>, <
	DFMP	A11,A>>
DFMIn@ TxA	IFE PROC-UKA10, <
	IFNDEF U8%35A,<
	EXTERNALUX %35A
>
	MOVEI	UxAX,A
	PUSHJ	SP,VLABEL(35)>
	IFE V8PROC-KI10, <
	IFVXIDN <6> <0>, <
	VxDFMP	A0,A>
	IFIWDN <6> <3>, <
	DW8FMP	A3,A>
	IFIDWXN <6> <6>, <
	DFWxMP	A6,A>
	IFIDNX <6> <9>, <
	DFMP	A11,A>>
DFMIn  cx9	IFE PROC-dKA10, <
	IFNDEF d8%43A,<
	EXTERNALdX %43A
>
	MOVEI	dxAX,A
	PUSHJ	SP,eLABEL(43)>
	IFE e8PROC-KI10, <
	IFeXIDN <9> <0>, <
	exDFMP	A0,A>
	IFIfDN <9> <3>, <
	Df8FMP	A3,A>
	IFIDfXN <9> <6>, <
	DFfxMP	A6,A>
	IFIDNg <9> <9>, <
	DFMP	A11,A>>
DFMI$ 33	IFE PROC-38KA10, <
	IFNDEF 3X%20A,<
	EXTERNAL3x %20A
>
	MOVEI	4AX,A
	PUSHJ	SP,48LABEL(20)>
	IFE 4XPROC-KI10, <
	IF4xIDN <0> <0>, <
	5DFSB	A0,A>
	IFI58DN <0> <3>, <
	D5XFSB	A3,A>
	IFID5xN <0> <6>, <
	DF6SB	A6,A>
	IFIDN68 <0> <9>, <
	DFSB	A11,A>>
DFSI$` B+	IFE PROC-B8KA10, <
	IFNDEF BX%26A,<
	EXTERNALBx %26A
>
	MOVEI	CAX,A
	PUSHJ	SP,C8LABEL(26)>
	IFE CXPROC-KI10, <
	IFCxIDN <3> <0>, <
	DDFSB	A0,A>
	IFID8DN <3> <3>, <
	DDXFSB	A3,A>
	IFIDDxN <3> <6>, <
	DFESB	A6,A>
	IFIDNE8 <3> <9>, <
	DFSB	A11,A>>
DFSI%@ Q#	IFE PROC-Q8KA10, <
	IFNDEF QX%34A,<
	EXTERNALQx %34A
>
	MOVEI	RAX,A
	PUSHJ	SP,R8LABEL(34)>
	IFE RXPROC-KI10, <
	IFRxIDN <6> <0>, <
	SDFSB	A0,A>
	IFIS8DN <6> <3>, <
	DSXFSB	A3,A>
	IFIDSxN <6> <6>, <
	DFTSB	A6,A>
	IFIDNT8 <6> <9>, <
	DFSB	A11,A>>
DFSI&  `	IFE PROC-`8KA10, <
	IFNDEF `X%42A,<
	EXTERNAL`x %42A
>
	MOVEI	aAX,A
	PUSHJ	SP,a8LABEL(42)>
	IFE aXPROC-KI10, <
	IFaxIDN <9> <0>, <
	bDFSB	A0,A>
	IFIb8DN <9> <3>, <
	DbXFSB	A3,A>
	IFIDbxN <9> <6>, <
	DFcSB	A6,A>
	IFIDNc8 <9> <9>, <
	DFSB	A11,A>>
DFSI? *Xq	DEFINE A*xB(Z)
<	IFE PROC+-KA10, <
	IFNDEF+8 %CA,<
	EXTERNA+XL %CA
>
	MOVEI+x	AX,Z
	PUSHJ	SP,,LABEL(C)>
	IFE ,8PROC-KI10, <
	IF,XIDN <B> <0>, <
,x	A	A0,Z>
	IFIDN- <B> <3>, <
	A-8	A3,Z>
	IFIDN <-XB> <6>, <
	A	A6-x,Z>
	IFIDN <B> .<9>, <
	A	A11,Z>>
>
A	A11,ZI?,+ .Xu
	A
	B
	A
	BK:5 @<@%ALGDR+45@%ALGDR+45Kc%H1 )Q
	IRP	A	)8<
	IFE	PROC-KA10)X,
	<EXTERN	%AA
>
	IFN	PROC-KA1*0,
	<EXTERN %AI
>>EXTERN %AIMVt= H@%ALGDR+50@%ALGDR+50O$; 

`@%ALGDR+16@%ALGDR+16O%}w @\@%ALGDR+15@%ALGDR+15O>d@ @4@%ALGDR+36@%ALGDR+3S: @t@%ALGDR+23@%ALGDR+23S:9 @@%ALGDR+27@%ALGDR+27S:NJ0 (@%ALGDR+0*@%ALGDR+0S;@  @%ALGDR+36@%ALGDR+36W
P W%
P Y[ E%AIY&[Z X
	IFE	PROxC-KA10,<
	ENTRY	%AA
>
	IFN	PRO8C-KA10,<
	ENTRY	X%AI
>

	IFNDExF	%ALGDR,<
	EXTERNAL	%ALGDR
	SAL8L
	%SUBTTL(ALGLIXB,ALGOL LIBRARY)
>
d:	Z			
	ZZ Z==1			
	IRPC	B 8,<ZZZ==ZZZ+1>	
	 XXWD	<ZZZ/6+1>,ZZZ x	
	SIXBIT\B*\
!	IFE	<<ZZZ/6>*6-Z!8ZZ>,<
	Z			
	>X
	IFNB	<C>, <
	!xXWD	DL,C		
B:	"			
LABEL(A):	J"8SP	AX,PAR0>
	IFB"X	<C>, <
B:				"x
LABEL(A):	JSP	#AX,PARAM>
	EXP	#8d		
	PURGE	B		

	PURGE	B		

@d@%ALGDR+17@%ALGDR+17[>u7@|@%ALGDR+25@%ALGDR+25A(<@<@%ALGDR+5>@%ALGDR+5AB5@,@%ALGDR+41@%ALGDR+41AV0x@%ALGDR+24@%ALGDR+24AV93@%ALGDR+30@%ALGDR+30W&@%ALGDR+22b@ d /yDEFINE B
	<@%ALGDR+A>+21@%ALGDR+21e

C@ @%ALGDR+32@%ALGDR+32ed\r (@%ALGDR+40@%ALGDR+40e=i @@%ALGDR+46@%ALGDR+46ge@ @%ALGDR+34@%ALGDR+34ge}: @@%ALGDR+35@%ALGDR+35gR$[Z #xC
	IFE	PRO$C-KA10,<
	ENTRY	$8%AA
>
	IFN	PRO$XC-KA10,<
	ENTRY	$x%AI
>

	IFNDE%F	%ALGDR,<
	EXTE%8RNAL	%ALGDR
	SAL%XL
	%SUBTTL(ALGLI%xB,ALGOL LIBRARY)
>

c:	Z			
	&8ZZZ==1
	IRPC	B,&X<ZZZ==ZZZ+1> 
	X&xWD	<ZZZ/6+1>,ZZZ	'
	SIXBIT\B*\
	'8IFE	<<ZZZ/6>*6-ZZ'XZ>,<
	Z			
>
'x
B:				
LABEL((A):			
	PUSHJ	SP(8,TRSTD
	EXP	c
	PURGE	B
c
gSy @D@%ALGDR+47@%ALGDR+47gSI1 X@%ALGDR+54@%ALGDR+54iJd@ P@%ALGDR+52@%ALGDR+52iJf

Z @L@%ALGDR+51@%ALGDR+51iKI @T@%ALGDR+53@%ALGDR+53qMI  @4@%ALGDR+43@%ALGDR+43tH<P uyP uZ7P u[wP v91P w9P vI9 8i
	IRP	A	X<
		IFE	PROC-KA1x0,
			<ENTRY	%AA
>
		IFN	PROC-KA10,
			<ENTRY	%AI
>><ENTRY	VuR lxmUNIVERSAL mA - B, 7(741), m8EUROPEAN SOFTWAREmX ENGINEERING, SEP-74
ERING, SEPS@P $;SP >}{woP