Google
 

Trailing-Edge - PDP-10 Archives - tops10_703a_sys_ap115_bb-ju01b-bb - 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 19/154	;12C2
		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
	;**; [362] @IO3+5 in ALGOTS, insert 2, change 1, JBS, 16-Jan-85
		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 145864