|
|
|
Traffic Light Control Using AT89C51
(3)
By: Arif Johar Taufiq
;==============================================================;
; PROGRAM SIMULASI LAMPU LALULINTAS ;
; by: ARIF JOHAR TAUFIQ ;
; http://guru.technosains.com
;==============================================================;
; POSOSI LAMPU: ;
; ;
;
BARAT ;
;
H (P1.2) ;
;
K (P1.1) ;
;
M (P1.0) ;
; ;
; SEL H K M
M K H UTARA ;
; (P3.6) (P3.5) (P3.4) (P3.0) (P3.1) (P3.2) ;
; ;
;
M (P1.4) ;
;
K (P1.5) ;
;
H (P1.6) ;
;
TIMUR ;
;==============================================================;
TD_RED EQU 03H ;waktu tunda merah 3 dtk //dapat diubah
TD_GREEN EQU 05H ;waktu tunda hijau 5 dtk //dapat diubah
TD_YELLOW EQU 02H ;waktu tunda kuning 2 dtk //dapat diubah
ORG 00H
LJMP AWAL
;==================
;LAMPU BARAT
;==================
ORG 100H
AWAL: MOV R2,#00H
BARAT_1: ACALL ALL_RED ; semua MERAH
MOV A,#00H
AA: ACALL TUNDA
INC A
CJNE A,#TD_RED,AA
BARAT_2: MOV P1,#14H ; hijau barat
MOV P3,#11H
MOV A,#00H
BB: ACALL TUNDA
INC A
CJNE A,#TD_GREEN,BB
BARAT_3: MOV P1,#12H ; kuning barat
MOV P3,#11H
MOV A,#00H
CC: ACALL TUNDA
INC A
CJNE A,#TD_YELLOW,CC
;==================
; LAMPU UTARA
;==================
UTARA_1: ACALL ALL_RED ;semua merah
MOV A,#00H
DD: ACALL TUNDA
INC A
CJNE A,#TD_RED,DD
UTARA_2: MOV P1,#11H ;hijau utara
MOV P3,#14H
MOV A,#00H
EE: ACALL TUNDA
INC A
CJNE A,#TD_GREEN,EE
UTATA_3: MOV P1,#11H ;kuning utara
MOV P3,#12H
MOV A,#00H
FF: ACALL TUNDA
INC A
CJNE A,#TD_YELLOW,FF
;=================
; LAMPU TIMUR
;=================
TIMUR_1: ACALL ALL_RED ;semua merah
MOV A,#00H
GG: ACALL TUNDA
INC A
CJNE A,#TD_RED,GG
TIMUR_2: MOV P1,#41H ;hijau timur
MOV P3,#11H
MOV A,#00H
HH: ACALL TUNDA
INC A
CJNE A,#TD_GREEN,HH
TIMUR_3: MOV P1,#21H ;kuning timur
MOV P3,#11H
MOV A,#00H
II: ACALL TUNDA
INC A
CJNE A,#TD_YELLOW,II
;==================
; LAMPU SELATAN
;==================
SELATAN_1: ACALL ALL_RED ;semua merah
MOV A,#00H
JJ: ACALL TUNDA
INC A
CJNE A,#TD_RED,JJ
SELATAN_2: MOV P1,#11H ;hijau selatan
MOV P3,#41H
MOV A,#00H
KK: ACALL TUNDA
INC A
CJNE A,#TD_GREEN,KK
SELATAN_3: MOV P1,#11H ;kuning selatan
MOV P3,#21H
MOV A,#00
LL: ACALL TUNDA
INC A
CJNE A,#TD_YELLOW,LL
INC R2
CJNE R2,#03H,MAJU
SJMP SUS
MAJU: LJMP BARAT_1
SUS: MOV A,#00H
RENE: ACALL ALL_OFF
ACALL TUNDA
ACALL ALL_YL
ACALL TUNDA
INC A
CJNE A,#05,RENE
LJMP AWAL
;======================
; PROSEDUR SEMUA MERAH
;======================
ALL_RED: MOV P1,#11H
MOV P3,#11H
RET
;=======================
; PROSEDUR SEMUA KUNING
;=======================
ALL_YL: MOV P1,#22H
MOV P3,#22H
RET
;=======================
; PROSEDUR SEMUA MATI
;=======================
ALL_OFF: MOV P1,#00H
MOV P3,#00H
RET
;======================
; PROSEDUR TUNDA ; 1 detik xtal 12mhz
;======================
TUNDA: MOV R1,#00H
WIH: MOV R0,#0h
LAGI: MOV TMOD,#01h
MOV TH0,#0D8h
MOV TL0,#0EFh
SETB TR0
ULANG: JBC TF0,HITUNG
SJMP ULANG
HITUNG: INC R0
CJNE R0,#050h,LAGI
INC R1
CJNE R1,#02H,WIH
RET
Download Traffic Light Circuit
Download
Program-2
|
|