Changeset 197 in xtideuniversalbios for trunk/XTIDE_Universal_BIOS

Timestamp:

Nov 20, 2011, 1:24:41 AM (13 years ago)

Author:

gregli@…

google:author:

gregli@hotmail.com

Message:

Some maintenance; no changes to the actual source. Moved the compression tables out of the compression script and into the source file, making the compression script source agnostic. And thus moved the compression script to the Tools directory.

Location:

trunk/XTIDE_Universal_BIOS

Files:

• Src/Strings.asm (modified) (1 diff)
• Src/StringsCompressed.asm (modified) (2 diffs)
• makefile (modified) (1 diff)

trunk/XTIDE_Universal_BIOS/Src/Strings.asm

@@ -111 +111 @@
 
 g_szDashForZero:        db      "- ",NULL
+
+
+;------------------------------------------------------------------------------------------
+; 
+; Tables for StringsCompress.pl
+;
+;$translate{ord(' ')} = 0;
+;$translate{172}      = 1;     # ONE_QUARTER
+;$translate{171}      = 2;     # ONE_HALF
+;$translate{179}      = 3;     # SINGLE_VERTICAL
+;$translate{175}      = 4;     # ANGLE_QUOTE_RIGHT
+;$translate{ord('!')} = 5;
+;$translate{ord('"')} = 6;
+;$translate{ord(',')} = 7;
+;$translate{ord('-')} = 8;
+;$translate{ord('.')} = 9;
+;$translate{ord('/')} = 10;
+;$translate{ord('1')} = 11;    
+;$translate{ord('2')} = 12;
+;$translate{ord('3')} = 13;
+;$translate{ord('4')} = 14;
+;$translate{ord('5')} = 15;
+;$translate{ord('6')} = 16;
+;$translate{ord('8')} = 17;
+;$translate{200}      = 18;    # DOUBLE_BOTTOM_LEFT_CORNER
+;$translate{181}      = 19;    # DOUBLE_LEFT_HORIZONTAL_TO_SINGLE_VERTICAL
+;
+; Formats begin immediately after the last Translated character (they are in the same table)
+;
+;$format_begin = 20;
+;
+;$format{"s"}   = 20;        # n/a
+;$format{"c"}   = 21;        # n/a
+;$format{"2-I"} = 22;        # must be even
+;$format{"u"}   = 23;        # must be odd
+;$format{"5-u"} = 24;        # must be even
+;$format{"x"}   = 25;        # must be odd
+;$format{"5-x"} = 26;        # must be even
+;$format{"nl"}  = 27;        # n/a
+;$format{"2-u"} = 28;        # must be even
+;$format{"A"}   = 29;        # n/a
+;
+; NOTE: The last $format cannot exceed 31 (stored in a 5-bit quantity).
+;
+; Starting point for the "normal" range, typically around 0x40 to cover upper and lower case
+; letters.  If lower case 'z' is not used, 0x3a can be a good choice as it adds ':' to the 
+; front end.
+;
+;$normal_base = 0x3a;
+;
+; End of StringsCompress.pl information
+;
+;------------------------------------------------------------------------------------------
+
+
+
+

trunk/XTIDE_Universal_BIOS/Src/StringsCompressed.asm

@@ -239 +239 @@
                           db         28h,  00h          ; compressed
 
