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

ADDA1A3A1DECA3A1CARRYDECA1-4---DIVDPACKDUNPKEDITFILLGETICOMPIONDKEYBDMOVEMPYNCOMPNSIGNNZONEPACKPRINTPUNCHPUTP1403P1442READR2501SKIPSTACKSUB51403TYPERUNPACWHOLEDECALFormat: CALL DECA1(JCARD,J,JLAST,NER)Function: Converts a field from decimal format, right-justified, one digit per word, toAl format, one character per word.Parameter description:JCARD - The name of a one-dimensional integer array defined in a DIMENSIONstatement. This is the name of the field that will be converted. Originally,this field must be in decimal format, one digit per word.J - An integer constant, an integer expression, or an integer variable.This is the position of the first digit of JCARD to be converted (theleft-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 converted (the right-hand end of a field).NER - An integer variable. This variable will be equal to the position of thelast digit of JCARD which was negative or greater than 9, except for theJLAST position, which can be negative (sign).Detailed description: The subroutine operates from left to right. First the sign is determined.Then each digit, starting with JCARD(J), is converted to Al format using theformulaCharacter = 256 * (decimal digit) - 4032When all digits have been converted, the field is signed. More detailed informationmay be found in the DECAL flowchart and listing.