org 23h
        jmp    sio_int
...

sio_int:

...

        jb     sub_runs, do_reti
        setb   sub_runs 
        call   do_reti

....

        clr    ea
        clr    sub_runs
        setb   ea
do_reti:
        reti