OldComp.cz

Komunitní diskuzní fórum pro fanoušky historických počítačů


Právě je 28.03.2024, 09:59

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




Odeslat nové téma Odpovědět na téma  [ Příspěvků: 54 ]  Přejít na stránku Předchozí  1, 2, 3, 4
Autor Zpráva
PříspěvekNapsal: 19.05.2023, 10:53 
Offline
Pan Štábní
Uživatelský avatar

Registrován: 16.03.2017, 11:36
Příspěvky: 1493
Bydliště: Kósek vod Brna
Has thanked: 101 times
Been thanked: 112 times
Paráda, pořád jsem nemohl najít vhodnou EPROMku, toto je dobrý nápad. Je potřeba něco na DPS vzhledem k nadbytečnému pinu adresy?

//Už to vidím, prostě se to nahraje na vyšší polovinu EEPROM, A15 bude na +5V

_________________
TEMS-49, PMI-80, rep. MK14, ZX81, ZXspectrum+, TI58, MZ-800


Nahoru
 Profil  
 
PříspěvekNapsal: 19.05.2023, 11:31 
Offline
Profík

Registrován: 21.10.2018, 08:27
Příspěvky: 559
Has thanked: 278 times
Been thanked: 139 times
Není, jen jsem pro jistotu obsah vypálil 2x, od adresy 0 a pak znovu od adresy 8000, aby mi bylo jedno, na jaký potenciál je A15 zavěšená.


Nahoru
 Profil  
 
PříspěvekNapsal: 22.05.2023, 19:40 
Offline
Pan Štábní
Uživatelský avatar

Registrován: 16.03.2017, 11:36
Příspěvky: 1493
Bydliště: Kósek vod Brna
Has thanked: 101 times
Been thanked: 112 times
Hlásím dobytí K12!


Přílohy:
My12forth.jpg
My12forth.jpg [ 34.24 KiB | Zobrazeno 2573 krát ]

_________________
TEMS-49, PMI-80, rep. MK14, ZX81, ZXspectrum+, TI58, MZ-800
Nahoru
 Profil  
 
PříspěvekNapsal: 29.05.2023, 09:22 
Offline
Pan Štábní

Registrován: 11.11.2013, 10:29
Příspěvky: 1198
Has thanked: 359 times
Been thanked: 304 times
Uvazujete nekdo o pokracovani projektu?
Příloha:
forthdeck.jpg
forthdeck.jpg [ 17.63 KiB | Zobrazeno 2443 krát ]
http://mynor.org/my4th_forthdeck.htm
Ty desky jsou uz trochu vetsi, tak je otazka, kolik by bylo zajemcu. Vytisknout krabicku by asi nebyl problem.

_________________
Sharp MZ-800++, MZ-1500++, MZ-2500++, SM-B-80T, MK-14_replica, HP-85, ZX-80+replica, ZX81, ZX-Spectrum+replica++, PMI-80+replica, SAM coupe++, PMD-85-2A+3, Didaktik-M, SORD-M5, TI-57, TI-59+PC-100, TI99/4A, ZetaV2+ppp, ZX-uno, Petr


Nahoru
 Profil  
 
PříspěvekNapsal: 27.06.2023, 09:56 
Offline
Kecka

Registrován: 27.06.2021, 11:11
Příspěvky: 39
Has thanked: 16 times
Been thanked: 12 times
Zdravím, nezbyla prosím někomu ještě jedna deska na My4TH?


Nahoru
 Profil  
 
PříspěvekNapsal: 25.01.2024, 07:01 
Offline
Pan Štábní
Uživatelský avatar

Registrován: 16.03.2017, 11:36
Příspěvky: 1493
Bydliště: Kósek vod Brna
Has thanked: 101 times
Been thanked: 112 times
S novým terminálem jsem se jal zabývati FORTHem na platformě My4TH. Ta koncepce mě sedí, zejména doplňkové funkce k ukládání stránek do EEPROM. Potřeboval bych ale poradit, jakým způsobem vypsat pouze mnou definovaná slova, která jsou v RAMce, nikoli několikastránkový výpis po příkazu WORDS, který vypíše všechna slova.

horvac: jednu desku mám, ale ta je už dlouho rezervovaná pro autora tohoto vlákna Pavla Křivánka, čímž ho prosím, aby se vyjádřil, má li o tuto desku zájem a případně dodal data k zaslání do SZ.

Ve zdrojáku je o tom zmínka, ale nevyčetl jsem z toho, jak se to aktivuje, aby to vypsalo jen words z RAMky

Kód:
            ; WORDS  ( -- )
            DW   e_words
            DB   5,"words"
c_words     PHL
;#if defined(PLATFORM_XS) && !defined(ROM_16KB)
            ;print list of words in ROM
            LD   R2,#100
            LD   R1,#1
