1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-11-02 08:20:57 +11:00

Compare commits

...

2 Commits

Author SHA1 Message Date
Virgil Dupras
ee79df225e typo 2020-04-27 09:44:37 -04:00
Virgil Dupras
efed0e249e recipes/rc2014/selfhost: add verification instructions 2020-04-27 09:24:40 -04:00
2 changed files with 16 additions and 6 deletions

View File

@ -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`.

View File

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