COMSREM 
COMMON
          CTEXT  COMSREM - INTERACTIVE SUBSYSTEM PARAMETERS.
          BASE   M
*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992. 
 SETLOC   EQU    *
          SPACE  4,10 
 REM      SPACE  4,10 
***       REM - INTERACTIVE SUBSYSTEM PARAMETERS. 
*         R. E. TATE.        03/10/70.
*         P. D. FARRELL.     75/02/08.
*         L. G. ALEXANDER.   77/03/13.
 POINTERS SPACE  4,35 
**        ADDRESS POINTER WORDS.
* 
* 
*T VCTP   18/ ,18/ FWA COMMAND,6/ ,18/ LWA+1 COMMAND
*T,VCTP   18/ ,18/ TABLE      ,6/ ,18/ TABLE
* 
*T VNTP   36/ FIRST NETWORK    ,24/ LAST NETWORK
*T,VNTP   36/ TERMINAL NUMBER  ,24/ TERMINAL NUMBER 
* 
*T VMST   36/ FWA MESSAGE      ,24/ LWA+1 MESSAGE 
*T,VMST   36/ STATUS TABLE     ,24/ STATUS TABLE
* 
*T VNAT   36/ FWA NETWORK      ,24/ LWA+1 NETWORK 
*T,VNAT   36/ ACTIVITY TABLE   ,24/ ACTIVITY TABLE
* 
*T VPLP   12/ LENGTH POT,6/ ,18/ FWA POT LINK,6/ ,18/ LWA+1 POT LINK
*T,VPLP   12/ LINK TABLE,6/ ,18/ TABLE       ,6/ ,18/ TABLE 
* 
*T VTTP   18/ ,18/ FWA TERMINAL,6/ ,18/ LWA+1 TERMINAL
*T,VTTP   18/ ,18/ TABLES      ,6/ ,18/ TABLES
* 
*T VBMP   42/ ,18/ FWA POT MEMORY 
* 
*T VWMP   18/ ,18/ FWA *WARN*,6/ ,18/ FWA HEADER
*T,VWMP   18/ ,18/ MESSAGE   ,6/ ,18/ MESSAGE 
* 
*T VRAP   18/ ,18/ FWA REENTRY,6/ ,18/ LWA+1 REENTRY
*T,VRAP   18/ ,18/ TABLE      ,6/ ,18/ TABLE
* 
*T DBUG   12/ ,12/ DRIVER    ,12/ ,12/ MOVED TO  ,12/ DRIVER
*T,DBUG   12/ ,12/ MINIMUM   ,12/ ,12/ BYTE FOUR ,12/ STOP IF 
*T,DBUG   12/ ,12/ CYCLE TIME,12/ ,12/ EACH CYCLE,12/ NONZERO 
  
  
          LOC    3
  
 VCTP     BSS    1           COMMAND TABLE POINTER
 VNTP     BSS    1           NETWORK TERMINAL POINTER 
 VMST     BSS    1           MESSAGE STATUS TABLE POINTER 
 VNAT     BSS    1           NETWORK ACTIVITY TABLE POINTER 
 VPLP     BSS    1           POT LINK TABLE POINTER 
 VTTP     BSS    1           TERMINAL TABLE POINTER 
 VBMP     BSS    1           BUFFER MEMORY POINTER
 VWMP     BSS    1           WARN / HEADER MESSAGE POINTER
 VRAP     BSS    1           REENTRY TABLE POINTER
 DBUG     BSS    1           DRIVER DEBUG WORD
 POINTERS SPACE  4,35 
**        POINTER WORDS.
* 
* 
*T VITM   18/ 3R1TM, 24/ 0, 18/ *1TM* *VDRL* POINTER
* 
*T VPPL   60/ NO PPU COUNT
* 
*T VTNL   60/ TOTAL USERS SINCE INITIALIZATION COUNT
* 
*T VANL   60/ CURRENT ACTIVE USER COUNT 
* 
*T VMNL   60/ MAXIMUM POSSIBLE USER COUNT 
* 
*T VCPL   60/ NEW AVAILABLE POT COUNT DURING FL CHANGE
* 
*T VRLL   36/ NEGATIVE INDICATES,24/ REAL TIME CLOCK
*T,VRLL   36/ NO RELOAD         ,24/ AT LAST RECOVERY 
* 
*T VABL   60/ ABNORMAL OCCURENCE COUNT
* 
*T VPAL   60/ POTS ALLOCATED COUNT
* 
*T VPUL   60/ POTS IN USE COUNT 
* 
*T,VGPL   6/POT   ,6/POT  ,12/PREVIOUS,12/NEXT   ,12/BEGIN- ,12/END 
*         6/CHAIN ,6/CHAIN,12/FILL    ,12/FILL   ,12/NING OF,12/OF
*         6/LENGTH,6/COUNT,12/POINTER ,12/POINTER,12/QUEUE  ,12/QUEUE 
* 
*T VDRL   12/ DRIVER  ,24/ CIRCULAR   ,12/ TERMINAL ,12/ FIRST
*T,       12/ FAILURE ,24/ STACK      ,12/ COUNT    ,12/ TERMINAL 
*T,       12/ IF SET  ,24/ ADDRESS    ,12/          ,12/ NUMBER 
  
  
 VITM     BSS    1           *1TM* DRIVER REQUEST WORD
 VPPL     BSS    1           NO PPU COUNT 
 VTNL     BSS    1           TOTAL USER COUNT 
 VANL     BSS    1           ACTIVE USER COUNT
 VMNL     BSS    1           MAXIMUM USER COUNT 
 VCPL     BSS    1           AVAILABLE POT COUNT
 VRLL     BSS    1           RECOVERY 
 VABL     BSS    1           ABNORMAL OCCURENCE COUNT 
 VPAL     BSS    1           NUMBER OF POTS ALLOCATED 
 VPUL     BSS    1           NUMBER OF POTS IN USE
 VGPL     BSS    2           *TGPM* QUEUE STATUS WORDS
 VGPE     BSS    0           END OF STATUS WORDS
 VDRL     BSS    4           DRIVER STATUS WORDS
 VTSR     BSS    1           *TSEM* REJECTS DUE TO FULL QUEUE 
 VTGR     BSS    1           *TGPM* REJECTS DUE TO NO POTS AVAILABLE
 VSHD     BSS    1           SMF SHUTDOWN 
 VTNP     BSS    1           NETWORK TERMINAL NAME TABLE
 VCTL     BSS    1           *VTNL* CONVERTED TO DECIMAL DISPLAY CODE 
 VCAL     BSS    1           *VANL* CONVERTED TO DECIMAL DISPLAY CODE 
  
  
          ERRPL  *-50        POINTER WORD OVERFLOW
          LOC    50 
 SSIW     BSS    1           SCP IDENTIFIER 
 SSCR     BSS    1           SCP STATUS WORD
          SPACE  4,10 
