Trailing-Edge
-
PDP-10 Archives
-
bb-kl11c-bm_tops20_v6_1_atpch1_16
-
autopatch/pat.c12
There are no other files named pat.c12 in the archive.
INS 1/1 ;12C1
; Edit 442 to PAT.MAC by WAGNER on 29-Aug-85
; Fix OPEN EXTENT to write correct date in FDB, also fix UUOPEN to not trash
; flags. Rewrite previous edits for clarity.
; Edit 441 to PAT.MAC by WAGNER on 28-Aug-85
; Yet another typo, fix them all.
; Edit 440 to PAT.MAC by WAGNER on 28-Aug-85
; Edit 439 introduced a typo, fix it.
; Edit 439 to PAT.MAC by WAGNER on 28-Aug-85, for SPR #20876
; Fix OPEN EXTEND to write correct date in FDB, also fix UUOPEN to not trash
; flags.
REP 10/2 ;12C2
.EDIT==438 ;EDIT NUMBER by DSW
WIT
.EDIT==442 ;EDIT NUMBER by DSW
REP 11/27 ;12C3
UUOPEN: UMOVE C,2(A)
WIT
;**;[442] INSERT 2 LINES AT UUOPEN:+0.L DSW 8/29/85
UUOPEN: UMOVE C,(A) ;[442] GET FLAGS
HRRZM C,FLAGWD(BB) ;[442] AND SAVE EM
UMOVE C,2(A) ;SIXBIT NAME FROM USER
INS 114/112 ;12C4
;**;[442] INSERT 2 LINES AT CMP13H:+12.L DSW 8/29/85
UMOVE A,.CMPXF(CAC) ;[442] GET BACK POINTER TO LOOKUP BLOCK
HRRM A,FORTY ;[442] PUT IN FORTY FOR SETDAT
SUM 93693