kanan kiri oce stop bozz

org 0h
saklar:jnb p1.0,kanan
       jnb p1.1,kiri
       jnb p1.2,mati
       ret
kanan:call saklar
      mov A,#0feh
puter:call saklar
      mov p0,A
      call delay
      RL A
      call saklar
      cjne A,#0feh,puter
      sjmp kanan
kiri:call saklar
     mov A,#7fh
puter1:call saklar
       mov p0,A
       call delay
       RR A
       call saklar
       cjne A,#7fh,puter1
       sjmp kiri
mati:call saklar
     mov p0,#0ffh
     call saklar
     sjmp mati
delay:mov r0,#0
delay1:mov r1,#0
delay2:mov r2,#01h
       djnz r2,$
       djnz r1,delay2
       djnz r0,delay1
       ret
       end;