COMTRAN Reconstruction

J28-6169 · January 1962

90.02.19

PDF page 158 of 221. Download the scanned PDF

The page as scanned

The scan of PDF page 158 of J28-6169
Select the scan to open it at full size.

The text read off it

[90.02.19]

*Note 2. The first character processed under control of this instruction is examined for source field sign.

*Note 3. The last character processed under control of this instruction is examined for source field sign.

SYS)190

TXI  SYS)190,1,TARGET-EDIT-CONTROL      *Note 1.
OCT  TARGET-CONTROL-WORD-BITS

This is a MOVPAK subroutine which moves an edited field to an edited field. The first instruction is followed by a TARGET-CONTROL-WORD, *NOTE 1, and two or more of the following instructions:

TXI  SYS)194, 1, NUMBER-OF-CHARACTERS-TO-MOVE
TXI  SYS)196, 1, NUMBER-OF-CHARACTERS-TO-TEST-FOR-OVERFLOW
TXI  SYS)198, 1, NUMBER-OF-CHARACTERS-TO-MOVE
TXI  SYS)202, 1, NUMBER-OF-CHARACTERS-TO-BYPASS
                                                        *Note 2.
TXI  SYS)204, 1, NUMBER-OF-CHARACTERS-TO-TEST-FOR-OVERFLOW
TXI  SYS)208, 1, NUMBER-OF-CHARACTERS-TO-BYPASS
TXI  SYS)214, 1, NUMBER-OF-LEADING-ZEROS-TO-INSERT
TXI  SYS)216, 1, NUMBER-OF-TRAILING-ZEROS-TO-INSERT
TXI  SYS)218, 1, NUMBER-OF-CHARACTERS-TO-SCAN-FOR-SIGN
TRA  SYS)222               Round current character
TXI  SYS)226, 1, TARGET-NUMERIC-LENGTH   (End of call sequence)
TXI  SYS)230, 1, NUMBER-OF-CHARACTERS-TO-MOVE
                                                        *Note 3.
TXI  SYS)234, 1, NUMBER-OF-CHARACTERS-TO-TEST-FOR-OVERFLOW
                                                        *Note 3.
TXI  SYS)238, 1, NUMBERS-OF-CHARACTERS-TO-BYPASS
                                                        *Note 3.

*Note 1. The TARGET-EDIT-CONTROL and the TARGET-CONTROL-WORD are the same format as described under SYS)185.

*Note 2. The first character processed under control of this instruction is examined for source field sign.

*Note 3. The last character processed under control of this instruction is examined for source field sign.

SYS)191

TXI  SYS)191,1,NUMBER-OF-CHARACTERS-TO-MOVE

This is a MOVPAK subroutine used in conjunction with SYS)183 in moving external decimal fields to external decimal fields.