mirror of
https://github.com/PDP-10/its.git
synced 2026-01-11 23:53:12 +00:00
54 lines
2.2 KiB
Plaintext
54 lines
2.2 KiB
Plaintext
'<PCODE "1CALDES">
|
|
<PACKAGE "CALDES">
|
|
|
|
<ENTRY PDESC CALDESC TABMAP MASTER-DESC-FILE MASTER-DESC-CHAN>
|
|
|
|
<USE "CALCOM" "CALSYM" "LEX" "PMAP" "SDML">
|
|
|
|
<SETG ARRSTR " => ">
|
|
|
|
<SETG MASTER-DESC-FILE <COND (,TENEX "<MUDDLE>[DESC].MASTER") (
|
|
"CALSUB;DESC MASTER")>>
|
|
|
|
<SETG MASTER-DESC-CHAN <>>
|
|
|
|
<SETG GETABFIL %<RSUBR!- '[ %<PCODE!- "1CALDES" 0> GETABFIL #DECL ("VALUE" <OR
|
|
FALSE PMCHAN> STRING) LEX-LOOKUP PDESC SDMGETCHAN LEX-GET SDMDCT SDMGET SDMOPN
|
|
%<RGLOC MASTER-DESC-CHAN T> %<TYPE-C PMCHAN VECTOR> %<RGLOC MASTER-DESC-FILE T>
|
|
%<TYPE-W PMCHAN VECTOR> #FALSE () T %<TYPE-W SYMTABLE VECTOR> MSTOPS LSTOPS
|
|
GSTOPS BGSTOPS VAL TABFIL %<TYPE-C LEXTABLE VECTOR> %<TYPE-W LEXTABLE VECTOR> %<
|
|
TYPE-W LEXID WORD> %<RGLOC LEX-SCRATCH-STRING T> OUTCHAN COMMENT %<RGLOC
|
|
COMTABLE T> %<TYPE-W SYMBOL VECTOR> %<TYPE-C SYMTABLE VECTOR> " " " No info?"
|
|
(CHANNEL) %<RGLOC ARRSTR T> %<RGLOC GETSYM2VCT T>]>>
|
|
<AND <ASSIGNED? GLUE> .GLUE <PUT ,GETABFIL PGLUE ![715849727 -1 -17179869184!]>>
|
|
|
|
<SETG FLSTABFIL %<RSUBR-ENTRY '[GETABFIL FLSTABFIL #DECL ("VALUE" ATOM
|
|
"OPTIONAL" ANY)] 54>>
|
|
|
|
<SETG PDESC %<RSUBR-ENTRY '[GETABFIL PDESC #DECL ("VALUE" ATOM "TUPLE" <TUPLE [
|
|
REST SYMTABLE]>)] 102>>
|
|
|
|
<SETG TABMAP %<RSUBR-ENTRY '[GETABFIL TABMAP #DECL ("VALUE" ATOM VECTOR FIX
|
|
STRING)] 222>>
|
|
|
|
<SETG CALDESC %<RSUBR-ENTRY '[GETABFIL CALDESC #DECL ("VALUE" ATOM "TUPLE" <
|
|
TUPLE [REST SYMBOL]>)] 429>>
|
|
|
|
<SETG PRINTDAT %<RSUBR-ENTRY '[GETABFIL PRINTDAT #DECL ("VALUE" ANY ANY)] 610>>
|
|
|
|
<SETG GETSYMOFF %<RSUBR-ENTRY '[GETABFIL GETSYMOFF #DECL ("VALUE" <OR FALSE <
|
|
PRIMTYPE VECTOR>> STRING <PRIMTYPE VECTOR>)] 687>>
|
|
|
|
<AND <ASSIGNED? GLUE> .GLUE <PUT ,GETABFIL GLUE ![1078140352 -33889924088
|
|
4819387392 4379120709 -13951030153 13639876869 268505328 22838771968 3493876544
|
|
18259070224 1053700 17269456896 1044 17209700860 4787077313 475466944
|
|
-34069872640 8708161556 17247043925 17268195612 30065299904 201327888 4294967408
|
|
7784628228 5372903539 10670330624 -12598895153 1127219239 213909552 4366285825
|
|
4379906115 135287247 13496468823 0 17700208832 17842176 17448309824 33554497552
|
|
1048848 119476245 21475098624 4264023 13174330369 -16039018351 -17178820608 1025
|
|
268440000 262400 1048575 262148 69 262211 786662 262758 524981!]>>
|
|
|
|
<SETG GETSYM2VCT [0 0]>
|
|
|
|
<ENDPACKAGE>
|