Program Parking Sensor

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