rajamesandClaude Opus 5.5
084c520a54
word.f18: (NEXT-TOKEN) reads the console or a macro being expanded; labels, branches by name (a label of the word, or a word, now or later), the table of branches waiting, end of word, FOR/NEXT/UNEXT, macros, &NAME, CONST+N, and (ONE), which dispatches a token. A forward branch to a name not yet defined waits on a placeholder symbol, filled in by (DEFINE). dir.f18: constant set here #, ", store, and start, which resolves, clears the tables the ROM used and runs the word it names. main.f18: the ROM itself, entry 12; on an error it stops at (ROM-FAILED) with the code and line in its state, for the loader to report. sym.f18 generalized: any counted string, placeholders, a hash of only a name's own cells. test_host_rom_asm.c gives test_text.c's own texts (accepted and refused), its four real definitions and the ROM's directives to text.c and to the ROM: the same words, the same errors on the same lines, at both widths. The ROM is 2036 words. Co-Authored-By: Claude Opus 5.5 <noreply@anthropic.com>
124 lines
5.1 KiB
C
124 lines
5.1 KiB
C
/* mkmap.c -- the memory map, as constants the ROM is assembled with.
|
|
*
|
|
* mkmap > rom-map-<width>.f18
|
|
*
|
|
* Runs on the build machine, built for the host node (HOST_WORDS and the
|
|
* host stack sizes) at one cell width. It writes, as `constant` lines in
|
|
* the text assembler's notation, the addresses and codes of
|
|
* v4/tests/host_map.h that the ROM's source (capsules/v4/rom) uses: the
|
|
* console's receive registers and the ROM's state area (MACHINE.md 2.1).
|
|
* The map has one source, host_map.h; this is how the ROM reads it.
|
|
*/
|
|
#include "../tests/host_map.h"
|
|
#include <stdio.h>
|
|
|
|
static void constant(const char *name, long value)
|
|
{
|
|
printf("constant %s %ld\n", name, value);
|
|
}
|
|
|
|
int main(void)
|
|
{
|
|
(void)host_load; /* host_map.h's loader is not this tool's */
|
|
(void)host_branch_slots;
|
|
printf("\\ Generated by v4/tools/mkmap.c from v4/tests/host_map.h -- do not edit.\n");
|
|
constant("CONSOLE-RX", (long)CONSOLE_RX);
|
|
constant("CONSOLE-STATUS", (long)CONSOLE_ST);
|
|
constant("(TOK)", (long)ROM_TOK);
|
|
constant("(TOKN)", (long)ROM_TOKN);
|
|
constant("(PEEK)", (long)ROM_PEEK);
|
|
constant("(LINE)", (long)ROM_LINE);
|
|
constant("(EOF)", (long)ROM_EOF);
|
|
constant("(FAILED)", (long)ROM_FAILED);
|
|
constant("(ERRLINE)", (long)ROM_ERRLINE);
|
|
constant("(NBASE)", (long)ROM_NBASE);
|
|
constant("(NNEG)", (long)ROM_NNEG);
|
|
constant("(NI)", (long)ROM_NI);
|
|
constant("(NU)", (long)ROM_NU);
|
|
constant("(NBIG)", (long)ROM_NBIG);
|
|
constant("(RECN)", (long)ROM_RECN);
|
|
constant("(POOLN)", (long)ROM_POOLN);
|
|
constant("(REC)", (long)ROM_REC);
|
|
constant("(CNT)", (long)ROM_CNT);
|
|
constant("(PTR)", (long)ROM_PTR);
|
|
constant("(I)", (long)ROM_I);
|
|
constant("(WI)", (long)ROM_WI);
|
|
constant("(SYMH)", (long)ROM_SYMH);
|
|
constant("SYMREC", (long)ROM_SYMREC);
|
|
constant("POOLTOP", (long)ROM_POOLTOP);
|
|
constant("ERR-BAD-NAME", (long)ROM_ERR_BAD_NAME);
|
|
constant("ERR-DEFINED", (long)ROM_ERR_DEFINED);
|
|
constant("ERR-NAMES", (long)ROM_ERR_NAMES);
|
|
constant("(HERE)", (long)ROM_HERE);
|
|
constant("(CUR)", (long)ROM_CUR);
|
|
constant("(SLOT)", (long)ROM_SLOT);
|
|
constant("(NLIT)", (long)ROM_NLIT);
|
|
constant("(LITS)", (long)ROM_LITS);
|
|
constant("(PI)", (long)ROM_PI);
|
|
constant("(RS)", (long)ROM_RS);
|
|
constant("(RN)", (long)ROM_RN);
|
|
constant("RAM-WORDS", (long)V4_NODE_WORDS);
|
|
constant("ADDR-TOP", (long)ROM_ADDR_TOP);
|
|
constant("ERR-FIT", (long)ROM_ERR_FIT);
|
|
constant("ERR-OPCODE", (long)ROM_ERR_OPCODE);
|
|
constant("(NREF)", (long)ROM_NREF);
|
|
constant("(NLAB)", (long)ROM_NLAB);
|
|
constant("(WNP)", (long)ROM_WNP);
|
|
constant("(NFOR)", (long)ROM_NFOR);
|
|
constant("(FORS)", (long)ROM_FORS);
|
|
constant("(RDEPTH)", (long)ROM_RDEPTH);
|
|
constant("(RPTRS)", (long)ROM_RPTRS);
|
|
constant("(T1)", (long)ROM_T1);
|
|
constant("(T2)", (long)ROM_T2);
|
|
constant("(T3)", (long)ROM_T3);
|
|
constant("(T4)", (long)ROM_T4);
|
|
constant("(CFROM)", (long)ROM_CFROM);
|
|
constant("(CTO)", (long)ROM_CTO);
|
|
constant("(CN)", (long)ROM_CN);
|
|
constant("(RAW)", (long)ROM_RAW);
|
|
constant("(T5)", (long)ROM_T5);
|
|
constant("(T6)", (long)ROM_T6);
|
|
constant("(MLEN)", (long)ROM_MLEN);
|
|
constant("(REFS)", (long)ROM_REFS);
|
|
constant("(LABELS)", (long)ROM_LABELS);
|
|
constant("(WNAMES)", (long)ROM_WNAMES);
|
|
constant("(TSAVE)", (long)ROM_TSAVE);
|
|
constant("(MTEMP)", (long)ROM_MTEMP);
|
|
constant("(MBODY)", (long)ROM_MBODY);
|
|
constant("ORIGIN", (long)ROM_ORIGIN);
|
|
constant("REFS-MAX", (long)ROM_REFS_MAX);
|
|
constant("WN-SIZE", (long)ROM_WN_SIZE);
|
|
constant("MBODY-SIZE", (long)ROM_MBODY_SIZE);
|
|
constant("DICT-W", (long)DICT_W);
|
|
constant("DICT-END", (long)DICT_END_W);
|
|
constant("BUF0", (long)BUF0_W);
|
|
constant("TIB-W", (long)TIB_W);
|
|
constant("ERR-IN-MACRO", (long)ROM_ERR_IN_MACRO);
|
|
constant("ERR-MACRO", (long)ROM_ERR_MACRO);
|
|
constant("ERR-LABEL-DUP", (long)ROM_ERR_LABEL_DUP);
|
|
constant("ERR-LABELS", (long)ROM_ERR_LABELS);
|
|
constant("ERR-FOR", (long)ROM_ERR_FOR);
|
|
constant("ERR-UNEXT", (long)ROM_ERR_UNEXT);
|
|
constant("ERR-TARGET", (long)ROM_ERR_TARGET);
|
|
constant("ERR-UNDEFINED", (long)ROM_ERR_UNDEFINED);
|
|
constant("ERR-BIG", (long)ROM_ERR_BIG);
|
|
constant("ERR-AMP", (long)ROM_ERR_AMP);
|
|
constant("ERR-FETCH-P", (long)ROM_ERR_FETCH_P);
|
|
constant("ERR-MISSING", (long)ROM_ERR_MISSING);
|
|
constant("ERR-DEEP", (long)ROM_ERR_DEEP);
|
|
constant("ERR-REFS", (long)ROM_ERR_REFS);
|
|
constant("ERR-VALUE", (long)ROM_ERR_VALUE);
|
|
constant("ERR-NO-START", (long)ROM_ERR_NO_START);
|
|
constant("ERR-START", (long)ROM_ERR_START);
|
|
constant("DSTACK-REG", (long)DSTACK_REG);
|
|
constant("RSTACK-REG", (long)RSTACK_REG);
|
|
/* the cell width's constants (NUMBER) needs, written as signed cells */
|
|
constant("MSB", (long)(v4_cell)V4_MSB);
|
|
constant("DEC-LIMIT", (long)(v4_cell)(~(v4_ucell)0 / 10u));
|
|
constant("DEC-NLAST", -(long)(~(v4_ucell)0 % 10u) - 1);
|
|
constant("HEX-HIGH", (long)(v4_cell)~(~(v4_ucell)0 >> 4));
|
|
constant("ERR-TOO-LONG", (long)ROM_ERR_TOO_LONG);
|
|
constant("ERR-COMMENT", (long)ROM_ERR_COMMENT);
|
|
return 0;
|
|
}
|