CMPSC-Enhancement Facility

Author: Fish-Git

CHANGES

@@ -1,3 +1,4 @@
+10 Sep 2012 CMPSC_2012: CMPSC-Enhancement Facility zero padding support - Fish
 15 Aug 2012 Change DASD utilities defaults to make wait PSW in IPL1 record
             EC-mode and disabled for machine checks, add -b and -m switches
             to dasdinit and dasdload to obtain old behavior - Kevin Leonard

README.CMPSCTST

@@ -33,24 +33,27 @@
                    created during processing should be written. If
                    not specified the current directory is used. The
                    work files created during processing are called
-                   "cmpout.bin" and "expout.txt".
+                   "cmpout.bin", "expout.txt" and "md5sum.txt".
 
     OPTIONS
 
         -t      Translate ASCII/EBCDIC             (default = no)
         -a      Algorithm to be used               (default = 0)
-        -r      Number of random tests             (default = 100)
+        -r      Number of random tests             (default = 4)
+        -r      Number of speed test repeats       (default = 4)
         -n      No hard-coded test cases           (default = all)
         -bn     Use only buffer sizes set 'n'      (default = all)
         -on     Use only buffer offsets set 'n'    (default = all)
         -speed  Speed test; -r = repeats           (see NOTES below)
+        -z      Zero Padding [enabled:requested]   (see NOTES below)
+        -w      Zero Padding Alignment             (default = 8 bit)
 
     EXAMPLES
 
-        cmpsctst  .\files        .\dicts  .\work  > EXTREMELY-long-test.log
-        cmpsctst  .\files\small  .\dicts  .\work  -r 0 > non-random-test.log
-        cmpsctst  .\files\small  .\dicts  .\work  -n -r 16 > randoms-test.log
-        cmpsctst  .\files\large  .\dicts  .\work  -speed -r 1000 > speed-test.log
+        cmpsctst  .\files        .\dicts  .\work  -z > EXTREMELY-long-test.log
+        cmpsctst  .\files\small  .\dicts  .\work  -r 0 -z -w 3 > VERY-long-non-random-test.log
+        cmpsctst  .\files\small  .\dicts  .\work  -n -r 3 -z 0:1 > short-randoms-test.log
+        cmpsctst  .\files\large  .\dicts  .\work  -speed -r 100 > speed-test.log
 
     NOTES
 
@@ -94,17 +97,20 @@
 
         Because a default test using the many built-in (hard-coded)
         buffer size and offset values can cause cmpsctst to run for
