Parque de estacionamento automatizado

Relatório da Prova de Aptidão Profissional – Bruno Barbosa
#define PS2_CLK PORTB.1
#define PS2_DAT PORTB.2
;Variables
Dim EstadoParque As byte
Dim EsperaSaida As bit
Dim Contador As byte
Dim Key_Code As byte
Dim Key_Char As byte
Dim PIN(8)
Dim DataCount As byte
Dim PIN_Ok As bit
Dim PIN_Code As string * 8
InitSer 1, r2400, 1+WaitForStart, 8, 1, None, Invert
InitSer 2, r2400, 1+WaitForStart, 8, 1, None, Invert
'Inatialise variables
DataCount = 0
PIN_Code = "2345"
EsperaSaida = 0
'Direcionalidade dos pinos
Dir PORTA.0 Out
Dir PORTA.1 Out
Dir PORTA.5 In
Dir PORTC.0 Out
Dir PORTC.1 Out
Dir LED_VRM Out
Dir PORTC.7 In
DIR PS2_CLK In
DIR PS2_DAT In
'Aguarda inicialização dos LCDs
Wait 500 ms
'Limpa LCDs e escreve mensagem inicial
LimpaLCDEntrada
LimpaLCDSaida
- 14 -