**        MONITOR QUEUES. 
* 
* 
*T,VTRP   60/ MONITOR *TSEM* QUEUE
* 
*T,VTSP   60/ MONITOR *TGPM* SHORT POT CHAIN QUEUE
* 
*T,VTLP   60/ MONITOR *TGPM* LONG POT CHAIN QUEUE 
  
  
          LOC    67 
  
          IF     DEF,VXJT,1 
          ERRNZ  XJPR+1-*    AVOID OVERWRITING THE CEJ/MEJ FLAG 
  
 VTRP     BSS    20D         MONITOR *TSEM* QUEUE 
 VTSP     BSS    30D         MONITOR *TGPM* SHORT POT QUEUE 
 VTLP     BSS    30D         MONITOR *TGPM* LONG POT QUEUE
 VTEQ     BSS    0           END OF MONITOR QUEUES
 MUXP     SPACE  4,10 
**        MULTIPLEXER TABLE.
* 
* 
*         AN ENTRY EXISTS FOR EACH TIME SHARING MULTIPLEXER 
*         OR NETWORK INTERFACE CONNECTED TO THE INTERACTIVE 
*         EXECUTIVE.  THE TABLE IS TERMINATED BY A ZERO WORD. 
* 
*T MUXP   6/ CH,6/ EQ,12/ ,12/ UAL,12/ TC,12/ FT
*         CH  = CHANNEL.
*         EQ  = EQUIPMENT (CONTROLLER) NUMBER OR PORT NUMBER. 
*         UAL = UPPER ACCESS LEVEL LIMIT FOR MUX. 
*         TC  = TERMINAL COUNT. 
*         FT  = FIRST TERMINAL. 
  
  
 MUXP     BSS    12          MULTIPLEXER TABLE
  
          ERRNG  12-MXMX-1   NOT ENOUGH ENTRIES IN MUX TABLE
          SPACE  4,10 
 TXORG    BSS    1           TIMESHARING SUBSYSTEM ORIGIN ADDRESS 
  
  
          ERRPL  *-10000
          LOC    *O 
 CONSTANT SPACE 4,10
