Кривовастенько но думать дальше не охота
Код:
	device zxspectrum48
z	equ 1
nz	equ 2
m	equ 3
p	equ 4
	macro jpp cond,dest
	if cond=m or cond=p
	display "condition jp"
	jp cond,dest
	else
	if $+128-dest<#100 then
	display "jr ",$+128-dest
	jr cond,dest
	else
	display "range jp"
	jp cond,dest
	endif
	endif
	endm
	org #8000
	jpp z,#8010
	jpp z,#8100
	jpp m,#8100
	jp z,#8200
	ret