Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99h-bb - cblio.c13
There are 10 other files named cblio.c13 in the archive. Click here to see a list.
 INS 4/2	;13C1
	;KWS	19-NOV-85 [1152] Make sure that the channel number remains the same
	;			 when using declaratives.
	;MJC	03-SEP-85 [1151] Clear dump mode IOWD in RH of UOUT. on invalid key
	;KWS	03-Sep-85 [1150] Be sure to check for full buffer in all cases before 
	;			 writing
	;JSM	22-APR-85 [1143] Change where programs fail if missing ISAM files.
	;BCM	17-APR-85 [1142] TOPS-10 fix logical name problem when no PPN given
 REP 34/22	;13C2
		 JRST	[CAIE	AC1,600130	;INVALID SMU ACCESS?
			JRST	[OUTSTR	[ASCIZ /RESET time /]
				JRST	OCPERR	]
 WIT
		 JRST	[CAIE	AC1,OPNX9 ;[1143] INVALID SMU ACCESS?
			JRST	RSTID1	;[1143] IF FNF, GO SET FLAG AND LET USER GO TO OPEN
 REP 72/22	;13C3
	RSTID1:	HLLZ	AC1,D.F1(I16)	;[377] GET FLG1 PARMS
		TLNN	AC1,FILOPT	;[374] OPTIONAL FILE?
		JRST	RSTID8		;[323] NO, FATAL
 WIT
	RSTID1:	POP	PP,AC1		;[1143] GET BACK TO RIGHT PLACE ON STACK
 REP 78/22	;13C4
		POP	PP,.JBFF	;RESTORE THE STACK
 WIT
		POP	PP,.JBFF	;[1143] RESTORES .JBFF FROM STACK
 INS 24/63	;13C5
		MOVEI	AC1,.PTFRN	;[1142] SET RETURN INFO ABOUT PATH
		MOVEM	AC1,PTH.BK##	;[1142] INTO ARG BLOCK
		MOVSI	AC1,(PT.RCN)	;[1142] SET RETURN DATA ABOUT CURRENT LOGICAL
		MOVEM	AC1,PTH.BK+.PTLNF ;[1142] PATH NAME
		MOVE	AC1,UOBLK.+1	;[1142] GET SIXBIT DEVICE NAME
		MOVEM	AC1,PTH.BK+.PTLNM ;[1142] INTO ARG BLOCK
		MOVE	AC1,[XWD 4,PTH.BK##] ;[1142] INDICATE PATH ARG BLOCK LOC
		PATH.	AC1,		;[1142] SEE IF ITS A LOGICAL NAME
		  JRST	OPNF2B		;[1142] ITS NOT
	;[1142] SET PATH BLOCK TO RETURN FILES PATH LOCATION
		MOVSI	AC1,(PT.RCN)	;[1142] SET RETURN DATA ABOUT LOGICAL
		MOVEM	AC1,PTH.BK##+.PTLNF ;[1142] PATH NAME
		SETZ	AC5,		;[1142] FORCE PPN TO BE ZERO
		MOVE	AC1,[XWD .PTMAX,PTH.BK] ;[1142] SET PATH BLOCK PTR INTO
		MOVEM	AC1,FOP.BK+.FOPAT ;[1142] THE FILOP ARG BLOCK SO WE GET THE
		JRST	OPNF2A		;[1142] PATH OF WHERE FILE IS
	OPNF2B:
 INS 27/106	;13C6
		LDB	AC5,DTCN.		;[1152] MAKE SURE CHANNEL NO. IS CORRECT
 INS 2/120	;13C7
		SKIPN	D.OBC(I16)	;[1150]SEE IF BUFFER FULL
		PUSHJ	PP,WRTBUF	;[1150]YES, WRITE IT
 REP 3/129	;13C8
	WRTABP:	SKIPGE	AC1,D.OBB(I16)	;
		POPJ	PP,		;
		TLZ	AC1,770000	;
		ADD	AC1,[POINT ,1]	;
		MOVEM	AC1,D.OBB(I16)	;
		POPJ	PP,		;
 WIT
	WRTABP:	SKIPGE	AC1,D.OBB(I16)	;Only pre-decremented BP are negative,
		POPJ	PP,		;so return BP in AC1 as is
		TLZ	AC1,770000	;Zero position field in BP
		ADD	AC1,[POINT ,1]	;Adjust BP to next word, but pre-decremented
		MOVEM	AC1,D.OBB(I16)	;Store it back in buffer control block
		POPJ	PP,		;Return
 INS 20/147	;13C9
		HLLZS	UOUT.		;[1151] CLEAR RIGHT HALF DUMP MODE IOWD
 SUM 1896