ASMB,R,L,C
*     NAME:   $DBLX 
*     SOURCE: 92070-18075 
*     RELOC:  92070-16075 
*     PGMR:   M.L.K.
* 
*  ***************************************************************
*  * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1979.  ALL RIGHTS     *
*  * RESERVED.  NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED,      *
*  * REPRODUCED OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITHOUT*
*  * THE PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY.       *
*  ***************************************************************
* 
* 
      NAM $DBLX,7  92070-1X075  REV.1941  790709
* 
* 
*     THIS ROUTINE IS USED TO TEST THAT DOUBLE WORD INTEGERS ARE
*     WITHIN THE RANGE  +/- 0-32767.
* 
*     CALLING SEQUENCE: 
* 
*                      DLD <DOUBLE WORD INTEGER>
*                      JSB $DBLX
*                      <ERROR RTN WITH A = OUT OF RANGE ERROR>
*                      <NORMAL RTN, A & B UNCHANGED>
      ENT $DBLX 
      SUP 
      SPC 5 
$DBLX NOP 
      SZA,RSS       ARE THE HI ORDER BITS 0?
      SSB             AND THE LO ORDER BITS POSITIVE? 
      JMP NEGCK     NO, CHECK FOR NEGATIVE
* 
VALOK ISZ $DBLX     POINT TO NORMAL RETURN
      JMP $DBLX,I   RETURN
* 
NEGCK CPA N1        ARE HI ORDER BITS = -1
      SSB,RSS         AND LO ORDER BITS NEGATIVE? 
      JMP ER        NO, ERROR 
      JMP VALOK     YES, VALUE IS OK
* 
ER    LDA N4        RETURN OUT OF RANGE 
      JMP $DBLX,I   TO ERROR RETURN POINT 
* 
* 
N1    DEC -1
N4    DEC -4
      END 
                    