mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-06 08:00:55 +11:00
3d2dc041fb
Instead of having wordref point to core word routines, I made them into word 4 word types. It liberates space into the stable ABI and should make porting to other arches easier. I'm also thinking of combining word type with the namelen field for precious bytes saving, but not now...
16 lines
432 B
Plaintext
16 lines
432 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 PUSHqq, HL POPqq, ( <-- IP )
|
|
L4 @ ( pushRS ) CALLnn,
|
|
EXDEHL, ( HL points to PFA )
|
|
( While we inc, dereference into DE for execute call later. )
|
|
LDDE(HL),
|
|
HL INCss,
|
|
HL PUSHqq, IY POPqq, ( --> IP )
|
|
JR, L3 BWR ( execute-B301 )
|
|
|
|
|
|
|