izaya/collapseos
1
0
Fork 0
mirror of https://github.com/hsoft/collapseos.git synced 2024-12-26 06:28:08 +11:00
Code Issues Releases Wiki Activity

boot: use CODE where possible

Browse Source 
Now that we use xcomp unit, boot entry creation can be a bit
cleaner.
This commit is contained in:
Virgil Dupras 2020-04-15 20:15:24 -04:00
parent a56ace4d3e
commit f6727f8e34
1 changed files with 3 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
forth/boot.fs
View File

@ -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,