|
0
|
1 ********************************************************************
|
|
|
2 * PipeMan - Pipe file manager
|
|
|
3 *
|
|
|
4 * $Id$
|
|
|
5 *
|
|
|
6 * Ed. Comments Who YY/MM/DD
|
|
|
7 * ------------------------------------------------------------------
|
|
201
|
8 * 4 From Tandy OS-9 Level One VR 02.00.00
|
|
0
|
9
|
|
|
10 nam PipeMan
|
|
|
11 ttl Pipe file manager
|
|
|
12
|
|
|
13 * Disassembled 98/08/23 18:26:04 by Disasm v1.6 (C) 1988 by RML
|
|
|
14
|
|
|
15 ifp1
|
|
|
16 use defsfile
|
|
|
17 endc
|
|
|
18
|
|
|
19 tylg set FlMgr+Objct
|
|
|
20 atrv set ReEnt+rev
|
|
|
21 rev set $01
|
|
201
|
22 edition set 4
|
|
0
|
23
|
|
|
24 mod eom,name,tylg,atrv,start,size
|
|
|
25
|
|
|
26 u0000 rmb 0
|
|
|
27 size equ .
|
|
|
28
|
|
|
29 name fcs /PipeMan/
|
|
|
30 fcb edition
|
|
|
31
|
|
|
32 start lbra L0042
|
|
|
33 lbra L0042
|
|
|
34 lbra L003C
|
|
|
35 lbra L003C
|
|
|
36 lbra L003C
|
|
|
37 lbra L0040
|
|
|
38 lbra L00A9
|
|
|
39 lbra L00F7
|
|
|
40 lbra L00A3
|
|
|
41 lbra L00F0
|
|
|
42 lbra L0040
|
|
|
43 lbra L0040
|
|
|
44 lbra L0078
|
|
|
45 L003C comb
|
|
|
46 ldb #$D0
|
|
|
47 rts
|
|
|
48 L0040 clrb
|
|
|
49 rts
|
|
|
50 L0042 ldu $06,y
|
|
|
51 ldx $04,u
|
|
|
52 pshs y
|
|
|
53 os9 F$PrsNam
|
|
|
54 bcs L0073
|
|
|
55 lda -$01,y
|
|
|
56 bmi L0058
|
|
|
57 leax ,y
|
|
|
58 os9 F$PrsNam
|
|
|
59 bcc L0073
|
|
|
60 L0058 sty $04,u
|
|
|
61 puls y
|
|
|
62 ldd #$0100
|
|
|
63 os9 F$SRqMem
|
|
|
64 bcs L0072
|
|
|
65 stu $08,y
|
|
|
66 stu <$14,y
|
|
|
67 stu <$16,y
|
|
|
68 leau d,u
|
|
|
69 stu <$12,y
|
|
|
70 L0072 rts
|
|
|
71 L0073 comb
|
|
|
72 ldb #$D7
|
|
|
73 puls pc,y
|
|
|
74 L0078 lda $02,y
|
|
|
75 bne L0086
|
|
|
76 ldu $08,y
|
|
|
77 ldd #$0100
|
|
|
78 os9 F$SRtMem
|
|
|
79 bra L00A1
|
|
|
80 L0086 cmpa $0B,y
|
|
|
81 bne L008E
|
|
|
82 leax $0A,y
|
|
|
83 bra L0094
|
|
|
84 L008E cmpa $0F,y
|
|
|
85 bne L00A1
|
|
|
86 leax $0E,y
|
|
|
87 L0094 lda ,x
|
|
|
88 beq L00A1
|
|
|
89 ldb $02,x
|
|
|
90 beq L00A1
|
|
|
91 clr $02,x
|
|
|
92 os9 F$Send
|
|
|
93 L00A1 clrb
|
|
|
94 rts
|
|
|
95 L00A3 ldb #$0D
|
|
|
96 stb $0D,y
|
|
|
97 bra L00AB
|
|
|
98 L00A9 clr $0D,y
|
|
|
99 L00AB leax $0A,y
|
|
|
100 lbsr L0140
|
|
|
101 bcs L00EB
|
|
|
102 ldd $06,u
|
|
|
103 beq L00EB
|
|
|
104 ldx $04,u
|
|
|
105 addd $04,u
|
|
|
106 pshs b,a
|
|
|
107 bra L00C9
|
|
|
108 L00BE pshs x
|
|
|
109 leax $0A,y
|
|
|
110 lbsr L016B
|
|
|
111 puls x
|
|
|
112 bcs L00DC
|
|
|
113 L00C9 lbsr L01D2
|
|
|
114 bcs L00BE
|
|
|
115 sta ,x+
|
|
|
116 tst $0D,y
|
|
|
117 beq L00D8
|
|
|
118 cmpa $0D,y
|
|
|
119 beq L00DC
|
|
|
120 L00D8 cmpx ,s
|
|
|
121 bcs L00C9
|
|
|
122 L00DC tfr x,d
|
|
|
123 subd ,s++
|
|
|
124 addd $06,u
|
|
|
125 std $06,u
|
|
|
126 bne L00EA
|
|
|
127 ldb #$D3
|
|
|
128 bra L00EB
|
|
|
129 L00EA clrb
|
|
|
130 L00EB leax $0A,y
|
|
|
131 lbra L019D
|
|
|
132 L00F0 ldb #$0D
|
|
|
133 stb <$11,y
|
|
|
134 bra L00FA
|
|
|
135 L00F7 clr <$11,y
|
|
|
136 L00FA leax $0E,y
|
|
|
137 lbsr L0140
|
|
|
138 bcs L013C
|
|
|
139 ldd $06,u
|
|
|
140 beq L013C
|
|
|
141 ldx $04,u
|
|
|
142 addd $04,u
|
|
|
143 pshs b,a
|
|
|
144 bra L0118
|
|
|
145 L010D pshs x
|
|
|
146 leax $0E,y
|
|
|
147 lbsr L016B
|
|
|
148 puls x
|
|
|
149 bcs L0130
|
|
|
150 L0118 lda ,x
|
|
|
151 lbsr L01AC
|
|
|
152 bcs L010D
|
|
|
153 leax $01,x
|
|
|
154 tst <$11,y
|
|
|
155 beq L012B
|
|
|
156 cmpa <$11,y
|
|
|
157 beq L0130
|
|
|
158 L012B cmpx ,s
|
|
|
159 bcs L0118
|
|
|
160 clrb
|
|
|
161 L0130 pshs b,cc
|
|
|
162 tfr x,d
|
|
|
163 subd $02,s
|
|
|
164 addd $06,u
|
|
|
165 std $06,u
|
|
|
166 puls x,b,cc
|
|
|
167 L013C leax $0E,y
|
|
|
168 bra L019D
|
|
|
169 L0140 lda ,x
|
|
|
170 beq L0165
|
|
|
171 cmpa $05,y
|
|
|
172 beq L0169
|
|
|
173 inc $01,x
|
|
|
174 ldb $01,x
|
|
|
175 cmpb $02,y
|
|
|
176 bne L0153
|
|
|
177 lbsr L0094
|
|
|
178 L0153 os9 F$IOQu
|
|
|
179 dec $01,x
|
|
|
180 pshs x
|
|
|
181 ldx <$004B
|
|
|
182 ldb <$36,x
|
|
|
183 puls x
|
|
|
184 beq L0140
|
|
|
185 coma
|
|
|
186 rts
|
|
|
187 L0165 ldb $05,y
|
|
|
188 stb ,x
|
|
|
189 L0169 clrb
|
|
|
190 rts
|
|
|
191 L016B ldb $01,x
|
|
|
192 incb
|
|
|
193 cmpb $02,y
|
|
|
194 beq L0199
|
|
|
195 stb $01,x
|
|
|
196 ldb #$01
|
|
|
197 stb $02,x
|
|
|
198 clr $05,y
|
|
|
199 pshs x
|
|
|
200 tfr x,d
|
|
|
201 eorb #$04
|
|
|
202 tfr d,x
|
|
|
203 lbsr L0094
|
|
|
204 ldx #$0000
|
|
|
205 os9 F$Sleep
|
|
|
206 ldx <$004B
|
|
|
207 ldb <$36,x
|
|
|
208 puls x
|
|
|
209 dec $01,x
|
|
|
210 tstb
|
|
|
211 bne L019B
|
|
|
212 clrb
|
|
|
213 rts
|
|
|
214 L0199 ldb #$F5
|
|
|
215 L019B coma
|
|
|
216 rts
|
|
|
217 L019D pshs u,b,cc
|
|
|
218 clr ,x
|
|
|
219 tfr x,d
|
|
|
220 eorb #$04
|
|
|
221 tfr d,x
|
|
|
222 lbsr L0094
|
|
|
223 puls pc,u,b,cc
|
|
|
224 L01AC pshs x,b
|
|
|
225 ldx <$14,y
|
|
|
226 ldb <$18,y
|
|
|
227 beq L01BE
|
|
|
228 cmpx <$16,y
|
|
|
229 bne L01C3
|
|
|
230 comb
|
|
|
231 puls pc,x,b
|
|
|
232 L01BE ldb #$01
|
|
|
233 stb <$18,y
|
|
|
234 L01C3 sta ,x+
|
|
|
235 cmpx <$12,y
|
|
|
236 bcs L01CC
|
|
|
237 ldx $08,y
|
|
|
238 L01CC stx <$14,y
|
|
|
239 clrb
|
|
|
240 puls pc,x,b
|
|
|
241 L01D2 lda <$18,y
|
|
|
242 bne L01D9
|
|
|
243 comb
|
|
|
244 rts
|
|
|
245 L01D9 pshs x
|
|
|
246 ldx <$16,y
|
|
|
247 lda ,x+
|
|
|
248 cmpx <$12,y
|
|
|
249 bcs L01E7
|
|
|
250 ldx $08,y
|
|
|
251 L01E7 stx <$16,y
|
|
|
252 cmpx <$14,y
|
|
|
253 bne L01F2
|
|
|
254 clr <$18,y
|
|
|
255 L01F2 andcc #^Carry
|
|
|
256 puls pc,x
|
|
|
257
|
|
|
258 emod
|
|
|
259 eom equ *
|
|
|
260 end
|
|
|
261
|
