mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-02 08:20:57 +11:00
Compare commits
2 Commits
6c51ea1ebb
...
ee79df225e
Author | SHA1 | Date | |
---|---|---|---|
|
ee79df225e | ||
|
efed0e249e |
@ -42,7 +42,7 @@ close the binary with a hook word. We're finished with cross-compiling.
|
|||||||
|
|
||||||
We're at the offset that will be `CURRENT` on boot, so we update `LATEST`.
|
We're at the offset that will be `CURRENT` on boot, so we update `LATEST`.
|
||||||
|
|
||||||
Then, we spit the course code that will be interpreted by stage 1 on boot so
|
Then, we spit the source code that will be interpreted by stage 1 on boot so
|
||||||
that it bootstraps itself to a full interpreter. Not all units are there
|
that it bootstraps itself to a full interpreter. Not all units are there
|
||||||
because they don't fit in 8K, but they're sufficient for our needs. We also
|
because they don't fit in 8K, but they're sufficient for our needs. We also
|
||||||
need the linker so that we can relink ourselves to stage 2.
|
need the linker so that we can relink ourselves to stage 2.
|
||||||
@ -77,3 +77,14 @@ You're looking at the offset of the last wordref of the *previous* LOAD
|
|||||||
operation. That offset is going in `XCURRENT`. Then, you're looking at the end
|
operation. That offset is going in `XCURRENT`. Then, you're looking at the end
|
||||||
of that word. That offset goes in `HERE`. Once you've done that, relaunch your
|
of that word. That offset goes in `HERE`. Once you've done that, relaunch your
|
||||||
LOAD.
|
LOAD.
|
||||||
|
|
||||||
|
### Verifying
|
||||||
|
|
||||||
|
You can use `/tools/memdump` to dump the memory between your begin/end offsets
|
||||||
|
so that you can compare against your reference stage 1. Before you do, you have
|
||||||
|
to take yourself out of xcomp mode. First, run `XCOFF` to go back to your
|
||||||
|
regular dict. Then, run `FORGET CODE` to undo the xcomp overrides you've added
|
||||||
|
before. That will rewind `HERE`. You don't want that. Put `HERE` back to after
|
||||||
|
your ending offset so that you don't overwrite your binary.
|
||||||
|
|
||||||
|
Then, you can run `/tools/memdump`.
|
||||||
|
@ -5,7 +5,7 @@
|
|||||||
|
|
||||||
#include "common.h"
|
#include "common.h"
|
||||||
|
|
||||||
/* Read specified number of bytes at specified memory address through a BASIC
|
/* Read specified number of bytes at specified memory address through a Forth
|
||||||
* remote shell and dump it to stdout.
|
* remote shell and dump it to stdout.
|
||||||
*/
|
*/
|
||||||
|
|
||||||
@ -29,9 +29,7 @@ int main(int argc, char **argv)
|
|||||||
|
|
||||||
int fd = open(argv[1], O_RDWR|O_NOCTTY);
|
int fd = open(argv[1], O_RDWR|O_NOCTTY);
|
||||||
char s[0x30];
|
char s[0x30];
|
||||||
sprintf(s, "m=0x%04x", memptr);
|
sprintf(s, ": _ 0x%04x 0x%04x DO I @ .x LOOP ; _", memptr+bytecount, memptr);
|
||||||
sendcmdp(fd, s);
|
|
||||||
sprintf(s, "while m<0x%04x peek m:puth a:m=m+1", memptr+bytecount);
|
|
||||||
sendcmd(fd, s);
|
sendcmd(fd, s);
|
||||||
|
|
||||||
for (int i=0; i<bytecount; i++) {
|
for (int i=0; i<bytecount; i++) {
|
||||||
@ -41,5 +39,6 @@ int main(int argc, char **argv)
|
|||||||
putchar(c);
|
putchar(c);
|
||||||
}
|
}
|
||||||
read(fd, s, 2); // read prompt
|
read(fd, s, 2); // read prompt
|
||||||
|
sendcmdp(fd, "FORGET _");
|
||||||
return 0;
|
return 0;
|
||||||
}
|
}
|
||||||
|
Loading…
Reference in New Issue
Block a user