Apple-2gs-SW
/
ORCA-C
mirror of https://github.com/byteworksinc/ORCA-C.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

Move some code from the blank segment to named load segments. 

This frees up some space in the blank segment for more static data.
This commit is contained in:
Stephen Heumann 2017-06-18 22:07:32 -05:00
parent 227731a1a8
commit 4cff395745
8 changed files with 17 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Asm.pas
View File

@ -22,7 +22,7 @@ interface
uses CCommon, Table, CGI, Scanner, Symbol, MM, Expression;
{$segment 'cc'}
{$segment 'CC'}
procedure AsmFunction (variable: identPtr);

2
CC.pas
View File

@ -20,7 +20,7 @@ program cc(output);
uses CCommon, CGI, Scanner, Header, Symbol, MM, Expression, Parser, Asm;
{$segment 'cc'}
{$segment 'CC'}
var
i: 1..maxPath; {loop/index variable}

4
CCommon.asm
View File

@ -9,7 +9,7 @@
*
****************************************************************
*
CopyString start
CopyString start cc
subroutine (4:toPtr,4:fromPtr),0
@ -41,7 +41,7 @@ lb1 lda [fromPtr],Y
*
****************************************************************
*
Hash start
Hash start cc
hashSize equ 876 # hash buckets - 1
sum equ 0 hash

2
CCommon.pas
View File

@ -69,6 +69,8 @@ unit CCommon;
interface
{$segment 'CC'}
const
{hashsize appears in CCOMMON.ASM}
hashSize = 876; {# hash buckets - 1}

16
Expression.asm
View File

@ -12,7 +12,7 @@
*
****************************************************************
*
lshr start
lshr start exp
subroutine (4:num1,4:num2),0
@ -62,7 +62,7 @@ lb4 lda 0 fix stack and return
*
****************************************************************
*
udiv start
udiv start exp
ans equ 0 answer
rem equ 4 remainder
@ -132,7 +132,7 @@ dv9 return 4:ans move answer
*
****************************************************************
*
uge start
uge start exp
result equ 0
subroutine (4:x,4:y),4
@ -156,7 +156,7 @@ lb2 return 2:result
*
****************************************************************
*
ugt start
ugt start exp
result equ 0
subroutine (4:x,4:y),4
@ -180,7 +180,7 @@ lb2 return 2:result
*
****************************************************************
*
ule start
ule start exp
result equ 0
subroutine (4:x,4:y),4
@ -204,7 +204,7 @@ lb2 return 2:result
*
****************************************************************
*
ult start
ult start exp
result equ 0
subroutine (4:x,4:y),4
@ -235,7 +235,7 @@ lb2 return 2:result
*
****************************************************************
*
umod start
umod start exp
ans equ 0 answer
rem equ 4 remainder
@ -311,7 +311,7 @@ dv9 return 4:ans+4 move answer
*
****************************************************************
*
umul start
umul start exp
ans equ 0 answer
subroutine (4:num1,4:num2),8

2
Expression.pas
View File

@ -50,7 +50,7 @@ interface
uses CCommon, Table, CGI, Scanner, Symbol, MM;
{$segment 'exp'}
{$segment 'EXP'}
var
startExpression: tokenSet; {tokens that can start an expression}

2
Symbol.asm
View File

@ -8,7 +8,7 @@
*
****************************************************************
*
ClearTable private
ClearTable private cc
tableSize equ 7026 sizeof(symbolTable)
subroutine (4:table),0

2
Symbol.pas
View File

@ -52,7 +52,7 @@ interface
uses CCommon, CGI, MM, Scanner;
{$segment 'cc'}
{$segment 'CC'}
{---------------------------------------------------------------}