dcr.5	$02dcc
rerelpgm	
	dcr.5	rerelpgmend-rerelpgm
	
	jsr	$0679b
	
	move.a	pc,c
.1	
	move.a	#.1,a
	sub.a	a,c
	move.a	c,b
	move.a	#reloc_tab,c
	add.a	b,c
	move.a	c,d0
	
	move.a	#reloc_off,c
	add.a	b,c
	move.a	c,d1
	move.a	(d1),c
	move.a	c,d
.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
	sub.a	d,c
	move.a	c,(d1)
	bra	.3
.2	
	jsr	$067d2
	move.a	(d0),a
	add.a	#5,d0
	jmp	(a)
	
reloc_off	dcr.5	0
reloc_tab	reltab
rerelpgmend