Trailing-Edge
-
PDP-10 Archives
-
bb-kl11f-bm_tops20_v7_0_atpch1_19
-
autopatch/cobolc.c13
There are 13 other files named cobolc.c13 in the archive. Click here to see a list.
INS 30/1 ;13C1
;MJC 27-NOV-85 [1620] Set flag FI.RCN if 'REC CNT nn TO nn' seen.
;KWS 25-NOV-85 [1616] Correct edit 1614.
INS 25/11 ;13C2
MOVE TA,CURFIL ;[1620]THE FILTAB POINTER
SETOM TC ;[1620]GET A ONE
DPB TC,FI.RCN## ;[1620]REC CNT nn to nn SYNTAX SEEN
REP 34/42 ;13C3
LDB TC,FI.IRM## ;[1614] GET INTERNAL RECORDING MODE
WIT
HRRZ TA,CURFIL## ;[1616] POINT TO CURRENT FILE
LDB TC,FI.ERM## ;[1616] GET EXTERNAL RECORDING MODE
SUM 38107