COMTRAN Reconstruction

J28-6169 · January 1962

90.02.18

PDF page 157 of 221. Download the scanned PDF

The page as scanned

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

The text read off it

[90.02.18]

SYS)186

TXI  SYS)186,1,NUMBER-OF-CHARACTERS-TO-DEVELOP

This is a MOVPAK subroutine which converts from internal decimal in the AC or AC-MQ to unsigned external decimal.

SYS)187

TXI  SYS)187,1,NUMBER-OF-CHARACTERS-TO-DEVELOP

This is a MOVPAK subroutine which converts from internal decimal in the AC or AC-MQ to external decimal with overpunch minus sign convention.

SYS)188

TXI  SYS)188,1,NUMBER-OF-CHARACTERS-TO-DEVELOP

This is a MOVPAK subroutine which converts from internal decimal in AC or AC-MQ to external decimal with overpunch plus sign convention.

SYS)189

TXI  SYS)189,1,TARGET-SIGN-CONVENTION      *Note 1.

This is a MOVPAK subroutine which moves an edited field to an external decimal field. This word is followed by two or more of the following instructions:

TXI  SYS)192, 1, NUMBER-OF-CHARACTERS-TO-MOVE
TXI  SYS)195, 1, NUMBER-OF-CHARACTERS-TO-TEST-FOR-OVERFLOW
TXI  SYS)197, 1, NUMBER-OF-CHARACTERS-TO-MOVE
TXI  SYS)200, 1, NUMBER-OF-CHARACTERS-TO-BYPASS
                                                        *Note 2.
TXI  SYS)203, 1, NUMBER-OF-CHARACTERS-TO-TEST-FOR-OVERFLOW
TXI  SYS)207, 1, NUMBER-OF-CHARACTERS-TO-BYPASS
TXI  SYS)213, 1, NUMBER-OF-LEADING-ZEROS-TO-INSERT
TXI  SYS)215, 1, NUMBER-OF-TRAILING-ZEROS-TO-INSERT
TXI  SYS)217, 1, NUMBER-OF-CHARACTERS-TO-SCAN-FOR-SIGN
TRA  SYS)221               Round current characters
TXI  SYS)224, 1, TARGET-NUMERIC-LENGTH   (End of call sequence)
TXI  SYS)229, 1, NUMBER-OF-CHARACTERS-TO-MOVE
                                                        *Note 3.
TXI  SYS)233, 1, NUMBER-OF-CHARACTERS-TO-TEST-FOR-OVERFLOW
                                                        *Note 3.
TXI  SYS)237, 1, NUMBER-OF-CHARACTERS-TO-BYPASS
                                                        *Note 3.

*Note 1. TARGET-SIGN-CONVENTION

Value Meaning
If 0 No sign
If 1 Overpunch minus
If 2 Overpunch plus