org 8100h acall 8140h mov c,x5 anl c,tb mov c,x6 anl c,x7 orl c,tb mov p4,c ret end