Trailing-Edge
-
PDP-10 Archives
-
bb-bt99e-bb
-
cobolc.c09
There are 4 other files named cobolc.c09 in the archive. Click here to see a list.
INS 23/1 ;09C1
;JEH 07-JUN-84 [1537] Fix edit 1424 - give error if fields are in
; an ASCII record
REP 19/41 ;09C2
;CAN'T STORE NON-DISPLAY DATA IN AN ASCII FILE
WIT
;[1537] CAN'T TRANSFER COMP DATA FROM ASCII RECORD TO A FILE BUFFER
REP 25/41 ;09C3
HRRZ TB, TBLOCK+1 ;[1424] GET LAST LINK IN TB FOR FNDFIL
PUSHJ PP, FNDFIL## ;[1424] FIND THE FILE TABLE
POPJ PP, ;[1424] NO FILTAB LINK
LDB TC, FI.ERM ;[1424] GET FILE'S MODE
CAIE TC, %RM.7B ;[1424] IS IT ASCII?
WIT
HRRZ TA, TBLOCK+1 ;[1537] GET LAST TABLE LINK IN TA
D38.L2: PUSHJ PP, LNKSET ;[1537]
LDB TC, DA.LVL ;[1537] ARE WE AT THE RECORD LEVEL?
CAIN TC, 1 ;[1537]
JRST D38.L3 ;[1537] YES
PUSHJ PP, FNDPOP ;[1537] RETURNS TB[ REL ADDR OF POP
POPJ PP, ;[1537] CAN'T FIND ONE
MOVE TA, TB ;[1537] SET UP TA
JRST D38.L2 ;[1537] CHECK AGAIN
D38.L3: LDB TC, DA.USG## ;[1537]
CAIE TC, %US.D7 ;[1537] IS IT ASCII?
SUM 258394