HP 3000 Manuals

Compiler Library/XL Reference Manual

HPPACSLD 

HPPACSLD performs a decimal left shift.

Declaration 

      PROCEDURE HPPACSLD (
                ANYVAR  operand2        :decimal_type;
                        op2digs         :INTEGER;
                ANYVAR  operand1        :decimal_type;
                        op1digs         :INTEGER;
                        shift_amt       :INTEGER;
                VAR     comparison_code :INTEGER;
                VAR     pacstatus       :INTEGER;
                VAR     carry           :INTEGER)
         OPTION
                DEFAULT_PARMS (
                        comparison_code :=NIL,
                        pacstatus       :=NIL,
                        carry           :=NIL)
                UNCHECKABLE_ANYVAR;
         EXTERNAL;

Comments 

 *  Operand1 is moved to the operand2 field with its digits offset to the
    left of its sign by the shift amount in the low-order five bits of
    shift_amt.

 *  Leading or trailing digits in the result field that are not supplied
    by the source operand will be zeros.

 *  Digits shifted out of the operand2 field are lost, and carry is set
    to one to indicate that significant digits were lost.

Possible Traps 

Invalid packed-decimal digit (3)
Invalid decimal operand length (5)

MPE/iX 5.0 Documentation