Google
 
Trailing-Edge - PDP-10 Archives - AP-5471B-BM - sources/algsys.unv
There are 6 other files named algsys.unv in the archive. Click here to see a list.
x
(4!@P C2<J9 x"5
	Q=-1

	JRST	INITIA		; 80- INITIALIZATIONX
	JRST	PARAM		; x1- PROCEDURE PARAMETER ORGANIZATIO8N
	JRST	PAR0		; X2-DITTO, VARIABLEx LENGTH
	JRST	GOLAB		; 3-GOTO LAB8EL
	JRST	ARRAY		X; 4-ARRAY LAYOUT
	JRST	OARRAY		; 5-OWN ARRAY LAYOU8T
	JRST	CHKARR		X; 6-CHECK ARRAY SxUBSCRIPTS
	JRST	COMPAR		; 7-COMPA8RE STRINGS
	JRSTX	PBYTE		; 10-BYTEx POINTER
	JRST	BLKBEG		; 11-BLOCK8 BEGIN
	JRST	BLKXEND		; 12-BLOCK ExND
	JRST	CPYSTR		; 13-COPY STRING8
	JRST	CPYARR		;X 14-COPY ARRAY
	xJRST	GETOWN		; 15-GET OWN SPACE
	8JRST	GETCLR		; 16X-GET OWN SPACE - xZEROED
	JRST	MONIT		; 17-MONITOR
	JRST	MONIT0		; X20-MONITOR WITH BxREAK
	JRST	RDOCT		; 21-READ OCTAL8 WORD
	JRST	PROCXT		; 22-PRINT OCTxAL HALFWORD
	JRST	INBYTE		; 23-IN8PUT BYTE
	JRST	OXUBYTE		; 24-OUTPUxT BYTE
	JRST	NXTBYT		; 25-NEXT IN8PUT BYTE (LOOK AHXEAD)
	JRST	BRKBYxT		; 26-BREAK OUTPUT
	JRST	INCHAR8		; 27-READ CHARAXCTER
	JRST	OUCHAxR		; 30-OUTPUT CHARACTER
	JRST	BR8KCHR		; 31-BREAKCXHARACTER
	JRST	RxEAD.		; 32-READ
	JRST	PRINT.		; 383-PRINT
	JRST	SEXLIN		; 34-SELECT xINPUT
	JRST	SELOUT		; 35-SELECT O8UTPUT
	JRST	INPTX		; 36-INPUT
	JRxST	OUTPT		; 37-OUTPUT
	JRST	RELES8E		; 40-RELEASE
X	JRST	OPFILE		; 4x1-OPEN FILE
	JRS T	CLFILE		; 42-CL 8OSE FILE
	JRST	X XFILE		; 43-TRANSF xER FILE
	JRST	BS!PACE		; 44-BACKSP!8ACE
	JRST	ENFILE!X		; 45-ENDFILE
	!xJRST	REWND.		; 46"-REWIND
	JRST	ST"8RASS		; 47-STRING"X ASSIGNMENT
	JRS"xT	FUNCT		; 50-OVE#RLAY HANDLER
	JR#8ST	TRLPRT		; 51-P#XRINT TRACE LIST
#x	JRST	TRLAB		; 52$-TRACE LABEL ENTR$8Y
	JRST	TRSTD		;$X 53-TRACE STANDAR$xD FUNCTION
	JRST%	STRDEC		; 54-DEC%8LARE STRINGS
	JR%XST	DDDUMP		; 55-D%xDT DUMP ROUTINE.
	JRST	INCHR0		; &8[E145] 56-READ CH&XARACTER WITH EOF LEGAL

HEOFCK  *"P@%ALGDR+4R@%ALGDR+4E2\)3 ,@"d@%ALGDR+11@%ALGDR+11E2\[R -"h@%ALGDR+12@%ALGDR+12EJ\.: 3#@%ALGDR+26@%ALGDR+26EJ\: 4@#$@%ALGDR+31@%ALGDR+31EOr :#P@%ALGDR+44@%ALGDR+44G"\Y +"X@%ALGDR+6Z@%ALGDR+6G25 9#H@%ALGDR+42@%ALGDR+42G>n9 +@"\@%ALGDR+7^@%ALGDR+7GCLY ."p@%ALGDR+14@%ALGDR+14GCN= -@"l@%ALGDR+13@%ALGDR+13I&[8 >@#t@%ALGDR+55@%ALGDR+55K:5 :@#T@%ALGDR+45@%ALGDR+45Kc%H1 
	IRP	A,<EXTERN %AL>A,MVt= <#`@%ALGDR+50@%ALGDR+50O$; /"x@%ALGDR+16@%ALGDR+16O%}w .@"t@%ALGDR+15@%ALGDR+15O>d@ )@"L@%ALGDR+3N@%ALGDR+3S: 1@#

@%ALGDR+23@%ALGDR+23S:9