Tulisan Bahasa Inggris Softskill 9 Contoh Program AUTOMATIC ROOF menggunakan READ51

Program AUTOMATIC ROOF menggunakan READ51

#include

org 100h

mov p0,#0ffh

mov p1,#0ffh

mov p2,#0ffh

mov p3,#0ffh

pil :   mov a,p0

buka :  cjne a,#0ffh,tutup1

        jnb p2.6,henti

        mov p1,#0dfh

        sjmp pil

tutup1 : cjne a,#0fdh,tutup2

        jnb p2.7,henti

        mov p1,#0efh

        sjmp pil

tutup2 : cjne a,#0fch,tutup3

        jnb p2.7,henti

        mov p1,#0feh

        sjmp pil

tutup3 :cjne a,#0efh,henti

        jnb p2.7,henti

        mov p1,#0efh

        sjmp pil

henti : mov p1,#000h

        sjmp pil

end

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