mirror of
https://github.com/hsoft/collapseos.git
synced 2024-12-25 17:48:06 +11:00
recipes/rc2014: stage1 is too big! saving some space
stripfc requires 2 spaces before "(" to strip a comment. This was a low hanging fruit for me to get stage1.bin under the 8K line. That thing is getting tight...
This commit is contained in:
parent
287213fc68
commit
19d94dfb47
@ -29,7 +29,7 @@ ACIA_MEM: Address in memory that can be used variables shared
|
|||||||
|
|
||||||
: ACIA$
|
: ACIA$
|
||||||
H@ DUP DUP ACIA( ! ACIAR> !
|
H@ DUP DUP ACIA( ! ACIAR> !
|
||||||
1+ ACIAW> ! ( write index starts one position later )
|
1+ ACIAW> ! ( write index starts one position later )
|
||||||
ACIABUFSZ ALLOT
|
ACIABUFSZ ALLOT
|
||||||
H@ ACIA) !
|
H@ ACIA) !
|
||||||
( setup ACIA
|
( setup ACIA
|
||||||
@ -42,7 +42,7 @@ ACIA_MEM: Address in memory that can be used variables shared
|
|||||||
|
|
||||||
( setup interrupt )
|
( setup interrupt )
|
||||||
( 4e == INTJUMP )
|
( 4e == INTJUMP )
|
||||||
0xc3 0x4e RAM+ C! ( JP upcode )
|
0xc3 0x4e RAM+ C! ( JP upcode )
|
||||||
['] ~ACIA 0x4f RAM+ !
|
['] ~ACIA 0x4f RAM+ !
|
||||||
(im1)
|
(im1)
|
||||||
;
|
;
|
||||||
|
@ -15,7 +15,7 @@
|
|||||||
DUP <0 IF '-' EMIT -1 * THEN
|
DUP <0 IF '-' EMIT -1 * THEN
|
||||||
_
|
_
|
||||||
BEGIN
|
BEGIN
|
||||||
DUP '9' > IF DROP EXIT THEN ( stop indicator, we're done )
|
DUP '9' > IF DROP EXIT THEN ( stop indicator, we're done )
|
||||||
EMIT
|
EMIT
|
||||||
AGAIN
|
AGAIN
|
||||||
;
|
;
|
||||||
@ -32,7 +32,7 @@
|
|||||||
: .x
|
: .x
|
||||||
256 MOD ( ensure < 0x100 )
|
256 MOD ( ensure < 0x100 )
|
||||||
16 /MOD ( l h )
|
16 /MOD ( l h )
|
||||||
_ EMIT ( l )
|
_ EMIT ( l )
|
||||||
_ EMIT
|
_ EMIT
|
||||||
;
|
;
|
||||||
|
|
||||||
|
@ -33,7 +33,7 @@
|
|||||||
0x22 = NOT IF 2+ EXIT THEN
|
0x22 = NOT IF 2+ EXIT THEN
|
||||||
( it's a lit, skip to null char )
|
( it's a lit, skip to null char )
|
||||||
( a )
|
( a )
|
||||||
1+ ( we skip by 2, but the loop below is pre-inc... )
|
1+ ( we skip by 2, but the loop below is pre-inc... )
|
||||||
BEGIN 1+ DUP C@ NOT UNTIL
|
BEGIN 1+ DUP C@ NOT UNTIL
|
||||||
( skip null char )
|
( skip null char )
|
||||||
1+
|
1+
|
||||||
@ -58,17 +58,17 @@
|
|||||||
)
|
)
|
||||||
DROP
|
DROP
|
||||||
2+ ( o ol a+2 )
|
2+ ( o ol a+2 )
|
||||||
ROT ROT 2DROP ( a )
|
ROT ROT 2DROP ( a )
|
||||||
EXIT
|
EXIT
|
||||||
THEN
|
THEN
|
||||||
ROT ( o a n ol )
|
ROT ( o a n ol )
|
||||||
< IF ( under limit, do nothing )
|
< IF ( under limit, do nothing )
|
||||||
SWAP DROP ( a )
|
SWAP DROP ( a )
|
||||||
ELSE
|
ELSE
|
||||||
( o a )
|
( o a )
|
||||||
SWAP OVER @ ( a o n )
|
SWAP OVER @ ( a o n )
|
||||||
-^ ( a n-o )
|
-^ ( a n-o )
|
||||||
OVER ! ( a )
|
OVER ! ( a )
|
||||||
THEN
|
THEN
|
||||||
ASKIP
|
ASKIP
|
||||||
;
|
;
|
||||||
|
Loading…
Reference in New Issue
Block a user