Changeset 242 in xtideuniversalbios for trunk/Tools/StringsCompress.pl

Timestamp:

Feb 10, 2012, 3:12:40 AM (12 years ago)

Author:

krille_n_@…

google:author:

krille_n_@hotmail.com

Message:

Changes:

• Optimizations (both for size and speed) in IdeTransfer.asm and MemIdeTransfer.asm
• Fixed a bug where the SingleByteRead/Write functions in IdeTransfer.asm would fail on 128 sector transfers.
• Fixed some typos and errors in general, comments etc.

File:

• trunk/Tools/StringsCompress.pl (modified) (11 diffs)

trunk/Tools/StringsCompress.pl

@@ -6 +6 @@
 #                   gregli@hotmail.com
 #
-# Description   :   Script for compiling and compressing strings for 
+# Description   :   Script for compiling and compressing strings for
 #                   use by DisplayFormatCompressed.asm.  See the header of that file
 #                   for a description of the compression scheme.
 #
-# Usage         :   stdin:  Listing of strings.asm, 
+# Usage         :   stdin:  Listing of strings.asm,
 #                           assembled with MODULE_STRINGS_COMPRESSED_PRECOMPRESS.
 #                           We used the listing so that the assembler can take care of
@@ -28 +28 @@
 #  1. Those in the Translate associative array
 #  2. Those in the Format associative array
-#  3. Characters between $normal_base and $normal_base+0x40 
-#     (typically covers upper and lowe case alphabets)
+#  3. Characters between $normal_base and $normal_base+0x40
+#     (typically covers upper and lower case alphabets)
 #  4. Null characters (marking the end of strings)
 #  5. The special string LF,CR
 #
-# If a character or format read at the input cannot be found in one of the above categories, 
-# it must be added here before this script will accept it (and DisplayFormatCompressed can 
+# If a character or format read at the input cannot be found in one of the above categories,
+# it must be added here before this script will accept it (and DisplayFormatCompressed can
 # display it).
 #
 # Tables for the above categories are expected in the input stream, before string to be
-# compressed are provided.  Note that these tables are not present in DisplayFormatCompressed, 
-# and do not need to updated there.  Needed information is put in the compression output 
+# compressed are provided.  Note that these tables are not present in DisplayFormatCompressed,
+# and do not need to be updated there.  Needed information is put in the compression output
 # that it reads.
 #
@@ -61 +61 @@
 print ";;;\n";
 print ";;; This file is generated by StringsCompress.pl from source in Strings.asm\n";
-print ";;; DO NOT EDIT DIRECTLY - See the maekfile for how to rebuild this file.\n";
+print ";;; DO NOT EDIT DIRECTLY - See the makefile for how to rebuild this file.\n";
 print ";;; This file only needs to be rebuilt if Strings.asm is changed.\n";
 print ";;;\n";
@@ -68 +68 @@
 
 #
-# On a first pass, look for our table directives.  $translate{...}, $format{...}, etc. 
-# are expectd in the input stream.
+# On a first pass, look for our table directives.  $translate{...}, $format{...}, etc.
+# are expected in the input stream.
 #
 $processed = "    [StringsCompress Processed]";
@@ -115 +115 @@
 
 #
-# On the second pass, loop through lines of the listing, looking for 'db' lines 
+# On the second pass, loop through lines of the listing, looking for 'db' lines
 # (and dealing with continuations) and compressing each line as it is encountered.
 #
@@ -157 +157 @@
         &processString( $bytes, $label.$spacing, $db );
     }
-    
-    # 
+
+    #
     # everything else, copy to the output as is
     #
@@ -208 +208 @@
 print "\n";
 
-# 
+#
 # Ensure that branch targets are within reach
 #
@@ -280 +280 @@
         $orig .= sprintf( ($v[$i] > 0x9f ? ", %03xh" : ",  %02xh"), $v[$i] );
     }
-    $v[length($chars)/2] = 0xff;      # guard byte to avoid thinking going past the end of 
+    $v[length($chars)/2] = 0xff;      # guard byte to avoid thinking going past the end of
                                       # the string is a null
 
@@ -336 +336 @@
             $used{$v[$g]}++;
         }
-        
+
         #
         # "normal" characters (alphabet, and ASCII characters around the alphabet)
@@ -350 +350 @@
         #
         # Not found
-        # 
+        #
         else
         {
@@ -378 +378 @@
             if( $v[$g+1] == 0x20 && $v[$g+2] != 0 )
             {
-                # can't take this optimization if the next byte is a null, 
+                # can't take this optimization if the next byte is a null,
                 # since we can't have both a postfix space and null
                 $g++;