system/bits.115

   1 ; -*-MIDAS-*-
   2 ;;; Copyright (c) 1999 Massachusetts Institute of Technology
   3 ;;;
   4 ;;; This program is free software; you can redistribute it and/or
   5 ;;; modify it under the terms of the GNU General Public License as
   6 ;;; published by the Free Software Foundation; either version 3 of the
   7 ;;; License, or (at your option) any later version.
   8 ;;;
   9 ;;; This program is distributed in the hope that it will be useful,
  10 ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  11 ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  12 ;;; General Public License for more details.
  13 ;;;
  14 ;;; You should have received a copy of the GNU General Public License
  15 ;;; along with this program; if not, write to the Free Software
  16 ;;; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  17
  18
  19 ;;; ITS BITS THAT ARE OFTEN NEEDED
  20
  21 .AUXIL
  22
  23 ;;; CATALOGUE OF RESERVED BIT NAME AND CONSTANT PREFIXES IN ITS
  24
  25 .SEE %CA        ;BITS IN CLRAC FOR CORE LINK DEVICE
  26 .SEE %CB        ;BITS FOR CORBLK SYMBOLIC SYSTEM CALL
  27 .SEE %CL        ;.CALL ARGUMENT TYPES.
  28 .SEE %CLS       ;BITS IN LH OF CLSTB ENTRY
  29 .SEE %DC        ;DTE20 IOELEVEN COMMANDS
  30 .SEE %DF        ;T-300 FAULT (DSCFLT)
  31 .SEE %DM        ;T-300 COMMAND (DSCCMD)
  32 .SEE %DO        ;DSK OPEN MODE BITS
  33 .SEE %DP        ;DATAPOINT CURSOR CONTROL CONSTANTS
  34 .SEE %DS        ;T-300 STATUS (DSCSTS)
  35 .SEE %DT        ;DTE20 COMMANDS BITS AND CONSTANTS
  36 .SEE %DV        ;BITS IN DEVTAB
  37 .SEE %E         ;.CALL AND OPEN ERROR CODES
  38 .SEE %GO        ;SUPDUP GRAPHICS PROTOCOL COMMANDS
  39 .SEE %H1        ;RP04 (RH10/RH11) ERROR REGISTER 1
  40 .SEE %H3        ;RP04 (RH10/RH11) ERROR REGISTER 3
  41 .SEE %HA        ;RP04 (RH10/RH11) ADDRESS REGISTER
  42 .SEE %HC        ;RP04 (RH10) CONTROL REGISTER
  43 .SEE %HD        ;RH10 ERROR BITS IN DRIVE REGISTERS
  44 .SEE %HI        ;RH10 CONI BITS
  45 .SEE %HM        ;RP04 (RH10/RH11) COMMAND CONSTANTS
  46 .SEE %HO        ;RH10 CONO BITS
  47 .SEE %HR        ;RH10 CONTROLLER AND RP04 DRIVE REGISTER NUMBERS
  48                 ; OR RH11 UNIBUS REGISTER ADDRESSES
  49 .SEE %HS        ;RP04 (RH10/RH11) STATUS REGISTER BITS
  50 .SEE %HW        ;FOR KL AND KS, BITS IN RH OF RESULT OF APRID
  51 .SEE %HX        ;RH11 BITS IN %HRCS1
  52 .SEE %HY        ;RH11 BITS IN %HRCS2
  53 .SEE %IL        ;Interlan NI1010 bits and constants
  54 .SEE %IOT       ;BITS IN IOTTB
  55 .SEE %JB        ;BITS IN JBWST VARIABLE
  56 .SEE %JG        ;BITS IN JOBGET FIRST VALUE
  57 .SEE %JO        ;OPCODES IN JOBGET FIRST VALUE
  58 .SEE %JS        ;SPECIAL VALUES FOR <JOB> SPECS
  59 .SEE %KE        ;BITS IN KS10 MEMORY STATUS REGISTER (KSECCS)
  60 .SEE %LH        ;BITS AND CONSTANTS FOR ACC LH/DH IMP INTERFACE (KS10)
  61 .SEE %MA        ;BITS IN MSRAC (MAGTAPE STATUS TABLE)
  62 .SEE %NC        ;NETWORK SOCKET CLOSE REASONS
  63 .SEE %NE        ;ETHERNET - constants and bits (%EN taken..)
  64 .SEE %NO        ;INTERNET - bits for TCPOPN system call
  65 .SEE %NS        ;NETWORK SOCKET STATES
  66 .SEE %NT        ;INTERNET - TCP channel states (almost = to %NS.  See also %NX)
  67 .SEE %NX        ;INTERNET - TCP connection close reasons (almost = to %NC)
  68 .SEE %OP        ;BITS IN LH OF .OPTION USER VARIABLE
  69 .SEE %PC        ;KA10 PC FLAGS
  70 .SEE %PF        ;KL10 AND KS10 PAGE FAIL WORD BITS (DEFINITIONS DIFFER
  71                 ; BETWEEN MACHINES)
  72 .SEE %PI        ;BITS IN PIRQC USER VARIABLE
  73 .SEE %PJ        ;BITS IN LH OF PIRQC USER VARIABLE
  74 .SEE %PS        ;KL10 AND KS10 PC FLAGS
  75 .SEE %QA        ;BITS IN QSRAC (DISK STATUS TABLE)
  76 .SEE %QM        ;DISK ACTION MODES IN RH OF QSRAC
  77 .SEE %RL        ;BITS FOR COMMANDS TO .REALT UUO
  78 .SEE %SCV       ;BITS IN SYSCVL TO CONTROL SYMBOLIC SYSTEM CALLS
  79 .SEE %SS        ;STY STATUS BITS IN STYSTS
  80 .SEE %SW        ;LH(USWST) BITS
  81 .SEE %SY        ;NAMES FOR SQUOZE FLAGS IN SYMBOL TABLES (NOT DEFINED IN ITS)
  82 .SEE %TA        ;BITS IN TTYSTA
  83 .SEE %TB        ;BITS IN TTYTBL USER VARIABLE
  84 .SEE %TC        ;BITS IN TTYCOM
  85 .SEE %TD        ;SOFTWARE TTY CURSOR CONTROL CODE CONSTANTS
  86 .SEE %TF        ;BITS IN TPFLAG
  87 .SEE %TG        ;BITS IN TTYST1 AND TTYST2
  88 .SEE %TI        ;BITS IN LEFT HALF OF TTY INPUT IOCHNM WORD
  89 .SEE %TJ        ;BITS IN LH OF TTY OPTPUT IOCHNM
  90 .SEE %TM        ;BITS AND CONSTANTS FOR TM03/RH11 TAPE CONTROLLER (KS10)
  91 .SEE %TN        ;CONSTANTS FOR TCTYP
  92 .SEE %TO        ;BITS IN LEFT HALF OF TTYOPT
  93 .SEE %TP        ;BITS IN RIGHT HALF OF TTYOPT
  94 .SEE %TQ        ;BITS IN LEFT HALF OF TTYSMT
  95 .SEE %TR        ;BITS IN RIGHT HALF OF TTYSMT
  96 .SEE %TS        ;BITS IN TTYSTS
  97 .SEE %TT        ;BITS IN LEFT HALF OF TTYTYP
  98 .SEE %TX        ;ASCII CHARACTER BITS (META, TOP, CONTROL, ETC.)
  99 .SEE %TY        ;BITS IN RIGHT HALF OF TTYTYP
 100 .SEE %UB        ;BITS IS KS10 UNIBUS STATUS REGISTER (UBASTA)
 101 .SEE %UC        ;FOR KL AND KS, BITS IN LH OF RESULT OF APRID
 102 .SEE %UM        ;BITS IN UMAPS VARIABLE, AND ARGS TO PGLD, MPLD1, PLD1.
 103 .SEE %UP        ;BITS IN KS10 UNIBUS PAGE MAP (WHEN MAP IS READ) (UBAPAG)
 104 .SEE %UQ        ;BITS IN KS10 UNIBUS PAGE MAP (WHEN MAP IS WRITTEN) (UBAPAG)
 105 .SEE %UST       ;BITS IN USTP VARIABLE.
 106 .SEE %WY        ;WHYINT CODES
 107 .SEE $11        ;BYTE POINTERS TO PDP11 FIELDS IN PDP-10 WORDS, ON AI-KA
 108                 ;10-11 INTERFACE.
 109 .SEE ..R        ;ARGUMENT CODES FOR .BREAK 12, READING.
 110 .SEE ..S        ;ARGUMENT CODES FOR .BREAK 12, WRITING.
 111 .SEE .XC        ;INTERNET - TCP connection close reasons (almost = to %NC)
 112                 ; (Old names.  Use %NX instead.)
 113
 114 .SEE MMP        ;BITS IN MMP ENTRY 1ST WORD L.H.
 115 .SEE OPTTRP     ;BITS IN LH OF .OPTION VARIABLE
 116                 ; (Old names.  Use %OP instead)
 117 .SEE SCL        ;BITS IN LH OF SUPCOR
 118 .SEE SCR        ;BITS IN RH OF SUPCOR
 119 \f
 120 IFNDEF DEFSYM,[ ;ALLOW USER TO USE SYMBOLS IN OTHER WAYS IF HE WISHES.
 121                 ;BUT NORMALLY, DEFSYM FOO==BAR DOES FOO==BAR WITH ERROR CHECK.
 122 DEFINE DEFSYM X/
 123 IRPS Z,,[X]
 124 IFNDEF Z,.QUOTE/.QUOTE/\16X\16
 125 .ELSE [
 126    $$TEM1==Z
 127    .QUOTE/.QUOTE/\16X\16
 128    IFN Z-$$TEM1,.ERR Z MULTIPLY .QUOTE`.QUOTE/DEFINED/`
 129 ]
 130 .ISTOP
 131 TERMIN TERMIN
 132
 133 IFLE .MLLIT,.ERR .MLLIT MUST BE 1; SETTING IT TO 1.
 134 .MLLIT==1
 135 $$TEMP==1
 136 ]
 137 .ELSE $$TEMP==0
 138 \f
 139 ;OPEN-FAILURE CODE NAMES.
 140 ;3RD AND 4TH LETTER: "TM" = "TOO MANY", "BD" = "BAD OR ILLEGAL",
 141 ;       "TF" = "TOO FEW", "RO" = "READ-ONLY", "NA" = "NOT AVAILABLE",
 142 ;       "NS" = "NO SUCH", "EX" = "ALREADY EXISTS", "FL" = "FULL",
 143 ;       "NR" = "NOT READY".
 144 ;5TH AND 6TH LETTER: "JB" = "JOB", "RG" = "ARG", "DV" = "DEVICE",
 145 ;       "DR" = "DIRECTORY", "IO" = "DIRECTION", "FL" = "FILE",
 146 ;       "FN" = "FILE NAME"
 147 DEFSYM  %E==:-100                       ;BIT TYPEOUT MASK
 148 DEFSYM  %ENSDV==:1      ;NO SUCH DEVICE
 149 DEFSYM  %ENSIO==:2      ;WRONG DIRECTION
 150 DEFSYM  %ETMTR==:3      ;TOO MANY TRANSLATIONS
 151 DEFSYM  %ENSFL==:4      ;FILE NOT FOUND
 152 DEFSYM  %EFLDR==:5      ;DIRECTORY FULL
 153 DEFSYM  %EFLDV==:6      ;DEVICE FULL
 154 DEFSYM  %ENRDV==:7      ;DEVICE NOT READY
 155 DEFSYM  %ENADV==:10     ;DEVICE NOT AVAILABLE
 156 DEFSYM  %EBDFN==:11     ;ILLEGAL FILE NAME
 157 DEFSYM  %ENSMD==:12     ;MODE NOT AVAILABLE
 158 DEFSYM  %EEXFL==:13     ;FILE ALREADY EXISTS
 159 DEFSYM  %EBDCH==:14     ;BAD CHANNEL NUMBER
 160 DEFSYM  %ETMRG==:15     ;TOO MANY ARGUMENTS (CALL)
 161 DEFSYM  %ENAPK==:16     ;PACK NOT MOUNTED
 162                ;17 FORMERLY DIRECTORY NOT AVAIL
 163 DEFSYM  %ENSDR==:20     ;NON-EXISTENT DIRECTORY
 164 DEFSYM  %ELCDV==:21     ;LOCAL DEVICE ONLY
 165 DEFSYM  %ESCO==: 22     ;SELF-CONTRADICTORY OPEN
 166 DEFSYM  %ENAFL==:23     ;FILE LOCKED
 167 DEFSYM  %ETMDR==:24     ;M.F.D. FULL
 168 DEFSYM  %EMCHN==:25     ;DEVICE NOT ASSIGNABLE TO THIS PROCESSOR
 169 DEFSYM  %ERODV==:26     ;DEVICE WRITE-LOCKED
 170 DEFSYM  %ETMLK==:27     ;LINK DEPTH EXCEEDED
 171 DEFSYM  %ETFRG==:30     ;TOO FEW ARGUMENTS (CALL)
 172 DEFSYM  %EROJB==:31     ;CAN'T MODIFY JOB
 173 DEFSYM  %EROPG==:32     ;CAN'T GET THAT ACCESS TO PAGE
 174 DEFSYM  %EBDRG==:33     ;MEANINGLESS ARGS
 175 DEFSYM  %EBDDV==:34     ;WRONG TYPE DEVICE
 176 DEFSYM  %ENSJB==:35     ;NO SUCH JOB
 177 DEFSYM  %EBOJ==: 36     ;VALID CLEAR OR STORED SET
 178 DEFSYM  %ENACR==:37     ;NO CORE AVAILABLE
 179 DEFSYM  %ETOP==: 40     ;NOT TOP LEVEL
 180 DEFSYM  %ENAPP==:41     ;OTHER END OF PIPELINE GONE OR NOT OPEN
 181 DEFSYM  %ENAJB==:42     ;JOB GONE OR GOING AWAY
 182 DEFSYM  %ENSCL==:43     ;ILLEGAL SYSTEM CALL NAME
 183 DEFSYM  %ENSCH==:44     ;CHANNEL NOT OPEN
 184 DEFSYM  %ENRBF==:45     ;INPUT BUFFER EMPTY OR OUTPUT BUFFER FULL
 185 DEFSYM  %EBDFL==:46     ;UNRECOGNIZABLE FILE (LOAD)
 186 DEFSYM  %EBDLK==:47     ;LINK TO NON-EXISTENT FILE
 187
 188 NOPNLS==:47     ;NO DEFSYM BECAUSE THIS SYMBOL IS NOT TO BE PREDEFINED TO USERS
 189 \f
 190 ; BITS IN .PIRQC USER VARIABLE - FIRST-WORD INTERRUPTS
 191 ; CLASSES ARE:
 192 ;  [1] STOPS JOB AND INTERRUPTS SUPERIOR (FATAL INTR)
 193 ;  [2] STOPS JOB AND INTERRUPTS SUPERIOR UNLESS ENABLED
 194 ;  [3] DOES NOTHING UNLESS ENABLED
 195 ; BITS IN THE LH HAVE TWO NAMES: %PI... AS A BIT IN THE WORD,
 196 ;  AND %PJ... SHIFTED DOWN BY 18. BITS.
 197
 198 .SEE PIRQC
 199
 200 DEFSYM  %PI==:525252,,525252            ;FOR BIT-TYPEOUT MODE
 201 DEFSYM  %PIRLT==:200000,,       ;REAL-TIME TIMER WENT OFF       [3]
 202 DEFSYM  %PIRUN==:100000,,       ;RUN-TIME TIMER WENT OFF        [3]
 203 DEFSYM  %PINXI==:40000,,        ;NON-EX IO REG (KS10 UNIBUS)    [2]
 204 DEFSYM  %PIJST==:20000,,        ;JOB STATUS DISPLAY REQUEST     [3]
 205 DEFSYM  %PIDCL==:10000,,        ;DEFERRED CALL                  [1]
 206 DEFSYM  %PIATY==:4000,,         ;WAS JUST GIVEN THE TTY         [3]
 207 DEFSYM  %PITTY==:2000,,         ;DON'T HAVE TTY (SEE %TBINT)    [2]
 208 DEFSYM  %PIPAR==:1000,,         ;MEMORY PARITY ERROR            [2]
 209 DEFSYM  %PIFOV==:400,,          ;FLOATING OVERFLOW              [3]
 210 DEFSYM  %PIWRO==:200,,          ;WRITE IN READ-ONLY PAGE        [2]
 211 DEFSYM  %PIFET==:100,,          ;FETCHED INSN FROM IMPURE PAGE  [2]
 212 DEFSYM  %PITRP==:40,,           ;SYSTEM UUO IN TRAP MODE        [1]
 213 DEFSYM  %PIDBG==:2,,            ;SYSTEM BEING DEBUGGED STATE CHG[3]
 214 DEFSYM  %PILOS==:1,,            ;.LOSE INSTRUCTION EXECUTED     [2]
 215 DEFSYM  %PICLI==:400000         ;CLI DEVICE OPENED TO THIS JOB  [3]
 216 DEFSYM  %PIPDL==:200000         ;PUSHDOWN LIST OVERFLOW         [3]
 217 DEFSYM  %PILTP==:100000         ;LIGHT PEN                      [3]
 218 DEFSYM  %PIMAR==:40000          ;MAR ADDRESS TRAP               [2]
 219 DEFSYM  %PIMPV==:20000          ;MEMORY PROTECTION VIOLATION    [2]
 220 DEFSYM  %PICLK==:10000          ;SLOW (1/2 SEC) CLOCK           [3]
 221 DEFSYM  %PI1PR==:4000           ;SINGLE-INSTRUCTION PROCEED     [1]
 222 DEFSYM  %PIBRK==:2000           ;.BREAK INSTRUCTION EXECUTED    [1]
 223 DEFSYM  %PIOOB==:1000           ;ADDRESS OUT OF BOUNDS          [2]
 224 DEFSYM  %PIIOC==:400            ;I/O CHANNEL ERROR              [2]
 225 DEFSYM  %PIVAL==:200            ;.VALUE INSTRUCTION EXECUTED    [1]
 226 DEFSYM  %PIDWN==:100            ;SYSTEM GOING DOWN STATUS CHANGE[3]
 227 DEFSYM  %PIILO==:40             ;ILLEGAL OPERATION (E.G. UUO)   [2]
 228 DEFSYM  %PIDIS==:20             ;DISPLAY MEMORY PROTECT         [2]
 229 DEFSYM  %PIARO==:10             ;ARITHMETIC OVERFLOW            [3]
 230 DEFSYM  %PIB42==:4              ;BAD LOCATION 42                [1]
 231 DEFSYM  %PIC.Z==:2              ;^Z OR CALL TYPED               [1]
 232 DEFSYM  %PITYI==:1              ;TTY INPUT (OBSOLETE)           [3]
 233
 234 DEFSYM  %PJ==:1,,525252                 ;BIT TYPEOUT MASK
 235 DEFSYM  %PJRLT==:200000         ;REAL-TIME TIMER WENT OFF       [3]
 236 DEFSYM  %PJRUN==:100000         ;RUN-TIME TIMER WENT OFF        [3]
 237 DEFSYM  %PJNXI==:40000          ;NON-EX IO REG (KS10 UNIBUS)    [2]
 238 DEFSYM  %PJJST==:20000          ;JOB STATUS DISPLAY REQUEST     [3]
 239 DEFSYM  %PJDCL==:10000          ;DEFERRED CALL                  [1]
 240 DEFSYM  %PJATY==:4000           ;WAS JUST GIVEN THE TTY         [3]
 241 DEFSYM  %PJTTY==:2000           ;DON'T HAVE TTY (SEE %TBINT)    [2]
 242 DEFSYM  %PJPAR==:1000           ;MEMORY PARITY ERROR            [2]
 243 DEFSYM  %PJFOV==:400            ;FLOATING OVERFLOW              [3]
 244 DEFSYM  %PJWRO==:200            ;WRITE IN READ-ONLY PAGE        [2]
 245 DEFSYM  %PJFET==:100            ;FETCHED INSN FROM IMPURE PAGE  [2]
 246 DEFSYM  %PJTRP==:40             ;SYSTEM UUO IN TRAP MODE        [1]
 247 DEFSYM  %PJDBG==:2              ;SYSTEM BEING DEBUGGED STATE CHG[3]
 248 DEFSYM  %PJLOS==:1              ;.LOSE INSTRUCTION EXECUTED     [2]
 249 \f
 250 ;;; PC FLAGS (LEFT HALF)
 251
 252 DEFSYM  %PC==:1,,525240         ;FOR BIT-TYPEOUT MODE
 253 DEFSYM  %PCARO==:400000         ;ARITHMETIC OVERFLOW
 254 DEFSYM  %PCCR0==:200000         ;CARRY OUT OF BIT 0
 255 DEFSYM  %PCCR1==:100000         ;CARRY OUT OF BIT 1
 256 DEFSYM  %PCFOV==:040000         ;FLOATING OVERFLOW
 257 DEFSYM  %PCFPD==:020000         ;FIRST PART DONE
 258                                 ; (E.G. ILDB PTR INCREMENTED, BYTE NOT FETCHED)
 259 DEFSYM  %PCUSR==:010000         ;USER MODE
 260 DEFSYM  %PCUIO==:004000         ;USER I/O
 261 DEFSYM  %PCPUR==:002000         ;GIVE %PIFET IF FETCH INSTR FROM WRITABLE
 262                                 ; PAGE (KA-10 ONLY)
 263 DEFSYM  %PCSPC==:001000         ;"SPECIAL" - OBSOLETE
 264 DEFSYM  %PC1PR==:000400         ;1 PROCEED - GIVE %PI1PR AFTER ONE INSTRUCTION
 265 DEFSYM  %PCX17==:000200         ;XR 17 = PC (AI-KA ONLY)
 266 DEFSYM  %PCFXU==:000100         ;FLOATING EXPONENT UNDERFLOW
 267 DEFSYM  %PCDIV==:000040         ;DIVIDE ERROR
 268
 269 ;;; PC FLAGS FOR KL-10 AND KS-10
 270
 271 DEFSYM  %PS==:1,,525240         ;FOR BIT-TYPEOUT MODE
 272 DEFSYM  %PSARO==:400000         ;ARITHMETIC OVERFLOW
 273 DEFSYM  %PSPCP==:400000         ;PREVIOUS CONTEXT PUBLIC - PXCT CAN'T
 274                                 ;REFERENCE CONCEALED PAGE THIS APPLIES ONLY
 275                                 ;IN EXEC MODE.  IN USER MODE AND ON KS IS
 276                                 ;STILL %PSARO.
 277 DEFSYM  %PSCR0==:200000         ;CARRY OUT OF BIT 0
 278 DEFSYM  %PSCR1==:100000         ;CARRY OUT OF BIT 1
 279 DEFSYM  %PSFOV==:040000         ;FLOATING OVERFLOW
 280 DEFSYM  %PSFPD==:020000         ;FIRST PART DONE (E.G. ILDB PTR
 281                                 ;INCREMENTED, BYTE NOT FETCHED)
 282 DEFSYM  %PSUSR==:010000         ;USER MODE   ;  0       0       1       1
 283 DEFSYM  %PSUIO==:004000         ;USER I/O    ;; KERNEL  SUPERV  CONCEAL PUBLIC
 284 DEFSYM  %PSPUB==:002000         ;PUBLIC MODE ;  0       1       0       1
 285                                 ;%PSPUB ALWAYS 0 ON KS.
 286 DEFSYM  %PSPCU==:004000         ;IN EXEC MODE %PSUIO MEANS PREVIOUS CONTEXT
 287                                 ;USER.
 288 DEFSYM  %PSINH==:001000         ;INHIBIT ADDRESS BREAK & TRAP 3 (TURNS OFF
 289                                 ;AFTER 1 INST)  %PSINH ALWAYS 0 ON KS.
 290 DEFSYM  %PSTR2==:000400         ;TRAP 2 (PDL OVERFLOW)      ;TRAP 1 PLUS TRAP 2
 291 DEFSYM  %PSTR1==:000200         ;TRAP 1 (ARITH OVERFLOW)    ; MAKES TRAP 3
 292                                                             ; (ONE PROCEED
 293                                                             ; ON KL)
 294 DEFSYM  %PSFXU==:000100         ;FLOATING EXPONENT UNDERFLOW
 295 DEFSYM  %PSDIV==:000040         ;DIVIDE ERROR
 296
 297 DEFSYM  %PS1PR==:001600         ;BITS TO SET TO CAUSE A 1-PROCEED ON KL.
 298 \f
 299 ; INTERNET and ARPANET
 300
 301 .SEE NETRFC
 302 DEFSYM  %NQ==:1,,525252 ; Control bits for NETRFC system call
 303 DEFSYM  %NQREF==:1      ; Refuse this connection request.  Arg 2 must be a
 304                         ; previously returned RFC identifier.
 305
 306 .SEE TCPOPN
 307 DEFSYM  %NO==:1,,525252 ; Control bits for TCPOPN system call
 308 DEFSYM  %NOLSN==:100    ; Listen mode - wait for SYN (request for conn)
 309
 310 DEFSYM  %NS==:,-1       ; NCP (old ARPANET) SOCKET STATES
 311 DEFSYM  %NSCLS==:0      ;CLS RECEIVED.  CONNECTION CLOSED (IMSCLS GIVES REASON)
 312 DEFSYM  %NSLSN==:1      ;LISTENING FOR RFC
 313 DEFSYM  %NSRFC==:2      ;RFC RECEIVED WHILE IN LISTENING STATE
 314 DEFSYM  %NSRCL==:3      ;CLS RECEIVED WHILE IN RFC RECEIVED STATE
 315 DEFSYM  %NSRFS==:4      ;RFC SENT
 316 DEFSYM  %NSOPN==:5      ;CONNECTION OPEN
 317 DEFSYM  %NSRFN==:6      ;RFNM WAIT ON WRITE LINK
 318 DEFSYM  %NSCLW==:7      ;CLS SENT.  WAITING FOR MATCHING CLS
 319 DEFSYM  %NSCLI==:10     ;CLS RECEIVED BUT INPUT STILL AVAILABLE
 320 DEFSYM  %NSINP==:11     ;INPUT AVAILABLE
 321
 322 DEFSYM  %NT==:,,-1      ; TCP port states as seen by user
 323         ; Legend: - Pre-Open, * Open, + Post-open, ? impossible.
 324         ;       I = can read, O = can write.
 325         ; Note that the input and output channels for a TCP connection
 326         ; will usually have different states.  Also, note that
 327         ; for all practical purposes, %NT and %NS symbols with the same
 328         ; value have the same meaning.  SYN = Request for connection.
 329                         ; In Out
 330 DEFSYM  %NTCLS==:0      ; -  -  Closed (reason available from WHYINT)
 331 DEFSYM  %NTLSN==:1      ; -  -  Listening for a SYN
 332 DEFSYM  %NTSYR==:2      ; -  -  SYN received
 333 DEFSYM  %NTCLU==:3      ; +  ?  Being closed by fgn host
 334 DEFSYM  %NTSYN==:4      ; -  -  SYN sent, waiting for response
 335 DEFSYM  %NTOPN==:5      ; *I *O Open
 336 DEFSYM  %NTWRT==:6      ; ?  *O Output buffer full
 337 DEFSYM  %NTCLX==:7      ; ?  +  Being closed by user
 338 DEFSYM  %NTCLI==:10     ; +I ?  Closing/closed, input still available
 339 DEFSYM  %NTINP==:11     ; *I ?  Open, input available
 340
 341
 342 DEFSYM  %NC==:,-1       ; NCP (old ARPANET) CLOSE REASONS (IN IMSCLS)
 343 DEFSYM  %NCNTO==:0      ;NEVER OPENED
 344 DEFSYM  %NCUSR==:1      ;CLSED BY USER
 345 DEFSYM  %NCFRN==:2      ;CLSED BY FOREIGN HOST
 346 DEFSYM  %NCRST==:3      ;RST
 347 DEFSYM  %NCDED==:4      ;HOST DEAD
 348 DEFSYM  %NCINC==:5      ;INCOMPLETE TRANSMISSION
 349 DEFSYM  %NCBYT==:6      ;BYTE SIZE MISMATCH.
 350 DEFSYM  %NCNCP==:7      ;OUR NCP WENT DOWN.
 351 DEFSYM  %NCRFS==:10     ;REQUEST FOR CONNECTION REFUSED
 352
 353 ;;; .XC is being phased out for the name %NX instead.
 354 ;;; The .XC symbols will be flushed "soon".
 355
 356 DEFSYM  .XC==,,-1       ; TCP port cls reasons (valid for ALL post-open states)
 357                         ; Note .XC and %NC symbols with the same value
 358                         ; have pretty much the same meanings.
 359 DEFSYM  .XCNTO==:0      ; Never opened
 360 DEFSYM  .XCUSR==:1      ; Closed by user
 361 DEFSYM  .XCFRN==:2      ; Closed by foreign host
 362 DEFSYM  .XCRST==:3      ; Fgn host refused or aborted connection.
 363 DEFSYM  .XCDED==:4      ; Fgn host dead (not used yet)
 364 DEFSYM  .XCINC==:5      ; Incomplete transmission (retransmission timeout)
 365                         ; This is the usual indication when a foreign host
 366                         ; or the intervening network crashes.
 367         ;     ==:6      ; Byte size mismatch - can't happen
 368 DEFSYM  .XCNCP==:7      ; Local TCP went down (not used yet)
 369 DEFSYM  .XCRFS==:10     ; RST received while in SYN-SENT state.
 370                         ; (foreign host refused connection)
 371
 372 DEFSYM  %NX==,,-1       ; TCP port cls reasons (valid for ALL post-open states)
 373                         ; Note %NX and %NC symbols with the same value
 374                         ; have pretty much the same meanings.
 375 DEFSYM  %NXNTO==:0      ; Never opened
 376 DEFSYM  %NXUSR==:1      ; Closed by user
 377 DEFSYM  %NXFRN==:2      ; Closed by foreign host
 378 DEFSYM  %NXRST==:3      ; Fgn host refused or aborted connection.
 379 DEFSYM  %NXDED==:4      ; Fgn host dead (not used yet)
 380 DEFSYM  %NXINC==:5      ; Incomplete transmission (retransmission timeout)
 381                         ; This is the usual indication when a foreign host
 382                         ; or the intervening network crashes.
 383         ;     ==:6      ; Byte size mismatch - can't happen
 384 DEFSYM  %NXNCP==:7      ; Local TCP went down (not used yet)
 385 DEFSYM  %NXRFS==:10     ; RST received while in SYN-SENT state.
 386                         ; (foreign host refused connection)
 387
 388
 389 \f
 390 ;;; BITS IN RESULT OF APRID (BLKI APR,) ON KL-10 AND KS-10
 391 DEFSYM  %UC==:1,,525000         ;FOR BIT-TYPEOUT MODE
 392 DEFSYM  $UCOPT==:331100         ;MICROCODE OPTIONS:
 393 DEFSYM  %UCKLP==:400000         ; KL-10-STYLE PAGING
 394 DEFSYM  %UCITS==:20000          ; ITS-STYLE PAGING
 395 DEFSYM  %UCTRK==:1000           ; TRACKS FEATURE
 396 DEFSYM  $UCVRS==:221100         ;MICROCODE VERSION NUMBER
 397 DEFSYM  %UCVRS==:1
 398 DEFSYM  %HW==:0,,527777         ;FOR BIT-TYPEOUT MODE
 399 DEFSYM  $HWOPT==:140600         ;HARDWARE OPTIONS
 400 DEFSYM  $HWSER==:001400         ;PROCESSOR SERIAL NUMBER
 401
 402
 403 ;;; .CALL ARGUMENT TYPES
 404 DEFSYM  %CL==:1,,400777
 405 DEFSYM  %CLIN==:0               ;INPUT ARGUMENT
 406 DEFSYM  %CLIMM==:1000           ;IMMEDIATE ARGUMENT
 407 DEFSYM  %CLOUT==:2000           ;OUTPUT ARGUMENT
 408 DEFSYM  %CLERR==:3000           ;ERROR CODE OUTPUT ARGUMENT
 409 DEFSYM  %CLBTW==:4000           ;DIRECT CONTROL BITS
 410 DEFSYM  %CLBIT==:5000           ;IMMEDIATE CONTROL BITS
 411
 412
 413 ;;; CONTROL BITS FOR CORBLK SYSTEM CALL
 414
 415 .SEE NCORBLK
 416 DEFSYM  %CB==:0,,525252                 ;FOR BIT-TYPEOUT MODE
 417 DEFSYM  %CBWRT==:400000         ;TRY FOR WRITE ACCESS, OK IF CAN'T GET IT
 418 DEFSYM  %CBRED==:200000         ;TRY FOR READ ACCESS, OK IF CAN'T GET IT
 419 DEFSYM  %CBNDW==:100000         ;NEED WRITE ACCESS, FAIL IF CAN'T GET IT
 420 DEFSYM  %CBPUB==:040000         ;MAKE PAGE PUBLIC, REQUIRES WRITE ACCESS
 421 DEFSYM  %CBPRV==:020000         ;MAKE PAGE PRIVATE, REQUIRES WRITE ACCESS
 422 DEFSYM  %CBNDR==:010000         ;NEED READ ACCESS, FAIL IF CAN'T GET IT
 423 DEFSYM  %CBCPY==:004000         ;MAKE A COPY (DISK FILES ONLY)
 424 DEFSYM  %CBLOK==:002000         ;LOCK PAGE IN CORE.
 425 DEFSYM  %CBULK==:001000         ;UNLOCK PAGE (ALLOW SWAP-OUT)
 426 DEFSYM  %CBSLO==:000400         ;MAY ONLY RESIDE IN SLOWEST MEMORY
 427 DEFSYM  %CBUSL==:000200         ;ALLOWS USE OF ANY MEMORY.
 428                 ;ABOVE BITS ALL ZERO MEANS DELETE PAGE FROM MAP
 429
 430 ;;; SPECIAL VALUES FOR <JOB> SPECS
 431
 432 DEFSYM  %JS==:,,-1
 433 DEFSYM  %JSELF==:,,-1           ;SELF (ALL <JOB> SPECS)
 434 DEFSYM  %JSTVB==:,,-2           ;11TV BUFFER (CORBLK)
 435 DEFSYM  %JSNUL==:,,-3           ;NULL JOB (KLPERF)
 436 DEFSYM  %JSALL==:,,-4           ;ALL JOBS (KLPERF)
 437 DEFSYM  %JSNEW==:,,-5           ;FRESH PAGE (CORBLK)
 438 DEFSYM  %JSABS==:,,-6           ;ABSOLUTE CORE (CORBLK)
 439 DEFSYM  %JSNUM==:400000         ;THIS + JOB # => THAT JOB (ALL <JOB> SPECS)
 440 DEFSYM  %JSSIX==:400376         ;PDP6 IS USER NUMBER 376
 441 DEFSYM  %JSSUP==:400377         ;SUPERIOR (ALL <JOB> SPECS)
 442 ;A <JOB> SPEC MAY ALSO BE THE NUMBER OF A CHANNEL OPEN ON USR:, BOJ:, OR STY:
 443
 444 ;;; CONTROL BITS FOR ".REALT AC," UUO.
 445 ;;; FLAG BITS ARE IN LH(AC).
 446
 447 .SEE AREALT
 448 DEFSYM  %RL==:1,,525252         ;FOR BIT-TYPEOUT MODE
 449 DEFSYM  %RLFLS==:400000         ;FLUSH OLD TIMER
 450 DEFSYM  %RLSET==:200000         ;SET NEW CLOCK RATE
 451 DEFSYM  %RLUSR==:100000         ;TRY TO SEIZE REAL TIME USER FACILITY
 452 DEFSYM  %RLPSD==:020000         ;ONLY WANT PSEUDO REAL TIME
 453 DEFSYM  %RLNPS==:040000         ;CANNOT ACCEPT PSEUDO REAL TIME
 454 DEFSYM  %RLBLK==:010000         ;PROGRAM TO BE BLOCKED EXCEPT FOR HIGH PRIORITY
 455                                 ; PHASE OR INTERRUPT LEVEL
 456 DEFSYM  %RLGET==:004000         ;GET PREVIOUS STATUS IN WORDS 3+4
 457                                 ;REMAINING BITS MUST BE ZERO
 458 \f
 459 ;;; BITS OF .OPTION USER VARIABLE.
 460
 461 .SEE OPTION
 462 DEFSYM  OPTTRP==:400000         ;ALL SYSTEM UUOS TRAP TO SUPERIOR (%PITRP)
 463 DEFSYM  OPTDEC==:100000         ;UUOS 40,41 AND 47 ARE USER UUOS
 464                 ;THE FOLLOWING 3 BITS ARE NOT USED BY SYSTEM.
 465                 ;THEY ARE FOR COMMUNICATION FROM SUPERIOR.
 466 DEFSYM  OPTCMD==:040000         ;SUPERIOR SAYS IT HAS CMD STRING - DO
 467                                 ; .BREAK 12,.
 468 DEFSYM  OPTBRK==:020000         ;SUPERIOR SAYS IT HANDLES ALL .BREAK'S.
 469 DEFSYM  OPTDDT==:010000         ;SUPERIOR SAYS HE'S DDT. (CLEARED WHEN DDT
 470                                 ; DISOWNS)
 471 DEFSYM  OPTINT==:004000         ;NEW STYLE VECTORING INTS.
 472 DEFSYM  OPTOJB==:002000         ;ALLOW OTHER JOBS TO OPEN ME ON THE OJB
 473                                 ; DEVICE.  OPENING ME ON OJB DEVICE TURNS
 474                                 ; ME INTO A JOB DEVICE.
 475 DEFSYM  OPTLOK==:001000         ;ENABLE SWITCH-UNLOCKING FEATURE
 476                 .SEE IODCSW     ; SEE COMMENT THERE FOR DESCRIPTION.
 477 DEFSYM  OPTLIV==:000400         ;DON'T KILL THIS TOP LEVEL JOB WHEN SYS
 478                                 ; GOES DOWN.
 479 DEFSYM  OPTOPC==:000200         ;INTERRUPTS THAT ABORT AN INSTRUCTION
 480                                 ; SHOULD LEAVE THE PC POINTING TO THAT
 481                                 ; INSTRUCTION (OTHERWISE IT GETS AOS'ED)
 482 DEFSYM  OPTLSP==:000100         ;SUPERIOR SAYS HE'S LISP
 483 DEFSYM  OPTLKF==:000040         ;UNLOCK LOCKS ON FATAL INTERRUPT IN
 484                 .SEE SYSDT      ; TOP-LEVEL NON-DISOWNED JOB.
 485
 486 ;;; NEW NAMES FOR BITS IN LH(.OPTION)
 487
 488 DEFSYM  %OP==:525252(1)         ;FOR BIT-TYPEOUT MODE
 489 DEFSYM  %OPTRP==:400000         ;ALL SYSTEM UUOS TRAP TO SUPERIOR (%PITRP)
 490 DEFSYM  %OPDEC==:100000         ;UUOS 40,41 AND 47 ARE USER UUOS
 491                 ;THE FOLLOWING 3 BITS ARE NOT USED BY SYSTEM.
 492                 ;THEY ARE FOR COMMUNICATION FROM SUPERIOR.
 493 DEFSYM  %OPCMD==:040000         ;SUPERIOR SAYS IT HAS CMD STRING - DO
 494                                 ; .BREAK 12,.
 495 DEFSYM  %OPBRK==:020000         ;SUPERIOR SAYS IT HANDLES ALL .BREAK'S.
 496 DEFSYM  %OPDDT==:010000         ;SUPERIOR SAYS HE'S DDT. (CLEARED WHEN DDT
 497                                 ; DISOWNS)
 498 DEFSYM  %OPINT==:004000         ;NEW STYLE VECTORING INTS.
 499 DEFSYM  %OPOJB==:002000         ;ALLOW OTHER JOBS TO OPEN ME ON THE OJB
 500                                 ; DEVICE.  OPENING ME ON OJB DEVICE TURNS
 501                                 ; ME INTO A JOB DEVICE.
 502 DEFSYM  %OPLOK==:001000         ;ENABLE SWITCH-UNLOCKING FEATURE
 503                 .SEE IODCSW     ; SEE COMMENT THERE FOR DESCRIPTION.
 504 DEFSYM  %OPLIV==:000400         ;DON'T KILL THIS TOP LEVEL JOB WHEN SYS
 505                                 ; GOES DOWN.
 506 DEFSYM  %OPOPC==:000200         ;INTERRUPTS THAT ABORT AN INSTRUCTION
 507                                 ; SHOULD LEAVE THE PC POINTING TO THAT
 508                                 ; INSTRUCTION (OTHERWISE IT GETS AOS'ED)
 509 DEFSYM  %OPLSP==:000100         ;SUPERIOR SAYS HE'S LISP
 510 DEFSYM  %OPLKF==:000040         ;UNLOCK LOCKS ON FATAL INTERRUPT IN
 511                 .SEE SYSDT      ; TOP-LEVEL NON-DISOWNED JOB.
 512
 513 ;;; LOSING ERROR CODES
 514
 515 DEFSYM  %LS==:777400            ;RH OF .LOSE INSTRUCTION
 516 DEFSYM  %LSINT==:1
 517 DEFSYM  %LSSYS==:1000           ;INTERPRET LAST OPEN LOSS CODE, USING .BCHN
 518 DEFSYM  %LSFIL==:1400           ; DO THAT AND PRINT FILE NAMES FROM CALL'S CHNL
 519
 520 ;;; FIRST RESULT OF .CALL WHYINT
 521
 522 DEFSYM  %WY==:,-1
 523 DEFSYM  %WYTYI==:1              ;TTY INPUT
 524 DEFSYM  %WYTYO==:2              ;TTY OUTPUT
 525 DEFSYM  %WYSTI==:3              ;STY INPUT
 526 DEFSYM  %WYSTO==:4              ;STY OUTPUT
 527 DEFSYM  %WYNET==:5              ;ARPANET (NCP)
 528 DEFSYM  %WYCHA==:6              ;CHAOS NET
 529 DEFSYM  %WYTCP==:7              ;INTERNET (TCP)
 530 \f
 531 ;I/O MODES FOR OPENS.
 532
 533 DEFSYM  .UAI==0                 ;UNIT ASCII INPUT.
 534 DEFSYM  .UAO==1                 ;UNIT ASCII OUTPUT.
 535 DEFSYM  .BAI==2                 ;BLOCK ASCII INPUT.
 536 DEFSYM  .BAO==3                 ;BLOCK ASCII OUTPUT.
 537 DEFSYM  .UII==4                 ;UNIT IMAGE INPUT.
 538 DEFSYM  .UIO==5                 ;UNIT IMAGE OUTPUT.
 539 DEFSYM  .BII==6                 ;BLOCK IMAGE INPUT.
 540 DEFSYM  .BIO==7                 ;BLOCK IMAGE OUTPUT.
 541
 542 ;OPEN BITS FOR DEVICE DSK:
 543
 544 DEFSYM  %DO==1,,525252          ;BIT TYPEOUT MASK
 545 DEFSYM  %DOOUT==1
 546 DEFSYM  %DOBLK==2
 547 DEFSYM  %DOIMG==4
 548 DEFSYM  %DONRF==10              ;DON'T SET REFERENCE DATE.
 549 DEFSYM  %DONLK==20              ;DON'T CHASE LINKS.
 550 DEFSYM  %DORWT==40              ;ON OUTPUT OPEN, MAKES WOULD-BE READERS
 551                                 ;WAIT TILL WE CLOSE.
 552 DEFSYM  %DOWOV==100000          ;WRITE OVER (USE WITH %DOOUT, TO OVERWRITE
 553                                 ;EXISTING FILE).
 554
 555 ;ARGUMENT CODES FOR .BREAK 12,'S.
 556 ;..R AND ..S ARE BIT TYPEOUT MASKS, NOT MADE PREDEFINED TO MIDAS
 557 ;SINCE THEY ARE USEFUL ONLY IN DDT, WHICH DEFINES THEM ITSELF.
 558
 559 ..R==0                          ;(FOR .SEE)
 560 DEFSYM  ..RSTART==1             ;READ STARTING ADDRESS
 561 DEFSYM  ..RLFILE==2             ;READ LOADED FILE'S NAMES
 562 DEFSYM  ..RSTP==3               ;READ SYMBOL TABLE POINTER
 563 DEFSYM  ..RSYM==4               ;READ VALUE OF SYMBOL.
 564 DEFSYM  ..RJCL==5               ;READ JOB COMMAND LINE.
 565 DEFSYM  ..RPFILE==6             ;READ :PRINT FILENAME DEFAULTS.
 566 DEFSYM  ..RSTB==7               ;READ WHOLE SYMBOL TABLE.
 567 DEFSYM  ..RCONV==10             ;READ NAME OF SYMBOL CLOSEST IN VALUE TO
 568                                 ; ARGUMENT.
 569 DEFSYM  ..RLJB==13              ;READ IDX OF PREVIOUSLY CURRENT JOB.
 570 DEFSYM  ..RRND==14              ;READ RANDOM JOB-SPECIFIC BITS.
 571 DEFSYM  ..RPUR==15              ;UNPURIFY PAGE
 572 DEFSYM  ..RHSNAME==16           ;ASK SUPERIOR TO LOOKUP AN HSNAME FROM XUNAME
 573 DEFSYM  ..RMAIL==17             ;ASK A SUPERIOR TO LOOKUP USER'S MAIL FILE NAME
 574
 575 ..S==0                          ;(FOR .SEE)
 576 DEFSYM  ..SSTART==400001        ;SET STARTING ADDRESS
 577 DEFSYM  ..SLFILE==400002        ;SET LOADED FILE'S NAMES
 578 DEFSYM  ..SSYM==400004          ;SET VALUE OF SYMBOL.
 579 DEFSYM  ..SJCL==400005          ;CLEAR JOB COMMAND LINE.
 580 DEFSYM  ..SPFILE==400006        ;SET :PRINT FILENAME DEFAULTS.
 581 DEFSYM  ..SSTB==400007          ;PASS WHOLE SYMBOL TABLE TO SUPERIOR.
 582 DEFSYM  ..SRND==400014          ;SET RANDOM JOB-SPECIFIC BITS.
 583 DEFSYM  ..SPUR==400015          ;SAME AS ..RPUR
 584
 585 ;.CALL JOBGET
 586 ;ARG 1 - BOJ CHNL
 587 ;UP TO SIX WDS RETURNED
 588 ;WD1 BITS:
 589 DEFSYM  %JG==:1,,525252
 590                 ;4.9-4.7 => IMAGE/ASCII, BLOCK/UNIT, OUTPUT/INPUT
 591                 ;    4.9-4.7 SHOULDN'T BE USED, SINCE THE FULL MODE IS IN
 592                 ;    WD7 ON AN OPEN
 593 DEFSYM  %JGCLS==:40000  ;4.6 => CLOSE (NOTE 4.5 USED TO BE A CLS BIT ALSO)
 594 DEFSYM  %JGSIO==:1000   ;4.1 => SIOT (ONLY IF OPCODE = 1)
 595 DEFSYM  %JGFPD==:200    ;3.8 => THIS CALL WAS PCLSRED AND IS RESTARTING
 596 ;1.4-1.1 => TYPE OF OPERATION
 597 DEFSYM  %JO==:,,-1
 598 DEFSYM  %JOOPN==:0      ;OPEN
 599 DEFSYM  %JOIOT==:1      ;IOT/SIOT
 600 DEFSYM  %JOLNK==:2      ;MLINK
 601 DEFSYM  %JORST==:3      ;RESET
 602 DEFSYM  %JORCH==:4      ;RCHST
 603 DEFSYM  %JOACC==:5      ;ACCESS
 604 DEFSYM  %JORNM==:6      ;FDELE (DELETE OR RENAME)
 605 DEFSYM  %JORWO==:7      ;FDELE (RENAME WHILE OPEN)
 606 DEFSYM  %JOCAL==:10     ;SYMBOLIC .CALL
 607 \f
 608 ;MODE BITS FOR TTY OPENS:
 609 ;3.1 0 -> IN 1 -> OUT
 610 ;3.2 0 -> UNIT 1 -> BLOCK
 611
 612 ;OUTPUT
 613 ;3.3 => IMAGE MODE (SET ALL %TGIMG BITS IN TTYST1 AND TTYST2)
 614 ;3.4 0 -> NORMAL 1 -> ECHO MODE OUTPUT (SET %TJECH, %TJPP2, %TJMOR).
 615 ;3.5 0 -> NORMAL 1 -> DISPLAYMODE, LOOK FOR ^P (SET %TJDIS).
 616 ;3.6 0 -> NORMAL 1 -> SUPER-IMAGE OUTPUT (SET %TJSIO).
 617 ;OUTPUT IOCHNM BITS MAY ALSO BE SPECIFIED, EXCEPT FOR
 618 ;%TJCNS, %TJCP1, AND %TJCP2
 619
 620 ;INPUT
 621 ;3.3 => IMAGE MODE (CLEAR ALL ECHO BITS IN TTYST1, TTYST2).
 622 ;3.4 => "DDT" (DON'T ECHO CR, LF, TAB)
 623 ;3.6 => WANT 3 LINES IN ECHO AREA.
 624 ;INPUT IOCHNM BITS MAY ALSO BE SPECIFIED, EXCEPT FOR %TICNS.
 625
 626 ;BITS 3.4 AND 3.6 ON INPUT, AND BIT 3.3, HAVE EFFECT
 627 ;ONLY ON THE FIRST OPEN IN EITHER DIRECTION.
 628 ;(THEY ARE OBSOLETED BY THE TTYSET SYSTEM CALL)
 629
 630 ;BITS IN LH OF A TTY CHANNEL IOCHNM WORD
 631 ;THESE BITS MAY BE TEMPORARILY COMPLEMENTED BY SPECIFYING
 632 ;THEM IN THE CONTROL-BIT ARGUMENT TO A SYMBOLIC IOT
 633 ;(EXCEPT FOR %TICNS AND $TIIDX).
 634 DEFSYM  %TI==:1,,525277         ;BIT TYPEOUT MASK
 635 DEFSYM  %TJ==:1,,525277         ;BIT TYPEOUT MASK
 636
 637 DEFSYM  %TICNS==:400000 ;4.9 1-> CONSOLE 0 -> DEVICE
 638 DEFSYM  %TJCNS==:400000 ;4.9 1-> CONSOLE 0 -> DEVICE
 639
 640 ;THE FOLLOWING INTERPRETATIONS OF BITS ARE FOR OUTPUT ONLY.
 641 DEFSYM  %TJCP1==:200000 ;^P-CODE ANTICIPATION STATE.
 642 DEFSYM  %TJCP2==:100000 ; ".  0=>NORMAL, 1=> CHAR AFTER ^P, 2=> ^PH, 3=>^PV.
 643 DEFSYM  %TJECH==:40000  ;SET => ECHO MODE OUTPUT.-MODE OUTPUT (ALL CHARS
 644                         ; OUTPUT THE WAY THEY WOULD BE ECHOED)
 645 DEFSYM  %TJCTN==:20000  ;SET => DON'T DO LINE-CONTINUATION.
 646 DEFSYM  %TJSTP==:10000  ;SET => THIS CHANNEL IS HUNG IN **MORE**.
 647 DEFSYM  %TJDIS==:4000   ;SET => LOOK FOR ^P CODES.
 648 DEFSYM  %TJSIO==:2000   ;SET => SUPERIMAGE OUTPUT, NO PADDING OR CURSOR CTL.
 649 DEFSYM  %TJMOR==:1000   ;SET => DON'T DO **MORE** PROCESSING.
 650 DEFSYM  %TJPP2==:400    ;SET => USE ALTERNATE PC PPR (THE ECHO AREA)
 651 DEFSYM  %TJINK==:200    ;SET => NEXT CHAR OUT TAKEN AS PRINTING
 652                         ; REGARDLESS (^PI)
 653 DEFSYM  %TJHDE==:100    ;SET => ACCOUTING FOR CURSOR MOTION DUE TO
 654                         ;CHAR ECHOED ON A HALF-DUPLEX TTY.
 655
 656 ;INPUT
 657 DEFSYM  %TIECH==:40000  ;CAN READ EVEN IF CHAR NEEDS PI ECHOING.
 658 DEFSYM  %TIPEK==:20000  ;DON'T REMOVE CHAR FROM BUFFER.
 659 DEFSYM  %TIACT==:4000   ;SET => DON'T WAIT FOR ACTIVATION CHARACTER.
 660 DEFSYM  %TIINT==:2000   ;SET => CAN READ A CHAR EVEN IF IT IS SUPPOSED TO
 661                         ; INTERRUPT & HASN'T YET.
 662 DEFSYM  %TINWT==:1000   ;SET => IF NO INPUT AVAILABLE, DON'T WAIT, JUST
 663                         ; RETURN -1.
 664 DEFSYM  %TIFUL==:400    ;SET => GIVE FULL CHARACTER (SIGNIFICANT ON IMLAX, TVS)
 665
 666 DEFSYM  $TIIDX==:220600 ;3.6-3.1 CONSOLE #, OR 77 FOR A "DISOWNED" CONSOLE
 667                         ; TTY CHNL, IE, ONE THAT CORRESPONDS TO NO REAL TTY.
 668                         ; THEY EXIST ONLY IN TREES WITH NO TTY, IN JOBS
 669                         ; THAT CAME FROM TREES WITH TTYS.
 670 DEFSYM  %TIIDX==:1      ;FOR BIT TYPEOUT MODE
 671 DEFSYM  %TJIDX==:1      ;FOR BIT TYPEOUT MODE
 672 DEFSYM  %TINON==:77     ;"TTY #" FOR A CHANNEL WITH NO REAL TTY.
 673 \f
 674 ;EACH CHARACTER IN THE INPUT BUFFER OCCUPIES 18 BITS
 675 ;THE UPPER BITS ARE AS FOLLOWS (NOTE THAT AN IOTTED
 676 ;CHARACTER MAY ACTUALLY CONTAIN %TXPIE, %TXMPE, %TXECI, OR %TXINT)
 677 DEFSYM  %TX==:525200            ;BIT TYPEOUT MASK
 678 DEFSYM  %TXMPE==:400000 ;MAIN PROGRAM ECHO CHARACTER
 679 DEFSYM  %TXPIE==:200000 ;PI ECHO CHARACTER
 680 ; DEFSYM %TXCOM==:100000        ;COM MODE ECHO CHAR; DO PI ECHO EVEN IF HDX
 681 ;                       ; TTY.
 682 ; DEFSYM %TXIGN==:40000 ;IGNORE THIS CHAR AT .IOT TIME.
 683 ; DEFSYM %TXACT==:20000 ;THIS IS AN ACTIVATION CHAR.
 684 ; THESE CAN'T BE NEEDED EXCEPT INSIDE THE SYSTEM.
 685 DEFSYM  %TXINT==:10000  ;THIS CHAR SHOULD INTERRUPT THE USER.
 686 ;GAP
 687 DEFSYM  %TXECI==:2000   ;THIS CHAR WAS ECHOED BY AN ECHOIN SYSTEM CALL.
 688
 689 ;NOW COME THE BITS OF THE CHARACTER ITSELF:
 690 DEFSYM  %TXTOP==:4000   ;The "TOP" key.
 691 ;GAP
 692 DEFSYM  %TXSFT==:1000   ;What used to be the "SHIFT" key is now the
 693 DEFSYM  %TXSUP==:1000   ;"SUPER" key. (def'ed in this order for DDT)
 694 DEFSYM  %TXMTA==:400    ;"META" key.
 695 DEFSYM  %TXCTL==:200    ;"CONTROL" key.
 696 DEFSYM  %TXASC==:177    ;The ASCII part of the character.
 697
 698 ;DISPLAY COMMANDS (WHICH LIVE IN THE OUTPUT BUFFER).
 699 ;NOTE THAT ALL OF THEM HAVE 200-BIT SET.
 700 DEFSYM  %TD==:777400
 701 DEFSYM  %TDMOV==:200    ;MOVE CURSOR
 702 DEFSYM  %TDMV1==:201    ;DUMMY COMMAND CREATED BY TYMOV.
 703                         ;MAKES IT POSSIBLE FOR TYMOV TO STOP WHEN BUFFER FULL
 704                         ;AND BE REENTERED NEXT INTERRUPT.
 705 DEFSYM  %TDEOF==:202    ;CLEAR REST OF PAGE
 706 DEFSYM  %TDEOL==:203    ;CLEAR REST OF LINE
 707 DEFSYM  %TDDLF==:204    ;DELETE FORWARD (FOR IMLACS AND TVS)
 708 DEFSYM  %TDMTF==:205    ;MOTOR OFF (FOR TERMINETS)
 709 DEFSYM  %TDMTN==:206    ;MOTOR ON (FOR TERMINETS)
 710 DEFSYM  %TDCRL==:207    ;CRLF ON DATAPOINTS, IMLACS.
 711 DEFSYM  %TDNOP==:210    ;NO-OP FOR SUPERDUPERIMAGE MODE.
 712 DEFSYM  %TDBS==:211     ;BACKSPACE (FOR TTY'S WITH %TORAW SET).
 713 DEFSYM  %TDLF==:212     ;LINEFEED (").
 714 DEFSYM  %TDRCR==:213    ;CARRET (").
 715 DEFSYM  %TDORS==:214    ;"OUTPUT RESET" FOR SAKE OF SOFTWARE TTYS
 716 DEFSYM  %TDQOT==:215    ;MYSTERY COMMAND -- SEND IN A JINGLE IN 25 WORDS OR
 717                         ; LESS AND WIN
 718 DEFSYM  %TDFS==:216     ;CURSOR FORWARD ONE COLUMN
 719 DEFSYM  %TDMV0==:217    ;MOVE CURSOR, FOLLOWED BY NEW VERT POS, NEW HOR POS
 720 DEFSYM  %TDCLR==:220    ;CLEAR THE SCREEN
 721 DEFSYM  %TDBEL==:221    ;DING THE BELL
 722 DEFSYM  %TDINI==:222    ;SYSTEM JUST CAME UP, RE-INITIALIZE INTELLIGENT
 723                         ; TERMINAL
 724 DEFSYM  %TDILP==:223    ;INSERT LINE-POSITION, FOLLOW BY COUNT
 725 DEFSYM  %TDDLP==:224    ;DELETE LINE-POSITION, FOLLOW BY COUNT
 726 DEFSYM  %TDICP==:225    ;INSERT CHARACTER-POSITION, FOLLOW BY COUNT
 727 DEFSYM  %TDDCP==:226    ;DELETE CHARACTER-POSITION, FOLLOW BY COUNT
 728 DEFSYM  %TDBOW==:227    ;ENTER BLACK ON WHITE MODE
 729 DEFSYM  %TDRST==:230    ;DESELECT ALL SPECIAL MODES (SUCH AS BLACK-ON-WHITE).
 730 DEFSYM  %TDGRF==:231    ;ENTER GRAPHICS MODE
 731 DEFSYM  %TDRSU==:232    ;REGION SCROLL UP
 732 DEFSYM  %TDRSD==:233    ;REGION SCROLL DOWN
 733
 734 ; Apparently codes 234 - 237 are used for an undocumented kludge for
 735 ; sending ARDS graphics protocol.  See SYSENG;IMPRIN (the source of
 736 ; :ARDPRN).
 737
 738 ;%TDSYN THROUGH %TDMLT ARE USED ONLY ON TERMINALS WHICH HAVE %TRLED SET IN
 739 ; TTYSMT.
 740 DEFSYM  %TDSYN==:240    ;RESYNCH REPLY TO LOCAL EDITING TERMINAL
 741 DEFSYM  %TDECO==:241    ;ASK TERMINAL TO TRY LOCAL EDITING BY SENDING A
 742                         ; RESYNCH.
 743 DEFSYM  %TDEDF==:242    ;SET LOCAL EDITING TERMINAL COMMAND DEFINITION.
 744                         ; FOLLOWED BY TWO BYTES, DECODED AS DESCRIBED IN
 745                         ; LOCAL EDITING PROTOCOL.
 746 DEFSYM  %TDNLE==:243    ;STOP DOING LOCAL EDITING.
 747 DEFSYM  %TDTSP==:244    ;DISPLAYS LIKE SPACE, BUT IS PART OF A TAB.  USED
 748                         ; ONLY FOR LOCAL EDITING TERMINALS, TO ENABLE THEM
 749                         ; DISTINGUISH SPACES FROM TABS.
 750 DEFSYM  %TDCTB==:245    ;THIS LINE IS CONTINUED AT THE BEGINNING.
 751 DEFSYM  %TDCTE==:246    ;THIS LINE IS CONTINUED AT THE END.
 752 DEFSYM  %TDMLT==:247    ;%TDMLT <N> => NEXT <N> COLS ARE DISPLAY REP FOR
 753                         ; ONE CHAR OF TEXT.
 754 ;%TDSVL THROUGH %TDSLL ARE USED ON TERMINALS WHICH HAVE NONZERO %TRLSV.
 755 DEFSYM  %TDSVL==:250    ;<N> <L1> <L2> => SAVE <N> LINES' CONTENTS UNDER
 756                         ; LABELS STARTING WITH <L2>*200+<L1>.
 757 DEFSYM  %TDRSL==:251    ;SAME THREE ARGS.  RESTORE LABELED CONTENTS ONTO
 758                         ; <N> LINES.
 759 DEFSYM  %TDSSR==:252    ;<BEG> <END+1> SET RANGE OF COLUMNS TO COPY IN
 760                         ; %TDSVL, %TDRSL.
 761 DEFSYM  %TDSLL==:253    ;<L1> <L2> SET LABEL FOR NEXT LINE PUSHED OFF
 762                         ; SCREEN LOCALLY.
 763 DEFSYM  %TDMAX==:254    ;1 + LARGEST DISPLAY CODE.
 764 \f
 765 ;THE TCTYP WORD FOR A TTY CONTAINS A NUMBER WHICH SAYS HOW TO
 766 ;PERFORM CURSOR-CONTROL FUNCTIONS ON THE TTY. THE POSSIBILITIES ARE:
 767 DEFSYM  %TN==:777777
 768 DEFSYM  %TNPRT==:0      ;PRINTING TTY.
 769 DEFSYM  %TNDP==:1       ;TTY USES DATAPOINT CURSOR CTL CODES.
 770 DEFSYM  %TNODP==:2      ;TTY IS A LOSING DATAPOINT.
 771 DEFSYM  %TNIML==:3      ;TTY USES IMLAC CURSOR CODES.
 772 DEFSYM  %TNTEK==:4      ;TEKTRONIX 4000 SERIES
 773 DEFSYM  %TNTV==:5       ;TTY IS A KNIGHT TV DISPLAY.
 774 DEFSYM  %TNMEM==:6      ;TTY IS A MEMOWRECK.
 775 DEFSYM  %TNSFW==:7      ;"SOFTWARE" TTY THAT WANTS I.T.S. CURSOR-MOTION CODES.
 776 DEFSYM  %TNTRM==:10     ;TTY IS A TERMINET.
 777 DEFSYM  %TNESC==:11     ;TTY WANTS ASCII STANDARD ESCAPE SEQUENCES. (E.G. VT52)
 778 DEFSYM  %TNDTM==:12     ;DATAMEDIA
 779 DEFSYM  %TNRAY==:13     ;TELERAY 1061
 780 DEFSYM  %TNHDS==:14     ;HDS CONCEPT-100
 781 DEFSYM  %TNH19==:15     ;H19
 782 DEFSYM  %TNAAA==:16     ;Ann Arbor Ambassador
 783 DEFSYM  %TNMAX==:17
 784
 785
 786 ;TTYOPT WORD DESCRIBES CHARACTERISTICS OF THE PARTICULAR
 787 ;TERMINAL ATTACHED TO EACH LINE.
 788
 789 ;LEFT HALF BITS ARE:
 790 DEFSYM  %TO==:1,,525252         ;BIT TYPEOUT MASK
 791 DEFSYM  %TOALT==:200000 ;4.8 => STANDARDIZE ALTMODES.
 792 DEFSYM  %TOCLC==:100000 ;4.7 => CONVERT LOWER CASE TO UPPER.
 793 DEFSYM  %TOERS==:40000  ;4.6 => THIS TTY CAN SELECTIVELY ERASE.
 794 DEFSYM  %TOHDX==:20000  ;4.5 => THIS TTY IS HALF-DUPLEX.
 795 DEFSYM  $TOHDX==:370100
 796 DEFSYM  %TOMVB==:10000  ;4.4 => THIS TTY CAN BACKSPACE.
 797 DEFSYM  %TOSAI==:4000   ;4.3 => THIS TTY HAS SAIL CHAR SET ON OUTPUT.
 798 DEFSYM  %TOSA1==:2000   ;4.2 INIT %TSSAI OF NEW JOBS.
 799 DEFSYM  %TOOVR==:1000   ;4.1 => THIS TTY CAN OVERPRINT SUCCESSFULLY.
 800 DEFSYM  %TOMVU==:400    ;3.9 => THIS TTY CAN MOVE CURSOR UP (I.E. IT'S A
 801                         ; DISPLAY).
 802 DEFSYM  %TOMOR==:200    ;3.8 => DO **MORE** PROCESSING ON THIS TTY
 803                         ; (ACTUALLY JUST USED TO INIT %TSMOR FOR NEW JOBS).
 804 DEFSYM  %TOROL==:100    ;3.7 SIMILARLY, INIT %TSROL FOR NEW JOBS.
 805 DEFSYM  %TORAW==:40     ;3.6 => SUPPRESS CURSOR MOTION OPTIMIZATION.
 806 DEFSYM  %TOLWR==:20     ;3.5 => THIS TTY HAS LOWER CASE KEYBOARD.
 807 DEFSYM  %TOFCI==:10     ;3.4 => KEYBOARD CAN GENERATE FULL 12-BIT CHARACTER SET
 808 DEFSYM  %TOIML==:4      ;3.3 => SPACE, BS DON'T EQUAL ^PF, ^PB; ALSO ^PC
 809                         ; SENDS ^L.
 810 DEFSYM  %TOLID==:2      ;3.2 => %TDILP, %TDDLP WORK (INSERT AND DELETE LINES)
 811 DEFSYM  %TOCID==:1      ;3.1 => %TDICP, %TDDCP WORK
 812                         ; (INSERT AND DELETE CHARACTERS)
 813
 814 ;RIGHT HALF:
 815 DEFSYM  %TP==:707252            ;BIT TYPEOUT MASK
 816 DEFSYM  %TPPLF==:100000
 817 DEFSYM  $TPPLF==:170300 ;3-BIT FIELD SAYING HOW TO PAD LF.
 818                         ; 0 - DON'T. 1 - MEMOWRECK, 2741. 2 - TERMINET.
 819 DEFSYM  %TPPCR==:10000
 820 DEFSYM  $TPPCR==:140300 ;3-BIT FIELD SAYING HOW TO PAD CR.
 821                         ; 7 - UNUSED. 6 - MEMOWRECK. 5 - 2741. 4 - EXECUPORT.
 822                         ; 0 - DON'T. 1 - NORMAL. 2 - DOUBLE.
 823                         ; ON DATAPOINTS, = # CHARS PADDING NEEDED FOR ALL
 824                         ; CURSOR MOTION.
 825                         ; 4 IS RIGHT FOR 2400 BAUD; 3, FOR 1200.
 826                         ; ON TERMINETS, 0 => NO PADDING, ELSE 1,2,3,4,5
 827                         ; ARE PADDING FOR SPEEDS 10,15,30,60,120 CPS.
 828 DEFSYM  %TPPCW==:6      ;FOR MEMO WRECK.
 829 DEFSYM  %TPPTB==:1000
 830 DEFSYM  $TPPTB==:110300 ;3 BIT FIELD SAYING HOW MUCH PADDING NEEDED AFTER
 831                         ; TAB.  0 => TABS NOT ALLOWED; ELSE 1 +<# PADDING
 832                         ; CHARS NEEDED> BUT ON A DISPLAY, TABS ARE NEVER
 833                         ; PADDED AND THIS FIELD IS 1 TO USE TABS, 2 TO USE
 834                         ; ABSOLUTE CURSOR POSITIONING, 3 TO USE BOTH, 0 TO
 835                         ; USE NEITHER.
 836 DEFSYM  %TPMTA==:400    ;1.9 => HARDWARE META KEY SETS 8TH BIT
 837 DEFSYM  %TPPRN==:200    ;1.8 => INTERCHANGE () WITH [] ON INPUT
 838 DEFSYM  %TPTEL==:100    ;1.7 => HANDLE CR-LF ON INPUT AS CR, FOR TELNET
 839                         ; PROTOCOL
 840 DEFSYM  %TPCBS==:40     ;1.6 => ENABLE SPECIAL HANDLING OF CONTROL BACK
 841                         ; SLASH ON INPUT (THE "INTELLIGENT TERMINAL
 842                         ; PROTOCOL").
 843 DEFSYM  %TP11T==:20     ;1.5 => PDP-11 TV TTY. REFLECTS %TY11T.  NOT
 844                         ; SETTABLE BY USER.
 845 DEFSYM  %TPORS==:10     ;1.4 => OUTPUT RESET ON THIS TTY SHOULD REALLY DO
 846                         ; SOMETHING.
 847 DEFSYM  %TPRSC==:4      ;1.3 => THIS TTY SUPPORTS %TDRSU, %TDRSD
 848
 849 ;DEFINE BITS WHICH ARE USER-OPTIONS
 850 DEFSYM  %TOUSR==:%TOCLC+%TOSA1+%TOMOR+%TOROL
 851 DEFSYM  %TPUSR==:%TPPRN+1       ;THE 1 IS TO AVOID INTEFERING WITH BIT-TYPE-OUT
 852 \f
 853 DEFSYM  %TQ==1,,701725  ;TTY "SMARTS" BITS IN LH(TTYSMT)
 854 DEFSYM  %TQIM1==300000  ;TTY IS A PDS1
 855 DEFSYM  %TQIM4==200000  ;TTY IS A PDS4
 856 DEFSYM  %TQP11==100000  ;TTY IS A PDP11
 857 DEFSYM  %TQMCH==700000  ;4.7-4.9 MACHINE TYPE, 0 => NOTHING SPECIAL
 858 DEFSYM  %TQGRF==1       ;3.1 UNDERSTANDS GRAPHICS PROTOCOL
 859 DEFSYM  %TQGPH==1       ;3.1 UNDERSTANDS GRAPHICS PROTOCOL (OBSOLETE NAME)
 860 DEFSYM  %TQSET==2       ;3.2 HAS MULTIPLE OBJECT SETS
 861 DEFSYM  %TQREC==4       ;3.3 HAS RECTANGLE COMMANDS
 862 DEFSYM  %TQXOR==10      ;3.4 HAS XOR MODE
 863 DEFSYM  %TQBNK==20      ;3.5 HAS BLINKING
 864 DEFSYM  %TQVIR==40      ;3.6 VIRTUAL COORDINATES
 865 DEFSYM  %TQHGT==76000   ;4.2-4.6 CHARACTER HEIGHT IN DOTS
 866 DEFSYM  %TQWID==1700    ;3.7-4.1 CHARACTER WIDTH IN DOTS
 867
 868 DEFSYM  %TR==534052     ;RH(TTYSMT)
 869 DEFSYM  %TRGIN==400000  ;2.9 HAS GRAPHIC INPUT
 870 DEFSYM  %TRGHC==200000  ;2.8 HAS GRAPHIC HARDCOPY
 871 DEFSYM  %TRLED==100000  ;2.7 HAS LOCAL EDITING PROTOCOL.
 872 DEFSYM  %TRSCN==040000  ;2.6 HAS RASTER COMMANDS
 873 DEFSYM  %TRLSV==034000  ;2.3-2.5 NONZERO MEANS TERMINAL SUPPORTS 4**N SAVED
 874                         ; LINES.
 875 DEFSYM  %TRTIM==003700
 876 DEFSYM  $TRTIM==060500  ;5 BIT FIELD WHICH IS THE SIGNED OFFSET FROM GMT
 877                         ; MINUS #o20; A VALUE OF ZERO MEANS DON'T KNOW,
 878                         ; DON'T CARE, OR USER PROGRAM HASN'T IMPLEMENTED IT
 879                         ; YET
 880
 881 ;GROUP NUMBER              CHARACTERS
 882 ;[      0               ^A-^F ^K-^L ^N-^R ^T-^Z ^] ^^ ^_ ^@ ^\
 883 ;       1               A-Z   LOWER CASE A-Z
 884 ;       2               0-9
 885 ;       3               !"#$(DOLLAR)%&',.:;?@\ (ACCENT GRAVE)
 886 ;                        (VERTICAL BAR) (TILDE)
 887 ;       4               *+-/=^_
 888 ;       5               <>[]() (LEFT BRACE) (RIGHT BRACE)
 889 ;       6               ^G ^S
 890 ;       7               LF ^I(TAB)
 891 ;       10              (ALTMODE)
 892 ;       11              CR
 893 ;       12              RUBOUT
 894 ;       13              SPACE ^H(BACKSPACE)
 895
 896 ;TTYST1 HAS GROUPS 0 THROUGH 5 FROM LEFT TO RIGHT
 897 ;TTYST2 HAS 6 THROUGH 13
 898 ;EACH GROUP HAS SIX BITS AS FOLLOWS:
 899 DEFSYM  %TG==:777725            ;BIT TYPEOUT MASK
 900 DEFSYM  %TGINT==:1      ;N.1 => INTERRUPT ON THIS GROUP
 901 DEFSYM  %TGACT==:2      ;N.2 => ACTIVATE ON THIS GROUP (FOR SWAPPING)
 902 DEFSYM  %TGSPC==:4      ;N.3 => SPECIAL HACKS.
 903                         ; (THIS SET ON GROUP 1 => CONVERT LOWER CASE)
 904 DEFSYM  %TGIMG==:10     ;N.4 => IMAGE MODE OUTPUT (N.4=0  => ASCII MODE)
 905                         ;N.6-N.5 => ECHO MODE
 906                         ;       00 => NO ECHO
 907 DEFSYM  %TGPIE==:20     ;       01 => PI  ECHO (ECHO CHARACTER WHEN TYPED)
 908 DEFSYM  %TGMPE==:40     ;       10 => MAIN PROGRAM ECHO (ECHO WHEN MAIN
 909                         ;             PROGRAM RECEIVES CHARACTER)
 910
 911 ;TTYSTS HAS RANDOM BITS ASSOCIATED WITH THE TELETYPE
 912 DEFSYM  %TS==:1,,525252         ;BIT TYPEOUT MASK
 913 DEFSYM  %TSFRE==:400000 ;4.9 => TTY FREE
 914 DEFSYM  %TSCLE==:200000 ;4.8 => ECHO ^L AS UPARROW-L EVEN ON DISPLAYS
 915                         ;(OTHERWISE WOULD ECHO AS CLEAR SCREEN)
 916 DEFSYM  %TSHDX==:100000 ;4.7 REFLECTS %TOHDX BIT.
 917 DEFSYM  %TSFCO==:040000 ;4.6 => HANDLE 9-BIT CHARS ON OUTPUT, USING ALPHA,
 918                         ; BETA, EPSILON.
 919 DEFSYM  %TSALT==:020000 ;4.5 => DON'T STANDARDIZE ALTMODE.
 920 DEFSYM  %TSROL==:010000 ;4.4 => SCROLL MODE.
 921 DEFSYM  %TSSAI==:004000 ;4.3 => ECHO AND ASCII MODE SHOULD USE SAIL CHAR SET.
 922 DEFSYM  %TSACT==:002000 ;4.2 => GOBBLE NEXT CHAR REGARDLESS OF ACTIVATION
 923                         ; STATUS
 924 DEFSYM  %TSNEA==:001000 ;4.1 => DON'T ECHO IN ECHO AREA; ECHO IN M.P. AREA
 925 DEFSYM  %TSINT==:000400 ;3.9 => INT ON NEXT CHAR REGARDLESS
 926 DEFSYM  %TSMOR==:000200 ;3.8 => INHIBIT **MORE**.
 927 DEFSYM  %TSATY==:000100 ;3.7 SET BY .ATTY, SAYS TTY WAS TAKEN AWAY & RETURNED.
 928                         ;3.6-3.5 UNUSED.
 929 DEFSYM  %TSNOE==:000010 ;3.4 => DEFER ECHOING, AND MAKE INPUT IOT'S ACT AS
 930                         ; IF %TIECH=1.
 931 DEFSYM  %TSLCZ==:000004 ;3.3 => LAST CHARACTER TYPED WAS ^Z
 932                         ; (NOT PRECEEDED BY ^_)
 933 DEFSYM  %TSSII==:000002 ;3.2 => SUPER IMAGE INPUT MODE.  ^Z AND ^_ INHIBITED.
 934 DEFSYM  %TSCNS==:000001 ;3.1 => TTY IN USE AS CONSOLE CONTROLLING A TREE.
 935 DEFSYM  $TSCNS==:220100
 936                         ;RH => USER INDEX
 937                         ;       -1 => NO USER
 938 \f
 939 ;TTYCOM VARIABLE.
 940 ;4.9 => TTY IN COMMUNICATE MODE
 941 DEFSYM  %TC==:1,,525252         ;BIT TYPEOUT MASK
 942 DEFSYM  %TCLFT==:200000 ;4.8 => LOCAL FEED THROUGH (SET IF MY PRGM
 943                         ; RECEIVING HIS CHRS)
 944 DEFSYM  %TCRFT==:100000 ;4.7 => REMOTE FEED THROUGH (SET IF HIS PRGM
 945                         ; RECEIVING MY CHRS)
 946 DEFSYM  %TCICO==:40000  ;4.6 => INPUT COMMUNICATE OVERRIDE (SET IF MY
 947                         ; CONSOLE FEEDING MY PRGM EVEN THO IN COMM MODE).
 948                         ; ALSO IMPLIES OUTPUT OVER-RIDE
 949 DEFSYM  %TCOCO==:20000  ;4.5 => OUTPUT COMMUNICATE OVERRIDE (SET IF MY
 950                         ; PRGM'S OUTPUT TO APPEAR ON MY CONSOLE ONLY EVEN
 951                         ; THO IN COM MODE)
 952                         ;4.4-4.3 => MESSAGE RECEIPT SWITCH
 953                         ;  00 => ACCEPT
 954 DEFSYM  %TCRFS==:10000  ;  10 => REFUSE
 955 DEFSYM  %TCQRY==:4000   ;  01 => INTERROGATE
 956 DEFSYM  %TCMTR==:2000   ;4.2  SET FOR TTY WHOSE MOTOR IS OFF & MUST BE
 957                         ; TURNED ON BEFORE ANY OTHER OUTPUT IS DONE.  (ONLY
 958                         ; TERMINETS HAVE THEIR MOTORS SHUT OFF BY ITS).
 959 DEFSYM  %TCECH==:1000   ;4.1 THE OUTPUT BUFFER CONTAINS ECHOING OUTPUT.
 960                         ; THIS MAKES OUTPUT RESET DO NOTHING.  THE BUFFER
 961                         ; MUST NOT CONTAIN ECHO OUTPUT AND NORMAL OUTPUT AT
 962                         ; ONE TIME.
 963 DEFSYM  %TCLED==:400    ;3.9 JOB WHICH OWNS TTY WANTS LOCAL EDITING IN
 964                         ; TERMINAL.  SET BY CTL BIT 1.1 IN SCPOS; CLEARED
 965                         ; BY SWITCHING JOBS.
 966 DEFSYM  %TCDET==:200    ;3.8 CONSOLE'S TREE DETACHED BY TOP LEVEL
 967                         ; INTERRUPT.  SET BY NDETAC AS SIGNAL TO SYSCFM
 968                         ; (CNSL-FREE-MSG TYPER)
 969 DEFSYM  %TCDNG==:100    ;3.7 => TYPE BELL ON TTY (BECAUSE INPUT BFR FULL).
 970 DEFSYM  %TCCBK==:40     ;3.6 => READING UNAME OR TTY # AFTER ^_K.
 971 DEFSYM  %TCCBS==:20     ;3.5 => READING UNAME OR TTY # AFTER ^_S.
 972 DEFSYM  %TCFPD==:10     ;3.4 => FIRST PART OF MULTI-CHAR OUTPUT SEQUENCE DONE.
 973 DEFSYM  %TCTPN==:4      ;3.3 TYPE ^_N ON LEAVING COM MODE (UNLESS USER
 974                         ; EXPLICITLY TYPES ^_N)
 975 DEFSYM  %TCPAD==:2      ;3.2  0 => PADDING NECESSARY ON DATAPOINT.
 976 DEFSYM  %TCHNG==:1      ;3.1 TTY'S DONE FLAG APPEARS TO BE FRIED, TIME OUT
 977                         ; QUICKLY
 978 ;RH => USER INDEX COMMUNICATING WITH (-1 NONE)
 979
 980 ;TTYTYP TABLE
 981 ;THIS TABLE HOLDS BITS THAT DESCRIBE THE LINE
 982 ;AND ITS CONTROLLER, RATHER THAN THE TTY ATTACHED TO THE LINE.
 983 DEFSYM  %TT==:1,,525360         ;BIT TYPEOUT MASK
 984 DEFSYM  %TTLCL==:400000 ;BIT 4.9 ONE => LOCAL TTY
 985 DEFSYM  %TT340==:200000 ;BIT 4.8 ONE => CONSOLE NEXT TO 340 OR A 340 SLAVE
 986 DEFSYM  %TT3HP==:100000 ;BIT 4.7 HIGH PRIORITY ON 340
 987 DEFSYM  %TTPAR==:004000 ;BIT 4.3
 988 DEFSYM  %TTDDI==:002000 ;BIT 4.2 DONT DING ON EXCESS INPUT
 989 DEFSYM  $TTISP==:260400 ;3.8-3.5 INPUT SPEED CODE
 990 DEFSYM  %TTISP==:20
 991 DEFSYM  $TTOSP==:220400 ;3.4-3.1 OUTPUT SPEED CODE
 992 DEFSYM  %TTOSP==:1
 993 ;RIGHT HALF BITS
 994 DEFSYM  %TY==:525252            ;BIT TYPEOUT MASK
 995 DEFSYM  %TYDPK==:400000 ;BIT 2.9 (DATAPOINT KLUDGE TTY LINE)
 996 DEFSYM  %TYSTY==:200000 ;BIT 2.8 PSEUDO TTY
 997 DEFSYM  %TYNVA==:100000 ;BIT 2.7 NOVA TTY
 998 DEFSYM  %TYMTY==:040000 ;BIT 2.6 MORTON BOX
 999 DEFSYM  %TYDIL==:020000 ;BIT 2.5 DIAL UP
1000 DEFSYM  %TY11T==:010000 ;BIT 2.4 PDP-11 TV TTY.
1001 DEFSYM  %TYDL==:004000  ;BIT 2.3 DL-11 TTY
1002 DEFSYM  %TYOTY==:002000 ;BIT 2.2 KA-10 CONSOLE TTY
1003 DEFSYM  %TYETY==:001000 ;BIT 2.1 DTE20 TTY
1004 DEFSYM  %TYNTY==:000400 ;BIT 1.9 TK-10 TTY
1005 DEFSYM  %TYMDM==:000200 ;BIT 1.8 LINE DETECTS DIALINS AND HANGUPS
1006 DEFSYM  %TYKST==:000100 ;BIT 1.7 KS-10 CONSOLE TTY
1007 DEFSYM  %TYDZT==:000040 ;BIT 1.6 DZ-11 TTY ON KS-10
1008 DEFSYM  %TYRLM==:000020 ;BIT 1.5 ROLM DATA SWITCH
1009
1010 ;SPEED CODES ARE DOCUMENTED ON PAGE 3 OF ITS (DEFINE SPEED1)
1011 \f
1012 ;SUPDUP GRAPHICS PROTOCOL COMMANDS:
1013
1014 DEFSYM  %GO==:,,-1
1015
1016 DEFSYM  %GODLR==:101    ;<p>  Draw line relative, from the cursor to <p>.
1017 DEFSYM  %GODPR==:102    ;<p>  Draw point relative, at <p>.
1018 DEFSYM  %GODRR==:103    ;<p>  Draw rectangle relative, corners at <p> and
1019                         ;     at the current cursor position.
1020 DEFSYM  %GODCH==:104    ;<string> <0>
1021                         ;Display the chars of <string> starting at the current
1022                         ;graphics cursor position.
1023 DEFSYM  %GODSC==:105    ;<scan bits> <terminater> Draws scan bits starting at
1024                         ;the current gaphics cursor position. <scan bits> come
1025                         ;in bits of 6-6-4. <terminater> has 100 bit (character
1026                         ;gobbled) or 200 bit (interpreted as %TD code) set.
1027 DEFSYM  %GODRN==:106    ;<run bits> <0> Draw run length encoded raster line
1028                         ;starting at current graphic cursor. Low six bits are
1029                         ;count. 100 bit determines point type (on/off).
1030
1031 DEFSYM  %GODLA==:121    ;<p>  Draw line absolute, from the cursor to <p>.
1032                         ;     The same effect as %GODLR, but the arg absolute.
1033 DEFSYM  %GODPA==:122    ;<p>  Draw point absolute, at <p>.
1034 DEFSYM  %GODRA==:123    ;<p>  Draw rectangle absolute, corners at <p> and
1035                         ;     at the current cursor position.
1036
1037 DEFSYM  %GOELR==:141    ;<p>  Erase line relative, from the cursor to <p>.
1038 DEFSYM  %GOEPR==:142    ;<p>  Erase point relative, at <p>.
1039 DEFSYM  %GOERR==:143    ;<p>  Erase rectangle relative, corners at <p> and
1040                         ;     at the current cursor position.
1041 DEFSYM  %GOECH==:144    ;<string> <0>
1042                         ;Erase the chars of <string> starting at the current
1043                         ;graphics cursor position.
1044 DEFSYM  %GOESC==:145    ;<scan bits> <terminater>. Erase scan bits starting at
1045                         ;the current graphics cursor position.
1046 DEFSYM  %GOERN==:146    ;<run bits> <0> Erase run-length encoded rasters
1047                         ;starting at current grphaics cursor position.
1048
1049 DEFSYM  %GOELA==:161    ;<p>  Erase line absolute, from the cursor to <p>.
1050 DEFSYM  %GOEPA==:162    ;<p>  Erase point absolute, at <p>.
1051 DEFSYM  %GOERA==:163    ;<p>  Erase rectangle absolute, corners at <p> and
1052                         ;     at the current cursor position.
1053
1054 DEFSYM  %GOMVR==:001    ;<p>  Move cursor to point <p>
1055 DEFSYM  %GOMVA==:021    ;<p>  Move cursor to point <p>, absolute address.
1056 DEFSYM  %GOXOR==:002    ;     Turn on XOR mode.  Bit matrix terminals only.
1057 DEFSYM  %GOIOR==:022    ;     Turn off XOR mode.
1058 DEFSYM  %GOSET==:003    ;<n>  Select set.  <n> is a 1-character set number,
1059                         ;     0 - 177.
1060 DEFSYM  %GOMSR==:004    ;<p>  Move set origin to <p>.  Display list
1061                         ;     terminals only.
1062 DEFSYM  %GOMSA==:024    ;<p>  Move set origin to <p>, absolute address.
1063 DEFSYM  %GOINV==:006    ;     Make current set invisible.
1064 DEFSYM  %GOVIS==:026    ;     Make current set visible.
1065 DEFSYM  %GOBNK==:007    ;     Make current set blink.  Canceled by %GOINV
1066                         ;     or %GOVIS.
1067 DEFSYM  %GOCLR==:010    ;     Erase whole screen.
1068 DEFSYM  %GOCLS==:030    ;     Erase entire current set (display list
1069                         ;     terminals).
1070 DEFSYM  %GOPSH==:011    ;     Push all input-stream status information, to be
1071                         ;     restored when graphics mode is exited.
1072 DEFSYM  %GOVIR==:012    ;     Start using virtual co-ordinates
1073 DEFSYM  %GOPHY==:032    ;     Resume giving co-ordinates in units of dots.
1074 DEFSYM  %GOHRD==:013    ;<n>  Divert output to output subdevice <n>.
1075                         ;     <n>=0 reselects the main display screen.
1076 DEFSYM  %GOGIN==:014    ;<n>  Request graphics input (mouse, tablet, etc).
1077                         ;     <n> is the reply code to include in the answer.
1078 DEFSYM  %GOLMT==:015    ;<p1> <p2>
1079                         ;Limits graphics to a subrectangle of the
1080                         ;screen.  %GOCLR will clear only that area.
1081                         ;This is for those who would use the rest for text.
1082 \f
1083 ;THE TTYTBL VARIABLE EXISTS FOR EACH JOB.
1084 ;IT DESCRIBES THE ATTY-DTTY STATE OF THE JOB
1085 ;AND OTHER THINGS THAT HAVE TO DO WITH THE TREE'S
1086 ;CONTROLLING TTY ONLY.
1087 DEFSYM  %TB==:1,,525277         ;BIT TYPEOUT MASK
1088 DEFSYM  %TBNOT==:400000 ;4.9 THIS JOB DOES NOT HAVE THE TTY NOW.
1089 DEFSYM  %TBNVR==:200000 ;4.8 IF JOB DOESN'T HAVE TTY, OPENS SHOULD FAIL.
1090 DEFSYM  %TBINT==:100000 ;4.7 IF JOB DOESN'T HAVE TTY, ATTEMPT TO USE TTY
1091                         ; SHOULD INTERRUPT.
1092 DEFSYM  %TBWAT==:040000 ;4.6 IF SET, OVERRIDES %TBINT AND %TBNVR, AND
1093                         ; FORCES TTY USAGE ATTEMPTS TO HANG. MAY BE ALTERED
1094                         ; ONLY BY SUPERIOR.
1095 DEFSYM  %TBDTY==:010000 ;4.4 THE JOB DOESN'T HAVE THE TTY, BUT IT IS IN A
1096                         ; DTTY'ING STATE. IN OTHER WORDS, THIS JOB DOESN'T
1097                         ; WANT TO GIVE THE TTY TO ONE OF ITS INFERIORS.
1098 DEFSYM  %TBOUT==:004000 ;4.3 ALLOW TYPEOUT EVEN IF DON'T HAVE TTY (SETTABLE
1099                         ; BY SUPERIOR)
1100 DEFSYM  %TBINF==:002000 ;4.2 ALLOW INFERIORS TO TAKE ADVANTAGE OF THEIR
1101                         ; %TBOUTS.
1102 DEFSYM  %TBOIG==:001000 ;4.1 IGNORE OUTPUT (NORMALLY SET BY SUPERIOR).
1103                         ; OVERRIDES %TBWAT, %TBINT.
1104 DEFSYM  %TBIIN==:000400 ;3.9 INTERRUPT ON ATTEMPT TO DO INPUT.  OVERRIDES
1105                         ; %TBWAT.  NORMALLY SET BY SUPERIOR.
1106 DEFSYM  $TBECL==:220600 ;3-6-3.1 # ECHO LINES IF I DONT HAVE DISPLAY
1107 DEFSYM  %TBECL==:77
1108
1109 ;RH - IF %TBNOT IS 0, THE RH HAS THE TTY NUMBER.
1110 ;OTHERWISE, IF %TBDTY IS 0, THE RH HAS THE USR INDEX OF
1111 ;THE INFERIOR THAT THIS JOB GAVE OR WOULD LIKE TO GIVE
1112 ;THE TTY TO. OTHERWISE, THE RH IS 0.
1113
1114 ;BITS IN THE PER-STY VARIABLE STYSTS, RETURNED BY STYGET SYSTEM CALL.
1115 DEFSYM  %SS==:1,,525252                 ;BIT TYPEOUT MASK
1116 DEFSYM  %SSHNG==:400000         ;4.9 = 1 => DON'T HANG ON INPUT IOTS
1117 DEFSYM  %SSUSE==:200000         ;4.8 = 1 => IN USE
1118 DEFSYM  %SSINT==:100000         ;4.7 = 1 => HAVE GIVEN INT ON STY OUTPUT
1119                                 ; CHNS ALREADY
1120 DEFSYM  %SSONT==:040000         ;4.6 = 1 => DITTO FOR STY INPUT (TTY OUTPUT)
1121 DEFSYM  %SSOHG==:20000          ;4.5 = 1 => DON'T HANG ON OUTPUT IOT
1122                                 ;RH = USER INDEX THAT HAS IT OPEN
1123
1124
1125 IFN $$TEMP, EXPUNGE DEFSYM