Trailing-Edge
-
PDP-10 Archives
-
bb-kl11c-bm_tops20_v6_1_atpch1_16
-
autopatch/pat.c16
There are no other files named pat.c16 in the archive.
INS 1/1 ;16C1
; *** Edit 447 to PAT.MAC by WONG on 20-Nov-86, for SPR #21427 (TCO none)
; Edit 436 breaks USETI when in update mode. In routine GETEOF, use SIZEF JSYS
; to find the file byte count instead of GTFDB because an opened file byte
; count might be diferent then the one in the FDB.
REP 10/2 ;16C2
.EDIT==444 ;EDIT NUMBER
WIT
.EDIT==447 ;EDIT NUMBER
REP 26/39 ;16C3
PUSH P,E ;[436] ...
HRRZ A,JFNTAB(BB) ;[436] GET JFN
MOVE B,[XWD 2,11] ;[436] GET BYTE SIZE AND BYTE COUNT FROM FDB
MOVEI C,D ;[436] INTO ACS B AND C
SETZB D,E ;[436] INITIALIZE SIZE AND COUNT TO ZERO
GTFDB ;[436]
ERJMP .+1 ;[436] IGNORE ERROR
MOVE A,E ;[436] MOVE BYTE COUNT TO A
WIT
;**;[447]At GETEOF:+3L replace 8 lines with 9 lines JYCW Nov/20/86
HRRZ A,JFNTAB(BB) ;[436][447]Get JFN
MOVE B,[XWD 1,.FBBYVU] ;[436][447]Get byte size from FDB
MOVEI C,D ;[436][447]Use D as argument block
SETZ D, ;[436][447]Clear D
GTFDB ;[436][447]
ERJMP .+1 ;[436][447]Ignore error
SIZEF ;[447]Get file byte count
PUSHJ P,ERROR ;[447]Report any errors
MOVE A,B ;[436][447] Move byte count to A
REP 42/39 ;16C4
POP P,E ;[436] RESTORE OUR ACS
WIT
;**;[447]At GETEOF:+19L delete 1 line JYCW Nov/20/86
INS 43/113 ;16C5
SUM 26956