Deck 1TN Part 004

18 Modifications

Listing Sections

Deck 1TN Start
Deck 1TN Part 1 (Line 1988)
Deck 1TN Part 2 (Line 4079)
Deck 1TN Part 3 (Line 6158)
Deck 1TN Part 4 (Line 7977)

Source

Seq #  *Modification Id* Act 
----------------------------+
07977  M00S07372.1tn     +++| TEQN     BSS    MXMX+2
07978  M00S07373.1tn     +++|
07979  M00S07374.1tn     +++|
07980  M00S07375.1tn     +++|**        TNTD - TABLE OF NUMBER OF TERMINALS PER DEVICE.
07981  M00S07376.1tn     +++|*
07982  M00S07377.1tn     +++|*         ENTRY  1 WORD.
07983  M00S07378.1tn     +++|*
07984  M00S07379.1tn     +++|*         NUMBER OF TERMINALS FOR MULTIPLEXER.
07985  M00S07380.1tn     +++|
07986  M00S07381.1tn     +++|
07987  M00S07382.1tn     +++| TNTD     BSS    MXMX+1
07988  M00S07383.1tn     +++|
07989  M00S07384.1tn     +++|
07990  M00S07385.1tn     +++|**        TTTC - TABLE OF TERMINAL TYPE IDENTIFICATION CODES.
07991  M00S07386.1tn     +++|
07992  M00S07387.1tn     +++|
07993  M00S07388.1tn     +++| TTTC     BSS    TNTT
07994  M00S07389.1tn     +++|
07995  M00S07390.1tn     +++|
07996  M00S07391.1tn     +++|**        TITA - TABLE OF INPUT TRANSLATION TABLE ADDRESSES.
07997  M00S07392.1tn     +++|
07998  M00S07393.1tn     +++|
07999  M00S07394.1tn     +++| TITA     BSS    TNTT
08000  M00S07395.1tn     +++|
08001  M00S07396.1tn     +++|
08002  M00S07397.1tn     +++|**        TOTA - TABLE OF OUTPUT TRANSLATION TABLE ADDRESSES.
08003  M00S07398.1tn     +++|
08004  M00S07399.1tn     +++|
08005  M00S07400.1tn     +++| TOTA     BSS    0
08006  M00S07401.1tn     +++|          TITLE  ESTABLISH *1TN* PROGRAM LOAD PARAMETERS.
08007  M00S07402.1tn     +++|**        ESTABLISH *1TN* LOAD ADDRESS.
08008  M00S07403.1tn     +++|
08009  M00S07404.1tn     +++|
08010  M00S07405.1tn     +++|*         CALCULATE LABELED BLOCK LENGTHS.
08011  M00S07406.1tn     +++|
08012  M00S07407.1tn     +++|          USE    RESIDENT
08013  M00S07408.1tn     +++| RESE     BSS    0           END OF *RESIDENT* BLOCK
08014  M00S07409.1tn     +++| RESL     EQU    RESE-RESF   LENGTH OF *RESIDENT*
08015  M00S07410.1tn     +++|
08016  M00S07411.1tn     +++|          USE    MAIN
08017  M00S07412.1tn     +++| MANE     BSS    0           END OF *MAIN* BLOCK
08018  M00S07413.1tn     +++| MANL     EQU    MANE-MANF   LENGTH OF *MAIN*
08019  M00S07414.1tn     +++|
08020  M00S07415.1tn     +++|          USE    PRESET
08021  M00S07416.1tn     +++| PRSE     BSS    0           END OF *PRESET* BLOCK
08022  M00S07417.1tn     +++| PRSL     EQU    PRSE-PRSF   LENGTH OF *PRESET*
08023  M00S07418.1tn     +++|
08024  M00S07419.1tn     +++|
08025  M00S07420.1tn     +++|*         CALCULATE LOAD PARAMETERS.
08026  M00S07421.1tn     +++|
08027  M00S07422.1tn     +++| .1       SET    RESL+MANL+PRSL
08028  M00S07423.1tn     +++| .5       MAX    TNTT,5      SET TABLE ALLOWANCE
08029  M00S07424.1tn     +++| .2       SET    .1+5+4+2    LENGTH + HEADER + SHORT PRU + EXR CALL
08030  M00S07425.1tn     +++| .3       SET    .2/500+1    NUMBER OF SECTORS REQUIRED
08031  M00S07426.1tn     +++| .2       SET    .1+5        OVERLAY LENGTH PLUS HEADER WORD
08032  M00S07427.1tn     +++| .3       SET    .3*500-5    WORDS TO LOAD LESS SHORT PRU ALLOWANCE
08033  M00S07428.1tn     +++|
08034  M00S07429.1tn     +++|
08035  M00S07430.1tn     +++|*         SET OVERLAY ORIGIN.
08036  M00S07431.1tn     +++|
08037  M00S07432.1tn     +++|          ORG    7776-.3+5-.5  SET *1TN* LOAD ADDRESS
08038  M00S07433.1tn     +++|
08039  M00S07434.1tn     +++| PRG      BSSZ   .3-.2       FORCE BLOCKS UPPER
08040  M00S07435.1tn     +++|
08041  M00S07436.1tn     +++|
08042  M00S07437.1tn     +++|*         CALCULATE AVAILABLE CORE IN PPU.
08043  M00S07438.1tn     +++|
08044  M00S07439.1tn     +++|          IFNE   VPPT,0      IF PP RESIDENT TRANSLATION TABLES
08045  M00S07440.1tn     +++| AVBL     SET    IBUF-TCTA-LNPP  AVAILABLE CORE FOR CODE.
08046  M00S07441.1tn     +++|          ELSE               IF NO PP RESIDENT TRANSLATION TABLES
08047  M00S07442.1tn     +++| AVBL     SET    TRAA-TCTA   AVAILABLE CORE FOR CODE
08048  M00S07443.1tn     +++|          ENDIF

Line S07444 Modification History
`M01` (Removed by)	`ns22000`

Seq #  *Modification Id* Act 
----------------------------+
08049  M01S07444.ns22000 ---|

Line S00323 Modification History
`M01` (Added by)	`ns22000`

Seq #  *Modification Id* Act 
----------------------------+
08050  M01S00323.ns22000 +++|          TTL    1TN - LOW SPEED INTERACTIVE TERMINAL DRIVER.
08051  M01S00324.ns22000 +++|          SPACE  4,10
08052  M00S07445.1tn     +++|          END