Optimization of "NEXT"

[redirectme]

; JP next at end of code
next:
	IF tokenised
		; Load byte, advance PC
		LD A, (IY+0)
		INC IY
                ADD A,A         ; hight bit of A to CF
		JR C, .not_token
		; If token, load token address and jump
		LD E, A          ;l
		LD D, tokens >> 8;h
		LD A, (DE)        ; -
		LD C, A           ;ld
		INC DE
		LD A, (DE)        ; -
		JR .fin
.not_token:     
		RRA    ; undo ADD A,A
		; If not token, jump to big endian address
		LD C, (IY+0)
		INC IY
.fin:		LD B, A
		PUSH BC
		RET
	ELSE
...