1130 Commercial Subroutine Package - All about the IBM 1130 ...

ICOMPFormat: ICOMP (JCARD,J,JLAST,KCARD,K,KLAST)Function: Two variable-length decimal format data fields are compared. The resultis set to a negative number, zero, or a positive number. This is a function subprogram.Parameter description:JCARD - The name of a one-dimensional integer array defined in a DIMENSIONstatement. This array contains the first data field to be compared, onedigit per word, in decimal format.J - An integer constant, an integer expression, or an integer variable.This is the position of the first character of JCARD to be compared(the left-hand end of a field).JLAST - An integer constant; an integer expression, or an integer variable,greater than or equal to J. This is the position of the last characterof JCARD to be compared (the right-hand end of a field).KCARD - The name of a one-dimensional integer array defined in a DIMENSIONstatement. This array contains the second data field to be compared,one digit per word, in decimal format. If the fields are unequal inlength, the KCARD field must be the longer field.K - An integer constant, an integer expression, or an integer variable.This is the position of the first character of KCARD to be compared(the left-hand end of a field).KLAST - An integer constant, an integer expression, or an integer variable,greater than or equal to K. This is the position of the last characterof KCARD to be compared (the right-hand end of a field).Detailed description: Since the fields are assumed to be right-justified, the firstoperation is to examine the length of each field. If KCARD is longer than JCARD, theleading digits of KCARD are examined. If any one of them is greater than zero theresult (ICOMP) is the opposite sign of KCARD. If they are all zero, or if the lengthsare equal, corresponding digits are compared. The routine operates from left to right.The routine terminates when KCARD is longer than JCARD and a nonzero digit appearsin the high-order of KCARD, when JCARD and KCARD do not match, or when all digitsin JCARD and KCARD are equal. The following table shows the value of ICOMP,depending on the relation of the JCARD field to the KCARD field:ADDA1A3A1DECA3A1CARRYDECA1DIVDPACKDUNPKEDITFILLGETICOMPIONDKEYBDMOVEMPYNCOMPNSIGNNZONEPACKPRINTPUNCHPUTP1403P1442READR2501SKIPSTACKSUBS1403TYPERUNPACWHOLEICOMP Relation- (minus) JCARD is less than KCARD0 (zero) JCARD is equal to KCARD+ (plus) JCARD is greater than KCARD-45-I I '''' OM' 111NR 1,1 " '