Mercurial > hg > Members > kono > nitros9-code

annotate level2/cmds/smap.asm @ 986:aebfc8992bfd

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Factored out what appears to be Level III code... was causing ERROR 207's under OS-9 Level Two
author boisy
date Mon, 17 Feb 2003 20:37:01 +0000
parents 53553cdc265c
children bf6f854a4299
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
965
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
1 ********************************************************************
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
2 * SMap - Show System Memory Map
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
3 *
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
4 * $Id$
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
5 *
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
6 * Ed. Comments Who YY/MM/DD
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
7 * ------------------------------------------------------------------
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
8 * 1 Original version
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
9
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
10 nam SMap
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
11 ttl Show System Memory Map
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
12
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
13 * Disassembled 02/05/12 22:05:11 by Disasm v1.6 (C) 1988 by RML
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
14
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
15 ifp1
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
16 use defsfile
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
17 endc
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
18
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
19 tylg set Prgrm+Objct
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
20 atrv set ReEnt+rev
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
21 rev set $01
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
22 edition set 1
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
23
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
24 mod eom,name,tylg,atrv,start,size
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
25
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
26 u0000 rmb 1
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
27 u0001 rmb 3
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
28 u0004 rmb 1
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
29 u0005 rmb 1
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
30 u0006 rmb 1
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
31 u0007 rmb 1
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
32 u0008 rmb 6
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
33 u000E rmb 1
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
34 u000F rmb 456
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
35 size equ .
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
36
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
37 name fcs /SMap/
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
38 fcb edition
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
39
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
40 H1 fcc " 0 1 2 3 4 5 6 7 8 9 A B C D E F"
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
41 fcb C$CR
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
42 H1L equ *-H1
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
43 H2 fcc " # = = = = = = = = = = = = = = = ="
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
44 fcb C$CR
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
45 H2L equ *-H2
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
46 L005A fcb $00,$00,$00,$00
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
47
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
48 start lbsr L0170
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
49 leax >H1,pcr
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
50 lda #$01
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
51 ldy #H1L
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
52 os9 I$WritLn
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
53 leax >H2,pcr
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
54 ldy #H2L
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
55 os9 I$Write
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
56 leax >L005A,pcr
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
57 tfr x,d
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
58 ldx #$004E
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
59 ldy #$0002
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
60 pshs u
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
61 leau u000F,u
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
62 os9 F$CpyMem
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
63 puls u
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
64 lbcs L013F
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
65 ldx u000F,u
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
66 ldy #$0100
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
67 pshs u
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
68 leau u000F,u
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
69 os9 F$CpyMem
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
70 puls u
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
71 lbcs L013F
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
72 clr <u000E
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
73 clr <u0004
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
74 leax u000F,u
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
75 lda #$30
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
76 sta <u0005
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
77 clr ,-s
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
78 L00B2 lda ,s
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
79 bita #$0F
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
80 bne L00DF
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
81 pshs x
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
82 lbsr L0170
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
83 leax u0006,u
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
84 ldy #$0004
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
85 lda <u0005
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
86 cmpa #$3A
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
87 bne L00CD
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
88 lda #$41
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
89 sta <u0005
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
90 L00CD sta <u0007
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
91 inc <u0005
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
92 ldd #$2020
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
93 sta <u0006
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
94 std <u0008
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
95 lda #$01
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
96 os9 I$Write
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
97 puls x
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
98 L00DF ldb ,x+
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
99 beq L00ED
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
100 bmi L00E9
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
101 ldb #$55
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
102 bra L00F1
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
103 L00E9 ldb #$2E
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
104 bra L00F1
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
105 L00ED ldb #$5F
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
106 inc <u0004
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
107 L00F1 stb <u0007
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
108 ldb #$20
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
109 stb <u0008
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
110 pshs x
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
111 leax u0007,u
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
112 ldy #$0002
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
113 lda #$01
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
114 os9 I$Write
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
115 puls x
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
116 dec ,s
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
117 lbhi L00B2
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
118 puls a
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
119 bsr L0170
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
120 bsr L0170
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
121 leax >FreePgs,pcr
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
122 ldy #FreePgsL
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
123 lda #$01
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
124 os9 I$Write
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
125 ldb <u0004
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
126 clra
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
127 lbsr L0194
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
128 bsr L0170
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
129 leax >FreeRAM,pcr
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
130 ldy #FreeRAML
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
131 lda #$01
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
132 os9 I$Write
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
133 ldb <u0004
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
134 clra
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
135 lsrb
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
136 lsrb
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
137 lbsr L0194
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
138 bsr L0170
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
139 clrb
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
140 L013F os9 F$Exit
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
141
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
142 FreePgs fcc " Number of Free Pages: "
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
143 FreePgsL equ *-FreePgs
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
144 FreeRAM fcc " Ram Free in KBytes: "
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
145 FreeRAML equ *-FreeRAM
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
146
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
147 L0170 pshs x,a
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
148 lda #C$CR
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
149 sta <u0007
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
150 leax u0007,u
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
151 ldy #$0001
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
152 lda #$01
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
153 os9 I$WritLn
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
154 puls pc,x,a
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
155 L0183 sta <u0007
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
156 pshs x
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
157 leax u0007,u
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
158 ldy #$0001
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
159 lda #$01
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
160 os9 I$Write
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
161 L0192 puls pc,x
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
162 L0194 leax u0001,u
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
163 clr <u0000
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
164 clr ,x
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
165 clr $01,x
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
166 clr $02,x
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
167 L019E inc ,x
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
168 subd #$0064
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
169 bcc L019E
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
170 addd #$0064
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
171 L01A8 inc $01,x
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
172 subd #$000A
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
173 bcc L01A8
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
174 L01AF addd #$000A
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
175 incb
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
176 stb $02,x
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
177 bsr L01BF
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
178 bsr L01BF
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
179 L01B9 lda ,x+
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
180 adda #$2F
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
181 bra L0183
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
182 L01BF tst <u0000
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
183 bne L01B9
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
184 ldb ,x
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
185 inc <u0000
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
186 decb
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
187 bne L01B9
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
188 clr <u0000
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
189 lda #C$SPAC
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
190 leax 1,x
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
191 bra L0183
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
192
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
193 emod
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
194 eom equ *
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
195 end
53553cdc265c New commands added to standard CMDS
boisy
parents:
diff changeset
196