|
0
|
1 ********************************************************************
|
|
|
2 * Dump - Show file contents in hex
|
|
|
3 *
|
|
|
4 * $Id$
|
|
|
5 *
|
|
|
6 * Ed. Comments Who YY/MM/DD
|
|
|
7 * ------------------------------------------------------------------
|
|
|
8 * 5 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 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
|
