;	Ceramic resonator 4MHz, Tciclo=1muS

;	 HSync=-15,625KHz 1/HSync=64ciclos
;    VSync=-60Hz 1/VSync=16667ciclos

;	processor 16f84A
	list p=16f84a, f=inhx8m

	#include <p16f84a.inc>
	__config  _XT_OSC & _WDT_OFF & _PWRTE_ON

Contador1:	equ	 0x0C
Contador2:	equ	 0x0D


	    org	  0                  ; El programa comienza en la dirección 0.
	    goto	  Inicio
	  
Inicio:	clrf    PORTB
	    bsf     STATUS, RP0	     ; Acceso al Banco 1.
	    clrf   	TRISB
	    bcf     STATUS, RP0	     ; Acceso al Banco 0.
Primercampo1:	
	    movlw   D'130'
        movwf   Contador1
Primercampo:                     ; 	
        nop			             ; 	   
  	    bsf     PORTB, 4 	     ; vert sync
   	    bsf     PORTB, 3 	     ; H  Sync  
        call    Delay10muS     	 ;
	    call    Delay10muS     	 ; 	 
        call    Delay10muS 	
	    nop			             ;
	    bcf     PORTB, 3 	     ; H  Sync
	    call    Delay10muS     	 ; 
	    call    Delay10muS     	 ; 
	    call    Delay5muS
	    nop			             ; 
	
	    decfsz  Contador1      	 ; 
	    goto    Primercampo  	 ; 
   	    movlw   D'130'
	    movwf   Contador2		      

Segundocampo:                    ;
       nop
       bcf     PORTB, 4 	     ; vert sync
   	   bsf     PORTB, 3 	     ; H  Sync	
	   call    Delay10muS        ; 
	   call    Delay10muS    	 ; 
	   call    Delay10muS    	 ; 
	   			              
	   bcf     PORTB, 3 	     ; H  Sync	
	   call    Delay10muS     	 ; 
	   call    Delay10muS     	 ; 
	   call    Delay5muS
	   nop
	   nop
	   decfsz  Contador2      	 ; 
	   goto    Segundocampo  	 ; 
       goto    Primercampo1
Delay10muS:
	   nop
	   nop
	   nop
	   nop
	   nop
	   nop
	   return

 Delay5muS:
	   nop
	   return
 
 	  end