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

Example: DIMENSION MPLR(5),MCAND(15)N=0CALL MPY(MPLR,1,5,MCAND,6,15,N)Before:MPLR 00982 MCAND ABCDE0007136673PositionAfter:N=01 5lPosition 1 5 10 15MPLR is unchanged.N=0MCAND 000007008212886Position 1 5 10 15The numeric data fields MPLR, and MCAND are multiplied, the result being placed inMCAND. Note that the MCAND field has been extended to the left the length of theMPLR field, five positions, and that N has not been changed.Errors: If there is not enough room to extend the KCARD field to the left, NER will beset equal to KLAST, and the routine will terminate.Remarks: Conversion from EBCDIC to decimal is necessary before using this subroutine.This may be accomplished with the A1DEC subroutine. The length of the JCARD andKCARD fields is arbitrary, up to the maximum space available.The arithmetic performed is decimal arithmetic, using whole numbers only.Space must always be provided in the KCARD field for expansion. The first position ofthe multiplicand, K, must be at least JLAST-J+1 positions from the beginning ofKCARD. For example, if JCARD is 7 positions, 1 through 7, then the multiplicand,in KCARD, must start at least seven positions (7-1+1=7) from the beginning of KCARD.This would have K equal to 8.The product, located in the KCARD field, will begin at position K-(JLAST-J+1) ofKCARD, and end at position KLAST of KCARD.-53-1,1111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111111.111111111 HMI