<html><body><br>Ahoj Mikeši,<br>rozdíl je ten, že nevím, jaké máte poslední API na unikartě. Michal Hučík mi upravoval kód na staré unikartě, aby se nenuloval aktuální adresář po dočtení souboru, a možná nějaké další drobnosti.<br><br>Vašek<br><br><br><blockquote data-email="Michal.Bruntal@seznam.cz">Ahoj,<br><br>tak jsem zkoumal ten kod. Nejak nechapu v cem by mela byt ten rozdil mezi starsi/upravenym a novym modelem? Vzdyt to klasicky otevre soubor nacte hlavicku, pak telo a otestuje errory.<br>Takto vlastne musis upravit prvni dil programu/hry tak, aby si pres API 
unikarty otevrel a nacetl druhy dil. A pak dal a dal. A co teda vlastne 
dela ta uprava fw jinak?<br>Obavam se, ze na MZT souboru, ktery ma vice casti to nepujde pouzit. Musel by jsi udelat seek na pokracovani v souboru. Treba takova hra jako Yokai_A.mzt a Yokai_B.mzt, to by byl asi orisek, predelat, protoze kazda cast ma jeste nekolik dilu:<br>File: ..\MZT2\Yokai_A.mzt<br>Directory of MZT:&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; size load exec<br>&nbsp;OBJ&nbsp; "SIDE A"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; :` 48640 Bytes&nbsp;&nbsp;&nbsp; BE00 1200 1200<br>&nbsp;OBJ&nbsp; "DEMO"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; :`&nbsp; 6784 Bytes&nbsp;&nbsp;&nbsp; 1A80 1200 2C66<br>Length of data: 55424 Bytes.<br><br>File: ..\MZT2\Yokai_B.mzt<br>Directory of MZT:&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; size load exec<br>&nbsp;OBJ&nbsp; "YOUKAI V1.1"&nbsp;&nbsp;&nbsp;&nbsp; :` 36718 Bytes&nbsp;&nbsp;&nbsp; 8F6E 1200 A155<br>&nbsp;OBJ&nbsp; "MAP 8"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; :`&nbsp; 6656 Bytes&nbsp;&nbsp;&nbsp; 1A00 9600 E804<br>Length of data: 43374 Bytes.<br><br>Jinak posledni update fw pro unikartu to resi prohazovanim image QD postupne na dalsi a dalsi, ale je potreba, aby programy bud nahravaly dalsi casti z QDisku nebo cekaly na prohozeni disketek. Vzhledem k tomu, ze vetsina programu pouziva rutiny z monitoru, tak je to resitelne. Akorat je tu problem s adresama QD radice, ale to je jina story.<br>Vyhoda je, ze se nemusi 'patchovat' kazda hra nebo BASICove programy.<br><br>Mikes<br><br><aside>
---------- Původní e-mail ----------<br>
Od: Vaclav Peroutka &lt;vaclavpe@seznam.cz&gt;<br>
Komu: Počítače SHARP MZ a jejich emulátory &lt;sharpmz@mail.ordoz.com&gt;<br>
Datum: 22. 1. 2018 22:10:32<br>
Předmět: [SharpMZ] Business World - nahrávání z Unikarty
</aside><br><blockquote data-email="vaclavpe@seznam.cz">Ahoj,<br><br>jak jsem psal minulý týden, tak se mi nepovedlo upravit BW1.MZF tak, abych mohl hru Business World nahrát z unikarty. Tak to už neplatí, kód, který je přiložen níže, se dá použít pro nahrávání vícesouborových her - ale pouze těch, co si otevírají v emulátoru CMT PATCH. Tj.pokud v loaderu není nahrávání obrázků nebo podobná zvěrstva.<br><br>U hry BW je ještě taková specialitka, že se nesmí sáhnout na zásobník - proto jsou zakomentované všechny CALLy.<br><br>Nevím popravdě, jak to funguje na Vašich novějších unikartách, já používám ten starší model můj a kód Michalův.<br><br>Vašek<br><br>mainprg:&nbsp;&nbsp; <br>&nbsp; ;;;;;;;;;;;;;;;;;;;;;;; precteme par byte z filata<br>&nbsp; <br>&nbsp;&nbsp;&nbsp;&nbsp; ;ld de, txt1<br>&nbsp;&nbsp;&nbsp; ;call 0x0015&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; ; zobrazit text z DE<br>&nbsp;<br>&nbsp;&nbsp;&nbsp; ; otevreme soubor<br>&nbsp;&nbsp;&nbsp; ld a, cmdOPEN<br>&nbsp;&nbsp;&nbsp; out (CMDPORT), a<br><br>&nbsp;&nbsp;&nbsp; ; Exstujici soubor pro cteni<br>&nbsp;&nbsp;&nbsp; ld a, FA_OPEN_EXISTING + FA_READ<br>&nbsp;&nbsp;&nbsp; out (DATAPORT), a<br><br>&nbsp;&nbsp;&nbsp; ; Druhym parametrem je jmeno souboru<br>&nbsp;&nbsp; ld&nbsp;&nbsp;&nbsp; e, 0x00 ; konec jmena soubor<br>&nbsp;&nbsp;&nbsp; ld hl, filename<br>&nbsp;&nbsp;&nbsp; ld&nbsp;&nbsp;&nbsp; c, DATAPORT<br>next_char:<br>&nbsp;&nbsp;&nbsp; outi<br>&nbsp;&nbsp;&nbsp; ld&nbsp;&nbsp;&nbsp; a, (hl)<br>&nbsp;&nbsp;&nbsp; cp&nbsp;&nbsp;&nbsp; e<br>&nbsp;&nbsp;&nbsp; jr&nbsp;&nbsp;&nbsp; nz, next_char<br>&nbsp;&nbsp; <br>&nbsp;&nbsp;&nbsp; ; Podarilo se nam soubor otevrit?<br>&nbsp;&nbsp;&nbsp; ;<br>&nbsp;&nbsp;&nbsp; ; (Pokud je vse OK, tak ted mame ve statusu nastaveny<br>&nbsp;&nbsp;&nbsp; ; bity READ_FILE, WRITE_FILE a EOF.)<br>&nbsp;&nbsp;&nbsp; ;<br>&nbsp;&nbsp;&nbsp; in a,(CMDPORT)<br>&nbsp;&nbsp;&nbsp; bit 0, a&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; ; je READY ?<br>&nbsp;&nbsp;&nbsp; jr nz, ERROR_PARAM&nbsp;&nbsp;&nbsp; ; NENI: tohle muze nastat jen pokud<br>&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; ; jsme zapomneli ukoncit vkladani <br>&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; ; textoveho parametru znakem mensim jak 0x20<br>&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <br>&nbsp;&nbsp;&nbsp; and 0x80<br>&nbsp;&nbsp;&nbsp; jr nz,ERROR_OPEN&nbsp;&nbsp;&nbsp; ; ne, doslo k chybe pri OPEN<br><br>&nbsp;&nbsp; ; pripravili jsme si v unikarte MZF, tak nacteme jeho hlavicku<br>&nbsp;&nbsp; ld bc, 0x8051&nbsp;&nbsp;&nbsp; ; cteme 128 bajt z DATA_PORTu<br>&nbsp;&nbsp; ld hl, 0x10f0&nbsp;&nbsp;&nbsp; ; a ukladame to na 0x10f0<br>&nbsp;&nbsp; inir<br><br>&nbsp;&nbsp; ; podle udaju z hlavicky si nacteme z DATA_PORTu telo na adresu 0x1200<br>&nbsp;&nbsp; ld hl, 0x1200<br>&nbsp;&nbsp; ld de, (0x10f0 + 0x12 )<br>rdbyte:&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ini<br>&nbsp;&nbsp; dec de<br>&nbsp;&nbsp; ld a,d<br>&nbsp;&nbsp; or e<br>&nbsp;&nbsp; jr nz, rdbyte<br>&nbsp;&nbsp; ; zavrit soubor<br>&nbsp;&nbsp; ld a,cmdCLOSE<br>&nbsp;&nbsp; out (CMDPORT),a<br><br>&nbsp;&nbsp; out&nbsp;&nbsp; (0xe0),A&nbsp; ; zrusi spodni ROM a primapuje RAM<br>&nbsp;&nbsp; jp&nbsp;&nbsp;&nbsp; 0x0000 ; skoci do RAMky, kde uz je pripravena BW1<br>&nbsp;&nbsp; <br><br>ERROR_PARAM:<br>&nbsp;&nbsp;&nbsp; ld de, msg_err_param<br>&nbsp;&nbsp;&nbsp; call 0x0015&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; ; zobrazit text z HL<br>&nbsp;&nbsp;&nbsp; di<br>&nbsp;&nbsp;&nbsp; halt<br><br>ERROR_OPEN:<br>&nbsp;&nbsp;&nbsp; ld de, msg_err_open<br>&nbsp;&nbsp;&nbsp; jr print_errcode<br><br>;ERROR_SEEK:<br>;&nbsp;&nbsp;&nbsp; ld de, msg_err_seek<br><br>print_errcode:<br>&nbsp;&nbsp;&nbsp; call 0x0015&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; ; zobrazit text z HL<br>&nbsp;&nbsp;&nbsp; in a,(CMDPORT)&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; ; kod posledniho prikazu<br>&nbsp;&nbsp;&nbsp; in a,(CMDPORT)&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; ; unicard err code <br>&nbsp;&nbsp;&nbsp; in a,(CMDPORT)&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; ; FatFS err code<br><br>&nbsp;&nbsp;&nbsp; call 0x03c3&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; ; zobrazit obsah A<br>&nbsp;&nbsp;&nbsp; di<br>&nbsp;&nbsp;&nbsp; halt<br>&nbsp;&nbsp;&nbsp; <br>msg_err_param:<br>&nbsp;&nbsp;&nbsp; db&nbsp;&nbsp;&nbsp; "ERROR: BP!",0x0d<br>msg_err_open:<br>&nbsp;&nbsp;&nbsp; db&nbsp;&nbsp;&nbsp; "OPEN ERROR: ",0x0d<br>;msg_err_seek:<br>;&nbsp;&nbsp;&nbsp; db&nbsp;&nbsp;&nbsp; "SEEK - ERROR CODE: ",0x0d<br><br>&nbsp;&nbsp; <br>txt1: db "OPENING "&nbsp; ; doplni se filename automagicky<br>filename:&nbsp; db&nbsp;&nbsp;&nbsp; "BW.DAT",0x0d, 0x00<br>txt2: db " OK",0x0d<br><br><br><br>_______________________________________________
<br>SharpMZ mailing list
<br>SharpMZ@mail.ordoz.com
<br>http://mail.ordoz.com/mailman/listinfo/sharpmz
<br></blockquote>_______________________________________________
<br>SharpMZ mailing list
<br>SharpMZ@mail.ordoz.com
<br>http://mail.ordoz.com/mailman/listinfo/sharpmz
<br></blockquote></body></html>