mirror of
https://github.com/PDP-10/its.git
synced 2026-01-20 17:58:40 +00:00
142 lines
5.1 KiB
Plaintext
142 lines
5.1 KiB
Plaintext
'<PCODE "4SDML">
|
|
<RPACKAGE "SDML">
|
|
|
|
<ENTRY SDMBITM1 SDMBITM2 SDMBITM3 SDMBPAGE SDMBFDSP SDMBDSP SDMBDIR SDBICS
|
|
SDBWPT SDBNWI SDBDLI SDBUPI SDBIMV SDBSTG SDBEVL SDBIGN SDMACT SDMOPN SDMDCT
|
|
SDMGDA SDMDIR SDMLST SDMGDL SDMGET SDMAGET SDMGETYPE SDMGETARC SDMGETCHAN SDMSRC
|
|
SDMDSRC SDMSCN>
|
|
|
|
<USE "PMAP" "VCTMAN" "CPYFIL">
|
|
|
|
<SETG SDMBITM1 <IUVECTOR 21>>
|
|
|
|
<SETG SDMBITM2 <IUVECTOR 21>>
|
|
|
|
<SETG SDMBITM3 <IUVECTOR 21>>
|
|
|
|
<SETG SDMBFDSP <IUVECTOR 128>>
|
|
|
|
<SETG SDMBDSP <REST ,SDMBFDSP 2>>
|
|
|
|
<SETG SDMBDIR <IUVECTOR 100>>
|
|
|
|
<SETG SDMBPAGE <IUVECTOR 128>>
|
|
|
|
<SETG SCR1 ![0!]>
|
|
|
|
<SETG SDMACT %<RSUBR!- '[ %<PCODE!- "4SDML" 0> SDMACT #DECL ("VALUE" <OR PMCHAN
|
|
FALSE> STRING "OPTIONAL" FIX FIX) POPEN PREAD PWRITE PCLOSE "PRINT" "READ" %<
|
|
RGLOC SCR1 T> #FALSE ("NOT AN SDM FILE") SDM-ERROR
|
|
INCONSISTENT-DATA-BASE!-ERRORS COULDNT-WRITE-INTO!-ERRORS]>>
|
|
<AND <ASSIGNED? GLUE> .GLUE <PUT ,SDMACT PGLUE ![717225728!]>>
|
|
|
|
<AND <ASSIGNED? GLUE> .GLUE <PUT ,SDMACT GLUE '![340802591 9437232 6728974400
|
|
-16909789248 4364225728 0!]>>
|
|
|
|
<SETG SDMDCT %<RSUBR-ENTRY '[SDMACT SDMDCT #DECL ("VALUE" PMCHAN PMCHAN)] 77>>
|
|
|
|
<SETG SDMOPN %<RSUBR-ENTRY '[SDMACT SDMOPN #DECL ("VALUE" <OR PMCHAN FALSE>
|
|
STRING "OPTIONAL" FIX)] 70>>
|
|
|
|
<SETG UV-OF-2-FIXES ![0 0!]>
|
|
|
|
<SETG VEC-OF-4-FIXES [0 0 0 0]>
|
|
|
|
<SETG SDMSRC %<RSUBR!- '[ %<PCODE!- "4SDML" 102> SDMSRC #DECL ("VALUE" <VECTOR
|
|
FIX UVECTOR FIX FIX UVECTOR> PMCHAN ANY FIX) PREAD VCTBNS SDMSRC %<RGLOC
|
|
UV-OF-2-FIXES T> SDMBITM1 %<RGLOC VEC-OF-4-FIXES T> #FALSE ("ITEM NOT FOUND")
|
|
SDMBDIR SDMBITM2 SDMBITM3 SDM-ERROR INCONSISTENT-DATA-BASE!-ERRORS
|
|
COULDNT-READ-FROM!-ERRORS UNVERIFIED.ITEM!-ERRORS]>>
|
|
<AND <ASSIGNED? GLUE> .GLUE <PUT ,SDMSRC PGLUE ![721420284 0!]>>
|
|
|
|
<AND <ASSIGNED? GLUE> .GLUE <PUT ,SDMSRC GLUE '![7533039680 201475092 1073746304
|
|
17179934721 1074790660 16 17448304912 12884901888 4096 1025 1073741888 8699904
|
|
265216 3288350768 4294967441 50331648 -29721886720 340784 858783744 0!]>>
|
|
|
|
<SETG SDMDSRC %<RSUBR-ENTRY '[SDMSRC SDMDSRC #DECL ("VALUE" <OR VECTOR FALSE>
|
|
PMCHAN ANY "OPTIONAL" FIX)] 193>>
|
|
|
|
<SETG SDMSCN %<RSUBR-ENTRY '[SDMSRC SDMSCN #DECL ("VALUE" <VECTOR UVECTOR FIX>
|
|
STRING)] 109>>
|
|
|
|
<SETG SDMGET %<RSUBR!- '[ %<PCODE!- "4SDML" 452> SDMGET #DECL ("VALUE" ANY
|
|
PMCHAN ANY "OPTIONAL" FIX) PREAD COPY-FILE SDMGET CHAN-MAX SDMSRC #FALSE (
|
|
"UNIMPLEMENTED DATA TYPE") ["UNIMPLEMENTED" "IMAGE" "UNIMPLEMENTED"
|
|
"UNIMPLEMENTED" "UNPARSED" "ASSOCIATION" "EVALUATE" "VIRTUAL-ARCHIVE" "ARCHIVE"
|
|
"INVERSION" "WEIGHTED-INVERSION" "GC-DUMP"] "PRINTB" SDMBPAGE "DONE" #FALSE (
|
|
"ITEM HAS NO DATA") #FALSE ("NOT A VIRTUAL ITEM") "READB" <> #FALSE (
|
|
"ITEM NOT FOUND") SDM-ERROR INCONSISTENT-DATA-BASE!-ERRORS
|
|
ASSOCIATION-SPEC-NOT-A-VECTOR!-ERRORS SDMBITM2 SDMBITM3
|
|
COULDNT-READ-FROM!-ERRORS UNVERIFIED.ITEM!-ERRORS]>>
|
|
<AND <ASSIGNED? GLUE> .GLUE <PUT ,SDMGET PGLUE ![716177407 -4194304!]>>
|
|
|
|
<AND <ASSIGNED? GLUE> .GLUE <PUT ,SDMGET GLUE '![22566491477 22552514560
|
|
1079296021 21564030991 269221889 148480 68172884 599785812 -4009688831
|
|
5708447744 8607760724 5368972293 22817275904 1140851973 16 16106127424 34172
|
|
251658241 3840 0 2214916112 268435456 152043520 285212672 16106127360 209664
|
|
3221225508 21944598528 21810176 -13757317120!]>>
|
|
|
|
<SETG SDMGETARC %<RSUBR-ENTRY '[SDMGET SDMGETARC #DECL ("VALUE" <OR STRING FALSE
|
|
> PMCHAN ANY STRING)] 57>>
|
|
|
|
<SETG SDMGETCHAN %<RSUBR-ENTRY '[SDMGET SDMGETCHAN #DECL ("VALUE" <OR CHANNEL
|
|
FALSE> PMCHAN ANY)] 50>>
|
|
|
|
<SETG SDMGETYPE %<RSUBR-ENTRY '[SDMGET SDMGETYPE #DECL ("VALUE" STRING PMCHAN
|
|
ANY "OPTIONAL" FIX)] 44>>
|
|
|
|
<SETG SDMAGET %<RSUBR-ENTRY '[SDMGET SDMAGET #DECL ("VALUE" ANY PMCHAN <PRIMTYPE
|
|
WORD> "OPTIONAL" FIX)] 28>>
|
|
|
|
<SETG SDMGDA %<RSUBR!- '[ %<PCODE!- "4SDML" 998> SDMGDA #DECL ("VALUE" UVECTOR
|
|
PMCHAN) PREAD "DONE" SDMBDSP SDMBDIR SDMBITM2 SDMBITM3 SDM-ERROR
|
|
INCONSISTENT-DATA-BASE!-ERRORS COULDNT-READ-FROM!-ERRORS UNVERIFIED.ITEM!-ERRORS
|
|
]>>
|
|
<AND <ASSIGNED? GLUE> .GLUE <PUT ,SDMGDA PGLUE ![805305344!]>>
|
|
|
|
<AND <ASSIGNED? GLUE> .GLUE <PUT ,SDMGDA GLUE '![17180923137 1427112000
|
|
22548578640 21743551575 -17179782911 67129344 4316267540 22551725636 12845120
|
|
12901679104 -29796139008 152334336 1280 0 209664 13740606720!]>>
|
|
|
|
<SETG SDMGDL %<RSUBR-ENTRY '[SDMGDA SDMGDL #DECL ("VALUE" FIX PMCHAN)] 89>>
|
|
|
|
<SETG SDMLST %<RSUBR-ENTRY '[SDMGDA SDMLST #DECL ("VALUE" STRING PMCHAN)] 61>>
|
|
|
|
<SETG SDMDIR %<RSUBR-ENTRY '[SDMGDA SDMDIR #DECL ("VALUE" <VECTOR STRING> PMCHAN
|
|
)] 25>>
|
|
|
|
<SETG SDBICS 1>
|
|
|
|
<SETG SDBWPT 8>
|
|
|
|
<SETG SDBNWI 16>
|
|
|
|
<SETG SDBDLI 32>
|
|
|
|
<SETG SDBUPI 64>
|
|
|
|
<SETG SDBIMV 4096>
|
|
|
|
<SETG SDBSTG 8192>
|
|
|
|
<SETG SDBEVL 16384>
|
|
|
|
<SETG SDBIGN 32768>
|
|
|
|
<SETG CHAN-MAX-TEMPLATE '![-262141 0 23882366976 17314086912 27515158561
|
|
17188257792 24016584704 24150802432!]>
|
|
|
|
<SETG CHAN-MAX %<RSUBR!- '[ %<PCODE!- "4SDML" 1295> CHAN-MAX #DECL ("VALUE"
|
|
CHANNEL CHANNEL FIX) ADR %<RGLOC CHAN-MAX-TEMPLATE T> MAX]>>
|
|
<AND <ASSIGNED? GLUE> .GLUE <PUT ,CHAN-MAX PGLUE ![0!]>>
|
|
|
|
<AND <ASSIGNED? GLUE> .GLUE <PUT ,CHAN-MAX GLUE ![67305472 -34355477440
|
|
1090584592 16452 272646144 269549628 16842752 0 524294!]>>
|
|
|
|
<SETG ADR %<RSUBR!- '[ %<PCODE!- "4SDML" 1433> ADR]>>
|
|
<AND <ASSIGNED? GLUE> .GLUE <PUT ,ADR PGLUE ![0!]>>
|
|
|
|
<AND <ASSIGNED? GLUE> .GLUE <PUT ,ADR GLUE '![0!]>>
|
|
|
|
<ENDPACKAGE>
|