1 <DEFINE X$DEF-GET-MODE (CHANNEL OPER "AUX" (DATA <T$CHANNEL-DATA .CHANNEL>)
3 #DECL ((CHANNEL) T$CHANNEL (DATA) <<PRIMTYPE VECTOR> FIX> (STS) FIX)
4 <COND (<SET STS <CALL SYSOP GTSTS <RHW .JFN> '(RETURN 2)>>
5 <COND (<G=? .STS 0> "CLOSED")
6 (<NOT <0? <ANDB .STS ,GS-WRF>>>
7 <COND (<0? <ANDB .STS ,GS-RND>> "APPEND")
9 (<NOT <0? <ANDB .STS ,GS-RDF>>>
12 <DEFINE X$DEF-GET-BYTE-SIZE (CHANNEL OPER "AUX" (DATA <T$CHANNEL-DATA .CHANNEL>)
14 #DECL ((CHANNEL) T$CHANNEL (DATA) <<PRIMTYPE VECTOR> FIX>)
15 <COND (<SET SZ <CALL SYSOP RFBSZ .JFN '(RETURN 2)>>
16 <COND (<==? .SZ 7> "ASCII")
18 (<==? .SZ 36> "BINARY")
21 <DEFINE X$DEF-SHORT-NAME (CHANNEL OPER "AUX" (DATA <T$CHANNEL-DATA .CHANNEL>))
22 #DECL ((CHANNEL) T$CHANNEL (DATA) <<PRIMTYPE VECTOR> FIX>)
23 <I$DO-JFNS <1 .DATA> *001110000001*>>
25 <DEFINE X$DEF-NM1 (CHANNEL OPER "AUX" (DATA <T$CHANNEL-DATA .CHANNEL>))
26 #DECL ((CHANNEL) T$CHANNEL (DATA) <<PRIMTYPE VECTOR> FIX>)
27 <I$DO-JFNS <1 .DATA> *001000000000*>>
29 <DEFINE X$DEF-NM2 (CHANNEL OPER "AUX" (DATA <T$CHANNEL-DATA .CHANNEL>))
30 #DECL ((CHANNEL) T$CHANNEL (DATA) <<PRIMTYPE VECTOR> FIX>)
31 <I$DO-JFNS <1 .DATA> *000100000000*>>
33 <DEFINE X$DEF-DEV (CHANNEL OPER "AUX" (DATA <T$CHANNEL-DATA .CHANNEL>))
34 #DECL ((CHANNEL) T$CHANNEL (DATA) <<PRIMTYPE VECTOR> FIX>)
35 <I$DO-JFNS <1 .DATA> *100000000000*>>
37 <DEFINE X$DEF-SNM (CHANNEL OPER "AUX" STR (DATA <T$CHANNEL-DATA .CHANNEL>))
38 #DECL ((CHANNEL) T$CHANNEL (DATA) <<PRIMTYPE VECTOR> FIX>
39 (STR) <OR FALSE STRING>)
40 <SET STR <I$DO-JFNS <1 .DATA> *010000000000*>>
41 <COND (<AND <OR <NOT <0? <GETBITS <1 .DATA> <BITS 18 18>>>>
42 <==? <T$GET-DEVICE-TYPE <1 .DATA>> ,/DVDSK>>
45 <T$GET-CONNECTED-DIR>)
48 <DEFINE X$DEF-NAME (CHANNEL OPER "OPT" (BITS *37*)
49 "AUX" (DATA <T$CHANNEL-DATA .CHANNEL>) (ARGBITS 1))
50 #DECL ((CHANNEL) T$CHANNEL (DATA) <<PRIMTYPE VECTOR> FIX>)
51 <COND (<NOT <0? <ANDB .BITS *20*>>>
52 <SET ARGBITS <ORB .ARGBITS *100000000000*>>)>
53 <COND (<NOT <0? <ANDB .BITS *10*>>>
54 <SET ARGBITS <ORB .ARGBITS *010000000000*>>)>
55 <COND (<NOT <0? <ANDB .BITS 4>>>
56 <SET ARGBITS <ORB .ARGBITS *001000000000*>>)>
57 <COND (<NOT <0? <ANDB .BITS 2>>>
58 <SET ARGBITS <ORB .ARGBITS *000100000000*>>)>
59 <COND (<NOT <0? <ANDB .BITS 1>>>
60 <SET ARGBITS <ORB .ARGBITS *000010000000*>>)>
61 <I$DO-JFNS <1 .DATA> .ARGBITS>>
63 <DEFINE I$DO-JFNS (JFN BITS "AUX" CT (STR ,I$NAMSTR) NS)
64 #DECL ((JFN BITS) FIX (CT) <OR FIX FALSE> (NS STR) STRING)
65 <SET JFN <ANDB .JFN *777777*>>
66 <COND (<OR <==? .JFN ,/PRIOU>
68 <COND (<0? <ANDB .BITS *100000000000*>>
74 (<SET CT <CALL SYSOP JFNS .STR .JFN .BITS 0>>
75 <SET NS <ISTRING .CT>>
82 <DEFINE X$DEF-FLUSH (CHANNEL OPER "AUX" (DATA <T$CHANNEL-DATA .CHANNEL>) VAL)
83 #DECL ((CHANNEL) T$CHANNEL (DATA) <<PRIMTYPE VECTOR> FIX>)
86 <CALL SYSOP CLOSF <ORB <GETBITS <1 .DATA> <BITS 18 0>> *4000000000*>>>
90 <DEFINE X$DEF-HACK-DATE (CHANNEL OPR "OPTIONAL" NEW
91 "AUX" (DATA <T$CHANNEL-DATA .CHANNEL>) UV
92 (JFN <ANDB <1 .DATA> *777777*>))
93 #DECL ((CHANNEL) T$CHANNEL (OPR) T$ATOM (NEW) FIX (DATA) <<PRIMTYPE VECTOR> FIX>
94 (UV) <UVECTOR [REST FIX]>)
95 <COND (<NOT <GASSIGNED? DATEU>> <SETG DATEU <IUVECTOR 3 0>>)>
97 <COND (<NOT <ASSIGNED? NEW>>
98 <COND (<CALL SYSOP RFTAD .JFN .UV 3>
99 <COND (<==? .OPR T$READ-DATE>
106 <COND (<==? .OPR T$READ-DATE>
109 <COND (<CALL SYSOP SFTAD .JFN .UV 3>