Google
 

Trailing-Edge - PDP-10 Archives - bb-kl11c-bm_tops20_v6_1_atpch1_16 - autopatch/alglib.c10
There are 14 other files named alglib.c10 in the archive. Click here to see a list.
 REP 3/1	;10C1
	;COPYRIGHT (C) 1975,1982,1983 BY
 WIT
	;COPYRIGHT (C) 1975,1984 BY
 REP 24/110	;10C2
		MOVEI	A2,@A2
		LDB	A0,[POINT 24,STR2(A2),35]  ; AND ITS LENGTH
		MOVEI	A7,1		;[347] SET UP DEFAULT PARAMETERS - START COPY
		MOVE	A10,A0		;[347] AT FIRST BYTE, END AT LAST BYTE
 WIT
		PUSH	SP,A0		; [360] SAVE STRING HEADER IN A0, A1
		PUSH	SP,A1		; [360] WHICH IS POINTED TO BY A2
		MOVEI	A2,@A2
		LDB	A13,[POINT 24,STR2(A2),35] ; [360] AND ITS LENGTH
		MOVEI	A7,1		;[347] SET UP DEFAULT PARAMETERS - START COPY
		MOVE	A10,A13		;[360] AT FIRST BYTE, END AT LAST BYTE
 REP 36/110	;10C3
		CAMLE	A10,A0		;[347] INVALID END BYTE #?
		 MOVE	A10,A0		;[347] YES, END WITH LAST BYTE IN STRING
 WIT
		CAMLE	A10,A13		;[360] INVALID END BYTE #?
		 MOVE	A10,A13		;[360] YES, END WITH LAST BYTE IN STRING
 INS 56/110	;10C4
		POP	SP,A1		; [360] RESTORE STRING HEADER
		POP	SP,A0		; [360]
 INS 63/110	;10C5
 REP 1/112	;10C6
		TITLE	FCALLS - FORTRAN INTERFACE ROUTINES
 WIT
	TITLE FCALLS - FORTRAN INTERFACE ROUTINES
 REP 24/126	;10C7






 WIT
 REP 1/137	;10C8
		TITLE	INLINE - READ NEXT LINE FROM INPUT
 WIT
	TITLE INLINE - READ NEXT LINE FROM INPUT
 REP 1/149	;10C9
	TITLE	INCHAN/OUTCHAN - INPUT/OUTPUT CHANNEL ROUTINES
 WIT
	TITLE INCHAN/OUTCHAN - INPUT/OUTPUT CHANNEL ROUTINES
 REP 29/149	;10C10
	PRGEND
 WIT
		PRGEND
 REP 109/150	;10C11
		HRLZ	A7,A3		; [324] SAVE PROJECT NUMBER IN A7 LEFTHALF
		SETZ	A2,		; [346] NO, CLEAR DELIMITER
		PUSHJ	SP,GETPP	; [346] GET PROGRAMMER NUMBER
		 JRST	OPFPP0		; [346] EOF, GO PARSE WHAT WE HAVE
 WIT
		HRLZ	A7,A3		; [357] NO, SAVE PROJECT NUMBER IN A7 LEFTHALF
		SETZ	A2,		; [357] CLEAR DELIMITER (MUST BE COMMA)
		PUSHJ	SP,GETPP	; [346] GET PROGRAMMER NUMBER
		 JRST	OPFPPD		; [357] EOF, GO CHECK FOR "[,"
 REP 117/150	;10C12
	SPEOF0:	PUSHJ	SP,GETCHR	; [346] ALLOW SPACES UNTIL EOF BUT NOTHING ELSE
		 JRST	OPFPP0		; [346] FOUND EOF, GO OPEN FILE
 WIT
	OPFPPD:	SKIPE	A3		; [357] ANY PROGRAMMER NUMBER?
		 HRR	A7,A3		; [357] YES, LOAD IT INTO PPN AC
		JUMPN	A7,SPEOF0	; [357] "[,]", "[, ", "[," - DEFAULT THE PPN?
		 GETPPN	A7,		; [357] YES, LOAD IT IN
		TRN			; [357] IGNORE NORMAL RETURN AND FALL THRU
	SPEOF0:	PUSHJ	SP,GETCHR	; [346] ALLOW SPACES UNTIL EOF BUT NOTHING ELSE
		 JRST	OPFPP1		; [357] FOUND EOF, GO OPEN FILE
 SUM 166384