v0.72: Extended memory support for Apple //e
- Implemented initial version of extended memory support, which allows the EightBall source code to be stored in aux RAM (extended 80 column card). Once an apparent bug in the cc65 extended memory driver is fixed then bytecode will also be stored in aux RAM. - Moved non-performance critical portions of interpreter / compiler to Apple II language card memory, which frees up more main memory. - Improvements to display of free memory (`free` command)
This commit is contained in:
parent
6b6c7e7a70
commit
aa819ef166
BIN
8ball20.prg
BIN
8ball20.prg
Binary file not shown.
BIN
8ball64.prg
BIN
8ball64.prg
Binary file not shown.
BIN
8ballvm20.prg
BIN
8ballvm20.prg
Binary file not shown.
BIN
8ballvm64.prg
BIN
8ballvm64.prg
Binary file not shown.
Binary file not shown.
3
disass.c
3
disass.c
|
@ -284,5 +284,8 @@ int main()
|
|||
printchar(147); /* Clear */
|
||||
#endif
|
||||
disassemble();
|
||||
#ifdef A2E
|
||||
cgetc();
|
||||
#endif
|
||||
return 0;
|
||||
}
|
||||
|
|
BIN
disass.system
BIN
disass.system
Binary file not shown.
BIN
disass20.prg
BIN
disass20.prg
Binary file not shown.
BIN
disass64.prg
BIN
disass64.prg
Binary file not shown.
BIN
ebvm.system
BIN
ebvm.system
Binary file not shown.
607
eightball.c
607
eightball.c
File diff suppressed because it is too large
Load Diff
BIN
eightball.system
BIN
eightball.system
Binary file not shown.
|
@ -37,7 +37,7 @@
|
|||
/* */
|
||||
/**************************************************************************/
|
||||
|
||||
#define VERSIONSTR "0.71"
|
||||
#define VERSIONSTR "0.72"
|
||||
|
||||
void print(char *str);
|
||||
|
||||
|
|
BIN
eightballvm
BIN
eightballvm
Binary file not shown.
|
@ -0,0 +1,28 @@
|
|||
word counter=0
|
||||
word fails=0
|
||||
|
||||
call expect(sqr(10)==100)
|
||||
end
|
||||
|
||||
sub sqr(word x)
|
||||
return x*x
|
||||
endsub
|
||||
|
||||
sub expect(byte b)
|
||||
pr.dec counter
|
||||
pr.msg ": "
|
||||
counter=counter+1
|
||||
if b
|
||||
pr.msg " Pass "
|
||||
else
|
||||
pr.msg " FAIL "
|
||||
fails=fails+1
|
||||
endif
|
||||
pr.nl
|
||||
return 0
|
||||
endsub
|
||||
|
||||
sub xxxxxx(word qqq)
|
||||
return qqq
|
||||
endsub
|
||||
|
Loading…
Reference in New Issue