.xlist

	irp	q,<c,a,ae,b,be,z,e,s>

nj&q	&macro	dest
	local	jump
	jn&q	jump
	if2
	if	dest ge ($-126-2)
	if	dest le ($+127+3)
	%out	nj&q dest :: can be replaced with j&q dest
	endif
	endif
	endif
	jmp	dest
jump	label	near
	&endm

njn&q	&macro	dest
	local	jump
	j&q	jump
	if2
	if	dest ge ($-126-2)
	if	dest le ($+127+3)
	%out	njn&q dest :: can be replaced with jn&q dest
	endif
	endif
	endif
	jmp	dest
jump	label	near
	&endm

	endm

	.list