**        ASSEMBLY CONSTANTS. 
* 
*         NOTES  *VOPL* LIMITS THE NUMBER OF CHARACTERS SENT IN AN
*                INITIAL NETWORK OUTPUT BLOCK.  IF THIS CONSTANT IS 
*                REDUCED (CHANGED TO LESS THAN FOUR), SYNCHRONOUS 
*                TERMINAL USERS MAY OBSERVE BREAKS IN OUTPUT LINES. 
* 
*                THE MAXIMUM LENGTH OF THE PLT AS DEFINED BY
*                THE VARIABLE *VPLM* IS BASED UPON THE ABSOLUTE 
*                MAXIMUM NUMBER OF POTS WHICH MAY BE ALLOCATED, 
*                10000B.  THIS NUMBER IS CONSTRAINED BY THE 
*                12-BIT POT LINKAGE.
  
  
 VCPC     EQU    10          LENGTH OF POT
 VCPT     EQU    1           CONTROL POINT NUMBER 
 VDSL     EQU    100         LENGTH OF DRIVER CIRCULAR QUEUE
 VDSI     EQU    100B        DEFAULT SRU LIMIT INCREMENT
 VDTI     EQU    100B        DEFAULT TIME LIMIT INCREMENT 
 VIPL     EQU    2           NUMBER OF SOURCE POTS ALLOWED BEFORE DUMP
 VMXU     EQU    256D        NUMBER OF TERMINALS TO RECEIVE MAXIMUM PLT 
 VNPL     EQU    4           MINIMUM NUMBER OF POTS FOR NETWORK 
 VOPL     EQU    4           NUMBER OF POTS ISSUED FOR MUX
 VPLI     EQU    128D        MINIMUM LENGTH OF PLT
 VPLM     EQU    1760B       MAXIMUM LENGTH OF PLT
 VMIP     EQU    200B        MINIMUM NUMBER OF POTS TO HAVE AVAILABLE 
 VRQA     EQU    10B         REQUEST QUEUE BUFFER, EIGHT POTS 
 VRQB     EQU    3           REQUEST QUEUE BUFFER FOR *1TO*, THREE POTS 
 VSEC     EQU    3           NUMBER OF SECTORS IN *1TO* BUFFER
 VTRL     EQU    VTSP-VTRP   LENGTH OF MONITOR *TSEM* QUEUE 
 VTSL     EQU    VTLP-VTSP   LENGTH OF MONITOR *TGPM* SHORT POT QUEUE 
 VTLL     EQU    VTEQ-VTLP   LENGTH OF MONITOR *TGPM* LONG POT QUEUE
 VMIL     EQU    8D          MINIMUM POT CHAINS IN *TGPM* QUEUES
 VMXL     EQU    30D         MAXIMUM POT CHAINS IN *TGPM* QUEUES
 VSCL     EQU    7           LENGTH OF SHORT POT CHAINS 
 VLCL     EQU    17D         LENGTH OF LONG POT CHAINS
 VTHL     EQU    1000D       TIMES QUEUE IS NON-EMPTY BEFORE SHORTENING 
 VXLL     EQU    2500D       MAXIMUM CHARACTERS IN LOGICAL LINE 
 VXPH     EQU    2500D       MAXIMUM CHARACTERS IN PHYSICAL LINE
 VXPL     EQU    20B         MAXIMUM NUMBER OF POTS FOR NETWORK 
 TAPC     EQU    20B         TYPEAHEAD POT COUNT
          ERRPL  TAPC-100B   POT COUNT OVERFLOWS STORAGE FIELD
 TAPT     EQU    TAPC/2+1    TYPEAHEAD MODE THRESHOLD 
 VNCP     EQU    VLCL*2-3    MAXIMUM POTS QUEUED FOR DIRECT OUTPUT
          ERRNG  77-VNCP-VLCL  OVERFLOW OF POT COUNT FIELD
 UTIS     EQU    10          DEFAULT USER TIME LIMIT / 10 
 VFLI     EQU    400B        FL INCREMENT/DECREMENT SEGMENT 
 VFLR     EQU    VMIP*2      MIN FREE POTS BEFORE FL REDUCTION POSSIBLE 
 VDRM     EQU    0           *VDRL* ENTRY FOR *1TM* 
 VDRN     EQU    1           *VDRL* ENTRY FOR *1TN* 
 VMTM     EQU    0           MUX TABLE ENTRY FOR *1TM*
 VMTN     EQU    1           FIRST MUX TABLE ENTRY FOR *1TN*
  
*         THE FOLLOWING ARE *VROT* STATUS BITS USED WITH *1RO*. 
  
 VJIR     EQU    1S1         JOB IN SYSTEM
 VRIR     EQU    1S2         JOB TO BE ROLLED IN AGAIN
 VIPR     EQU    1S3         INPUT REQUESTED
 VOPR     EQU    1S4         OUTPUT AVAILABLE 
  
*         LOAN STATUS VALUES FROM CONNECTION REQUEST MESSAGE. 
*         (ALSO DEFINED IN *COMSNCD*) 
  
 PNLS     EQU    0           NORMAL PRIMARY CONNECTION REQUEST
 SNLS     EQU    10B         NORMAL SECONDARY CONNECTION REQUEST
 PALS     EQU    11B         PRIMARY APPLICATION HAS FAILED 
 SCLS     EQU    12B         SECONDARY APPLICATION ABORTED CONNECTION 
 SVLS     EQU    20B         USER NOT VALIDATED FOR APPLICATION 
 SOLS     EQU    21B         SECONDARY APPLICATION NETTED OFF 
 SFLS     EQU    22B         SECONDARY APPLICATION FAILED 
 SULS     EQU    23B         UNKNOWN SECONDARY APPLICATION
 STLS     EQU    24B         SECONDARY APPLICATION TERMINATED CONNECT 
 SRLS     EQU    25B         SECONDARY APPLICATION REFUSED CONNECTION 
 SALS     EQU    26B         SECONDARY APPLICATION IS NOT AVAILABLE 
 SLLS     EQU    27B         SECONDARY APPLICATION CONNECTION LIMIT 
 ERLS     EQU    30B         IAF INTERNAL ERROR STATUS
 LDLS     EQU    31B         LINE DISCONNECTED WHILE LOANED 
 MXLS     EQU    32B         MAXIMUM LOAN STATUS VALUE
 TSEM     SPACE  4,10 
          SPACE  4
