MIDRANGE dot COM Mailing List Archive



Home » MIDRANGE-L » February 1998

Re: Base utility?


  • Subject: Re: Base utility?
  • From: "Tony" <ath@xxxxxxx>
  • Date: Mon, 23 Feb 1998 16:35:33 -0500

fixed


->
>Here's most of it. You'll have to take care of your own initializing and
>looping,
>but the basic parts are here.  (This is good for 1296 combinations, as
opposed
>to your 100 and 256 for decimal and hex. Suitable changes to the constant
and
>the IfGT value can make this good for an almost arbitrary number of
>identifiers.)
>
>
>DKeySq1           S              2P 0
>DKeySq2           S              2P 0
>DKeySq1AL         S              1
>DKeySq2AL         S              1
>DKeySqAL          S              2
>DSEQVAL           C                   'ABCDEFGHIJKLMNOPQRSTUVWXYZ-
>D                                     0123456789'
> *
>C                   Add       1             KeySq2
>C     KeySq2        IfGT      35
>C                   Move      00            KeySq2
>C                   Add       1             KeySq1
>C                   EndIf
> *
>C                   Move      CurDat        CurDatAL
>C                   Move      CurTim        CurTimAL
>C                   Eval      KeySq1AL = %SubSt(SEQVAL:(KeySq1+1):1)
>C                   Eval      KeySq2AL = %SubSt(SEQVAL:(KeySq2+1):1)
>C                   MoveL(P)  KeySq1AL      KeySqAL
>C                   Move      KeySq2AL      KeySqAL
>
>Peter H. Coffin
>phcoffin@us.ibm.com
>+---
>| This is the Midrange System Mailing List!
>| To submit a new message, send your mail to "MIDRANGE-L@midrange.com".
>| To unsubscribe from this list send email to
MIDRANGE-L-UNSUB@midrange.com.
>| Questions should be directed to the list owner/operator:
david@midrange.com
>+---
>
Thanks Peter,

I think this is exactly what I needed.  One other question..  Is there a
reason we go from ABC...789, instead of 012...XYZ ?  The later seems to be
more logical as with hex.

Just an observation,
Tony

+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to "MIDRANGE-L@midrange.com".
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---






Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2014 by MIDRANGE dot COM and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available here. If you have questions about this, please contact