Trailing-Edge
-
PDP-10 Archives
-
bb-bt99e-bb
-
lsu.c06
There is 1 other file named lsu.c06 in the archive. Click here to see a list.
INS 16/1 ;06C1
; JSM 16-FEB-83 ;[1054] ALLOW SMU OPEN UNAVAILABLE AFTER DECLARATIVES
; RLF 10-FEB-83 ;[1051] Make REWRITE after READ NEXT for relative
; file work
; RLF 21-DEC-82 ;[1047] DEQ record when fatal error encountered
REP 51/3 ;06C2
;
WIT
EXTERNAL FS.FS,FS.IGE
INS 42/30 ;06C3
SKIPN FS.FS ;[1054] CHECK TWO-DIGIT FILE-STATUS CODE
JRST LFENQ3 ;[1054] IS ZERO, CONTINUE NORMAL PATH.
SKIPN FS.IGE ;[1054] ACTION CODE SET?
JRST SU.ERJ ;[1054] NO
HRRZ AT1,FET3 ;[1054] GET THE CONTENTS OF STACK POINTER.
HLLZ AT1,0(AT1) ;[1054] CHECK FOR UNAVAILABLE PATH
JUMPE AT1,RET.1 ;[1054] NO UNAVAILABLE, RETURN + 1
JRST RET.2 ;[1054] YES - RETURN + 2
LFENQ3: ;[1054]
REP 97/32 ;06C4
MOVE AT4,@F.RACK(AP) ;GET ACTUAL KEY
MOVE AT3,D.RP(AP) ;GET CURRENT REC NUMBER
CAIN AT3,AT4 ;RETAINED NEXT=CURRENT NEXT?
WIT
HRRZ AT4,F.RACK(AP) ;[1051] GET ACTUAL KEY'S ADDRESS,
MOVE AT5,(AT4) ;[1051] THEN THE KEY.
MOVE AT3,D.RP(AP) ;GET CURRENT REC NUMBER
CAMN AT3,AT5 ;[1051] RETAINED NEXT=CURRENT NEXT?
INS 9/45 ;06C5
MOVE AT1,[XWD .DEQDA,0] ;[1047] GET FUNCTION CODE
CALLI AT1,152 ;[1047] DEQ ALL RECORDS
JRST SU.ER7 ;[1047] UNEXPECTED ERROR
INS 46/45 ;06C6
;[1054] THE FOLLOWING LINE IS NEW ERROR MSG FOR SMU OPEN FAILED AFTER DECLARATIVES
SU.ERJ: $SUERR <File Open Failed -- Cannot Continue.>
SUM 143559