This website works better with JavaScript.
Home
Explore
lain.church
Help
Register
Sign In
izaya
/
collapseos
mirror of
https://github.com/hsoft/collapseos.git
Watch
1
Star
1
Fork
0
Code
Issues
0
Releases
0
Wiki
Activity
Browse Source
forth: slightly improve assembler
pull/95/head
Virgil Dupras
4 years ago
parent
ab98e9bcd1
commit
8d8e1d93da
2 changed files
with
2 additions
and
3 deletions
Split View
Diff Options
Show Stats
Download Patch File
Download Diff File
BIN
emul/forth/z80c.bin
+2
-3
forth/z80a.fs
BIN
emul/forth/z80c.bin
View File
+ 2
- 3
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,
Write
Preview
Loading…
Cancel
Save