izaya/collapseos
1
1
Forka 0
Codice Problemi Pull Requests Rilasci Wiki Attività

forth: slightly improve assembler

Sfoglia il codice sorgente
This commit is contained in:
Virgil Dupras 2020-03-28 09:39:24 -04:00
parent ab98e9bcd1
commit 8d8e1d93da
2 ha cambiato i file con 2 aggiunte e 3 eliminazioni
Mostra statistiche Scarica il file Patch Scarica il file Diff Expand all files Collapse all files

BIN
emul/forth/z80c.bin
Vedi File

File binario non mostrato.

5
forth/z80a.fs
Vedi File

@ -2,8 +2,7 @@
( Splits word into msb/lsb, lsb being on TOS )
: SPLITB
DUP 0x100 /
SWAP 0xff AND
256 /MOD SWAP
;
( To debug, change C, to .X )
@ -166,7 +165,7 @@
: OP2r
CREATE ,
DOES>
@ 256 /MOD ( r lsb msb )
@ SPLITB SWAP ( r lsb msb )
A, ( r lsb )
SWAP 8 * ( lsb r<<3 )
OR A,