**        *TSEM* MONITOR REQUEST FORMATS. 
* 
* 
*         THE FOLLOWING QUEUE ENTRIES CAN BE MADE BY ANY PP PROGRAM 
*         THROUGH THE USE OF THE MONITOR FUNCTION *TSEM*. 
* 
*         FOR ALL REQUESTS, NNNN = TERMINAL NUMBER
* 
* 
*         DROP POTS (VDPO)
* 
*         2000 0000YYYY XXXX NNNN 
*                XXXX = FIRST POT TO BE DROPPED.
*                YYYY = LAST POT TO BE DROPPED. 
* 
* 
*         ASSIGN OUTPUT (VASO)
* 
*         2001 00PP YYYY XXXX NNNN
*                PP   = NUMBER OF POTS CONTAINING OUTPUT. 
*                XXXX = FIRST POT OF OUTPUT.
*                YYYY = LAST POT OF OUTPUT. 
* 
* 
*         MESSAGE TO TERMINAL (VMSG)
*         IF NNNN IS BELOW LEGAL TERMINAL NUMBERS, MESSAGE IS WARNING.
* 
*         2002 0000YYYY XXXX NNNN 
*                XXXX = FIRST POT OF OUTPUT.
*                YYYY = LAST POT OF OUTPUT. 
* 
* 
*         SET TERMINAL TABLE BIT (VSDT) 
* 
*         2003 0000YYYY XXXX NNNN 
*                YYYY = TERMINAL TABLE WORD NUMBER. 
*                XXXX = BIT NUMBER. 
* 
*         CLEAR TERMINAL TABLE BIT (VCDT) 
* 
*         2004 0000YYYY XXXX NNNN 
*                YYYY = TERMINAL TABLE WORD NUMBER. 
*                XXXX = BIT NUMBER. 
* 
* 
*         SET CHARACTER SET MODE (VSCS) 
* 
*         2005 0000 00YX 0000 NNNN
*                Y = RESET ENTRY MODE.
*                X = MODE.
*                    0 = NORMAL.
*                    1 = EXTENDED (ASCII).
*                    2 = RESTORE TO ENTRY MODE. 
* 
* 
*         SET PARITY (VPTY) 
* 
*         2006 0000 0000 000X NNNN
*                X = 0 SET ODD PARITY.
*                X = 1 SET EVEN PARITY. 
* 
* 
*         SET SUBSYSTEM (VSBS)
* 
*         2007 0000 0000 00XX NNNN
*                  XX = SUBSYSTEM.
* 
* 
*         SEND JOB STATUS (VSJS)
* 
*         2010 0000 MSFL 0000 NNNN
*                MSFL = MESSAGE READY FLAG. 
* 
* 
*         FORCE LOGOFF (VTLF) 
* 
*         2011 0000 XXXX PPPP NNNN. 
* 
*                XXXX = 0, NORMAL LOGOUT(APPLICATION NAME IN POT).
*                     = 1, APPLICATION SWITCH(APPLICATION NAME IN POT). 
*                     = 2, UNCONDITIONAL LOGOUT(NO APPLICATION NAME). 
*                PPPP = POT POINTER CONTAINING APPLICATION NAME.
* 
* 
*         RECOVER DETACHED JOB (VREC) 
* 
*         2012 AAAA AAAA 0000 NNNN
*                AAAA AAAA = JSN OF JOB TO RECOVER. 
* 
* 
*         INITIATE TWO PORT MUX DRIVER (VITP) 
* 
*         2013 0000 0000 0000 0000
* 
* 
*         ASSIGN DIRECT INPUT (VADI)
* 
*         2014 0000 0000 0000 NNNN
* 
* 
*         ASSIGN DIRECT OUTPUT (VADO) 
* 
*         2015 00PP YYYY XXXX NNNN. 
*                PP   = NUMBER OF POTS CONTAINING OUTPUT. 
*                XXXX = FIRST POT OF OUTPUT.
*                YYYY = LAST POT OF OUTPUT. 
* 
* 
*         CONNECT TERMINAL TO SCREEN MANAGEMENT FACILITY (VCSM) 
* 
*         2016 0000 0000 000X NNNN. 
* 
*                X = 0 TO CONNECT, 1 TO DISCONNECT. 
* 
* 
*         DETACH JOB FROM RUNNING PROGRAM (VDTJ)
* 
*         2017 0000 00RC 0000 NNNN
*                RC = PDRC, PROGRAM DETACH, DEFINED IN *COMSEJT*. 
*                     PIDL, PROGRAM DETACH AND LOGOUT.
  
  
          LOC    2000 
  
 VDPO     BSS    1           DROP POTS
 VASO     BSS    1           ASSIGN OUTPUT AND COMPLETE TERMINAL TABLE
 VMSG     BSS    1           ASSIGN TERMINAL MESSAGE
 VSDT     BSS    1           SET TERMINAL TABLE BIT 
 VCDT     BSS    1           CLEAR TERMINAL TABLE BIT 
 VSCS     BSS    1           SET CHARACTER SET MODE 
 VPTY     BSS    1           SET TERMINAL PARITY
 VSBS     BSS    1           SET SUBSYSTEM
 VSJS     BSS    1           SET JOB STATUS 
 VTLF     BSS    1           TERMINAL LOG-OFF FORCED
 VREC     BSS    1           RECOVERY REQUEST 
 VITP     BSS    1           INITIATE TWO PORT MUX DRIVER 
 VADI     BSS    1           ASSIGN DIRECT INPUT
 VADO     BSS    1           ASSIGN DIRECT OUTPUT 
 VCSM     BSS    1           CONNECT TO SCREEN MANAGEMENT 
 VDTJ     BSS    1           DETACH JOB 
  
 VMXR     BSS    1           MAXIMUM REQUEST + 1
  
          LOC    *O 
 TRSC     SPACE  4,10 
**        TRSC - TABLE OF RETURN STATUS CODES FOR *TLX* 
*                FUNCTION 12B.
  
  
 RSSN     EQU    0           SWITCH COMPLETED NORMALLY
 RSFB     EQU    1           FILE BUSY
 RSIT     EQU    2           INCORRECT FILE TYPE
 RSSK     EQU    3           *SSID* NOT KNOWN 
 RSNP     EQU    4           NO SPACE IN PARTNER-S NFL
 RSFL     EQU    5           FILE LIMIT 
 RSFN     EQU    6           FILE NOT FOUND 
 RSSI     EQU    7           SUBSYSTEM INACCESSIBLE 
 PSEUDO   SPACE  4,10 
**        PSEUDO TERMINALS. 
  
  
          LOC    1
  
 ACPT     BSS    1           ACCOUNTING PSEUDO TERMINAL 
 VPST     BSS    1           NUMBER OF PSEUDO TERMINAL ENTRIES
  
          LOC    *O 
 ASSEMBLY SPACE  4,10 
