dcr.5	$02dcc
relpgm	
	dcr.5	relpgmend-relpgm
	
	jsr	$0679b
	
	move.a	pc,c
.1	
	move.a	#.1,a
	sub.a	a,c
	move.a	c,b
	move.a	#reloc_off,c
	add.a	b,c
	move.a	c,d0
	move.a	b,c
	move.a	c,(d0)
	
	move.a	#reloc_tab,c
	add.a	b,c
	
	move.a	c,d0
.3	
	move.a	(d0),c
	add.a	#5,d0
	beq.a	c,0,.2
	add.a	b,c
	move.a	c,d1
	move.a	(d1),c
	add.a	b,c
	move.a	c,(d1)
	bra	.3
.2	
	jsr	$067d2
	move.a	(d0),a
	add.a	#5,d0
	jmp	(a)
relpgmend