izaya/collapseos
1
0
Fork 0
mirror of https://github.com/hsoft/collapseos.git synced 2024-11-27 13:28: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 ) ( Splits word into msb/lsb, lsb being on TOS )
: SPLITB : SPLITB
DUP 0x100 / 256 /MOD SWAP
SWAP 0xff AND
; ;
( To debug, change C, to .X ) ( To debug, change C, to .X )
@ -166,7 +165,7 @@
: OP2r : OP2r
CREATE , CREATE ,
DOES> DOES>
@ 256 /MOD ( r lsb msb ) @ SPLITB SWAP ( r lsb msb )
A, ( r lsb ) A, ( r lsb )
SWAP 8 * ( lsb r<<3 ) SWAP 8 * ( lsb r<<3 )
OR A, OR A,