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

ADDFormat: CALL ADD(JCARD, J, JLAST, KCARD, K, KLAST, NER)Function: Sums two arbitrary-length decimal data fields, placing the result in thesecond data field.Parameter description:JCARD - The name of a one-dimensional integer array defined in a DIMENSIONstatement. This is the array which is added, the addend. The data mustbe stored in JCARD in decimal format, one digit per word.J - An integer constant, an integer expression, or an integer variable. Thisis the position of the first digit to be added (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 digit to beadded (the right-hand end of a field).KCARD - The name of a one-dimensional integer array defined in a DIMENSIONstatement. This is the augend, the array which is added to. It will containthe result in decimal format, one digit per word.K - An integer constant, an integer expression, or an integer variable. Thisis the position of the first digit of KCARD (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 character ofKCARD (the right-hand end of a field).NER - An integer variable. Upon completion of the subroutine, this variableindicates whether arithmetic overflow occurred.Detailed description: The corresponding digits, by place value, of JCARD and KCARD,are summed and placed back in KCARD. This operation is from left to right, with bothfields being right-adjusted. Next, all carries are set in order. If overflow occurred,it is indicated by NER being equal to KLAST. NER must be initialized and reset by theuser. More detailed information may be found in the ADD flowchart and listing.–4- ADDA1A3A1DECA3A1CARRYDE CA1DIVDPACKDUNPKEDITFILLGETICOMPIONDKEYBDMOVEMPYNCOMPNSIGNNZONEPACKPRINTPUNCHPUTP1403P1442READR2501SKIPSTACKSUBS1403TYPERUNPACWHOLE-13-1,1 iiii III om .....MirmumnotHollum...mn. momommommonmonnommonmownomnorr,-