'
'  ICX_test_Vsync.bas                   Marco Paolilli - 9 Set.05
'
'  Programma per la generazione delle tensioni di test per i segnali di 
'  sincronismo verticale e orizzontale
' 
'  Collegamenti Porta B(PIC16F877A) :

'  RB7	  RG	   pin 40
'  RB6	  H 	   pin 39
'  RB5	  V1       pin 38
'  RB4	  V2	   pin 37
'  RB3	  V3	   pin 36
'  RB2	  V4	   pin 35
'  RB1	  XV1	   pin 34
'  RB0	  XV3	   pin 33
'
'  I segnali sui vari canali vengono generati in modo sequenziale e ripetuti
'  3 volte per permetterne la verifica con un oscilloscopio. Il livello pił
'  basso di ogni segnale ha una durata doppia rispetto agli altri per poterlo
'  riconoscere in caso di errori nei cablaggi.
'
		
  		DEVICE = 16F877A    	' Utilizzo il PIC 16F877A
		XTAL = 20            	' Quarzo da 20 Mhz
		
		

		SYMBOL SIG = PORTB   	' Alias PORTB to SIG
			
		SYMBOL RG = PORTB.7  	' Segnale RG
		SYMBOL H  = PORTB.6  	' Segnale H
		SYMBOL V1 = PORTB.5  	' Segnale V1
		SYMBOL V2 = PORTB.4     ' Segnale V2
		SYMBOL V3 = PORTB.3     ' Segnale V3
		SYMBOL V4 = PORTB.2     ' Segnale V4
		SYMBOL XV1 = PORTB.1    ' Segnale XV1
		SYMBOL XV3 = PORTB.0    ' Segnale XV3
		
		DIM RIT AS BYTE		' RIT = ritardo
		DIM I AS BYTE           ' I   = contatore 
		
		RIT = 100			' Valore di ritardo in microsecondi
		LOW SIG	  		' Reset PORTB : output LOW
		
GOTEST:					' Inizio del programma di test
		
'		
'  Test del segnale RG
'
   		FOR I = 1 TO 3
               RG = 0
			   DELAYUS 2*RIT
			   RG = 1
			   DELAYUS RIT
		NEXT I
		RG = 0
'		
'  Test del segnale H
'
   		FOR I = 1 TO 3
               H = 0
			   DELAYUS 2*RIT
			   H = 1
			   DELAYUS RIT
		NEXT I
		H = 0
'		
'  Test del segnale V2
'
   		FOR I = 1 TO 3
               V2 = 0
			   DELAYUS 2*RIT
			   V2 = 1
			   DELAYUS RIT
		NEXT I
		V2 = 0		
'		
'  Test del segnale V4
'
   		FOR I = 1 TO 3
               V4 = 0
			   DELAYUS 2*RIT
			   V4 = 1
			   DELAYUS RIT
		NEXT I
		V4 = 0 
'		
'  Test del segnale V1
'
   		FOR I = 1 TO 3
		       XV1 = 0
               V1 = 0
			   DELAYUS 2*RIT
			   V1 = 1
			   DELAYUS RIT
			   XV1 = 1
			   DELAYUS RIT
		NEXT I		
		XV1 = 0
		V1  = 0
'		
'  Test del segnale V3
'
   		FOR I = 1 TO 3
		       XV3 = 0
               V3 = 0
			   DELAYUS 2*RIT
			   V3 = 1
			   DELAYUS RIT
			   XV3 = 1
			   DELAYUS RIT
		NEXT I		
		XV3 = 0
		V3  = 0		
				
        GOTO GOTEST