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; uses CCommon, Table, CGI, Scanner, Symbol, MM, Expression;
{$segment 'cc'} {$segment 'CC'}
procedure AsmFunction (variable: identPtr); 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; uses CCommon, CGI, Scanner, Header, Symbol, MM, Expression, Parser, Asm;
{$segment 'cc'} {$segment 'CC'}
var var
i: 1..maxPath; {loop/index variable} 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 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 hashSize equ 876 # hash buckets - 1
sum equ 0 hash sum equ 0 hash

2
CCommon.pas
View File

@ -69,6 +69,8 @@ unit CCommon;
interface interface
{$segment 'CC'}
const const
{hashsize appears in CCOMMON.ASM} {hashsize appears in CCOMMON.ASM}
hashSize = 876; {# hash buckets - 1} 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 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 ans equ 0 answer
rem equ 4 remainder rem equ 4 remainder
@ -132,7 +132,7 @@ dv9 return 4:ans move answer
* *
**************************************************************** ****************************************************************
* *
uge start uge start exp
result equ 0 result equ 0
subroutine (4:x,4:y),4 subroutine (4:x,4:y),4
@ -156,7 +156,7 @@ lb2 return 2:result
* *
**************************************************************** ****************************************************************
* *
ugt start ugt start exp
result equ 0 result equ 0
subroutine (4:x,4:y),4 subroutine (4:x,4:y),4
@ -180,7 +180,7 @@ lb2 return 2:result
* *
**************************************************************** ****************************************************************
* *
ule start ule start exp
result equ 0 result equ 0
subroutine (4:x,4:y),4 subroutine (4:x,4:y),4
@ -204,7 +204,7 @@ lb2 return 2:result
* *
**************************************************************** ****************************************************************
* *
ult start ult start exp
result equ 0 result equ 0
subroutine (4:x,4:y),4 subroutine (4:x,4:y),4
@ -235,7 +235,7 @@ lb2 return 2:result
* *
**************************************************************** ****************************************************************
* *
umod start umod start exp
ans equ 0 answer ans equ 0 answer
rem equ 4 remainder rem equ 4 remainder
@ -311,7 +311,7 @@ dv9 return 4:ans+4 move answer
* *
**************************************************************** ****************************************************************
* *
umul start umul start exp
ans equ 0 answer ans equ 0 answer
subroutine (4:num1,4:num2),8 subroutine (4:num1,4:num2),8

2
Expression.pas
View File

@ -50,7 +50,7 @@ interface
uses CCommon, Table, CGI, Scanner, Symbol, MM; uses CCommon, Table, CGI, Scanner, Symbol, MM;
{$segment 'exp'} {$segment 'EXP'}
var var
startExpression: tokenSet; {tokens that can start an expression} 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) tableSize equ 7026 sizeof(symbolTable)
subroutine (4:table),0 subroutine (4:table),0

2
Symbol.pas
View File

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