mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-06 02:20:58 +11:00
440ea43a88
Initially, I used the same letters as those used in the z80 ref docs, but it makes the different assemblers harder to use than they should. Having consistent "argtype" rules across assemblers should help.
13 lines
430 B
Plaintext
13 lines
430 B
Plaintext
( compiled word ) L1 FSET ( execute B301 )
|
|
( 1. Push current IP to RS
|
|
2. Set new IP to the second atom of the list
|
|
3. Execute the first atom of the list. )
|
|
IY PUSH, HL POP, ( <-- IP )
|
|
lblpushRS @ ( pushRS ) CALL,
|
|
EXDEHL, ( HL points to PFA )
|
|
( While we inc, dereference into DE for execute call later. )
|
|
LDDE(HL),
|
|
HL INCd,
|
|
HL PUSH, IY POP, ( --> IP )
|
|
JR, lblexec BWR ( execute-B301 )
|