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