' {$STAMP BS2}


  'AMATEUR TELEVISION REPEATER CONTROLLER FOR VK4RKC
  'FOR Stamp BS2
  'VERSION 1.12
  'R.L.CARDEN VK4XRL
  'DATED 19/12/04

  INPUT 0                                    '(
  INPUT 1                                    '(Sets inputs for DTMF
  INPUT 2                                    '(control
  INPUT 3                                    '(
  INPUT 4                                    'VALIAD DTMF SIGNAL
  INPUT 7                                    'Sets digital sync detector input
  INPUT 5                                    'SPARE INPUT
  INPUT 6                                    'Sets analogue sync detector input
  HIGH  14                                   '(Set video switcher to
  HIGH  15                                   '(Input1 Testcard
  HIGH  10                                   'Camera Left
  HIGH  11                                   'Camera Right
  HIGH  12                                   'Zoom In
  HIGH  13                                   'Zoom Out
  HIGH  8                                    '(Sets Ident Gen
  HIGH  9                                    '(to TESTCARD

  WAITING:
  PAUSE 1000
  IF IN4=1             THEN CHECK            'Check for valiad keystroke
  IF IN6=0             THEN SWITCHC          'Analogue RX Switch Detect
  IF IN7=0             THEN SWITCHD          'Digital RX Switch Detect
  GOTO WAITING

  CHECK:
  IF INA=10            THEN SWITCHA          'Switch to input 1
  IF INA=3             THEN SWITCHB          'Switch to input 4
  IF INA=2             THEN SWITCHD          'Switch to input 3(used for testing)
  IF INA=1             THEN SWITCHC          'Switch to input 2(used for testing)
  GOTO WAITING


  SWITCHA:                                   'Button 0 pressed
  PAUSE 500
  HIGH  8                                    'Testcard
  HIGH  9
  HIGH 14                                    'INPUT1 - Testcard
  HIGH 15
  GOTO WAITING

  SWITCHB:                                   'Button 1 pressed
  LOW  14                                    'INPUT4 - Camera
  LOW  15
  PAUSE 500                                  'Waits 0.5 Sec.
  FOR W0=1 TO 10                             'Set to 10min. (10sec. for testing)
  PAUSE 1000                                 'Waits for 1Sec.
  IF IN4=1                     THEN SWITCHA  'Any key to end camera
  IF IN2=1                     THEN CAMLEFT  '
  IF IN0=1 AND IN2=1           THEN CAMRIGHT '
  IF IN1=1 AND IN2=1           THEN ZOOMIN   '
  IF IN0=1 AND IN1=1 AND IN2=1 THEN ZOOMOUT  '
  NEXT
  GOTO SWITCHA

  SWITCHC:                                   'Button 2 pressed
  LOW   9                                    'Analogue Ident
  HIGH  8                                    '
  PAUSE 5000                                 '
  HIGH  14                                   'Input 2
  LOW   15                                   '
  GOTO ANALOGUE

  SWITCHD:                                   'Button 3 pressed
  HIGH 8                                     'Digital Ident
  LOW  9                                     '
  PAUSE 5000                                 '
  LOW   14                                   'Input 3
  HIGH  15                                   '
  GOTO DIGITAL

  ANALOGUE:
  PAUSE 500
  FOR W0 = 1 TO 10                           'TIMER ON 30 MIN-(set to 10sec for testing)
  PAUSE 1000                                 'Waits 1sec
  IF IN6=1 THEN SWITCHA                      'DETECTS NO INPUT SIGNAL
  NEXT
  GOTO SWITCHA                               'SWITCH BACK TO TESTCARD

  DIGITAL:
  PAUSE 500                                  'WAITS FOR 0.5 SEC
  FOR W0 = 1 TO 10                           'TIMER ON 30 MIN-(set to 10sec for testing)
  PAUSE 1000                                 'Waits 1sec
  IF IN7=1 THEN SWITCHA                      'DETECTS NO INPUT SIGNAL
  NEXT
  GOTO SWITCHA                               'SWITCH BACK TO TESTCARD




  '*********************************************************
  'CAMERA CONTROL

  CAMLEFT:
  HIGH 10                                    'CAMERA LEFT ON
  IF IN2=1 THEN CAMLEFT                      'CHECKS BUTTON STILL PRESSED
  IF IN2<>4 THEN SWITCHB                     '

  CAMRIGHT:
  HIGH 11                                    'CAMERA RIGHT ON
  IF IN1=1 AND IN2=1  THEN CAMRIGHT          'CHECKS BUTTON STILL PRESSED
  IF IN1<>6 THEN SWITCHB                     '

  ZOOMIN:
  HIGH 12                                    'CAMERA ZOOM IN
  IF IN1=1 AND IN2=1 THEN ZOOMIN             '
  IF IN1=0 AND IN2=0 THEN SWITCHB            '

  ZOOMOUT:
  HIGH 13                                    'CAMERA ZOOM OUT
  IF IN0=1 AND IN1=1 AND IN2=1 THEN ZOOMOUT  '
  IF IN0=0 AND IN1=0 AND IN2=0 THEN SWITCHB  '

  '***********************************************************
  'AUDIO TONE Not Used On this Version but left here just in case it can be used later

  'TONEL:
  'FREQOUT 9,1000,400                         'LEFT CHANNEL CONTINIOUS
  'IF INA=7 THEN TONEL                        '400HZ TONE
  'GOTO WAITING                               'BUTTON RELEASED

  'TONER:
  'FREQOUT 8,1000,400                         'RIGHT CHANNEL INTERMITTENED
  'PAUSE 3000                                 '400HZ TONE ON 1SEC, OFF 3SEC
  'IF INA=9 THEN TONER
  'GOTO WAITING                               'BUTTON RELEASED

  '*******************************************************
  'DTMF CHECK


  'DTMF check is not completed yet
  '
  'Richard VK4XRL