Trailing-Edge
-
PDP-10 Archives
-
BB-L014E-BM
-
autopatch/cobolb.c05
There are 2 other files named cobolb.c05 in the archive. Click here to see a list.
INS 23/1 ;05C1
;SMI 26-OCT-82 [1425] 68274 Fix RESERVE negative AREAS to be converted
; to RESERVE 1 AREAS.
;SMI 22-OCT-82 [1423] 68274 Fix FILE LIMITS to be commented out
;SMI 19-OCT-82 [1422] 68274 Fix DATE-COMPILED line to be not commented
;SMI 23-SEP-82 [1407] Fix COPY REPLACING in ID-DIVISION.
;DMN 21-JUN-82 [1363] Fix syntaxing of SPECIAL-NAMES when defining
; collating sequences and CHANNEL numbers
REP 45/4 ;05C2
IA0.: SWOFF FNOCPY ;TURN OFF 'NO LISTING' FLAG
WIT
IA0.: TSWF FRTST ;[1407] COPY REPLACING ?
JRST IA0.C ;[1407] YES
SWOFF FNOCPY ;TURN OFF 'NO LISTING' FLAG
INS 60/4 ;05C3
INTER. IA0.C ;[1407]
IA0.C: PUSHJ PP,GETITM ;[1407] SKIP NEXT WORD
JRST IA0.N ;[1407]
REP 21/10 ;05C4
PUSHJ PP,GETSRC## ;[702] READ NEXT CHARACTERS
CAIE CH,12 ;[702] <CR-LF>
JRST .-2 ;[702] NO, LOOK FOR END OF LINE
SWOFF FNOCPY ;[702] RE-ENABLE LISTING
WIT
IA4.P: PUSHJ PP,GETSRC## ;[702][1422] READ NEXT CHARACTERS
IFN FT68274,< ;[1422]
JUMPE CH,IA4.Q ;[1422] SKIP NULLS
SOSGE CVTBFC## ;[1422] MAKE SURE THERE IS ROOM IN LINE BUFFER
JRST [OUTSTR [ASCIZ /68274 - source line too long to convert/]
CAIN CH,12
PUSHJ PP,IA4.S
JRST IA4.R] ;[1422]
IDPB CH,CVTBFP## ;[1422] STORE CURRENT CHARACTER
> ;[1422]
IA4.Q: CAIE CH,12 ;[702][1422] <CR-LF>
JRST IA4.P ;[702][1422] NO, LOOK FOR END OF LINE
IA4.R: SWOFF FNOCPY ;[702] RE-ENABLE LISTING
INS 40/10 ;05C5
IA4.S: PUSHJ PP,GETSRC ;[1422] GET NEXT SOURCE CHARACTER
CAIE CH,12 ;[1422] CR ?
JRST IA4.S ;[1422] NO
POPJ PP, ;[1422]
REP 19/17 ;05C6
ADDI TC,2 ;INCREASE SIZE BY 2 FOR -74
WIT
ADDI TC,2 ;INCREASE SIZE BY 2 FOR -74
SKIPG TC ;[1425] GREATER THAN 1 ?
HRRZI TC,1 ;[1425] NO, SET IT TO 1
REP 4/21 ;05C7
INTER. IA23.
IA23.: PUSHJ PP,IA62. ;RE-INIT SAVLST
IFN FT68274,<
PUSHJ PP,CVTCTC## ;TURN THIS CLAUSE INTO A COMMENT
>
WIT
IFN FT68274,< ;[1423]
INTER. IA23B. ;[1423]
IA23B.: PUSHJ PP,CVTCTC ;[1423] STATEMENT IS FILE-LIMIT, COMMENT IT OUT
SKPNAM ;[1423]
> ;[1423]
INTER. IA23.
IA23.: PUSHJ PP,IA62. ;RE-INIT SAVLST
;[1423] IFN FT68274,<
;[1423] PUSHJ PP,CVTCTC## ;TURN THIS CLAUSE INTO A COMMENT
;[1423] >
INS 13/21 ;05C8
IFN FT68274,< ;[1423]
INTER. IA23A. ;[1423]
IA23A.: PUSH PP,TB ;[1423] CHECK FOR FILE SPACE LIMIT
LDB TB,CVTBFP ;[1423] GET CURRENT CHARACTER
CAIE TB,"l" ;[1423] IS NEXT WORD LIMIT ?
CAIN TB,"L" ;[1423]
PUSHJ PP,CVTCTC## ;[1423] YES, TURN STATEMENT INTO COMMENT
POP PP,TB ;[1423]
POPJ PP, ;[1423]
> ;[1423]
REP 6/53 ;05C9
TLNE TB,(1B6) ;ALPHABET-NAME?
WIT
TLNN TB,(1B6) ;[1363] ALPHABET-NAME?
JRST IA210E ;[1363] NO, IGNORE IT
SUM 125973