mirror of
https://github.com/PDP-10/its.git
synced 2026-03-06 19:31:20 +00:00
24 lines
815 B
Plaintext
24 lines
815 B
Plaintext
'<PCODE "DEMCLS">
|
|
|
|
<PACKAGE "DEMCLS">
|
|
|
|
<ENTRY SIGNAL-DEMON SET-DEMON-STATUS CLEAR-DEMON-STATUS READ-DEMON-STATUS>
|
|
|
|
<USE "STR">
|
|
|
|
<SETG SIGNAL-DEMON %<RSUBR!- '[ %<PCODE!- "DEMCLS" 0> SIGNAL-DEMON #DECL (
|
|
"VALUE" <OR ATOM FALSE> STRING "OPTIONAL" FIX) STRTOX T "The file SYS;ATSIGN "
|
|
" does not exist"]>>
|
|
|
|
<SETG READ-DEMON-STATUS %<RSUBR!- '[ %<PCODE!- "DEMCLS" 43> READ-DEMON-STATUS #
|
|
DECL ("VALUE" <OR <VECTOR [4 FIX]> FALSE> <OR STRING FIX>) STRTOX #FALSE (
|
|
"Demon not in the system table")]>>
|
|
|
|
<SETG CLEAR-DEMON-STATUS %<RSUBR!- '[ %<PCODE!- "DEMCLS" 81> CLEAR-DEMON-STATUS
|
|
#DECL ("VALUE" <OR ATOM FALSE> <OR STRING FIX>) STRTOX T]>>
|
|
|
|
<SETG SET-DEMON-STATUS %<RSUBR!- '[ %<PCODE!- "DEMCLS" 108> SET-DEMON-STATUS #
|
|
DECL ("VALUE" <OR ATOM FALSE> <OR STRING FIX> FIX FIX FIX) STRTOX T]>>
|
|
|
|
<ENDPACKAGE>
|