izaya
/
collapseos
mirror of https://github.com/hsoft/collapseos.git
1
0
Fork 0
Code Issues Releases Wiki Activity
collapseos/blk/308

17 lines
416 B
Plaintext
Raw Normal View History

Extract (n) code from stable ABI
2020-07-06 04:13:01 +10:00
CODE ROT ( a b c -- b c a )
z80: Use BC as IP register instead of IY 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.
2020-07-07 13:31:00 +10:00
HL POP, ( C ) DE POP, ( B ) IY POP, ( A ) chkPS,
DE PUSH, ( B ) HL PUSH, ( C ) IY PUSH, ( A )
Extract (n) code from stable ABI
2020-07-06 04:13:01 +10:00
;CODE
Add word ROT> There are many situations where it can be useful. Worth it.
2020-10-30 03:34:02 +11:00
CODE ROT> ( a b c -- c a b )
HL POP, ( C ) DE POP, ( B ) IY POP, ( A ) chkPS,
HL PUSH, ( C ) IY PUSH, ( A ) DE PUSH, ( B )
;CODE
Extract (n) code from stable ABI
2020-07-06 04:13:01 +10:00
CODE DUP ( a -- a a )
HL POP, chkPS,
HL PUSH, HL PUSH,
;CODE
CODE ?DUP
Add word ROT> There are many situations where it can be useful. Worth it.
2020-10-30 03:34:02 +11:00
HL POP, chkPS, HL PUSH,
Extract (n) code from stable ABI
2020-07-06 04:13:01 +10:00
HLZ, IFNZ, HL PUSH, THEN,
;CODE