Trailing-Edge
-
PDP-10 Archives
-
bb-bt99g-bb
-
lsu.c07
There is 1 other file named lsu.c07 in the archive. Click here to see a list.
INS 16/1 ;07C1
;RLF 03-JUN-83 ;[1067] Remove edit 1065.
;RLF/JM 21-APR-83 ;[1065] Make RETAIN NEXT,READ NEXT get key in RRT
; (part of edit is in CBLIO)
REP 94/36 ;07C2
IFN ANS68,<
SKIPN 2(ACRR) ;IF FILE IS RANDOM AND KEY IS 0,
POPJ PP, ;DO NOTHING
WIT
;[1067] HRRZI AT2,0 ;[1065] START OFF WITH 0 BLOCK NO.
IFN ANS68,<
SKIPN 2(ACRR) ;IF FILE IS RANDOM AND KEY IS 0,
;[D1065] POPJ PP, ;DO NOTHING
POPJ PP, ;[1067] DO NOTHING
;[1067] JRST BN0B ;[1065]
REP 101/36 ;07C3
POPJ PP, ;YES, DO NOTHING
>;END IFN ANS74
JRST BN0A
WIT
;[D1065] POPJ PP, ;YES, DO NOTHING
POPJ PP, ;[1067] YES, DO NOTHING
;[1067] JRST BN0B ;[1065]
;[1067] LDB AT1,CRRFG4 ;[1065] GET RETAIN VERB FLAG
;[1067] CAIE AT1,10 ;[1065] DOING READ ONLY?
;[1067] JRST BN0B ;[1065]
>;END IFN ANS74
JRST BN0A
;[1067]BN0B: ;[1065]
;[1067] DPB AT2,CRRBLK ;[1065] MAKE SURE CURRENT RECORD VALUE IS
;[1067] ;[1065] FILLED.
;[1067] POPJ PP, ;[1065] RETURN
SUM 8268