diff --git a/Asm.pas b/Asm.pas
index abdbfdc..81f0f24 100644
--- a/Asm.pas
+++ b/Asm.pas
@@ -22,7 +22,7 @@ interface
 
 uses CCommon, Table, CGI, Scanner, Symbol, MM, Expression;
 
-{$segment 'cc'}
+{$segment 'CC'}
 
 procedure AsmFunction (variable: identPtr);
 
diff --git a/CC.pas b/CC.pas
index 1b62f2a..e626ed2 100644
--- a/CC.pas
+++ b/CC.pas
@@ -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}
diff --git a/CCommon.asm b/CCommon.asm
index 39d495c..50d8142 100644
--- a/CCommon.asm
+++ b/CCommon.asm
@@ -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
diff --git a/CCommon.pas b/CCommon.pas
index 443f0d1..b5e311a 100644
--- a/CCommon.pas
+++ b/CCommon.pas
@@ -69,6 +69,8 @@ unit CCommon;
 
 interface
 
+{$segment 'CC'}
+
 const
                                         {hashsize appears in CCOMMON.ASM}
    hashSize      = 876;                 {# hash buckets - 1}
diff --git a/Expression.asm b/Expression.asm
index bf16db3..21e0d07 100644
--- a/Expression.asm
+++ b/Expression.asm
@@ -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
diff --git a/Expression.pas b/Expression.pas
index 25401dd..0a9fc45 100644
--- a/Expression.pas
+++ b/Expression.pas
@@ -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}
diff --git a/Symbol.asm b/Symbol.asm
index fcccc44..d01c3cf 100644
--- a/Symbol.asm
+++ b/Symbol.asm
@@ -8,7 +8,7 @@
 *
 ****************************************************************
 *
-ClearTable private
+ClearTable private cc
 tableSize equ  7026                     sizeof(symbolTable)
 
          subroutine (4:table),0
diff --git a/Symbol.pas b/Symbol.pas
index 8e09fcc..66e8e0b 100644
--- a/Symbol.pas
+++ b/Symbol.pas
@@ -52,7 +52,7 @@ interface
 
 uses CCommon, CGI, MM, Scanner;
 
-{$segment 'cc'}
+{$segment 'CC'}
 
 {---------------------------------------------------------------}