mirror of
https://github.com/hsoft/collapseos.git
synced 2024-12-26 05:28:05 +11:00
boot: use CODE where possible
Now that we use xcomp unit, boot entry creation can be a bit cleaner.
This commit is contained in:
parent
a56ace4d3e
commit
f6727f8e34
@ -51,7 +51,7 @@ NOP, ( unused )
|
|||||||
'E' A, 'X' A, 'I' A, 'T' A,
|
'E' A, 'X' A, 'I' A, 'T' A,
|
||||||
0 A,, ( prev )
|
0 A,, ( prev )
|
||||||
4 A,
|
4 A,
|
||||||
L1 BSET ( EXIT, 0x43 )
|
H@ XCURRENT ! ( set current tip of dict, 0x43 )
|
||||||
0x17 A, ( nativeWord )
|
0x17 A, ( nativeWord )
|
||||||
0x14 CALLnn, ( popRS )
|
0x14 CALLnn, ( popRS )
|
||||||
HL PUSHqq, IY POPqq, ( --> IP )
|
HL PUSHqq, IY POPqq, ( --> IP )
|
||||||
@ -59,11 +59,7 @@ L1 BSET ( EXIT, 0x43 )
|
|||||||
|
|
||||||
NOP, NOP, NOP, NOP, ( unused )
|
NOP, NOP, NOP, NOP, ( unused )
|
||||||
|
|
||||||
'(' A, 'b' A, 'r' A, ')' A,
|
CODE (br) ( 0x58 )
|
||||||
PC L1 @ - A,, ( prev )
|
|
||||||
4 A,
|
|
||||||
L1 BSET ( BR )
|
|
||||||
0x17 A, ( nativeWord )
|
|
||||||
L2 BSET ( used in CBR )
|
L2 BSET ( used in CBR )
|
||||||
E 0 IY+ LDrIXY,
|
E 0 IY+ LDrIXY,
|
||||||
D 1 IY+ LDrIXY,
|
D 1 IY+ LDrIXY,
|
||||||
@ -72,11 +68,7 @@ L2 BSET ( used in CBR )
|
|||||||
|
|
||||||
NOP, NOP, NOP, NOP, ( unused )
|
NOP, NOP, NOP, NOP, ( unused )
|
||||||
|
|
||||||
'(' A, '?' A, 'b' A, 'r' A, ')' A,
|
CODE (?br) ( 0x70 )
|
||||||
PC L1 @ - A,, ( prev )
|
|
||||||
5 A,
|
|
||||||
H@ XCURRENT ! ( set current tip of dict )
|
|
||||||
0x17 A, ( nativeWord )
|
|
||||||
HL POPqq,
|
HL POPqq,
|
||||||
chkPS,
|
chkPS,
|
||||||
A H LDrr,
|
A H LDrr,
|
||||||
|
Loading…
Reference in New Issue
Block a user