Trailing-Edge
-
PDP-10 Archives
-
bb-kl11c-bm_tops20_v6_1_atpch1_16
-
autopatch/glxfil.c15
There is 1 other file named glxfil.c15 in the archive. Click here to see a list.
REP 27/1 ;15C1
FILMAN==:127 ;Maintenance edit number
WIT
FILMAN==:130 ;Maintenance edit number
INS 45/3 ;15C2
130 5.1240 Jun-16-86
In routine F%POS (POS.2), check to see if the caller wants to include
LSN in its calculation to position a byte within a file and set the according
bit (SF%LSN) to the SFPTR JSYS. (only for version 5 of GALAXY)
******This edit requires MONITOR edit 7321 and MONSYM 7322. *******
REP 23/22 ;15C3
SKIPE FB$LSN(FB) ;ARE WE TRIMMING LSN'S?
JRST IBYT.4 ;YES, GO CHECK IT
WIT
;**;[130]At IBYT.1:+2L Delete two lines JYCW 6/16/86
REP 33/22 ;15C4
IBYT.4: MOVE S1,FB$BBP(FB) ;GET THE BUFFER BYTE POINTER
IBP S1 ;NORMALIZE IT
MOVE S1,(S1) ;GET THE WORD
TRNN S1,1 ;IS LSN BIT SET?
JRST [SKIPLE FB$LSN(FB) ;SKIP IF NOT VIRGIN FILE
SETZM FB$LSN(FB) ;IT IS, THEN THERE ARE NO LSNS IN FILE!
JRST IBYT.2] ;GET THE BYTE
AOS FB$BBP(FB) ;INCREMENT BYTE-POINT BY ONE WORD
MOVNI S1,5-1 ;ACCOUNT FOR BYTES BYPASSED BY AOS
;FB$BIB WAS SOSGE'D ABOVE
ADDM S1,FB$BIB(FB) ;DECREMENT BYTES-IN-BUFFER
;EVEN IF FB$BIB GOES NEGATIVE HERE
;THE NEXT SOSGE IN IBYT WILL CATCH IT
SETZM FB$LSN(FB) ;CLEAR FLAG TO AVOID RECURSION
PUSHJ P,IBYT.1 ;GET THE TAB FOLLOW LSN
SETOM FB$LSN(FB) ;RE-SET THE FLAG
JUMPF .RETF ;PASS ON THE ERROR
JRST IBYT.1 ;ELSE, GET NEXT BYTE
WIT
;**;[130]At IBYT.4+0L delete 17 lines (routine IBYT.4) JYCW 6/16/86
INS 46/25 ;15C5
;**;[130]At POS.2+12L Add two lines JYCW 6/16/86
SKIPE FB$LSN(FB) ;[130]Want to trim line numbers?
TXO S1,SF%LSN ;[130]Yes, set bit to include LSN
SUM 241758