#picaxe 28x2
#no_data
#no_table
pullup %00000111
hintsetup %0000111 'set INT1 and INT2 to trigger Interrupt at falling edge
setintflags %00001000,%00001000 'enable interrupt flags
setint %00000000,%01110000,b
init:servo pan,cen
servo tilt,tcen
servo r, r_off
servo l, l_off
pause 30
pause 100
main:
' floor led
do
servopos tilt,Tcen 'panning servo for effect
for counter = 1 to 3
for b1 =lft to rgt step 2
servopos pan,b1
pause 20
next b1
for b1 =rgt to lft step -2
servopos pan,b1
pause 20
next b1
next counter
servopos pan,cen
pause 20
servopos tilt,T_dwn
pause 20
sleep 10
loop
Interrupt:
hintflag = 0 'rest hintflags to 0
If hint1flag = 1 Then 'check to see if INT1 has bee triggered
run 2
hint1flag = 0 'reset hint1flag to 0
End If
If hint2flag = 1 Then 'check to see if INT2 has bee triggered
run 3
hint2flag = 0
End If
SetIntFlags %00001000, %00001000 'renable hint interrupts
return