Mercurial > hg > Members > kono > nitros9-code

annotate level1/cmds/backup.asm @ 1523:82200a2c5721

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Added mpi utility
author boisy
date Wed, 17 Mar 2004 16:52:01 +0000
parents 84ea83668304
children a8bb0834424e
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1 ********************************************************************
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
2 * Backup - Make a backup copy of a disk
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
3 *
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
4 * $Id$
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
5 *
1325
84ea83668304 Redid comments, reset all rev nibbles that weren't explictly set to 0
boisy
parents: 921
diff changeset
6 * Edt/Rev YYYY/MM/DD Modified by
84ea83668304 Redid comments, reset all rev nibbles that weren't explictly set to 0
boisy
parents: 921
diff changeset
7 * Comment
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
8 * ------------------------------------------------------------------
1325
84ea83668304 Redid comments, reset all rev nibbles that weren't explictly set to 0
boisy
parents: 921
diff changeset
9 * 8 ????/??/??
84ea83668304 Redid comments, reset all rev nibbles that weren't explictly set to 0
boisy
parents: 921
diff changeset
10 * From Tandy OS-9 Level Two VR 02.00.01.
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
11
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
12 nam Backup
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
13 ttl Make a backup copy of a disk
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
14
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
15 * Disassembled 02/04/03 23:08:04 by Disasm v1.6 (C) 1988 by RML
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
16
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
17 ifp1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
18 use defsfile
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
19 endc
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
20
921
617c1b90e623 Added DOHELP conditionals, set all to zero to eliminate help from commands
boisy
parents: 200
diff changeset
21 DOHELP set 0
617c1b90e623 Added DOHELP conditionals, set all to zero to eliminate help from commands
boisy
parents: 200
diff changeset
22
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
23 tylg set Prgrm+Objct
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
24 atrv set ReEnt+rev
1325
84ea83668304 Redid comments, reset all rev nibbles that weren't explictly set to 0
boisy
parents: 921
diff changeset
25 rev set $00
200
e9ce43cc215e Made major changes to headers for consistency and identification
boisy
parents: 0
diff changeset
26 edition set $08
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
27
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
28 mod eom,name,tylg,atrv,start,size
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
29
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
30 u0000 rmb 1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
31 u0001 rmb 1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
32 u0002 rmb 2
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
33 u0004 rmb 5
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
34 u0009 rmb 1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
35 u000A rmb 1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
36 u000B rmb 1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
37 u000C rmb 1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
38 u000D rmb 1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
39 u000E rmb 1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
40 u000F rmb 1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
41 u0010 rmb 1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
42 u0011 rmb 2
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
43 u0013 rmb 1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
44 u0014 rmb 1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
45 u0015 rmb 32
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
46 u0035 rmb 32
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
47 u0055 rmb 2
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
48 u0057 rmb 424
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
49 u01FF rmb 81
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
50 u0250 rmb 256
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
51 u0350 rmb 3840
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
52 size equ .
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
53
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
54 name fcs /Backup/
200
e9ce43cc215e Made major changes to headers for consistency and identification
boisy
parents: 0
diff changeset
55 fcb edition
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
56
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
57 L0014 fcc "/d0 /d1"
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
58 fcb C$CR
921
617c1b90e623 Added DOHELP conditionals, set all to zero to eliminate help from commands
boisy
parents: 200
diff changeset
59 IFNE DOHELP
617c1b90e623 Added DOHELP conditionals, set all to zero to eliminate help from commands
boisy
parents: 200
diff changeset
60 HelpMsg fcb C$LF
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
61 fcc "Use: Backup [e] [s] [-v]"
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
62 fcb C$LF
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
63 fcc " [/dev1 [/dev2]]"
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
64 fcb C$LF
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
65 fcc " e - abort if read error"
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
66 fcb C$LF
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
67 fcc " s - single drive prompts"
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
68 fcb C$LF
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
69 fcc " -v - inhibit verify pass"
921
617c1b90e623 Added DOHELP conditionals, set all to zero to eliminate help from commands
boisy
parents: 200
diff changeset
70 ENDC
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
71 L00A0 fcb $8D
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
72 L00A1 fcc "Ready to backup from"
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
73 L00B5 fcb $A0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
74 L00B6 fcc " to"
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
75 fcb $A0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
76 L00BA fcc "Ok"
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
77 L00BC fcc " ?:"
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
78 fcb $A0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
79 L00C0 fcc "Ready Source, hit a key:"
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
80 fcb $A0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
81 L00D9 fcc "Ready Destination, hit a key:"
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
82 fcb $A0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
83 L00F7 fcs "Sector $"
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
84 L00FF fcs "Sectors copied: $"
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
85 L0112 fcb C$LF
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
86 fcc "Verify pass"
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
87 fcb $8D
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
88 L011F fcs "Sectors verified: $"
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
89 L0132 fcb C$LF
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
90 fcc " is being scratched"
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
91 fcb $8D
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
92 L0147 fcc "Disks not formatted identically"
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
93 fcb C$LF
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
94 L0167 fcc "Backup Aborted"
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
95 fcb $8D
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
96
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
97 start leas >u01FF,u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
98 pshs b,a
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
99 pshs u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
100 tfr y,d
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
101 subd ,s++
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
102 subd #$0250
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
103 sta <u0013
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
104 clr <u000B
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
105 clr <u000A
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
106 clr <u000C
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
107 clr <u000D
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
108 leay <u0057,u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
109 sty <u0055
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
110 ldd ,s++
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
111 beq L01E3
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
112 L0199 ldd ,x+
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
113 cmpa #C$SPAC
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
114 beq L0199
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
115 cmpa #C$COMA
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
116 beq L0199
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
117 eora #'E
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
118 anda #$DF
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
119 bne L01B1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
120 cmpb #$30
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
121 bcc L01B1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
122 inc <u000A
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
123 bra L0199
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
124 L01B1 lda -$01,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
125 eora #'S
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
126 anda #$DF
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
127 bne L01C1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
128 cmpb #$30
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
129 bcc L01C1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
130 inc <u000B
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
131 bra L0199
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
132 L01C1 ldd -$01,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
133 cmpa #'-
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
134 bne L01D7
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
135 eorb #'V
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
136 andb #$DF
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
137 bne L01D7
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
138 ldd ,x+
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
139 cmpb #$30
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
140 bcc L01D7
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
141 inc <u000C
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
142 bra L0199
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
143 L01D7 lda ,-x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
144 cmpa #PDELIM
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
145 beq L01E7
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
146 cmpa #C$CR
921
617c1b90e623 Added DOHELP conditionals, set all to zero to eliminate help from commands
boisy
parents: 200
diff changeset
147 lbne ShowHelp
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
148 L01E3 leax >L0014,pcr
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
149 L01E7 leay >L00A1,pcr
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
150 lbsr L044B
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
151 ldy <u0055
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
152 sty <u0002
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
153 lbsr L043A
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
154 L01F7 lda ,x+
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
155 cmpa #C$SPAC
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
156 beq L01F7
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
157 cmpa #C$COMA
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
158 beq L01F7
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
159 cmpa #C$CR
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
160 bne L020B
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
161 inc <u000B
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
162 ldx <u0002
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
163 lda ,x+
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
164 L020B cmpa #PDELIM
921
617c1b90e623 Added DOHELP conditionals, set all to zero to eliminate help from commands
boisy
parents: 200
diff changeset
165 lbne ShowHelp
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
166 leax -$01,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
167 leay >L00B6,pcr
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
168 lbsr L044B
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
169 ldy <u0055
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
170 sty <u0004
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
171 lbsr L043A
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
172 leay >L00BC,pcr
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
173 lbsr L0421
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
174 comb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
175 eora #'Y
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
176 anda #$DF
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
177 lbne L03BA
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
178 ldx <u0002
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
179 ldd #$4020
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
180 L0238 cmpb ,x+
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
181 bne L0238
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
182 std -$01,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
183 ldx <u0002
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
184 lda #READ.
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
185 os9 I$Open
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
186 bcs L027C
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
187 leax >u0350,u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
188 ldy #$0100
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
189 os9 I$Read
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
190 bcs L027C
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
191 os9 I$Close
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
192 ldx <u0002
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
193 lda #READ.
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
194 os9 I$Open
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
195 bcs L027C
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
196 sta <u0000
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
197 ldx <u0004
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
198 leay <u0015,u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
199 L0267 ldb ,x+
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
200 stb ,y+
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
201 cmpb #C$SPAC
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
202 bne L0267
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
203 ldd #$4020
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
204 std -$01,y
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
205 leax <u0015,u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
206 lda #READ.+WRITE.
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
207 os9 I$Open
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
208 L027C lbcs L03AF
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
209 sta <u0001
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
210 clr <u000E
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
211 clr <u000F
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
212 clr <u0010
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
213 lbsr L0419
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
214 lda <u0001
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
215 leax >u0250,u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
216 ldy #$0100
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
217 os9 I$Read
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
218 pshs u,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
219 ldx #$0000
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
220 leau ,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
221 os9 I$Seek
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
222 puls u,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
223 bcs L027C
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
224 ldd >$0100,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
225 cmpd ,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
226 bne L02B7
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
227 ldb >$0102,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
228 cmpb $02,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
229 beq L02BE
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
230 L02B7 leay >L0147,pcr
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
231 lbra L03B6
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
232 L02BE leax >u0250,u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
233 lda #$BF
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
234 sta <$3F,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
235 leay <$1F,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
236 lbsr L044B
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
237 leay >L0132,pcr
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
238 lbsr L0456
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
239 leay >L00BA,pcr
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
240 lbsr L0421
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
241 comb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
242 eora #'Y
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
243 anda #$DF
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
244 lbne L03BA
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
245 lda <u0001
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
246 leax >u0350,u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
247 ldy #$0100
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
248 os9 I$Write
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
249 lbcs L03AF
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
250 pshs u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
251 ldx #$0000
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
252 leau ,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
253 os9 I$Seek
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
254 puls u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
255 leax >u0350,u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
256 os9 I$Read
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
257 lbcs L03AF
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
258 os9 I$Close
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
259 leax <u0015,u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
260 lda #$02
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
261 os9 I$Open
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
262 lbcs L03AF
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
263 sta <u0001
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
264 leax <u0035,u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
265 ldb #SS.OPT
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
266 os9 I$GetStt
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
267 ldb #$01
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
268 stb $08,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
269 ldb #SS.OPT
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
270 os9 I$SetStt
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
271 lbcs L03AF
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
272 L0332 leay >L00C0,pcr
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
273 lbsr L041D
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
274 lda <u0013
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
275 sta <u0014
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
276 leax >u0250,u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
277 lbsr L0403
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
278 lbsr L0419
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
279 ldd <u0011
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
280 leax >u0250,u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
281 stx <u0011
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
282 subd <u0011
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
283 beq L035C
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
284 tfr d,y
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
285 lda <u0001
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
286 os9 I$Write
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
287 bcs L03AF
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
288 L035C lda <u000D
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
289 cmpa #E$EOF
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
290 bne L0332
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
291 leay >L00FF,pcr
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
292 lbsr L0470
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
293 tst <u000C
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
294 bne L03BA
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
295 leay >L0112,pcr
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
296 lbsr L0456
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
297 lda <u0000
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
298 os9 I$Close
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
299 bcs L03AF
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
300 lda <u0001
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
301 os9 I$Close
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
302 bcs L03AF
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
303 leax <u0015,u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
304 lda #READ.
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
305 os9 I$Open
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
306 bcs L03AF
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
307 sta <u0000
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
308 clr <u000E
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
309 clr <u000F
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
310 clr <u0010
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
311 clr <u000D
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
312 L0396 lda <u0013
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
313 sta <u0014
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
314 leax >u0250,u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
315 bsr L0403
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
316 lda <u000D
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
317 cmpa #E$EOF
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
318 bne L0396
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
319 leay >L011F,pcr
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
320 lbsr L0470
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
321 bra L03BA
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
322 L03AF os9 F$PErr
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
323 leay >L0167,pcr
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
324 L03B6 lbsr L0456
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
325 comb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
326 L03BA ldb #$00
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
327 os9 F$Exit
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
328 L03BF ldy #$0100
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
329 lda <u0000
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
330 os9 I$Read
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
331 bcc L03DC
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
332 stb <u000D
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
333 cmpb #E$EOF
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
334 beq L040D
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
335 lbsr L046C
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
336 ldb <u000D
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
337 tst <u000A
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
338 bne L03AF
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
339 os9 F$PErr
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
340 L03DC ldd <u000F
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
341 addd #$0001
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
342 std <u000F
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
343 bcc L03E7
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
344 inc <u000E
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
345 L03E7 tst <u000D
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
346 beq L03FD
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
347 pshs u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
348 ldx <u000E
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
349 tfr b,a
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
350 clrb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
351 tfr d,u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
352 lda <u0000
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
353 os9 I$Seek
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
354 puls u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
355 clr <u000D
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
356 L03FD ldx <u0011
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
357 leax >$0100,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
358 L0403 stx <u0011
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
359 lda <u0014
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
360 suba #$01
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
361 sta <u0014
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
362 bcc L03BF
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
363 L040D rts
921
617c1b90e623 Added DOHELP conditionals, set all to zero to eliminate help from commands
boisy
parents: 200
diff changeset
364 ShowHelp equ *
617c1b90e623 Added DOHELP conditionals, set all to zero to eliminate help from commands
boisy
parents: 200
diff changeset
365 IFNE DOHELP
617c1b90e623 Added DOHELP conditionals, set all to zero to eliminate help from commands
boisy
parents: 200
diff changeset
366 leax <u0057,u
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
367 stx <u0055
921
617c1b90e623 Added DOHELP conditionals, set all to zero to eliminate help from commands
boisy
parents: 200
diff changeset
368 leay >HelpMsg,pcr
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
369 bra L03B6
921
617c1b90e623 Added DOHELP conditionals, set all to zero to eliminate help from commands
boisy
parents: 200
diff changeset
370 ELSE
617c1b90e623 Added DOHELP conditionals, set all to zero to eliminate help from commands
boisy
parents: 200
diff changeset
371 bra L03BA
617c1b90e623 Added DOHELP conditionals, set all to zero to eliminate help from commands
boisy
parents: 200
diff changeset
372 ENDC
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
373 L0419 leay >L00D9,pcr
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
374 L041D tst <u000B
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
375 beq L0439
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
376 L0421 bsr L0456
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
377 pshs y,x,b,a
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
378 leax ,s
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
379 ldy #$0001
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
380 clra
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
381 os9 I$Read
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
382 leay >L00A0,pcr
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
383 bsr L0456
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
384 puls y,x,b,a
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
385 anda #$7F
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
386 L0439 rts
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
387 L043A pshs x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
388 os9 F$PrsNam
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
389 puls x
921
617c1b90e623 Added DOHELP conditionals, set all to zero to eliminate help from commands
boisy
parents: 200
diff changeset
390 bcs ShowHelp
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
391 L0443 lda ,x+
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
392 bsr L04A5
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
393 decb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
394 bpl L0443
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
395 rts
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
396 L044B lda ,y
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
397 anda #$7F
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
398 bsr L04A5
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
399 lda ,y+
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
400 bpl L044B
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
401 L0455 rts
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
402 L0456 bsr L044B
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
403 pshs y,x,a
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
404 ldd <u0055
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
405 leax <u0057,u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
406 stx <u0055
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
407 subd <u0055
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
408 tfr d,y
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
409 lda #$02
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
410 os9 I$WritLn
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
411 puls pc,y,x,a
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
412 L046C leay >L00F7,pcr
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
413 L0470 bsr L044B
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
414 lda <u000E
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
415 bsr L0486
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
416 inc <u0009
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
417 lda <u000F
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
418 bsr L0488
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
419 lda <u0010
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
420 bsr L0488
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
421 leay >L00B5,pcr
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
422 bra L0456
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
423 L0486 clr <u0009
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
424 L0488 pshs a
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
425 lsra
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
426 lsra
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
427 lsra
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
428 lsra
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
429 bsr L0494
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
430 puls a
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
431 anda #$0F
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
432 L0494 tsta
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
433 beq L0499
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
434 sta <u0009
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
435 L0499 tst <u0009
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
436 beq L0455
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
437 adda #$30
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
438 cmpa #$39
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
439 bls L04A5
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
440 adda #$07
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
441 L04A5 pshs x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
442 ldx <u0055
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
443 sta ,x+
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
444 stx <u0055
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
445 puls pc,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
446
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
447 emod
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
448 eom equ *
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
449 end