|
0
|
1 ********************************************************************
|
|
|
2 * DMem - Dump memory from system
|
|
|
3 *
|
|
|
4 * $Id$
|
|
|
5 *
|
|
|
6 * Ed. Comments Who YY/MM/DD
|
|
|
7 * ------------------------------------------------------------------
|
|
|
8 * 2 Written by Kevin Darling
|
|
|
9
|
|
|
10 nam DMem
|
|
|
11 ttl Dump memory from system
|
|
|
12
|
|
|
13 * Disassembled 98/09/14 19:24:59 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 2
|
|
|
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 2
|
|
|
30 u0005 rmb 3
|
|
|
31 u0008 rmb 64
|
|
|
32 u0048 rmb 1
|
|
|
33 u0049 rmb 447
|
|
|
34 u0208 rmb 4296
|
|
|
35 size equ .
|
|
|
36
|
|
|
37 name fcs /DMem/
|
|
|
38 fcb edition
|
|
|
39
|
|
|
40 L0012 clr <u0000
|
|
|
41 clr <u0001
|
|
|
42 L0016 lda ,x+
|
|
|
43 cmpa #C$SPAC
|
|
|
44 beq L0046
|
|
|
45 cmpa #C$CR
|
|
|
46 beq L0046
|
|
|
47 suba #$30
|
|
|
48 cmpa #$0A
|
|
|
49 bcs L002A
|
|
|
50 anda #$07
|
|
|
51 adda #$09
|
|
|
52 L002A lsla
|
|
|
53 lsla
|
|
|
54 lsla
|
|
|
55 lsla
|
|
|
56 sta <u0002
|
|
|
57 ldd <u0000
|
|
|
58 rol <u0002
|
|
|
59 rolb
|
|
|
60 rola
|
|
|
61 rol <u0002
|
|
|
62 rolb
|
|
|
63 rola
|
|
|
64 rol <u0002
|
|
|
65 rolb
|
|
|
66 rola
|
|
|
67 rol <u0002
|
|
|
68 rolb
|
|
|
69 rola
|
|
|
70 std <u0000
|
|
|
71 bra L0016
|
|
|
72 L0046 leax -1,x
|
|
|
73 ldd <u0000
|
|
|
74 rts
|
|
|
75
|
|
|
76 start lbsr L0128
|
|
|
77 lbeq L0119
|
|
|
78 cmpa #'-
|
|
|
79 bne L006D
|
|
|
80 leax 1,x
|
|
|
81 bsr L0012
|
|
|
82 tfr b,a
|
|
|
83 pshs x
|
|
|
84 leax >u0008,u
|
|
|
85 os9 F$GPrDsc
|
|
|
86 lbcs L00BC
|
|
|
87 puls x
|
|
|
88 bra L0073
|
|
|
89 L006D bsr L0012
|
|
|
90 clr <u0048
|
|
|
91 stb <u0049
|
|
|
92 L0073 lbsr L0128
|
|
|
93 lbeq L0119
|
|
|
94 lbsr L0012
|
|
|
95 std <u0003
|
|
|
96 lbsr L0128
|
|
|
97 beq L0092
|
|
|
98 lbsr L0012
|
|
|
99 cmpd #$1000
|
|
|
100 bls L0095
|
|
|
101 ldd #$1000
|
|
|
102 bra L0095
|
|
|
103 L0092 ldd #$0100
|
|
|
104 L0095 std <u0005
|
|
|
105 leax >u0048,u
|
|
|
106 tfr x,d
|
|
|
107 ldy <u0005
|
|
|
108 ldx <u0003
|
|
|
109 pshs u
|
|
|
110 leau >u0208,u
|
|
|
111 os9 F$CpyMem
|
|
|
112 puls u
|
|
|
113 bcs L00BC
|
|
|
114 ldy <u0005
|
|
|
115 leax >u0208,u
|
|
|
116 lda #$01
|
|
|
117 os9 I$Write
|
|
|
118 L00BB clrb
|
|
|
119 L00BC os9 F$Exit
|
|
|
120
|
|
|
121 HelpTxt fcc "Use: DMem <block> <offset> [<length>] ! dump"
|
|
|
122 fcb C$LF
|
|
|
123 fcc " or: DMem -<id> <offset> [<length>] ! dump"
|
|
|
124 fcb C$CR
|
|
|
125 HelpTxtL equ *-HelpTxt
|
|
|
126
|
|
|
127 L0119 leax >HelpTxt,pcr
|
|
|
128 L011D ldy #HelpTxtL
|
|
|
129 lda #$02
|
|
|
130 os9 I$WritLn
|
|
|
131 bra L00BB
|
|
|
132 L0128 lda ,x+
|
|
|
133 cmpa #C$SPAC
|
|
|
134 beq L0128
|
|
|
135 leax -1,x
|
|
|
136 cmpa #C$CR
|
|
|
137 rts
|
|
|
138
|
|
|
139 emod
|
|
|
140 eom equ *
|
|
|
141 end
|
