2017-07-05 18:07:55 +00:00
|
|
|
|
1 ********************************
|
|
|
|
|
|
2 *
|
|
|
|
|
|
3 * Initialize SD card
|
|
|
|
|
|
4 *
|
|
|
|
|
|
5 ********************************
|
|
|
|
|
|
6
|
|
|
|
|
|
7 XC
|
|
|
|
|
|
8 ORG $8000
|
|
|
|
|
|
9
|
|
|
|
|
|
10 SLOT = $04 ; slot 4
|
|
|
|
|
|
11 DATA = $C0C0 ; slot 4
|
|
|
|
|
|
12 CTRL = DATA+1
|
|
|
|
|
|
13 DIV = DATA+2
|
|
|
|
|
|
14 SS = DATA+3
|
|
|
|
|
|
15 R30 = $0478
|
|
|
|
|
|
16 R31 = $04F8
|
|
|
|
|
|
17 R32 = $0578
|
|
|
|
|
|
18 R33 = $05F8
|
|
|
|
|
|
19 CMDLO = $FA
|
|
|
|
|
|
20 CMDHI = $FB
|
|
|
|
|
|
21 *
|
|
|
|
|
|
22 FROM = $FA ; + $fb
|
|
|
|
|
|
23 TO = $FC ; + $fd
|
|
|
|
|
|
24 SIZE = $FE ; + $ff
|
|
|
|
|
|
25 *
|
|
|
|
|
|
26 SSNONE = $0F
|
|
|
|
|
|
27 SS0 = $0E
|
|
|
|
|
|
28 TC = $80
|
|
|
|
|
|
29 DUMMY = $FF
|
|
|
|
|
|
30
|
|
|
|
|
|
31
|
|
|
|
|
|
32 ********************************
|
|
|
|
|
|
33 *
|
|
|
|
|
|
34 * Install SD card driver
|
|
|
|
|
|
35 *
|
|
|
|
|
|
36 ********************************
|
|
|
|
|
|
37
|
|
|
|
|
|
38 * make room for the driver
|
|
|
|
|
|
39
|
|
|
|
|
|
8000: A9 04 40 GETBUF LDA #4 ; allocate 4 pages
|
|
|
|
|
|
8002: 20 F5 BE 41 JSR $BEF5 ; call GETBUFR
|
|
|
|
|
|
8005: B0 59 42 BCS ERROR ; did an error occur?
|
|
|
|
|
|
8007: 85 FD 43 STA TO+1 ; store buffer addr msb
|
|
|
|
|
|
8009: 8D 84 80 44 STA BUFMSB
|
|
|
|
|
|
800C: 64 FC 45 STZ TO ; store buffer addr lsb
|
|
|
|
|
|
800E: 9C 85 80 46 STZ BUFLSB
|
|
|
|
|
|
8011: A9 80 47 LDA #>DRIVER1
|
|
|
|
|
|
8013: 85 FB 48 STA FROM+1 ; store from addr msb
|
|
|
|
|
|
8015: A9 8C 49 LDA #<DRIVER1
|
|
|
|
|
|
8017: 85 FA 50 STA FROM ; store from addr lsb
|
|
|
|
|
|
8019: A9 02 51 LDA #>DRIVEND-DRIVER
|
|
|
|
|
|
801B: 85 FF 52 STA SIZE+1 ; store size msb
|
|
|
|
|
|
801D: A9 E4 53 LDA #<DRIVEND-DRIVER
|
|
|
|
|
|
801F: 85 FE 54 STA SIZE ; store size lsb
|
|
|
|
|
|
55
|
|
|
|
|
|
56 * move driver to new address
|
|
|
|
|
|
57
|
|
|
|
|
|
8021: A6 FF 58 MOVEUP LDX SIZE+1 ; the last byte must be
|
|
|
|
|
|
8023: 18 59 CLC ; moved first, start at
|
|
|
|
|
|
===== Page 2 =====
|
|
|
|
|
|
|
|
|
|
|
|
8024: 8A 60 TXA ; the final pages of FROM
|
|
|
|
|
|
8025: 65 FB 61 ADC FROM+1 ; and TO
|
|
|
|
|
|
8027: 85 FB 62 STA FROM+1
|
|
|
|
|
|
8029: 18 63 CLC
|
|
|
|
|
|
802A: 8A 64 TXA
|
|
|
|
|
|
802B: 65 FD 65 ADC TO+1
|
|
|
|
|
|
802D: 85 FD 66 STA TO+1
|
|
|
|
|
|
802F: E8 67 INX ; allows the use of
|
|
|
|
|
|
8030: A4 FE 68 LDY SIZE ; BNE after DEX below
|
|
|
|
|
|
8032: F0 0E 69 BEQ MU3
|
|
|
|
|
|
8034: 88 70 DEY ; move bytes on the last
|
|
|
|
|
|
8035: F0 07 71 BEQ MU2 ; page first
|
|
|
|
|
|
8037: B1 FA 72 MU1 LDA (FROM),Y
|
|
|
|
|
|
8039: 91 FC 73 STA (TO),Y
|
|
|
|
|
|
803B: 88 74 DEY
|
|
|
|
|
|
803C: D0 F9 75 BNE MU1
|
|
|
|
|
|
803E: B1 FA 76 MU2 LDA (FROM),Y ; handle Y=0 separately
|
|
|
|
|
|
8040: 91 FC 77 STA (TO),Y
|
|
|
|
|
|
8042: 88 78 MU3 DEY
|
|
|
|
|
|
8043: C6 FB 79 DEC FROM+1 ; move the next page
|
|
|
|
|
|
8045: C6 FD 80 DEC TO+1 ; (if any)
|
|
|
|
|
|
8047: CA 81 DEX
|
|
|
|
|
|
8048: D0 ED 82 BNE MU1
|
|
|
|
|
|
83
|
|
|
|
|
|
84 * see if slot 4 has a driver already
|
|
|
|
|
|
85
|
|
|
|
|
|
804A: AE 31 BF 86 INSTALL LDX $BF31 ; get devcnt
|
|
|
|
|
|
804D: BD 32 BF 87 INSLP LDA $BF32,X ; get a devnum
|
|
|
|
|
|
8050: 29 70 88 AND #$70 ; isolate slot
|
|
|
|
|
|
8052: C9 40 89 CMP #$40 ; slot 4?
|
|
|
|
|
|
8054: F0 2D 90 BEQ INSOUT ; yes, skip it
|
|
|
|
|
|
8056: CA 91 DEX
|
|
|
|
|
|
8057: 10 F4 92 BPL INSLP ; keep up the search
|
|
|
|
|
|
93
|
|
|
|
|
|
94 * restore the devnum to the list
|
|
|
|
|
|
95
|
|
|
|
|
|
8059: AE 31 BF 96 LDX $BF31 ; get devcnt again
|
|
|
|
|
|
805C: E0 0D 97 CPX #$0D device table full?
|
|
|
|
|
|
805E: D0 03 98 BNE INSLP2
|
|
|
|
|
|
99
|
|
|
|
|
|
8060: 4C 83 80 100 ERROR JMP INSOUT ; do something!
|
|
|
|
|
|
101
|
|
|
|
|
|
8063: BD 31 BF 102 INSLP2 LDA $BF32-1,X ; move all entries down
|
|
|
|
|
|
8066: 9D 32 BF 103 STA $BF32,X ; to make room at front
|
|
|
|
|
|
8069: CA 104 DEX ; for a new entry
|
|
|
|
|
|
806A: D0 F7 105 BNE INSLP2
|
|
|
|
|
|
806C: A9 44 106 LDA #$44
|
|
|
|
|
|
806E: 8D 32 BF 107 STA $BF32 ; slot 4, drive 1 at top of list
|
|
|
|
|
|
8071: EE 31 BF 108 INC $BF31 ; update devcnt
|
|
|
|
|
|
109
|
|
|
|
|
|
110 * now insert the device driver vector
|
|
|
|
|
|
111
|
|
|
|
|
|
8074: AD 85 80 112 LDA BUFLSB
|
|
|
|
|
|
8077: 8D 18 BF 113 STA $BF18
|
|
|
|
|
|
807A: AD 84 80 114 LDA BUFMSB
|
|
|
|
|
|
807D: 8D 19 BF 115 STA $BF19
|
|
|
|
|
|
8080: 20 26 96 116 JSR INIT ; init card
|
|
|
|
|
|
===== Page 3 =====
|
|
|
|
|
|
|
|
|
|
|
|
117
|
|
|
|
|
|
8083: 60 118 INSOUT RTS
|
|
|
|
|
|
119
|
|
|
|
|
|
8084: 00 120 BUFMSB DB #0
|
|
|
|
|
|
8085: 00 121 BUFLSB DB #0
|
|
|
|
|
|
122
|
|
|
|
|
|
123 ********************************
|
|
|
|
|
|
124 *
|
|
|
|
|
|
125 * Jump table
|
|
|
|
|
|
126 *
|
|
|
|
|
|
127 ********************************
|
|
|
|
|
|
128
|
|
|
|
|
|
8086: 2C FF CF 129 BIT $CFFF
|
|
|
|
|
|
8089: 4C 26 96 130 JMP INIT
|
|
|
|
|
|
131
|
|
|
|
|
|
132 DRIVER1 = *
|
|
|
|
|
|
133 ORG $9600
|
|
|
|
|
|
134
|
|
|
|
|
|
9600: D8 135 DRIVER CLD
|
|
|
|
|
|
9601: 2C FF CF 136 BIT $CFFF
|
|
|
|
|
|
9604: A5 42 137 LDA $42
|
|
|
|
|
|
9606: C9 00 138 CMP #$00
|
|
|
|
|
|
9608: F0 10 139 BEQ :STATUS
|
|
|
|
|
|
960A: C9 01 140 CMP #$01
|
|
|
|
|
|
960C: F0 0F 141 BEQ :READ
|
|
|
|
|
|
960E: C9 02 142 CMP #$02
|
|
|
|
|
|
9610: F0 0E 143 BEQ :WRITE
|
|
|
|
|
|
9612: C9 03 144 CMP #$03
|
|
|
|
|
|
9614: F0 0D 145 BEQ :FORMAT
|
|
|
|
|
|
9616: 38 146 SEC ; unknown command
|
|
|
|
|
|
9617: A9 01 147 LDA #$01
|
|
|
|
|
|
9619: 60 148 RTS
|
|
|
|
|
|
149
|
|
|
|
|
|
961A: 4C 5C 97 150 :STATUS JMP STATUS
|
|
|
|
|
|
961D: 4C 64 97 151 :READ JMP READ
|
|
|
|
|
|
9620: 4C 0F 98 152 :WRITE JMP WRITE
|
|
|
|
|
|
9623: 4C B6 98 153 :FORMAT JMP FORMAT
|
|
|
|
|
|
154
|
|
|
|
|
|
155
|
|
|
|
|
|
156 ********************************
|
|
|
|
|
|
157 *
|
|
|
|
|
|
158 * Initialize SD card
|
|
|
|
|
|
159 *
|
|
|
|
|
|
160 * C Clear - No error
|
|
|
|
|
|
161 * Set - Error
|
|
|
|
|
|
162 * A $00 - No error
|
|
|
|
|
|
163 * $27 - I/O error - Init failed
|
|
|
|
|
|
164 * $28 - No card inserted
|
|
|
|
|
|
165 *
|
|
|
|
|
|
166 ********************************
|
|
|
|
|
|
167
|
|
|
|
|
|
9626: D8 168 INIT CLD
|
|
|
|
|
|
9627: A9 03 169 LDA #$03 ; set SPI mode 3
|
|
|
|
|
|
9629: 8D C1 C0 170 STA CTRL
|
|
|
|
|
|
962C: A9 0F 171 LDA #SSNONE
|
|
|
|
|
|
962E: 8D C3 C0 172 STA SS
|
|
|
|
|
|
9631: A9 07 173 LDA #7
|
|
|
|
|
|
===== Page 4 =====
|
|
|
|
|
|
|
|
|
|
|
|
9633: 8D C2 C0 174 STA DIV
|
|
|
|
|
|
9636: A2 0A 175 LDX #10
|
|
|
|
|
|
9638: A9 FF 176 LDA #DUMMY
|
|
|
|
|
|
177
|
|
|
|
|
|
963A: 8D C0 C0 178 :LOOP STA DATA
|
|
|
|
|
|
963D: 2C C1 C0 179 :WAIT BIT CTRL
|
|
|
|
|
|
9640: 10 FB 180 BPL :WAIT
|
|
|
|
|
|
9642: CA 181 DEX
|
|
|
|
|
|
9643: D0 F5 182 BNE :LOOP ; do 10 times
|
|
|
|
|
|
9645: A9 0E 183 LDA #SS0 ; set CS low
|
|
|
|
|
|
9647: 8D C3 C0 184 STA SS
|
|
|
|
|
|
185
|
|
|
|
|
|
964A: A9 BA 186 LDA #<CMD0 ; send CMD0
|
|
|
|
|
|
964C: 85 FA 187 STA CMDLO
|
|
|
|
|
|
964E: A9 98 188 LDA #>CMD0
|
|
|
|
|
|
9650: 85 FB 189 STA CMDHI
|
|
|
|
|
|
9652: 20 FD 96 190 JSR CMD
|
|
|
|
|
|
9655: 20 0F 97 191 JSR GETR1 ; get response
|
|
|
|
|
|
9658: C9 01 192 CMP #$01
|
|
|
|
|
|
965A: D0 39 193 BNE ERROR1 ; error!
|
|
|
|
|
|
194
|
|
|
|
|
|
965C: A9 C6 195 LDA #<CMD8 ; send CMD8
|
|
|
|
|
|
965E: 85 FA 196 STA CMDLO
|
|
|
|
|
|
9660: A9 98 197 LDA #>CMD8
|
|
|
|
|
|
9662: 85 FB 198 STA CMDHI
|
|
|
|
|
|
9664: 20 FD 96 199 JSR CMD
|
|
|
|
|
|
9667: 20 2C 97 200 JSR GETR3
|
|
|
|
|
|
966A: C9 01 201 CMP #$01
|
|
|
|
|
|
966C: D0 2A 202 BNE SDV1 ; may be SD Ver. 1
|
|
|
|
|
|
203
|
|
|
|
|
|
204 * check for $01aa match!
|
|
|
|
|
|
966E: A9 D2 205 SDV2 LDA #<CMD55
|
|
|
|
|
|
9670: 85 FA 206 STA CMDLO
|
|
|
|
|
|
9672: A9 98 207 LDA #>CMD55
|
|
|
|
|
|
9674: 85 FB 208 STA CMDHI
|
|
|
|
|
|
9676: 20 FD 96 209 JSR CMD
|
|
|
|
|
|
9679: 20 0F 97 210 JSR GETR1
|
|
|
|
|
|
967C: A9 D8 211 LDA #<ACMD41_40
|
|
|
|
|
|
967E: 85 FA 212 STA CMDLO
|
|
|
|
|
|
9680: A9 98 213 LDA #>ACMD41_40
|
|
|
|
|
|
9682: 85 FB 214 STA CMDHI
|
|
|
|
|
|
9684: 20 FD 96 215 JSR CMD
|
|
|
|
|
|
9687: 20 0F 97 216 JSR GETR1
|
|
|
|
|
|
968A: C9 01 217 CMP #$01
|
|
|
|
|
|
968C: F0 E0 218 BEQ SDV2 ; wait for ready
|
|
|
|
|
|
968E: C9 00 219 CMP #$00
|
|
|
|
|
|
9690: D0 03 220 BNE ERROR1 ; error!
|
|
|
|
|
|
221 * send CMD58
|
|
|
|
|
|
222 * SD Ver. 2 initialized!
|
|
|
|
|
|
9692: 4C D2 96 223 JMP BLOCKSZ
|
|
|
|
|
|
224
|
|
|
|
|
|
9695: 4C EE 96 225 ERROR1 JMP IOERROR ; needed for far jump
|
|
|
|
|
|
226
|
|
|
|
|
|
9698: A9 D2 227 SDV1 LDA #<CMD55
|
|
|
|
|
|
969A: 85 FA 228 STA CMDLO
|
|
|
|
|
|
969C: A9 98 229 LDA #>CMD55
|
|
|
|
|
|
969E: 85 FB 230 STA CMDHI
|
|
|
|
|
|
===== Page 5 =====
|
|
|
|
|
|
|
|
|
|
|
|
96A0: 20 FD 96 231 JSR CMD ; ignore response
|
|
|
|
|
|
96A3: A9 DE 232 LDA #<ACMD41_0
|
|
|
|
|
|
96A5: 85 FA 233 STA CMDLO
|
|
|
|
|
|
96A7: A9 98 234 LDA #>ACMD41_0
|
|
|
|
|
|
96A9: 85 FB 235 STA CMDHI
|
|
|
|
|
|
96AB: 20 FD 96 236 JSR CMD
|
|
|
|
|
|
96AE: 20 0F 97 237 JSR GETR1
|
|
|
|
|
|
96B1: C9 01 238 CMP #$01
|
|
|
|
|
|
96B3: F0 E3 239 BEQ SDV1 ; wait for ready
|
|
|
|
|
|
96B5: C9 00 240 CMP #$00
|
|
|
|
|
|
96B7: D0 03 241 BNE MMC ; may be MMC card
|
|
|
|
|
|
242 * SD Ver. 1 initialized!
|
|
|
|
|
|
96B9: 4C D2 96 243 JMP BLOCKSZ
|
|
|
|
|
|
244
|
|
|
|
|
|
96BC: A9 C0 245 MMC LDA #<CMD1
|
|
|
|
|
|
96BE: 85 FA 246 STA CMDLO
|
|
|
|
|
|
96C0: A9 98 247 LDA #>CMD1
|
|
|
|
|
|
96C2: 85 FB 248 STA CMDHI
|
|
|
|
|
|
96C4: 20 FD 96 249 :LOOP JSR CMD
|
|
|
|
|
|
96C7: 20 0F 97 250 JSR GETR1
|
|
|
|
|
|
96CA: C9 01 251 CMP #$01
|
|
|
|
|
|
96CC: F0 F6 252 BEQ :LOOP ; wait for ready
|
|
|
|
|
|
96CE: C9 00 253 CMP #$00
|
|
|
|
|
|
96D0: D0 1C 254 BNE IOERROR ; error!
|
|
|
|
|
|
255 * MMC Ver. 3 initialized!
|
|
|
|
|
|
256
|
|
|
|
|
|
96D2: A9 CC 257 BLOCKSZ LDA #<CMD16
|
|
|
|
|
|
96D4: 85 FA 258 STA CMDLO
|
|
|
|
|
|
96D6: A9 98 259 LDA #>CMD16
|
|
|
|
|
|
96D8: 85 FB 260 STA CMDHI
|
|
|
|
|
|
96DA: 20 FD 96 261 JSR CMD
|
|
|
|
|
|
96DD: 20 0F 97 262 JSR GETR1
|
|
|
|
|
|
96E0: C9 00 263 CMP #$00
|
|
|
|
|
|
96E2: D0 0A 264 BNE IOERROR ; error!
|
|
|
|
|
|
265
|
|
|
|
|
|
96E4: 18 266 END CLC ; all ok
|
|
|
|
|
|
96E5: A0 00 267 LDY #0
|
|
|
|
|
|
96E7: 90 08 268 BCC END1
|
|
|
|
|
|
96E9: 38 269 CDERROR SEC
|
|
|
|
|
|
96EA: A0 28 270 LDY #$28 ; no card error
|
|
|
|
|
|
96EC: B0 03 271 BCS END1
|
|
|
|
|
|
96EE: 38 272 IOERROR SEC
|
|
|
|
|
|
96EF: A0 27 273 LDY #$27 ; init error
|
|
|
|
|
|
96F1: A9 0F 274 END1 LDA #SSNONE ; deselect card
|
|
|
|
|
|
96F3: 8D C3 C0 275 STA SS
|
|
|
|
|
|
96F6: A9 00 276 LDA #0
|
|
|
|
|
|
96F8: 8D C2 C0 277 STA DIV
|
|
|
|
|
|
96FB: 98 278 TYA ; retval in A
|
|
|
|
|
|
96FC: 60 279 RTS
|
|
|
|
|
|
280
|
|
|
|
|
|
281
|
|
|
|
|
|
282 ********************************
|
|
|
|
|
|
283 *
|
|
|
|
|
|
284 * Send SD command
|
|
|
|
|
|
285 * Call with command in CMDHI and CMDLO
|
|
|
|
|
|
286 *
|
|
|
|
|
|
287 ********************************
|
|
|
|
|
|
===== Page 6 =====
|
|
|
|
|
|
|
|
|
|
|
|
288
|
|
|
|
|
|
96FD: A0 00 289 CMD LDY #0
|
|
|
|
|
|
96FF: B1 FA 290 :LOOP LDA (CMDLO),Y
|
|
|
|
|
|
9701: 8D C0 C0 291 STA DATA
|
|
|
|
|
|
9704: 2C C1 C0 292 :WAIT BIT CTRL ; TC is in N
|
|
|
|
|
|
9707: 10 FB 293 BPL :WAIT
|
|
|
|
|
|
9709: C8 294 INY
|
|
|
|
|
|
970A: C0 06 295 CPY #6
|
|
|
|
|
|
970C: 90 F1 296 BCC :LOOP
|
|
|
|
|
|
970E: 60 297 RTS
|
|
|
|
|
|
298
|
|
|
|
|
|
299
|
|
|
|
|
|
300 ********************************
|
|
|
|
|
|
301 *
|
|
|
|
|
|
302 * Get R1
|
|
|
|
|
|
303 * R1 is in A
|
|
|
|
|
|
304 *
|
|
|
|
|
|
305 ********************************
|
|
|
|
|
|
306
|
|
|
|
|
|
970F: A9 FF 307 GETR1 LDA #DUMMY
|
|
|
|
|
|
9711: 8D C0 C0 308 STA DATA
|
|
|
|
|
|
9714: 2C C1 C0 309 :WAIT BIT CTRL
|
|
|
|
|
|
9717: 10 FB 310 BPL :WAIT
|
|
|
|
|
|
9719: AD C0 C0 311 LDA DATA ; get response
|
|
|
|
|
|
971C: 8D 7C 04 312 STA R30+SLOT ; save R1
|
|
|
|
|
|
971F: 29 80 313 AND #$80
|
|
|
|
|
|
9721: D0 EC 314 BNE GETR1 ; wait for MSB=0
|
|
|
|
|
|
9723: A9 FF 315 LDA #DUMMY
|
|
|
|
|
|
9725: 8D C0 C0 316 STA DATA ; send another dummy
|
|
|
|
|
|
9728: AD 7C 04 317 LDA R30+SLOT ; restore R1
|
|
|
|
|
|
972B: 60 318 RTS
|
|
|
|
|
|
319
|
|
|
|
|
|
320
|
|
|
|
|
|
321 ********************************
|
|
|
|
|
|
322 *
|
|
|
|
|
|
323 * Get R3
|
|
|
|
|
|
324 * R1 is in A
|
|
|
|
|
|
325 * R3 is in scratchpad ram
|
|
|
|
|
|
326 *
|
|
|
|
|
|
327 ********************************
|
|
|
|
|
|
328
|
|
|
|
|
|
972C: 20 0F 97 329 GETR3 JSR GETR1 ; get R1 first
|
|
|
|
|
|
972F: 48 330 PHA ; save R1
|
|
|
|
|
|
9730: 5A 331 PHY ; save Y
|
|
|
|
|
|
9731: A0 04 332 LDY #04
|
|
|
|
|
|
9733: A9 FF 333 :LOOP LDA #DUMMY ; send dummy
|
|
|
|
|
|
9735: 8D C0 C0 334 STA DATA
|
|
|
|
|
|
9738: 2C C1 C0 335 :WAIT BIT CTRL
|
|
|
|
|
|
973B: 10 FB 336 BPL :WAIT
|
|
|
|
|
|
973D: AD C0 C0 337 LDA DATA
|
|
|
|
|
|
9740: 48 338 PHA
|
|
|
|
|
|
9741: 88 339 DEY
|
|
|
|
|
|
9742: D0 EF 340 BNE :LOOP ; do 4 times
|
|
|
|
|
|
9744: 68 341 PLA
|
|
|
|
|
|
9745: 8D FC 05 342 STA R33+SLOT ; save R3
|
|
|
|
|
|
9748: 68 343 PLA
|
|
|
|
|
|
9749: 8D 7C 05 344 STA R32+SLOT
|
|
|
|
|
|
===== Page 7 =====
|
|
|
|
|
|
|
|
|
|
|
|
974C: 68 345 PLA
|
|
|
|
|
|
974D: 8D FC 04 346 STA R31+SLOT
|
|
|
|
|
|
9750: 68 347 PLA
|
|
|
|
|
|
9751: 8D 7C 04 348 STA R30+SLOT
|
|
|
|
|
|
9754: 7A 349 PLY ; restore Y
|
|
|
|
|
|
9755: A9 FF 350 LDA #DUMMY
|
|
|
|
|
|
9757: 8D C0 C0 351 STA DATA ; send another dummy
|
|
|
|
|
|
975A: 68 352 PLA ; restore R1
|
|
|
|
|
|
975B: 60 353 RTS
|
|
|
|
|
|
354
|
|
|
|
|
|
355
|
|
|
|
|
|
356 ********************************
|
|
|
|
|
|
357 *
|
|
|
|
|
|
358 * Status request
|
|
|
|
|
|
359 * $43 Unt number DSSS000
|
|
|
|
|
|
360 * $44-45 Unused
|
|
|
|
|
|
361 * $46-47 Unused
|
|
|
|
|
|
362 *
|
|
|
|
|
|
363 * C Clear - No error
|
|
|
|
|
|
364 * Set - Error
|
|
|
|
|
|
365 * A $00 - No error
|
|
|
|
|
|
366 * $27 - I/O error
|
|
|
|
|
|
367 * $28 - No card inserted / no init
|
|
|
|
|
|
368 * $2B - Card write protected
|
|
|
|
|
|
369 * X - Blocks avail (low byte)
|
|
|
|
|
|
370 * Y - Blocks avail (high byte)
|
|
|
|
|
|
371 *
|
|
|
|
|
|
372 ********************************
|
|
|
|
|
|
373
|
|
|
|
|
|
975C: 18 374 STATUS CLC ; no error
|
|
|
|
|
|
975D: A9 00 375 LDA #0
|
|
|
|
|
|
975F: A2 FF 376 LDX #$FF ; 32 MB partition
|
|
|
|
|
|
9761: A0 FF 377 LDY #$FF
|
|
|
|
|
|
9763: 60 378 RTS
|
|
|
|
|
|
379
|
|
|
|
|
|
380 * TODO: check for card detect and write protect!
|
|
|
|
|
|
381
|
|
|
|
|
|
382
|
|
|
|
|
|
383 ********************************
|
|
|
|
|
|
384 *
|
|
|
|
|
|
385 * Read 512 byte block
|
|
|
|
|
|
386 * $43 Unit number DSSS0000
|
|
|
|
|
|
387 * $44-45 Address (LO/HI) of buffer
|
|
|
|
|
|
388 * $46-47 Block number (LO/HI)
|
|
|
|
|
|
389 *
|
|
|
|
|
|
390 * C Clear - No error
|
|
|
|
|
|
391 * Set - Error
|
|
|
|
|
|
392 * A $00 - No error
|
|
|
|
|
|
393 * $27 - Bad block number
|
|
|
|
|
|
394 * $28 - No card inserted
|
|
|
|
|
|
395 *
|
|
|
|
|
|
396 ********************************
|
|
|
|
|
|
397
|
|
|
|
|
|
398 * TODO: check for card detect!
|
|
|
|
|
|
399
|
|
|
|
|
|
9764: A9 0E 400 READ LDA #SS0 ; enable /CS
|
|
|
|
|
|
9766: 8D C3 C0 401 STA SS
|
|
|
|
|
|
===== Page 8 =====
|
|
|
|
|
|
|
|
|
|
|
|
402
|
|
|
|
|
|
9769: A5 46 403 LDA $46 ; store block num
|
|
|
|
|
|
976B: 8D FC 05 404 STA R33+SLOT ; in R30-R33
|
|
|
|
|
|
976E: A5 47 405 LDA $47
|
|
|
|
|
|
9770: 8D 7C 05 406 STA R32+SLOT
|
|
|
|
|
|
9773: 9C FC 04 407 STZ R31+SLOT
|
|
|
|
|
|
9776: 9C 7C 04 408 STZ R30+SLOT
|
|
|
|
|
|
9779: A0 09 409 LDY #9
|
|
|
|
|
|
977B: 0E FC 05 410 :LOOP ASL R33+SLOT ; mul block num
|
|
|
|
|
|
977E: 2E 7C 05 411 ROL R32+SLOT ; by 512 to get
|
|
|
|
|
|
9781: 2E FC 04 412 ROL R31+SLOT ; real address
|
|
|
|
|
|
9784: 2E 7C 04 413 ROL R30+SLOT
|
|
|
|
|
|
9787: 88 414 DEY
|
|
|
|
|
|
9788: D0 F1 415 BNE :LOOP
|
|
|
|
|
|
416
|
|
|
|
|
|
978A: A9 51 417 LDA #$51 ; send CMD17
|
|
|
|
|
|
978C: 8D C0 C0 418 STA DATA
|
|
|
|
|
|
978F: 2C C1 C0 419 :WAIT BIT CTRL
|
|
|
|
|
|
9792: 10 FB 420 BPL :WAIT
|
|
|
|
|
|
9794: AD 7C 04 421 :ARG LDA R30+SLOT ; get arg from R30 on
|
|
|
|
|
|
9797: 8D C0 C0 422 STA DATA
|
|
|
|
|
|
979A: 2C C1 C0 423 :WAIT1 BIT CTRL
|
|
|
|
|
|
979D: 10 FB 424 BPL :WAIT1
|
|
|
|
|
|
979F: AD FC 04 425 LDA R31+SLOT
|
|
|
|
|
|
97A2: 8D C0 C0 426 STA DATA
|
|
|
|
|
|
97A5: 2C C1 C0 427 :WAIT11 BIT CTRL
|
|
|
|
|
|
97A8: 10 FB 428 BPL :WAIT11
|
|
|
|
|
|
97AA: AD 7C 05 429 LDA R32+SLOT
|
|
|
|
|
|
97AD: 8D C0 C0 430 STA DATA
|
|
|
|
|
|
97B0: 2C C1 C0 431 :WAIT12 BIT CTRL
|
|
|
|
|
|
97B3: 10 FB 432 BPL :WAIT12
|
|
|
|
|
|
97B5: AD FC 05 433 LDA R33+SLOT
|
|
|
|
|
|
97B8: 8D C0 C0 434 STA DATA
|
|
|
|
|
|
97BB: 2C C1 C0 435 :WAIT13 BIT CTRL
|
|
|
|
|
|
97BE: 10 FB 436 BPL :WAIT13
|
|
|
|
|
|
97C0: A9 FF 437 LDA #DUMMY
|
|
|
|
|
|
97C2: 8D C0 C0 438 STA DATA ; dummy crc
|
|
|
|
|
|
97C5: 2C C1 C0 439 :WAIT2 BIT CTRL
|
|
|
|
|
|
97C8: 10 FB 440 BPL :WAIT2
|
|
|
|
|
|
97CA: A9 FF 441 :GETR1 LDA #DUMMY
|
|
|
|
|
|
97CC: 8D C0 C0 442 STA DATA ; get R1
|
|
|
|
|
|
97CF: 2C C1 C0 443 :WAIT3 BIT CTRL
|
|
|
|
|
|
97D2: 10 FB 444 BPL :WAIT3
|
|
|
|
|
|
97D4: AD C0 C0 445 LDA DATA ; get response
|
|
|
|
|
|
446 *
|
|
|
|
|
|
447 * TODO: check for error!
|
|
|
|
|
|
448 *
|
|
|
|
|
|
97D7: C9 FE 449 CMP #$FE
|
|
|
|
|
|
97D9: D0 EF 450 BNE :GETR1 ; wait for $FE
|
|
|
|
|
|
451
|
|
|
|
|
|
97DB: A2 02 452 LDX #2 ; read data from card
|
|
|
|
|
|
97DD: A0 00 453 :LOOPX LDY #0
|
|
|
|
|
|
97DF: A9 FF 454 :LOOPY LDA #DUMMY
|
|
|
|
|
|
97E1: 8D C0 C0 455 STA DATA
|
|
|
|
|
|
97E4: 2C C1 C0 456 :WAIT4 BIT CTRL
|
|
|
|
|
|
97E7: 10 FB 457 BPL :WAIT4
|
|
|
|
|
|
97E9: AD C0 C0 458 LDA DATA
|
|
|
|
|
|
===== Page 9 =====
|
|
|
|
|
|
|
|
|
|
|
|
97EC: 92 44 459 STA ($44)
|
|
|
|
|
|
97EE: E6 44 460 INC $44
|
|
|
|
|
|
97F0: D0 02 461 BNE :INY
|
|
|
|
|
|
97F2: E6 45 462 INC $45 ; inc msb on page boundary
|
|
|
|
|
|
97F4: C8 463 :INY INY
|
|
|
|
|
|
97F5: D0 E8 464 BNE :LOOPY
|
|
|
|
|
|
97F7: CA 465 DEX
|
|
|
|
|
|
97F8: D0 E3 466 BNE :LOOPX
|
|
|
|
|
|
467
|
|
|
|
|
|
97FA: 20 2C 97 468 :OK JSR GETR3 ; read 2 bytes crc
|
|
|
|
|
|
97FD: A9 0F 469 LDA #SSNONE
|
|
|
|
|
|
97FF: 8D C3 C0 470 STA SS ; disable /CS
|
|
|
|
|
|
9802: 18 471 CLC ; no error
|
|
|
|
|
|
9803: A9 00 472 LDA #$00
|
|
|
|
|
|
9805: 60 473 RTS
|
|
|
|
|
|
474
|
|
|
|
|
|
9806: A9 0F 475 :ERROR LDA #SSNONE
|
|
|
|
|
|
9808: 8D C3 C0 476 STA SS ; disable /CS
|
|
|
|
|
|
980B: 38 477 SEC ; an error occured
|
|
|
|
|
|
980C: A9 27 478 LDA #$27
|
|
|
|
|
|
980E: 60 479 RTS
|
|
|
|
|
|
480
|
|
|
|
|
|
481
|
|
|
|
|
|
482 ********************************
|
|
|
|
|
|
483 *
|
|
|
|
|
|
484 * Write 512 byte block
|
|
|
|
|
|
485 * $43 Unit number DSSS000
|
|
|
|
|
|
486 * $44-45 Address (LO/HI) of buffer
|
|
|
|
|
|
487 * $46-47 Block number (LO/HI)
|
|
|
|
|
|
488 *
|
|
|
|
|
|
489 * C Clear - No error
|
|
|
|
|
|
490 * Set - Error
|
|
|
|
|
|
491 * A $00 - No error
|
|
|
|
|
|
492 * $27 - Bad block number
|
|
|
|
|
|
493 * $28 - No card inserted
|
|
|
|
|
|
494 *
|
|
|
|
|
|
495 ********************************
|
|
|
|
|
|
496
|
|
|
|
|
|
497 * TODO: check for card detect and write protect!
|
|
|
|
|
|
498
|
|
|
|
|
|
980F: A9 0E 499 WRITE LDA #SS0 ; enable /CS
|
|
|
|
|
|
9811: 8D C3 C0 500 STA SS
|
|
|
|
|
|
501
|
|
|
|
|
|
9814: A5 46 502 LDA $46 ; store block num
|
|
|
|
|
|
9816: 8D FC 05 503 STA R33+SLOT
|
|
|
|
|
|
9819: A5 47 504 LDA $47
|
|
|
|
|
|
981B: 8D 7C 05 505 STA R32+SLOT
|
|
|
|
|
|
981E: 9C FC 04 506 STZ R31+SLOT
|
|
|
|
|
|
9821: 9C 7C 04 507 STZ R30+SLOT
|
|
|
|
|
|
9824: A0 09 508 LDY #9
|
|
|
|
|
|
9826: 0E FC 05 509 :LOOP ASL R33+SLOT ; mul block num
|
|
|
|
|
|
9829: 2E 7C 05 510 ROL R32+SLOT ; by 512 to get
|
|
|
|
|
|
982C: 2E FC 04 511 ROL R31+SLOT ; real address
|
|
|
|
|
|
982F: 2E 7C 04 512 ROL R30+SLOT
|
|
|
|
|
|
9832: 88 513 DEY
|
|
|
|
|
|
9833: D0 F1 514 BNE :LOOP
|
|
|
|
|
|
515
|
|
|
|
|
|
===== Page 10 =====
|
|
|
|
|
|
|
|
|
|
|
|
9835: A9 58 516 LDA #$58 ; send CMD24
|
|
|
|
|
|
9837: 8D C0 C0 517 STA DATA
|
|
|
|
|
|
983A: 2C C1 C0 518 :WAIT BIT CTRL
|
|
|
|
|
|
983D: 10 FB 519 BPL :WAIT
|
|
|
|
|
|
983F: AD 7C 04 520 :ARG LDA R30+SLOT ; get arg from R30 on
|
|
|
|
|
|
9842: 8D C0 C0 521 STA DATA
|
|
|
|
|
|
9845: 2C C1 C0 522 :WAIT1 BIT CTRL
|
|
|
|
|
|
9848: 10 FB 523 BPL :WAIT1
|
|
|
|
|
|
984A: AD FC 04 524 LDA R31+SLOT
|
|
|
|
|
|
984D: 8D C0 C0 525 STA DATA
|
|
|
|
|
|
9850: 2C C1 C0 526 :WAIT11 BIT CTRL
|
|
|
|
|
|
9853: 10 FB 527 BPL :WAIT11
|
|
|
|
|
|
9855: AD 7C 05 528 LDA R32+SLOT
|
|
|
|
|
|
9858: 8D C0 C0 529 STA DATA
|
|
|
|
|
|
985B: 2C C1 C0 530 :WAIT12 BIT CTRL
|
|
|
|
|
|
985E: 10 FB 531 BPL :WAIT12
|
|
|
|
|
|
9860: AD FC 05 532 LDA R33+SLOT
|
|
|
|
|
|
9863: 8D C0 C0 533 STA DATA
|
|
|
|
|
|
9866: 2C C1 C0 534 :WAIT13 BIT CTRL
|
|
|
|
|
|
9869: 10 FB 535 BPL :WAIT13
|
|
|
|
|
|
986B: A9 FF 536 LDA #DUMMY
|
|
|
|
|
|
986D: 8D C0 C0 537 STA DATA ; dummy crc
|
|
|
|
|
|
9870: 2C C1 C0 538 :WAIT2 BIT CTRL
|
|
|
|
|
|
9873: 10 FB 539 BPL :WAIT2
|
|
|
|
|
|
9875: A9 FF 540 :GETR1 LDA #DUMMY
|
|
|
|
|
|
9877: 8D C0 C0 541 STA DATA ; get R1
|
|
|
|
|
|
987A: 2C C1 C0 542 :WAIT3 BIT CTRL
|
|
|
|
|
|
987D: 10 FB 543 BPL :WAIT3
|
|
|
|
|
|
987F: AD C0 C0 544 LDA DATA : get response
|
|
|
|
|
|
545 *
|
|
|
|
|
|
546 * TODO: check for error!
|
|
|
|
|
|
547 *
|
|
|
|
|
|
9882: C9 FE 548 CMP #$FE
|
|
|
|
|
|
9884: D0 EF 549 BNE :GETR1 ; wait for $FE
|
|
|
|
|
|
9886: A2 02 550 LDX #2 ; send data to card
|
|
|
|
|
|
9888: A0 00 551 :LOOPX LDY #0
|
|
|
|
|
|
988A: B2 44 552 :LOOPY LDA ($44)
|
|
|
|
|
|
988C: 8D C0 C0 553 STA DATA
|
|
|
|
|
|
988F: 2C C1 C0 554 :WAIT4 BIT CTRL
|
|
|
|
|
|
9892: 10 FB 555 BPL :WAIT4
|
|
|
|
|
|
9894: E6 44 556 INC $44
|
|
|
|
|
|
9896: D0 02 557 BNE :INY
|
|
|
|
|
|
9898: E6 45 558 INC $45 ; inc msbon page boundary
|
|
|
|
|
|
989A: C8 559 :INY INY
|
|
|
|
|
|
989B: D0 ED 560 BNE :LOOPY
|
|
|
|
|
|
989D: CA 561 DEX
|
|
|
|
|
|
989E: D0 E8 562 BNE :LOOPX
|
|
|
|
|
|
563
|
|
|
|
|
|
98A0: A0 02 564 LDY #2 ; send 2 dummy crc bytes
|
|
|
|
|
|
98A2: 8D C0 C0 565 :CRC STA DATA
|
|
|
|
|
|
98A5: 2C C1 C0 566 :WAIT5 BIT CTRL
|
|
|
|
|
|
98A8: 10 FB 567 BPL :WAIT5
|
|
|
|
|
|
98AA: 88 568 DEY
|
|
|
|
|
|
98AB: D0 F5 569 BNE :CRC
|
|
|
|
|
|
570
|
|
|
|
|
|
98AD: A9 0F 571 :OK LDA #SSNONE ; disable /CS
|
|
|
|
|
|
98AF: 8D C3 C0 572 STA SS
|
|
|
|
|
|
===== Page 11 =====
|
|
|
|
|
|
|
|
|
|
|
|
98B2: 18 573 CLC ; no error
|
|
|
|
|
|
98B3: A9 00 574 LDA #0
|
|
|
|
|
|
98B5: 60 575 RTS
|
|
|
|
|
|
576
|
|
|
|
|
|
577
|
|
|
|
|
|
578 ********************************
|
|
|
|
|
|
579 *
|
|
|
|
|
|
580 * Format
|
|
|
|
|
|
581 * not supported!
|
|
|
|
|
|
582 *
|
|
|
|
|
|
583 ********************************
|
|
|
|
|
|
584
|
|
|
|
|
|
98B6: 38 585 FORMAT SEC
|
|
|
|
|
|
98B7: A9 01 586 LDA #$01 ; invalid command
|
|
|
|
|
|
98B9: 60 587 RTS
|
|
|
|
|
|
588
|
|
|
|
|
|
589
|
|
|
|
|
|
590
|
|
|
|
|
|
98BA: 40 00 00 591 CMD0 HEX 400000000095
|
|
|
|
|
|
98BD: 00 00 95
|
|
|
|
|
|
98C0: 41 00 00 592 CMD1 HEX 4100000000F9
|
|
|
|
|
|
98C3: 00 00 F9
|
|
|
|
|
|
98C6: 48 00 00 593 CMD8 HEX 48000001AA87
|
|
|
|
|
|
98C9: 01 AA 87
|
|
|
|
|
|
98CC: 50 00 00 594 CMD16 HEX 5000000200FF
|
|
|
|
|
|
98CF: 02 00 FF
|
|
|
|
|
|
98D2: 77 00 00 595 CMD55 HEX 770000000065
|
|
|
|
|
|
98D5: 00 00 65
|
|
|
|
|
|
98D8: 69 40 00 596 ACMD41_40 HEX 694000000077
|
|
|
|
|
|
98DB: 00 00 77
|
|
|
|
|
|
98DE: 69 00 00 597 ACMD41_0 HEX 6900000000FF
|
|
|
|
|
|
98E1: 00 00 FF
|
|
|
|
|
|
598
|
|
|
|
|
|
599 DRIVEND = *
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
--End assembly, 880 bytes, Errors: 0
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
Symbol table - alphabetical order:
|
|
|
|
|
|
|
|
|
|
|
|
ACMD41_0=$98DE ACMD41_40=$98D8 BLOCKSZ =$96D2 BUFLSB =$8085
|
|
|
|
|
|
BUFMSB =$8084 ? CDERROR =$96E9 CMD =$96FD CMD0 =$98BA
|
|
|
|
|
|
CMD1 =$98C0 CMD16 =$98CC CMD55 =$98D2 CMD8 =$98C6
|
|
|
|
|
|
CMDHI =$FB CMDLO =$FA CTRL =$C0C1 DATA =$C0C0
|
|
|
|
|
|
DIV =$C0C2 DRIVEND =$98E4 DRIVER =$9600 DRIVER1 =$808C
|
|
|
|
|
|
DUMMY =$FF ? END =$96E4 END1 =$96F1 ERROR =$8060
|
|
|
|
|
|
ERROR1 =$9695 FORMAT =$98B6 FROM =$FA ? GETBUF =$8000
|
|
|
|
|
|
GETR1 =$970F GETR3 =$972C INIT =$9626 INSLP =$804D
|
|
|
|
|
|
INSLP2 =$8063 INSOUT =$8083 ? INSTALL =$804A IOERROR =$96EE
|
|
|
|
|
|
MMC =$96BC ? MOVEUP =$8021 MU1 =$8037 MU2 =$803E
|
|
|
|
|
|
MU3 =$8042 R30 =$0478 R31 =$04F8 R32 =$0578
|
|
|
|
|
|
R33 =$05F8 READ =$9764 SDV1 =$9698 SDV2 =$966E
|
|
|
|
|
|
SIZE =$FE SLOT =$04 SS =$C0C3 SS0 =$0E
|
|
|
|
|
|
SSNONE =$0F STATUS =$975C ? TC =$80 TO =$FC
|
|
|
|
|
|
WRITE =$980F
|
|
|
|
|
|
|
|
|
|
|
|
===== Page 12 =====
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
Symbol table - numerical order:
|
|
|
|
|
|
|
|
|
|
|
|
SLOT =$04 SS0 =$0E SSNONE =$0F ? TC =$80
|
|
|
|
|
|
CMDLO =$FA FROM =$FA CMDHI =$FB TO =$FC
|
|
|
|
|
|
SIZE =$FE DUMMY =$FF R30 =$0478 R31 =$04F8
|
|
|
|
|
|
R32 =$0578 R33 =$05F8 ? GETBUF =$8000 ? MOVEUP =$8021
|
|
|
|
|
|
MU1 =$8037 MU2 =$803E MU3 =$8042 ? INSTALL =$804A
|
|
|
|
|
|
INSLP =$804D ERROR =$8060 INSLP2 =$8063 INSOUT =$8083
|
|
|
|
|
|
BUFMSB =$8084 BUFLSB =$8085 DRIVER1 =$808C DRIVER =$9600
|
|
|
|
|
|
INIT =$9626 SDV2 =$966E ERROR1 =$9695 SDV1 =$9698
|
|
|
|
|
|
MMC =$96BC BLOCKSZ =$96D2 ? END =$96E4 ? CDERROR =$96E9
|
|
|
|
|
|
IOERROR =$96EE END1 =$96F1 CMD =$96FD GETR1 =$970F
|
|
|
|
|
|
GETR3 =$972C STATUS =$975C READ =$9764 WRITE =$980F
|
|
|
|
|
|
FORMAT =$98B6 CMD0 =$98BA CMD1 =$98C0 CMD8 =$98C6
|
|
|
|
|
|
CMD16 =$98CC CMD55 =$98D2 ACMD41_40=$98D8 ACMD41_0=$98DE
|
|
|
|
|
|
DRIVEND =$98E4 DATA =$C0C0 CTRL =$C0C1 DIV =$C0C2
|
|
|
|
|
|
SS =$C0C3
|
2017-07-05 17:08:54 +00:00
|
|
|
|
|
