;
; test indexed addressing
;
;
	def	safe		#$30	;safe working reg. address
	def	rp		r:253	;the z8 "RP" register
;
	org	$0850
;
	push	rp
	srp	safe
	clr	r1
	ld	r0,#6
	ld	r5,#27
loop:
	ld	r:34(r1),r5
	inc	r1
	djnz	r0,loop
	pop	rp
	ret