ASMB,R,L,C * * **************************************************************** * * (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. * * **************************************************************** * * NAME: PART OF MATH LIBRARY * SOURCE: 24998-18XXX SEE NAM FOR LAST THREE DIGITS * RELOC: PART OF 24998-12001 * PGMR: BG & JTS * HED "DIM" REAL POSITIVE DIFFERENCE. NAM DIM,6 24998-1X095 REV.2001 750701 ENT DIM EXT .ZPRV SPC 2 * * CALLING SEQUENCE: ALL VARIABLES ARE REAL * Y = X1 - MIN(X1,X2) * JSB DIM * DEF *+3 * DEF X1 * DEF X2 * (RESULT IN A AND B) SPC 2 X2 NOP DIM NOP JSB .ZPRV DEF LIBX ISZ DIM LDA DIM,I ISZ DIM LDB DIM,I ISZ DIM STB X2 SAVE ADDRESS OF X2 DLD A,I FSB X2,I X1 - X2 SSA,RSS RESULT POSITIVE ? JMP LIBX YES. CLA NO. RESULT = 0 CLB LIBX JMP DIM,I DEF DIM A EQU 0 END *