Program Switching Antenna

Program ini digunakan untuk switching antenna RDF.

‘—————————————————————
$regfile = “m8535.dat”
$crystal = 4000000
$baud = 9600
Config Porta = Output
Config Portc = Output
Dim A As Word
Portb = 0
Portc = 0
Print “ok..”

Do

‘ interrupts
Portc = 255
Waitus 2
Portc = 0
‘ 1 = 00000001
‘ 2 = 00000010
‘ 4 = 00000100
‘ 8 = 00001000
For A = 1 To 500
Porta = 1
Waitus 500
Porta = 2
Waitus 500
Porta = 4
Waitus 500
Porta = 8
Waitus 500
Next A
Loop
End
‘—————————————————————