Google
 
Trailing-Edge - PDP-10 Archives - bb-kl11f-bm_tops20_v7_0_atpch1_19 - autopatch/alglib.c12
There are 13 other files named alglib.c12 in the archive. Click here to see a list.
 REP 3/1	;12C1
	;COPYRIGHT (C) 1975,1984 BY
 WIT
	;COPYRIGHT (C) 1975,1985 BY
 REP 17/149	;12C2
		LDB	A0,[
		POINT	24,STR2(A2),35]	; GET ITS LENGTH
		CAIL	A0,6
		MOVEI	A0,6		; ONLY SIX BYTES REQUIRED
		JUMPE	A0,IO5		; NO NAME - FAILS LATER ON
		MOVE	A5,A0		; BYTE INDEX
		MOVEI	A0,0		; NAME ACCUMULATOR
		MOVSI	A6,(POINT	6,A0,)
					; SET UP BYTE POINTER
 WIT
		LDB	A0,[POINT 24,STR2(A2),35] ; GET ITS LENGTH
		CAIL	A0,6
		MOVEI	A0,6		; ONLY SIX BYTES REQUIRED
		SETZM	%SYS10(DB)	; [362] CLEAR LAST DEVICE NAME SET BY OTS
		SKIPN	A0		; [362] OK IF DEVICE NAME WAS GIVEN
		 IOERR	1		; [362] ELSE FAIL (NULL DEVICE STRING)
		MOVE	A5,A0		; BYTE INDEX
		MOVEI	A0,0		; NAME ACCUMULATOR
		MOVSI	A6,(POINT 6,A0,) ; SET UP BYTE POINTER
 SUM 190102