'
'
'
'
'
T var byte
df var bit
ds var INL.bit2
C var word
G var byte
J var byte
OUTL = %01111111
DIRL = %11111111
OUTL =%00011000
high 6
OUTL = %00010000
high 6
DIRL = %11110000
high 5
Off:
low 7
Begin:
C=0 : G=0 : J=0
Listen:
high 4
low 6
df = ds
high 6
if df = 1 then Lock
goto Listen
Lock:
low 4
low 6
T = INL & %00001111
high 6
C=C+1
if C>2000 then Begin
lookup T,["0000000000000102"],J
J=J-48
if J=0 then Off
if C=1 and J=1 then Key
if C=2 and J=2 then Key
goto Listen
Key:
G=G+1
if C=2 and J=2 and G=2 then Relay
goto Listen
Relay:
pause 800
high 7
pause 200
goto Begin
'
'
'
'
'
'
'   for more info :
'   go to - 
'   
'   http://seasurf.com/~radioman/
'
'   decode.htm
'
'
'
'
'
'   1/12/97
'
'
'
'
'