mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-27 11:28:05 +11:00
e4a4a9800d
It's a bit more inconvenient in terms of register protection (BC is much more generally useful than IY), but it makes tight spots such as next and execute much faster, so I think it's worth it.
10 lines
304 B
Plaintext
10 lines
304 B
Plaintext
CODE (n) ( number literal )
|
|
PC ORG @ 0x25 + ! ( stable ABI JP )
|
|
( Literal value to push to stack is next to (n) reference
|
|
in the atom list. That is where IP is currently pointing.
|
|
Read, push, then advance IP. )
|
|
LDA(BC), L A LDrr, BC INCd,
|
|
LDA(BC), H A LDrr, BC INCd,
|
|
HL PUSH,
|
|
;CODE
|