Ir ao conteúdo
  • Cadastre-se
pablors

Videwo composto PAL-M com PIC

Recommended Posts

Ola amigos, criei esse programinha em BASIC para gerar sinais de video composto BEM SIMPLES mas Funcionando 100%
estou usando um PIC12F683  com cristal de 20MHz
 
faz qualquer desenho na tela trocando as letras  I   e   O
 
mas o problema e o  seguinte:
 
Programa compila super bem em Mikrobasic antigo 7.0.0.2
porém no Mikrobasic Pro  nao Compila!!!   apresenta o seguinte erro    25 342 There is not enough ROM space 
sendo que ainda tem espaço no PIC
 
 
 
Programa
 
 

program VIDEO23DIM CONT,CONT2 AS BYTEsub procedure Sync   'Horizontal sync'GPIO.2=1 GPIO.2=1 Delay_us(1)    'Front Porch Timing'GPIO.2=0 GPIO.2=0 GPIO.2=0 GPIO.2=0 Delay_us(4)    'Horizontal Sync Timing'GPIO.2=1 GPIO.2=1 GPIO.2=1 Delay_us(5)    'Back Porch Timing'end sub sub procedure SyncV    'Vertical sync'FOR cont = 1 TO 7    'equalizing'GPIO.2=0 Delay_us(4)GPIO.2=1 Delay_us(26)NEXT CONTFOR cont = 1 TO 7    'Sincronismo V'GPIO.2=0 Delay_us(26)GPIO.2=1 Delay_us(4)NEXT contFOR cont = 1 TO 7    'equalizing'GPIO.2=0 Delay_us(4)GPIO.2=1 Delay_us(26)NEXT CONTend subsub procedure I 'linha horizontal 1'GPIO.1=1end subsub procedure O 'linha horizontal 0'GPIO.1=0end subsub PROCEDURE TXTFOR CONT2 = 1 TO 61      ' 262 linhas x2 campos em 60 quadros por segundo 'SYNCVFOR CONT = 1 TO 9 SYNC O O O O O O O O O O O O O O O O O O O O O O O O O O O O O O O O O O NEXT CONTFOR CONT = 1 TO 9 SYNC O O O O O O O O O O O O O O O O O O O O O O O O O O O O O O O O O O NEXT CONTFOR CONT = 1 TO 9 SYNC I I I I I I I I I I I I I I I I I I I I I I I I I I I I I I I I I I NEXT CONTFOR CONT = 1 TO 9 SYNC I I I I I I I I I I I I I I I I I I I I I I I I I I I I I I I I I I NEXT CONTFOR CONT = 1 TO 9 SYNC I I O O O O O O O O O O O O O O O O O O O O O O O O O O O O O O O I NEXT CONTFOR CONT = 1 TO 9 SYNC I I O O O O O O O O O O O O O O O O O O O O O O O O O O O O O O O I NEXT CONTFOR CONT = 1 TO 9 SYNC I I O O O O O O O O O O I O O O I O I I I I I O O O O O O O O O O I NEXT CONTFOR CONT = 1 TO 9 SYNC I I O O O O O O O O O O I I O O I O I O O O I O O O O O O O O O O I NEXT CONTFOR CONT = 1 TO 9 SYNC I I O O O O O O O O O O I O I O I O I O O O I O O O O O O O O O O I NEXT CONTFOR CONT = 1 TO 9 SYNC I I O O O O O O O O O O I O O I I O I O O O I O O O O O O O O O O I NEXT CONTFOR CONT = 1 TO 9 SYNC I I O O O O O O O O O O I O O O I O I I I I I O O O O O O O O O O I NEXT CONTFOR CONT = 1 TO 9 SYNC I I O O O O O O O O O O O O O O O O O O O O O O O O O O O O O O O I NEXT CONTFOR CONT = 1 TO 9 SYNC I I O O O I I I I O I O I I I I O I O O O I O I I I I O I O O O O I NEXT CONTFOR CONT = 1 TO 9 SYNC I I O O O I O O O O I O I O O O O I I O O I O I O O I O I O O O O I NEXT CONTFOR CONT = 1 TO 9 SYNC I I O O O I I I I O I O I O I I O I O I O I O I I I I O I O O O O I NEXT CONTFOR CONT = 1 TO 9 SYNC I I O O O O O O I O I O I O O I O I O O I I O I O O I O I O O O O I NEXT CONTFOR CONT = 1 TO 9 SYNC I I O O O I I I I O I O I I I I O I O O O I O I O O I O I I I I O I NEXT CONTFOR CONT = 1 TO 9 SYNC I I O O O O O O O O O O O O O O O O O O O O O O O O O O O O O O O I NEXT CONTFOR CONT = 1 TO 9 SYNC I I O O O O O I I I I O I O O I O O O O O I O O O I O O O O O O O I NEXT CONTFOR CONT = 1 TO 9 SYNC I I O O O O O I O O O O I O O I O O O O I I O O I I O O O O O O O I NEXT CONTFOR CONT = 1 TO 9 SYNC I I O O O O O I O O O O I I I I O I I O O I O O O I O O O O O O O I NEXT CONTFOR CONT = 1 TO 9 SYNC I I O O O O O I O O O O I O O I O O O O O I O O O I O O O O O O O I NEXT CONTFOR CONT = 1 TO 9 SYNC I I O O O O O I I I I O I O O I O O O O I I I O I I I O O O O O O I NEXT CONTFOR CONT = 1 TO 9 SYNC I I O O O O O O O O O O O O O O O O O O O O O O O O O O O O O O O I NEXT CONTFOR CONT = 1 TO 9 SYNC I I O O I O I O I O I O I O I O I O I O I O I O I O I O I O I O O I NEXT CONTFOR CONT = 1 TO 9 SYNC I I O I O I O I O I O I O I O I O I O I O I O I O I O I O I O I O I NEXT CONTFOR CONT = 1 TO 9 SYNC I I O O I O I O I O I O I O I O I O I O I O I O I O I O I O I O O I NEXT CONTFOR CONT = 1 TO 9 SYNC I I O I O I O I O I O I O I O I O I O I O I O I O I O I O I O I O I NEXT CONTFOR CONT = 1 TO 9 SYNC I I O O I O I O I O I O I O I O I O I O I O I O I O I O I O I O O I NEXT CONTFOR CONT = 1 TO 9 SYNC I I O O O O O O O O O O O O O O O O O O O O O O O O O O O O O O O I NEXT CONTFOR CONT = 1 TO 9 SYNC I I I I I I I I I I I I I I I I I I I I I I I I I I I I I I I I I I NEXT CONTFOR CONT = 1 TO 9 SYNC I I I I I I I I I I I I I I I I I I I I I I I I I I I I I I I I I I NEXT CONTFOR CONT = 1 TO 7 SYNC O O O O O O O O O O O O O O O O O O O O O O O O O O O O O O O O O O NEXT CONTNEXT CONT2END SUBMAIN:ANSEL=%00000000trisio.2=0trisio.1=0trisio.3=1WHILE (TestBit(gpio,3)=1)   ' testa bit na porta 3 do pic, se estiver em nivel logico 1 executa a imagem'TXTWENDgoto mainEND.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×