Mercurial > hg > Members > kono > nitros9-code
annotate level1/cmds/pwd.asm @ 537:765ff88d3db7
6309 assembler from Curtis Boyle
| author | boisy |
|---|---|
| date | Sun, 13 Oct 2002 21:37:16 +0000 |
| parents | baead4d344f1 |
| children |
| rev | line source |
|---|---|
| 0 | 1 ******************************************************************** |
| 2 * pwd - Print working directory | |
| 3 * | |
| 4 * $Id$ | |
| 5 * | |
| 6 * Ed. Comments Who YY/MM/DD | |
| 7 * ------------------------------------------------------------------ | |
|
200
e9ce43cc215e
Made major changes to headers for consistency and identification
boisy
parents:
15
diff
changeset
|
8 * 1 From Tandy OS-9 Level One VR 02.00.00 |
| 0 | 9 |
| 10 nam pwd | |
| 11 ttl Print working directory | |
| 12 | |
| 13 | 13 * Disassembled 98/09/10 23:50:10 by Disasm v1.6 (C) 1988 by RML |
| 0 | 14 |
| 15 ifp1 | |
| 16 use defsfile | |
| 270 | 17 use rbfdefs |
| 0 | 18 endc |
| 19 | |
| 20 tylg set Prgrm+Objct | |
| 21 atrv set ReEnt+rev | |
| 22 rev set $01 | |
| 23 edition set 1 | |
| 24 | |
| 25 mod eom,name,tylg,atrv,start,size | |
| 26 | |
| 13 | 27 fildes rmb 1 |
| 28 bufptr rmb 2 | |
| 270 | 29 DotDotFD rmb 3 |
| 30 DotFD rmb 3 | |
| 31 DDCopy rmb 5 | |
| 32 dentry rmb 160 | |
| 13 | 33 buffer rmb 1 |
| 34 sttbuf rmb 282 | |
| 0 | 35 size equ . |
| 36 | |
| 37 name fcs /pwd/ | |
| 38 fcb edition | |
| 13 | 39 |
| 40 badnam fcc "pwd: bad name in path" | |
| 0 | 41 fcb C$CR |
| 13 | 42 dotdot fcc "." |
| 43 dot fcc "." | |
| 44 cr fcb C$CR | |
| 45 rdmsg fcc "read error" | |
| 46 fcb C$CR | |
| 0 | 47 |
| 13 | 48 start leax >buffer,u |
| 49 lda #C$CR | |
| 0 | 50 sta ,x |
| 13 | 51 stx <bufptr |
| 52 leax >dot,pcr | |
| 53 bsr open | |
| 54 sta <fildes | |
| 55 lbsr rdtwo | |
| 270 | 56 ldd <DotDotFD |
| 57 std <DDCopy | |
| 58 lda <DotDotFD+2 | |
| 59 sta <DDCopy+2 | |
| 0 | 60 L0052 bsr L00C6 |
| 61 beq L0079 | |
| 13 | 62 leax >dotdot,pcr |
| 63 bsr chdir | |
| 64 lda <fildes | |
| 0 | 65 os9 I$Close |
| 66 bcs L008D | |
| 13 | 67 leax >dot,pcr |
| 68 bsr open | |
| 69 bsr rdtwo | |
| 0 | 70 bsr L00A8 |
| 71 bsr L00E2 | |
| 270 | 72 ldd <DotDotFD |
| 73 std <DDCopy | |
| 74 lda <DotDotFD+2 | |
| 75 sta <DDCopy+2 | |
| 0 | 76 bra L0052 |
| 77 L0079 lbsr L00FB | |
| 13 | 78 ldx <bufptr |
| 0 | 79 ldy #$0081 |
| 80 lda #$01 | |
| 81 os9 I$WritLn | |
| 13 | 82 lda <fildes |
| 0 | 83 os9 I$Close |
| 84 clrb | |
| 85 L008D os9 F$Exit | |
| 13 | 86 chdir lda #DIR.+READ. |
| 0 | 87 os9 I$ChgDir |
| 88 rts | |
| 13 | 89 open lda #DIR.+READ. |
| 0 | 90 os9 I$Open |
| 91 rts | |
| 270 | 92 |
| 13 | 93 read32 lda <fildes |
| 270 | 94 leax dentry,u |
| 95 ldy #DIR.SZ | |
| 0 | 96 os9 I$Read |
| 97 rts | |
| 270 | 98 |
| 13 | 99 L00A8 lda <fildes |
| 100 bsr read32 | |
| 0 | 101 bcs L010F |
| 270 | 102 leax dentry,u |
| 103 leax <DIR.FD,x | |
| 104 leay DDCopy,u | |
| 13 | 105 bsr attop |
| 0 | 106 bne L00A8 |
| 107 rts | |
| 270 | 108 |
| 13 | 109 attop ldd ,x++ |
| 0 | 110 cmpd ,y++ |
| 111 bne L00C5 | |
| 112 lda ,x | |
| 113 cmpa ,y | |
| 114 L00C5 rts | |
| 270 | 115 |
| 116 L00C6 leax DotDotFD,u | |
| 117 leay DotFD,u | |
| 13 | 118 bsr attop * check if we're at the top |
| 0 | 119 rts |
| 270 | 120 |
| 13 | 121 rdtwo bsr read32 * read "." from directory |
| 270 | 122 ldd <dentry+DIR.FD |
| 123 std <DotFD | |
| 124 lda <dentry+DIR.FD+2 | |
| 125 sta <DotFD+2 | |
| 13 | 126 bsr read32 * read ".." from directory |
| 270 | 127 ldd <dentry+DIR.FD |
| 128 std <DotDotFD | |
| 129 lda <dentry+DIR.FD+2 | |
| 130 sta <DotDotFD+2 | |
| 0 | 131 rts |
| 270 | 132 |
| 133 L00E2 leax dentry,u | |
| 13 | 134 prsnam os9 F$PrsNam |
| 0 | 135 bcs L0109 |
| 13 | 136 ldx <bufptr |
| 0 | 137 L00EB lda ,-y |
| 138 anda #$7F | |
| 139 sta ,-x | |
| 140 decb | |
| 141 bne L00EB | |
| 270 | 142 lda #PDELIM |
| 0 | 143 sta ,-x |
| 13 | 144 stx <bufptr |
| 0 | 145 rts |
| 13 | 146 L00FB lda <fildes |
| 147 ldb #SS.DevNm | |
| 148 leax >sttbuf,u | |
| 0 | 149 os9 I$GetStt |
| 13 | 150 bsr prsnam |
| 0 | 151 rts |
| 13 | 152 L0109 leax >badnam,pcr |
| 153 bra wrerr | |
| 154 L010F leax >rdmsg,pcr | |
| 155 bra wrerr | |
| 0 | 156 L0115 lda #$02 |
| 157 os9 I$Write | |
| 158 bcs L0128 | |
| 159 rts | |
| 160 bsr L0115 | |
| 13 | 161 leax >cr,pcr |
| 162 wrerr lda #$02 | |
| 0 | 163 os9 I$WritLn |
| 164 L0128 ldb #$00 | |
| 165 os9 F$Exit | |
| 166 | |
| 167 emod | |
| 168 eom equ * | |
| 169 end | |
| 13 | 170 |