"A 79-standard Forth compiler" - читать интересную книгу автора (HartForth Graham A.M.)

this operation. Then enter the following BASIC program and RUN it. After you
RUN the program, re-BOOT your TRSDOS diskette to correct the byte in memory.

10 OPEN"R",1,"SYS0/SYS.WKIA:0"
20 FIELD 1,171 AS R1$, 1 AS RS$, 84 AS R2$
30 GET 1,3: LSET RS$="<": PUT 1,3: CLOSE: END

Method (2) uses DEBUG to change the byte in memory. Use this if you do
not want to patch your TRSDOS system diskette and are familiar with DEBUG.

1. At TRSDOS Ready, type~DEBUG~followed by~.
2. Depress the~~key to enter the DEBUGger.
3. Type~M46B0~followed by the~~bar.
4. Type~3C~followed by~.
5. Type~G402D~followed by~.

Method (3) uses a POKE from BASIC to change the value directly in
memory. This procedure is as follows:

1. Enter BASIC (files = 0, protect no memory)
2. Type~POKE &H46B0,60~followed by~.
3. Type~CMD"S~followed by~.

Now, after using any one of the methods noted above, COPY the FORTH/CMD file
from the HARTFORTH diskette to your TRSDOS diskette.

~HARTFORTH - 2~









~HARTFORTH - A 79-Standard FORTH Compiler~




Note on Model I/III Compatibility

The Model I/III version of HARTFORTH should be compatible with all
TRSDOS compatible DOS's as it uses only documented DOS and ROM calls that are
common to both the Model I and Model III computers. This U.S. version detects
whether HARTFORTH is running on a Model I or a Model III by the ROM contents
at address 125H (Model III = 49H; Model I anything else). The contents of
SYS+21 (see "An Overview of HARTFORTH") are modified to use the proper

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960