Mercurial > hg > Members > kono > nitros9-code
annotate level1/cmds/dump.asm @ 286:326238550911
Additional command help
| author | boisy |
|---|---|
| date | Sun, 21 Jul 2002 22:12:06 +0000 |
| parents | e9ce43cc215e |
| children | a4d2474884b4 |
| rev | line source |
|---|---|
| 0 | 1 ******************************************************************** |
| 2 * Dump - Show file contents in hex | |
| 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:
21
diff
changeset
|
8 * 5 From Tandy OS-9 Level One VR 02.00.00 |
| 0 | 9 |
| 10 nam Dump | |
| 11 ttl Show file contents in hex | |
| 12 | |
| 13 * Disassembled 98/09/14 23:34:34 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 5 | |
| 23 | |
| 24 mod eom,name,tylg,atrv,start,size | |
| 25 | |
| 26 u0000 rmb 1 | |
| 27 u0001 rmb 1 | |
| 28 u0002 rmb 1 | |
| 29 u0003 rmb 1 | |
| 30 u0004 rmb 1 | |
| 31 u0005 rmb 1 | |
| 32 u0006 rmb 2 | |
| 33 u0008 rmb 2 | |
| 34 u000A rmb 2 | |
| 35 u000C rmb 16 | |
| 36 u001C rmb 5 | |
| 37 u0021 rmb 1 | |
| 38 u0022 rmb 16 | |
| 39 u0032 rmb 8 | |
| 40 u003A rmb 17 | |
| 41 u004B rmb 16 | |
| 42 u005B rmb 201 | |
| 43 size equ . | |
| 44 | |
| 45 name fcs /Dump/ | |
| 46 fcb edition | |
| 47 L0012 fcc "Addr 0 1 2 3 4 5 6 7 8 9 A B C D E F 0 2 4 6 8 A C E" | |
| 48 fcb C$CR | |
| 49 L0051 fcc "---- ---- ---- ---- ---- ---- ---- ---- ---- ----------------" | |
| 50 L0090 fcb C$CR | |
| 51 L0091 fcb C$LF | |
| 52 fcb C$LF | |
| 53 fcb C$LF | |
| 54 fcb C$LF | |
| 55 fcc " 0 1 2 3 4 5 6 7 0 2 4 6" | |
| 56 fcb C$LF | |
| 57 fcc "ADDR 8 9 A B C D E F 8 A C E"" | |
| 58 fcb C$CR | |
| 59 L00D1 fcc "==== +-+-+-+-+-+-+-+- + + + + " | |
| 60 fcb C$CR | |
| 61 | |
| 62 L00F0 lda ,x+ | |
| 21 | 63 cmpa #C$SPAC |
| 0 | 64 beq L00F0 |
| 21 | 65 leax -1,x |
| 66 cmpa #C$CR | |
| 0 | 67 rts |
| 68 | |
| 69 start lda #63 | |
| 70 sta <u000A | |
| 71 clr <u0000 | |
| 72 pshs y,x,b,a | |
| 73 lda #1 | |
| 74 ldb #SS.ScSiz | |
| 75 os9 I$GetStt get size of window | |
| 76 bcc L0115 | |
| 77 cmpb #E$UnkSvc | |
| 78 beq L0120 | |
| 79 puls y,x,b,a | |
| 80 lbra L01FE | |
| 81 L0115 cmpx #80 | |
| 82 beq L0120 | |
| 83 ldb #31 | |
| 84 stb <u000A | |
| 85 inc <u0000 | |
| 86 L0120 puls y,x,b,a | |
| 87 ldd #$0001 | |
| 88 std <u0001 | |
| 89 bsr L00F0 | |
| 90 beq L0147 | |
| 91 lda #READ. | |
| 92 os9 I$Open | |
| 93 lbcs L01FE | |
| 94 sta <u0001 | |
| 95 bsr L00F0 | |
| 96 beq L0147 | |
| 97 lda #WRITE. | |
| 21 | 98 ldb #PREAD.+UPDAT. |
| 0 | 99 os9 I$Create |
| 100 lbcs L01FE | |
| 101 sta <u0002 | |
| 102 L0147 ldd #$0000 | |
| 103 L014A std <u0003 | |
| 104 tst <u0000 | |
| 105 beq L0156 | |
| 106 bitb #$3F | |
| 107 bne L017D | |
| 108 bra L0159 | |
| 109 L0156 tstb | |
| 110 bne L017D | |
| 111 L0159 leax >L0090,pcr | |
| 112 lbsr L01EF | |
| 113 leax >L0012,pcr | |
| 114 tst <u0000 | |
| 115 beq L016C | |
| 116 leax >L0091,pcr | |
| 117 L016C lbsr L01EF | |
| 118 leax >L0051,pcr | |
| 119 tst <u0000 | |
| 120 beq L017B | |
| 121 leax >L00D1,pcr | |
| 122 L017B bsr L01EF | |
| 123 L017D leax <u001C,u | |
| 124 lda #$20 | |
| 125 ldb <u000A | |
| 126 L0184 sta ,x+ | |
| 127 decb | |
| 128 bne L0184 | |
| 129 leax <u001C,u | |
| 130 stx <u0006 | |
| 131 lda <u0003 | |
| 132 bsr L0201 | |
| 133 lda <u0004 | |
| 134 bsr L0201 | |
| 135 leax <u0022,u | |
| 136 stx <u0006 | |
| 137 leax <u004B,u | |
| 138 stx <u0008 | |
| 139 ldy #$0010 | |
| 140 tst <u0000 | |
| 141 beq L01B6 | |
| 142 leax <u0021,u | |
| 143 stx <u0006 | |
| 144 leax <u0032,u | |
| 145 stx <u0008 | |
| 146 ldy #$0008 | |
| 147 L01B6 leax u000C,u | |
| 148 lda <u0001 | |
| 149 os9 I$Read | |
| 150 bcs L01F9 | |
| 151 tfr y,d | |
| 152 stb <u0005 | |
| 153 L01C3 bsr L0223 | |
| 154 decb | |
| 155 beq L01D5 | |
| 156 bsr L0223 | |
| 157 tst <u0000 | |
| 158 bne L01D2 | |
| 159 lda #$20 | |
| 160 bsr L0219 | |
| 161 L01D2 decb | |
| 162 bne L01C3 | |
| 163 L01D5 lda #$0D | |
| 164 sta <u005B | |
| 165 tst <u0000 | |
| 166 beq L01DF | |
| 167 sta <u003A | |
| 168 L01DF leax <u001C,u | |
| 169 bsr L01EF | |
| 170 bcs L01FE | |
| 171 ldd <u0003 | |
| 172 addb <u0005 | |
| 173 adca #$00 | |
| 174 lbra L014A | |
| 175 L01EF ldy #$0050 | |
| 176 lda <u0002 | |
| 177 os9 I$WritLn | |
| 178 rts | |
| 179 L01F9 cmpb #E$EOF | |
| 180 bne L01FE | |
| 181 clrb | |
| 182 L01FE os9 F$Exit | |
| 183 L0201 pshs a | |
| 184 lsra | |
| 185 lsra | |
| 186 lsra | |
| 187 lsra | |
| 188 bsr L020F | |
| 189 lda ,s | |
| 190 bsr L020F | |
| 191 puls pc,a | |
| 192 L020F anda #$0F | |
| 193 cmpa #$09 | |
| 194 bls L0217 | |
| 195 adda #$07 | |
| 196 L0217 adda #$30 | |
| 197 L0219 pshs x | |
| 198 ldx <u0006 | |
| 199 sta ,x+ | |
| 200 stx <u0006 | |
| 201 puls pc,x | |
| 202 L0223 lda ,x+ | |
| 203 bsr L0201 | |
| 204 pshs x,a | |
| 205 anda #$7F | |
| 206 cmpa #$20 | |
| 207 bcs L0233 | |
| 208 cmpa #$7E | |
| 209 bcs L0235 | |
| 210 L0233 lda #$2E | |
| 211 L0235 ldx <u0008 | |
| 212 sta ,x+ | |
| 213 stx <u0008 | |
| 214 puls pc,x,a | |
| 215 | |
| 216 emod | |
| 217 eom equ * | |
| 218 end |