Mercurial > hg > Members > kono > nitros9-code

comparison level1/cmds/pd.asm @ 924:c155aac72190

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Made cosmetic changes
author boisy
date Sun, 19 Jan 2003 14:54:09 +0000
parents 92b575ffa143
children dbf9a6e913f4
comparison
equal deleted inserted replaced
923:840aa54d6f45 924:c155aac72190
22 rev set $01 22 rev set $01
23 edition set 1 23 edition set 1
24 24
25 mod eom,name,tylg,atrv,start,size 25 mod eom,name,tylg,atrv,start,size
26 26
27 org 0
27 fildes rmb 1 28 fildes rmb 1
28 bufptr rmb 2 29 bufptr rmb 2
29 DotDotFD rmb 3 30 dotdotfd rmb 3
30 DotFD rmb 3 31 dotfd rmb 3
31 DDCopy rmb 5 32 ddcopy rmb 5
32 dentry rmb 160 33 dentry rmb 160
33 buffer rmb 1 34 buffer rmb 1
34 sttbuf rmb 282 35 sttbuf rmb 282
35 size equ . 36 size equ .
36 37
63 stx <bufptr 64 stx <bufptr
64 leax >dot,pcr 65 leax >dot,pcr
65 bsr open 66 bsr open
66 sta <fildes 67 sta <fildes
67 lbsr rdtwo 68 lbsr rdtwo
68 ldd <DotDotFD 69 ldd <dotdotfd
69 std <DDCopy 70 std <ddcopy
70 lda <DotDotFD+2 71 lda <dotdotfd+2
71 sta <DDCopy+2 72 sta <ddcopy+2
72 L0052 bsr L00C6 73 L0052 bsr L00C6
73 beq L0079 74 beq L0079
74 leax >dotdot,pcr 75 leax >dotdot,pcr
75 bsr chdir 76 bsr chdir
76 lda <fildes 77 lda <fildes
79 leax >dot,pcr 80 leax >dot,pcr
80 bsr open 81 bsr open
81 bsr rdtwo 82 bsr rdtwo
82 bsr L00A8 83 bsr L00A8
83 bsr L00E2 84 bsr L00E2
84 ldd <DotDotFD 85 ldd <dotdotfd
85 std <DDCopy 86 std <ddcopy
86 lda <DotDotFD+2 87 lda <dotdotfd+2
87 sta <DDCopy+2 88 sta <ddcopy+2
88 bra L0052 89 bra L0052
89 L0079 lbsr L00FB 90 L0079 lbsr L00FB
90 ldx <bufptr 91 ldx <bufptr
91 ldy #$0081 92 ldy #$0081
92 lda #$01 93 lda #$01
123 L00A8 lda <fildes 124 L00A8 lda <fildes
124 bsr read32 125 bsr read32
125 bcs L010F 126 bcs L010F
126 leax dentry,u 127 leax dentry,u
127 leax <DIR.FD,x 128 leax <DIR.FD,x
128 leay DDCopy,u 129 leay ddcopy,u
129 bsr attop 130 bsr attop
130 bne L00A8 131 bne L00A8
131 rts 132 rts
132 133
133 attop ldd ,x++ 134 attop ldd ,x++
135 bne L00C5 136 bne L00C5
136 lda ,x 137 lda ,x
137 cmpa ,y 138 cmpa ,y
138 L00C5 rts 139 L00C5 rts
139 140
140 L00C6 leax DotDotFD,u 141 L00C6 leax dotdotfd,u
141 leay DotFD,u 142 leay dotfd,u
142 bsr attop * check if we're at the top 143 bsr attop * check if we're at the top
143 rts 144 rts
144 145
145 rdtwo bsr read32 * read "." from directory 146 rdtwo bsr read32 * read "." from directory
146 ldd <dentry+DIR.FD 147 ldd <dentry+DIR.FD
147 std <DotFD 148 std <dotfd
148 lda <dentry+DIR.FD+2 149 lda <dentry+DIR.FD+2
149 sta <DotFD+2 150 sta <dotfd+2
150 bsr read32 * read ".." from directory 151 bsr read32 * read ".." from directory
151 ldd <dentry+DIR.FD 152 ldd <dentry+DIR.FD
152 std <DotDotFD 153 std <dotdotfd
153 lda <dentry+DIR.FD+2 154 lda <dentry+DIR.FD+2
154 sta <DotDotFD+2 155 sta <dotdotfd+2
155 rts 156 rts
156 157
157 L00E2 leax dentry,u 158 L00E2 leax dentry,u
158 prsnam os9 F$PrsNam 159 prsnam os9 F$PrsNam
159 bcs L0109 160 bcs L0109