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