'Programa para o Mini-CLP - Márcio José Soares
'Exemplo de operação
'Ativa saída de acordo com entrada por
'um período de tempo e volta a desligar

Symbol said1 = 4	'nomeia as saídas
Symbol said2 = 5
Symbol said3 = 6
Symbol said4 = 7

Symbol liga = 0		'estado lógico para ligar porta


dirs=%00001111		'pinos 0 a 3 entradas, 4 a 7 saídas
pins=%00001111		'zera pinos de saída

	
	'scan de leitura e programa
inicio:
	input pin0
	if pin0=0 then trata1	'verifica estado e trata
volta1:
	input pin1
	if pin1=0 then trata2	'verifica estado e trata
volta2:
	input pin2
	if pin2=0 then trata3	'verifica estado e trata
volta3:
	input pin3
	if pin3=0 then trata4	'verifica estado e trata

	goto inicio		'retorna p/ novo scan

'scan de saida (funções para ativar saídas)
trata1:
	toggle said1	'inverte estado do pino de saída
	gosub tempo	'temporiza
	goto volta1	'volta para tratar outra

trata2:
	toggle said2	'inverte estado do pino de saída
	gosub tempo	'temporiza
	goto volta2	'volta para tratar outra

trata3:
	toggle said3	'inverte estado do pino de saída
	gosub tempo	'temporiza
	goto volta3	'volta para tratar outra
trata4:
	toggle said4	'inverte estado do pino de saída
	gosub tempo	'temporiza
	goto inicio	'volta para scans

'rotina de temporização
'aguarda 0,5 segundos
'durante temporização o 
'scan de leitura das entradas
'não é realizado!
tempo:
	pause 500	'aguarda tempo
	return		'retorna