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:
Virgil Dupras 2020-04-17 21:10:48 -04:00
parent 287213fc68
commit 19d94dfb47
3 changed files with 10 additions and 10 deletions

View File

@ -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)
; ;

View File

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

View File

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