mirror of
https://github.com/PDP-10/its.git
synced 2026-01-23 10:59:24 +00:00
130 lines
5.8 KiB
Plaintext
130 lines
5.8 KiB
Plaintext
'<PCODE "CALCOM">
|
||
<PACKAGE "CALCOM">
|
||
|
||
<USE "STR" "CALRDR" "CALSYM" "CALUTL" "LEX">
|
||
|
||
<ENTRY ACT-SUBSYSTEM SUBSYS-SYMTAB SUBSYS-EVAL FILEPRINT LISTF FILETPL XFILE
|
||
TABLEPRINT TABLETHERE COPY-FILE ADDTABLE ADDCOMMAND KILL-TABLE CALICO-QUIT
|
||
TTY-SCRIPT END-TTY-SCRIPT END-ALL-TTY-SCRIPT TTY-SILENCE-DEPTH TTY-SILENCE
|
||
TTY-UNSILENCE GLUETABLES FIXGLUETABLE FLUSHGLUETABLE GLUECOMTABLE COMTABLE
|
||
SYSTAT COMTITLES>
|
||
|
||
<SETG SUBSYS-EVAL %<RSUBR!- '[ %<PCODE!- "CALCOM" 0> SUBSYS-EVAL #DECL ("VALUE"
|
||
STRING <VECTOR STRING>) DIRST SIXTOS GETAB SYSGT QUIT LOGOUT MAKESST MAKEGST
|
||
MAKEMST LEX-FIX-MASTER-TBL LEX-FIX-STRING-TBL LEX-GET MAKELST LSTDELETE
|
||
LSTINSERT GETTABLES RLJFN GNJFN JFNS GTJFN FSP-PARSE OPENTELL XFPUSH READER
|
||
MAKEBGST USE-DATUM SUBSYS-SYMTAB "MUDCAL-SUBSYS-VECTOR" "Subsystems" %<RGLOC
|
||
SUBSYS-EVAL T> %<RGLOC SUBSYS-SYMTAB T> "named" [
|
||
"type the name of the subsystem to be activated" "ARC:CALSUB;ACTSUB HELPM"] [
|
||
"SYM"] T "READ" "PRINT" OUTCHAN %<RGLOC OUTCHAN T> " " %<RGLOC TENEX T>
|
||
CALICO-DEV ":<" CALICO-SNM ">" ".FILE." "*" "(DIR)" "*;*" JFN " " "TPL:" %<
|
||
TYPE-W SYMTABLE VECTOR> %<RGLOC GLUEABLE T> MSTOPS #FALSE () COMTABLE %<RGLOC
|
||
COMTABLE T> GLUECOMTABLE %<RGLOC GLUECOMTABLE T> %<TYPE-C SYMTABLE VECTOR>
|
||
"Glued Command Table" LSTOPS %<TYPE-W LEXID WORD> %<RGLOC LEX-SCRATCH-STRING T>
|
||
#FALSE ("Illegal symbol table type present") #FALSE ("No top level symbol table"
|
||
) LXTBL %<TYPE-W LEXTABLE VECTOR> %<RGLOC LXTBL T> %<RGLOC COMTITLES T>
|
||
"Current CALICO commands" "Command table titles" %<RSUBR!- '[ %<PCODE!-
|
||
"CALCOM" 2490> ANONF1!-TMP #DECL ("VALUE" ANY ANY)]> %<TYPE-C SYMBOL VECTOR>
|
||
PERSONALS %<RGLOC PERSONALS T> "Personal commands"
|
||
"No console script file open now." () TTY-OUTPUT-WORD TTY-SILENCE-DEPTH "SYSTAT"
|
||
"Load avg: " ", " "JOBTTY" "JOBDIR" "SNAMES" "JOBNAM" LEN
|
||
"JOB TTY SUBSYS LOG" ENT " " "DET" "?" " "]>>
|
||
<AND <ASSIGNED? GLUE> .GLUE <PUT ,SUBSYS-EVAL PGLUE ![713730730 -22906486785 -1
|
||
-1 -1 -262144 0!]>>
|
||
|
||
<SETG ACT-SUBSYSTEM %<RSUBR-ENTRY '[SUBSYS-EVAL ACT-SUBSYSTEM #DECL ("VALUE"
|
||
ATOM)] 16>>
|
||
|
||
<SETG COPY-FILE %<RSUBR-ENTRY '[SUBSYS-EVAL COPY-FILE #DECL ("VALUE" ATOM STRING
|
||
STRING)] 114>>
|
||
|
||
<SETG FILEPRINT %<RSUBR-ENTRY '[SUBSYS-EVAL FILEPRINT #DECL ("VALUE" ATOM STRING
|
||
"OPTIONAL" CHANNEL)] 160>>
|
||
|
||
<SETG LISTF %<RSUBR-ENTRY '[SUBSYS-EVAL LISTF #DECL ("VALUE" ATOM STRING)] 231>>
|
||
|
||
<SETG FILETPL %<RSUBR-ENTRY '[SUBSYS-EVAL FILETPL #DECL ("VALUE" ATOM STRING)]
|
||
542>>
|
||
|
||
<SETG XFILE %<RSUBR-ENTRY '[SUBSYS-EVAL XFILE #DECL ("VALUE" ATOM STRING)] 573>>
|
||
|
||
<SETG TABLEPRINT %<RSUBR-ENTRY '[SUBSYS-EVAL TABLEPRINT #DECL ("VALUE" ATOM
|
||
SYMTABLE)] 599>>
|
||
|
||
<SETG GLUEABLE '[SSTOPS BSTOPS]>
|
||
|
||
<SETG GETTABLES %<RSUBR-ENTRY '[SUBSYS-EVAL GETTABLES #DECL ("VALUE" <OR FALSE
|
||
VECTOR> SYMTABLE)] 658>>
|
||
|
||
<SETG GLUETABLES %<RSUBR-ENTRY '[SUBSYS-EVAL GLUETABLES #DECL ("VALUE" ANY
|
||
"OPTIONAL" SYMTABLE FIX)] 775>>
|
||
|
||
<SETG FIXGLUETABLE %<RSUBR-ENTRY '[SUBSYS-EVAL FIXGLUETABLE #DECL ("VALUE" ATOM)
|
||
] 1157>>
|
||
|
||
<SETG FLUSHGLUETABLE %<RSUBR-ENTRY '[SUBSYS-EVAL FLUSHGLUETABLE #DECL ("VALUE"
|
||
ANY)] 1199>>
|
||
|
||
<SETG ADDTABLE %<RSUBR-ENTRY '[SUBSYS-EVAL ADDTABLE #DECL ("VALUE" ATOM SYMTABLE
|
||
)] 1334>>
|
||
|
||
<SETG GLUECOMTABLE <>>
|
||
|
||
<SETG TABLETHERE %<RSUBR-ENTRY '[SUBSYS-EVAL TABLETHERE #DECL ("VALUE" <OR FALSE
|
||
SYMTABLE> STRING <VECTOR [REST SYMTABLE]>)] 1505>>
|
||
|
||
<SETG ADDCOMMAND %<RSUBR-ENTRY '[SUBSYS-EVAL ADDCOMMAND #DECL ("VALUE" ATOM
|
||
STRING ANY)] 1547>>
|
||
|
||
<SETG KILL-TABLE %<RSUBR-ENTRY '[SUBSYS-EVAL KILL-TABLE #DECL ("VALUE" ATOM
|
||
SYMTABLE)] 1674>>
|
||
|
||
<SETG CALICO-QUIT %<RSUBR-ENTRY '[SUBSYS-EVAL CALICO-QUIT #DECL ("VALUE" ATOM)]
|
||
1825>>
|
||
|
||
<SETG TTY-SCRIPT %<RSUBR-ENTRY '[SUBSYS-EVAL TTY-SCRIPT #DECL ("VALUE" ATOM
|
||
STRING)] 1863>>
|
||
|
||
<SETG END-TTY-SCRIPT %<RSUBR-ENTRY '[SUBSYS-EVAL END-TTY-SCRIPT #DECL ("VALUE"
|
||
ATOM)] 1910>>
|
||
|
||
<SETG END-ALL-TTY-SCRIPT %<RSUBR-ENTRY '[SUBSYS-EVAL END-ALL-TTY-SCRIPT #DECL (
|
||
"VALUE" ATOM)] 1953>>
|
||
|
||
<SET TTY-SILENCE-DEPTH 0>
|
||
|
||
<SETG TTY-SILENCE %<RSUBR-ENTRY '[SUBSYS-EVAL TTY-SILENCE #DECL ("VALUE" ATOM)]
|
||
2001>>
|
||
|
||
<SETG TTY-UNSILENCE %<RSUBR-ENTRY '[SUBSYS-EVAL TTY-UNSILENCE #DECL ("VALUE"
|
||
ATOM)] 2043>>
|
||
|
||
<SETG SYSTAT %<RSUBR-ENTRY '[SUBSYS-EVAL SYSTAT #DECL ("VALUE" ATOM)] 2084>>
|
||
|
||
<SETG PRINCJ %<RSUBR-ENTRY '[SUBSYS-EVAL PRINCJ #DECL ("VALUE" FIX FIX)] 2378>>
|
||
|
||
<AND <ASSIGNED? GLUE> .GLUE <PUT ,SUBSYS-EVAL GLUE ![1074004996 1125638215
|
||
-15300755445 297861112 4563681282 1158740800 16452 16140190212 53248 5385819472
|
||
12892242882 1886388272 30068178945 1360007175 -4294835952 7516486912 4580294660
|
||
33554726161 4327490624 19278139423 4467783 3222996305 470548881 -16310861412
|
||
12891981841 -17022836984 7537164288 1079268400 117453824 0 67387360 17196859393
|
||
284197131 17180939532 12885181232 805307456 13958650880 4316987392 268435456
|
||
4651746304 18104729856 8338403585 4214784 1094780228 21479378944 12889169777
|
||
-16370105259 4347164416 1410334978 1073877015 -16440671364 17269260304 262404
|
||
30920495173 353224477 -83880688 262156 -17163002864 13371392 553648148
|
||
5653921843 91242496 13692339207 -8727298048 17108081 -9663624181 754978829
|
||
4496294160 69907 3145728 285212684 270192 0 16384 67121424 12884996099
|
||
12884902912 12585984 196608 1087111172 50684 184797124 3221947187 7784628240
|
||
32768256 17399026688 268502848 3291480064 1114133 -17179820032 268435473
|
||
-13859028981 857538560 1097859120 4390913 71303216 12885164032 64 272629824
|
||
4195072 1086419968 1049868 22806528 24360521740 71049280 4263168 1096220672
|
||
17448304755 -13690141348 211984 268524800 268504156 3422620864 3489726476
|
||
30072123404 281870400 1145324512 19072484384 3224617224 806154306 201523983
|
||
-34058268168 4823519436 17230213900 -3489611760 -15720243149 6175912720
|
||
31078751475 33763330 2150632691 46924359 16309354496 68501532 -4264611836
|
||
1073741823 262148 18 524408 262322 524460 262379 262690 262721 262747 799 262935
|
||
525077 1159 1201 263482 525799 525841 263822 1827 264011 1912 1955 2003 2045
|
||
2086 264526!]>>
|
||
|
||
<ENDPACKAGE>
|