ORG 00H
MOV P0,#00H
MOV P2,#00H
MOV P3,#00H
MAIN:
SETB P2.6 ;;LAMPU Hijau Gang ngesrep
SETB P2.2 ;;LAMPU Hijau Jl. Prof Sudarto
SETB P3.2 ;;LAMPU Merah Banyumanik Lurus
SETB P3.5 ;;LAMPU Merah Banyumanik Belok
SETB P2.7 ;;LAMPU Merah Jatingaleh
SETB P2.3
ACALL DELAY1
CLR P2.3
ACALL DELAY1
SETB P2.3
ACALL DELAY1
CLR P2.3
ACALL DELAY1
SETB P2.3
ACALL DELAY1
CLR P2.3
ACALL DELAY1
SETB P2.3
ACALL DELAY1
CLR P2.3
ACALL DELAY1
SETB P2.3
ACALL DELAY1
CLR P2.3
ACALL DELAY1
SETB P2.3
ACALL DELAY1
CLR P2.3
ACALL DELAY1
SETB P2.3
ACALL DELAY1
CLR P2.3
ACALL DELAY1
SETB P2.3
ACALL DELAY1
CLR P2.3
ACALL DELAY1
SETB P2.3
ACALL DELAY1
CLR P2.3
ACALL DELAY1
SETB P2.3
ACALL DELAY1
CLR P2.3
ACALL DELAY1
SETB P2.3
CLR P3.2 ;;LAMPU MERAH Banyumanik Lurus
CLR P3.5 ;;LAMPU MERAH Banyumanik Belok
CLR P2.6 ;;LAMPU HIJAU Gang ngesrep
CLR P2.2 ;;LAMPU HIJAU Jl. Prof Sudarto
SETB P3.3 ;;LAMPU KUNING Banyumanik Lurus
SETB P3.6 ;;LAMPU KUNING Banyumanik Belok
SETB P2.5 ;;LAMPU KUNING Gang ngesrep
SETB P2.1 ;;LAMPU KUNING Jl. Prof Sudarto
ACALL DELAY1
CLR P3.3 ;;LAMPU KUNING Banyumanik Lurus
CLR P3.6 ;;LAMPU KUNING Banyumanik Belok
SETB P3.4 ;;LAMPU HIJAU Banyumanik Lurus
SETB P3.7 ;;LAMPU HIJAU Banyumanik Belok
CLR P2.5 ;;LAMPU KUNING Gang ngesrep
CLR P2.1 ;;LAMPU KUNING Jl. Prof Sudarto
SETB P2.4 ;;LAMPU MERAH Gang ngesrep
SETB P2.0 ;;LAMPU MERAH Jl. Prof Sudarto
CLR P2.3
ACALL DELAY1
SETB P2.3
ACALL DELAY1
CLR P2.3
ACALL DELAY1
SETB P2.3
ACALL DELAY1
CLR P2.3
ACALL DELAY1
SETB P2.3
ACALL DELAY1
CLR P2.3
ACALL DELAY1
SETB P2.3
ACALL DELAY1
CLR P2.3
ACALL DELAY1
SETB P2.3
ACALL DELAY1
CLR P2.3
ACALL DELAY1
SETB P2.3
ACALL DELAY1
CLR P2.3
ACALL DELAY1
SETB P2.3
ACALL DELAY1
CLR P2.3
ACALL DELAY1
SETB P2.3
ACALL DELAY1
CLR P2.3
ACALL DELAY1
SETB P2.3
ACALL DELAY1
CLR P2.3
ACALL DELAY1
SETB P2.3
ACALL DELAY1
CLR P2.3
CLR P2.7 ;;LAMPU MERAH Jatingaleh
CLR P3.7 ;;LAMPU HIJAU Banyumanik Belok
SETB P3.0 ;;LAMPU KUNING Jatingaleh
SETB P3.6 ;;LAMPU KUNING Banyumanik Belok
ACALL DELAY1
CLR P3.0 ;;LAMPU KUNING Jatingaleh
CLR P3.6 ;;LAMPU KUNING Banyumanik Belok
SETB P3.1 ;;LAMPU HIJAU Jatingaleh
SETB P3.5 ;;LAMPU Merah Banyumanik Belok
SETB P2.3
ACALL DELAY1
CLR P2.3
ACALL DELAY1
SETB P2.3
ACALL DELAY1
CLR P2.3
ACALL DELAY1
SETB P2.3
ACALL DELAY1
CLR P2.3
ACALL DELAY1
SETB P2.3
ACALL DELAY1
CLR P2.3
ACALL DELAY1
SETB P2.3
ACALL DELAY1
CLR P2.3
ACALL DELAY1
SETB P2.3
ACALL DELAY1
CLR P2.3
ACALL DELAY1
SETB P2.3
ACALL DELAY1
CLR P2.3
ACALL DELAY1
SETB P2.3
ACALL DELAY1
CLR P2.3
ACALL DELAY1
SETB P2.3
ACALL DELAY1
CLR P2.3
ACALL DELAY1
SETB P2.3
ACALL DELAY1
CLR P2.3
ACALL DELAY1
SETB P2.3
ACALL DELAY1
CLR P2.3
ACALL DELAY1
SETB P2.3
ACALL DELAY1
CLR P2.3
ACALL DELAY1
SETB P2.3
ACALL DELAY1
CLR P2.3
ACALL DELAY1
SETB P2.3
ACALL DELAY1
CLR P2.3
ACALL DELAY1
SETB P2.3
ACALL DELAY1
CLR P2.3
ACALL DELAY1
SETB P2.3
ACALL DELAY1
CLR P2.3
ACALL DELAY1
SETB P2.3
ACALL DELAY1
CLR P2.3
ACALL DELAY1
SETB P2.3
ACALL DELAY1
CLR P2.3
ACALL DELAY1
SETB P2.3
ACALL DELAY1
CLR P2.3
ACALL DELAY1
SETB P2.3
ACALL DELAY1
CLR P2.4 ;;LAMPU MERAH Gang ngesrep
CLR P2.0 ;;LAMPU MERAH Jl. Prof Sudarto
CLR P3.1 ;;LAMPU HIJAU Jatingaleh
CLR P3.4 ;;LAMPU HIJAU Banyumanik Lurus
SETB P2.5 ;;LAMPU KUNING Gang ngesrep
SETB P2.1 ;;LAMPU KUNING Jl. Prof Sudarto
SETB P3.0 ;;LAMPU KUNING Jatingaleh
SETB P3.3 ;;LAMPU KUNING Banyumanik Lurus
CLR P2.3
ACALL DELAY1
CLR P2.5 ;;LAMPU KUNING Gang ngesrep
CLR P2.1 ;;LAMPU KUNING Jl. Prof Sudarto
CLR P3.0 ;;LAMPU KUNING Jatingaleh
CLR P3.3 ;;LAMPU KUNING Banyumanik Lurus
SETB P2.3
LJMP MAIN
DELAY1: MOV R0,#50
H4: MOV R1,#20H
H5: MOV R2,#0FFH
H6: DJNZ R2,H6
DJNZ R1,H5
DJNZ R0,H4
RET
END
Komentar
Posting Komentar