Mercurial > hg > Members > kono > nitros9-code

annotate level1/cmds/rename.asm @ 1020:c1a5613ffe7b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
changes
author boisy
date Thu, 06 Mar 2003 01:41:03 +0000
parents c155aac72190
children 4e235f213651
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 * Rename - Rename a file
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 *
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
6 * Ed. Comments Who YY/MM/DD
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
7 * ------------------------------------------------------------------
200
e9ce43cc215e Made major changes to headers for consistency and identification
boisy
parents: 185
diff changeset
8 * 6 From Tandy OS-9 Level One VR 02.00.00
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
9
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
10 nam Rename
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
11 ttl Rename a file
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
12
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
13 * Disassembled 98/09/11 01:35:46 by Disasm v1.6 (C) 1988 by RML
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
14
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
15 ifp1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
16 use defsfile
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
17 endc
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
18
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
19 tylg set Prgrm+Objct
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
20 atrv set ReEnt+rev
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
21 rev set $01
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
22 edition set 6
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
23
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
24 mod eom,name,tylg,atrv,start,size
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
25
924
c155aac72190 Made cosmetic changes
boisy
parents: 200
diff changeset
26 org 0
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
27 u0000 rmb 1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
28 u0001 rmb 1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
29 u0002 rmb 2
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
30 u0004 rmb 1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
31 u0005 rmb 2
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
32 u0007 rmb 1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
33 u0008 rmb 24
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
34 u0020 rmb 26
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
35 u003A rmb 2
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
36 u003C rmb 405
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
37 size equ .
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
38
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
39 name fcs /Rename/
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
40 fcb edition
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
41
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
42 start cmpd #$0004
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
43 lbcs L00A8
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
44 stx <u0000
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
45 lda #WRITE.
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
46 os9 I$Open
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
47 bcc L0032
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
48 cmpb #E$FNA
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
49 bne L00A5
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
50 ldx <u0000
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
51 lda #DIR.+WRITE.
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
52 os9 I$Open
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
53 bcs L00A5
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
54 L0032 stx <u0005
185
3a84dad1f851 made further changes
boisy
parents: 0
diff changeset
55 ldb #SS.Opt
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
56 leax <u0020,u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
57 os9 I$GetStt
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
58 bcs L00A5
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
59 os9 I$Close
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
60 bcs L00A5
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
61 ldb <u0020
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
62 cmpb #$01
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
63 bne L00A8
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
64 bsr L00AE
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
65 bcs L00A5
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
66 ldx <u0002
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
67 lda #C$CR
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
68 sta -1,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
69 ldx <u0000
185
3a84dad1f851 made further changes
boisy
parents: 0
diff changeset
70 lda #READ.+WRITE.
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
71 os9 I$ChgDir
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
72 bcs L00A5
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
73 ldx <u0005
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
74 ldb <u0008
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
75 decb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
76 lda b,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
77 ora #$80
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
78 sta b,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
79 incb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
80 cmpb <u0004
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
81 bne L0075
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
82 leay ,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
83 ldx <u0002
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
84 os9 F$CmpNam
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
85 bcc L0082
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
86 L0075 ldx <u0005
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
87 lda #READ.
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
88 os9 I$Open
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
89 bcc L00A8
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
90 cmpb #E$PNNF
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
91 bne L00A8
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
92 L0082 leax <L00AC,pcr
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
93 lda #DIR.!UPDAT.
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
94 os9 I$Open
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
95 bcs L00A5
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
96 ldx <u003A
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
97 ldu <u003C
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
98 os9 I$Seek
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
99 bcs L00A5
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
100 ldx <u0005
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
101 ldy <u0007
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
102 os9 I$Write
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
103 bcs L00A5
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
104 os9 I$Close
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
105 bcs L00A5
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
106 clrb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
107 L00A5 os9 F$Exit
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
108 L00A8 ldb #E$BPNam
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
109 bra L00A5
185
3a84dad1f851 made further changes
boisy
parents: 0
diff changeset
110 L00AC fcc "."
3a84dad1f851 made further changes
boisy
parents: 0
diff changeset
111 fcb C$CR
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
112 L00AE ldx <u0000
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
113 bsr L00F6
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
114 ldu <u0000
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
115 lda ,u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
116 cmpa #PDELIM
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
117 beq L00C7
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
118 lda ,y
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
119 cmpa #PDELIM
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
120 beq L00C7
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
121 leau <L00AC,pcr
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
122 stu <u0000
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
123 bra L00CD
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
124 L00C7 leax ,y
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
125 bsr L00F6
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
126 bcs L00F2
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
127 L00CD stx <u0002
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
128 stb <u0004
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
129 leax ,y
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
130 bsr L00F6
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
131 bcc L00CD
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
132 ldb <u0004
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
133 beq L00F2
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
134 ldx <u0005
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
135 os9 F$PrsNam
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
136 bcs L00F2
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
137 lda ,y
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
138 cmpa #PDELIM
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
139 beq L00F2
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
140 cmpb #$1E
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
141 bcc L00F2
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
142 stx <u0005
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
143 clra
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
144 std <u0007
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
145 rts
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
146 L00F2 comb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
147 ldb #E$BPNam
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
148 rts
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
149 L00F6 os9 F$PrsNam
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
150 bcc L0119
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
151 clrb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
152 leau ,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
153 L00FE lda ,u+
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
154 bpl L0107
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
155 incb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
156 cmpa #$AE
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
157 bne L010C
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
158 L0107 incb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
159 cmpa #C$PERD
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
160 beq L00FE
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
161 L010C decb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
162 beq L0118
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
163 leay -u0001,u
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
164 cmpb #$03
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
165 bcc L0118
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
166 clrb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
167 bra L0119
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
168 L0118 coma
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
169 L0119 rts
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
170
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
171 emod
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
172 eom equ *
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
173 end
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
174