izaya/collapseos
1
0
Fork 0
mirror of https://github.com/hsoft/collapseos.git synced 2024-12-28 08:08:05 +11:00
Code Issues Releases Wiki Activity

forth: slightly improve assembler

Browse Source
This commit is contained in:
Virgil Dupras 2020-03-28 09:39:24 -04:00
parent ab98e9bcd1
commit 8d8e1d93da
2 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
emul/forth/z80c.bin
View File

Binary file not shown.

5
forth/z80a.fs
View 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,