Trailing-Edge
-
PDP-10 Archives
-
bb-kl11f-bm_tops20_v7_0_atpch1_19
-
autopatch/cleanc.c13
There are 13 other files named cleanc.c13 in the archive. Click here to see a list.
INS 21/1 ;13C1
;MJC 27-NOV-85 [1620] Fix edit 1502, Don't give warning if the user
; knows that the records will be variable in
; length.
REP 36/28 ;13C2
HRRZ TA,CURDAT ;[1502] RESTORE HERE
JUMPG TB,CHDA.3 ;[1605] IF RECORD IS 'VARYING' IGNORE FI.MRS
WIT
LDB TC,FI.RCN## ;[1620] 'REC CNT nn TO nn' SYNTAX?
HRRZ TA,CURDAT ;[1502] RESTORE HERE
JUMPG TB,CHDA.3 ;[1605] IF RECORD IS 'VARYING' IGNORE FI.MRS
JUMPN TC,CHDA.3 ;[1620] IF "TO nn" IGNORE IT TOO
SUM 28889