Codingan untuk penghitung pengunjung menggunakan port serial

Codingan untuk penghitung pengunjung menggunakan port serial
mengunakan aplikasi MIDE

$mod51

org 0h

mov p0,#0FFh

mov p1,#0FFh

mov p2,#00h

mov p3,#0FFh                                   ;inisialisasi port

;

mov sp,#30h

mov scon, #50h

mov tmod, #20h

mov th1, #0fdh

mov pcon,#00h

setb tr1

setb es

setb ea                         ;inisialisasi komunikasi serial

mov r3,p2

mov a,#30h                 ;inisialisasi angka 0 untuk nilai awal

pil: jnb p1.0, masuk   ;penekanan untuk masuk pintu pada led

jnb p1.1, keluar         ;penekanan untuk keluar pintu pada led

sjmp pil

masuk : inc a                          ;mulai menambah masuk pintu

acall delay

mov sbuf,a                 ;pengiriman serial micon ke pc

cjne a,#3Ah,pil

buzer1 : mov r3,#0FFh

mov p2,r3

cjne a,#3Ah,buzer1   ;jika kapasitas orang melebihi 10 maka buzzer menyala

acall delay2

mov p2,#00h

sjmp pil

keluar :dec a                          ;mulai mengurangi keluar pintu

acall delay

mov sbuf,a                 ;pengiriman serial micon ke pc

cjne a,#3Ah,pil

buzer2 : mov r3,#0FFh

mov p2,r3

cjne a,#3Ah,buzer2   ;jika kapasitas orang melebihi 10 maka buzzer menyala

acall delay2

mov p2,#00h

sjmp pil

delay:      mov r0,#06h                       ;delay untuk pada saat masuk dan keluar pintu

lagi:       djnz r2,lagi

djnz r1,lagi

djnz r0,lagi

ret

delay2:     mov r0,#1Fh             ;delay untuk buzzer menyala

lagi2:      djnz r2,lagi2

djnz r1,lagi2

djnz r0,lagi2

ret

end