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 * JSB $DBLX * * 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