.title	mark
;
;	subroutine to mark position of next record in file
;
;	call sequence	call mark(rab, adr1, adr2)
;
;	where	rab is the integer descriptor from an openf call
;		adr1 is the address to receive the first address field
;		adr2 is the address to receive the second address field
;
rab=4
adr1=8
adr2=12
	.psect	st_pure_code	rel,con,lcl,exe,nowrt,rd,pic,shr,usr,novec,long
	.entry	mark	^m<r2>
	movl	@rab(ap),r2		; rab address in r2
	movl	rab_l_curbl(r2),@adr1(ap)	; return RFA
	movw	rab_l_curby(r2),@adr2(ap)	;
	ret
	.end