Trailing-Edge
-
PDP-10 Archives
-
bb-kl11i-bm_tops20_v7_0_atpch_1-22
-
autopatch/rmsio.c08
There are 2 other files named rmsio.c08 in the archive. Click here to see a list.
REP 1/1 ;08C1
; UPD ID= 1526 on 2/7/84 at 4:07 PM by HOFFMAN
WIT
; UPD ID= 1616 on 5/21/84 at 4:36 PM by HOFFMAN
INS 22/1 ;08C2
;***** V13 *****
;JEH 14-MAY-84 [1122] Take 'at end' branch on 'read next' failure
;JEH 13-APR-84 [1116] Reset file status before retrying file open
REP 58/12 ;08C3
MOVEM T1,RMS.BK ; section number in .GBASE
WIT
MOVEM T1,RMS.BK## ;[1117] section number in .GBASE
INS 86/12 ;08C4
IFN DEBUG,<
;[1117]
INS 106/12 ;08C5
>; END IFN DEBUG [1117]
INS 94/28 ;08C6
SETZM FS.FS ;[1116] Clear the file status
PUSHJ PP,SETFS ;[1116] Set it in the appropriate locations
REP 7/43 ;08C7
JRST RDMSE1 ;GIVE ERROR
WIT
JRST RD.MS0 ;[1122] GIVE ERROR
REP 12/43 ;08C8
PUSHJ PP,RDEOF ;YES, GO SET EOF ON FIRST TIME THRU
WIT
RD.MS0: PUSHJ PP,RDEOF ;[1122] YES, GO SET EOF ON FIRST TIME THRU
INS 99/43 ;08C9
CAIE T1,FS%16 ;[1122] SECOND AT END?
REP 128/43 ;08C10
MOVE T0,F.WFLG(FT) ;GET FILE TABLE FLAG WORD AGAIN
WIT
MOVE T0,.RCSTE(FTL) ;[1122]GET THE FILE'S STATUS:
CAIG T0,RC.INV ;[1122]IS FILE AT INVALID KEY STATE
CAIGE T0,RC.ATE ;[1122]OR HAS END-OF-FILE ALREADY BEEN REACHED?
JRST T0,RDEOF0 ;[1122]NO
MOVEI T1,FS%16 ;[1122]YES, ATTEMPTING TO READ SEQUENTIALLY
JRST RDEOF1 ;[1122]FROM AN INVALID STATE
RDEOF0: MOVE T0,F.WFLG(FT) ;[1122]GET FILE TABLE FLAG WORD AGAIN
SUM 18386