Senin, 05 Juni 2017

Listing Program Parking Sensor
Program
$mod51
org 100h

mov p1,#0ffh
mov p2,#000h
mov p3,#000h

mulai : jnb p1.0,motor1
            jnb p1.1,motor2
            sjmp mulai

motor1 :  jb p1.0,motor11
               jnb p1.2, motor1s
               mov p2,#01h
               sjmp motor1 
      
motor11 : jnb p1.3, motor11s
                 mov p2, #02h
                 sjmp motor11

motor2 : jb p1.1,motor21
              jnb p1.4,motor2s
              mov p2,#40h
              sjmp motor2  
                
motor21 : jnb p1.5, motor22s
                mov p2, #80h
                sjmp motor21                                     
motor1s : clr p2.0
                sjmp motor1
                   
motor11s : clr p2.1
                  sjmp mulai

motor2s : clr p2.6
                sjmp motor2
                       
motor22s : clr p2.7
                  sjmp mulai               
end




    
$mod51
org 100h



Inisialisasi awal program
Pengalamatan awal program

mov p1,#0ffh
mov p2,#000h
mov p3,#000h


Memberikan nilai 0ffh ke port1
Memberikan nilai 000h ke port2
Memberikan nilai 000h ke port3

mulai : jnb p1.0,motor1
            jnb p1.1,motor2
            sjmp mulai


Lompat ke label mulai

motor1 :  jb p1.0,motor11
               jnb p1.2, motor1s
               mov p2,#01h
               sjmp motor1 
Memberikan nilai 01h ke port 2
Lompat ke label motor 1      

motor11 : jnb p1.3, motor11s
                 mov p2, #02h
                 sjmp motor11


Memberikan nilai 02h ke port 2
Lompat ke label motor11

motor2 : jb p1.1,motor21
              jnb p1.4,motor2s
              mov p2,#40h
              sjmp motor2  


Memberikan nilai 40h ke port 2
Lompat ke label motor 2
                
motor21 : jnb p1.5, motor22s
                mov p2, #80h
                sjmp motor21                                     
motor1s : clr p2.0
                sjmp motor1


Memberikan nilai 80h ke port 2
Lompat ke label motor21
Reset nilai pada port 2.0
Lompat ke label motor1
                   
motor11s : clr p2.1
                  sjmp mulai
Reset nilai pada port 2.1
Lompat ke label mulai

motor2s : clr p2.6
                sjmp motor2
 Reset nilai pada port 2.6
Lompat ke label motor2

motor22s : clr p2.7
                  sjmp mulai               
end


Reset nilai pada port 2.7
Lompat ke label mulai
Mengakhiri program





























0 komentar:

Posting Komentar