$sim
$regfile = "m168def.dat"
$crystal = 8000000
'----- KONFIGURACJA WYŚWIETLACZA -----------------------------------------------
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Portd.3 , Db5 = Portd.2 , Db6 = Portd.1 , Db7 = Portd.0 , E = Portd.4 , Rs = Portb.2
Cursor Off , Noblink
Cls
'----- KONFIGURACJA PORTÓW WEJŚCIA I WYJŚCIA / SCL i SDA / 1 WIRE / ALIASY -----
Config Portb.0 = Output : Reset Portb.0 : Pk_plus Alias Portb.0
Config Portb.1 = Output : Reset Portb.1 : Disp Alias Portb.1
Config Portb.2 = Output : Reset Portb.2
Config Pinb.3 = Input : Set Portb.3 : Up Alias Pinb.3
Config Pinb.4 = Input : Set Portb.4 : Dn Alias Pinb.4
Config Pinb.5 = Input : Set Portb.5 : Ok Alias Pinb.5
Config Portc.0 = Output : Reset Portc.0
Config Portc.1 = Output : Reset Portc.1
Config Portc.2 = Output : Reset Portc.2
Config Portc.3 = Output : Reset Portc.3
Config Portc.4 = Output : Reset Portc.4
Config Portc.5 = Output : Reset Portc.5
Config Pind.5 = Input : Set Portd.5
Config Portd.6 = Output : Reset Portd.6 : Buzer Alias Portd.6
Config Portd.7 = Output : Reset Portd.7 : Pk_minus Alias Portd.7
'----- PĘTLA GŁÓWNA ------------------------------------------------------------
Portb.1 = 1
Do
Gosub Znaki_diakrytyczne_programu_1
Locate 2 , 3 : Lcd "543 " ; Chr(0) ; Chr(1) ; Chr(2) ; Chr(3) ; Chr(4) ; " 557"
Wait 1
Gosub Znaki_diakrytyczne_programu_2
Locate 1 , 1 : Lcd Chr(0) ; Chr(1)
Locate 2 , 1 : Lcd Chr(2) ; Chr(3)
Wait 1
' Locate 1 , 1 : Lcd Chr(6) ; Chr(7)
' Locate 2 , 1 : Lcd Chr(4) ; Chr(5)
Loop
'*************************************
Znaki_diakrytyczne_programu_1:
Deflcdchar 0 , 32 , 32 , 32 , 15 , 32 , 32 , 32 , 32 ' 1/2 strzałki w prawo ( kreska pozioma )
Deflcdchar 1 , 32 , 4 , 2 , 31 , 2 , 4 , 32 , 32 ' 1/2 strzałki w prawo ( strzałka)
Deflcdchar 2 , 4 , 4 , 4 , 4 , 4 , 4 , 4 , 32 ' kreska pionowa
Deflcdchar 3 , 32 , 4 , 8 , 31 , 8 , 4 , 32 , 32 ' 1/2 strzałki w lewo ( strzałka)
Deflcdchar 4 , 32 , 32 , 32 , 30 , 32 , 32 , 32 , 32 ' 1/2 strzałki w lewo ( kreska pozioma )
Return
'*************************************
Znaki_diakrytyczne_programu_2:
Deflcdchar 0 , 31 , 30 , 30 , 28 , 28 , 24 , 24 , 16 '1/2 strzałki w górę ( lewa )
Deflcdchar 1 , 31 , 15 , 15 , 7 , 7 , 3 , 3 , 1 '1/2 strzałki w górę ( prawa )
Deflcdchar 2 , 28 , 28 , 28 , 28 , 28 , 28 , 28 , 31 '1/2 strzałki w górę - noga lewa
Deflcdchar 3 , 7 , 7 , 7 , 7 , 7 , 7 , 7 , 31 '1/2 strzałki w górę - noga prawa
Deflcdchar 4 , 16 , 24 , 24 , 28 , 28 , 30 , 30 , 31 '1/2 strzałki w dół ( lewa )
Deflcdchar 5 , 1 , 3 , 3 , 7 , 7 , 15 , 15 , 31 '1/2 strzałki w dół ( prawa )
Deflcdchar 6 , 31 , 28 , 28 , 28 , 28 , 28 , 28 , 28 '1/2 strzałki w dół - noga lewa
Deflcdchar 7 , 31 , 7 , 7 , 7 , 7 , 7 , 7 , 7 '1/2 strzałki w dół - noga prawa
Return
'*******************************************************************************