6502/PLASMA
1
0
Fork 0
mirror of https://github.com/dschmenk/PLASMA.git synced 2025-04-07 16:41:59 +00:00
Code Issues Projects Releases Wiki Activity

Continue filling out cmdsys routines

Browse Source
This commit is contained in:
David Schmenk 2024-08-17 10:53:54 -07:00
parent 5aabb8b13e
commit 93fc68b736
3 changed files with 25 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/makefile
View File

@ -265,7 +265,7 @@ test: samplesrc/test.pla samplesrc/testlib.pla $(PLVM) $(PLASM)
acme --setpc 4094 -o $(TEST) samplesrc/test.a
./$(PLASM) -AMOW samplesrc/testlib.pla
acme --setpc 4094 -o $(TESTLIB) samplesrc/testlib.a
./$(PLVM) TEST
./$(PLVM) test.mod
$(ED): toolsrc/ed.pla $(PLVM02) $(PLASM) toolsrc/ed.pla
./$(PLASM) -AMOW toolsrc/ed.pla

3
src/samplesrc/test.pla
View File

@ -147,6 +147,9 @@ end
puts("Command line: ")
puts(cmdsys:cmdline)
putln
puts("System path: ")
puts(cmdsys:syspath)
putln
puti(array[0]);putc(' ')
puti(array[1]);putc(' ')
puti(array[2]);putc(' ')

26
src/vmsrc/cmdsys.c
View File

@ -370,7 +370,7 @@ uword lookup_sym(byte *dci)
entry += 2;
}
dcitos(dci, str);
printf("\nSymbol %s not found in symbol table\n", str);
if (trace) printf("\nSymbol %s not found in symbol table\n", str);
return 0;
}
int add_sym(byte *dci, uword addr)
@ -737,7 +737,7 @@ int load_mod(M6502 *mpu, byte *mod)
}
else
{
fprintf(stderr, "Unable to load module %s", filename);
fprintf(stderr, "\nUnable to load module %s: ", filename);
pfail("");
}
//
@ -776,6 +776,16 @@ int vm_syscall(M6502 *mpu, uword address, byte data)
}
void syscall6502(M6502 *mpu)
{
uword params;
byte cmd, status;
PULL_ESTK(params);
PULL_ESTK(cmd);
status = 0;
switch (cmd)
{
}
PUSH_ESTK(status);
}
void sysexecmod(M6502 *mpu)
{
@ -794,6 +804,11 @@ void syswrite(M6502 *mpu)
}
void syslookuptbl(M6502 *mpu)
{
uword sym, addr;
PULL_ESTK(sym);
addr = lookup_sym(mem_6502 + sym);
PUSH_ESTK(addr);
}
void sysputc(M6502 *mpu)
{
@ -1029,9 +1044,10 @@ void sysdivmod(M6502 *mpu)
void export_cmdsys(void)
{
byte dci[16];
uword defaddr;
uword cmdsys = alloc_heap(23);
uword machid = alloc_heap(1);
uword defaddr;
mem_6502[SYSPATH_STR] = strlen(strcat(getcwd((char *)mem_6502 + SYSPATH_BUF, 128), "/sys/"));
mem_6502[cmdsys + 0] = 0x11; // Version 2.11
mem_6502[cmdsys + 1] = 0x02;
mem_6502[cmdsys + 2] = (byte)SYSPATH_STR; // syspath
@ -1056,12 +1072,12 @@ void export_cmdsys(void)
perr = mem_6502 + cmdsys + 16; *perr = 0;
mem_6502[cmdsys + 17] = 0; // jitcount
mem_6502[cmdsys + 18] = 0; // jitsize
mem_6502[cmdsys + 19] = 0; // refcons
mem_6502[cmdsys + 19] = 1; // refcons
mem_6502[cmdsys + 20] = 0; // devcons
defaddr = add_natv(syslookuptbl); // syslookuptbl
mem_6502[cmdsys + 21] = (byte)defaddr;
mem_6502[cmdsys + 22] = (byte)(defaddr >> 8);
mem_6502[machid] = 0x08; // Apple 1 (NA in ProDOS Tech Ref)
mem_6502[machid] = 0xF2; // Apple ///
stodci("CMDSYS", dci); add_sym(dci, cmdsys);
stodci("MACHID", dci); add_sym(dci, machid);
export_natv("PUTC", sysputc);