Trailing-Edge
-
PDP-10 Archives
-
bb-bt99g-bb
-
cblio.c07
There is 1 other file named cblio.c07 in the archive. Click here to see a list.
INS 4/2 ;07C1
;JSM 09-NOV-83 [1103] On Fake Read for SMU Retain on TOPS-10, check for
; EOF Return and don't cause program failure if so.
;JEH 08-NOV-83 [1102] Determine TOPS-20 monitor level and if < 5.0,
; skip all read unrestricted code - not implemented
;JM/RF 25-OCT-83 [1100] SMU with relative file gets race condition,
; record not written to disk but gets
; invalid key error.
;JEH 24-OCT-83 [1077] If dynamic access and REWRITE, update pointers
; so READ NEXT can work
;JBB 22-AUG-83 [1075] Prevent multi-level ISAM file from missing records
; when using START, READ NEXT sequences
;RLF/JM 21-APR-83 [1065] Make FREE RECORD KEY work for SMU after RETAIN NEXT
DEL 29/3 ;07C2
;[D1007] IFNDEF TOPS2X,<TOPS2X==0> ; [667] THIS CODE HAS NOT BEEN TESTED YET
TOPS2X==TOPS20 ;[1007] TURN ON TOPS2X FOR VERSION 5
INS 51/5 ;07C3
EXTERN SU.T1 ;[1065] SMU, CARRY RRT ENTRY ADDR HERE
REP 11/7 ;07C4
WIT
IFN TOPS20, <
MOVEI AC1,.SCOUNT ;[1102]
GETAB ;[1102] SEE WHICH VERSION WE'RE RUNNING UNDER
ERJMP [ CAIN AC1,GTABX1 ;[1102] DOES THIS TABLE EXIST
SKIPA AC2,[-1] ;[1102] NO - SAY VERSION 4.1
SETZM AC2 ;[1102] SAY V 5
MOVEM AC2,MNTR5## ;[1102] STORE IT
JRST .+1] ;[1102]
>; END TOPS20
REP 41/45 ;07C5
OPNC3A: SKIPN F.WSMU(I16) ; SKIP IF SIMULTANEOUS UPDATE
WIT
OPNC3A: ;[1066]
IFN TOPS20,< ;[1066]
TXNE AC13,DV.MTA ;[1066] IS IT AN MTA
TLNN FLG1,MSTNDR ;[1066] AND MONITOR IS LABELING?
SKIPA ;[1066] NO
JRST OPNC3C ;[1066] YES, OPEN FILE USING FILOP
> ;[1066]
SKIPN F.WSMU(I16) ;[1066] SKIP IF SIMULTANEOUS UPDATE
REP 2/46 ;07C6
IFN TOPS2X,<
WIT
IFN TOPS20, <
SKIPGE MNTR5## ;[1102] IF NOT AT LEAST V5.0 OF MONITOR,
JRST OPNC40 ;[1102] NO UNRESTRICTED READ
REP 7/46 ;07C7
>
WIT
OPNC40: ;[1102]
>; END TOPS20 ;[1102]
REP 60/47 ;07C8
TXNN AC13,DV.MTA ;[561] MTA??
WIT
TXNE AC13,DV.MTA ;[561][1066] MTA??
TLNE FLG1,MSTNDR ;[1066] MTA IS UNLABELED TAPE?
REP 15/49 ;07C9
IFN TOPS2X,<
TLNE FLG,OPNOUT ;[1007][667] IF OPEN READ ONLY OR
>
WIT
IFN TOPS20,<
SKIPL MNTR5 ;[1102] NO UNRESTRICTED READ
TLNE FLG,OPNOUT ;[1007][667] IF OPEN READ ONLY OR
>; END TOPS20 ;[1102]
REP 13/50 ;07C10
SKIPN F.WSMU(I16) ; SIMULTANEOUS UPDATE?
IFN TOPS2X,<
TLNN FLG,OPNOUT ;[1007] [667] OR OPEN READ ONLY
TRNA ;[667] YES
>
JRST OPNI21 ; NO
IFE TOPS20,<
WIT
IFN TOPS20,<
SKIPL MNTR5 ;[1102] IF (AT LEAST V5.0
TLNE FLG,OPNOUT ;[1102] AND READ ONLY) OR
SKIPE F.WSMU(I16) ;[1102] SIMULTANEOUS UPDATE
TRNA ;[1102] THEN SKIP
JRST OPNI21 ;[1102] ELSE ON TO OPNI21
>; END TOPS20
IFE TOPS20,<
SKIPN F.WSMU(I16) ;[1102] SIMULTANEOUS UPDATE?
JRST OPNI21 ;[1102] NO
REP 14/61 ;07C11
IFN TOPS2X,<
WIT
IFN TOPS20, <
SKIPGE MNTR5 ;[1102] IF MONITOR NOT AT LEAST V5.0,
JRST OPNLO2 ;[1102] DIDN'T DO THE LOOKUP
REP 22/61 ;07C12
>
WIT
OPNLO2: ;[1102]
>; END TOPS20
REP 133/64 ;07C13
IFE TOPS2X,<
TRO AC0,OF%THW ; [431] THAWED I.E. SIMULTANEOUS UPDATE
>
IFN TOPS2X,<
SKIPN F.WSMU(I16) ;[667] SIMULTANEOUS UPDATE?
WIT
SKIPL MNTR5 ;[1102] IF NOT AT LEAST V5.0,
JRST OCPT11 ;[1102] NO UNRESTRICTED READ DEFINED
TRO AC0,OF%THW ; [431] THAWED I.E. SIMULTANEOUS UPDATE
JRST OCPT12 ;[1102]
OCPT11: SKIPN F.WSMU(I16) ;[1102][667] SIMULTANEOUS UPDATE?
REP 141/64 ;07C14
>
MOVEM AC0,CP.BK3 ; [431] INIT AC2 OPENF BITS
WIT
OCPT12: MOVEM AC0,CP.BK3 ; [1102] [431] INIT AC2 OPENF BITS
INS 176/64 ;07C15
TXNE AC13,DV.MTA ; [1066] IS IT A LABELED MTA?
PUSHJ PP,OCP1A ; [1066] YES, GO SET UP ATTR. BLOCK
INS 211/64 ;07C16
IFN TOPS20,< ;[1066]
;[1066] This routine is used to set up the attribute block for the GTJFN jsys.
;[1066] The GTJFN call uses the attribute block when opening system labeled
;[1066] tapes. The format is set to D if the RECORDING MODE IS ASCII or
;[1066] if the RECORDING MODE IS STANDARD-ASCII.
OCPTFO: ASCIZ/FORMAT:D/ ;[1066]
OCP1A: PUSH PP,AC0 ;[1066]
HRRZ AC0,D.RFLG(I16) ;[1066] Get information flag
TXNN AC0,SASCII ;[1066] Recording mode ASCII ?
JRST OCP1B ;[1066] No, exit
HRRI AC0,.GJATR-.GJJFN ;[1066] Get number of words
HRRM AC0,GJ.BLK##+.GJF2 ;[1066] Set up number of extra
;[1066] words in GTJFN block
TXO AC0,GJ%XTN+GJ%FOU ;[1066] Set GJ%XTN in GTJFN block
TXZ AC0,GJ%SHT ;[1066]
MOVEM AC0,GJ.BLK+.GJGEN ;[1066]
HRROI AC0,GJ.ATR## ;[1066]
MOVEM AC0,GJ.BLK+.GJATR ;[1066] GTJFN points to attribute block
MOVEI AC0,2 ;[1066]
HRRM AC0,GJ.ATR ;[1066] Set number of words in attr.
MOVE AC0,[POINT 7,OCPTFO] ;[1066] Setup byte pointer in attribute
MOVEM AC0,GJ.ATR+1 ;[1066] block
MOVE AC0,[.NULIO,,.NULIO] ;[1066]
MOVEM AC0,GJ.BLK+.GJSRC ;[1066]
HRRZI AC0,GJ.BLK ;[1066]
MOVEM AC0,CP.BLK+1 ;[1066]
OCP1B: POP PP,AC0 ;[1066]
POPJ PP, ;[1066]
>;END IFN TOPS20 ;[1066]
INS 23/75 ;07C17
REP 74/95 ;07C18
OPNCKP: SKIPN M7.00 ;IS IT 7.00 OR LATER?
POPJ PP, ;NO
WIT
OPNCKP:
; SKIPN M7.00 ;[1100] IS IT 7.00 OR LATER?
; POPJ PP, ;[1100] NO
INS 8/150 ;07C19
CAIE AC0,%FAM.D ;[1077] IF DYNAMIC, COULD NEED SEQ POINTERS
REP 14/150 ;07C20
RANXI0: TLNE FLG,RANFIL ;[273] IF A RANDOM FILE
WIT
RANXI0: SKIPN F.WSMU(I16) ;[1065] SIMULTANEOUS UPDATE?
JRST RNXI0A ;[1065] NO
MOVE AC2,SU.T1## ;[1065] GET RRT ENTRY
HLLZ AC3,1(AC2) ;[1065] IS RETAIN NEXT
TLNN AC3,400000 ;[1065] FLAG ON?
JRST RNXI0A ;[1065] NO.
MOVE AC1,F.RACK(I16) ;[1065] IF SO, WE NEED TO GET
MOVE AC3,(AC1) ;[1065] THE KEY AND
MOVEM AC3,2(AC2) ;[1065] PUT IT IN THE RRT.
RNXI0A: ;[1065]
TLNE FLG,RANFIL ;[273] IF A RANDOM FILE
REP 103/159 ;07C21
POPJ PP, ;[605] RETURN
WIT
JRST SETLRW ;[1075] [605] GO UPDATE LRW
REP 33/188 ;07C22
GBDER: MOVE AC0,[E.MINP+E.FIDA+E.BDAT] ;ERROR NUMBER
WIT
GBDER: ;[1103]
IFE TOPS20,< ;[1103] TOPS-10 ONLY EOF ERROR FLAG TO TEST
SKIPE SU.FRF ;[1103] DOING FAKE READ, I.E. SMU RETAIN?
PUSHJ PP,GBDEOF ;[1103] YES, GO TEST FOR EOF FLAG FROM IN UUO
JRST GBDER1 ;[1103] TEST IS FALSE, RETURN +1
PUSHJ PP,CLRDS ;[1103] TEST IS TRUE, RETURN +2, GO CLEAR STATUS
JRST GETB0F ;[1103] AND GO RETURN BLOCK = 0, WHICH IS OK
GBDER1: ;[1103]
> ;[1103] END IFE TOPS20
MOVE AC0,[E.MINP+E.FIDA+E.BDAT] ;ERROR NUMBER
INS 39/188 ;07C23
;[1103] TEST TOPS-10 EOF ERROR FLAG FROM IN UUO
IFE TOPS20,< ;[1103]
GBDEOF: ;[1103]
PUSH PP,AC2 ;[1103] SAVE CHANNEL INFO FROM IN UUO CALL
XCT UGETS. ;[1103] DO A GETSTS UUO ON CHANNEL
TXNE AC2,IO.ERR ;[1103] REPORTING A REAL I-O ERROR?
JRST GBDEO1 ;[1103] YES, RETURN +1
TXNE AC2,IO.EOF ;[1103] EOF FLAG SET FOR IN UUO?
AOS -1(PP) ;[1103] YES, SET UP TO RETURN +2
GBDEO1: ;[1103]
POP PP,AC2 ;[1103] RESTORE CHANNEL INFO
POPJ PP, ;[1103] AND RETURN
> ;[1103] END IFE TOPS20
REP 23/206 ;07C24
IFE TOPS20,<
SKIPE M7.00 ;IF 7.00
JRST PPOPJ ;RIB UPDATE WILL BE DONE BY MONITOR
>
WIT
;IFE TOPS20,< ;[1100, don't let monitor control update]
; SKIPE M7.00 ;[1100] IF 7.00
; JRST PPOPJ ;[1100] RIB UPDATE WILL BE DONE BY MONITOR
;> ;[1100]
REP 33/206 ;07C25
IFE TOPS20,<
SKIPE M7.00 ;IF 7.00
JRST PPOPJ ;RIB UPDATE WILL BE DONE BY MONITOR
>
WIT
;IFE TOPS20,< ;[1100, don't let control update]
; SKIPE M7.00 ;[1100] IF 7.00
; JRST PPOPJ ;[1100] RIB UPDATE WILL BE DONE BY MONITOR
;> ;[1100]
SUM 252991