INFO - FAQ - CC2-Forum - CCPro-Forum |
'----------------------------------------------------------------------------------------------------' '***********************************************************************' '* WINDT SYSTEMS *' '* DCF SIGNAL MONITOR v1.0 for C-Control 1 Unit M2.01 *' '* H.J. WINDT *' '* 2004 *' '***********************************************************************' '----------------------------------------------------------------------------------------------------' 'This program monitors the DCF signal.' 'The DCF signal is shown as a bar graph on the LCD display.' 'Use this program to aim the DCF antenna.' 'When the DCF signal is good the bar graph will be full and a beep will sound.' '----------------------------------------------------------------------------------------------------' '*************** IN and OUTS ***************' define signal freq define lcd_light_off port[16] '*******************************************' '**************** VARIABLES ****************' define signal_strength word[1] define loop byte[3] define signal_number byte[4] '*******************************************' '**************** CONSTANTS ****************' '*******************************************' '****************** SETUP ******************' signal_strength = 0 print"#ON_LCD#"; print"#INIT#"; print"#CLR#"; print" DCF SIGNAL "; lcd_light_off = 0 '*******************************************' '***************** PROGRAM *****************' #start if signal = 1 then goto signal_received if signal_strength = 0 then goto pass1 signal_strength = signal_strength - 1 #pass1 signal_number = signal_strength / 100 print"#L201#"; for loop = 0 to signal_number if loop = 0 then goto pass2 put &hff #pass2 next print" "; if signal_number = 16 then beep 4,2,4 goto start #signal_received if signal_strength = 1600 then goto pass1 signal_strength = signal_strength + 1 goto pass1 '*******************************************' '****************** DATA *******************' '*******************************************' |
Antwort schreiben |