Mercurial > hg > Members > kono > os9 > sbc09

comparison CoCoOS9/level2v3/CMDS/dump.asm @ 31:bd2b07db8917 cocoos9lv2v3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
CoCoOS9 version
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Sat, 14 Jul 2018 15:16:13 +0900
parents
children
comparison
equal deleted inserted replaced
30:7b1b25ff010a 31:bd2b07db8917
1 ********************************************************************
2 * Dump - Show file contents in hex
3 *
4 * $Id: dump.asm,v 1.1.1.1 2001/02/21 23:30:54 boisy Exp $
5 *
6 * Ed. Comments Who YY/MM/DD
7 * ------------------------------------------------------------------
8 * 6 Original Tandy distribution version
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 6
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+
63 cmpa #$20
64 beq L00F0
65 leax -$01,x
66 cmpa #$0D
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 #63
82 bge 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.
98 ldb #$0B
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