Mirnou odbockou zkoumanim jak funguje C na Z80. Kde jsem porad narazel na problemy, u kterych jsem jen ztracel hromadu casu a stejne jsem nebyl schopen je vyresit, protoze na to asi fakt nemam...
Mel jsem problem spustit i "jednoduche" compilery a porad videl chybove vystupy z flex nebo bison. A nedokazal jsem napsat lepsi chybovou funkci, ktera by pekne vypsala cislo radky a sloupce kde chyba nastala (dospel jsem jen k tomu ze jsem umel vypsat token kdery mu vadi).
Zadne hotove reseni jsem proste neskompiloval ...jsem se dostal k programovacimu jazyku FORTH.
A zjistil jsem, ze to neni az tak slozite a ze dokazi napsat "prekladac" jen pomoci maker v pasmu. Ze stacilo sesmolit v asembleru funkci na vypsani cisla, funkci na vypsani retezce a funkci na zalomeni radku, funkci na 16 bitove nasobeni (na deleni jsem se vybodl). Na zacatku pridat ulozeni stinovych registru a za to uz jen napraskat makra. Ulozit to jako soubor ktery prilinkuji ke svemu programu a ono to fakt funguje!
Ok, ma to nejake omezeni...
Nevypada to uplne jako FORTH protoze proste nemuzu makrem predefinovat > na seznam instrukci.
Musim to prejmenovat na "greater". Tecku pro vypsani cisla na zasobniku predelat na "DOT".
Dalsi vec je ze prikazy nemuzou byt na stejnem radku jako ve FORTHu ale pod sebou. Protoze kazdy dalsi prikaz je chapan jako parametr prvniho makra na radku. Trosku se to hodi protoze FORTH pracuje tak ze data ma na zasobniku a v polske notaci. Takze kdyz je neco podivne napravo je to proste pomocny parametr.
Napr. "NEW 5" by ve FORTHu bylo zapsano jen "5".
Dale nedokazi napsat:
IF
...
ELSE
...
THEN
Protoze IF a ELSE je uz zabrany a vnitrne ten if skoci na ELSE pokud nesplni podminku a ELSE vnitrne pred svym zacatkem skace na THEN a pak definuje label pro skok z IF. Takze po trosku marnem googleni a nahodnem zkoumani co pasmo umi jsem se dostal k zapisu:
_IF jednoznacnejmeno
...
_ELSE jednoznacnejmeno
...
_THEN jednoznacnejmeno
Kde makra _IF, _ELSE, _THEN vypadaji:
Kód:
; ## Vetveni
_IF MACRO name
name: ; jen pro kontrolu shodnych jmen
LD A, H
OR L
EX DE, HL
POP DE
jp z, name##_else
ENDM
IFZ MACRO name
name: ; jen pro kontrolu shodnych jmen
jp nz, name##_else
ENDM
_ELSE MACRO name
if not defined name
.warning Parametr macra _ELSE neni definovan! Preklep?
endif
jp name##_then
name##_else:
ENDM
_THEN MACRO name
if not defined name
.warning Parametr macra _THEN neni definovan! Preklep? Musi byt shodny si _IF
endif
if not defined name##_else
name##_else:
endif
name##_then:
ENDM
Dalse jsem resil smycku "stop index DO ... LOOP". Vnitrne nacte v DO do zasobniku navratovych adres stop a index a za tim vytvori label pro navrat na zacatek. LOOP zase nacte ze zasobniku stop a index, zvedne index, porovna ho se stop a zjisti zda ma skoncit nebo to zase ulozit na zasobnik navratovych adres a skocit na zacatek. Tzn. potrebuji zase jmeno pro novy label smycky. Takze macro zapis je:
Kód:
NEW stop
NEW index
DO smycka_1
...
LOOP smycka_1
Ten jednoznacny nazev by tam byt nemusel protoze smycky se nemohou krizit a byt jen vnorene. Takze by sla ta adresa ukladat na zasobnik, ale bylo by to pomalejsi... Ale pokud je stop konstanta tak by stacilo kdyby ho znal jen LOOP. Tak jsem napsal alternativni smycku:
Kód:
XDO smycka_2, index
...
XLOOP smycka_2, stop
Ma zase nevyhodu, ze tahle bezi jen na konstantach a nemuze ji program pres zasobnik menit.
Vypis retezcu se misto ."Hello Word!\n" resi jako XP_STRING "Hello Word!\r", 12. Dvanact je pocet pismen retezce. Neumim to spocitat sam a je dulezite ho napsat spravne. Jinak bude pokracovat program v retezci. Kdyz se zada vetsi cislo tak to zase bude snazit tisknout znaky s kodem nuly. "\r" je pro zalomeni radku. Basic proste zalomi kdyz mu predhodite 0x0D, nebo 13 dekadicky. Ne kdyz mu predhodite 0xA po "\n". Jinak se zalamuje radek stejne jako ve FORTHu pres CR.
Posledni vetsi zmena je u definice slov. FORTH napise neco jako ": deset 10 0 DO I . LOOP ;" a po zadani deset to napise "0 1 2 3 4 5 6 7 8 9". Pres macra to jde takto:
Kód:
_BEGIN deset
XDO smycka, 0
XI
DOT
XLOOP smycka, 10
_END deset
Přihlásit se
Registrovat
OC Wiki 
OC GitHub 
FAQ
Hledat
