OldComp.cz

Ahoj,
nemohu v ROM ZX Spectra nalézt rutinu, která by po nalezení číselné proměnné podprogramem LOOK-VARS (#28B2) přesunula hodnotu proměnné (5 bajtů) na zásobník kalkulátoru. Ano, mohu to načíst do registrů AEDCB a pomocí STK-STORE (#2AB6) ji tam přesunout, ale někde by to ROMka měla umět taky.
Tak jestli někdo nevíte kde to interpretr Basicu dělá.
Díky Hroudik

_________________
ZX Spectrum+ 48 kB s D40 nebo divIDE 57c, MB03+, popřípadě Fuse a teď nově LNX

Nebo to možná udělat pomoci MOVE-FP (#33C0) ?
(Jak si tu povídám a píši, tak mě napadlo hledat v ROM MOVE ...)

_________________
ZX Spectrum+ 48 kB s D40 nebo divIDE 57c, MB03+, popřípadě Fuse a teď nově LNX

Tak už jsem to asi nalezl. Prohledám proměnné pomocí LOOK-VARS, pokud naleznu, tak HL ukazuje na bajt před hodnotou FP proměnné.
kód by pak vypadal takto:
INC HL ;aby HL ukazoval na první bajt FP
LD BC,5 ; přesouvat se bude 5 bajtů
CALL STACK-NUM #33B4 ; STACK-NUM si nastaví DE na STKEND a zavolá MOVE-FP a pak updatuje STKEND

_________________
ZX Spectrum+ 48 kB s D40 nebo divIDE 57c, MB03+, popřípadě Fuse a teď nově LNX

Tak jak jsem si to teď celé trasoval, tak to lze ještě trochu jednodušeji:

CALL LOOK-VARS ; pokud nalezeno, HL ukazuje na konec názvu proměnné
INC HL ; HL ukazuje na začátek FP čísla
CALL STACK-NUM ;BC se v podprogramech nastaví na 5 a DE se nastaví na STKEND, FP číslo se přenese na zásobník kalkulátoru a STKEND se nastaví na jeho nový konec

_________________
ZX Spectrum+ 48 kB s D40 nebo divIDE 57c, MB03+, popřípadě Fuse a teď nově LNX