Trailing-Edge
-
PDP-10 Archives
-
bb-jr93h-bb
-
7,6/ap013/cobolc.c13
There are 13 other files named cobolc.c13 in the archive. Click here to see a list.
INS 24/1 ;13C1
;MJC 27-NOV-85 [1617] Set flag FI.RCN if 'REC CNT nn TO nn' seen.
;KWS 25-NOV-85 [1616] Correct edit 1614.
;KWS 13-NOV-85 [1614] Fix edit 1537 - allow mixed mode ascii-binary to
; work.
INS 25/10 ;13C2
INTER. DA12A.
DA12A.: MOVE TA,CURFIL ;[1617]THE FILTAB POINTER
SETOM TC ;[1617]GET A ONE
DPB TC,FI.RCN## ;[1617]REC CNT nn to nn SYNTAX SEEN
POPJ PP, ;[1617]RETURN
INS 37/41 ;13C3
HRRZ TA,CURFIL## ;[1616] POINT TO CURRENT FILE
LDB TC,FI.ERM## ;[1616] GET EXTERNAL RECORDING MODE
CAIN TC,%RM.BN ;[1614] IS IT BINARY?
POPJ PP, ;[1614] YES, EXIT.
SUM 251396