mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-02 10:20:55 +11:00
Compare commits
2 Commits
79527976ab
...
05c38424c7
Author | SHA1 | Date | |
---|---|---|---|
|
05c38424c7 | ||
|
4515241318 |
12
drv/acia.fs
12
drv/acia.fs
@ -36,11 +36,15 @@ ACIA_MEM: Address in memory that can be used variables shared
|
||||
;
|
||||
|
||||
: KEY
|
||||
( As long as R> == W>-1, it means that buffer is empty )
|
||||
BEGIN ACIAR> @ 1 + ACIAW> @ = NOT UNTIL
|
||||
|
||||
( inc then fetch )
|
||||
1 ACIAR> +!
|
||||
ACIAR> @ 1 + DUP ACIA) @ = IF
|
||||
DROP ACIA( @
|
||||
THEN
|
||||
|
||||
( As long as R> == W>-1, it means that buffer is empty )
|
||||
BEGIN DUP ACIAW> @ = NOT UNTIL
|
||||
|
||||
ACIAR> !
|
||||
ACIAR> @ C@
|
||||
;
|
||||
|
||||
|
@ -39,11 +39,11 @@ ACIA_IO
|
||||
( advance W> )
|
||||
HL INCss,
|
||||
ACIAW> LD(nn)HL,
|
||||
DE ACIA) @ LDdd(nn),
|
||||
DE ACIA) LDdd(nn),
|
||||
DE SUBHLss,
|
||||
JRNZ, L4 FWR ( skip )
|
||||
( end of buffer reached )
|
||||
ACIA( @ LDHL(nn),
|
||||
ACIA( LDHL(nn),
|
||||
ACIAW> LD(nn)HL,
|
||||
L4 FSET ( skip )
|
||||
L3 FSET L2 FSET ( end )
|
||||
|
@ -236,7 +236,46 @@ But how do we know that it really works? Because we can write in ROM!
|
||||
:30 205b 2049 4e54 4552 [ INTER
|
||||
:38 5052 4554 2031 2046 PRET 1 F
|
||||
|
||||
TODO: continue
|
||||
We're now ready for a re-bootstrap. Here's what we're gonna do:
|
||||
|
||||
1. Bring `CURRENT` and `HERE` back to `0x98f`.
|
||||
2. Set `CINPTR` to `icore`'s `(c<)`.
|
||||
|
||||
`(c<)` word is the main input of the interpreter. Right now, your `(c<)` comes
|
||||
from the `readln` unit, which makes the main `INTERPRET` loop wait for your
|
||||
keystrokes before interpreting your words.
|
||||
|
||||
But this can be changed. At the moment where we change `CINPTR`, the interpret
|
||||
loop will start reading from it, so we'll lose control. That is why we must
|
||||
prepare things carefully before that. We'll re-gain control at the end of the
|
||||
bootstrap source, in `run.fs`, where `(c<)` is set to `readln`'s `(c<)`
|
||||
|
||||
`(c<)` word is the main input of the interpreter. Right now, your `(c<)` comes
|
||||
from the `readln` unit, which makes the main `INTERPRET` loop wait for your
|
||||
keystrokes before interpreting your words.
|
||||
|
||||
But this can be changed. At the moment where we change `CINPTR`, the interpret
|
||||
loop will start reading from it, so we'll lose control. That is why we must
|
||||
prepare things carefully before that. We'll re-gain control at the end of the
|
||||
bootstrap source, in `run.fs`, where `(c<)` is set to `readln`'s `(c<)`.
|
||||
|
||||
At this moment, `icore`'s `(c<)` is shadowed by `readln`, but at the moment
|
||||
`CURRENT` changes, it will be accessible again. However, this all has to change
|
||||
in one shot, so we need to prepare a compiled word for it if we don't want to
|
||||
lose access to our interpret loop in the middle of our operation.
|
||||
|
||||
> : KAWABUNGA!
|
||||
( 60 == (c<) pointer )
|
||||
0x9a0 0x60 RAM+ !
|
||||
0x98f CURRENT !
|
||||
0x98f HERE !
|
||||
( 0c == CINPTR )
|
||||
(find) (c<) DROP 0x0c RAM+ !
|
||||
;
|
||||
|
||||
Ready? Set? KAWABUNGA!
|
||||
|
||||
TODO: make this work...
|
||||
|
||||
[rc2014]: https://rc2014.co.uk
|
||||
[romwrite]: https://github.com/hsoft/romwrite
|
||||
|
Loading…
Reference in New Issue
Block a user