-;;; end of strings.asm
+
+
+;------------------------------------------------------------------------------------------
+; 
+; Tables for StringsCompress.pl
+;
+;$translate{ord(' ')} = 0;    [StringsCompress Processed]
+;$translate{172}      = 1;     # ONE_QUARTER    [StringsCompress Processed]
+;$translate{171}      = 2;     # ONE_HALF    [StringsCompress Processed]
+;$translate{179}      = 3;     # SINGLE_VERTICAL    [StringsCompress Processed]
+;$translate{175}      = 4;     # ANGLE_QUOTE_RIGHT    [StringsCompress Processed]
+;$translate{ord('!')} = 5;    [StringsCompress Processed]
+;$translate{ord('"')} = 6;    [StringsCompress Processed]
+;$translate{ord(',')} = 7;    [StringsCompress Processed]
+;$translate{ord('-')} = 8;    [StringsCompress Processed]
+;$translate{ord('.')} = 9;    [StringsCompress Processed]
+;$translate{ord('/')} = 10;    [StringsCompress Processed]
+;$translate{ord('1')} = 11;        [StringsCompress Processed]
+;$translate{ord('2')} = 12;    [StringsCompress Processed]
+;$translate{ord('3')} = 13;    [StringsCompress Processed]
+;$translate{ord('4')} = 14;    [StringsCompress Processed]
+;$translate{ord('5')} = 15;    [StringsCompress Processed]
+;$translate{ord('6')} = 16;    [StringsCompress Processed]
+;$translate{ord('8')} = 17;    [StringsCompress Processed]
+;$translate{200}      = 18;    # DOUBLE_BOTTOM_LEFT_CORNER    [StringsCompress Processed]
+;$translate{181}      = 19;    # DOUBLE_LEFT_HORIZONTAL_TO_SINGLE_VERTICAL    [StringsCompress Processed]
+;
+; Formats begin immediately after the last Translated character (they are in the same table)
+;
+;$format_begin = 20;    [StringsCompress Processed]
+;
+;$format{"s"}   = 20;        # n/a    [StringsCompress Processed]
+;$format{"c"}   = 21;        # n/a    [StringsCompress Processed]
+;$format{"2-I"} = 22;        # must be even    [StringsCompress Processed]
+;$format{"u"}   = 23;        # must be odd    [StringsCompress Processed]
+;$format{"5-u"} = 24;        # must be even    [StringsCompress Processed]
+;$format{"x"}   = 25;        # must be odd    [StringsCompress Processed]
+;$format{"5-x"} = 26;        # must be even    [StringsCompress Processed]
+;$format{"nl"}  = 27;        # n/a    [StringsCompress Processed]
+;$format{"2-u"} = 28;        # must be even    [StringsCompress Processed]
+;$format{"A"}   = 29;        # n/a    [StringsCompress Processed]
+;
+; NOTE: The last $format cannot exceed 31 (stored in a 5-bit quantity).
+;
+; Starting point for the "normal" range, typically around 0x40 to cover upper and lower case
+; letters.  If lower case 'z' is not used, 0x3a can be a good choice as it adds ':' to the 
+; front end.
+;
+;$normal_base = 0x3a;    [StringsCompress Processed]
+;
+; End of StringsCompress.pl information
+;
+;------------------------------------------------------------------------------------------
+
+
+
+;;; end of input stream
 
 StringsCompressed_NormalBase     equ   58
@@ -315 +371 @@
 ;; format usage stats
 ;; A:4
-;; c:8
-;; s:15
 ;; 2-u:1
-;; u:6
 ;; 5-u:3
-;; 2-I:1
 ;; x:6
 ;; 5-x:1
+;; s:15
 ;; nl:6
+;; 2-I:1
+;; c:8
+;; u:6
 ;; total format: 10
 

trunk/XTIDE_Universal_BIOS/makefile

@@ -140 +140 @@
     @echo Deleted "(*.*)" from "$(BUILD_DIR)/"
 
-src\StringsCompressed.asm:  src\Strings.asm src\StringsCompress.pl
+src\StringsCompressed.asm:  src\Strings.asm
     $(AS) src\Strings.asm $(ASFLAGS) $(DEFS_XT) -DMODULE_STRINGS_COMPRESSED_PRECOMPRESS -o build\Strings.bin -l build\StringsPrecompress.lst
-    perl src\StringsCompress.pl < build\StringsPrecompress.lst > src\StringsCompressed.asm
+    perl ..\tools\StringsCompress.pl < build\StringsPrecompress.lst > src\StringsCompressed.asm
 
 $(SRC_ASM):     src\StringsCompressed.asm