瀏覽代碼

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...
pull/102/head
Virgil Dupras 4 年之前
父節點
當前提交
19d94dfb47
共有 3 個文件被更改,包括 10 次插入10 次删除
  1. +2
    -2
      drv/acia.fs
  2. +2
    -2
      forth/fmt.fs
  3. +6
    -6
      forth/link.fs

+ 2
- 2
drv/acia.fs 查看文件

@@ -29,7 +29,7 @@ ACIA_MEM: Address in memory that can be used variables shared

: ACIA$
H@ DUP DUP ACIA( ! ACIAR> !
1+ ACIAW> ! ( write index starts one position later )
1+ ACIAW> ! ( write index starts one position later )
ACIABUFSZ ALLOT
H@ ACIA) !
( setup ACIA
@@ -42,7 +42,7 @@ ACIA_MEM: Address in memory that can be used variables shared

( setup interrupt )
( 4e == INTJUMP )
0xc3 0x4e RAM+ C! ( JP upcode )
0xc3 0x4e RAM+ C! ( JP upcode )
['] ~ACIA 0x4f RAM+ !
(im1)
;


+ 2
- 2
forth/fmt.fs 查看文件

@@ -15,7 +15,7 @@
DUP <0 IF '-' EMIT -1 * THEN
_
BEGIN
DUP '9' > IF DROP EXIT THEN ( stop indicator, we're done )
DUP '9' > IF DROP EXIT THEN ( stop indicator, we're done )
EMIT
AGAIN
;
@@ -32,7 +32,7 @@
: .x
256 MOD ( ensure < 0x100 )
16 /MOD ( l h )
_ EMIT ( l )
_ EMIT ( l )
_ EMIT
;



+ 6
- 6
forth/link.fs 查看文件

@@ -33,7 +33,7 @@
0x22 = NOT IF 2+ EXIT THEN
( it's a lit, skip to null char )
( 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
( skip null char )
1+
@@ -58,17 +58,17 @@
)
DROP
2+ ( o ol a+2 )
ROT ROT 2DROP ( a )
ROT ROT 2DROP ( a )
EXIT
THEN
ROT ( o a n ol )
< IF ( under limit, do nothing )
< IF ( under limit, do nothing )
SWAP DROP ( a )
ELSE
( o a )
SWAP OVER @ ( a o n )
-^ ( a n-o )
OVER ! ( a )
SWAP OVER @ ( a o n )
-^ ( a n-o )
OVER ! ( a )
THEN
ASKIP
;


Loading…
取消
儲存