Google
 

Trailing-Edge - PDP-10 Archives - bb-bt99g-bb - rmsio.c05
There are 2 other files named rmsio.c05 in the archive. Click here to see a list.
 REP 8/1	;05C1
	;COPYRIGHT (C) 1979, 1981 BY DIGITAL EQUIPMENT CORPORATION
 WIT
	;COPYRIGHT (C) 1979, 1981, 1982 BY DIGITAL EQUIPMENT CORPORATION


	;EDITS
	;NAME	DATE		COMMENT
	;SMI	14-OCT-82	[1046] Fix CHECKPOINT with RMS files for DELETE, and
	;				REWRITE.
	;JSM	18-OCT-82	[1045] Use $MESSAGE in RMSGET as first RMS-20 call to
	;				initialize RMS-20 global data symbols.
	;RLF	08-OCT-82	[1044] Space fill record area
	;RJD	21-APR-82	[1020] Test for CHECKPOINT with RMS files
	;RJD	29-APR-82	[1022] Deallocate memory if OPEN fails


 INS 19/4	;05C2
	FT.CRC: POINT 8,F.CRC(FT),17	;[1020] CHECKPOINT RECORD COUNT
 INS 64/7	;05C3
		$MESSAGE		;[1045] TURN ON RMS-20 INTERNAL MESSAGE
					;[1045] REPORTING AND ALSO INITIALIZE THE
					;[1045] AREA FOR RMS-20 GLOBAL DATA SYMBOLS.
 INS 35/10	;05C4
		LDB	T0,FT.CRC	;[1020] IS THERE CHECKPOINTING?
		JUMPE	T0,.+2		;[1020] NO
		MOVEM	T0,D.CRC(FT)	;[1020] YES, INITIALIZE RECORD COUNT
 INS 154/14	;05C5
	;SPACE FILL THE RECORD AREA
		MOVE	T0,F.WFLG(FT)	;[1044] GET FLAGS
		LDB	T3,[POINT 2,T0,2]
		MOVE	T2,[5
			    4
			    6](T3)	;[1044] BYTE/WORD IN T2
		LDB	T1,FT.MRS	;[1044] MAX RECORD SIZE
		IDIV	T1,T2		;[1044] # OF WORDS
		SKIPE	T2		;[1044] ROUND UP IF
		ADDI	T1,1		;[1044] ANY REMAINDER
		LDB	T3,[POINT 2,T0,14];[1044] INTERNAL DATA MODE
		MOVE	T0,SPCTLE(T3)	;[1044] GET SPACE
		MOVE	T2,F.RREC(FT)	;[1044] GET RECORD PTR
		MOVEM	T0,(T2)		;[1044] FILL FIRST LOC WITH SPACE
		HRLI	T0,(T2)		;[1044] THE FROM ADR
		HRRI	T0,1(T2)	;[1044] THE TO ADR
		ADDI	T1,-1(T2)	;[1044] THE UNTIL ADR
		BLT	T0,(T1)		;[1044] FILL WITH SPACES

 REP 339/14	;05C6
		 POPJ	PP,		;No, regular error
 WIT
	;[D1022]	 POPJ	PP,		;No, regular error
		 PJRST	RFNFER		;[1022] Jump to routine to release core
 INS 380/14	;05C7

	SPCTLE:	ASCII /     /		;[1044] ASCII SPACES
		BYTE (9) 100,100,100,100	;[1044] EBCDIC
		SIXBIT /      /		;[1044] SIXBIT

 INS 22/23	;05C8
		PUSH	PP,T2		;[1020] SAVE THE RAB FOR FLUSH
 REP 26/23	;05C9
		MOVE	T1,FS.FS	;GET FILE STATUS
		CAIL	T1,^D10		;SEE IF SOME KIND OF AT-END/INVALID KEY
		CAILE	T1,^D29
		 PJRST	SETFS		;SET FILE-STATUS, AND GIVE NORMAL RETURN
 WIT
		POP	PP,T2		;[1020] RESTORE THE RAB
		MOVE	T1,FS.FS	;GET FILE STATUS
	;[D1020]	CAIL	T1,^D10		;SEE IF SOME KIND OF AT-END/INVALID KEY
	;[D1020]	CAILE	T1,^D29
		CAIG	T1,^D9		;[1020] SEE IF SOME KIND OF AT-END/INVALID KEY
		JRST	CHKPT		;[1020]	
		CAIG	T1,^D29		;[1020]
		JRST	CPOPJ1		;[1020]
	CHKPT:	LDB	T0,FT.CRC	;[1020] CHECKPOINTING?
		JUMPE	T0,CHKPT1	;[1020] NO
		SOSE	D.CRC(FT)	;[1020] DECREMENT COUNT - TIME TO OUTPUT?
		JRST	CHKPT1		;[1020] NOT YET
		LDB	T0,FT.CRC	;[1020] GET COUNT
		MOVEM	T0,D.CRC(FT)	;[1020] RESET COUNT
		$FLUSH	<(T2)>,FSHERR	;[1020] WRITE REC TO DISK
	CHKPT1:				;[1020]
		 PJRST	SETFS		;SET FILE-STATUS, AND GIVE NORMAL RETURN
	FSHERR:	TYPE	[ASCIZ/
	?LIBOL:	$FLUSH  failed
	/]				;[1020] RETURN ERROR MESSAGE
		JRST	RSFAIR		;[1020] RMS SYSTEM ERROR
 INS 12/24	;05C10
		MOVE	T0,D.CRC(FT)	;[1020]] IF TIME TO CHECKPOINT
		CAIE	T0,1		;[1020]] DON'T TURN ON WRITE BEHIND
 REP 41/29	;05C11
		$DELETE	<(T2)>,DELSER	;SEQ. DELETE ERROR
		PUSHJ	PP,SETFS	;SET FILE-STATUS TO 0
 WIT
		PUSH	PP,T2		;[1046] SAVE RAB
		$DELETE	<(T2)>,DELSER	;SEQ. DELETE ERROR
		POP	PP,T2		;[1046] RESTORE RAB
		LDB	T0,FT.CRC	;[1046] CHECKPOINTINT ?
		JUMPE	DLG1		;[1046] NO
		SOSE	D.CRC(FT)	;[1046] DECREMENT COUNT, TIME TO OUTPUT ?
		JRST	DLG1		;[1046] NOT YET
		LDB	T0,FT.CRC	;[1046] GET COUNT
		MOVEM	T0,D.CRC(FT)	;[1046] RESET IT
		$FLUSH	<(T2)>,FSHERR	;[1046] WRITE RECORD (S) TO DSK
	DLG1:	PUSHJ	PP,SETFS	;[1046] SET FILE-STATUS TO 0
 INS 27/30	;05C12
		PUSH	PP,T2		;[1046] SAVE RAB
 INS 30/30	;05C13
		POP	PP,T2		;[1046] RESTORE RAB
 REP 36/30	;05C14
	UPDOK:	PUSHJ	PP,SETFS	;SET FILE-STATUS WORD
 WIT
	UPDOK:	LDB	T0,FT.CRC	;[1046] CHECKPOINTING ?
		JUMPE	UPDO1		;[1046] NO
		SOSE	D.CRC(FT)	;[1046] DECREMENT COUNT - TIME TO OUTPUT ?
		JRST	UPDO1		;[1046] NOT YET
		LDB	T0,FT.CRC	;[1046] GET COUNT
		MOVEM	T0,D.CRC(FT)	;[1046] RESET COUNT
		$FLUSH	<(T2)>,FSHERR	;[1046] UPDATE DISK
	UPDO1:	PUSHJ	PP,SETFS	;SET FILE-STATUS WORD
 SUM 260687