Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Posting-Version: Notesfiles $Revision: 1.6.2.17 $; site uiucdcs.UUCP
Path: utzoo!watmath!clyde!cbosgd!ihnp4!inuxc!pur-ee!uiucdcs!mccaugh
From: mccaugh@uiucdcs.UUCP
Newsgroups: net.lang
Subject: Re: re: IF KICK-BACK GREATER THAN...
Message-ID: <26400020@uiucdcs.UUCP>
Date: Sat, 29-Dec-84 19:21:00 EST
Article-I.D.: uiucdcs.26400020
Posted: Sat Dec 29 19:21:00 1984
Date-Received: Thu, 3-Jan-85 00:55:04 EST
References: <797@pucc-i.UUCP>
Lines: 39
Nf-ID: #R:pucc-i:-79700:uiucdcs:26400020:000:1964
Nf-From: uiucdcs!mccaugh    Dec 29 18:21:00 1984


 I believe the set-expression you want for: 10 < KICK-BACK < 100 should be
              kickback  in  [11..99],  not  kick_back  in  [10..100].

 Also, as the following extraction of VAX-code demonstrates, the set-expression
 appears to be the less tedious of the two alternatives, to wit:

 /* set-expression */                  /* conditional-expression */

    clrl    r0                             movl    _kickback,r0
    subl2   r2,r1                          movl    $10,r1
    cmpl    r1,r3                          cmpl    r0,r1
    jgtru   1f                             jleq    L9999
    jbc     r1,(r4),1f                     movl    $1,r0
    incl    r0                             jbr     L9998
1:                                      L9999:
    tstl    r0                             clrl    r0
    jeql    L7                          L9998:
    moval    _output,-12(fp)               movl    _kickback,r1
(* is the code for the *)                  cvtbl    $100,r2
(* following set-expr. *)                  cmpl    r1,r2
if  kickback in [11..99]  then             jgeq    L9997
    writeln(kickback);                     movl    $1,r1
                                           jbr     L9996
                                        L9997:
                                           clrl    r1
                                        L9996:
                                           mcoml   r1,r1
                                           bicl2   r1,r0
                                           jeql    L6
                                           moval   _output,-12(fp)
                                     (* is the code for the *)
                                     (* following cond-expr *)
                                     if  (kickback > 10) and
                                         (kickback < 100)  then
                                         writeln(kickback);

                                       --uiucmsl!mccaugh