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

A3A1Format: CALL A3A1(JCARD, J, JLAST, KCARD, K, ICHAR)Function: To convert from A3 format (three characters per word) as created by theA1A3 subroutine to Al format (one character per word).Parameter description:JCARD – The name of a one-dimensional integer array defined in a DIMENSIONstatement. This array contains the field to be converted. Originally,this field must be in A3 format, three characters per word.J - An integer constant, an integer expression, or an integer variable.This is the position of the first element of JCARD to be converted (theleft-hand end of a field).JLAST - An integer constant, an integer expression, or an integer variable.This is the position of the last element of JCARD to be converted (theright-hand end of a field).KCARD - The name of a one-dimensional integer array defined in a DIMENSIONstatement. This is the array into which the data is converted, in Alformat, one character per word.KAn integer constant, an integer expression, or an integer variable.This is the position of the first element of KCARD to receive the convertedcharacters (the left-hand end of a field).ICHAR - The name of a one-dimensional integer array defined in a DIMENSIONstatement. This array contains a table used in the conversion.Detailed description: A3 integers are taken, one at a time, from the JCARD array. Eachis decoded into the three numbers of which it is composed, as follows:ADDA1A3A1DECA3A1CARRYDECA1DIVDPACKDUNPKEDITFILLGETICOMPIONDKEYBDMOVEMPYNCOMPNSIGNNZONEPACKPRINTPUNCHPUTP1403P1442READR2501SKIPSTACKSUBS1403TYPERUNPACWHOLEN1={ (A3 INTEGER/1600) + 20 if the A3 integer is positive((A3 INTEGER + 32000)/1600) if the A3 integer is negative }N2=(A3 INTEGER-(N1-20)*1600)/40N3=A3 INTEGER-(N1-20)*1600-(N2*40)The resulting integers, N1, N2, N3, are then used to locate their corresponding Alcharacters in the ICHAR array. Each Al character is then placed in the KCARD array.Note that each element of JCARD requires three elements in KCARD.