-        an *VERY* long time since there are so many of them (24336,
+        a *VERY* long time since there are so many of them (33124
         times #of test files, times #of test dictionaries = total
         number of tests, each of which does a full compression and
         expansion) the -n (no-non-random) option allows you to skip
         these tests to allow cmpsctst to finish much more quickly.
 
         You can also use the -bn and -on options to choose a smaller
         subset of buffer size and/or offset values too. There are 3
-        buffer size sets with 2, 6 and 4 values in each of their sets
-        respectively, and 2 sets of offset values with 9 and 6 values
-        in each of their sets, respectively.
+        buffer size sets with 3, 6 and 4 values in each of their
+        respective sets, and 2 sets of offset values with 9 and 5
+        values in each of their respective sets. Specifying -b3 -o2
+        for example, will cause 400 total tests to be performed for
+        each file/dictionary pair. Thus for a set of 2 files and 3
+        dictionaries, a grand total of 2400 tests will be performed.
 
         The -r value defines either the number of random buffer size
         and offset tests to perform or else the number of repeats to
@@ -126,6 +132,20 @@
         specific buffer size and offset values, you need to call the
         CMPSCTST.EXE tool yourself (i.e. don't use cmpsctst.rexx).
 
+        The '-z' (Zero Padding) option controls CMPSC-Enhancement
+        Facility. Specify the option as two 0/1 values separated by
+        a single colon. The first 0/1 defines whether the facility
+        should be simulated as being enabled or not. The second 0/1
+        controls whether the Zero Padding option (GR0 bit 46) should
+        be set (requested) or not in the compression/expansion call.
+        If the -z option is not specified the default is 0:0. If the
+        option is specified but without any arguments then it's 1:1.
+
+        The '-w' (Zero Padding Alignment) option controls adjustment
+        of the model-dependent storage boundary used by zero padding.
+        The value should be specified as a power of 2 number of bits
+        ranging from 1 to 12 (i.e. zero pad to 2-4096 byte boundary).
+
         All dictionaries must be in RAW BINARY format and MUST use
         the following file naming convention:
 
@@ -166,11 +186,11 @@
 
     VERSION
 
-        2.1  (May 22, 2012)
+        2.4  (July 2012)
 
 -------------------------------------------------------------------------------
 
-CMPSC Instruction Testing Tool, version 2.1.0
+CMPSC Instruction Testing Tool, version 2.4.0
 Copyright (C) 2012 Software Development Laboratories
 
 Options:
@@ -188,7 +208,10 @@ Options:
 
   -0  Format-0 (default)
   -1  Format-1
-  -s  Symbol Size (1-5 or 9-13; default = 2)
+  -s  Symbol Size  (1-5 or 9-13; default = 2)
+
+  -z  Zero Padding (enabled:requested; see NOTES)
+  -w  Zero Padding Alignment (default = 8 bit)
 
   -t  Translate (ASCII <-> EBCDIC as needed)
   -v  Verbose [filename]
@@ -204,7 +227,7 @@ Returns:
 Examples:
 
   CMPSCTST -c -i 8192:*:foo.txt -o *:4095:foo.cmpsc -r 1000 \
-        -t -d cdict.bin -x edict.bin -1 -s 10 -v rpt.log
+        -t -d cdict.bin -x edict.bin -1 -s 10 -v rpt.log -z 0:1
 
   CMPSCTST -e -i foo.cmpsc -o foo.txt -t -x edict.bin -s 10 -q
 
@@ -227,6 +250,21 @@ Notes:
   If you want your buffers to always be page aligned then you need to
   specify 0 for the offset. Dictionaries will always be page aligned.
 
+  The '-z' (Zero Padding) option controls CMPSC-Enhancement Facility.
+  Specify the option as two 0/1 values separated by a single colon.
+  If the -z option is not specified the default is 0:0. If the option
+  is specified but without any arguments then the default is 1:1.
+  The first 0/1 defines whether the facility should be enabled or not.
+  The second 0/1 controls whether the GR0 zero padding option bit 46
+  should be set or not (i.e. whether the zero padding option should be
+  requested or not). The two values together allow testing the proper
+  handling of the facility since zero padding may only be attempted
+  when both the Facility bit and the GR0 option bit 46 are both '1'.
+
+  The '-w' (Zero Padding Alignment) option allows adjusting the model-
+  dependent integral storage boundary for zero padding. The value is
+  specified as a power of 2 number of bits ranging from 1 to 12.
+
   Use the '-t' (Translate) option when testing using ASCII test files
   since most dictionaries are intended for EBCDIC data. If specified,
   the test data is first internally translated from ASCII to EBCDIC

cmdtab.h

@@ -169,6 +169,16 @@
   "Format: \"cmdtgt [herc | scp | pscp | ?]\". Specify the command target.\n"
 
 #define cnslport_cmd_desc       "Set console port"
+#if defined(_FEATURE_CMPSC_ENHANCEMENT_FACILITY)
+#define cmpscpad_cmd_desc       "Set/display the CMPSC zero padding value."
+#define cmpscpad_cmd_help       \
+                                \
+  "The CMPSCPAD command defines the zero padding storage alignment boundary\n"  \
+  "for the CMPSC-Enhancement Facility. It must be a power of 2 value ranging\n" \
+  "anywhere from " QSTR( MIN_CMPSC_ZP_BITS ) " to " QSTR( MAX_CMPSC_ZP_BITS ) ". Enter the command with no arguments to display the\n" \
+  "current value.\n"
+
+#endif /* defined(_FEATURE_CMPSC_ENHANCEMENT_FACILITY) */
 #define codepage_cmd_desc       "Set/display code page conversion table"
 #define codepage_cmd_help       \
                                 \
@@ -1536,6 +1546,9 @@ COMMAND( "sizeof",                  sizeof_cmd,             SYSCMDNOPERNPROG,
 /*-------------------------------------------------------------------*/
 
 //       "1...5...9",               function                type flags          description             long help
+#if defined(_FEATURE_CMPSC_ENHANCEMENT_FACILITY)
+COMMAND( "cmpscpad",                cmpscpad_cmd,           SYSCFGNDIAG8,       cmpscpad_cmd_desc,      cmpscpad_cmd_help   )
+#endif /* defined(_FEATURE_CMPSC_ENHANCEMENT_FACILITY) */
 #if defined( _FEATURE_ASN_AND_LX_REUSE )
 COMMAND( "alrf",                    alrf_cmd,               SYSCMDNOPER,        alrf_cmd_desc,          NULL                )
 COMMAND( "asn_and_lx_reuse",        alrf_cmd,               SYSCMDNOPER,        asnlx_cmd_desc,         NULL                )

cmpsc.h

@@ -21,13 +21,13 @@
 #define DEF_CMPSC_CPU_AMT     ( 1024 * 1024 )         // 1MB
 #define MAX_CMPSC_CPU_AMT     ( 1024 * 1024 * 1024 )  // 1GB
 
-#define CMPSC_INLINE          INLINE                  // __forceinline
-#define CMPSC_FASTCALL        ATTR_REGPARM( 3 )       // __fastcall
+#define CMPSC_INLINE          INLINE                // __forceinline
+#define CMPSC_FASTCALL        ATTR_REGPARM( 3 )     // __fastcall
 
 #define CMPSC_EXPAND8         // (#define to enable expand-8 logic)
 #define CMPSC_SYMCACHE        // (#define to enable symcache logic)
 
-#define CMPSC_SYMCACHE_SIZE   ( 1024 * 32 )  // (must be < 64K)
+#define CMPSC_SYMCACHE_SIZE   ( 1024 * 32 )     // (must be < 64K)
 
 ///////////////////////////////////////////////////////////////////////////////
 // Dictionary sizes in bytes by CDSS
@@ -56,7 +56,7 @@ struct CMPSCBLK             // CMPSC instruction control block
     U8      cdss;           // Compressed-data symbol size        (1-5)
     U8      cbn;            // Compressed-data bit number         (0-7)
     U8      cc;             // Condition-Code value               (0-3)
-    U8      rsrvd1;         // Reserved for future use            (pad)
+    U8      zp;             // Zero-pad operand-1 when done       (pad)
 };
 typedef struct CMPSCBLK CMPSCBLK;