ATNEL tech-forum

Re: Pseudointerpreter poleceń

2016-11-08T21:21:32+01:00

SylwekK napisał(a):

Dokładnie - copy Rom do Ram, przełączenie pamięci i można było szaleć do woli. A w ogóle to zająłem się asemblerem bo chciałem nieśmiertelność w grach robić. Po pierwszej trafnej zamianie LDA #$03 na LDA #$FF potoczyło się już lawinowo... Nie miałem w kolekcji gry, która by nie była zhakowana chociaż przyznam, że nad jedną to chyba tydzień albo dwa przesiedziałem, a główny problem to było obejście autostartu po załadowaniu i zatrzymanie po rozpakowaniu... dało się

heh nieźle , to podobne wygi jesteśmy jak assembler był w jednym palcu, to dogrzebałem się do dwóch albo trzech muzyczek nie używanych w Super Mario Bros na kasecie (pirat że aż śmierdzi) później okazało się że plansze jakieś krótkie , a jeszcze później powstał edytor plansz a wszystko trzepane w assemblerze w monitorze hehe a cała kaseta nowych boulder dashy z etapami i grafiką swoją
to było MEGA

Statystyki: Napisane przez xbary — 8 lis 2016, o 21:21

Re: Pseudointerpreter poleceń

2016-11-08T21:08:29+01:00

Statystyki: Napisane przez SylwekK — 8 lis 2016, o 21:08

Re: Pseudointerpreter poleceń

2016-11-08T20:52:59+01:00

SylwekK napisał(a):

Projekt mimo prostoty warty uwagi (już gdzieś się natknąłem na podobne rozwiązania). Są sytuacje gdzie zamiast przeprogramowywać uC w jakimś sterowniku zarządzającym procesem mechanicznym nawet operator, który nie ma pojęcia o programowaniu w prosty sposób pisze skrypt i gotowe - maszyna inaczej działa. Interpretery to w ogóle ciekawa sprawa. Sam lata temu rozbudowywałem i tak świetny jeżyk BASIC jaki posiadał Commodore+4, o dodatkowych kilkanaście opcji, które ułatwiały i drastycznie przyspieszały programy pisane w tym języku, np. wyszukiwanie słowa w liniach DATA - READ był strasznie mozolny, a procedura napisana w asemblerze robiła to błyskawicznie przeszukując kilkaset linii w ułamku sekundy.

Ja nawet popełniłem na C64 wczytywane rozszerzenie podstawowego basica o funkcje okienek w trybie tekstowym oraz obsługa myszki sterowanej joystickiem i kilka gadgetów buttonów itd:) ehh to były czasy. A pomyśleć że jedne GUi okienkowe co się widziało to było zauważone w gazecie na zdjęciu. Pamiętam że napisałem notatnik , kalkulator i edytor znaków

---

Gdzieś widziałeś taki projekt?, ja też widziałem coś takiego.

Wracając do C64 , pewnie ktoś by sobie pomyślał , gdzie w takiej małej pamięci interpreter Basica i do tego rozszerzany, pomimo że sam interpreter był w pamięci ROM ... pamiętam że robiło się taki myk: kopiowało się pamięć od $a000 do $c000 z ROM do RAM następnie wyłączało się ROM i i już można było tzw inż.wsteczną coś dopisać w monitorze-debugerze języka maszynowego

Statystyki: Napisane przez xbary — 8 lis 2016, o 20:52

Re: Pseudointerpreter poleceń

2016-11-06T18:19:49+01:00

if(czas && ochota)
{
dodam więcej poleceń i pomyślę nad if ;
}

Statystyki: Napisane przez Situs — 6 lis 2016, o 18:19

Re: Pseudointerpreter poleceń

2016-11-06T18:06:21+01:00

Statystyki: Napisane przez SylwekK — 6 lis 2016, o 18:06

Re: Pseudointerpreter poleceń

2016-11-06T17:58:38+01:00

Po całym kodzie musi być jeszcze jeden enter by działało - koniec lini jest gdy program napotka enter.
Daję kod(stl trzeba zainstalować):
pseudointerpreter_v2.ino
[syntax=cpp]#include
#include

using namespace std ;
File plik ;

void setup()
{
Serial.begin(9600) ;
while(!SD.begin(4))
{
Serial.println("Blad inicjalizacji karty SD!") ;
delay(333) ;
}
plik = SD.open("test.txt") ; //tu wpisac nazwe pliku
}

void loop()
{
uint8_t licznik ;
string tekst ;
while(1)
{
if(plik.available())
{
char temp1 = plik.read() ;
if(temp1 != '\n')
{
tekst += temp1 ;
licznik = licznik + 1 ;
}
else if(temp1 == ';') //sredniki to komentarze, trzeba zignorować to co po nich jest
{
while(plik.read() != '\n') ;
plik.seek(plik.position()-1) ;//cofanie o 1
break ;
}
else
{
break ;
}
licznik = licznik + 1 ;
}
}
tekst[licznik-1] = 0 ; //usuwanie \n

rozpoznaj(tekst) ; //wykonanie komend
}[/syntax]rozpoznaj.ino[syntax=cpp]char liczby[] = {'0', '1', '2', '3', '4', '5', '6', '7', '8', '9'} ;
char litery[] = "abcdefghijklmnoprstqwxyrzvABCDEFGHIJKLMNOPRSTUWQXYWZV-" ;
uint32_t skok[10] = {0} ;

