Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99e-bb - cobolb.c05
There are 2 other files named cobolb.c05 in the archive. Click here to see a list.
 REP 23/1	;05C1

 WIT
	;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
	;DMN	19-JAN-82	[1332] Fix PROGRAM COLLATING SEQUENCE not to advance 
	;				too far
	;JEH	01-JAN-82	[1330] Warning for invalid memory size
	;JEH	17-DEC-81	[1325] SHUT OFF DCCFLG SO SOURCE NOT LOST W/ DATE-COMPILED COMMENT
 REP 45/4	;05C2
	IA0.:	SWOFF	FNOCPY		;TURN OFF 'NO LISTING' FLAG
		TRZ	FGTPER		;[153] DON'T GET PERIOD FROM GETITM
		PUSHJ	PP,SKPPGF##	;SKIP TO END OF PARAGRAPH
 WIT
	IA0.:	TSWF	FRTST		;[1407] COPY REPLACING ?
		JRST	IA0.C		;[1407] YES
		SWOFF	FNOCPY		;TURN OFF 'NO LISTING' FLAG
		TRZ	FGTPER		;[153] DON'T GET PERIOD FROM GETITM
		PUSHJ	PP,SKPPGF##	;SKIP TO END OF PARAGRAPH
	IFN ANS74 <			;[1325]
		SETZM	DCCFLG		;[1325] OUT OF DATE-COMPILED STATEMENT 
	>; ANS74			;[1325]
 INS 57/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]
 INS 9/12	;05C6
		CAILE	TB,777777	;[1330] MAX SIZE IN WORDS = 777777
		 JRST	[HRRZS	TB		;[1330] 
			 CAIE	TB,0		;[1330] GREATER THAN 262,144 WORDS?
			 EWARNW	E.652		;[1330] YES - WARNING
			 HRRZI	TB,777777	;[1330] SET TO MAX
			 JRST	.+1]		;[1330]
 REP 19/17	;05C7
		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	;05C8
		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	;05C9
	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 21/48	;05C10
		JRST	IA0.G		;GET NEXT WORD
 WIT
		POPJ	PP,		;[1332]
 REP 6/53	;05C11
		TLNE	TB,(1B6)	;ALPHABET-NAME?
 WIT
		TLNN	TB,(1B6)	;[1363] ALPHABET-NAME?
		JRST	IA210E		;[1363] NO, IGNORE IT
 SUM 157134