Tulisan Bahasa Inggris Softskill 10 Program FLOAD DETECTOR menggunakan READ51

Program FLOAD DETECTOR menggunakan READ51

#include

org 100h

mov p0,#0ffh

mov p1,#0ffh

mov p2,#0ffh

mov p3,#0ffh

pil: jnb p2.6,hijau

     mov p3,#0ffh

     sjmp pil

hijau: jnb p2.4,kuning

       mov p3,#0feh

       sjmp pil

kuning: jnb p2.2,merah

        mov p3,#0fdh

        sjmp pil

merah: jnb p2.0,buzzer

       mov p3,#0fbh

       sjmp pil

buzzer: mov p3,#08fh

        acall delay

        mov p3,#0aeh

        acall delay

        sjmp pil

delay: mov r0,#3fh

ulang: djnz r2,ulang

       djnz r1,ulang

       djnz r0,ulang

       ret

end

ket : ada yang beberapa diganti (harap buat sendiri, ini hanya referensi saja)