Op

org 0h
mulai:jnb p1.0,nyala1
      jnb p1.1,nyala2
      jnb p1.2,mati
      ret
nyala1:call mulai
       mov a,#0feh
puter: call mulai
       mov p0,a
       call delay
       rl a
       call mulai
       cjne a,#0feh,puter
       sjmp nyala1
nyala2:call mulai
       mov a,#7fh
puter1:call mulai
       mov p0,a
       call delay
       rr a
       call mulai
       cjne a,#7fh,nyala2
       sjmp nyala2
mati:call mulai
     mov p0,#0ffh
     call mulai
     sjmp mati
delay:mov r0,#0
delay1:mov r1,#0
delay2:mov r2,#01h
       djnz r2,$
       djnz r1,delay2
       djnz r2,delay1
       ret
       end;