Nedávno se mě autor Esxdosu ptal, jestli nevím o nějaké rutině detekující typ ZX romky. O ničem takovém nevím, inu tak jsem se úkolu ujal sám. Úkolem bylo napsat pokud možno co nejkratší rutinu, která vrátí typ romky. V době, kdy se detekce spouští, je nastavený USR0 režim se 48rom (OUT 8189,4 + OUT 32765,16). Ušetřit by se dalo tím, pokud by šlo romku rozpoznat jen z aktuálně nastavené romky a bez jakéhokoli dalšího stránkování. Vzal jsem ty nejběžnější originální typy romek a vykradl z nich 16kB část se 48basicem. Pak už jen probíhalo dlouhé porovnánání obsahu jednotlivých binárek. A jak jsem zjistil, opravdu se u každého typu romky liší i blok se 48rom. Napsal jsem tedy celkem krátkou rutinu, ale k odzkoušení už nedošlo. Přesto věřím, že fungovat bude.
Rutina detekuje:
ZX 48 rom
ZX 128 rom
ZX 128+2 rom english
ZX 128+2 rom spanish
ZX 128+2 rom french
ZX 128+3 rom v4.0 eng
ZX 128+3 rom v4.0 spanish
ZX 128+3 rom v4.1
Ale asi lepší řešení by bylo udělat kontrolní součet a podle výsledku označit rom.
Ale když už jsem se s tím psal, tak tady je:
Kód:
Here is small routine for detect zx rom type from 48basic rom. Not tested...
I compare 48rom pages from all original zx roms. Only original ZX Spectrum 48 contain byte #BF at address (#004B). If byte is different, then it's not Spectrum48...
Next test detect +2A/+3 models(roms). On all +3 roms are at address (#0013 and #0014) different bytes than #FF...
Last test detect ZX128 and all +2 roms at address (#09AC).
Routine return value B=0-7 for ZX model/rom type or B=255 for unknown model. Routine is small, but detection will correct only on original ZX roms. On modified ZX roms can be all different....
LD BC,#1FFD
LD A,#4
OUT (C),A
LD B,#7F
LD A,#10
OUT (C),A
LD B,0
LD A,(#4B)
CP #BF
RET Z ;B=0 FOR ZX48ROM
INC B
LD A,(#13)
CP #A7
RET Z ;B=1 FOR ZX128+3_V40_ENGLISH
INC B
LD A,(#14)
CP #FC
RET Z ;B=2 FOR ZX128+3_V40_SPANISH
INC B
CP #15
RET Z ;B=3 FOR ZX123+3_V41
INC B
LD A,(#9AC)
CP #2C
RET Z ;B=4 FOR ZX128_ORIGINAL
INC B
CP #26
RET Z ;B=5 FOR ZX128+2_ENGLISH
INC B
CP #43
RET Z ;B=6 FOR ZX128+2_FRENCH
INC B
CP #79
RET Z ;B=7 FOR ZX128+2_SPANISH
LD B,255
RET ;B=255 FOR UNKNOWN ROM
Přihlásit se
Registrovat
OC Wiki 
OC GitHub 
FAQ
Hledat
