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

READFormat: CALL READ(JCARD,J,JLAST,NER)Function: Reads a card from the IBM 1442, Model 6 or 7, only, overlapping the conversionfrom card codes to EBCDIC.Parameter description:JCARD - The name of a one-dimensional integer array defined in a DIMENSIONstatement. A card will be read into this array, in Al format, one characterper word.J - An integer constant, an integer expression, or an integer variable. Thisis the position of the first word of JCARD into which a character willbe read (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 word ofJCARD into which a character will be read (the right-hand end of afield).NER - An integer variable. This variable indicates any conditions that have occurredin reading a card, and the nature of these conditions.Detailed description: A card read operation is started. While the card is being read,the characters, one at a time, are converted from card codes to EBCDIC. If an erroroccurs during the operation, the condition indicator is set, and the operation continues.The possible values of the condition indicator and their meaning are listed below:NER is when0 Last card condition.1 Feed or read check.Operator interventionrequired.ADDA1A3A1DECA3A1CARRYDECA1DIVDPACKDUNPKEDITFILLGETICOMPIONDKEYBDMOVEMPYNCOMPNSIGNNZONEPACKPRINTPUNCHPUTP1403P1442READR2501SKIPSTACKSUBS1403TYPERUNPACWHOLEIf a WAIT occurs at location 41, one of the following conditions exists:ConditionsReader not ready.Internal subroutine error. Rerun job.If error persists, verify that the subroutinedeck is accurate, using thelisting in this manual. If the deck isthe same, contact your IBM representative.Save all output.Accumulator (hex)lxx0lxxl-73-11111111111■1 I 1. 11111 r • MI',