Martin_Head wrote:Here's the tidied up fonted file.
Again, thanks. I have found 2 curious things:
Code: Select all
17764 READ var05C8(1776,var02D8(var06F0))
The 1776 index is way out of bounds and suspiciously similar to the line number.
All the parameters for MK_LIL are missing.
For what's it worth, here is the source for the FontEd extension. The assembler it was created with apparently filled spare bytes with garbage, which made the source a bit strange at time. I have patched those bytes to zero. In one case an RTS was already halve destroyed with a 0, resulting in a possible crash and the PURGE function jumps into unrelated code if called from BASIC... not sure where those invalid bytes were introduced. I have fixed the RTS but left the PURGE problem as I'm not sure what it was supposed to do.
There are a few interesting functions in there (most aren't even used in FontEd), like "REPLACE" which can be used to re-factor basic code by exchanging one variable name with another.
or PICK$, which selects one string of the given parameter strings:
Code: Select all
xyz$ = PICK$(1, "abc", "def", "ghi"): REMark returns "abc"
xyz$ = PICK$(2, "abc", "def", "ghi"): REMark returns "def"
USE is a curious command, it seems to copy the given channel definition to #1, making that the default output channel instead.
The complete list:
Code: Select all
RESET megabytes - QDOS only!
PURGE - Remove job or crash(?) if Basic
USE(#ch) - Use #ch as #1
REPLACE search-name,replace-name - replace name in basic code
POKE_$ addr, str$
KEYBOARD delay, time
FREEZE 0/1
CAPSLOCK 0/1
val = CHECK_FLOAT(str$) - get float value or -1E600 on error
val% = CHECK_INT(str$) - get int value or -32768 on error
str$ = PICK$(param_index, str1$, str2$, str3$, ...) - pick one of the string parameters
val = CHAN_B(#ch, offset)
val = CHAN_W(#ch, offset)
val = CHAN_L(#ch, offset)
str$ = PEEK_$(addr)
str$ = EDLINE$(#ch, max, str$)
str$ = UPPER$(str$)
str$ = LOWER$(str$)
ver$ = QDOS$
ver$ = QPTR$
node = NET%
The second extension file is just the QPtr toolkit, the sources for that already exist