CallTab: ;acc=index jnz CallTabX1 lcall Procedure0 CallTabX1: djnz acc,CallTabX2 lcall Procedure1 CallTabX2: djnz acc,CallTabX3 lcall Procedure2 CallTabX3: djnz acc,CallTabX4 lcall Procedure3 CallTabX4: ... djnz acc,CallTabXLast lcall ProcedureLast CallTabXLast: ljmp Error can be shortened to CallTab: ;acc=index jz Procedure0 clr c subb a,#2 jb acc.7,Procedure1 jz Procedure2 subb a,#2 jb acc.7,Procedure3 jz ProcedureLast ljmp Error