Google
 

Trailing-Edge - PDP-10 Archives - bb-kl11f-bm_tops20_v7_0_atpch1_19 - autopatch/cblio.c15
There are 11 other files named cblio.c15 in the archive. Click here to see a list.
 REP 8/1	;15C1
	COPYRIGHT (C) 1974, 1983, 1984, 1985 BY DIGITAL EQUIPMENT CORPORATION
 WIT
	COPYRIGHT (C) 1974, 1986 BY DIGITAL EQUIPMENT CORPORATION
 INS 29/1	;15C2
	;RLF	14-OCT-86 [1171] Don't output CRLF before first ASCII record
	;RLF	08-OCT-86 [1167] Flag WANT8. was not checked correctly
	;MEM	01-OCT-86 [1166] PDL size is off by 20
	;RLF	30-SEP-86 [1165] COMPT. UUO failed because DF.DEV is corrupted
	;RLF	03-SEP-86 [1164] Buffer is cleared if OPEN EXTEND with SAME AREA
 REP 50/5	;15C3
		MOVEI	AC10,20(AC10)	;[660] LENGTH+20
 WIT

		MOVE	AC10,%PUSHL(AC10);[1166]GET LENGTH
		ADDI	AC10,20		;[1166]LENGTH+20
 REP 73/40	;15C4
		SKIPGE	WANT8.		;ITS OK, CREATE NON-EXISTENT FILE IF ANS-82 DEFAULT
 WIT
		SKIPL	WANT8.		;[1167] ITS OK, CREATE NON-EXISTENT FILE IF ANS-82 DEFAULT
 INS 270/44	;15C5
		TXNN	AC16,OPN%EX	;[1164] OPEN EXTEND?
 REP 70/62	;15C6
			SKIPGE	WANT8.		;ITS OK, CREATE NON-EXISTENT FILE IF ANS-82 DEFAULT
 WIT
			SKIPL	WANT8.		;[1167] ITS OK, CREATE NON-EXISTENT FILE IF ANS-82 DEFAULT
 REP 29/63	;15C7
		BLT	AC1,FID.BK+14
 WIT
		BLT	AC1,FID.BK+51		;[1165] GET WHOLE FILE SPEC
 REP 112/63	;15C8
	OPCT7:	TLNN	AC5,600		; IS VID EBCDIC?
 WIT
	OPCT7:	CAILE	AC6,^D160	;[1165] FILE ID CAN'T BE LONGER
		MOVEI	AC6,^D160	;[1165] THAN 160 CHARACTERS
		TLNN	AC5,600		; IS VID EBCDIC?
 INS 120/63	;15C9
		SOSE	AC0		;[1165] CAN'T HAVE MORE THAN 160 CHAR
 INS 126/63	;15C10
		SOSE	AC0		;[1165] CAN'T HAVE MORE THAN 160 CHAR
 REP 132/63	;15C11
		SOJN	AC6,OCPT7S	;LOOP 'TIL DONE
 WIT
		SOSE	AC0		;[1165] CAN'T HAVE MORE THAN 160 CHAR
		SOJN	AC6,OCPT7S	;LOOP 'TIL DONE

 INS 43/123	;15C12
		HRRZ	AC0,D.RP(16)	;[1171] IS THIS THE FIRST RECORD?
		JUMPLE	AC0,WRTRCB	;[1171] IF SO, DON'T OUTPUT CRLF
 SUM 125853