Trailing-Edge
-
PDP-10 Archives
-
SRI_NIC_PERM_SRC_1_19910112
-
6-exec/execca.mac
There are 64 other files named execca.mac in the archive. Click here to see a list.
;[SRI-NIC]SRC:<6-EXEC>EXECVR.MAC.1069, 7-Oct-85 15:58:58, Edit by IAN
; [NIC1070] Disallow @N abbreviation for @NIC for confused people
;[SRI-NIC]SRC:<6-EXEC>EXECVR.MAC.1059, 18-Jul-85 11:13:55, Edit by IAN
; [NIC1057] Add @I DEVICES (assigned etc)
;[SRI-NIC]SRC:<6-EXEC>EXECVR.MAC.1055, 17-Jul-85 10:10:24, Edit by IAN
; [NIC1055] Make LAZCON fake up the COMAND word to point to the "connect"
; command, so avoid nasty IMRs in MAKSIX when it interprets the directory#
; as a pointer (added .CD label for external use)
;[SRI-NIC]SRC:<6-EXEC>EXECCA.MAC.50, 3-Jul-85 22:49:29, Edit by HSS
; [NIC1053] Add SAFETY command
;[SRI-NIC]SRC:<6-EXEC>EXECCA.MAC.49, 3-Jul-85 20:20:13, Edit by HSS
; [NIC1052] Make LASER command use CANON code
;[SRI-NIC]SRC:<6-EXEC>EXECCA.MAC.48, 31-May-85 13:08:40, Edit by HSS
; [NIC1044] Fix omission in edit 1041
;[SRI-NIC]SRC:<6-EXEC>EXECCA.MAC.47, 10-May-85 12:35:08, Edit by HSS
; [NIC1035] Add lazy connect.
;[SRI-NIC]SRC:<6-EXEC>EXECCA.MAC.46, 9-May-85 23:29:57, Edit by HSS
; [NIC1034] Add NYU calculate command
;[SRI-NIC]SRC:<6-EXEC>EXECCA.MAC.45, 9-May-85 15:03:59, Edit by HSS
; [NIC1033] Add AUTOKEEP file attribute code
;[SRI-NIC]SRC:<6-EXEC>EXECCA.MAC.44, 9-May-85 11:09:43, Edit by HSS
; [NIC1032] Remove K synonym for KJob
;[SRI-NIC]SRC:<6-EXEC>EXECCA.MAC.43, 7-May-85 15:27:02, Edit by HSS
; [NIC1027] Make PRO an abbreviation for PROGRAM in SET PROGRAM.
;[SRI-NIC]PS:<HSS.EXEC>EXECCA.MAC.42, 17-Apr-85 11:54:42, Edit by HSS
; [NIC1017] Add NYU history code
;[SRI-NIC]PS:<HSS.EXEC>EXECCA.MAC.41, 15-Apr-85 16:04:05, Edit by HSS
; [NIC1013] Switch out INFO ARPANET, DECNET, ETHERNET, and NETWORK.
;[SRI-NIC]PS:<HSS.EXEC>EXECCA.MAC.40, 12-Apr-85 14:31:01, Edit by HSS
; [NIC1012] Add lineprocessor terminal type
;[SRI-NIC]PS:<HSS.EXEC>EXECCA.MAC.39, 10-Apr-85 15:37:13, Edit by HSS
; [NIC1004] Disable CANON and add LASER.
;[SRI-NIC]PS:<HSS.EXEC>EXECCA.MAC.38, 5-Apr-85 16:50:08, Edit by HSS
; [NIC1003] Add BACK command
;[SRI-NIC]PS:<HSS.EXEC>EXECCA.MAC.37, 4-Apr-85 17:36:41, Edit by HSS
; [NIC1002] Installed IDDT and NO IDDT. Made i synonym for information.
;[SRI-NIC]PS:<HSS.EXEC>EXECCA.MAC.36, 4-Apr-85 15:37:00, Edit by HSS
; [NIC1001] Enabled the peek command and added ^EINITIALIZE
;[SRI-NIC]PS:<HSS.EXEC>EXECCA.MAC.35, 3-Apr-85 14:47:30, Edit by HSS
; [NIC1000] Installed not-logged-in REGISTER, HOST, NIC, TACNEWS, QUERY, and
; WHOIS
;<6-EXEC>EXECCA.MAC.34, 25-Jan-85 22:41:40, Edit by HEGARTY
; CSLI Changes: Make QVT102 and QUME synonyms for TELEVIDEO-912
;<6-EXEC>EXECCA.MAC.33, 20-Jan-85 21:16:24, Edit by HEGARTY
; CSLI Changes: Put in HELPME and WHOCONSULT
;<6-EXEC>EXECCA.MAC.32, 7-Jan-85 11:55:22, Edit by SATZ
; installed the vt200 in the blank table (so avt would work, snarl)
;<6-EXEC>EXECCA.MAC.30, 28-Nov-84 17:30:15, Edit by SATZ
; Add the Concept AVT terminal type
;<6-EXEC>EXECCA.MAC.29, 2-Oct-84 12:01:50, Edit by SATZ
; Put DECLARE in PCLF conditionals
;<6-EXEC>EXECCA.MAC.28, 21-Sep-84 12:08:16, Edit by SATZ
; Make $SET0 table alphabetical.
;<6-EXEC>EXECCA.MAC.27, 14-Sep-84 19:03:09, Edit by LOUGHEED
; Remove OPEN command from logged in list, flush EDDT debug hook
;<HEGARTY>EXECCA.MAC.26, 13-Sep-84 22:14:24, Edit by HEGARTY
; LOTS changes: Allow Not Logged In to use OPEN, WHOCONSULT,
; WIZARDS, and HELPME.
;<6-EXEC>EXECCA.MAC.25, 6-Sep-84 17:41:50, Edit by SATZ
; Add in some missing PCL edits
;<6-EXEC>EXECCA.MAC.24, 27-Aug-84 00:50:10, Edit by SATZ
; Remove ONEWRD from FORK-STATUS for INFO FORK keywords
;<6-EXEC>EXECCA.MAC.23, 25-Aug-84 01:30:10, Edit by SATZ
; Add in SET [NO] LEVEL-INDICATION
;<6-EXEC>EXECCA.MAC.22, 25-Aug-84 00:49:19, Edit by SATZ
; Fix MIC conditional clashing with STANSW
;<6-EXEC>EXECCA.MAC.21, 24-Aug-84 15:35:23, Edit by SATZ
; Add in the SET PROMPT command
;<6-EXEC>EXECCA.MAC.20, 9-Aug-84 16:22:05, Edit by KRONJ
; "DI" short for "DIRECTORY"
;<6-EXEC>EXECCA.MAC.19, 9-Aug-84 13:15:31, Edit by JPBION
; Set HELP "NOLG" in the not-logged-in command table
;<6-EXEC>EXECCA.MAC.17, 9-Aug-84 00:27:36, Edit by LOUGHEED
; No more TERMINAL BELL command
;<6-EXEC>EXECCA.MAC.16, 8-Aug-84 23:34:55, Edit by LOUGHEED
; More fiddling with command tables
; - add FINGER and BLANK to not logged in commands
; - flush RDMAIL and SET EXTRA commands
; - flush a bunch of cutesy, crufty command synonyms and pointless changes
;<6-EXEC>EXECCA.MAC.15, 8-Aug-84 23:00:32, Edit by LOUGHEED
;<6-EXEC>EXECCA.MAC.14, 8-Aug-84 22:52:35, Edit by LOUGHEED
; Allow more not logged in commands:
; - K, KK, KJOB, KILLJOB synonyms for LOGOUT
; - HELP and SEND commands
;SCORE:<MERGED-6-EXEC>EXECCA.MAC.9, 12-Jul-84 14:49:18, Edit by JPBION
;Stanford changes:
; New CM1XL table for not logged in user - to allow lazy login.
; Numerous local additions to terminal type tables
; Numerous local changes to command tables
; Toss the PERUSE command
;
; UPD ID= 369, SNARK:<6.EXEC>EXECCA.MAC.35, 28-Dec-83 16:36:40 by PRATT
;More TCO 6.1796 - Add [SET] TERMINAL [NO] INHIBIT (NON-JOB OUTPUT)
; UPD ID= 354, SNARK:<6.EXEC>EXECCA.MAC.34, 29-Nov-83 14:45:00 by PRATT
;TCO 6.1886 - Remove MFRK conditionals.
; UPD ID= 353, SNARK:<6.EXEC>EXECCA.MAC.33, 29-Nov-83 11:29:51 by PRATT
;TCO 6.1885 - Remove INFO DOWNTIME.
; UPD ID= 344, SNARK:<6.EXEC>EXECCA.MAC.32, 28-Nov-83 11:30:12 by PRATT
;TCO 6.1881 - Remove $CONFD and friends, put equivalent in EXECP.
; UPD ID= 336, SNARK:<6.EXEC>EXECCA.MAC.31, 20-Nov-83 19:40:53 by PRATT
;TCO 6.1870 - Get rid of code which is under NONEWF. Remove NEWF's.
; UPD ID= 328, SNARK:<6.EXEC>EXECCA.MAC.30, 17-Nov-83 14:00:33 by PRATT
;TCO 6.1796 - [Set] Terminal [no] Receive Advice/Links/System-messages
; UPD ID= 293, SNARK:<6.EXEC>EXECCA.MAC.29, 5-Jul-83 16:51:46 by CHALL
;More 6.1619 - dispatch to .VTH19 (routine), not .TTH19 (value)
; UPD ID= 291, SNARK:<6.EXEC>EXECCA.MAC.28, 23-Jun-83 09:15:36 by CHALL
;TCO 6.1704 CTBLX- Remove BLANK from the not-logged-in command table
; UPD ID= 282, SNARK:<6.EXEC>EXECCA.MAC.27, 11-May-83 10:08:46 by CHALL
;TCO 6.1652 - PUT "STAY" SUBCOMMAND BACK AGAIN (LOOKING LIKE "BACKGROUND")
; UPD ID= 281, SNARK:<6.EXEC>EXECCA.MAC.26, 5-May-83 13:19:53 by CHALL
;TCO 6.1646 - REMOVE SUBCOMMANDS FROM $CONF1 AND $CONFD (NOW UNDER XTND)
; UPD ID= 277, SNARK:<6.EXEC>EXECCA.MAC.25, 20-Apr-83 15:53:43 by PAETZOLD
;More TCO 6.1619 - One more time
; UPD ID= 276, SNARK:<6.EXEC>EXECCA.MAC.24, 20-Apr-83 15:49:19 by PAETZOLD
; UPD ID= 275, SNARK:<6.EXEC>EXECCA.MAC.22, 20-Apr-83 15:44:17 by PAETZOLD
; UPD ID= 273, SNARK:<6.EXEC>EXECCA.MAC.21, 20-Apr-83 15:34:10 by PAETZOLD
;TCO 6.1619 - Add H19 support
; UPD ID= 238, SNARK:<6.EXEC>EXECCA.MAC.20, 15-Jan-83 19:24:12 by CHALL
;TCO 6.1465 MAKE TOP-LEVEL "NAME" COMMAND INVISIBLE; ADD "SET NAME"
;TCO 6.1464 - UPDATE COPYRIGHT NOTICE
; UPD ID= 210, SNARK:<6.EXEC>EXECCA.MAC.19, 21-Dec-82 09:48:00 by TSANG
;TCO 6.1418 MAKE THE ABBREVIATION FOR FILE-STATUS, "F", WORK.
; UPD ID= 203, SNARK:<6.EXEC>EXECCA.MAC.18, 3-Dec-82 15:40:58 by CHALL
;TCO 6.1399 ADD CTBLX- NOT-LOGGED-IN KEYWORD TABLE (SEPARATED FROM CTBL1)
;REMOVE LOGIN FROM CTBL1. ADD CM1XL, NOT-LOGGED-IN COMND FUNCTION BLOCK
;TCO 6.1398 ADD SET TERMINAL COMMAND (SAME AS JUST TERMINAL)
;TCO 6.1397 $TERMI- SEPARATE TERMINAL KEYWORDS INTO 2 TABLES: TYPES & FEATURES
; UPD ID= 176, SNARK:<6.EXEC>EXECCA.MAC.17, 8-Oct-82 18:11:09 by CHALL
;TCO 6.1305 ADD PERUSE COMMAND (.EDITP, IN EXECED)
; UPD ID= 171, SNARK:<6.EXEC>EXECCA.MAC.16, 30-Sep-82 20:18:42 by CHALL
;TCO 6.1286 ADD NON-ENABLED SEND COMMAND (.USEND, IN EXEC1)
; UPD ID= 156, SNARK:<6.EXEC>EXECCA.MAC.15, 31-Aug-82 10:21:14 by LEACHE
;TCO 6.1242 Use correct escape sequence for VK100 screen clear
; UPD ID= 124, SNARK:<6.EXEC>EXECCA.MAC.14, 24-Apr-82 12:25:18 by CHALL
;TCO 6.1101 Move terminal-knowing tables here from EXEC0, EXEC1, EXECIN
; UPD ID= 115, SNARK:<6.EXEC>EXECCA.MAC.13, 20-Apr-82 07:53:33 by CHALL
;TCO 6.1092 Add MIC-dependent code, so MICSW (MIC, NOMIC) appears only here.
; UPD ID= 89, SNARK:<6.EXEC>EXECCA.MAC.12, 8-Jan-82 15:48:05 by CHALL
;TCO 6.1052 - UPDATE COPYRIGHT NOTICE AND DELETE PRE-V4.1 EDIT HISTORY
; UPD ID= 73, SNARK:<6.EXEC>EXECCA.MAC.11, 22-Oct-81 14:46:28 by CHALL
;TCO 5.1583 MOVE $DEF-, KEYWORDS FOR "INFO DEFAULTS", HERE
; PUT "I DEF PROGRAM" UNDER MFRK
; UPD ID= 67, SNARK:<6.EXEC>EXECCA.MAC.10, 10-Oct-81 20:13:37 by CHALL
;TCO 5.1564 ADD "PRESERVE (PCL ENVIRONMENT)"; DELETE SAVE/ENV AND SAVE/EXEC
; UPD ID= 46, SNARK:<6.EXEC>EXECCA.MAC.8, 31-Aug-81 11:56:59 by CHALL
;TCO 5.1480 $CONFD- ADD LABEL $CONF1 BEFORE COMMA AND CR OPTIONS
; UPD ID= 36, SNARK:<6.EXEC>EXECCA.MAC.5, 19-Aug-81 10:54:09 by CHALL
;TCO 5.1463 THERE'S NO "SET DEF PROGRAM" & "SET NO DEF PROGRAM" IF NO M'FORKING
;TCO 5.1464 CREATE $FRKNM: LIST OF OPTIONS TO THE FORK COMMAND
;TCO 5.1465 MOVE ALL MFRK-DEPENDENT RESET CODE FROM EXECP TO HERE
; UPD ID= 32, SNARK:<6.EXEC>EXECCA.MAC.4, 17-Aug-81 13:25:16 by CHALL
;TCO 5.1454 CHANGE NAME FROM XDEF TO EXECDE
; UPD ID= 1, SNARK:<6.EXEC>EXECCA.MAC.7, 13-Jul-81 17:58:01 by MURPHY
; TCO 5.1410 - BETTER HANDLING OF MACH SIZE EXCEEDED AND OVER QUOTA CONDITIONS
;SNARK:<6.EXEC>EXECCA.MAC.6 28-Jun-81 16:01:19, Edit by BILKIS
; Restore CD (Unix synonym for Connect)
;<HELLIWELL.EXEC.5>EXECCA.MAC.1, 13-May-81 14:49:49, EDIT BY HELLIWELL
;REMOVE CLEAR, LABEL, MAKE, AND TECO COMMANDS
; UPD ID= 1696, SNARK:<6.EXEC>EXECCA.MAC.3, 12-Mar-81 16:22:52 by LYONS
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;
;COPYRIGHT (C) 1980,1981,1982,1983 BY DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.
SEARCH EXECDE
TTITLE EXECCA ;CODE SUBJECT TO ASSEMBLY CONDITIONALS
;ASSEMBLY SWITCH FOR MIC FEATURES
IFNDEF MICSW,<MICSW==:0>
DEFINE MIC<IFN MICSW>
DEFINE NOMIC<IFE MICSW>
;ASSEMBLY SWITCH FOR PCL FEATURES
IFNDEF PCLSW,<PCLSW==:0>
DEFINE PCLF,<IFN PCLSW>
DEFINE NOPCLF,<IFE PCLSW>
;READ ONLY STORAGE AREA
;EXTERNS FOR CELLS REFERENCED IN THIS AREA ONLY
; SPECIAL CHARACTER ROUTINES:
;COMMAND TABLES
;FORM:
; LABEL: NUMBER OF ENTRIES
; XWD [VALUE],[ASCIZ @TEXT@] FOR EACH ENTRY, ALPH ORDER
; VALUE IS GENERALLY XWD BITS,ADDRESS
; SEE "DEFINITIONS" FILE FOR BIT SYMBOLS AND MACRO DEFINITIONS
;MACROS USED TO GENERATE TABLES (DEFINED IN "DEFINITIONS" FILE)
;
; T TEXT[,BITS[,ADDRESS]] ;HERE []'S MEAN OPTIONAL
; SETS UP ENTRY. DEFAULTS ADDRESS TO ".TEXT", OR IF
; THAT IS UNDEFINED, TO "NOT IMPLEMENTED" ERROR ROUTINE
;
; X TEXT
; CREATES A SPECIAL FAKE ENTRY, TO MAKE AN OTHERWISE
; UNIQUE SUBSET AMBIGUOUS (EVEN THE EXACT TEXT GIVEN TO X
; MACRO WILL BE TREATED AS AMBIGUOUS). USED WHERE ACTUAL
; AMBIGUITY IS WITH AN ENTRY IN ANOTHER TABLE SEARCHED
; LATER.
;
; TABLE RESERVES WD FOR # ENTRIES AT TOP OF TABLE
;
; TEND FILLS IN # OF ENTRIES SINCE LAST "TABLE" MACRO
; IN LOCATION RESERVED BY THAT "TABLE" MACRO
;COMMANDS NOT PREFIXED BY ^E.
;CCL COMMANDS ALL DISPATCH TO DOCCL, QUEUE COMMANDS DISPATCH
;TO QCM
;TOP-LEVEL COMMAND TABLE, WHEN NOT LOGGED IN
CTBLX: TABLE
T ATTACH,NOLG ;ATTACH (TO JOB) <JOBNO>
IFN STANSW,<
T BLANK,NOLG ;CLEAR SCREEN
>;IFN STANSW
T BREAK,NOLG ;BREAK (LINKS)
T DAYTIME,ONEWRD+NOLG ;DAYTIME
IFN STANSW,<
TA F,..FING ;F FOR FINGER
T FINGER,NOLG ;FINGER
TA H ;H FOR HELP
T HELP,NOLG ;HELP COMMAND
IFN LOTSW!CSLISW,<
T HELPME,NOLG,.HELPM ;RUNS HELPME
>;IFN LOTSW!CSLISW
>;IFN STANSW
IFN NICSW,< ;[NIC1000]
T HOST,NOLG ;[NIC1000] HOST COMMAND
>;IFN NICSW
T INFORMATION,NOLG ;INFORMATION COMMANDS
IFN STANSW,<
IFE NICSW,< ;[NIC1032]
TA K ;K FOR KJOB
>;IFE NICSW
IT KILLJOB,NOLG,.LOGOUT ;ANOTHER LOGOUT ALIAS
IT KJOB,NOLG,.LOGOUT ;ALIAS FOR LOGOUT
IT KK,NOLG,.KK ;JUST LOGOUT, NO EXPUNGE, ETC.
>;IFN STANSW
TA LOG ;FUDGE TO RECOGOGNIZE "LOG" AS "LOGIN"
.LOG: T LOGIN,NOLG ;LOGIN <USER> <PASSWD> <ACCT>
T LOGOUT,NOLG ;LOGOUT
IFN NICSW,< ;[NIC1000]
T N,,.NIC,CM%NOR ;[NIC1070] Don't allow "@N" for "@NIC"
T NIC,NOLG+ONEWRD ;[NIC1000] NIC COMMAND FOR NIC-QUERY
>;IFN NICSW
IFN LOTSW,<
TA OP
TA OPE,.OP
.OP: T OPEN,NOLG ;OPEN -- CREATE A NEW ACCOUNT (LOTS)
>;IFN LOTSW
IFN NICSW,< ;[NIC1000]
T QUERY,NOLG+ONEWRD ;[NIC1000] QUERY COMMAND
T REGISTER,NOLG ;[NIC1000] NOT-LOGGED-IN REGISTER
T SAFETY,NOLG+ONEWRD ;[NIC1052] SAFETY COMMAND
>;IFN NICSW
IFN STANSW,<
T SEND,NOLG,SNDCMD ;SEND TERMINAL MESSAGE
>;IFN STANSW
T SET,NOLG ;SET COMMAND
T SYSTAT,NOLG,.SISTA ;SYSTEM STATUS PRINTOUT
IFN NICSW,< ;[NIC1000]
T TACNEWS,NOLG+ONEWRD ;[NIC1000] TACNEWS COMMAND
>;IFN NICSW
T TERMINAL,NOLG ;TERMINAL TYPE IS N
IFN STANSW,<
IT TO,NOLG,SNDCMD ;ANOTHER FORM OF TERMINAL MESSAGE
>;IFN STANSW
T UNATTACH,NOLG ;DETACH REMOTE JOB
IFN STANSW,<
IFN LOTSW!CSLISW,<
T WHOCONSULT,NOLG,.WHO ;RUNS WHOCONSULT.
>;IFN LOTSW!CSLISW
IFN NICSW,< ;[NIC1000]
T WHOIS,NOLG ;[NIC1000] WHOIS COMMAND
>;IFN NICSW
IFN LOTSW,<
T WIZARDS,NOLG,.WIZ ;RUNS WIZARDS
>;IFN LOTSW
>;IFN STANSW
TEND
;TOP-LEVEL COMMAND TABLE WHEN LOGGED IN
CTBL1:: TABLE
T ACCESS ;ACCESS (TO DIRECTORY) <NAME>
T ADVISE ;ADVISE USER/TTY
T APPEND ;APPEND <FILE> (TO) <FILE>
IFE STANSW,<
T ARCHIVE ;ARCHIVE (FILES), KEYWORD
>;IFE STANSW
IFN STANSW,<
IFE LOTSW,<
T ARCHIVE ;ARCHIVE (FILES), KEYWORD
>;IFE LOTSW
>;IFN STANSW
T ASSIGN ;ASSIGN <DEVICE> (AS) <NAME>
T ATTACH,NOLG ;ATTACH (TO JOB) <JOBNO>
;[NIC1003] MIC,<
;[NIC1003] TA BACK ;BACK MEANS BACKSPACE
;[NIC1003] >
IFN NICSW,< ;[NIC1003]
T BACK ;[NIC1003] BACK TO PREVIOUS DIRECTORY
>
T BACKSPACE ;BACKSPACE
MIC,<
IT BACKTO ;BACKTO (LABEL)
>
T BLANK,NOLG ;CLEAR SCREEN
T BREAK,NOLG ;BREAK (LINKS)
T BUILD,,.CREAT ;BUILD OR MODIFY DIRECTORY
IFN STANSW,<
IT BYE,NOLG,.BREAK ;ALIAS FOR BREAK
>;IFN STANSW
TA C,.CON ;C IS CONTINUE
IFN STANSW,<
IFN NICSW,< ;[NIC1034]
T CALCULATE, ;[NIC1034]
>;IFN NICSW
TA CAN,..CANC ;CAN IS ABBREV FOR CANCEL, NOT CANON
..CANC:
>;IFN STANSW
T CANCEL ;KILL QUEUE REQUEST
IFE STANSW,< ;[NIC1004] DISABLE CANON
IFE LOTSW,<
T CANON,,.CANON ;SEND FILES TO CANON LASERPRINTER
>;IFE LOTSW
>;IFE STANSW
XTND,<
T CD,,.CONNECT ;SYNONYM FOR CONNECT
>
T CLOSE ;CLOSE (JFN) <JFN NUMBER>
IFN STANSW,<
TA CO,.CON ;CO FOR CONTINUE
>;IFN STANSW
T COMPILE ;COMPILE (FROM
TA CON ;"CON" MEANS CONTINUE
..CD:: T CONNECT ;[NIC1055]CONNECT (TO DIRECTORY) <NAME>
.CON: T CONTINUE ;CONTINUE
T COPY ;COPY (FROM) <FILE> (TO) <FILE>
T CREATE,,.EDITC ;CREATE (FILE) <FILE>
T CREF ;CREF (FILE)
T CSAVE,EASB ;SAVE ... (ON) <FILE>.
TA D ;"D" IS DEPOSIT
T DAYTIME,ONEWRD+NOLG ;DAYTIME
T DDT,EASB ;START DDT
T DEASSIGN ;DEASSIGN (DEVICE)
T DEBUG ;DEBUG (FROM)
PCLF,<
T DECLARE ;PCL Declare PCL object
>
T DEFINE ;DEFINE (LOGICAL NAME)--(AS)--
T DELETE ;DELETE <FILE>
.D: T DEPOSIT ;DEPOSIT INTO MEMORY LOCATION
T DETACH ;DETACH JOB
IFN STANSW,<
TA DI ;"DI" IS SHORT FOR "DIRECTORY"
.DI:
>;IFN STANSW
T DIRECTORY ;DIRECTORY.
TA DIS ;ABBREV FOR DISABLE
.DIS: T DISABLE ;DISABLE PRIV CMNDS
T DISCARD ;DISCARD TAPE INFORMATION
T DISMOUNT ;DISMOUNT TAPE OR STRUCTURE
MIC,<
T DO ;DO (FILE)
>
TA E ;"E" SAME AS "EXAMINE"
IFN STANSW,<
T ECHO,NOLG ;ECHO TYPE IN RIGHT BACK
>;IFN STANSW
T EDIT ;EDIT (FILE) <FILE> (OUTPUT AS) <FILE>
T ENABLE ;ENABLE PRIV CMDS
T END-ACCESS,,.ENDAC ;END-ACCESS (TO DIRECTORY) <NAME>
T EOF ;END OF FILE
TA ER ;ABBREV FOR ERUN
MIC,<
IT ERROR
>
.ER: T ERUN ;ERUN (EPHERMERAL)
TA EX ;SPECIAL ABBREV FOR EXECUTE
.E: T EXAMINE ;EXAMINE MEMORY CONTENTS
.EX: T EXECUTE ;EXECUTE (FROM)
T EXPUNGE ;EXPUNGE (DELETED FILES)
IFN STANSW,<
TA F,..FING ;F FOR FINGER
>;IFN STANSW
T FDIRECTORY ;DIR, CRAM, EVERYTHING, NO HEADING
IFN STANSW,<
..FING: T FINGER,NOLG ;FINGER
>;IFN STANSW
T FORK ;FORK <N>. AFFECTS /, \, ETC.
T FREEZE ;FREEZE (FORK)
T GET ;GET <FILE>
MIC,<
IT GOTO ;GOTO (LABEL)
>
IFN STANSW,<
TA H ;H FOR HELP
.H:
>;IFN STANSW
IFE STANSW,<
T HELP ;HELP COMMAND
>;IFE STANSW
IFN STANSW,<
T HELP,NOLG ;HELP COMMAND
IFN LOTSW!CSLISW,<
T HELPME,NOLG,.HELPM ;RUNS HELPME
>;IFN LOTSW!CSLISW
>;IFN STANSW
IFN NICSW,< ;[NIC1000]
T HOST,NOLG ;[NIC1000] HOST COMMAND
TA I ;[NIC1002] ABBREVIATION FOR INFORMATION
T IDDT ;[NIC1002] IDDT COMMAND
>;IFN NICSW
; MIC,<
; TA I ;I IS ABBREV FOR INFO
; IT IF,,.MICIF
; >
.I: T INFORMATION,NOLG ;INFORMATION COMMANDS
IFE NICSW,< ;[NIC1032]
IFN STANSW,<
TA K ;K FOR KJOB
>;IFN STANSW
>;IFE NICSW
T KEEP ;KEEP (FORK)
IFN STANSW,<
IT KILLJOB,NOLG,.LOGOUT ;ANOTHER LOGOUT ALIAS
.K: T KJOB,NOLG,.LOGOUT ;ALIAS FOR LOGOUT
IT KK,NOLG,.KK ;JUST LOGOUT, NO EXPUNGE, ETC.
>;IFN STANSW
MIC,<
T KMIC ;KILL MIC PROCESS
>
IFN NICSW,< ;[NIC1004]
T LASER,,.CANON ;[NIC1052] LASER COMMAND
>;IFN NICSW
T LOAD ;LOAD (FROM)
IFN STANSW,<
TA LOGO ;LOGO FOR LOGOUT
IT LOGOFF,NOLG,.LOGOUT ;YET ANOTHER SYNONYM
.LOGO:
>;IFN STANSW
T LOGOUT,NOLG ;LOGOUT
IFN STANSW,<
T MAIL ;SEND MESSAGE
T MAP,EASB
>;IFN STANSW
T MERGE,EASB ;MERGE <FILE>
T MODIFY ;MODIFY QUEUE REQUESTS
T MOUNT ;MOUNT TAPE OR STRUCTURE
IT NAME ;NAME (OF CURRENT FORK)
IFN NICSW,< ;[NIC1000]
T NIC,NOLG+ONEWRD ;[NIC1000] FOR NIC-QUERY
T NO ;[NIC1002] NO IDDT
>;IFN NICSW
MIC,<
IT NOERROR
IT NOOPERATOR
>;MIC
MIC,<
IT OPERATOR
>
PCLF,<
T ORIGINAL ;PCL Original Exec command
>
IFE STANSW,<
T PERUSE,,.EDITP ;PERUSE (FILE) <FILE>
>;IFE STANSW
IFE STANSW,<
T PLOT ;PUT FILES INTO PLOTTER QUEUE
>;IFE STANSW
T POP ;POP EXEC LEVEL
IFN STANSW,<
IFE SCORSW!CSLISW,<
TA PR ;PR IS AN ABBREV FOR PRINT
>;IFE SCORSW!CSLISW
>;IFN STANSW
PCLF,<
T PRESERVE ;PCL Preserve PCL enviroment
>
IFE STANSW,<
T PRINT ;PRINT
T PUNCH ;PUNCH CARDS/PAPER-TAPE
>;IFE STANSW
IFN STANSW,<
IFE SCORSW!CSLISW,<
.PR: T PRINT ;PRINT
>;IFE SCORSW!CSLISW
>;IFN STANSW
T PUSH ;PUSH EXEC LEVEL
XTND,<
T QDIRECTORY,,.QD ;QFD - DELETED FILES ONLY
>
T R ;= RUN SYS:
XTND,<
T RDIRECTORY ;DIR, READ, SIZE, CHRON BY READ
>
T RECEIVE ;RECEIVE (LINKS/ADVICE)
T REENTER ;REENTER
T REFUSE ;REFUSE (LINKS/ADVICE)
T REMARK ;ENTER REMARK MODE
T RENAME ;RENAME (...) -- (TO BE) --
T RESET ;RESET (FORK) NAME
T RETRIEVE ;RETRIEVE <FILES>
T REWIND ;REWIND
T RUN ;RUN <FILE>. STARTS ENV FILE.
IFN STANSW,<
TA S ;S FOR START
>;IFN STANSW
T SAVE,EASB ;SHARABLE SAVE
IFN STANSW,<
T SEND,NOLG,SNDCMD ;SEND TERMINAL MESSAGE
>;IFN STANSW
IFE STANSW,<
T SEND,,.USEND ;LET THEM USE THEIR OWN SEND
>;IFE STANSW
T SET,NOLG ;SET COMMAND
T SKIP ;SKIP
IFN STANSW,<
.S: ;SUPPORT FOR S ABBREVIATION
>;IFN STANSW
T START ;START PROGRAM
T SUBMIT ;SUBMIT
T SYSTAT,NOLG,.SISTA ;SYSTEM STATUS PRINTOUT
IFN NICSW,< ;[NIC1000]
T TACNEWS,NOLG+ONEWRD ;[NIC1000] TACNEWS COMMAND
>;IFN NICSW
T TAKE ;TAKE (EXEC INPUT FROM) FILESPEC
T TALK ;TALK (TO)
T TDIRECTORY ;DIR, TIME W, CHRON W, REV
T TERMINAL,NOLG ;TERMINAL TYPE IS N
IFN STANSW,<
IT TO,NOLG,SNDCMD ;ANOTHER FORM OF TERMINAL MESSAGE
>;IFN STANSW
T TRANSLATE ;TRANSLATE BETWEEN DIRS AND PPNS
T TYPE ;LIST FILE TO TTY
T UNATTACH,NOLG ;DETACH REMOTE JOB
TA UND ;UND IS ABBREVIATION FOR UNDELETE
PCLF,<
T UNDECLARE ;PCL Undefine PCL object
>
.UND: T UNDELETE ;UNDELETE <FILE>
T UNKEEP ;UNKEEP (FORK)
T UNLOAD ;UNLOAD
IFN STANSW,<
T UNMAP ;UNMAP CORE PAGES
>;IFN STANSW
T VDIRECTORY ;DIR, PROT, SIZ, LEN, TIM W, USER W
XTND,<
T WDIRECTORY ;DIR, SIZE, USER W, USER CRE, CHRON BY WRITE
>
IFN STANSW,<
IFN LOTSW!CSLISW,<
T WHOCONSULT,NOLG,.WHO ;RUNS WHOCONSULT.
>;IFN LOTSW!CSLISW
IFN NICSW,< ;[NIC1000]
T WHOIS,NOLG ;[NIC1000] WHOIS COMMAND
>;IFN NICSW
IFN LOTSW,<
T WIZARDS,NOLG,.WIZ ;RUNS WIZARDS
>;IFN LOTSW
>;IFN STANSW
TEND
STAT,<IFG .-CTBL1-1000,<PRINTX COMMAND TABLE TO LARGE FOR STATISTICS>>
;PRIVILEGED COMMANDS PREFIXED WITH ^E
;ONLY LEGAL FOR PRIV USERS WHO HAVE "ENABLE"D PRIV COMMANDS
CTBL2:: TABLE
T CEASE,,ECEASE ;SYSTEM SHUTDOWN
T CREATE ;CREAT/MODIFY DIRECTORY
T DEFINE,,EDEFIN ;CREATE LOGICAL NAME
T EDDT,ONEWRD+WHLU ;GO TO DDT LOOKING AT EXEC
IFN NICSW,< ;[NIC1001]
T INITIALIZE,,.INITI ;[NIC1001] SETUP GATEWAY & HOST TABLES
T PEEK ;[NIC1001] 1-WAY LINK WITH ANOTHER TTY
>;IFN NICSW
T PRINT,,EPRINT ;PRINT DIRECTORY INFORMATION
T QUIT,ONEWRD+WHLU ;QUIT: EXIT TO SUPERIOR EXEC
IFN STANSW,<
T REPLACE ;REPLACE EXEC WITH ANOTHER PROGRAM
>;IFN STANSW
T SEND ;SEND (MESSAGE) TO ALL
T SET,,ESET ;SET DATE AND TIME
T SPEAK ;SPEAK (TO SYSJOB)
TEND
;PSEUDO-INTERRUPT SYSTEM TABLES
;IN "SUBRS" ASSEMBLY:
;LEVEL TABLE: WHERE TO STORE PC'S FOR VARIOUS LEVELS
LEVTAB::LEV1PC
LEV2PC
LEV3PC
;CHANNEL TABLE
;INDEXED BY CHANNEL NUMBER. XWD LEVEL,ADDRESS FOR EACH.
DEFINE DEFCH (LEVEL,ROUTIN,CHANEL)<
IFN CHNS&1B<CHANEL>,<PRINTX ?CHANNEL TABLE OVERLAPS ITSELF>
CHNS==CHNS!1B<CHANEL>
RELOC CHNTAB+CHANEL
XWD LEVEL,ROUTIN
>
CHNS==:0
CHNTAB::
DEFCH 1,IITPSI,IITCHN ;AUTO MAIL-WATCH & ALERTS
DEFCH LV.IPC,IPCINT,IPCCHN ;IPCF INTERRUPT
DEFCH LV.IPC,CCPSI,1 ;1: ASSIGNED BY PROGRAM TO ^C
;^C INTERRUPT LEVEL MUST BE KEPT THE SAME AS
;IPCF INTERRUPT LEVEL TO PREVENT ^C OUT OF IPCF
;INTERRUPT, WHICH WOULD PREVENT FURTHER IPCF MESSAGES,
;SINCE THE MONITOR ONLY GENERATES INTERRUPT WHEN NUMBER
;OF MESSAGES GOES FROM 0 TO 1.
DEFCH 1,ALOPSI,2 ;2: ASSIGNED BY PROGRAM TO AUTO-LOGOUT
DEFCH 3,USEPSI,3 ;3: ASS BY PROG TO CHAR TO PRINT RUNTIME (^T)
DEFCH 2,TLMPSI,4 ;4: TIME LIMIT EXCEEDED TRAP
DEFCH 2,COBPSI,5 ;5: ASS BY PROG TO CLEAR OUTBUF ON ^O
DEFCH LV.TRP,TRPPSI,TRPCHN ;TRPCHN: JSYS OR UUO TRAP
DEFCH LV.POV,PDLOV,.ICPOV ;PUSHDOWN OVERFLOW
DEFCH LV.EOF,EOFPSI,.ICEOF ;END OF FILE
DEFCH LV.DAT,DATPSI,.ICDAE ;FILE DATA ERROR
DEFCH LV.QTA,QTAPSI,.ICQTA ;QUOTA EXCEEDED (OR DISK FULL)
DEFCH LV.ILI,ILIPSI,.ICILI ;I>>, MR>>, MW>>, MX>>
DEFCH 1,[TRAP (1,<Illegal memory READ>)],.ICIRD
DEFCH 1,[TRAP (1,<Illegal memory WRITE>)],.ICIWR
DEFCH 1,INFTRM,.ICIFT ;INFERIOR FORK TERMINATION
DEFCH 1,MSEPSI,.ICMSE ;MACHINE SIZE EXCEEDED
DEFCH LV.ESC,ESCPSI,ADVCHN ;ESCAPE CHARACTER FOR ADVISE
DEFCH LV.PCL,PCMPSI,PCLCHI ;PCL Input ready
DEFCH LV.PCL,PCMPSO,PCLCHO ;PCL Output ready
IFN NICSW,<
DEFCH LV.OVF,.CALOV,.ICAOV ;[NIC1034] ARITHMETIC OVERFLOW INTERUPT
DEFCH LV.OVF,.CALOV,.ICFOV ;[NIC1034] FLOATING OVERFLOW INTERRUPT
DEFCH 2,NICINT,NICCHN ;[NIC1000] NIC-QUERY LOGIN IDLE CHECK
>;IFN NICSW
IFN CTLLSW,<
DEFCH LV.CLR,ICLRSC,CLRCHN
>
RELOC CHNTAB+6*6 ;LEAVE ROOM FOR CHANNEL TABLE
;FIELD DESCRIPTOR BLOCKS FOR TOP LEVEL COMMANDS
;TOP-LEVEL COMMAND ARGUMENT BLOCK FOR WHEN ENABLED
CM1DBE::
IFE NICSW,< ;[NIC1017]
FLDDB. .CMKEY,,CTBL1,<Command,>,,[
FLDDB. .CMKEY,,KEPNMS,<kept fork name,>,,[
FLDDB. .CMTOK,,<-1,,[ASCIZ //]>,,,[
FLDDB. .CMFIL,CM%SDH,,<system program name>,,]]]
>;IFE NICSW
IFN NICSW,< ;[NIC1017] [NIC1035]
FLDDB. .CMKEY,,CTBL1,<Command,>,,[
FLDDB. .CMKEY,,KEPNMS,<kept fork name,>,,[
FLDDB. .CMTOK,,<-1,,[ASCIZ "/"]>,,,[
FLDDB. .CMTOK,,<-1,,[ASCIZ //]>,,,[
FLDDB. .CMFIL,CM%SDH,,<system program name>,,[
FLDDB. .CMDIR,CM%SDH,,<directory name>,]]]]]
>;IFN NICSW
;TOP-LEVEL COMMAND ARGUMENT BLOCK FOR WHEN NOT ENABLED
CM1DB::
IFE NICSW,< ;[NIC1017]
FLDDB. .CMKEY,,CTBL1,<Command,>,,[
FLDDB. .CMKEY,,KEPNMS,<kept fork name,>,,[
FLDDB. .CMFIL,CM%SDH,,<system program name>,,]]
>;IFE NICSW
IFN NICSW,< ;[NIC1017] [NIC1035]
FLDDB. .CMKEY,,CTBL1,<Command,>,,[
FLDDB. .CMKEY,,KEPNMS,<kept fork name,>,,[
FLDDB. .CMTOK,,<-1,,[ASCIZ "/"]>,,,[
FLDDB. .CMFIL,CM%SDH,,<system program name>,,[
FLDDB. .CMDIR,,,,,]]]]
>;IFN NICSW
;TOP-LEVEL COMMAND ARGUMENT BLOCK FOR WHEN NOT LOGGED IN
IFN STANSW,<
CM1XL:: FLDBK. .CMKEY,,CTBLX,<Command,>,,[BRMSK. (KEYB0.,KEYB1.,KEYB2.,KEYB3.,<.>)],[
FLDDB. .CMUSR]
>;IFN STANSW
IFE STANSW,<
CM1XL:: FLDDB. .CMKEY,,CTBLX,<Command,>
>;IFE STANSW
;"INFORMATION" FIELD DESCRIPTORS
$INFO:: TABLE
IFN STANSW,<
IFN LOTSW,<
TA A,.AL ;I A FOR I ALLOCATION
>;IFN LOTSW
>;IFN STANSW
T ADDRESS-BREAK,ONEWRD,.ADBRK
IFN STANSW,<
IFN LOTSW,<
TA AL ;I AL FOR I ALLOCATION
>;IFN LOTSW
>;IFN STANSW
T ALERTS,,.ALRST
IFN STANSW,<
IFN LOTSW,<
.AL: T ALLOCATION,NOLG,.ALLOC
>;IFN LOTSW
>;IFN STANSW
T ARCHIVE-STATUS,,.ARSTS
IFE NICSW,< ;[NIC1013] COMMENT OUT INFO ARPANET
T ARPANET,NOLG,.IARPA
>;IFE NICSW
T AVAILABLE,NOLG
IFE STANSW,<
T BATCH-REQUESTS,,.IBR
>;IFE STANSW
IFN STANSW,<
T BATCH-REQUESTS,NOLG,.IBR
>;IFN STANSW
; T CARD-READER-INPUT-SET,ONEWRD,CRDINF
T COMMAND-LEVEL,NOLG+ONEWRD,.EXECM
IFN STANSW,<
TA D,.INFOD ;D = DISK-USAGE
>;IFN STANSW
IFE NICSW,< ;[NIC1013] COMMENT OUT INFO DECNET
T DECNET,NOLG,.IDECN
>;IFE NICSW
T DEFAULTS,,.INDEF
IFN NICSW,<
T DEVICES,NOLG,.ASDEV ;[NIC1057]
>;IFN NICSW
T DIRECTORY,,.INDIR ;PRINT DIRECTORY PARAMETERS
IFN STANSW,<
.INFOD:
>;IFN STANSW
T DISK-USAGE,,.DSKST
IFN STANSW,<
T DOWNTIME,NOLG+ONEWRD,.SDOWN ;AH, BUT MINE IS BETTER!
T ERROR-NUMBER,NOLG,.ERSTR
>;IFN STANSW
IFE NICSW,< ;[NIC1013] COMMENT OUT INFO ETHERNET
IFN PUPSW,<
T ETHERNET,ONEWRD+NOLG,.IETH
>;IFN PUPSW
>;IFE NICSW
TA F ;ALIAS FOR FILE STATUS
.F: T FILE-STATUS,,.FILST
IFE STANSW,<
T FORK-STATUS,ONEWRD,.FRKST
>;IFE STANSW
IFN STANSW,<
T FORK-STATUS,,.FRKST
>;IFN STANSW
IFN NICSW,< ;[NIC1017]
T HISTORY,ONEWRD,.INHST ;[NIC1017] INFO HISTORY
>;IFN NICSW
IFN STANSW,<
IFN GSBSW,<
T IBM6640-REQUESTS,ONEWRD+NOLG,.IIBM6
>;IFN GSBSW
T INTERNET,NOLG,.IARPA
T JOB-STATUS,ONEWRD+NOLG,.JOBST
>;IFN STANSW
IFE STANSW,<
T JOB-STATUS,ONEWRD,.JOBST
>;IFE STANSW
T LOGICAL-NAMES,,.LNLIS
T MAIL,NOLG,.MALST
T MEMORY-USAGE,ONEWRD,.MEMST
IFE STANSW,<
T MONITOR-STATISTICS,ONEWRD,MONSTA
>;IFE STANSW
IFN STANSW,<
T MONITOR-STATISTICS,NOLG+ONEWRD,MONSTA
>;IFN STANSW
T MOUNT-REQUESTS,,.IMR
IFE NICSW,< ;[NIC1013] DON'T WANT INFO NETWORK
IFN PUPSW,<
IT NETWORK,ONEWRD+NOLG,.IETH ;OTHER SU SITES ARE ON ETHER NOT ARPA
>;IFN PUPSW
>;IFE NICSW
IFE STANSW,<
T OUTPUT-REQUESTS,,.IPR
>;IFE STANSW
IFN STANSW,<
T OUTPUT-REQUESTS,NOLG,.IPR
>;IFN STANSW
PCLF,<
T PCL-OBJECTS,ONEWRD,.PCLOB ;PCL
>
T PROGRAM-STATUS,ONEWRD,.RUNST
T PSI-STATUS,ONEWRD,.PISTA
IFN STANSW,<
IFN LOTSW!GSBSW,<
T QUEUE,ONEWRD+NOLG,.IQUEU
T RESERVATION,NOLG,.IRESE
>;IFN LOTSW!GSBSW
>;IFN STANSW
T RETRIEVAL-REQUESTS,,.IRR
T SPOOLED-OUTPUT-ACTION,ONEWRD,SPLINF
T STRUCTURE,,.STRST
T SUBSYSTEM-STATISTICS,ONEWRD,SUBSTA
T SYSTEM-STATUS,ONEWRD,SYSINF
T TAPE-PARAMETERS,ONEWRD,TAPINF
T TERMINAL-MODE,NOLG,TRMPNT
PCLF,<
T VARIABLE,,.PCLVR ;PCL
>
T VERSION,NOLG+ONEWRD
T VOLUMES,,IVOL
TEND
;"INFO DEFAULT" FIELD DESCRIPTORS
$DEF:: TABLE
T ALL,ONEWRD,.IDALL
IFE STANSW,<
T CARDS,ONEWRD,.IDC
>;IFE STANSW
IFE STANSW,< ;[NIC1004] DISABLE INFO CANON
T CANON,ONEWRD,.IDC
>;IFE STANSW
T COMPILE-SWITCHES,ONEWRD,.IDCS
IFN STANSW,<
PCLF,<
T DECLARE,ONEWRD,.IDDCL
>
>;IFN STANSW
IFN NICSW,< ;[NIC1004] ENABLE INFO LASER
T LASER,ONEWRD,.IDC ;[NIC1004] LASER COMMAND
>;IFN NICSW
T PAPER-TAPE,ONEWRD,.IDP
T PLOT,ONEWRD,.IDPL
T PRINT,ONEWRD,.IDPRT
T PROGRAM,,.IDPRG
T SUBMIT,ONEWRD,.IDS
T TAKE,ONEWRD,.IDTAK
TEND
IFN STANSW,<
;INFORMATION DEFAULT DECLARE
.IDDCL: HRROI A,[0] ;ASSUME NO NO
MOVX B,PCFQDC ;GET QUIET-DECLARATION BIT
TDNE B,PCFLAG ;IS IT SET?
HRROI A,[ASCIZ/NO/] ;YES, NO CONFIRMATION
ETYPE < SET DEFAULT DECLARE /%1MCONFIRM%_>
RET
>;IFN STANSW
;"FORK" FIELD DESCRIPTORS
$FRKNM::
FLDDB. .CMKEY,,FRKNMS,<Fork name,>,,[
FLDDB. .CMNUM,CM%SDH,10,<Octal fork number>,,[
FLDDB. .CMCFM,,,,,]]
;START OF THE RESET COMMAND. IT'S HERE BECAUSE RESET TAKES ARGUMENTS UNDER
;MULTIFORKING BUT NONE WITHOUT MULTIFORKING. THE PROMPTS AND ERROR MESSAGES
;FOR THE LATTER DON'T LOOK RIGHT WITHOUT THIS CONDITIONAL.
.RESST::NOISE <FORK>
MOVEI B,[FLDDB. .CMKEY,,FRKNMS,<Fork name,>,,[
FLDDB. .CMNUM,CM%SDH,10,<Octal fork number>,,[
FLDDB. .CMTOK,CM%SDH,<-1,,[ASCIZ "*"]>,<* for all forks>,,[
FLDDB. .CMTOK,CM%SDH,<-1,,[ASCIZ "."]>,<. for current fork>,,[
FLDDB. .CMCFM,CM%SDH,,<CR for all unkept forks>,,]]]]]
HRRZ A,FRKNMS ;GET NUMBER OF FORK NAMES
SKIPN A ;NONE?
HRRZ B,.CMFNP(B) ;YUP, SKIP FORKS, START WITH #
CALL FLDSKP ;PARSE ARG
CMERRX <Fork name, number, * or CR required>
LDB D,[POINT 9,.CMFNP(C),8] ;GET ARG TYPE
CAIN D,.CMCFM ;JUST CR?
JRST RESET0 ;YES - GO HANDLE
CAIE D,.CMTOK ;* := ALL FORKS?
JRST .RESE2 ;NO - FIND OUT WHICH ONE
LDB A,[POINT 7,ATMBUF,6] ;YES - LOOK AT TOKEN PARSED
CONFIRM ;CONFIRM FIRST
JRST .RESS1
;"SET" FIELD DESCRIPTORS
$SET0:: TABLE
T ACCOUNT,,.CHANG ;SET ACCOUNT
T ADDRESS-BREAK,,.ADDRE ;SET ADDRESS-BREAK
T ALERT ;SET ALERT
T AUTOMATIC ;SET AUTOMATIC (MAIL-WATCH AND ALERTS)
T CARD-READER-INPUT-SET,,CRDSET ;SET CARD-READER-INPUT-SET (TO)
PCLF,<
T COMMAND-TRACE,,.CTRAC ;PCL Performed command trace
>
T CONTROL-C-CAPABILITY,,.CTRLC ;SET ^C ALLOWED
T DEFAULT,,.SEDEF ;SET DEFAULT (FOR)
T DIRECTORY,,.SDIR ;SET DIRECTORY
T ENTRY-VECTOR,,.ENTRY ;SET PROGRAM ENTRY-VECTOR
T FILE,,.SFILE ;SET FILE
IFN NICSW,< ;[NIC1017]
T HISTORY,,.SEHST ;[NIC1017] SET HISTORY
>;IFN NICSW
PCLF,<
T INTEGER-VARIABLE,,SINVAR ;PCL
>
XTND,<
T KEEP-FORK,,.KFRKC ;SET KEEP-FORK (ON <CTRL-C>)
>
T LATE-CLEAR-TYPEAHEAD,NOLG,.CIDLY ;SET (DELAYED CLEAR)
IFN STANSW,<
T LEVEL-INDICATION,ONEWRD,.SLEVL ;SET LEVEL-INDICATION
>;IFN STANSW
T LOCATION ;SET LOGICAL LOCATION TO NODE NAME
T MAIL-WATCH,,.MWATC ;SET MAIL-WATCH (FOR USER) USRNAM (COUNT) N
IFN STANSW,<
TA N,.SNO ;ABBREVIATION FOR NO
>;IFN STANSW
T NAME ;SET NAME (OF CURRENT FORK)
IFN STANSW,<
T NEW-FORK,,.NWFRK ;SET NEW-FORK (ON RESET)
.SNO:
>;IFN STANSW
T NO,NOLG,.SETNO ;SET NO
T PAGE-ACCESS,,.PAC ;SET PAGE-ACCESS
IFN NICSW,< ;[NIC1027]
TA PRO,.PROG ;[NIC1027]
.PROG: ;[NIC1027]
>;IFN NICSW
T PROGRAM,,PROG ;SET PROGRAM
IFN STANSW,<
T PROMPTS ;SET PROMPTS
>;IFN STANSW
T RETRIEVAL-WAIT,,.OFL ;SET RETRIEVAL-WAIT (FOR OFFLINE FILES)
T SESSION-REMARK,,SETSRM ;SET SESSION REMARK
T SPOOLED-OUTPUT,,SPLSET ;SET SPOOLED-OUTPUT (TO)
PCLF,<
T STRING-VARIABLE,,SSTVAR ;PCL
>
T TAPE ;SET TAPE
IFE NICSW,< ;[NIC1044]
T TERMINAL,NOLG ;SET TERMINAL (SAME AS TERMINAL...)
>;IFE NICSW
IFN NICSW,< ;[NIC1044]
T TERMINAL,NOLG,ETERMI ;[NIC1044]
>;IFN NICSW
T TIME-LIMIT,NOLG,.STMLM ;TIME (TO) NUMBER
T TRAP ;SET TRAP
T TYPEOUT
T UUO-SIMULATION,,.PAXL ;SET UUOS ALLOWED
TEND
;"SET NO" FIELD DESCRIPTORS
$SETN:: TABLE
T ADDRESS-BREAK,,.ADDRE ;SET NO ADDRESS BREAK
T ALERT ;SET NO ALERT
T AUTOMATIC ;SET NO AUTOMATIC (MAIL-WATCH AND ALERTS)
PCLF,<
T COMMAND-TRACE,,.CTRAC ;PCL No Performed command trace
>
T CONTROL-C-CAPABILITY,,.CTRLC ;NO ^C ALLOWED
T DEFAULT,,.NODEF ;SET NO DEFAULT
IFN NICSW,< ;[NIC1017]
T HISTORY,,.SEHST ;[NIC1017] SET NO HISTORY
>;IFN NICSW
XTND,<
T KEEP-FORK,,.KFRKC ;SET NO KEEP-FORK (ON <CTRL-C>)
>
T LATE-CLEAR-TYPEAHEAD,NOLG,.CIDLY ;EARLY CLEAR
IFN STANSW,<
T LEVEL-INDICATION,ONEWRD,.SLEVL ;SET NO LEVEL-INDICATION
>;IFN STANSW
XTND,<
T LOGIN-MAIL,ONEWRD,.NOLM ;SET NO LOGIN-MAIL
>
T MAIL-WATCH,,.MWATC ;SET NO MAIL-WATCH (FOR USER) USRNAM
IFN STANSW,<
T NEW-FORK,,.NWFRK ;SET NO NEW-FORK (ON RESET)
>;IFN STANSW
T RETRIEVAL-WAIT,,.OFL ;SET NO RETRIEVAL-WAIT (FOR OFFLINE FILES)
T TIME-LIMIT,NOLG,.NOTIM ;CLEAR TIME LIMIT
T TRAP,,NTRAP ;SET NO TRAP
T UUO-SIMULATION,,.PAXL ;NO UUOS ALLOWED
TEND
;"SET DEFAULT" FIELD DESCRIPTORS
TDEFAU::TABLE
IFE STANSW,<
T CARDS,,.SDC
>;IFE STANSW
IFE STANSW,< ;[NIC1004] USE LASER INSTEAD
T CANON,,.SDC
>;IFE STANSW
T COMPILE-SWITCHES,,.SDCS
PCLF,<
T DECLARE,,.SDDCL ;PCL
>
IFN NICSW,< ;[NIC1004]
T LASER,,.SDC ;[NIC1004] LASER COMMAND
>;IFN NICSW
T PAPER-TAPE,,.SDT
T PLOT,,.SDPL ;SET DEFAULTS (FOR) PLOT
T PRINT,,.SDP
T PROGRAM,,SDPROG ;SET DEFAULT (FOR) PROGRAM
T SUBMIT,,.SDS ;SET DEFAULT (FOR) SUBMIT
T TAKE,,.TKD ;SET DEFAULT (FOR) TAKE
TEND
;"SET NO DEFAULT" FIELD DESCRIPTORS
$NODEF::TABLE
IFE STANSW,<
T CARDS,,.SNDCP
>;IFE STANSW
IFE STANSW,< ;[NIC1004] USE LASER INSTEAD
T CANON,,.SNDCP
>;IFE STANSW
T COMPILE-SWITCHES,,.SNDCS ;SET NO DEFAULT COMPILE-SWITCHES
IFN NICSW,< ;[NIC1004]
T LASER,,.SNDCP ;[NIC1004]
>;IFN NICSW
T PAPER-TAPE,,.SNDTP
T PLOT,,.SNDPL ;SET NO DEFAULTS (FOR) PLOT
T PRINT,,.SNDP
T PROGRAM,ONEWRD,SNDPRG ;SET NO DEFAULT (FOR) PROGRAM
T SUBMIT,,.SNDS ;SET NO DEFAULT (FOR) SUBMIT
TEND
;"SET FILE" FIELD DESCRIPTORS
$SFILE::TABLE
T ACCOUNT, ;SET FILE ACCOUNT (OF FILE) - (TO) -
IFN NICSW,< ;[NIC1033]
T AUTOKEEP,,.AUTOK ;[NIC1033] SET FILE AUTOKEEP
>;IFN NICSW
T EPHEMERAL,,.EPHM ;SET FILE EPHEMERAL
XARC <
T EXPIRED,,.FEXP ;SET FILE EXPIRED
>
T GENERATION-RETENTION-COUNT,,.FILEV ;SET FILE VERSION-RETENTION-COUNT
T INVISIBLE, ;SET FILE INVISIBLE <FILEGROUP>
T NO,,.SFNO ;SET FILE NO
XARC <
T OFFLINE-EXPIRATION,,.FLINX ;SET FILE OFFLINE-EXPIRATION
T ONLINE-EXPIRATION,,.FLONX ;SET FILE ONLINE-EXPIRATION
>
IFN STANSW,<
T PERMANENT,,.PRMNT ;SET FILE PERMANENT
TA PRO ; SET FI PRO for PROTECTION!
>;IFN STANSW
T PROHIBIT,WHLU,.FPROH ;SET FILE PROHIBIT (MIGRATION OF FILES)
IFN STANSW,<
.PRO:
>;IFN STANSW
T PROTECTION, ;SET FILE PROTECTION (OF FILE) - (TO) -
XARC <
T RESIST,,.FRESI ;SET FILE RESIST (MIGRATION OF FILES)
>
IFN STANSW,<
T SAVE-BY-BACKUP-SYSTEM,,.SVBAK ;SET FILE SAVE-BY-BACKUP-SYSTEM
T TEMPORARY,,.TMPRY ;SET FILE TEMPORARY
>;IFN STANSW
T VISIBLE, ;SET FILE VISIBLE <FILEGROUP>
TEND
;"SET FILE NO" FIELD DESCRIPTORS
$SFNO:: TABLE
IFN NICSW,< ;[NIC1033]
T AUTOKEEP,,.AUTOK ;[NIC1033] PUT BACK NO AUTOKEEP
>;IFN NICSW
T EPHEMERAL,,.EPHM
IFN STANSW,<
T PERMANENT,,.PRMNT ;SET FILE PERMANENT
>;IFN STANSW
T PROHIBIT,WHLU,.FPROH
XARC <
T RESIST,,.FRESI
>
IFN STANSW,<
T SAVE-BY-BACKUP-SYSTEM,,.SVBAK ;SET FILE SAVE-BY-BACKUP-SYSTEM
T TEMPORARY,,.TMPRY ;SET FILE TEMPORARY
>;IFN STANSW
TEND
;SUBROUTINE CALLED BY USEPS0 IN EXECSU, TO GIVE SPECIAL OUTPUT IF MIC EXISTS
;IF MICSW IS OFF, JUST RETURNS
USEPSM::
MIC,<
CALL GETPAG ;DOES MIC EXIST?
RET ;NO
TYPE < (DO in progress)>
>
RET
;HERE ARE ALL THE TABLES WHICH NEED TO KNOW ABOUT TERMINAL TYPES
;NEW TERMINALS NEED TO HAVE ENTRIES ADDED TO THESE TABLES, PLUS
;THE ROUTINE NAMED IN $TERMI ADDED IN EXEC0
;NOTE: TO DEFINE "TERMINAL FOO" AND "TERMINAL TYPE FOO" FOR A NEW
; TERMINAL (WHICH HAS ALREADY BEEN DEFINED IN THE MONITOR),
; ADD THE TYPE TO THE FOLLOWING TWO TABLES, AND ADD A ROUTINE
; SIMILAR TO THE FOLLOWING EITHER HERE OR IN EXEC0:
;
;.VT102::PUSH P,[.TT102] ;SAVE THE MONTIOR'S TERMINAL INDEX
; JRST .TTY3 ;JUMP INTO THE COMMON CODE
;
;ALSO ADD ENTRIES IN THE TERMINAL NAME TABLE AND THE BLANK-SCREEN
; TABLE, BELOW
;TABLE OF KEYWORDS FOR "TERMINAL" AND "SET TERMINAL"
;THE TABLES $TERMI AND $TTYP ARE CHAINED TOGETHER
;REFERENCED IN EXEC0
$TERMI::TABLE
IFN STANSW,<
T BACKSPACE-DELETE,,.BACKRB
>;IFN STANSW
T FLAG
T FORMFEED
T FULLDUPLEX
T HALFDUPLEX
T HELP,,TTYHLP
T IMMEDIATE
T INDICATE
T INHIBIT
T LENGTH,,PLENTH
T LINE-HALFDUPLEX,,.LINE
T LOWERCASE
T NO,,.TERNO
T PAGE
T PAUSE
T RAISE
T RECEIVE
T SPEED,
T TABS
T TYPE,,.TTYPE
T WIDTH,,.LWIDTH
TEND
;TABLE OF KEYWORDS WHICH FOLLOW "TERMINAL NO"
$TERNO::TABLE
IFN STANSW,<
T BACKSPACE-DELETE,,.BACKRB
>;IFN STANSW
T FLAG
T FORMFEED
T IMMEDIATE
T INDICATE
T INHIBIT
T LOWERCASE
T PAGE
T PAUSE
T RAISE
T RECEIVE
T TABS
TEND
;TABLE OF KEYWORDS WHICH FOLLOW "@TERMINAL TYPE " (ALPHABETICAL)
;REFERENCED IN EXEC0
$TTYP:: TABLE
T 33,,.T33
T 35,,.T35
T 37,,.T37
IFN STANSW,<
T 43,,.T43
T ADM-3,,.ADM3
T ALTO,,.ALTO
T AMBASSADOR,,.AMBAS
T ANN-ARBOR,,.ANNAR
T ANSI,,.ANSI
T AVT,,.AVT
T CONCEPT-100,,.CONCE
T DATAMEDIA-1520,,.DATM2
T DATAMEDIA-2500,,.DATAM
T DM1520,,.DATM2
T DM2500,,.DATAM
T ESPRIT,,.ESPRT
>;IFN STANSW
T EXECUPORT,,.TI
IFN STANSW,<
T FR100,,.FREED
T FR200,,.FREE2
T FREEDOM-100,,.FREED
T FREEDOM-200,,.FREE2
T GILLOTINE,,.GILLO
>;IFN STANSW
T H19,,.VTH19
IFN STANSW,<
T HAZELTINE-1500,,.HAZEL
T HEATH-19,,.VTH19
T HP2645A,,.HP2
T IBM-3101,,.IBM
>;IFN STANSW
T LA120
T LA30,,.LA30
T LA36,,.LA36
T LA38
IFN NICSW,< ;[NIC1012]
T LINEPROCESSOR,,.LINEP ;[NIC1012]
>;IFN NICSW
IFN STANSW,<
T NVT,,.NVT
IFN STANSW,<
IFN CSLISW,<
T QUME,,.TELEV
T QVT102,,.TELEV
>;IFN CSLISW
>;IFN STANSW
T SOROC-120,,.SOROC
T SUN,,.SUN
>;IFN STANSW
T SYSTEM-DEFAULT,,.DFLT
IFN STANSW,<
T TEK4023,,.TEKT3
T TEK4025,,.TEKTR
T TEKTRONIX-4023,,.TEKT3
T TEKTRONIX-4025,,.TEKTR
T TELEMEDIA,,.DATAM ;SAME AS DM2500
T TELERAY-1061,,.TELER
T TELEVIDEO-912,,.TELEV
>;IFN STANSW
T TERMINET,,.TRMNT
T TI,,.TI
T VK100
T VT05
T VT100
T VT102
T VT125
T VT50
T VT52
IFN STANSW,<
T ZENITH-19,,.VTH19
>;IFN STANSW
TEND
;TABLE OF TERMINAL NAMES, OUTPUT BY "@INFO TERMINAL"
;NOTE: THIS TABLE AND BLNKTB (BELOW) MUST HAVE THE SAME NUMBER OF ENTRIES
;REFERENCED IN EXECIN
TTYPTB::TYPE < TERMINAL 33> ;0
TYPE < TERMINAL 35> ;1 (MOD 33)
TYPE < TERMINAL 37> ;2 (MOD 35)
TYPE < TERMINAL TI> ;3 (MOD 37)
IFE STANSW,<
REPEAT 4,<XCT TTYNTY > ;4-7 (RESERVED FOR CUSTOMER)
TYPE < TERMINAL SYSTEM-DEFAULT> ;8
XCT TTYNTY ;9 (IDEAL TERMINAL)
>;IFE STANSW
IFN STANSW,<
TYPE < TERMINAL ADM-3> ;4
TYPE < TERMINAL DATAMEDIA-2500> ;5
TYPE < TERMINAL HP2645A> ;6
TYPE < TERMINAL HAZELTINE-1500> ;7
TYPE < TERMINAL TERMINET> ;8
TYPE < TERMINAL NVT> ;9
>;IFN STANSW
TYPE < TERMINAL VT05> ;10
TYPE < TERMINAL VT50> ;11
TYPE < TERMINAL LA30> ;12
IFE NICSW,< ;[NIC1012]
XCT TTYNTY ;13 (NOT SUPPORTED - GT40)
>;IFE NICSW
IFN NICSW,< ;[NIC1012]
TYPE < TERMINAL LINEPROCESSOR> ;13 [NIC1012]
>;IFN NICSW
TYPE < TERMINAL LA36> ;14
TYPE < TERMINAL VT52> ;15
TYPE < TERMINAL VT100> ;16
TYPE < TERMINAL LA38> ;17
TYPE < TERMINAL LA120> ;18
IFE STANSW,<
REPEAT 20,<XCT TTYNTY > ;19-34 (RESERVED FOR CUSTOMER)
>;IFE STANSW
IFN STANSW,<
TYPE < TERMINAL 43> ;19
TYPE < TERMINAL SOROC-120> ;20
TYPE < TERMINAL GILLOTINE> ;21
TYPE < TERMINAL TELERAY-1061> ;22
TYPE < TERMINAL TEKTRONIX-4025> ;23
TYPE < TERMINAL ANN-ARBOR> ;24
TYPE < TERMINAL ZENITH> ;25
TYPE < TERMINAL CONCEPT-100> ;26
TYPE < TERMINAL IBM-3101> ;27
TYPE < TERMINAL TELEVIDEO-912> ;28
TYPE < TERMINAL TEKTRONIX-4023> ;29
TYPE < TERMINAL DATAMEDIA-1520> ;30
TYPE < TERMINAL AMBASSADOR> ;31
TYPE < TERMINAL ESPRIT> ;32
TYPE < TERMINAL FREEDOM-100> ;33
TYPE < TERMINAL FREEDOM-200> ;34
>;IFN STANSW
TYPE < TERMINAL VT125> ;35
TYPE < TERMINAL VK100> ;36
TYPE < TERMINAL VT102> ;37
TYPE < TERMINAL H19> ;38
IFN STANSW,<
TYPE < TERMINAL VT131> ;39
TYPE < TERMINAL VT200> ;40
TYPE < TERMINAL ANSI> ;41
TYPE < TERMINAL AVT> ;42
>;IFN STANSW
TTYNTY: ETYPE < TERMINAL TYPE %2Q>
NTTYPS::.-TTYPTB-1 ;NUMBER OF DEFINED TERMINAL TYPES
;TABLE OF SEQUENCES TO BLANK THE SCREEN. USED BY THE @BLANK COMMAND
;NOTE: THIS TABLE AND TTYPTB (ABOVE) MUST HAVE THE SAME NUMBER OF ENTRIES
;REFERENCED IN EXEC1
IFN STANSW,<
DEFINE STDASC <BYTE (7) .CHESC,"H",.CHESC,"J",0>
>;IFN STANSW
BLNKTB::0 ;(0) TTY 33
0 ;(1) TTY 35
0 ;(2) TTY 37
0 ;(3) TI / EXECUPORT
IFE STANSW,<
REPEAT 4,<0> ;(4-7) RESERVED FOR CUSTOMER
>;IFE STANSW
IFN STANSW,<
BYTE (7).CHCNZ,0 ;(4) ADM-3
BYTE (7).CHCRB,.CHCCF,0 ;(5) DATAMEDIA-2500
STDASC ;(6) HP264X
BYTE (7)"~",.CHCBS,0 ;(7) HAZELTINE-1500
>;IFN STANSW
0 ;(8) SYSTEM DEFAULT
0 ;(9) IDEAL (NO FILL)
[BYTE (7)35,177,177,177,177,177,177,37,0] ;(10) VT05
BYTE (7)33,"H",33,"J",0 ;(11) VT50
0 ;(12) LA30
BYTE (7)35,37 ;(13) GT40 - NO FILL REQUIRED
0 ;(14) LA36
BYTE (7)33,"H",33,"J",0 ;(15) VT52
[BYTE (7)33,"[","H",33,"[","J",0] ;(16) VT100
0 ;(17) LA38
0 ;(18) LA120
IFE STANSW,<
REPEAT 20,<0> ;(19-34) (RESERVED FOR CUSTOMER)
>;IFE STANSW
IFN STANSW,<
0 ; (19) TTY43
BYTE (7) .CHESC,"+",0 ; (20) SOROC 120
BYTE (7) .CHCNE,.CHCNY,0 ;(21) GILLOTINE
STDASC ; (22) TELERAY 1061
[BYTE (7) "`","E","R","A",";",0] ; (23) TEK 4025
BYTE (7) .CHFFD,0 ; (24) ANN ARBOR
STDASC ; (25) HEATH 19
BYTE (7) .CHFFD,0 ; (26) CONCEPT 100
BYTE (7) .CHESC,"K",0 ; (27) IBM 3101
BYTE (7) .CHESC,"*",0 ; (28) TELEVIDEO 912
0 ; (29) TEKTRONIX 4023
BYTE (7) .CHCNY,.CHVTB,0 ; (30) DATAMEDIA 1520
[BYTE (7) .CHESC,"[","H",.CHESC,"[","J",0] ; (31) AMBASSADOR
BYTE (7) .CHESC,.CHCBS,0 ; (32) HAZELTINE-ESPRIT
BYTE (7) .CHCCF,.CHESC,"Y",0 ; (33) FREEDOM-100
BYTE (7) .CHCCF,.CHESC,"Y",0 ; (34) FREEDOM-200
>;IFN STANSW
[BYTE (7)33,"[","H",33,"[","J",0] ;(35) VT125
[BYTE (7)33,"P","p","s","(","e",")",33,"\"] ;(36) VK100
[BYTE (7)33,"[","H",33,"[","J",0] ;(37) VT102
[BYTE (7)33,"[","H",33,"[","J",0] ;(38) H19
IFN STANSW,<
[BYTE (7)33,"[","H",33,"[","J",0] ;(39) VT131
[BYTE (7)33,"[","H",33,"[","J",0] ;(40) VT200
[BYTE (7)33,"[","H",33,"[","J",0] ;(41) ANSI
[BYTE (7)33,"[","H",33,"[","J",0] ;(42) AVT
>;IFN STANSW
;DUMMY ENTRIES WHEN PCL NOT PRESENT
NOPCLF,<
PCMXCT::
PCMPSI::
$SDEF::
PCMPSO::
PCMSVP::
PCMSVE::
PCMPOS::
PCMPOP::
PCIGEV::
IFN STANSW,<
NPCLIO:: RETSKP ;CM156 JFN is never a PCL I/O JFN
.IDDCL:: RET ;CM156 No defaults for "Declare"
>;IFN STANSW
>
END