|
PROGARAM GENIUS, 8051
|
| (14 de July de 2008) Por marcelo dutra |
- Org 2000h
- Jmp inicio
- org 2033h
- inicio:
- Nivel_1:
- Setb p1.0;--------ACENDE LED 1
- Clr p1.0; -------APAGA LED 1
- delay:;-----------DA UMA PAUSA
- Jb p1.4,Nivel_2; VERIFICA SE A CH1, LIGADA P 0.0 ESTA EM 1
- SJMP Nivel_1; SE P0.0 =0; RETORNA AO NIVEL 1
- Nivel_2:
- Setb p1.0; -------ACENDE LED 1
- Clr p1.0; ------APAGA LED 1
- Setb p1.1; ------ACENDE LED 2
- Clr p1.1 ; APAGA LED 2
- Delay1:;----------DA UMA PAUSA
- Jb p1.4,Nivel_3 ; VERIFICA SE A CH 1, LIGADA P0.0 ESTA EM 1
- Jb p1.5,Nivel_3; VERIFICA SE A CH 2, LIGADA P0.1 ESTA EM 1
- SJMP NIVEL_1; ----SE P0. / p0.1 = 0; RETORNA AO NIVEL 1
- Nivel_3:
- Setb p1.0 ; -----ACENDE LED 1
- Clr p1.0 ; APAGA LED 1
- Setb p1.1; ------ACENDE LED 2
- Clr p1.1; APAGA LED 2
- Setb p1.2; -----ACENDE LED 3
- Clr p1.2; APAGA LED 3
- Delay2:;----------DA UMA PAUSA
- Jb p1.4,Nivel_4; VERIFICA SE A CH 1, LIGADA AO P0.0 ESTA EM 1
- Jb p1.5,Nivel_4; VERIFICA SE A CH 2, LIGADA AO P0.1 ESTA EM 1
- Jb p1.6,Nivel_4 ; VERIFICA SE A CH 3, LIGADA AO P0.2 ESTA EM 1
- SJMP NIVEL_1; SE P0.1 / p0.2/p0.3 =0; RETORNA AO NIVEL 1
- Nivel_4:
- Setb p1.0 ; -----ACENDE LED 1
- Clr p1.0 ; APAGA LED 1
- Setb p1.1; ------ACENDE LED 2
- Clr p1.1; APAGA LED 2
- Setb p1.2; -----ACENDE LED 3
- Clr p1.2; APAGA LED 3
- Setb p1.3; -----ACENDE LED 4
- Clr p1.3; APAGA LED 4
- Delay3:;----------DA UMA PAUSA
- Jb p1.4,Nivel_1; VERIFICA SE A CH 1, LIGADA AO P0.0 ESTA EM 1
- Jb p1.5,Nivel_1; VERIFICA SE A CH 2, LIGADA AO P0.1 ESTA EM 1
- Jb p1.6,Nivel_1; VERIFICA SE A CH 3, LIGADA AO P0.2 ESTA EM 1
- Jb p1.7,Nivel_1 ; VERIFICA SE A CH 4, LIGADA AO P0.2 ESTA EM 1
- Nivel_5:
- Setb p1.0 ; ----ACENDE LED 1
- Clr p1.0 ; APAGA LED 1
- Setb p1.1; -----ACENDE LED 2
- Clr p1.1; APAGA LED 2
- Setb p1.2; ----ACENDE LED 3
- Clr p1.2; APAGA LED 3
- Setb p1.3; --- ACENDE LED 3
- Clr p1.3; APAGA LED 3
- Setb p1.0 ; --- ACENDE LED 1
- Clr p1.0 ; APAGA LED 1
- Setb p1.1; -----ACENDE LED 2
- Clr p1.1; APAGA LED 2
- Delay4:;---------DA UMA PAUSA
- Jb p1.4,Nivel_1; VERIFICA SE A CH 1, LIGADA AO P0.0 ESTA EM 1
- Jb p1.5,Nivel_1; VERIFICA SE A CH 2, LIGADA AO P0.1 ESTA EM 1
- Jb p1.6,Nivel_1; VERIFICA SE A CH 3, LIGADA AO P0.2 ESTA EM 1
- Jb p1.7,Nivel_1 ;VERIFICA SE A CH 4, LIGADA AO P0.2 ESTA EM 1
-
- calldalay:
- mov r7,#05h
- loop2:
- mov r1,#0f4h
- loop1:
- mov r2,#0ffh
- loop:
- djnz r2,loop
- djnz r1,loop1
- djnz r7,loop2
- ret
- end
-
|
| [Voltar] |
