.TITLE	MT08..	TABLE MANIPULATION ROUTINES
	.IDENT	/MT08../
;
;	AUTHOR	:-	J.S.CLIFTON
;	DATE	:-	21ST OCTOBER 81
;
;
T$PROTECT::
;		ENTRY CONDITIONS
;	R1 = MARKER
;
;		EXIT CONDITIONS
;	R0 ->	ACCESS ADDRESS IF STATUS = SUCCESS
;
	CALL	T$SEEK			;LOCATE THE NODE.
	IFERROR	10$			;EXIT IF ERROR.
	TST	-2(R0)			;IS THIS THE LAST NODE.
	BEQ	10$			;EXIT ERROR IF YES.
	BIS	#100000,-2(R0)		;MARK NODE PROTECTED.
	EXITSUCCESS
;
10$:	EXITERROR
;
;
T$UNPROTECT::				;MARK ENTRY NON DELETABLE.
;
;		ENTRY CONDITIONS
;	R1 = MARKER
;
;		EXIT CONDITIONS
;	R0 ->	ACCESS ADDDRESS IF STATUS = SUCCESS
;
;
	CALL	T$SEEK			;LOCATE THE NODE.
	IFERROR	10$			;EXIT IF ERROR
	TST	-2(R0)			;IS THIS THE LAST NODE.
	BEQ	10$			;EXIT ERROR IF YES.
	BIC	#100000,-2(R0)		;MARK NODE UNPROTECTED.
	EXITSUCCESS
;
10$:	EXITERROR
;
;
	.END