Google
 

Trailing-Edge - PDP-10 Archives - bb-kl11c-bm_tops20_v6_1_atpch1_16 - autopatch/cblio.c08
There are 4 other files named cblio.c08 in the archive. Click here to see a list.
 REP 1/1	;08C1
	; UPD ID= 1511 on 1/27/84 at 3:57 PM by MASLANKA                        
 WIT
	; UPD ID= 1620 on 5/22/84 at 9:19 AM by HOFFMAN                         
 INS 26/1	;08C2
	;EDITS
	;NAME	DATE	  COMMENTS
	;V13************
	;JEH	22-MAY-84 [1126] New feature test switch and code to print blank
	;				ascii text lines
	;JSM	14-MAY-84 [1125] Test on 'RPTW.' before generating +2 return from
	;			  WADV. to Report Writer routine
	;JEH	10-MAY-84 [1121] READ NEXT after 2 REWRITES fails, flags reset at
	;			  wrong time
	;JBB	27-APR-84 [1120] Don't get a channel number when opening a file
	;			 assigned to LPT:
	;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
	;JSM	09-NOV-83 [1103] On Fake Read for SMU Retain on TOPS-10, check for
	;			 EOF Return and don't cause program failure if so.
 REP 4/40	;08C3
	OPNCHN:	PUSHJ	PP,GCHAN	;LOAD AC5 WITH A CHANNEL NUMBER
 WIT
	OPNCHN:
	IFN TOPS20,<
		TXNE	AC13,DV.LPT	;[1120] SIMPLE OUTPUT DEVICE
		JRST	OPCH1A		;[1120] YES, DON'T GET CHANNEL NUMBER
	>
		PUSHJ	PP,GCHAN	;LOAD AC5 WITH A CHANNEL NUMBER
 REP 12/40	;08C4
		TLNE	FLG,DDMASC	;SKIP IF NOT ASCII
 WIT
	OPCH1A:	TLNE	FLG,DDMASC	;[1120] SKIP IF NOT ASCII
 REP 25/108	;08C5
		JRST	OPNENR			;TRY AGAIN
 WIT
		JRST	OPNCH1			;[1113] TRY AGAIN
 REP 30/111	;08C6
		TRZE	AC4,AFTADV	; SKIP IF DON'T NEED 'CR'
 WIT
		TRNE	AC4,SASCII	;[1112] IS IT?
		 JRST	CLOSE2		;[1112] YES, THEN NO <CR>
		TRZE	AC4,AFTADV	;[1112] SKIP IF DON'T NEED 'CR'
 REP 109/123	;08C7
		  TRNA			;NORMAL RETURN
		AOS	(PP)		;COPY END-OF-PAGE SKIP RETURN
 WIT
		  JRST	WRTRE6		;[1125] NORMAL RETURN
		SKIPN	RPTW.##		;[1125] SKIP RETURN, DOING RPTW?
		AOS	(PP)		; NO, COPY END-OF-PAGE SKIP RETURN
		SETZM	RPTW.##		;[1125] SET FLAG TO ZERO
 INS 8/136	;08C8
	IFN BLANKL, <
		CAIN	C,15		;[1126] Is it a carriage return?
		JRST	READ5A		;[1126] Yes, make a blank record
	>; [1126]
 REP 60/149	;08C9
	RNWR2A:	PUSHJ	PP,RANCR	;[WADV] WRITE CR
 WIT
	RNWR2A:				;[M1114]
		TXNE	AC16,V%RWRT	;[A1114] DOING REWRITE?
		 JRST	RNWR2B		;[A1114] YES, DON'T PUT IN <CR><LF>
		PUSHJ	PP,RANCR	;[WADV] WRITE CR [M1114]
 REP 9/165	;08C10
		TRZE	AC0,RDLAST	; WAS READ LAST IO OPERATION
		JRST	RERIT4		; YES, CHECKS OK
		JRST	ERDLRW		; NO GIVE ERROR CASE
 WIT
		TRZN	AC0,RDLAST	;[1121] WAS READ LAST IO OPERATION
		JRST	ERDLRW		; NO GIVE ERROR CASE
		HRRM	AC0,D.RFLG(I16)	;[1121] STORE FLAG
		JRST	RERIT4		;[1121] YES, CHECKS OK
 REP 43/165	;08C11
	RERIT4:	HRRM	AC0,D.RFLG(I16)	;STORE BACK WITH LAST VERB READ OFF
		PUSHJ	PP,LVTST	;LOW-VALUES IN RECORD KEY?
 WIT
	RERIT4:	PUSHJ	PP,LVTST	;LOW-VALUES IN RECORD KEY?
 SUM 202209