void rozpoznaj(string komd)
{
if(komd.find("tryb") != string::npos)
{
if(komd.find("-p") != string::npos)
{
if(komd.find("-s") != string::npos) //sprawdzanie czy sa wszystkie czlony komendy
{
if(komd.find_first_of(liczby, komd.find("-p")+2))
{
if(komd.find_first_of(liczby, komd.find("-s")+2))
{
uint8_t port = 0 ;
uint8_t stan = komd[komd.find_first_of(liczby, komd.find("-s")+2)]-0x30 ;
if((komd.find_first_of(liczby, komd.find("-p")) != string::npos) && (komd.find_first_of(litery, 2+komd.find("-p")) > komd.find_first_of(liczby, 1+komd.find_first_of(liczby, 2+komd.find("-p"))) ))
{
uint8_t ppos = komd.find("-p") + 2 ;
uint8_t spos = komd.find("-s") + 2 ;

uint8_t fnumpos = komd.find_first_of(liczby, ppos) ;
uint8_t snumpos = komd.find_first_of(liczby, komd.find_first_of(liczby, ppos)+1) ;

port = (komd[fnumpos]-0x30) * 10 + (komd[snumpos]-0x30) ;
}
else
{
port = komd[komd.find_first_of(liczby, komd.find("-p")+2)]-0x30 ;
}
pinMode(port, stan) ;
}
}
}
}
}
else if(komd.find("ustaw") != string::npos)
{
if(komd.find("-p") != string::npos)
{
if(komd.find("-s") != string::npos)
{
if(komd.find_first_of(liczby, komd.find("-p")+2))
{
if(komd.find_first_of(liczby, komd.find("-s")+2))
{
uint8_t port = 0 ;
uint8_t stan = komd[komd.find_first_of(liczby, komd.find("-s")+2)]-0x30 ;
if((komd.find_first_of(liczby, komd.find("-p")) != string::npos) && (komd.find_first_of(litery, 2+komd.find("-p")) > komd.find_first_of(liczby, 1+komd.find_first_of(liczby, 2+komd.find("-p"))) ))
{
uint8_t ppos = komd.find("-p") + 2 ;
uint8_t spos = komd.find("-s") + 2 ;

uint8_t fnumpos = komd.find_first_of(liczby, ppos) ;
uint8_t snumpos = komd.find_first_of(liczby, komd.find_first_of(liczby, ppos)+1) ;

port = (komd[fnumpos]-0x30) * 10 + (komd[snumpos]-0x30) ;
}
else
{
port = komd[komd.find_first_of(liczby, komd.find("-p")+2)]-0x30 ;
}
digitalWrite(port, stan) ;
}
}
}
}
}
else if(komd.find("lbl") != string::npos)
{
if(komd.find("-n") != string::npos)
{
if(komd.find_first_of(liczby, komd.find("-n")+2))
{
skok[komd[komd.find_first_of(liczby, komd.find("-n")+2)]-0x30] = plik.position()-8 ;
}
}
}
else if(komd.find("goto") != string::npos)
{
if(komd.find("-n") != string::npos)
{
if(komd.find_first_of(liczby, komd.find("-n")+2))
{
plik.seek(skok[komd[komd.find_first_of(liczby, komd.find("-n")+2)]-0x30]) ;
}
}
}
else if(komd.find("czekaj") != string::npos)
{
if(komd.find("-c") != string::npos)
{
if(komd.find_first_of(liczby, komd.find("-n")+2))
{
delay(((komd[komd.find_first_of(liczby, komd.find("-s")+2)]-0x30)*100)+100) ;
}
}
}
}[/syntax]

Statystyki: Napisane przez Situs — 6 lis 2016, o 17:58

Pseudointerpreter poleceń

2016-11-06T16:56:51+01:00

Witam. Po przeczytaniu definicji interpretera na Wikipedii postanowiłem coś takiego zrobić. Użyłem algorytmów STL. Działanie jest proste : odczytywanie linii z karty SD, wykonanie poleceń i ignorowanie komentarzy czyli tekstów po średniku aż do końca linii. W walce z uniknięciem plątaniny kabli zastosowałem Ethernet shield bo jest już na nim gniazdo na kartę SD i dzielniki napięcia. Oto lista poleceń:

tryb -p(pin) -s(stan) -- ustawianie trybu pracy pinu jako we lub wy.
ustaw -p(pin) -s(stan) -- ustawianie stanu wysokiego lub niskiego na pinie
lbl -n(cyfra) -- label do którego skoczy goto(cyfra od 0 do 9)
czekaj -c(czas) -- Czeka podaną liczbę czasu(-c to ms opoznienia / 100 - 100

Zinterpretuje i wykona zarówno polecenia typu ustaw-p2-s1 jak i ustaw -p 2 bezuzytecznyTekst -s 1

iframe

Umieszczam spakowany plik RAR, jest tam plik na kartę SD, instrukcja podłączenia karty SD, oraz instrukcja instalacji STL - plik instalacja-czytac.txt
Szkic jest dość długi i skomplikowany, dlatego ośmielam się wstawić ten projekt na forum.

Statystyki: Napisane przez Situs — 6 lis 2016, o 16:56