.TITLE	MARK
	.GLOBL	.MARK
MARK::				; ENTRY POINT
	TST	(R5)+		; BUMP POINTER
	MOV	@(R5)+,R0	; FDB ADDRESS IN R0
	CALL	.MARK
	MOV	R1,@(R5)+	; STORE LBLOCK
	MOV	R2,@(R5)+	; STORE HBLOCK
	MOV	R3,@(R5)	; STORE BYTE OFFSET
	RETURN
        .END