OldComp.cz

Font Restorer od E. Blinka

Obnoví originální basicový font.
Prográmek lze mít v řetězci, v basicovém programu nebo nahrát pomocí LOAD "název" DATA fnt$.
Spuštění: 1. po uložení téměř kamkoliv do 512 KB paměti: POKE adr,fnt$ příkazem CALL adr
nebo 2. napřímo v místě proměnné pomocí CALL LENGTH (0,fnt$)

IN A,(250) ;save lomem
PUSH AF
OR 64 ;Select ROM1
OUT (250),A
LD HL,&ED1E ;rom 1.0 addr : &ED1E
LD A,(15) ;get rom version
CP 10
JR Z,sf1 ;jr for ROM 1.0
LD L,&20
CP 20
JR Z,sf1 ;jr for ROM 2.0
LD L,&39 ;use ROM 3.0 addr
sf1: CALL 5 ;JP (HL)
POP AF
OUT (250),A ;restore lomem
RET

Kód i zdroják pro Comet a Zeus jsou na přiloženém disku.

_________________
// na co myslím, když sedím u oldkompů: Durov