2017-08-26 22:37:54 +00:00
|
|
|
|
1 ********************************
|
|
|
|
|
|
2 *
|
|
|
|
|
|
3 * Apple][Sd Firmware
|
|
|
|
|
|
4 * Version 0.6
|
|
|
|
|
|
5 *
|
|
|
|
|
|
6 * (c) Florian Reitz, 2017
|
|
|
|
|
|
7 *
|
|
|
|
|
|
8 * X register usually contains SLOT16
|
|
|
|
|
|
9 * Y register is used for counting or SLOT
|
|
|
|
|
|
10 *
|
|
|
|
|
|
11 ********************************
|
2017-08-27 13:02:58 +00:00
|
|
|
|
12
|
2017-10-03 15:46:50 +00:00
|
|
|
|
3-OCT-17 17:26
|
2017-08-27 13:02:58 +00:00
|
|
|
|
14
|
2017-08-26 22:37:54 +00:00
|
|
|
|
15 XC ; enable 65C02 code
|
2017-08-27 13:02:58 +00:00
|
|
|
|
16 DEBUG = 0
|
|
|
|
|
|
17 DO DEBUG
|
|
|
|
|
|
18 ORG $8000
|
|
|
|
|
|
19 ELSE
|
2017-08-26 22:37:54 +00:00
|
|
|
|
20 ORG $C800 ; Expansion ROM
|
2017-08-27 13:02:58 +00:00
|
|
|
|
21 FIN
|
|
|
|
|
|
22
|
2017-08-26 22:37:54 +00:00
|
|
|
|
23 * Memory defines
|
2017-08-27 13:02:58 +00:00
|
|
|
|
24
|
2017-08-26 22:37:54 +00:00
|
|
|
|
25 SLOT16 = $2B ; $s0 -> slot * 16
|
2017-08-27 13:02:58 +00:00
|
|
|
|
26 WORK = $3C
|
2017-08-26 22:37:54 +00:00
|
|
|
|
27 SLOT = $3D ; $0s
|
2017-08-27 13:02:58 +00:00
|
|
|
|
28 CMDLO = $40
|
|
|
|
|
|
29 CMDHI = $41
|
|
|
|
|
|
30
|
2017-08-26 22:37:54 +00:00
|
|
|
|
31 CURSLOT = $07F8 ; $Cs
|
2017-08-27 13:02:58 +00:00
|
|
|
|
32 DATA = $C080
|
|
|
|
|
|
33 CTRL = DATA+1
|
|
|
|
|
|
34 DIV = DATA+2
|
|
|
|
|
|
35 SS = DATA+3
|
|
|
|
|
|
36 R30 = $0478
|
|
|
|
|
|
37 R31 = $04F8
|
|
|
|
|
|
38 R32 = $0578
|
|
|
|
|
|
39 R33 = $05F8
|
|
|
|
|
|
40
|
|
|
|
|
|
41 * Constants
|
|
|
|
|
|
42
|
|
|
|
|
|
43 DUMMY = $FF
|
|
|
|
|
|
44 FRX = $10 ; CTRL register
|
|
|
|
|
|
45 ECE = $04
|
|
|
|
|
|
46 SS0 = $01 ; SS register
|
|
|
|
|
|
47 WP = $20
|
2017-09-09 18:34:24 +00:00
|
|
|
|
48 CD = $40
|
2017-08-27 13:02:58 +00:00
|
|
|
|
49 INITED = $80
|
|
|
|
|
|
50
|
|
|
|
|
|
51
|
|
|
|
|
|
52 * signature bytes
|
|
|
|
|
|
53
|
|
|
|
|
|
C800: A2 20 54 LDX #$20
|
|
|
|
|
|
C802: A0 00 55 LDY #$00
|
|
|
|
|
|
C804: A2 03 56 LDX #$03
|
2017-10-03 15:46:50 +00:00
|
|
|
|
C806: A0 FF 57 LDY #$FF ; neither 5.25 nor Smartport
|
2017-08-27 13:02:58 +00:00
|
|
|
|
58
|
|
|
|
|
|
59 * find slot nr
|
|
|
|
|
|
60
|
|
|
|
|
|
61 DO DEBUG
|
|
|
|
|
|
62 LDA #$04
|
|
|
|
|
|
63 STA SLOT
|
|
|
|
|
|
64 LDA #$C4
|
|
|
|
|
|
65 STA CURSLOT
|
|
|
|
|
|
66 LDA #$40
|
|
|
|
|
|
67 STA SLOT16
|
2017-09-09 18:34:24 +00:00
|
|
|
|
68
|
|
|
|
|
|
69 ELSE
|
|
|
|
|
|
C808: 20 58 FF 70 JSR $FF58
|
|
|
|
|
|
C80B: BA 71 TSX
|
|
|
|
|
|
C80C: BD 00 01 72 LDA $0100,X
|
|
|
|
|
|
C80F: 8D F8 07 73 STA CURSLOT ; $Cs
|
|
|
|
|
|
C812: 29 0F 74 AND #$0F
|
|
|
|
|
|
C814: 85 3D 75 STA SLOT ; $0s
|
|
|
|
|
|
C816: 0A 76 ASL A
|
|
|
|
|
|
C817: 0A 77 ASL A
|
|
|
|
|
|
C818: 0A 78 ASL A
|
|
|
|
|
|
C819: 0A 79 ASL A
|
|
|
|
|
|
C81A: 85 2B 80 STA SLOT16 ; $s0
|
2017-08-27 13:02:58 +00:00
|
|
|
|
81 FIN
|
2017-09-09 18:34:24 +00:00
|
|
|
|
82
|
|
|
|
|
|
C81C: AA 83 TAX ; X holds now SLOT16
|
|
|
|
|
|
C81D: 2C FF CF 84 BIT $CFFF
|
2017-10-03 15:46:50 +00:00
|
|
|
|
C820: 20 AE CA 85 JSR CARDDET
|
2017-09-09 18:34:24 +00:00
|
|
|
|
C823: 90 03 86 BCC :INIT
|
|
|
|
|
|
C825: A9 27 87 LDA #$27 ; no card inserted
|
|
|
|
|
|
C827: 00 88 BRK
|
|
|
|
|
|
89
|
|
|
|
|
|
C828: 20 00 C9 90 :INIT JSR INIT
|
|
|
|
|
|
91
|
|
|
|
|
|
92
|
|
|
|
|
|
93 ********************************
|
2017-08-27 13:02:58 +00:00
|
|
|
|
94 *
|
2017-09-09 18:34:24 +00:00
|
|
|
|
95 * Install SD card driver
|
|
|
|
|
|
96 *
|
|
|
|
|
|
97 ********************************
|
2017-08-27 13:02:58 +00:00
|
|
|
|
98
|
2017-09-09 18:34:24 +00:00
|
|
|
|
99 DO DEBUG
|
2017-08-27 13:02:58 +00:00
|
|
|
|
100
|
2017-09-09 18:34:24 +00:00
|
|
|
|
101 * see if slot has a driver already
|
|
|
|
|
|
102
|
|
|
|
|
|
103 LDX $BF31 ; get devcnt
|
|
|
|
|
|
104 INSTALL LDA $BF32,X ; get a devnum
|
|
|
|
|
|
105 AND #$70 ; isolate slot
|
|
|
|
|
|
106 CMP SLOT16 ; slot?
|
|
|
|
|
|
107 BEQ :INSOUT ; yes, skip it
|
|
|
|
|
|
108 DEX
|
|
|
|
|
|
109 BPL INSTALL ; keep up the search
|
2017-08-27 13:02:58 +00:00
|
|
|
|
110
|
2017-09-09 18:34:24 +00:00
|
|
|
|
111 * restore the devnum to the list
|
|
|
|
|
|
112
|
|
|
|
|
|
113 LDX $BF31 ; get devcnt again
|
|
|
|
|
|
114 CPX #$0D ; device table full?
|
|
|
|
|
|
115 BNE :INST2
|
|
|
|
|
|
116
|
|
|
|
|
|
117 JSR $FF3A ; bell
|
|
|
|
|
|
118 JMP :INSOUT ; do something!
|
|
|
|
|
|
119
|
|
|
|
|
|
120 :INST2 LDA $BF32-1,X ; move all entries down
|
|
|
|
|
|
121 STA $BF32,X ; to make room at front
|
|
|
|
|
|
122 DEX ; for a new entry
|
|
|
|
|
|
123 BNE :INST2
|
|
|
|
|
|
124 LDA #$04 ; ProFile type device
|
|
|
|
|
|
125 ORA SLOT16
|
|
|
|
|
|
126 STA $BF32 ; slot, drive 1 at top of list
|
|
|
|
|
|
127 INC $BF31 ; update devcnt
|
2017-08-27 13:02:58 +00:00
|
|
|
|
128
|
2017-09-09 18:34:24 +00:00
|
|
|
|
129 * now insert the device driver vector
|
|
|
|
|
|
130
|
|
|
|
|
|
131 LDA SLOT
|
|
|
|
|
|
132 ASL
|
|
|
|
|
|
133 TAX
|
|
|
|
|
|
134 LDA #<DRIVER
|
|
|
|
|
|
135 STA $BF10,X ; write to driver table
|
|
|
|
|
|
136 LDA #>DRIVER
|
|
|
|
|
|
137 STA $BF11,X
|
|
|
|
|
|
138 :INSOUT RTS
|
|
|
|
|
|
139
|
|
|
|
|
|
140
|
|
|
|
|
|
141 ********************************
|
2017-08-27 13:02:58 +00:00
|
|
|
|
142 *
|
2017-09-09 18:34:24 +00:00
|
|
|
|
143 * Boot from SD card
|
|
|
|
|
|
144 *
|
|
|
|
|
|
145 ********************************
|
2017-08-27 13:02:58 +00:00
|
|
|
|
146
|
2017-09-09 18:34:24 +00:00
|
|
|
|
147 ELSE
|
|
|
|
|
|
148
|
|
|
|
|
|
C82B: C9 00 149 BOOT CMP #0 ; check for error
|
|
|
|
|
|
C82D: F0 01 150 BEQ :BOOT1
|
|
|
|
|
|
C82F: 00 151 BRK
|
|
|
|
|
|
152
|
|
|
|
|
|
C830: A9 01 153 :BOOT1 LDA #$01
|
|
|
|
|
|
C832: 85 42 154 STA $42 ; load command
|
|
|
|
|
|
C834: A5 2B 155 LDA SLOT16
|
|
|
|
|
|
C836: AA 156 TAX
|
|
|
|
|
|
C837: 85 43 157 STA $43 ; slot number
|
|
|
|
|
|
C839: 64 44 158 STZ $44 ; buffer lo
|
|
|
|
|
|
C83B: A9 08 159 LDA #$08
|
|
|
|
|
|
C83D: 85 45 160 STA $45 ; buffer hi
|
|
|
|
|
|
C83F: 64 46 161 STZ $46 ; block lo
|
|
|
|
|
|
C841: 64 47 162 STZ $47 ; block hi
|
|
|
|
|
|
C843: 2C FF CF 163 BIT $CFFF
|
2017-10-03 15:46:50 +00:00
|
|
|
|
C846: 20 DD CA 164 JSR READ ; call driver
|
2017-09-09 18:34:24 +00:00
|
|
|
|
C849: 4C 01 08 165 JMP $801 ; goto bootloader
|
|
|
|
|
|
166
|
|
|
|
|
|
167 FIN
|
|
|
|
|
|
168
|
2017-08-27 13:02:58 +00:00
|
|
|
|
169
|
2017-09-09 18:34:24 +00:00
|
|
|
|
170 ********************************
|
|
|
|
|
|
171 *
|
|
|
|
|
|
172 * Jump table
|
|
|
|
|
|
173 *
|
|
|
|
|
|
174 ********************************
|
|
|
|
|
|
175
|
|
|
|
|
|
C84C: D8 176 DRIVER CLD
|
|
|
|
|
|
177
|
|
|
|
|
|
178 DO DEBUG
|
|
|
|
|
|
179 LDA #$04
|
|
|
|
|
|
180 STA SLOT
|
|
|
|
|
|
181 LDA #$C4
|
|
|
|
|
|
182 STA CURSLOT
|
|
|
|
|
|
183 LDA #$40
|
|
|
|
|
|
184 STA SLOT16
|
|
|
|
|
|
185
|
|
|
|
|
|
186 ELSE
|
|
|
|
|
|
C84D: 20 58 FF 187 JSR $FF58 ; find slot nr
|
|
|
|
|
|
C850: BA 188 TSX
|
|
|
|
|
|
C851: BD 00 01 189 LDA $0100,X
|
|
|
|
|
|
C854: 8D F8 07 190 STA CURSLOT ; $Cs
|
|
|
|
|
|
C857: 29 0F 191 AND #$0F
|
|
|
|
|
|
C859: 85 3D 192 STA SLOT ; $0s
|
|
|
|
|
|
C85B: 0A 193 ASL A
|
|
|
|
|
|
C85C: 0A 194 ASL A
|
|
|
|
|
|
C85D: 0A 195 ASL A
|
|
|
|
|
|
C85E: 0A 196 ASL A
|
|
|
|
|
|
C85F: 85 2B 197 STA SLOT16 ; $s0
|
|
|
|
|
|
198 FIN
|
|
|
|
|
|
199
|
|
|
|
|
|
C861: AA 200 TAX ; X holds now SLOT16
|
|
|
|
|
|
C862: 2C FF CF 201 BIT $CFFF
|
2017-10-03 15:46:50 +00:00
|
|
|
|
C865: 20 AE CA 202 JSR CARDDET
|
2017-09-09 18:34:24 +00:00
|
|
|
|
C868: 90 04 203 BCC :INITED
|
|
|
|
|
|
C86A: A9 27 204 LDA #$27 ; no card inserted
|
|
|
|
|
|
C86C: 80 1B 205 BRA :DONE
|
|
|
|
|
|
206
|
|
|
|
|
|
C86E: A9 80 207 :INITED LDA #INITED ; check for init
|
|
|
|
|
|
C870: 3C 83 C0 208 BIT SS,X
|
|
|
|
|
|
C873: F0 22 209 BEQ :INIT
|
|
|
|
|
|
210
|
|
|
|
|
|
C875: A5 42 211 :CMD LDA $42 ; get command
|
|
|
|
|
|
C877: C9 00 212 CMP #0
|
|
|
|
|
|
C879: F0 10 213 BEQ :STATUS
|
|
|
|
|
|
C87B: C9 01 214 CMP #1
|
|
|
|
|
|
C87D: F0 0F 215 BEQ :READ
|
|
|
|
|
|
C87F: C9 02 216 CMP #2
|
|
|
|
|
|
C881: F0 0E 217 BEQ :WRITE
|
|
|
|
|
|
C883: C9 03 218 CMP #3
|
|
|
|
|
|
C885: F0 0D 219 BEQ :FORMAT
|
|
|
|
|
|
C887: A9 01 220 LDA #1 ; unknown command
|
2017-08-27 13:02:58 +00:00
|
|
|
|
221
|
2017-09-09 18:34:24 +00:00
|
|
|
|
C889: 38 222 :DONE SEC
|
|
|
|
|
|
C88A: 60 223 RTS
|
|
|
|
|
|
224
|
2017-10-03 15:46:50 +00:00
|
|
|
|
C88B: 4C C6 CA 225 :STATUS JMP STATUS
|
|
|
|
|
|
C88E: 4C DD CA 226 :READ JMP READ
|
|
|
|
|
|
C891: 4C 4B CB 227 :WRITE JMP WRITE
|
|
|
|
|
|
C894: 4C C1 CB 228 :FORMAT JMP FORMAT
|
2017-09-09 18:34:24 +00:00
|
|
|
|
C897: 20 00 C9 229 :INIT JSR INIT
|
2017-10-03 15:46:50 +00:00
|
|
|
|
C89A: B0 ED 230 BCS :DONE ; init failure
|
|
|
|
|
|
C89C: 80 D7 231 BRA :CMD
|
2017-09-09 18:34:24 +00:00
|
|
|
|
232
|
2017-10-03 15:46:50 +00:00
|
|
|
|
233
|
|
|
|
|
|
234 * Signature bytes
|
|
|
|
|
|
235
|
|
|
|
|
|
C89E: 00 00 00 236 DS \ ; fill with zeroes
|
|
|
|
|
|
C8A1: 00 00 00 00
|
|
|
|
|
|
C8A5: 00 00 00 00
|
|
|
|
|
|
C8A9: 00 00 00 00
|
|
|
|
|
|
C8AD: 00 00 00 00
|
|
|
|
|
|
C8B1: 00 00 00 00
|
|
|
|
|
|
C8B5: 00 00 00 00
|
|
|
|
|
|
C8B9: 00 00 00 00
|
|
|
|
|
|
C8BD: 00 00 00 00
|
|
|
|
|
|
C8C1: 00 00 00 00
|
|
|
|
|
|
C8C5: 00 00 00 00
|
|
|
|
|
|
C8C9: 00 00 00 00
|
|
|
|
|
|
C8CD: 00 00 00 00
|
|
|
|
|
|
C8D1: 00 00 00 00
|
|
|
|
|
|
C8D5: 00 00 00 00
|
|
|
|
|
|
C8D9: 00 00 00 00
|
|
|
|
|
|
C8DD: 00 00 00 00
|
|
|
|
|
|
C8E1: 00 00 00 00
|
|
|
|
|
|
C8E5: 00 00 00 00
|
|
|
|
|
|
C8E9: 00 00 00 00
|
|
|
|
|
|
C8ED: 00 00 00 00
|
|
|
|
|
|
C8F1: 00 00 00 00
|
|
|
|
|
|
C8F5: 00 00 00 00
|
|
|
|
|
|
C8F9: 00 00 00 00
|
|
|
|
|
|
C8FD: 00 00 00
|
|
|
|
|
|
237 DS -4 ; locate to $xxFC
|
|
|
|
|
|
C8FC: FF FF 238 DW $FFFF ; 65535 blocks
|
|
|
|
|
|
C8FE: 17 239 DB $17 ; Status bits
|
|
|
|
|
|
C8FF: 4C 240 DB #<DRIVER ; LSB of driver
|
2017-09-09 18:34:24 +00:00
|
|
|
|
241
|
2017-10-03 15:46:50 +00:00
|
|
|
|
242
|
|
|
|
|
|
243 ********************************
|
|
|
|
|
|
244 *
|
|
|
|
|
|
245 * Initialize SD card
|
|
|
|
|
|
246 *
|
|
|
|
|
|
247 * C Clear - No error
|
|
|
|
|
|
248 * Set - Error
|
|
|
|
|
|
249 * A $00 - No error
|
|
|
|
|
|
250 * $27 - I/O error - Init failed
|
|
|
|
|
|
251 * $2F - No card inserted
|
|
|
|
|
|
252 *
|
|
|
|
|
|
253 ********************************
|
|
|
|
|
|
254
|
|
|
|
|
|
C900: D8 255 INIT CLD
|
|
|
|
|
|
C901: A9 03 256 LDA #$03 ; set SPI mode 3
|
|
|
|
|
|
C903: 9D 81 C0 257 STA CTRL,X
|
|
|
|
|
|
C906: BD 83 C0 258 LDA SS,X
|
|
|
|
|
|
C909: 09 01 259 ORA #SS0 ; set CS high
|
|
|
|
|
|
C90B: 9D 83 C0 260 STA SS,X
|
|
|
|
|
|
C90E: A9 07 261 LDA #7
|
|
|
|
|
|
C910: 9D 82 C0 262 STA DIV,X
|
|
|
|
|
|
C913: A0 0A 263 LDY #10
|
|
|
|
|
|
C915: A9 FF 264 LDA #DUMMY
|
|
|
|
|
|
265
|
|
|
|
|
|
C917: 9D 80 C0 266 :LOOP STA DATA,X
|
|
|
|
|
|
C91A: 3C 81 C0 267 :WAIT BIT CTRL,X
|
|
|
|
|
|
C91D: 10 FB 268 BPL :WAIT
|
|
|
|
|
|
C91F: 88 269 DEY
|
|
|
|
|
|
C920: D0 F5 270 BNE :LOOP ; do 10 times
|
|
|
|
|
|
C922: BD 83 C0 271 LDA SS,X
|
|
|
|
|
|
C925: 29 FE 272 AND #$FF!SS0 ; set CS low
|
|
|
|
|
|
C927: 9D 83 C0 273 STA SS,X
|
|
|
|
|
|
274
|
|
|
|
|
|
C92A: A9 C5 275 LDA #<CMD0 ; send CMD0
|
|
|
|
|
|
C92C: 85 40 276 STA CMDLO
|
|
|
|
|
|
C92E: A9 CB 277 LDA #>CMD0
|
|
|
|
|
|
C930: 85 41 278 STA CMDHI
|
|
|
|
|
|
C932: 20 F0 C9 279 JSR CMD
|
|
|
|
|
|
C935: 20 04 CA 280 JSR GETR1 ; get response
|
|
|
|
|
|
C938: C9 01 281 CMP #$01
|
|
|
|
|
|
C93A: D0 39 282 BNE :ERROR1 ; error!
|
|
|
|
|
|
283
|
|
|
|
|
|
C93C: A9 D1 284 LDA #<CMD8 ; send CMD8
|
|
|
|
|
|
C93E: 85 40 285 STA CMDLO
|
|
|
|
|
|
C940: A9 CB 286 LDA #>CMD8
|
|
|
|
|
|
C942: 85 41 287 STA CMDHI
|
|
|
|
|
|
C944: 20 F0 C9 288 JSR CMD
|
|
|
|
|
|
C947: 20 1F CA 289 JSR GETR3
|
|
|
|
|
|
C94A: C9 01 290 CMP #$01
|
|
|
|
|
|
C94C: D0 2A 291 BNE :SDV1 ; may be SD Ver. 1
|
|
|
|
|
|
292
|
|
|
|
|
|
293 * check for $01aa match!
|
|
|
|
|
|
C94E: A9 DD 294 :SDV2 LDA #<CMD55
|
|
|
|
|
|
C950: 85 40 295 STA CMDLO
|
|
|
|
|
|
C952: A9 CB 296 LDA #>CMD55
|
|
|
|
|
|
C954: 85 41 297 STA CMDHI
|
|
|
|
|
|
C956: 20 F0 C9 298 JSR CMD
|
|
|
|
|
|
C959: 20 04 CA 299 JSR GETR1
|
|
|
|
|
|
C95C: A9 E3 300 LDA #<ACMD4140
|
|
|
|
|
|
C95E: 85 40 301 STA CMDLO
|
|
|
|
|
|
C960: A9 CB 302 LDA #>ACMD4140
|
|
|
|
|
|
C962: 85 41 303 STA CMDHI
|
|
|
|
|
|
C964: 20 F0 C9 304 JSR CMD
|
|
|
|
|
|
C967: 20 04 CA 305 JSR GETR1
|
|
|
|
|
|
C96A: C9 01 306 CMP #$01
|
|
|
|
|
|
C96C: F0 E0 307 BEQ :SDV2 ; wait for ready
|
|
|
|
|
|
C96E: C9 00 308 CMP #$00
|
|
|
|
|
|
C970: D0 03 309 BNE :ERROR1 ; error!
|
|
|
|
|
|
310 * send CMD58
|
|
|
|
|
|
311 * SD Ver. 2 initialized!
|
|
|
|
|
|
C972: 4C B2 C9 312 JMP :BLOCKSZ
|
|
|
|
|
|
313
|
|
|
|
|
|
C975: 4C DE C9 314 :ERROR1 JMP :IOERROR ; needed for far jump
|
|
|
|
|
|
315
|
|
|
|
|
|
C978: A9 DD 316 :SDV1 LDA #<CMD55
|
|
|
|
|
|
C97A: 85 40 317 STA CMDLO
|
|
|
|
|
|
C97C: A9 CB 318 LDA #>CMD55
|
|
|
|
|
|
C97E: 85 41 319 STA CMDHI
|
|
|
|
|
|
C980: 20 F0 C9 320 JSR CMD ; ignore response
|
|
|
|
|
|
C983: A9 E9 321 LDA #<ACMD410
|
|
|
|
|
|
C985: 85 40 322 STA CMDLO
|
|
|
|
|
|
C987: A9 CB 323 LDA #>ACMD410
|
|
|
|
|
|
C989: 85 41 324 STA CMDHI
|
|
|
|
|
|
C98B: 20 F0 C9 325 JSR CMD
|
|
|
|
|
|
C98E: 20 04 CA 326 JSR GETR1
|
|
|
|
|
|
C991: C9 01 327 CMP #$01
|
|
|
|
|
|
C993: F0 E3 328 BEQ :SDV1 ; wait for ready
|
|
|
|
|
|
C995: C9 00 329 CMP #$00
|
|
|
|
|
|
C997: D0 03 330 BNE :MMC ; may be MMC card
|
|
|
|
|
|
331 * SD Ver. 1 initialized!
|
|
|
|
|
|
C999: 4C B2 C9 332 JMP :BLOCKSZ
|
|
|
|
|
|
333
|
|
|
|
|
|
C99C: A9 CB 334 :MMC LDA #<CMD1
|
|
|
|
|
|
C99E: 85 40 335 STA CMDLO
|
|
|
|
|
|
C9A0: A9 CB 336 LDA #>CMD1
|
|
|
|
|
|
C9A2: 85 41 337 STA CMDHI
|
|
|
|
|
|
C9A4: 20 F0 C9 338 :LOOP1 JSR CMD
|
|
|
|
|
|
C9A7: 20 04 CA 339 JSR GETR1
|
|
|
|
|
|
C9AA: C9 01 340 CMP #$01
|
|
|
|
|
|
C9AC: F0 F6 341 BEQ :LOOP1 ; wait for ready
|
|
|
|
|
|
C9AE: C9 00 342 CMP #$00
|
|
|
|
|
|
C9B0: D0 2C 343 BNE :IOERROR ; error!
|
|
|
|
|
|
344 * MMC Ver. 3 initialized!
|
|
|
|
|
|
345
|
|
|
|
|
|
C9B2: A9 D7 346 :BLOCKSZ LDA #<CMD16
|
|
|
|
|
|
C9B4: 85 40 347 STA CMDLO
|
|
|
|
|
|
C9B6: A9 CB 348 LDA #>CMD16
|
|
|
|
|
|
C9B8: 85 41 349 STA CMDHI
|
|
|
|
|
|
C9BA: 20 F0 C9 350 JSR CMD
|
|
|
|
|
|
C9BD: 20 04 CA 351 JSR GETR1
|
|
|
|
|
|
C9C0: C9 00 352 CMP #$00
|
|
|
|
|
|
C9C2: D0 1A 353 BNE :IOERROR ; error!
|
|
|
|
|
|
354
|
|
|
|
|
|
C9C4: BD 83 C0 355 :END LDA SS,X
|
|
|
|
|
|
C9C7: 09 80 356 ORA #INITED ; initialized
|
|
|
|
|
|
C9C9: 9D 83 C0 357 STA SS,X
|
|
|
|
|
|
C9CC: BD 81 C0 358 LDA CTRL,X
|
|
|
|
|
|
C9CF: 09 04 359 ORA #ECE ; enable 7MHz
|
|
|
|
|
|
C9D1: 9D 81 C0 360 STA CTRL,X
|
|
|
|
|
|
C9D4: 18 361 CLC ; all ok
|
|
|
|
|
|
C9D5: A0 00 362 LDY #0
|
|
|
|
|
|
C9D7: 90 08 363 BCC :END1
|
|
|
|
|
|
C9D9: 38 364 :CDERROR SEC
|
|
|
|
|
|
C9DA: A0 2F 365 LDY #$2F ; no card error
|
|
|
|
|
|
C9DC: B0 03 366 BCS :END1
|
|
|
|
|
|
C9DE: 38 367 :IOERROR SEC
|
|
|
|
|
|
C9DF: A0 27 368 LDY #$27 ; init error
|
|
|
|
|
|
C9E1: BD 83 C0 369 :END1 LDA SS,X ; set CS high
|
|
|
|
|
|
C9E4: 09 01 370 ORA #SS0
|
|
|
|
|
|
C9E6: 9D 83 C0 371 STA SS,X
|
|
|
|
|
|
C9E9: A9 00 372 LDA #0 ; set div to 2
|
|
|
|
|
|
C9EB: 9D 82 C0 373 STA DIV,X
|
|
|
|
|
|
C9EE: 98 374 TYA ; retval in A
|
|
|
|
|
|
C9EF: 60 375 RTS
|
2017-09-09 18:34:24 +00:00
|
|
|
|
376
|
|
|
|
|
|
377
|
|
|
|
|
|
378 ********************************
|
|
|
|
|
|
379 *
|
|
|
|
|
|
380 * Send SD command
|
|
|
|
|
|
381 * Call with command in CMDHI and CMDLO
|
|
|
|
|
|
382 *
|
|
|
|
|
|
383 ********************************
|
2017-08-27 13:02:58 +00:00
|
|
|
|
384
|
2017-10-03 15:46:50 +00:00
|
|
|
|
C9F0: 5A 385 CMD PHY
|
|
|
|
|
|
C9F1: A0 00 386 LDY #0
|
|
|
|
|
|
C9F3: B1 40 387 :LOOP LDA (CMDLO),Y
|
|
|
|
|
|
C9F5: 9D 80 C0 388 STA DATA,X
|
|
|
|
|
|
C9F8: 3C 81 C0 389 :WAIT BIT CTRL,X ; TC is in N
|
|
|
|
|
|
C9FB: 10 FB 390 BPL :WAIT
|
|
|
|
|
|
C9FD: C8 391 INY
|
|
|
|
|
|
C9FE: C0 06 392 CPY #6
|
|
|
|
|
|
CA00: 90 F1 393 BCC :LOOP
|
|
|
|
|
|
CA02: 7A 394 PLY
|
|
|
|
|
|
CA03: 60 395 RTS
|
2017-09-09 18:34:24 +00:00
|
|
|
|
396
|
|
|
|
|
|
397
|
|
|
|
|
|
398 ********************************
|
|
|
|
|
|
399 *
|
|
|
|
|
|
400 * Get R1
|
|
|
|
|
|
401 * R1 is in A
|
|
|
|
|
|
402 *
|
|
|
|
|
|
403 ********************************
|
2017-08-27 13:02:58 +00:00
|
|
|
|
404
|
2017-10-03 15:46:50 +00:00
|
|
|
|
CA04: A9 FF 405 GETR1 LDA #DUMMY
|
|
|
|
|
|
CA06: 9D 80 C0 406 STA DATA,X
|
|
|
|
|
|
CA09: 3C 81 C0 407 :WAIT BIT CTRL,X
|
|
|
|
|
|
CA0C: 10 FB 408 BPL :WAIT
|
|
|
|
|
|
CA0E: BD 80 C0 409 LDA DATA,X ; get response
|
|
|
|
|
|
CA11: 85 3C 410 STA WORK ; save R1
|
|
|
|
|
|
CA13: 29 80 411 AND #$80
|
|
|
|
|
|
CA15: D0 ED 412 BNE GETR1 ; wait for MSB=0
|
|
|
|
|
|
CA17: A9 FF 413 LDA #DUMMY
|
|
|
|
|
|
CA19: 9D 80 C0 414 STA DATA,X ; send another dummy
|
|
|
|
|
|
CA1C: A5 3C 415 LDA WORK ; restore R1
|
|
|
|
|
|
CA1E: 60 416 RTS
|
2017-09-09 18:34:24 +00:00
|
|
|
|
417
|
|
|
|
|
|
418
|
|
|
|
|
|
419 ********************************
|
|
|
|
|
|
420 *
|
|
|
|
|
|
421 * Get R3
|
|
|
|
|
|
422 * R1 is in A
|
|
|
|
|
|
423 * R3 is in scratchpad ram
|
|
|
|
|
|
424 *
|
|
|
|
|
|
425 ********************************
|
|
|
|
|
|
426
|
2017-10-03 15:46:50 +00:00
|
|
|
|
CA1F: 20 04 CA 427 GETR3 JSR GETR1 ; get R1 first
|
|
|
|
|
|
CA22: 48 428 PHA ; save R1
|
|
|
|
|
|
CA23: 5A 429 PHY ; save Y
|
|
|
|
|
|
CA24: A0 04 430 LDY #04 ; load counter
|
|
|
|
|
|
CA26: A9 FF 431 :LOOP LDA #DUMMY ; send dummy
|
|
|
|
|
|
CA28: 9D 80 C0 432 STA DATA,X
|
|
|
|
|
|
CA2B: 3C 81 C0 433 :WAIT BIT CTRL,X
|
|
|
|
|
|
CA2E: 10 FB 434 BPL :WAIT
|
|
|
|
|
|
CA30: BD 80 C0 435 LDA DATA,X
|
|
|
|
|
|
CA33: 48 436 PHA
|
|
|
|
|
|
CA34: 88 437 DEY
|
|
|
|
|
|
CA35: D0 EF 438 BNE :LOOP ; do 4 times
|
|
|
|
|
|
CA37: A4 3D 439 LDY SLOT
|
|
|
|
|
|
CA39: 68 440 PLA
|
|
|
|
|
|
CA3A: 99 F8 05 441 STA R33,Y ; save R3
|
|
|
|
|
|
CA3D: 68 442 PLA
|
|
|
|
|
|
CA3E: 99 78 05 443 STA R32,Y
|
|
|
|
|
|
CA41: 68 444 PLA
|
|
|
|
|
|
CA42: 99 F8 04 445 STA R31,Y
|
|
|
|
|
|
CA45: 68 446 PLA
|
|
|
|
|
|
CA46: 99 78 04 447 STA R30,Y
|
|
|
|
|
|
CA49: 7A 448 PLY ; restore Y
|
|
|
|
|
|
CA4A: A9 FF 449 LDA #DUMMY
|
|
|
|
|
|
CA4C: 9D 80 C0 450 STA DATA,X ; send another dummy
|
|
|
|
|
|
CA4F: 68 451 PLA ; restore R1
|
|
|
|
|
|
CA50: 60 452 RTS
|
2017-09-09 18:34:24 +00:00
|
|
|
|
453
|
|
|
|
|
|
454
|
|
|
|
|
|
455 ********************************
|
|
|
|
|
|
456 *
|
|
|
|
|
|
457 * Calculate block address
|
|
|
|
|
|
458 * Unit number is in $43 DSSS0000
|
|
|
|
|
|
459 * Block no is in $46-47
|
|
|
|
|
|
460 * Address is in R30-R33
|
|
|
|
|
|
461 *
|
|
|
|
|
|
462 ********************************
|
|
|
|
|
|
463
|
2017-10-03 15:46:50 +00:00
|
|
|
|
CA51: DA 464 BLOCK PHX ; save X
|
|
|
|
|
|
CA52: 5A 465 PHY ; save Y
|
|
|
|
|
|
CA53: A6 3D 466 LDX SLOT
|
|
|
|
|
|
CA55: A5 46 467 LDA $46 ; store block num
|
|
|
|
|
|
CA57: 9D F8 05 468 STA R33,X ; in R30-R33
|
|
|
|
|
|
CA5A: A5 47 469 LDA $47
|
|
|
|
|
|
CA5C: 9D 78 05 470 STA R32,X
|
|
|
|
|
|
CA5F: A9 00 471 LDA #0
|
|
|
|
|
|
CA61: 9D F8 04 472 STA R31,X
|
|
|
|
|
|
CA64: 9D 78 04 473 STA R30,X
|
2017-09-09 18:34:24 +00:00
|
|
|
|
474
|
2017-10-03 15:46:50 +00:00
|
|
|
|
CA67: A9 80 475 LDA #$80 ; drive number
|
|
|
|
|
|
CA69: 24 43 476 BIT $43
|
|
|
|
|
|
CA6B: F0 05 477 BEQ :SHIFT ; D1
|
|
|
|
|
|
CA6D: A9 01 478 LDA #1 ; D2
|
|
|
|
|
|
CA6F: 9D F8 04 479 STA R31,X
|
2017-09-09 18:34:24 +00:00
|
|
|
|
480
|
2017-10-03 15:46:50 +00:00
|
|
|
|
CA72: A0 09 481 :SHIFT LDY #9 ; ASL can't be used with Y
|
|
|
|
|
|
CA74: 1E F8 05 482 :LOOP ASL R33,X ; mul block num
|
|
|
|
|
|
CA77: 3E 78 05 483 ROL R32,X ; by 512 to get
|
|
|
|
|
|
CA7A: 3E F8 04 484 ROL R31,X ; real address
|
|
|
|
|
|
CA7D: 3E 78 04 485 ROL R30,X
|
|
|
|
|
|
CA80: 88 486 DEY
|
|
|
|
|
|
CA81: D0 F1 487 BNE :LOOP
|
|
|
|
|
|
CA83: 7A 488 PLY ; restore Y
|
|
|
|
|
|
CA84: FA 489 PLX ; restore X
|
|
|
|
|
|
CA85: 60 490 RTS
|
2017-09-09 18:34:24 +00:00
|
|
|
|
491
|
|
|
|
|
|
492
|
|
|
|
|
|
493 ********************************
|
|
|
|
|
|
494 *
|
|
|
|
|
|
495 * Send SD command
|
|
|
|
|
|
496 * Cmd is in A
|
|
|
|
|
|
497 *
|
2017-08-27 13:02:58 +00:00
|
|
|
|
498 ********************************
|
2017-09-09 18:34:24 +00:00
|
|
|
|
499
|
2017-10-03 15:46:50 +00:00
|
|
|
|
CA86: 5A 500 COMMAND PHY ; save Y
|
|
|
|
|
|
CA87: A4 3D 501 LDY SLOT
|
|
|
|
|
|
CA89: 9D 80 C0 502 STA DATA,X ; send command
|
|
|
|
|
|
CA8C: B9 78 04 503 LDA R30,Y ; get arg from R30 on
|
|
|
|
|
|
CA8F: 9D 80 C0 504 STA DATA,X
|
|
|
|
|
|
CA92: B9 F8 04 505 LDA R31,Y
|
|
|
|
|
|
CA95: 9D 80 C0 506 STA DATA,X
|
|
|
|
|
|
CA98: B9 78 05 507 LDA R32,Y
|
|
|
|
|
|
CA9B: 9D 80 C0 508 STA DATA,X
|
|
|
|
|
|
CA9E: B9 F8 05 509 LDA R33,Y
|
|
|
|
|
|
CAA1: 9D 80 C0 510 STA DATA,X
|
|
|
|
|
|
CAA4: A9 FF 511 LDA #DUMMY
|
|
|
|
|
|
CAA6: 9D 80 C0 512 STA DATA,X ; dummy crc
|
|
|
|
|
|
CAA9: 20 04 CA 513 JSR GETR1
|
|
|
|
|
|
CAAC: 7A 514 PLY ; restore Y
|
|
|
|
|
|
CAAD: 60 515 RTS
|
2017-09-09 18:34:24 +00:00
|
|
|
|
516
|
|
|
|
|
|
517
|
|
|
|
|
|
518 ********************************
|
|
|
|
|
|
519 *
|
|
|
|
|
|
520 * Check for card detect
|
|
|
|
|
|
521 *
|
|
|
|
|
|
522 * C Clear - card in slot
|
|
|
|
|
|
523 * Set - no card in slot
|
|
|
|
|
|
524 *
|
2017-08-27 13:02:58 +00:00
|
|
|
|
525 ********************************
|
2017-09-09 18:34:24 +00:00
|
|
|
|
526
|
2017-10-03 15:46:50 +00:00
|
|
|
|
CAAE: 48 527 CARDDET PHA
|
|
|
|
|
|
CAAF: A9 40 528 LDA #CD ; 0: card in
|
|
|
|
|
|
CAB1: 3C 83 C0 529 BIT SS,X ; 1: card out
|
|
|
|
|
|
CAB4: 18 530 CLC
|
|
|
|
|
|
CAB5: F0 01 531 BEQ :DONE ; card is in
|
|
|
|
|
|
CAB7: 38 532 SEC ; card is out
|
|
|
|
|
|
CAB8: 68 533 :DONE PLA
|
|
|
|
|
|
CAB9: 60 534 RTS
|
2017-09-09 18:34:24 +00:00
|
|
|
|
535
|
|
|
|
|
|
536
|
|
|
|
|
|
537 ********************************
|
|
|
|
|
|
538 *
|
|
|
|
|
|
539 * Check for write protect
|
|
|
|
|
|
540 *
|
|
|
|
|
|
541 * C Clear - card not protected
|
|
|
|
|
|
542 * Set - card write protected
|
|
|
|
|
|
543 *
|
|
|
|
|
|
544 ********************************
|
|
|
|
|
|
545
|
2017-10-03 15:46:50 +00:00
|
|
|
|
CABA: 48 546 WRPROT PHA
|
|
|
|
|
|
CABB: A9 20 547 LDA #WP ; 0: write enabled
|
|
|
|
|
|
CABD: 3C 83 C0 548 BIT SS,X ; 1: write disabled
|
|
|
|
|
|
CAC0: 18 549 CLC
|
|
|
|
|
|
CAC1: F0 01 550 BEQ :DONE
|
|
|
|
|
|
CAC3: 38 551 SEC
|
|
|
|
|
|
CAC4: 68 552 :DONE PLA
|
|
|
|
|
|
CAC5: 60 553 RTS
|
2017-09-09 18:34:24 +00:00
|
|
|
|
554
|
|
|
|
|
|
555
|
|
|
|
|
|
556 ********************************
|
|
|
|
|
|
557 *
|
|
|
|
|
|
558 * Status request
|
|
|
|
|
|
559 * $43 Unit number DSSS000
|
|
|
|
|
|
560 * $44-45 Unused
|
|
|
|
|
|
561 * $46-47 Unused
|
|
|
|
|
|
562 *
|
|
|
|
|
|
563 * C Clear - No error
|
|
|
|
|
|
564 * Set - Error
|
|
|
|
|
|
565 * A $00 - No error
|
2017-10-03 15:46:50 +00:00
|
|
|
|
566 * $2B - Card write protected
|
|
|
|
|
|
567 * $2F - No card inserted
|
|
|
|
|
|
568 * X - Blocks avail (low byte)
|
|
|
|
|
|
569 * Y - Blocks avail (high byte)
|
|
|
|
|
|
570 *
|
|
|
|
|
|
571 ********************************
|
|
|
|
|
|
572
|
|
|
|
|
|
CAC6: A9 00 573 STATUS LDA #0 ; no error
|
|
|
|
|
|
CAC8: A2 FF 574 LDX #$FF ; 32 MB partition
|
|
|
|
|
|
CACA: A0 FF 575 LDY #$FF
|
|
|
|
|
|
576
|
|
|
|
|
|
CACC: 20 AE CA 577 JSR CARDDET
|
|
|
|
|
|
CACF: 90 04 578 BCC :WRPROT
|
|
|
|
|
|
CAD1: A9 2F 579 LDA #$2F ; no card inserted
|
|
|
|
|
|
CAD3: 80 07 580 BRA :DONE
|
2017-09-09 18:34:24 +00:00
|
|
|
|
581
|
2017-10-03 15:46:50 +00:00
|
|
|
|
CAD5: 20 BA CA 582 :WRPROT JSR WRPROT
|
|
|
|
|
|
CAD8: 90 02 583 BCC :DONE
|
|
|
|
|
|
CADA: A9 2B 584 LDA #$2B ; card write protected
|
|
|
|
|
|
585
|
|
|
|
|
|
CADC: 60 586 :DONE RTS
|
|
|
|
|
|
587
|
|
|
|
|
|
588
|
|
|
|
|
|
589 ********************************
|
|
|
|
|
|
590 *
|
|
|
|
|
|
591 * Read 512 byte block
|
|
|
|
|
|
592 * $43 Unit number DSSS0000
|
|
|
|
|
|
593 * $44-45 Address (LO/HI) of buffer
|
|
|
|
|
|
594 * $46-47 Block number (LO/HI)
|
|
|
|
|
|
595 *
|
|
|
|
|
|
596 * C Clear - No error
|
|
|
|
|
|
597 * Set - Error
|
|
|
|
|
|
598 * A $00 - No error
|
|
|
|
|
|
599 * $27 - Bad block number
|
|
|
|
|
|
600 * $28 - No card inserted
|
|
|
|
|
|
601 *
|
|
|
|
|
|
602 ********************************
|
|
|
|
|
|
603
|
|
|
|
|
|
CADD: 20 AE CA 604 READ JSR CARDDET
|
|
|
|
|
|
CAE0: B0 64 605 BCS :ERROR ; no card inserted
|
|
|
|
|
|
606
|
|
|
|
|
|
CAE2: 20 51 CA 607 JSR BLOCK ; calc block address
|
|
|
|
|
|
608
|
|
|
|
|
|
CAE5: BD 83 C0 609 LDA SS,X ; enable /CS
|
|
|
|
|
|
CAE8: 29 FE 610 AND #$FF!SS0
|
|
|
|
|
|
CAEA: 9D 83 C0 611 STA SS,X
|
|
|
|
|
|
CAED: A9 51 612 LDA #$51 ; send CMD17
|
|
|
|
|
|
CAEF: 20 86 CA 613 JSR COMMAND ; send command
|
|
|
|
|
|
614
|
|
|
|
|
|
CAF2: C9 00 615 CMP #0 ; check for error
|
|
|
|
|
|
CAF4: D0 50 616 BNE :ERROR
|
|
|
|
|
|
617
|
|
|
|
|
|
CAF6: A9 FF 618 :GETTOK LDA #DUMMY ; get data token
|
|
|
|
|
|
CAF8: 9D 80 C0 619 STA DATA,X
|
|
|
|
|
|
CAFB: BD 80 C0 620 LDA DATA,X ; get response
|
|
|
|
|
|
CAFE: C9 FE 621 CMP #$FE
|
|
|
|
|
|
CB00: D0 F4 622 BNE :GETTOK ; wait for $FE
|
|
|
|
|
|
623
|
|
|
|
|
|
CB02: A0 02 624 LDY #2 ; read data from card
|
|
|
|
|
|
CB04: BD 81 C0 625 LDA CTRL,X ; enable FRX
|
|
|
|
|
|
CB07: 09 10 626 ORA #FRX
|
|
|
|
|
|
CB09: 9D 81 C0 627 STA CTRL,X
|
|
|
|
|
|
CB0C: A9 FF 628 LDA #DUMMY
|
|
|
|
|
|
CB0E: 9D 80 C0 629 STA DATA,X
|
|
|
|
|
|
CB11: 64 3C 630 :LOOPY STZ WORK
|
|
|
|
|
|
CB13: BD 80 C0 631 :LOOPW LDA DATA,X
|
|
|
|
|
|
CB16: 92 44 632 STA ($44)
|
|
|
|
|
|
CB18: E6 44 633 INC $44
|
|
|
|
|
|
CB1A: D0 02 634 BNE :INW
|
|
|
|
|
|
CB1C: E6 45 635 INC $45 ; inc msb on page boundary
|
|
|
|
|
|
CB1E: E6 3C 636 :INW INC WORK
|
|
|
|
|
|
CB20: D0 F1 637 BNE :LOOPW
|
|
|
|
|
|
CB22: 88 638 DEY
|
|
|
|
|
|
CB23: D0 EC 639 BNE :LOOPY
|
2017-09-09 18:34:24 +00:00
|
|
|
|
640
|
2017-10-03 15:46:50 +00:00
|
|
|
|
CB25: BD 80 C0 641 :CRC LDA DATA,X ; read two bytes crc
|
|
|
|
|
|
CB28: BD 80 C0 642 LDA DATA,X ; and ignore
|
|
|
|
|
|
CB2B: BD 80 C0 643 LDA DATA,X ; read a dummy byte
|
|
|
|
|
|
644
|
|
|
|
|
|
CB2E: BD 81 C0 645 LDA CTRL,X ; disable FRX
|
|
|
|
|
|
CB31: 29 EF 646 AND #$FF!FRX
|
|
|
|
|
|
CB33: 9D 81 C0 647 STA CTRL,X
|
|
|
|
|
|
CB36: 18 648 CLC ; no error
|
|
|
|
|
|
CB37: A9 00 649 LDA #0
|
|
|
|
|
|
650
|
|
|
|
|
|
CB39: 08 651 :DONE PHP
|
|
|
|
|
|
CB3A: 48 652 PHA
|
|
|
|
|
|
CB3B: BD 83 C0 653 LDA SS,X
|
|
|
|
|
|
CB3E: 09 01 654 ORA #SS0
|
|
|
|
|
|
CB40: 9D 83 C0 655 STA SS,X ; disable /CS
|
|
|
|
|
|
CB43: 68 656 PLA
|
|
|
|
|
|
CB44: 28 657 PLP
|
|
|
|
|
|
CB45: 60 658 RTS
|
2017-09-09 18:34:24 +00:00
|
|
|
|
659
|
2017-10-03 15:46:50 +00:00
|
|
|
|
CB46: 38 660 :ERROR SEC ; an error occured
|
|
|
|
|
|
CB47: A9 27 661 LDA #$27
|
|
|
|
|
|
CB49: 80 EE 662 BRA :DONE
|
|
|
|
|
|
663
|
|
|
|
|
|
664
|
|
|
|
|
|
665 ********************************
|
|
|
|
|
|
666 *
|
|
|
|
|
|
667 * Write 512 byte block
|
|
|
|
|
|
668 * $43 Unit number DSSS0000
|
|
|
|
|
|
669 * $44-45 Address (LO/HI) of buffer
|
|
|
|
|
|
670 * $46-47 Block number (LO/HI)
|
|
|
|
|
|
671 *
|
|
|
|
|
|
672 * C Clear - No error
|
|
|
|
|
|
673 * Set - Error
|
|
|
|
|
|
674 * A $00 - No error
|
|
|
|
|
|
675 * $27 - I/O error or bad block number
|
|
|
|
|
|
676 * $2B - Card write protected
|
|
|
|
|
|
677 *
|
|
|
|
|
|
678 ********************************
|
|
|
|
|
|
679
|
|
|
|
|
|
CB4B: 20 AE CA 680 WRITE JSR CARDDET
|
|
|
|
|
|
CB4E: B0 67 681 BCS :IOERROR ; no card inserted
|
|
|
|
|
|
682
|
|
|
|
|
|
CB50: 20 BA CA 683 JSR WRPROT
|
|
|
|
|
|
CB53: B0 67 684 BCS :WPERROR ; card write protected
|
|
|
|
|
|
685
|
|
|
|
|
|
CB55: 20 51 CA 686 JSR BLOCK ; calc block address
|
|
|
|
|
|
687
|
|
|
|
|
|
CB58: BD 83 C0 688 LDA SS,X ; enable /CS
|
|
|
|
|
|
CB5B: 29 FE 689 AND #$FF!SS0
|
|
|
|
|
|
CB5D: 9D 83 C0 690 STA SS,X
|
|
|
|
|
|
CB60: A9 58 691 LDA #$58 ; send CMD24
|
|
|
|
|
|
CB62: 20 86 CA 692 JSR COMMAND ; send command
|
|
|
|
|
|
693
|
|
|
|
|
|
CB65: C9 00 694 CMP #0 ; check for error
|
|
|
|
|
|
CB67: D0 4E 695 BNE :IOERROR
|
|
|
|
|
|
696
|
|
|
|
|
|
CB69: A9 FF 697 LDA #DUMMY
|
|
|
|
|
|
CB6B: 9D 80 C0 698 STA DATA,X ; send dummy
|
|
|
|
|
|
CB6E: A9 FE 699 LDA #$FE
|
|
|
|
|
|
CB70: 9D 80 C0 700 STA DATA,X ; send data token
|
|
|
|
|
|
701
|
|
|
|
|
|
CB73: A0 02 702 LDY #2 ; send data to card
|
|
|
|
|
|
CB75: 64 3C 703 :LOOPY STZ WORK
|
|
|
|
|
|
CB77: B2 44 704 :LOOPW LDA ($44)
|
|
|
|
|
|
CB79: 9D 80 C0 705 STA DATA,X
|
|
|
|
|
|
CB7C: E6 44 706 INC $44
|
|
|
|
|
|
CB7E: D0 02 707 BNE :INW
|
|
|
|
|
|
CB80: E6 45 708 INC $45 ; inc msb on page boundary
|
|
|
|
|
|
CB82: E6 3C 709 :INW INC WORK
|
|
|
|
|
|
CB84: D0 F1 710 BNE :LOOPW
|
|
|
|
|
|
CB86: 88 711 DEY
|
|
|
|
|
|
CB87: D0 EC 712 BNE :LOOPY
|
|
|
|
|
|
713
|
|
|
|
|
|
CB89: 9D 80 C0 714 :CRC STA DATA,X ; send 2 dummy crc bytes
|
|
|
|
|
|
CB8C: 9D 80 C0 715 STA DATA,X
|
|
|
|
|
|
716
|
|
|
|
|
|
CB8F: 9D 80 C0 717 STA DATA,X ; get data response
|
|
|
|
|
|
CB92: BD 80 C0 718 LDA DATA,X
|
|
|
|
|
|
CB95: 29 1F 719 AND #$1F
|
|
|
|
|
|
CB97: C9 05 720 CMP #$05
|
|
|
|
|
|
CB99: D0 1C 721 BNE :IOERROR ; check for write error
|
|
|
|
|
|
CB9B: 18 722 CLC ; no error
|
|
|
|
|
|
CB9C: A9 00 723 LDA #0
|
|
|
|
|
|
724
|
|
|
|
|
|
CB9E: 08 725 :DONE PHP
|
|
|
|
|
|
CB9F: 48 726 PHA
|
|
|
|
|
|
CBA0: A9 FF 727 :WAIT LDA #DUMMY
|
|
|
|
|
|
CBA2: 9D 80 C0 728 STA DATA,X ; wait for write cycle
|
|
|
|
|
|
CBA5: BD 80 C0 729 LDA DATA,X ; to complete
|
|
|
|
|
|
CBA8: C9 00 730 CMP #$00
|
|
|
|
|
|
CBAA: F0 F4 731 BEQ :WAIT
|
|
|
|
|
|
732
|
|
|
|
|
|
CBAC: BD 83 C0 733 LDA SS,X ; disable /CS
|
|
|
|
|
|
CBAF: 09 01 734 ORA #SS0
|
|
|
|
|
|
CBB1: 9D 83 C0 735 STA SS,X
|
|
|
|
|
|
CBB4: 68 736 PLA
|
|
|
|
|
|
CBB5: 28 737 PLP
|
|
|
|
|
|
CBB6: 60 738 RTS
|
2017-09-09 18:34:24 +00:00
|
|
|
|
739
|
2017-10-03 15:46:50 +00:00
|
|
|
|
CBB7: 38 740 :IOERROR SEC ; an error occured
|
|
|
|
|
|
CBB8: A9 27 741 LDA #$27
|
|
|
|
|
|
CBBA: 80 E2 742 BRA :DONE
|
2017-09-09 18:34:24 +00:00
|
|
|
|
743
|
2017-10-03 15:46:50 +00:00
|
|
|
|
CBBC: 38 744 :WPERROR SEC
|
|
|
|
|
|
CBBD: A9 2B 745 LDA #$2B
|
|
|
|
|
|
CBBF: 80 DD 746 BRA :DONE
|
|
|
|
|
|
747
|
|
|
|
|
|
748
|
|
|
|
|
|
749
|
|
|
|
|
|
750 ********************************
|
|
|
|
|
|
751 *
|
|
|
|
|
|
752 * Format
|
|
|
|
|
|
753 * not supported!
|
|
|
|
|
|
754 *
|
|
|
|
|
|
755 ********************************
|
2017-09-09 18:34:24 +00:00
|
|
|
|
756
|
2017-10-03 15:46:50 +00:00
|
|
|
|
CBC1: 38 757 FORMAT SEC
|
|
|
|
|
|
CBC2: A9 01 758 LDA #$01 ; invalid command
|
|
|
|
|
|
CBC4: 60 759 RTS
|
|
|
|
|
|
760
|
|
|
|
|
|
761
|
|
|
|
|
|
CBC5: 40 00 00 762 CMD0 HEX 400000
|
|
|
|
|
|
CBC8: 00 00 95 763 HEX 000095
|
|
|
|
|
|
CBCB: 41 00 00 764 CMD1 HEX 410000
|
|
|
|
|
|
CBCE: 00 00 F9 765 HEX 0000F9
|
|
|
|
|
|
CBD1: 48 00 00 766 CMD8 HEX 480000
|
|
|
|
|
|
CBD4: 01 AA 87 767 HEX 01AA87
|
|
|
|
|
|
CBD7: 50 00 00 768 CMD16 HEX 500000
|
|
|
|
|
|
CBDA: 02 00 FF 769 HEX 0200FF
|
|
|
|
|
|
CBDD: 77 00 00 770 CMD55 HEX 770000
|
|
|
|
|
|
CBE0: 00 00 65 771 HEX 000065
|
|
|
|
|
|
CBE3: 69 40 00 772 ACMD4140 HEX 694000
|
|
|
|
|
|
CBE6: 00 00 77 773 HEX 000077
|
|
|
|
|
|
CBE9: 69 00 00 774 ACMD410 HEX 690000
|
|
|
|
|
|
CBEC: 00 00 FF 775 HEX 0000FF
|
2017-08-26 22:37:54 +00:00
|
|
|
|
|
|
|
|
|
|
|
2017-10-03 15:46:50 +00:00
|
|
|
|
--End assembly, 1007 bytes, Errors: 0
|
2017-08-27 13:02:58 +00:00
|
|
|
|
|
2017-08-26 22:37:54 +00:00
|
|
|
|
|
2017-08-27 13:02:58 +00:00
|
|
|
|
Symbol table - alphabetical order:
|
2017-08-26 22:37:54 +00:00
|
|
|
|
|
2017-10-03 15:46:50 +00:00
|
|
|
|
ACMD410 =$CBE9 ACMD4140=$CBE3 BLOCK =$CA51 ? BOOT =$C82B
|
|
|
|
|
|
CARDDET =$CAAE CD =$40 CMD =$C9F0 CMD0 =$CBC5
|
|
|
|
|
|
CMD1 =$CBCB CMD16 =$CBD7 CMD55 =$CBDD CMD8 =$CBD1
|
|
|
|
|
|
CMDHI =$41 CMDLO =$40 COMMAND =$CA86 CTRL =$C081
|
2017-09-09 18:34:24 +00:00
|
|
|
|
CURSLOT =$07F8 DATA =$C080 DEBUG =$00 DIV =$C082
|
2017-10-03 15:46:50 +00:00
|
|
|
|
DRIVER =$C84C DUMMY =$FF ECE =$04 FORMAT =$CBC1
|
|
|
|
|
|
FRX =$10 GETR1 =$CA04 GETR3 =$CA1F INIT =$C900
|
2017-09-09 18:34:24 +00:00
|
|
|
|
INITED =$80 R30 =$0478 R31 =$04F8 R32 =$0578
|
2017-10-03 15:46:50 +00:00
|
|
|
|
R33 =$05F8 READ =$CADD SLOT =$3D SLOT16 =$2B
|
|
|
|
|
|
SS =$C083 SS0 =$01 STATUS =$CAC6 WORK =$3C
|
|
|
|
|
|
WP =$20 WRITE =$CB4B WRPROT =$CABA
|
2017-08-26 22:37:54 +00:00
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
Symbol table - numerical order:
|
|
|
|
|
|
|
2017-08-27 13:02:58 +00:00
|
|
|
|
DEBUG =$00 SS0 =$01 ECE =$04 FRX =$10
|
2017-09-09 18:34:24 +00:00
|
|
|
|
WP =$20 SLOT16 =$2B WORK =$3C SLOT =$3D
|
|
|
|
|
|
CMDLO =$40 CD =$40 CMDHI =$41 INITED =$80
|
2017-08-27 13:02:58 +00:00
|
|
|
|
DUMMY =$FF R30 =$0478 R31 =$04F8 R32 =$0578
|
|
|
|
|
|
R33 =$05F8 CURSLOT =$07F8 DATA =$C080 CTRL =$C081
|
2017-09-09 18:34:24 +00:00
|
|
|
|
DIV =$C082 SS =$C083 ? BOOT =$C82B DRIVER =$C84C
|
2017-10-03 15:46:50 +00:00
|
|
|
|
INIT =$C900 CMD =$C9F0 GETR1 =$CA04 GETR3 =$CA1F
|
|
|
|
|
|
BLOCK =$CA51 COMMAND =$CA86 CARDDET =$CAAE WRPROT =$CABA
|
|
|
|
|
|
STATUS =$CAC6 READ =$CADD WRITE =$CB4B FORMAT =$CBC1
|
|
|
|
|
|
CMD0 =$CBC5 CMD1 =$CBCB CMD8 =$CBD1 CMD16 =$CBD7
|
|
|
|
|
|
CMD55 =$CBDD ACMD4140=$CBE3 ACMD410 =$CBE9
|
2017-08-26 22:37:54 +00:00
|
|
|
|
|
