org 8110h lcall 8140h mov c,x4 anl c,tb orl c,/x5 mov p4.1,c ret end