I realized a few things, which have crystallized into decisions:
- Short is mostly for me. Therefore, my priorities are the ones that matter.
- It doesn't need to be relocatable.
- It doesn't need to fit in 512 bytes.
- I want multiply, divide, and mod.
- I want printf with option for string, hex, and decimal format codes.
- I don't want to rewrite Super-Mon; I'll add hooks that Short can use and that'll
be enough work right there. Short's assembly and disassembly code will live in low
- Routines that can logically form a statement (e.g. SET, INC) should be implemented
as Short functions rather than built-in ops. Conversely, routines that only make
sense in combination should only be ops.
- I need some sort of notation to keep myself from getting mixed up whether the
code should use pointer val or val. Haven't figured this out yet.
- Everything should be unsigned numbers, not signed.
24 built-in ops
88 even zero-page 50.FE
128 memory 4000.BFFF
10 ZPVAR b
11 MEMVAR h l Note: Hi byte then lo byte of address
12 CALL h l Note: Hi byte then lo byte of address
13 CONSTSTR s Note: Stored in hi-ascii except last byte
14 CONSTB b
15 CONSTW h Note: Hi byte then lo byte of constant
80 MEMVAR40XX l
81 MEMVAR41XX l
FE MEMVARBEXX l
FF MEMVARBFXX l
* Not providing GETB, GETW, nor SETB because (a) they're almost useless as the same can be
done efficiently in assembly, and (b) they would dereference the location as a pointer
which could be dangerous (e.g. an I/O location)
GETPB(p) Get byte from indirect ptr
GETPW(p) Get word from indirect ptr
READPB(p) Get byte from indirect ptr, increment ptr
READPW(p) Get word from indirect ptr, increment ptr
SETW(p,v) This is the "=" assignment operator
SETPB(p,v) Set byte at indirect ptr
SETPW(p,v) Set word at indirect ptr
WRITEPB(p,v) Set byte at indirect ptr, increment pointer
WRITEPW(p,v) Set word at indirect ptr, increment pointer
NOT(v) Logical invert
INCW(p) Increment variable, return its final value
DECW(p) Decrement variable, return its final value
IFT(v,p) If true, jump to address
IFNOT(v,p) If false, jump to address
PRSTR(v) Print string. Can have embedded newline (displayed as "^M")
PRDEC(v) Print decimal number.
PRINTF(v,v) Print formatted string: expand a single %d, %s, or %x.
REM(v) Do nothing (good for embedding comments)
Things that would probably be nice:
- Ensure that single-char string has the char in A, so it can be used as a char.
- You can use REM just before a function to document how it works without slowing
- A short function is recognized because it begins with JSR SHORT0, JSR SHORT1, or
JSR SHORT2 (denoting zero, one, or two arguments respectively).
- On entry to a short function, A/X will contain the contents of ARG0 (A=hi, X=lo),
Y reg will be zero, and carry will be clear.
- On exit from a short function, A/X should contain the result.
Strategy for integration into Super-Mon
- Make the Klose command detect and properly delete Short lines
- Change Short mini-asm to assemble to temporary buf (the sym hash space?), and check
for room before writing to prog. If overwriting a statement in prog space, adjust
program to make exact room.
- Change mem dump in Super-Mon so that instead of defaulting to a single-byte dump, it
defaults to double-byte, and also prints the hex and decimal 16-bit number there. I have
already moved PRDEC back up into Super-Mon space so it can do that without the
Short support routines.
- Rewrite MONSRCH to use a patchable scanning mechanism. Currently it uses INSLTBL directly.
Also make it able to search inside Short calls.
[done] Save/restore short support during disk ops
[done] Even before starting, I think I should change ops 80.FF to be MEMVAR40xx
instead of CALL40xx, because I want the target of IFT to be shorter.
[done] Change tests to account for MEMVAR40xx change
[done] Make a fancier version of INSDS2 (calculates instruction format and length) that
accounts for Short calls, and replace uses of INSDS2 with calls to the new routine,
except for the one in SCANOPS, which is used while *assembling* a line and should not be changed.
[done] Make a fancier version of INSTDSP (disassembles an instruction) to detect and
disassemble Short calls. Replace calls to INSTDSP with calls to the new routine.
[done] Make a routine that RELSCAN can call if the opcode is JSR. It would check (PTMP),Y to see
if it's a JSR to a short routine, and if so would perform any relocations inside the
short call, and advance PTMP,Y past the call. The convention is that Y is < #$80. OK to
use QTMP during this, and/or overwrite PTMP and recalculate it on exit.