Trailing-Edge
-
PDP-10 Archives
-
bb-jr93g-bb
-
7,6/ap012/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