Mercurial > hg > Members > kono > nitros9-code

annotate 3rdparty/utils/boisy/makdir.asm @ 2109:6f39160e9096

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fixed errors in source
author boisy
date Thu, 19 Apr 2007 03:07:40 +0000
parents 0e08f0830fd8
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
1 nam MakDir Vr. 5
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
2 ttl Automatically capitalizes directories
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
3
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
4 ifp1
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
5 use defsfile
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
6 endc
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
7
1260
0e08f0830fd8 Changes pointed out by Rodney H.
boisy
parents: 0
diff changeset
8 mod Size,Name,Prgrm+Objct,ReEnt+1,Start,Fin
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
9
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
10 Name fcs /MakDir/
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
11 Vrsn fcb $05
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
12
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
13 org 0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
14
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
15 Stuff rmb 80
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
16 Stack rmb 200
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
17 Fin equ .
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
18
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
19 Start pshs x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
20 Loop lda ,x+
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
21 cmpa #'a
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
22 blo DecIt
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
23 cmpa #'z
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
24 bhi DecIt
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
25 anda #$df
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
26 sta -1,x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
27 DecIt decb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
28 bne Loop
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
29 puls x
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
30 MakDir ldb #$bf
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
31 Execute os9 I$MakDir
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
32 bcs Error
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
33 clrb
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
34 Error os9 F$Exit
1260
0e08f0830fd8 Changes pointed out by Rodney H.
boisy
parents: 0
diff changeset
35
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
36 emod
1260
0e08f0830fd8 Changes pointed out by Rodney H.
boisy
parents: 0
diff changeset
37 Size equ *
0
6641a883d6b0 Initial revision
boisy
parents:
diff changeset
38 end
1260
0e08f0830fd8 Changes pointed out by Rodney H.
boisy
parents: 0
diff changeset
39