**        ASSEMBLY VARIABLE DEPENDENT CONSTANTS.
* 
* 
*         MXMX - MAXIMUM NUMBER OF MULTIPLEXERS SUPPORTED.
  
  
          NOREF  .MX
 .MX      SET    8D          DEFAULT NUMBER OF MULTIPLEXERS 
          IF     DEF,VAVPT
 .MX      SET    4           POLLED DRIVER MULTIPLEXER COUNT
          ENDIF 
 MXMX     EQU    .MX         MAXIMUM NUMBER OF MULTIPLEXERS 
 TABLE    SPACE  4,15 
 TTBL     SPACE  4,10 
**        TERMINAL TABLE. 
* 
*         THE TERMINAL TABLE CONTAINS A GROUP OF WORDS FOR EACH 
*         POSSIBLE ACTIVE USER.  THESE WORDS CONTAIN
*         INFORMATION ABOUT THE PARTICULAR USER THAT IS CURRENTLY 
*         LOGGED INTO THE SYSTEM ON A GIVEN CONNECTION. 
* 
* 
*         THE FORMAT OF AN ENTRY IN THE TERMINAL TABLE AND THE
*         RELATED INFORMATION IS AS FOLLOWS-
* 
*         WORD -
* 
*                READ  - PROGRAMS WHICH READ WORD.
*                WRITE - PROGRAMS WHICH WRITE WORD. 
* 
*T,       DOCUMENTATION OF FIELDS WITHIN WORD.
* 
*         DESCRIPTION OF FIELDS WITHIN WORD.
 VUIT     SPACE  4,7
**        VUIT -
* 
*                READ  - IAFEX, 1AJ, 1TO, 1TA.
*                WRITE - IAFEX, 1AJ.
* 
* 
*T        42/    USER NUMBER,6/ FO,12/ EJTO 
* 
*         FO   - FAMILY ORDINAL.
*         EJTO - EXECUTING JOB TABLE ORDINAL. 
 VFNT     SPACE  4
**        VFNT -
* 
*                READ  - IAFEX, 1RI, 1RO. 
*                WRITE - IAFEX, 1RO.
* 
* 
*T        42/ PRIMARY FILE NAME, 6/ MODE, 12/ UNUSED
* 
*         MODE -                    BIT 
*                WRITE LOCKOUT      12
*                EXECUTE ONLY       14
* 
*         NOTE - PRIMARY FILE NAME WILL CONTAIN A LOGOUT PARAMETER
*                DURING LOGOUT AND DURING A SECONDARY TO PRIMARY
*                APPLICATION SWITCH.
 VFST     SPACE  4
**        VFST -
* 
*                READ  - IAFEX, DSD, 1TA. 
*                WRITE - IAFEX. 
* 
* 
*T        24/ JSN,12/ OVC,6/ SMF,1/T,5/ NOI,12/ EPP 
* 
*         JSN - JOB SEQUENCE NUMBER.
*         OVC - INPUT/OUTPUT CHARACTER OVERFLOW COUNT.
*         SMF - SCREEN MGT FACILITY CONNECT/STATE CODE. 
*         T   - SCREEN MODE TIMEOUT FLAG. 
*         NOI - NEXT OPERATION INDEX. 
*         EPP - EXTRA POT POINTER - USED FOR LINE NUMBER DURING A SORT
*               BEFORE A *1TO* LIST, AND FOR THE RCEJ REQUEST DURING
*               TERMINATION OF CALLING JOB DURING RECOVERY PROCESSING.
*               THIS POT WILL CONTAIN AN APPLICATION NAME DURING
*               PRIMARY TO SECONDARY APPLICATION SWITCHING. 
 VROT     SPACE  4
