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

ADD P1403A1A3AlDECA3A1 Format: CALL P1403(JCARD, J, JLAST, NER)CARRYDECA1 Function: The printing of one line on the IBM 1403 Printer, Model 6 or 7, is initiated,DIVand control is returned to the user.DPACKDUNPK Parameter description:EDITFILLJCARD - The name of a one-dimensional integer array defined in a DIMENSIONGETstatement. This array contains the information to be printed, on theICOMPIBM 1403 Printer, in Al format, one character per word.IONDKEYBDJ - An integer constant, an integer expression, or an integer variable. ThisMOVEis the position of the first character of JCARD to be printed (the left-handMPYend of a field).NCOMPNSIGN JLAST - An integer constant, an integer expression, or an integer variable,NZONEgreater than or equal to J. This is the position of the last character ofPACKJCARD to be printed (the right-hand end of a field).PRINTPUNCHNER - An integer variable. This variable indicates carriage control tape condi-PUTtions that have occurred in printing.P1403 .4-P Detailed description: When the previous print operation is finished, if a print operationREAD was going on, the routine begins. The characters to be printed are converted to 1403R2501 Printer codes and reversed so as to match the 1403 buffer mechanism. Since the char-SKIP acters are taken in pairs, an even number of characters is required. If necessary, theSTACK character at JCARD(JLAST+1) will be used to get an even number. Printing is thenSUB initiated and control is returned to the user. When printing is finished, the printer spacesS1403 one line and the indicator, NER, is set as follows:TYPERUNPACWHOLENER is when3 Channel 9 has been encountered4 Channel 12 has been encounteredIf neither channel 9 nor channel 12 is encountered, the indicator is not set. If a WAIToccurs at location 41, one of the following conditions exists:ConditionsPrinter not ready or end of forms.Internal subroutine error. Rerun job. If error persists,verify that the subroutine deck is accurate, using the listingin this manual. If the deck is the same, contact your localIBM representative. Save all output.Accumulator (hex)90009001All of the above WAITs require operator intervention.