paket 3

$regfile = "reg51.dat"
$crystal = 12000000

Declare Sub Tombol1
Declare Sub Tombol2
Declare Sub Tombol3

Sub Tombol1:
If P1.0 = 0 Then Goto Nyala1
If P1.1 = 0 Then Goto Nyala2
If P1.2 = 0 Then Goto Mati
End Sub

Sub Tombol2:
If P1.0 = 0 Then Goto Nyala1
If P1.1 = 0 Then Goto Nyala3
If P1.2 = 0 Then Goto Mati
End Sub

Sub Tombol3:
If P1.0 = 0 Then Goto Nyala4
If P1.1 = 0 Then Goto Nyala2
If P1.2 = 0 Then Goto Mati
End Sub

Main:
Call Tombol1
Goto Main

Nyala1:
P0 = &B00000001
Call Tombol2
Goto Nyala1:

Nyala2:
P0 = &B00000010
Call Tombol3
Goto Nyala2

Nyala3:
P0 = &B00000011
Call Tombol2
Goto Nyala3

Nyala4:
P0 = &B00000011
Call Tombol3
Goto Nyala4

Mati:
P0 = &B00000000
Call Tombol1
Goto Mati

End