mirror of
https://github.com/PDP-10/its.git
synced 2026-01-11 23:53:12 +00:00
80 lines
2.3 KiB
Plaintext
80 lines
2.3 KiB
Plaintext
'<PCODE "2DIR">
|
|
|
|
<PACKAGE "DIR">
|
|
|
|
<ENTRY GET-DIRECTORY PARSE-DIRECTORY DESC-AREA NAME-AREA DESC-PTR PACK-NUMBER
|
|
LINK-BIT OPEN-WRITE GC-MARK-BIT DELETE-ON-CLOSE DELETE-FROM-UNMOUNTED-PACK
|
|
DELETED IGNORED DUMP-BIT EXTRA-WORDS CREATION-TIME CREATION-DATE REF-DATE MONTH
|
|
DAY YEAR DISK-DATE>
|
|
|
|
<USE "NSTR">
|
|
|
|
<SETG DESC-AREA 11>
|
|
|
|
<SETG NAME-AREA 2>
|
|
|
|
<SETG DESC-PTR <BITS 13>>
|
|
|
|
<SETG PACK-NUMBER <BITS 5 13>>
|
|
|
|
<SETG LINK-BIT #WORD *000001000000*>
|
|
|
|
<SETG OPEN-WRITE #WORD *000004000000*>
|
|
|
|
<SETG GC-MARK-BIT #WORD *000010000000*>
|
|
|
|
<SETG DELETE-ON-CLOSE #WORD *000020000000*>
|
|
|
|
<SETG DELETE-FROM-UNMOUNTED-PACK #WORD *000040000000*>
|
|
|
|
<SETG DELETED <ANDB ,DELETE-ON-CLOSE ,DELETE-FROM-UNMOUNTED-PACK>>
|
|
|
|
<SETG IGNORED <ANDB ,DELETED ,OPEN-WRITE>>
|
|
|
|
<SETG DUMP-BIT #WORD *400000000000*>
|
|
|
|
<SETG EXTRA-WORDS <BITS 10 24>>
|
|
|
|
<SETG CREATION-TIME <BITS 18>>
|
|
|
|
<SETG CREATION-DATE <BITS 16 18>>
|
|
|
|
<SETG REF-DATE <BITS 16 18>>
|
|
|
|
<SETG MONTH <BITS 4 23>>
|
|
|
|
<SETG DAY <BITS 5 18>>
|
|
|
|
<SETG YEAR <BITS 7 27>>
|
|
|
|
<SETG SIXBYTES (<BITS 6 30> <BITS 6 24> <BITS 6 18> <BITS 6 12> <BITS 6 6> <BITS
|
|
6 0>)>
|
|
|
|
<MANIFEST DESC-AREA NAME-AREA DESC-PTR PACK-NUMBER LINK-BIT OPEN-WRITE
|
|
GC-MARK-BIT DELETE-ON-CLOSE DELETE-FROM-UNMOUNTED-PACK DELETED IGNORED DUMP-BIT
|
|
EXTRA-WORDS CREATION-TIME CREATION-DATE REF-DATE MONTH DAY YEAR SIXBYTES>
|
|
|
|
<SETG FIELD %<RSUBR!- '[ %<PCODE!- "2DIR" 0> FIELD #DECL ("VALUE" FIX <PRIMTYPE
|
|
WORD> BITS) SIXTOS COUNT-WORDS DTNOW T DIR (<UVECTOR [REST FIX]>) N (FIX) W (<
|
|
PRIMTYPE WORD>) (#BITS *360600000000* #BITS *300600000000* #BITS *220600000000*
|
|
#BITS *140600000000* #BITS *060600000000* #BITS *000600000000*) "READB" ".FILE."
|
|
"(DIR)" "DSK" LIST]>>
|
|
<AND <ASSIGNED? GLUE> .GLUE <PUT ,FIELD PGLUE ![721420287 -17179869184!]>>
|
|
|
|
|
|
<SETG DISK-DATE %<RSUBR-ENTRY '[FIELD DISK-DATE #DECL ("VALUE" WORD "OPTIONAL"
|
|
LIST)] 113>>
|
|
|
|
<SETG GET-DIRECTORY %<RSUBR-ENTRY '[FIELD GET-DIRECTORY #DECL ("VALUE" <OR FALSE
|
|
<UVECTOR [1024 FIX]>> "OPTIONAL" STRING <UVECTOR [1024 FIX]>)] 508>>
|
|
|
|
<SETG PARSE-DIRECTORY %<RSUBR-ENTRY '[FIELD PARSE-DIRECTORY #DECL ("VALUE" <
|
|
VECTOR [REST <VECTOR STRING STRING <LIST [3 FIX]> <LIST [2 FIX] FIX> <LIST [3
|
|
FIX]> <OR FIX <LIST [3 STRING] [REST STRING]>> FIX <LIST [REST CHARACTER]>>]> <
|
|
UVECTOR [REST FIX]>)] 589>>
|
|
|
|
<SETG COUNT-WORDS %<RSUBR-ENTRY '[FIELD COUNT-WORDS #DECL ("VALUE" <OR FIX FALSE
|
|
> FIX <UVECTOR [REST FIX]> FIX)] 739>>
|
|
|
|
<ENDPACKAGE>
|