Casa Ecologica

- Acende led: setb (pino x)

- Chama tempo: Lcall (tempo)

- Desliga led: cpl (pino x)

Obs: o comando CPL não desliga o pino, ele apenas altera o estado atual do pino, ou seja, antes ele estava em alta (setb) usando CPL ele altera para estado oposto (nível baixo).

Programa Completo

org 00h

mov p2,#00h

ljmp inicio

inicio: setb p2.0 ; liga o primeiro Led

lcall tempo

cpl p2.0

setb p2.1

lcall tempo

cpl p2.1

setb p2.2

lcall tempo

cpl p2.2

setb p2.3

lcall tempo

cpl p2.3

setb p2.4

lcall tempo

cpl p2.4

setb p2.5

lcall tempo ; ultimo da esquerda pra direita

cpl p2.5

setb p2.4

lcall tempo

cpl p2.4

setb p2.3

lcall tempo

cpl p2.3

setb p2.2

lcall tempo

cpl p2.2

setb p2.1

lcall tempo

cpl p2.1

ljmp inicio

tempo: mov r1,#20d

volta: mov tmod,#01h

mov th0,#3Ch

mov tl0,#0AFh

setb tr0

clr tf0

jnb tf0, $

clr tr0

clr tf0

djnz r1,volta

ret

END