Mercurial > hg > Members > kono > nitros9-code

comparison level1/modules/pipeman.asm @ 0:6641a883d6b0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Initial revision
author boisy
date Thu, 04 Apr 2002 16:34:12 +0000
parents
children 668388823050
comparison
equal deleted inserted replaced
-1:000000000000 0:6641a883d6b0
1 ********************************************************************
2 * PipeMan - Pipe file manager
3 *
4 * $Id$
5 *
6 * Ed. Comments Who YY/MM/DD
7 * ------------------------------------------------------------------
8 * 4 Tandy/Microware original version
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
22 edition set $04
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