OldComp.cz • Zobrazit téma - Jak vytvořit nový příkaz ?

Vyhledat témata bez odpovědí | Zobrazit aktivní témata

Obsah fóra » ZX Spectrum, Sinclair a kompatibilní » ZX Spectrum - programování a vývoj software

Všechny časy jsou v UTC + 1 hodina [ Letní čas ]

Jak vytvořit nový příkaz ?

Moderátoři: Jiiira, SCjoe

Stránka 1 z 3

[ Příspěvků: 44 ]

Přejít na stránku 1, 2, 3 Další

Verze pro tisk

Předchozí téma | Následující téma

Autor

Zpráva

caga

Předmět příspěvku: Jak vytvořit nový příkaz ?

Napsal: 26.12.2021, 11:34

Kecálek

Registrován: 09.01.2021, 18:37
Příspěvky: 116
Has thanked: 16 times
Been thanked: 23 times

Ahoj, docela by se mi hodilo mít k dispozici nový příkaz z Basicu, ale jako ne moc znalý romky se raději zeptám místních znalců.
Mám nějakou rutinu a tu spoušním přes rand usr xxx. Rád bych jí spustil třeba Print ( .
Tuším,že se to musí řešit přes vyvolání chyby, ale to je tak všechno.
Samozřejmě počítám s úpravou romky. Ta bude vyměněná stejně, protože ta rutina bude v té prázdné zadní oblasti.

Díky, těším se na různá zajímavá řešení.

Nahoru

dex

Předmět příspěvku: Re: Jak vytvořit nový příkaz ?

Napsal: 26.12.2021, 13:08

Pan Štábní

Registrován: 12.05.2013, 22:24
Příspěvky: 1572
Bydliště: u Prahy
Has thanked: 47 times
Been thanked: 406 times

Není ani potřeba úprava ROM.
Mechanismus je stejný jako u "on error goto", stačí si hlídat Syntax error a sám si udělat syntaktickou analýzu.
Příkladů je dost, jde se inspirovat třeba v Kamasoft Basicu 2, ProDosu, ...

Nahoru

Busy

Předmět příspěvku: Re: Jak vytvořit nový příkaz ?

Napsal: 28.12.2021, 21:23

Óm Nejvyšší

Registrován: 22.05.2013, 21:14
Příspěvky: 3797
Bydliště: Bratislava
Has thanked: 375 times
Been thanked: 811 times

Maly, narychlo napisany priklad ako si rozsirit basic o novy prikaz bez modifikacie romky:

Kód:

init    ld      hl,(#5C3D)      ;; ERRSP
        ld      (hl),low handler
        inc     hl
        ld      (hl),high handler
        ret

handler ld      bc,handler      ;; Adresa error handlera
        push    bc              ;; na zasobniku obnovena
        xor     a
        sbc     hl,sp           ;; Test ci je chyba v cmdline editore
        jp      z,#12B4         ;; Ak ano, pokracuj za editor
        ld      a,(#5C3A)       ;; ERRNR = cislo chyby ktora nastala
        cp      #0B             ;; Nastala chyba 'Nonsense in BASIC' ?
        jr      nz,theend       ;; Ak nie, skok na povodnu cinnost
        ld      hl,(#5C5D)      ;; CHADD = program counter pre basic
        dec     hl
        ld      a,(hl)          ;; Predchadzajuci znak nebol platny prikaz
        cp      '*'             ;; Je to nas novy prikaz (hviezdicka) ?
        jr      nz,theend       ;; Ak nie, skok na povodnu cinnost

        ld      (iy+#00),#FF    ;; Zrusenie chyby 'Nonsense in BASIC'
cmd     call    #2530           ;; Kontrola syntaxe ?
        jr      z,next          ;; Ak ano, preskoc funkcionalitu

        xor     a               ;; Nejaka funkcionalita noveho prikazu
        out     (#fe),a         ;; (cierny border len ako priklad)

next    jp      #1b76           ;; Pokracovanie na dalsi prikaz v basicu

theend  call    #2530           ;; Kontrola syntaxe ?
        jp      z,#12B7         ;; Ak ano, skok za kontrolu syntaxe
        jp      #1303           ;; Ak nie, skok na vypis chyboveho hlasenia

Inicializacia sa robi zavolanim adresy init.

Ak je moznost upravy romky, tak je to uplne trivialne. Na #1B44 je kontrola, ci nacitany znak je platny prikaz basicu (jeho kod je aspon #CE), ak nie, tak to skoci na #1B8A kde to spravi chybu Nonsense in basic. Staci skok na chybu zmenit na skok do vlastnej rutinky kde sa otestuje kod noveho prikazu a na chybu sa skoci az potom, ked to nie je ani nas novy prikaz. A ak je, tak kod bude taky isty ako od labelu "cmd" vo vyssie uvedenom priklade.

Nahoru

caga

Předmět příspěvku: Re: Jak vytvořit nový příkaz ?

Napsal: 28.12.2021, 23:13

Kecálek

Registrován: 09.01.2021, 18:37
Příspěvky: 116
Has thanked: 16 times
Been thanked: 23 times

Ahoj, díky za příklad. Chodí to tak napůl. Z řádku to na hvězdičku reaguje, ale z programu ne. Když dám hvězdičku a něco, tak to vytuhne. A dalo by se třeba *0 *1 *2 ... ? tedy dvouznaková instrukce?

Nahoru

Busy

Předmět příspěvku: Re: Jak vytvořit nový příkaz ?

Napsal: 28.12.2021, 23:43

Óm Nejvyšší

Registrován: 22.05.2013, 21:14
Příspěvky: 3797
Bydliště: Bratislava
Has thanked: 375 times
Been thanked: 811 times

Na zaciatku programu treba dat USR init, pretoze spustenie programu prikazom RUN obcas zrusi aktutalne nastavenie ERRSP (zalezi od prechadzajucej cinnosti). Pokial sa v programe pouziva CLEAR, tak za neho je tiez vhodne dat USR init.

Samozrejme aj zlozitejsie prikazy by sa dali, staci po hviezdicke skontrolovat ci za nou nasleduju dalsie znaky prikazu.

Nahoru

caga

Předmět příspěvku: Re: Jak vytvořit nový příkaz ?

Napsal: 29.12.2021, 22:02

Kecálek

Registrován: 09.01.2021, 18:37
Příspěvky: 116
Has thanked: 16 times
Been thanked: 23 times

Super, chápu. A jak se kontroluje zda následuje další znak příkazu ?
Když Ty ten kód sypeš z rukávu..

Nahoru

Busy

Předmět příspěvku: Re: Jak vytvořit nový příkaz ?

Napsal: 29.12.2021, 23:18

Óm Nejvyšší

Registrován: 22.05.2013, 21:14
Příspěvky: 3797
Bydliště: Bratislava
Has thanked: 375 times
Been thanked: 811 times

Napriklad takto:

Kód:

        ...
        ld      a,(hl)          ;; Predchadzajuci znak nebol platny prikaz
        cp      '*'             ;; Je to nas novy prikaz (hviezdicka) ?
        jr      nz,theend       ;; Ak nie, skok na povodnu cinnost
        inc     hl
        ld      a,(hl)
        cp     '1'
        jr      z,prikaz_1
        cp     '2'
        jr      z,prikaz_2
        ...
        jr      theend

Nahoru

caga

Předmět příspěvku: Re: Jak vytvořit nový příkaz ?

Napsal: 29.12.2021, 23:57

Kecálek

Registrován: 09.01.2021, 18:37
Příspěvky: 116
Has thanked: 16 times
Been thanked: 23 times

Takto jsem si to predstavoval, ale to mi porad tuhne. Jak dam hvezdicka a neco.

Nahoru

caga

Předmět příspěvku: Re: Jak vytvořit nový příkaz ?

Napsal: 30.12.2021, 00:14

Kecálek

Registrován: 09.01.2021, 18:37
Příspěvky: 116
Has thanked: 16 times
Been thanked: 23 times

Kód:

handler ld      bc,handler      ;; Adresa error handlera
        push    bc              ;; na zasobniku obnovena
        xor     a
        sbc     hl,sp           ;; Test ci je chyba v cmdline editore
        jp      z,#12B4         ;; Ak ano, pokracuj za editor
        ld      a,(#5C3A)       ;; ERRNR = cislo chyby ktora nastala
        cp      #0B             ;; Nastala chyba 'Nonsense in BASIC' ?
        jr      nz,theend       ;; Ak nie, skok na povodnu cinnost
        ld      hl,(#5C5D)      ;; CHADD = program counter pre basic
        dec     hl
        ld      a,(hl)          ;; Predchadzajuci znak nebol platny prikaz
        cp      '*'             ;; Je to nas novy prikaz (hviezdicka) ?
        jr      nz,theend       ;; Ak nie, skok na povodnu cinnost
;        ld      (iy+#00),#FF    ;; Zrusenie chyby 'Nonsense in BASIC'
;cmd     call    #2530           ;; Kontrola syntaxe ?
;        jr      z,next          ;; Ak ano, preskoc funkcionalitu

        inc     hl
        ld      a,(hl)
        cp     '1'
        jr      z,prikaz_1
        cp     '2'
        jr      z,prikaz_2
        cp     '3'
        jr      z,prikaz_3
        xor     a
        out     (#fe),a

next    jp      #1b76           ;; Pokracovanie na dalsi prikaz v basicu

theend  call    #2530           ;; Kontrola syntaxe ?
        jp      z,#12B7         ;; Ak ano, skok za kontrolu syntaxe
        jp      #1303           ;; Ak nie, skok na vypis chyboveho hlasenia
        
prikaz_1 ld     a,#1
        out     (#fe),a         ;; 
        jr      next
        
prikaz_2 ld     a,#2
        out     (#fe),a         ;; 
        jr      next
        
prikaz_3 ld     a,#3
        out     (#fe),a         ;; 
        jr      next

Nahoru

Busy

Předmět příspěvku: Re: Jak vytvořit nový příkaz ?

Napsal: 30.12.2021, 01:08

Óm Nejvyšší

Registrován: 22.05.2013, 21:14
Příspěvky: 3797
Bydliště: Bratislava
Has thanked: 375 times
Been thanked: 811 times

caga píše:

Takto jsem si to predstavoval, ale to mi porad tuhne. Jak dam hvezdicka a neco.

Pretoze namiesto tvojho xor a:out (#fe),a ma byt moj jr theend - vid moj kod vyssie. Pointa je v tom, ze ked sa za hviezdickou nenajde nic rozumneho (dalsie znaky prikazu) tak to ma skocit na theend aby to mohla syntaxna kontrola spravne spracovat a vyhodit otaznik pri zlom znaku za hviezdickou.
Dalej, chyba ti tam ld (iy+#00),#FF ktore je nutne na vynulovanie chyby v pripade, ked sa nejaky z tvojich novych prikazov spravne rozpozna.
A nakoniec, po spravnom rozpoznani prikazu treba pomocou call #2530 zistit, ci sa kontroluje syntax a ak ano, treba preskocit funkcionalitu prikazu. Pretoze isto by nebolo zrovna vhodne, ak by sa pri odosielani basic riadku s prikazmi tieto prikazy zaroven aj naostro vykonavali

Nahoru

caga

Předmět příspěvku: Re: Jak vytvořit nový příkaz ?

Napsal: 31.12.2021, 00:52

Kecálek

Registrován: 09.01.2021, 18:37
Příspěvky: 116
Has thanked: 16 times
Been thanked: 23 times

Tak já nevím. Vždyť i v tom prvním příkladu pokud zadám příkaz *1 tak by přece mělo ke změně borderu dojít. Nedojde a zatuhne.

Nahoru

PotPalo

Předmět příspěvku: Re: Jak vytvořit nový příkaz ?

Napsal: 31.12.2021, 02:04

Pan Generální

Registrován: 01.12.2017, 21:01
Příspěvky: 2200
Bydliště: BA-Petržalka :(
Has thanked: 18 times
Been thanked: 341 times

Nemalo by to pri spracovávaní zvyšovať premennú CHADD? Ako to vie či je už koniec príkazu, nemalo by sa to tiež kontrolovať? Napríklad *1 je v poriadku, ale čo keď zadáme *1x čo už je nezmysel?

_________________
Oznamy o novom príspevku mi na mail chodia iba sporadicky, takže keď sa nehlásim v diskusii, tak je to tým. V 80% nepríde mail vôbec.

Nahoru

Busy

Předmět příspěvku: Re: Jak vytvořit nový příkaz ?

Napsal: 31.12.2021, 10:23

Óm Nejvyšší

Registrován: 22.05.2013, 21:14
Příspěvky: 3797
Bydliště: Bratislava
Has thanked: 375 times
Been thanked: 811 times

Presne ako pise PotPalo, v tom mojom originalnom priklade som zabudol skontrolovat ci za prikazom uz nenasleduju ziadne parametre. Pretoze ked sa zada hviezdicka a za nou este nieco, napr. *1 tak handler spravne zdetekuje a zakceptuje hviezdicku, avsak nasledne syntaxna kontrola v romke zisti ze nasleduje 1 co je chyba. Znovu sa zaktivuej handler, ale kedze sme stale na prikaze hviezdicka, handler si mysli ze je vseko OK a skoci do romky na pokracovanie syntaxnej kontroly. A takto sa to donekonecna zacykli.

Tu je opravena verzia doplnena o testovanie konca prikazu - za hviezdickou musi nasledovat bud dvojbodka oddelujuca nasledujuci prikaz, alebo koniec basicoveho riadku.

Kód:

init    ld      hl,(#5C3D)      ;; ERRSP
        ld      (hl),low handler
        inc     hl
        ld      (hl),high handler
        ret

handler ld      bc,handler      ;; Adresa error handlera
        push    bc              ;; na zasobniku obnovena
        xor     a
        sbc     hl,sp           ;; Test ci je chyba v cmdline editore
        jp      z,#12B4         ;; Ak ano, pokracuj za editor
        ld      a,(#5C3A)       ;; ERRNR = cislo chyby ktora nastala
        cp      #0B             ;; Nastala chyba 'Nonsense in BASIC' ?
        jr      nz,theend       ;; Ak nie, skok na povodnu cinnost
        ld      hl,(#5C5D)      ;; CHADD = program counter pre basic
        dec     hl
        ld      a,(hl)          ;; Predchadzajuci znak nebol platny prikaz
        cp      '*'             ;; Je to nas novy prikaz (hviezdicka) ?
        jr      nz,theend       ;; Ak nie, skok na povodnu cinnost

        rst     #18             ;; NOVE ;; Daj aktualny znak z basic programu
        cp      ':'             ;; NOVE ;; Za prikazom musi byt dvojbodka
        jr      z,cmdok         ;; NOVE ;; Ak ano, vsetko je v poriadku
        cp      #0D             ;; NOVE ;; Alebo ked nie dvojbodka tak aspon koniec riadku
        jr      nz,theend       ;; NOVE ;; Ak nie tak je to chyba

cmdok   ld      (iy+#00),#FF    ;; Zrusenie chyby 'Nonsense in BASIC'
        call    #2530           ;; Kontrola syntaxe ?
        jr      z,next          ;; Ak ano, preskoc funkcionalitu

        xor     a               ;; Nejaka funkcionalita noveho prikazu
        out     (#fe),a         ;; (cierny border len ako priklad)

next    jp      #1b76           ;; Pokracovanie na dalsi prikaz v basicu

theend  call    #2530           ;; Kontrola syntaxe ?
        jp      z,#12B7         ;; Ak ano, skok za kontrolu syntaxe
        jp      #1303           ;; Ak nie, skok na vypis chyboveho hlasenia

Nahoru

Busy

Předmět příspěvku: Re: Jak vytvořit nový příkaz ?

Napsal: 31.12.2021, 10:44

Óm Nejvyšší

Registrován: 22.05.2013, 21:14
Příspěvky: 3797
Bydliště: Bratislava
Has thanked: 375 times
Been thanked: 811 times

caga píše:

A dalo by se třeba *0 *1 *2 ... ? tedy dvouznaková instrukce?

Tuhla cely handler s osmimi novymi prikazmi: *0 *1 ... *7.

Kód:

init    ld      hl,(#5C3D)      ;; ERRSP
        ld      (hl),low handler
        inc     hl
        ld      (hl),high handler
        ret

handler ld      bc,handler      ;; Adresa error handlera
        push    bc              ;; na zasobniku obnovena
        xor     a
        sbc     hl,sp           ;; Test ci je chyba v cmdline editore
        jp      z,#12B4         ;; Ak ano, pokracuj za editor
        ld      a,(#5C3A)       ;; ERRNR = cislo chyby ktora nastala
        cp      #0B             ;; Nastala chyba 'Nonsense in BASIC' ?
        jr      nz,theend       ;; Ak nie, skok na povodnu cinnost
        ld      hl,(#5C5D)      ;; CHADD = program counter pre basic
        dec     hl
        ld      a,(hl)          ;; Predchadzajuci znak nebol platny prikaz
        cp      '*'             ;; Je to nas novy prikaz (hviezdicka) ?
        jr      nz,theend       ;; Ak nie, skok na povodnu cinnost

        rst     #18             ;; Daj aktualny znak z basic programu
        cp      '0'             ;; Ak je to mensie ako znak 0
        jr      c,theend        ;; potom bude chyba
        cp      '7'             ;; Ak je to vecsie ako znak 7
        jr      nc,theend       ;; potom bude tiez chyba
        ld      e,a             ;; Znak je 0..7, odlozime si ho do registra E

        rst     #20             ;; Daj nasledujuci znak z basic programu
        cp      ':'             ;; Za prikazom musi byt dvojbodka
        jr      z,cmdok         ;; Ak ano, vsetko je v poriadku
        cp      #0D             ;; Alebo ked nie dvojbodka tak aspon koniec riadku
        jr      nz,theend       ;; Ak nie tak je to chyba
cmdok   ld      (iy+#00),#FF    ;; Zrusenie chyby 'Nonsense in BASIC'
        call    #2530           ;; Kontrola syntaxe ?
        jr      z,next          ;; Ak ano, preskoc funkcionalitu

        ld      a,e             ;; Nejaka funkcionalita noveho prikazu
        and     #07
        out     (#fe),a         ;; (nastavenie borderu len ako priklad)

next    jp      #1b76           ;; Pokracovanie na dalsi prikaz v basicu

theend  call    #2530           ;; Kontrola syntaxe ?
        jp      z,#12B7         ;; Ak ano, skok za kontrolu syntaxe
        jp      #1303           ;; Ak nie, skok na vypis chyboveho hlasenia

Inak v tomto konkretnom pripade by bolo jednoduchsie hviezdicku uplne vyhodit a nove prikazy by boli iba cislice 0..7 takto:

Kód:

   ...
   ld   a,(hl)      ;; Predchadzajuci znak nebol platny prikaz
   cp   '0'      ;; Ak je to mensie ako znak 0
   jr   c,theend   ;; potom bude chyba
   cp   '7'      ;; Ak je to vecsei ako znak 7
   jr   nc,theend   ;; potom bude tiez chyba
   ld   e,a      ;; Znak je 0..7, odlozime si ho do registra E

   rst   #18      ;; Daj aktualny znak z basic programu
   cp   ':'      ;; Za prikazom musi byt dvojbodka
   ...

Jediny problem ktory by nastal by bol ze odoslanim samotnej cislice z prikazoveho riadku by to romka vyhodnotila ze uzivatel chce zmazat dany riadok, takze namiesto vykonania noveho prikazu by sa zmazal dany riadok. To sa da ale lahko ofintit, staci pred prikaz napisat dvojbodku. Interpreter to vyhodni ze tam nie je cislo riadku a teda riadok sa ma hned vykonat. V pripade, ze ma byt takyto "ciselny" prikaz na zaciatku riadku ktory sa ma zaradit do basic programu, netreba ani dvojbodku, staci medzi cislo riadku a ciselny prikaz dat cokolvek co basic interpreter nevyhodnocuje, napr. medzeru, alebo nejaky kod na zmenu farby pri listingu.

Nahoru

rombor

Předmět příspěvku: Re: Jak vytvořit nový příkaz ?

Napsal: 31.12.2021, 13:02

Radil

Registrován: 13.05.2013, 17:48
Příspěvky: 534
Bydliště: Košice
Has thanked: 452 times
Been thanked: 268 times

Aby sa akceptoval aj príkaz *7, musí byť v oboch príkladoch táto podmienka cp '7'+1.

_________________
https://pmd85.borik.net - PMD 85 Emulátor, PMD 85, PMD 32-SD
https://pp01.borik.net - PP 01 Emulátor, PP 01, SD-ROM Modul

Nahoru

Stránka 1 z 3

[ Příspěvků: 44 ]

Přejít na stránku 1, 2, 3 Další

Obsah fóra » ZX Spectrum, Sinclair a kompatibilní » ZX Spectrum - programování a vývoj software

Všechny časy jsou v UTC + 1 hodina [ Letní čas ]

Kdo je online

Uživatelé procházející toto fórum: Žádní registrovaní uživatelé a 1 návštěvník

Nemůžete zakládat nová témata v tomto fóru
Nemůžete odpovídat v tomto fóru
Nemůžete upravovat své příspěvky v tomto fóru
Nemůžete mazat své příspěvky v tomto fóru
Nemůžete přikládat soubory v tomto fóru

Přejít na: