mirror of
https://github.com/PDP-10/its.git
synced 2026-01-28 12:59:20 +00:00
111 lines
4.0 KiB
Plaintext
111 lines
4.0 KiB
Plaintext
'<PCODE "1SDM">
|
|
<RPACKAGE "SDM">
|
|
|
|
<EXTERNAL "SDML" "INV" "PMFREE" "VCTMAN" "CPYFIL">
|
|
|
|
<ENTRY SDMAPF>
|
|
|
|
<ENTRY SDMAPFV>
|
|
|
|
<ENTRY SDMAPFA>
|
|
|
|
<ENTRY SDMDLI>
|
|
|
|
<ENTRY SDMDLWINV>
|
|
|
|
<ENTRY SDMGBC>
|
|
|
|
<ENTRY SDMPUT>
|
|
|
|
<ENTRY SDMPUTGC>
|
|
|
|
<ENTRY SDMPUTINV>
|
|
|
|
<ENTRY SDMPUTGRP>
|
|
|
|
<ENTRY SDMPUTEVL>
|
|
|
|
<ENTRY SDMPUTARC>
|
|
|
|
<ENTRY SDMPUTVARC>
|
|
|
|
<ENTRY SDMSYL>
|
|
|
|
<ENTRY SDMSYN>
|
|
|
|
<SETG SDMBPAGE <IUVECTOR 1024>>
|
|
|
|
<SETG SDMAPF %<RSUBR!- '[ %<PCODE!- "1SDM" 0> SDMAPF #DECL ("VALUE" ANY ANY ANY
|
|
PMCHAN "TUPLE" ANY) SDMAGET PREAD T SDMBDSP SDMBDIR SDMBITM2 SDMBITM3 SDM-ERROR
|
|
INCONSISTENT-DATA-BASE!-ERRORS COULDNT-READ-FROM!-ERRORS UNVERIFIED.ITEM!-ERRORS
|
|
]>>
|
|
|
|
<SETG SDMAPFV %<RSUBR-ENTRY '[SDMAPF SDMAPFV #DECL ("VALUE" ANY ANY ANY PMCHAN
|
|
"TUPLE" ANY)] 2>>
|
|
|
|
<SETG SDMAPFA %<RSUBR-ENTRY '[SDMAPF SDMAPFA #DECL ("VALUE" ANY ANY ANY PMCHAN
|
|
"TUPLE" ANY)] 4>>
|
|
|
|
<SETG SDMDLI %<RSUBR!- '[ %<PCODE!- "1SDM" 240> SDMDLI #DECL ("VALUE" <OR
|
|
STRING FALSE> PMCHAN ANY "OPTIONAL" FIX) SDMSRC PMDALLOC PWRITE PREAD INVDEL ![0
|
|
0!] ![0!] "DONE" #FALSE ("ITEM NOT FOUND") #FALSE (
|
|
"DELETION OF ITEMS NOT ALLOWED") SDM-ERROR INCONSISTENT-DATA-BASE!-ERRORS
|
|
COULDNT-READ-FROM!-ERRORS COULDNT-WRITE-INTO!-ERRORS
|
|
BROKEN.SYNONYM.CHAIN!-ERRORS #FALSE ("WRITE PROTECTION SET")]>>
|
|
|
|
<SETG SDMDLWINV %<RSUBR!- '[ %<PCODE!- "1SDM" 463> SDMDLWINV #DECL ("VALUE" <OR
|
|
ATOM STRING FALSE> PMCHAN ANY <PRIMTYPE WORD>) SDMSRC PREAD VCTBNS PWRITE
|
|
PMDALLOC INVDLI ![#LOSE *000000000000* #LOSE *000000000000*!] SDMBPAGE T #FALSE
|
|
("OBJECT'S VALUE NOT AN INVERSION") #FALSE ("WORD NOT FOUND IN DATA BLOCK") #
|
|
FALSE ("OBJECT NOT FOUND") SDM-ERROR INCONSISTENT-DATA-BASE!-ERRORS
|
|
COULDNT-READ-FROM!-ERRORS COULDNT-WRITE-INTO!-ERRORS]>>
|
|
|
|
<SETG SDMGBC %<RSUBR!- '[ %<PCODE!- "1SDM" 644> SDMGBC #DECL ("VALUE" FIX
|
|
STRING STRING) SDMACT PMALLOC PWRITE SDMDCT INVGBC PREAD ![0 0 0!] SDMBPAGE
|
|
SDM-ERROR BAD-INVERSION!-ERRORS SDMBFDSP SDMBDIR SDMBITM2 SDMBITM3
|
|
INCONSISTENT-DATA-BASE!-ERRORS COULDNT-READ-FROM!-ERRORS
|
|
COULDNT-WRITE-INTO!-ERRORS UNVERIFIED.ITEM!-ERRORS BROKEN.SYNONYM.CHAIN!-ERRORS
|
|
]>>
|
|
|
|
<SETG SDMPUT %<RSUBR!- '[ %<PCODE!- "1SDM" 1226> SDMPUT #DECL ("VALUE" <OR FIX
|
|
FALSE STRING> PMCHAN ANY "OPTIONAL" ANY FIX) ![0 0!] SDMSRC PWRITE PREAD SDMDLI
|
|
PMALLOC PMDALLOC PCLOSE VCTBNS INVINS PBLT INVDEL ![0!] ![0 0!] ![0 0 0!]
|
|
"READB" SDMBPAGE ![1623294726!] #FALSE ("OBJECT ALREADY HAS NON-INVERSION VALUE"
|
|
) #FALSE ("INVERSION ALREADY CONTAINS WORD") #FALSE ("INVALID ARG") T #FALSE (
|
|
"UPDATING OF ITEMS NOT ALLOWED") SDM-ERROR INCONSISTENT-DATA-BASE!-ERRORS
|
|
COULDNT-READ-FROM!-ERRORS COULDNT-WRITE-INTO!-ERRORS UNVERIFIED.ITEM!-ERRORS
|
|
BROKEN.SYNONYM.CHAIN!-ERRORS #FALSE ("NEW ITEMS NOT ALLOWED") #FALSE (
|
|
"WRITE PROTECTION SET")]>>
|
|
|
|
<SETG SDMPUTGC %<RSUBR-ENTRY '[SDMPUT SDMPUTGC #DECL ("VALUE" <OR FIX FALSE>
|
|
PMCHAN ANY ANY "OPTIONAL" FIX)] 776>>
|
|
|
|
<SETG SDMPUTINV %<RSUBR-ENTRY '[SDMPUT SDMPUTINV #DECL ("VALUE" <OR FIX FALSE>
|
|
PMCHAN ANY <OR UVECTOR FIX> "OPTIONAL" FIX)] 766>>
|
|
|
|
<SETG SDMPUTGRP %<RSUBR-ENTRY '[SDMPUT SDMPUTGRP #DECL ("VALUE" <OR FIX FALSE>
|
|
PMCHAN ANY VECTOR "OPTIONAL" FIX)] 768>>
|
|
|
|
<SETG SDMPUTEVL %<RSUBR-ENTRY '[SDMPUT SDMPUTEVL #DECL ("VALUE" <OR FIX FALSE>
|
|
PMCHAN ANY ANY "OPTIONAL" FIX)] 770>>
|
|
|
|
<SETG SDMPUTARC %<RSUBR-ENTRY '[SDMPUT SDMPUTARC #DECL ("VALUE" <OR FIX FALSE>
|
|
PMCHAN ANY STRING "OPTIONAL" FIX)] 772>>
|
|
|
|
<SETG SDMPUTVARC %<RSUBR-ENTRY '[SDMPUT SDMPUTVARC #DECL ("VALUE" <OR FIX FALSE>
|
|
PMCHAN ANY STRING "OPTIONAL" FIX)] 774>>
|
|
|
|
<SETG SDMSYL %<RSUBR!- '[ %<PCODE!- "1SDM" 2075> SDMSYL #DECL ("VALUE" <OR LIST
|
|
FALSE> PMCHAN ANY "OPTIONAL" FIX) SDMSRC PREAD () #FALSE ("ITEM NOT FOUND")
|
|
SDMBITM2 SDMBITM3 SDM-ERROR INCONSISTENT-DATA-BASE!-ERRORS
|
|
COULDNT-READ-FROM!-ERRORS UNVERIFIED.ITEM!-ERRORS BROKEN.SYNONYM.CHAIN!-ERRORS]>
|
|
>
|
|
|
|
<SETG SDMSYN %<RSUBR!- '[ %<PCODE!- "1SDM" 2217> SDMSYN #DECL ("VALUE" <OR FIX
|
|
FALSE> PMCHAN ANY ANY "OPTIONAL" FIX) SDMPUT SDMSRC PWRITE SDMDLI ![!] ![0 0 0!]
|
|
#FALSE ("ITEM NOT FOUND") SDM-ERROR INCONSISTENT-DATA-BASE!-ERRORS
|
|
COULDNT-WRITE-INTO!-ERRORS #FALSE ("NEW ITEMS NOT ALLOWED") #FALSE (
|
|
"WRITE PROTECTION SET")]>>
|
|
|
|
<ENDPACKAGE>
|