Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99e-bb - cblio.c08
There are 4 other files named cblio.c08 in the archive. Click here to see a list.
 INS 4/2	;08C1
	;JEH	10-APR-84 [1115] TOPS-10 system-labeled tapes - 7.02 sets DV.DIR
	;				bit now, causes wrong path to be followed
	;JSM	02-APR-84 [1114] Eliminate extra <CRLF> on Rewrite of ASCII Record
	;RLF	22-MAR-84 [1113] Make use procedure works with filename-1 OPEN
	;JEH	19-MAR-84 [1112] No <CR> at end of std-ascii tape
	;JBB	21-DEC-83 [1105] Put a '?' in front of warning to make it FATAL.
	;JBB	20-DEC-83 [1104] Remove SETEOF warning message and set max byte count
 INS 86/4	;08C2
	BYTCTW==12	;BYTE COUNT WORD IN FILE'S FDB
 REP 1/7	;08C3
	RESET1:	MOVEI	AC0,[OUTSTR [ASCIZ/COBOL programs may only be started through
	use of "GET and ST" or "RUN" monitor commands./]
			EXIT]
 WIT
	RESET1:	MOVEI	AC0,[OUTSTR [ASCIZ/?COBOL programs may only be started through
	use of "GET and ST" or "RUN" monitor commands./]
			EXIT]		;[1105] CONSIDER THIS FATAL
 REP 431/47	;08C4
		TLNE	FLG1,STNDRD	;SKIP IF NOT STANDARD LABELS
 WIT
		TLNE	FLG1,STNDRD!MSTNDR   ;[1115] SKIP IF NOT STD OR MONITOR LABELS
 INS 12/61	;08C5
		TLNE	FLG1,MSTNDR	;[1115] IS MONITOR PROCESSING LABELS?
		JRST	OPNBBF		;[1115] YES, THEN SKIP THIS
 REP 203/64	;08C6
		PUSHJ	PP,DSPL1.		;[1063] PUT OUT MESSAGE
		OUTSTR	[ASCIZ /% /]
		MOVE	AC2,[BYTE (5)10,31,20,14]
		PUSHJ	PP,MSOUT1
		OUTSTR	[ASCIZ / does not have the maximum file size
	in its FDB. Run SETEOF before updating to insure no loss of data under SMU.
	/]
 WIT
		MOVE	AC3,AC2			;[1104] NO, PUT MAX BYTES IN AC3
		HRLI	AC1,BYTCTW		;[1104] BYTE COUNT WORD IN FILE'S FDB
		SETO	AC2,			;[1104] MASK FOR FULL WORD
		CHFDB				;[1104] CHANGE FDB
		 ERJMP	[POPJ PP,]		;[1104] TAKE ERROR RETURN
	;[1104]	PUSHJ	PP,DSPL1.		;[1063] PUT OUT MESSAGE
	;[1104]	OUTSTR	[ASCIZ /% /]
	;[1104]	MOVE	AC2,[BYTE (5)10,31,20,14]
	;[1104]	PUSHJ	PP,MSOUT1
	;[1104]	OUTSTR	[ASCIZ / does not have the maximum file size
	;[1104]in its FDB. Run SETEOF before updating to insure no loss of data under SMU.
	;[1104] /]
 INS 11/66	;08C7
		TLNE	FLG1,MSTNDR	;[1115] IS THE MONITOR HANDLING THE LABELS?
		JRST	OPNDVC		;[1115] YES, THEN SKIP THE PROCESSING BELOW
 REP 14/106	;08C8
		;PERFORM USE PROCEDURE AND RETRY ENTER UUO
		;LOOP TILL ENTER WINS OR USER GIVES UP IN USE-PRO.
 WIT
		;[1113]PERFORM USE PROCEDURE AND RETRY LOOKUP UUO
		;[1113]LOOP TILL LOOKUP WINS OR USER GIVES UP IN USE-PRO.
 REP 27/106	;08C9
		JRST	OPNENR			;TRY AGAIN
 WIT
		JRST	OPNCH1			;[1113]TRY AGAIN
 REP 42/109	;08C10
		TRZE	AC4,AFTADV	; SKIP IF DON'T NEED 'CR'
 WIT
		TRNE	AC4,SASCII	;[1112] IS IT STD ASCII?
		 JRST	CLOSE2		;[1112] YES, DON'T PUT OUT <CR>
		TRZE	AC4,AFTADV	;[1112] SKIP IF DON'T NEED 'CR' (write aft adv)
 REP 77/147	;08C11
	RNWR2A:	PUSHJ	PP,RANCR	;[WADV] WRITE CR
 WIT
	RNWR2A:				;[M1114]
	IFN ANS74,<			;[A1114]
		TXNE	AC16,V%RWRT	;[A1114] DOING REWRITE?
		 JRST	RNWR2B		;[A1114] YES, DON'T PUT IN <CR><LF>
	>				;[A1114]
		PUSHJ	PP,RANCR	;[WADV] WRITE CR [M1114]
 SUM 90705