_cwords01   JSR  chooseDictionary
            LAP
            STA  R6_L
            INC__PTR_L
            LAP
            STA  R6_H
            ;loop over all dictionary entries
            ;R6 points to the header of the current word.
_cwords02   JSR  ld_ptr_r6
            JSR__lap_inc_ptr
            STA  R6_L
            JSR__lap_inc_ptr
            STA  R6_H       ;R6: ptr to next entry in the dictionary
            JSR__lap_inc_ptr
            AND  #0x1F      ;mask out bits 5-7, they are FLAGs for other purposes
            STA  R0         ;string length
            TST  R0
            JPF   _cwords03 ;jump if end of dictionary
            LDA  PTR_H
            ROL
            JPF  _cwords02  ;skip all words in RAM
            JSR  _cwords15  ;print the word
            JMP  _cwords02
_cwords03   ;next dictionary
            INC  R1
            LDA  #9
            CMP  R1
            JNF  _cwords01
            ;----------------------------------------------
            ;Print list of words in RAM in the order they were defined by the user:
_cwords04   ;Walk through the whole dictionary. Look only for entries in RAM.
            ;Find the next entry, who's address is bigger than the last printed
            ;but is the lowest of the remaining addresses.
            ;R7: Address of last printed word. All new addresses must be higher.
            LD   R7_L,#0x00
            LD   R7_H,#0x80
_cwords06   ;Walk through the whole dictionary. Skip words in ROM.
            ;R6: smallest address in dictionary that is still higher than R7
            LD   R6_L,#0xFF
            LD   R6_H,#0xFF
            LD   R1,#0 ;flag: true if a word to print was found
            LD   R4_L,#<DICTA
            LD   R4_H,#REGPAGE_HI
_cwords07   JSR  ld_ptr_r4
            ;check if this dictionary pointer points into RAM
            JSR__lap_inc_ptr
            STA  R5_L
            LAP
            STA  R5_H

_________________
TEMS-49, PMI-80, rep. MK14, ZX81, ZXspectrum+, TI58, MZ-800


Nahoru
 Profil  
 
PříspěvekNapsal: 25.01.2024, 10:38 
Offline
Kecka

Registrován: 27.06.2021, 11:11
Příspěvky: 39
Has thanked: 16 times
Been thanked: 12 times
microlan: děkuji ale mezitím mě obdaroval Martin8bity kterému tímto také děkuji :-)


Nahoru
 Profil  
 
PříspěvekNapsal: 25.01.2024, 13:43 
Offline
Pan Štábní

Registrován: 11.11.2013, 10:29
Příspěvky: 1198
Has thanked: 359 times
Been thanked: 304 times
microlan píše:
...výpis po příkazu WORDS...
Potiz by mohla byt v tom, ze ta sekce _cwords04 jde az po tech predchozich. Nejak se tam prochazi temi slovniky, ktere by bylo asi potreba preskocit. IMHO se nepocita s tiskem slovniku v RAM, aniz by se pred tim nevytisky ty v ROM. Mozna nejakou upravou src?

_________________
Sharp MZ-800++, MZ-1500++, MZ-2500++, SM-B-80T, MK-14_replica, HP-85, ZX-80+replica, ZX81, ZX-Spectrum+replica++, PMI-80+replica, SAM coupe++, PMD-85-2A+3, Didaktik-M, SORD-M5, TI-57, TI-59+PC-100, TI99/4A, ZetaV2+ppp, ZX-uno, Petr


Nahoru
 Profil  
 
PříspěvekNapsal: 25.01.2024, 13:45 
Offline
Pan Štábní
Uživatelský avatar

Registrován: 16.03.2017, 11:36
Příspěvky: 1493
Bydliště: Kósek vod Brna
Has thanked: 101 times
Been thanked: 112 times
Ještě je tam volba slovníku, ale nemůžu ten cíl najít.

Kód:
_cwords01   JSR  chooseDictionary


Taky nic, slovník je řazen podle délky slov pro rychlejší hledání.

Nechápu to, podle zdrojáku by měl podle délky nejdříve vypsat všechna slova z ROMky a pak vypsat všechna slova z RAMky v pořadí v jakém byly definovány, ale mě to seřadí všechno podle délky.

_________________
TEMS-49, PMI-80, rep. MK14, ZX81, ZXspectrum+, TI58, MZ-800


Nahoru
 Profil  
 
Zobrazit příspěvky za předchozí:  Seřadit podle  
Odeslat nové téma Odpovědět na téma  [ Příspěvků: 54 ]  Přejít na stránku Předchozí  1, 2, 3, 4

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 9 návštevní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

Hledat:
Přejít na:  
Založeno na phpBB® Forum Software © phpBB Group
Český překlad – phpBB.cz