**        VROT -
* 
*                READ  - IAFEX, 1TA, 1TO, 1RI, 1RO, 1TN, 1AJ. 
*                WRITE - IAFEX, 1TA, 1TO, 1RI, 1RO, 1AJ.
* 
* 
*T        6/ UNUSED,6/ PPI,12/ PP,12/ LSV,12/ SUBSTATUS,12/ STATUS
* 
*         PPI - PREPROCESSOR INDEX FOR *1RI*. 
*         PP  - POT POINTER FOR *1MI*/*1RI*.  CONTAINS INPUT TO RUNNING 
*               PROGRAM OR NEXT CONTROL STATEMENT.
*         LSV - LOAN STATUS VALUE ASSOCIATED WITH A CONNECTION THAT 
*               HAS BEEN RETURNED TO IAF.  THE JOB WILL BE REENABLED
*               WITH THIS VALUE IN *VROT* AND THE FIELD WILL CLEARED
*               BEFORE CONTROL IS RETURNED TO IAF.
* 
*         SUBSTATUS  -              BIT 
*                *VADI* RESPONSES   23-22 
*                  RETRY            23
*                  REJECT           22
*                UNUSED             21-20 
*                SRU LIMIT          19
*                TIME LIMIT         18
*                FILE TYPE          17
*                UNUSED             16
*                UNUSED             15-12 
* 
*         STATUS -                  BIT 
*                ERROR ON LAST OP   11
*                ABORTED INPUT FILE 10
*                UNUSED             9-7 
*                LIST COMPLETE      6 
*                INPUT SATISFIED    5 
*                OUTPUT AVAILABLE   4 
*                JOB AWAITING INPUT 3 
*                JOB TO CONTINUE    2 
*                JOB IN SYSTEM      1 
*                COMPLETE/BUSY      0 
* 
*         VROT BIT ZERO IS AN INTERLOCK - WHEN IT IS SET (1), TERMINAL
*         TABLE WORDS VFNT AND VROT ARE CONSIDERED COMPLETE, AND CAN
*         BE WRITTEN BY IAF.  WHEN VROT BIT ZERO IS CLEAR (0), THESE
*         WORDS CAN BE WRITTEN BY THE SYSTEM AND SHOULD NOT BE USED 
*         BY IAF. 
 VDPT     SPACE  4,10 
**        VDPT -
* 
* 
*                READ  - IAFEX, DRIVER. 
*                WRITE - IAFEX, DRIVER. 
* 
*         NETWORK TERMINAL (DRIVER IS IAFEX4) - 
* 
*T        12/FP, 12/CP, 3/FW, 3/WC, 6/BC, 12/FLAGS, 12/CC.
* 
*         FP - FIRST POT OF LINE. 
*         CP - CURRENT POT OF LINE. 
*         FW - FIRST WORD OF FIRST POT. 
*         WC - CURRENT POT WORD COUNT.
*         BC - BIT COUNT IN LAST WORD.
*         FLAGS -                   BIT 
*                UNUSED             23-17 
*                SOURCE INPUT INITIATED  16 
*                BINARY INPUT       15
*                TRANSPARENT INPUT  14
*                BLK-TYPE BLOCK     13
*                DISCARD INPUT      12
*         CC - CHARACTER COUNT IN LOGICAL LINE. 
* 
* 
*         MUX TERMINAL (DRIVER IS 1TN) -
* 
*T        12/ FP,12/ CP,3/ FW,1/I,1/N,3/ CW,4/ CN,12/ FLAGS,12/ ADDR
* 
*         FP - FIRST POT OF LINE. 
*         CP - CURRENT POT OF LINE. 
*         FW - FIRST WORD OF FIRST POT. 
*         I  - INPUT INITIATED. 
*         N  - NEXT INPUT POT REQUESTED.
*         CW - CURRENT WORD IN CURRENT POT OF MESSAGE.
*         CN - CHARACTER NUMBER IN CURRENT WORD.
* 
*         FLAGS -                   BIT 
*                TRANSLATION TABLE INDEX  23-19 
*                FULL DUPLEX        18
*                CORRESPONDENCE UPPER CASE  17
*                UNUSED            16 
*                BINARY INPUT       15
*                TRANSPARENT INPUT  14
*                EXTENDED MODE      13
*                ODD PARITY         12
*         ADDR - ADDRESS OF CURRENT DRIVER (1TN) ROUTINE. 
 VCHT     SPACE  4
**        VCHT -
* 
* 
*                READ  - IAFEX, DRIVER. 
*                WRITE - IAFEX, DRIVER. 
* 
*T        12/AD, 12/X7, 12/B3, 12/IC, 12/OC.
* 
*         NETWORK TERMINAL (DRIVER IS IAFEX4) - 
* 
*         AD - REENTRY ADDRESS RELATIVE TO *NDR*. 
*         X7 - 12 BIT X7 PARAMETER. 
*         B3 - B3 PARAMETER; ASSUMED TO BE POT POINTER. 
*         IC - INPUT CHARACTER COUNT. 
*         OC - OUTPUT CHARACTER COUNT.
* 
*         MUX TERMINAL (DRIVER IS 1TN) -
* 
*T        12/ BF,12/ CH,12/ CB,12/ IC,12/ OC
* 
*         BF - DURING INPUT, BF HOLDS THE UPPER (EVEN) CHARACTER
*              OF A BYTE UNTIL STORED IN DATA WORD. 
*              DURING OUTPUT, BF IS USED AS A STACK FOR THE ROUTINE 
*              ADDRESS. 
*         CH - CHARACTER COUNT OF LINE BEING PROCESSED. 
*         CB - DURING OUTPUT MAY CONTAIN PARTIALLY PROCESSED
*              CONTROL BYTE.
*         IC - INPUT CHARACTER COUNT. 
*         OC - OUTPUT CHARACTER COUNT.
 VDCT     SPACE  4
**        VDCT -
* 
*                READ  - IAFEX, 1TN.
*                WRITE - IAFEX, 1TN.
* 
*                NOTE - THIS WORD IS INTERLOCKED BY BYTE 4. 
*                IAFEX MAY WRITE WHEN BYTE 4 IS CLEAR, 1TN
*                MAY WRITE WHEN BYTE 4 IS NOT CLEAR.
* 
*         12/ FLAGS,12/ TERM,12/ AUTO,12/ ACCS,12/ NEXT 
* 
*         FLAGS -                   BIT 
*                DRIVER REQUEST     59
*                INTERRUPT COMPLETE 58
*                USER LOGGED IN     57
*                INPUT REQUESTED    56
*                BRIEF MODE         55
*                READ DATA          54
*                CANCEL AUTO LINE   53  (NETWORK) 
*                ASCII8 MODE        52
*                ASCII (6/12) MODE  51
*                TEXT MODE          50
*                AUTO MODE          49
*                TAPE MODE (MUX)    48
*         TERM (NETWORK) -          BIT 
*                PRIMARY APPLICATION   47 
*                SECONDARY APPLICATION 46 
*                UNUSED                45-39
*                FW OUTPUT LINE     38-36 
*         TERM (MUX) -              BIT 
*                POLLED LINE        47
*                HARDWIRED LINE     46
*                AUTO MODE (MUX)    45
*                TERMINAL TYPE      44
*                   0 = ANSWERBACK. 
*                   1 = OPERATOR IDENTIFIED.
*                CARRIAGE RETURN DELAY  43-39 
*                FW OUTPUT LINE     38-36 
*         AUTO - AUTO MODE POT POINTER. 
*                POT+0 - 1/F, 47/0, 12/INCREMENT
*                        F = 1, IF 0003 BYTE AUTO MODE. 
*                POT+1 - 45/0, 15/LINE NUMBER VALUE 
*                        12/200N, 48/ADDR 
*                        N = NUMBER OF CHARACTERS FOLLOWING 
*                        0003 BYTE. 
*                        ADDR = ADDRESS OF WORD CONTAINING
*                        0003 BYTE
*                POT+2 - 60/DISPLAY CODED AUTO WORD 
*         ACCS - ACCESS CONTROL FLAGS.
*         NEXT - POT POINTER FOR AN OUTPUT MESSAGE ASSIGNMENT.
*              - IF BIT 59 SET, EXECUTIVE TO DRIVER REQUEST CODE. 
* 
*         NOTE - WHEN BIT 47 IS SET, THE CONNECTION HAS BEEN LOANED 
*                TO A SECONDARY APPLICATION, LEAVING IAF AS THE 
*                PRIMARY APPLICATION.  WHEN BIT 46 IS SET, THE
*                CONNECTION IS USING IAF AS A SECONDARY APPLICATION.
 VSTT     SPACE  4
**        VSTT -
* 
*                READ  - IAFEX, 1TN, 1TA, 1TO, 1RI, 1RO, DSD. 
*                WRITE - IAFEX. 
* 
* 
*T        12/ FLAGS,12/ FP,6/ PC,6/ NC,6/ CS,6/ SY,12/ QO.
* 
*         FLAGS -                   BIT 
*                TERMINAL CONTROL DISABLED  59
*                USER BREAK IN PROGRESS  58 
*                VALIDATE SECONDARY CONNECTION  57
*                DETACH IN PROGRESS 56
*                USER EFFECT MODE   55
*                JOB COMPLETE       54
*                NO PROMPT          53
*                SORT FLAG          52
*                RUN COMPLETE       51
*                WARNING ISSUED     50
*                SCREEN MODE        49
*                LOGOUT IN PROGRESS 48
*         FP - FIRST POT OF INPUT TO BE DUMPED TO PRIMARY FILE. 
*         PC - POT COUNT OF INPUT TO BE DUMPED TO PRIMARY FILE. 
*         NC - NUMBER OF POTS IN OUTPUT CHAINS IN QO. 
*         CS - CHARACTER SET AT JOB INITIATION. 
*              0 = NORMAL MODE. 
*              1 = ASCII MODE.
*              2 = ASCII8 MODE. 
*         SY - USER INTERACTIVE SUBSYSTEM.
*              0 = NULL.
*              1 = BASIC. 
*              2 = FORTRAN. 
*              3 = FTNTS. 
*              4 = EXECUTE. 
*              5 = BATCH. 
*              6 = ACCESS.
*         QO - QUEUED OUTPUT POT POINTER. 
  
  
          LOC    0
  
 VUIT     BSS    1           USER IDENTIFICATION WORD 
 VFNT     BSS    1           PRIMARY FILE NAME AND MODE 
 VFST     BSS    1           FAMILY ORDINAL, *1RI* INFO, *1TO* STATUS 
 VROT     BSS    1           SYSTEM JOB INFORMATION WORD
 VDPT     BSS    1           DRIVER POT WORD
 VCHT     BSS    1           DRIVER CHARACTER BUFFER WORD 
 VDCT     BSS    1           DRIVER / EXEC COMMUNICATIONS WORD
 VSTT     BSS    1           GENERAL STATUS WORD
  
 VTTL     EQU    *           TERMINAL TABLE LENGTH
          LOC    *O 
 POT      SPACE  4,10 
**        POT PARAMETER WORD POINTERS.
* 
* 
*         THESE POINT TO PARAMETERS PASSED BETWEEN *1TA*
*         AND THE INTERACTIVE EXECUTIVE DURING LOGIN PROCESSING.
* 
* 
*         CALL -
* 
*T VFNA   42/ FAMILY NAME, 18/
*T,VUNA   42/ USER NAME, 18/
*T,VPWA   42/ PASSWORD, 18/ 
*T,VLAL   56/, 1/A, 3/LAL 
*T,VUTD   60/ 
*T,VTRY   42/ TERMINAL NAME, 18/ LRC
* 
*         A   = *LAL* SPECIFIED.
*         LAL = LINE ACCESS LEVEL LIMIT.
*         LRC = LOGIN RETRY COUNT.
* 
*         NOTE - WHEN STARTING THE NEW JOB DURING A *DETACH*, THE 
*         FAMILY ORDINAL IS SPECIFIED INSTEAD OF THE FAMILY NAME. 
*         THE FORMAT OF THE FIRST WORD OF THE POT IS THEN - 
* 
*T VUFO   48/ , 12/ FO
* 
*         FO  = FAMILY ORDINAL. 
* 
* 
*         REPLY - 
* 
*T VUFO   48/ , 12/ FO
*T,VUJN   24/ JSN, 36/
*T,VPWA   60/ UNCHANGED 
*T,VUTA   60/ (AAWC)
*T,VUTD   60/ (ATPA)
*T,VTRY   60/ UNCHANGED 
* 
*         FO  = FAMILY ORDINAL. 
* 
*         NOTE - ON A REJECT, AN ERROR STATUS IS RETURNED IN *VUTA*.
*         THE FORMAT OF THE WORD IS THEN -
* 
*T,VUTA   48/ , 12/ EC
* 
*         EC =  0  INVALID USER/PASSWORD OR USER INDEX .GE. *AUIMX*.
*         EC =  1  SECURITY COUNT EXHAUSTED.
*         EC =  2  USER NOT VALIDATED FOR SERVICE CLASS.
*         EC =  4  SERVICE CLASS FULL.
*         EC = 10  NOT VALIDATED FOR SYSTEM ACCESS (SECURITY CONFLICT). 
*         EC = 20  INACCESSIBLE DEVICE OR MASS STORAGE I/O ERROR. 
*         EC = 40  QFT FULL.
  
  
          LOC    0
  
 VFNA     BSS    1           FAMILY NAME
 VUFO     EQU    VFNA        FAMILY ORDINAL 
 VUNA     BSS    1           USER NUMBER
 VUJN     EQU    VUNA        JSN
 VPWA     BSS    1           PASSWORD 
 VLAL     BSS    1           LINE ACCESS LIMIT
 VUTA     EQU    VLAL        TERMINAL ACCESS
 VUTD     BSS    1           TERMINAL DESCRIPTION 
 VTRY     BSS    1           LOGIN RETRY COUNT
  
          LOC    *O 
 REM      SPACE  4,10 
**        SUBSYSTEM DEFINITIONS.
  
  
          LOC    0
  
 NULS     BSS    1           NULL SUBSYSTEM 
 BASS     BSS    1           BASIC SUBSYSTEM
 FORS     BSS    1           FORTRAN SUBSYSTEM
 FTNS     BSS    1           FTNTS SUBSYSTEM
 EXES     BSS    1           EXECUTE SUBSYSTEM
 BATS     BSS    1           BATCH SUBSYSTEM
 ACCS     BSS    1           ACCESS SUBSYSTEM 
  
 MSYS     EQU    *           MAXIMUM SUBSYSTEM VALUE
          LOC *O
 REM      SPACE  4,10 
**        SUBSYSTEM MICROS. 
  
  
 NULS     MICRO  1,, NULL 
 BASS     MICRO  1,, BASIC
 FORS     MICRO  1,, FORTRAN
 FTNS     MICRO  1,, FTNTS
 EXES     MICRO  1,, EXECUTE
 BATS     MICRO  1,, BATCH
 ACCS     MICRO  1,, ACCESS 
 TTAPP    SPACE  4,10 
**        TTAPP - TERMINAL TABLE ADDRESSING MACRO.
* 
* 
* TAG     TTAPP  OPR,TNUM 
* 
*         ENTRY  *TAG*  = LOCATION FIELD TAG
*                *OPR*  = OPERATION WITH WHICH TO LOAD (ASSUMED *LDD*)
*                *TNUM* = DIRECT CELL CONTAINING TERMINAL NUMBER
*                         (ASSUMED *TN*)
  
  
 TTAPP    IFPP
          MACRO  TTAP,TAG,OPR,TNUM
          IF     DEF,VTTL,1 
 TTL      SET    VTTL 
          IF     DEF,/REM/VTTL,1
 TTL      SET    /REM/VTTL
 T1       IFC    EQ,*TNUM** 
 TNU      MICRO  1,2,*TN* 
 T1       ELSE
 TNU      MICRO  1,,*TNUM*
 T1       ENDIF 
 T2       IFC    EQ,*OPR**
 OP       MICRO  1,3,*LDD*
 T2       ELSE
 OP       MICRO  1,3,*OPR*
 T2       ENDIF 
          IFLT   TTL,10,2 
          ERR    ILLEGAL TERMINAL TABLE LENGTH. 
 TTA      SKIP
          IFGT   TTL,20,2 
          ERR    ILLEGAL TERMINAL TABLE LENGTH. 
 TTA      SKIP
 TAG      "OP"   "TNU"
 TTA1     IFLE   TTL,11 
          SHN    3
          IFEQ   TTL,11,1 
          ADD    "TNU"
 TTA      SKIP
 TTA1     ENDIF 
 TTA2     IFLE   TTL,13 
          SHN    2
          ADD    "TNU"
          SHN    1
          IFEQ   TTL,13,1 
          ADD    "TNU"
 TTA      SKIP
 TTA2     ENDIF 
 TTA3     IFLE   TTL,15 
          SHN    1
          ADD    "TNU"
          SHN    2
          IFEQ   TTL,15,1 
          ADD    "TNU"
 TTA      SKIP
 TTA3     ENDIF 
 TTA4     IFEQ   TTL,16 
          SHN    3
          SBD    "TNU"
          SHN    1
 TTA      SKIP
 TTA4     ENDIF 
 TTA5     IFLE   TTL,20 
          SHN    4
          IFEQ   TTL,17,1 
          SBD    "TNU"
 TTA      SKIP
 TTA5     ENDIF 
 TTA      ENDIF 
          ENDM
 TTAPP    ENDIF 
          SPACE  4,10 
**        NETWORK CONSTANT DEFINITIONS. 
* 
*         NOTE - *NMFL* DEFINES THE SIZE OF NAM-S FIELD LENGTH AS USED
*         BY THE ALGORITHM IN *COMPCMX*.  THIS CALCULATION DETERMINES 
*         THE FIELD LENGTH AVAILABLE FOR AN INTERACTIVE JOB.
*         THIS VALUE SHOULD CORRESPOND TO *MAXFL* WHICH DEFINES THE 
*         MAXIMUM FIELD LENGTH THAT *NIP* CAN ATTAIN.  *MAXFL* IS A 
*         PARAMETER ON THE *NIP* CONTROL STATEMENT. 
  
 NMFL     EQU    60000B 
          SPACE  4
          BASE   *
          ENDX
          ORG    SETLOC 
