2017-08-13 11:34:15 +00:00
|
|
|
|
1 ********************************
|
|
|
|
|
|
2 *
|
|
|
|
|
|
3 * Apple][Sd Firmware
|
|
|
|
|
|
4 * Version 0.5
|
|
|
|
|
|
5 *
|
|
|
|
|
|
6 * (c) Florian Reitz, 2017
|
|
|
|
|
|
7 *
|
|
|
|
|
|
8 * X register usually contains SLOT16
|
2017-08-13 11:46:00 +00:00
|
|
|
|
9 * Y register is used for counting or SLOT
|
2017-08-13 11:34:15 +00:00
|
|
|
|
10 *
|
|
|
|
|
|
11 ********************************
|
|
|
|
|
|
12
|
2017-08-13 11:46:00 +00:00
|
|
|
|
13-AUG-17 13:35
|
2017-08-13 11:34:15 +00:00
|
|
|
|
14
|
|
|
|
|
|
15 XC ; enable 65C02 code
|
|
|
|
|
|
16 DEBUG = 0
|
|
|
|
|
|
17 DO DEBUG
|
|
|
|
|
|
18 ORG $8000
|
|
|
|
|
|
19 ELSE
|
|
|
|
|
|
20 ORG $C800 ; Expansion ROM
|
|
|
|
|
|
21 FIN
|
|
|
|
|
|
22
|
|
|
|
|
|
23 * Memory defines
|
|
|
|
|
|
24
|
|
|
|
|
|
25 SLOT16 = $2B ; $s0 -> slot * 16
|
|
|
|
|
|
26 WORK = $3C
|
|
|
|
|
|
27 SLOT = $3D ; $0s
|
|
|
|
|
|
28 CMDLO = $40
|
|
|
|
|
|
29 CMDHI = $41
|
|
|
|
|
|
30
|
|
|
|
|
|
31 CURSLOT = $07F8 ; $Cs
|
|
|
|
|
|
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 INITED = $0678
|
|
|
|
|
|
41
|
|
|
|
|
|
42 * Constants
|
|
|
|
|
|
43
|
|
|
|
|
|
44 SSNONE = $0F
|
|
|
|
|
|
45 SS0 = $0E
|
|
|
|
|
|
46 DUMMY = $FF
|
|
|
|
|
|
47
|
|
|
|
|
|
48
|
|
|
|
|
|
49 ********************************
|
|
|
|
|
|
50 *
|
|
|
|
|
|
51 * Install SD card driver
|
|
|
|
|
|
52 *
|
|
|
|
|
|
53 ********************************
|
|
|
|
|
|
54
|
|
|
|
|
|
55 * signature bytes
|
|
|
|
|
|
56
|
|
|
|
|
|
C800: A2 20 57 LDX #$20
|
|
|
|
|
|
C802: A0 00 58 LDY #$00
|
|
|
|
|
|
C804: A2 03 59 LDX #$03
|
|
|
|
|
|
===== Page 2 =====
|
|
|
|
|
|
|
|
|
|
|
|
C806: 86 3C 60 STX WORK
|
|
|
|
|
|
61
|
|
|
|
|
|
62 * find slot nr
|
|
|
|
|
|
63
|
|
|
|
|
|
64 DO DEBUG
|
|
|
|
|
|
65 LDA #$04
|
|
|
|
|
|
66 STA SLOT
|
|
|
|
|
|
67 LDA #$C4
|
|
|
|
|
|
68 STA CURSLOT
|
|
|
|
|
|
69 LDA #$40
|
|
|
|
|
|
70 STA SLOT16
|
|
|
|
|
|
71 ELSE
|
|
|
|
|
|
C808: 20 58 FF 72 JSR $FF58
|
|
|
|
|
|
C80B: BA 73 TSX
|
|
|
|
|
|
C80C: BD 00 01 74 LDA $0100,X
|
|
|
|
|
|
C80F: 8D F8 07 75 STA CURSLOT ; $Cs
|
|
|
|
|
|
C812: 29 0F 76 AND #$0F
|
|
|
|
|
|
C814: 85 3D 77 STA SLOT ; $0s
|
|
|
|
|
|
C816: 0A 78 ASL A
|
|
|
|
|
|
C817: 0A 79 ASL A
|
|
|
|
|
|
C818: 0A 80 ASL A
|
|
|
|
|
|
C819: 0A 81 ASL A
|
|
|
|
|
|
C81A: 85 2B 82 STA SLOT16 ; $s0
|
|
|
|
|
|
83 FIN
|
|
|
|
|
|
C81C: AA 84 TAX ; X holds now SLOT16
|
|
|
|
|
|
85
|
|
|
|
|
|
C81D: 2C FF CF 86 BIT $CFFF
|
|
|
|
|
|
C820: 20 00 C9 87 JSR INIT
|
|
|
|
|
|
88
|
|
|
|
|
|
89 DO 0
|
|
|
|
|
|
90 *
|
|
|
|
|
|
91 * TODO: check for init error
|
|
|
|
|
|
92 *
|
|
|
|
|
|
93
|
|
|
|
|
|
94 * see if slot has a driver already
|
|
|
|
|
|
95
|
|
|
|
|
|
96 LDX $BF31 ; get devcnt
|
|
|
|
|
|
97 INSLP LDA $BF32,X ; get a devnum
|
|
|
|
|
|
98 AND #$70 ; isolate slot
|
|
|
|
|
|
99 CMP SLOT16 ; slot?
|
|
|
|
|
|
100 BEQ INSOUT ; yes, skip it
|
|
|
|
|
|
101 DEX
|
|
|
|
|
|
102 BPL INSLP ; keep up the search
|
|
|
|
|
|
103
|
|
|
|
|
|
104 * restore the devnum to the list
|
|
|
|
|
|
105
|
|
|
|
|
|
106 LDX $BF31 ; get devcnt again
|
|
|
|
|
|
107 CPX #$0D ; device table full?
|
|
|
|
|
|
108 BNE INSLP2
|
|
|
|
|
|
109
|
|
|
|
|
|
110 JSR $FF3A ; bell
|
|
|
|
|
|
111 JMP INSOUT ; do something!
|
|
|
|
|
|
112
|
|
|
|
|
|
113 INSLP2 LDA $BF32-1,X ; move all entries down
|
|
|
|
|
|
114 STA $BF32,X ; to make room at front
|
|
|
|
|
|
115 DEX ; for a new entry
|
|
|
|
|
|
116 BNE INSLP2
|
|
|
|
|
|
===== Page 3 =====
|
|
|
|
|
|
|
|
|
|
|
|
117 LDA #$04 ; ProFile type device
|
|
|
|
|
|
118 ORA SLOT16
|
|
|
|
|
|
119 STA $BF32 ; slot, drive 1 at top of list
|
|
|
|
|
|
120 INC $BF31 ; update devcnt
|
|
|
|
|
|
121
|
|
|
|
|
|
122 * now insert the device driver vector
|
|
|
|
|
|
123
|
|
|
|
|
|
124 LDA SLOT
|
|
|
|
|
|
125 ASL
|
|
|
|
|
|
126 TAX
|
|
|
|
|
|
127 LDA #<DRIVER
|
|
|
|
|
|
128 STA $BF10,X ; write to driver table
|
|
|
|
|
|
129 DO DEBUG
|
|
|
|
|
|
130 LDA #>DRIVER
|
|
|
|
|
|
131 ELSE
|
|
|
|
|
|
132 LDA CURSLOT
|
|
|
|
|
|
133 FIN
|
|
|
|
|
|
134 STA $BF11,X
|
|
|
|
|
|
135
|
|
|
|
|
|
136 INSOUT RTS
|
|
|
|
|
|
137 FIN
|
|
|
|
|
|
138
|
|
|
|
|
|
C823: A9 01 139 BOOT LDA #$01
|
|
|
|
|
|
C825: 85 42 140 STA $42 ; load command
|
|
|
|
|
|
C827: A5 2B 141 LDA SLOT16
|
|
|
|
|
|
C829: AA 142 TAX
|
|
|
|
|
|
C82A: 85 43 143 STA $43 ; slot number
|
|
|
|
|
|
C82C: 64 44 144 STZ $44 ; buffer lo
|
|
|
|
|
|
C82E: A9 08 145 LDA #$08
|
|
|
|
|
|
C830: 85 45 146 STA $45 ; buffer hi
|
|
|
|
|
|
C832: 64 46 147 STZ $46 ; block lo
|
|
|
|
|
|
C834: 64 47 148 STZ $47 ; block hi
|
|
|
|
|
|
C836: 2C FF CF 149 BIT $CFFF
|
|
|
|
|
|
C839: 20 B7 CA 150 JSR READ ; call driver
|
|
|
|
|
|
C83C: 4C 01 08 151 JMP $801 ; goto bootloader
|
|
|
|
|
|
152
|
|
|
|
|
|
153
|
|
|
|
|
|
154 ********************************
|
|
|
|
|
|
155 *
|
|
|
|
|
|
156 * Jump table
|
|
|
|
|
|
157 *
|
|
|
|
|
|
158 ********************************
|
|
|
|
|
|
159
|
|
|
|
|
|
C83F: D8 160 DRIVER CLD
|
|
|
|
|
|
161 DO DEBUG
|
|
|
|
|
|
162 LDA #$04
|
|
|
|
|
|
163 STA SLOT
|
|
|
|
|
|
164 LDA #$C4
|
|
|
|
|
|
165 STA CURSLOT
|
|
|
|
|
|
166 LDA #$40
|
|
|
|
|
|
167 STA SLOT16
|
|
|
|
|
|
168 ELSE
|
|
|
|
|
|
C840: 20 58 FF 169 JSR $FF58 ; find slot nr
|
|
|
|
|
|
C843: BA 170 TSX
|
|
|
|
|
|
C844: BD 00 01 171 LDA $0100,X
|
|
|
|
|
|
C847: 8D F8 07 172 STA CURSLOT ; $Cs
|
|
|
|
|
|
C84A: 29 0F 173 AND #$0F
|
|
|
|
|
|
===== Page 4 =====
|
|
|
|
|
|
|
|
|
|
|
|
C84C: 85 3D 174 STA SLOT ; $0s
|
|
|
|
|
|
C84E: 0A 175 ASL A
|
|
|
|
|
|
C84F: 0A 176 ASL A
|
|
|
|
|
|
C850: 0A 177 ASL A
|
|
|
|
|
|
C851: 0A 178 ASL A
|
|
|
|
|
|
C852: 85 2B 179 STA SLOT16 ; $s0
|
|
|
|
|
|
180 FIN
|
|
|
|
|
|
C854: AA 181 TAX ; X holds now SLOT16
|
|
|
|
|
|
182
|
2017-08-13 11:46:00 +00:00
|
|
|
|
C855: 2C FF CF 183 BIT $CFFF
|
2017-08-13 11:34:15 +00:00
|
|
|
|
C858: A4 3D 184 LDY SLOT
|
|
|
|
|
|
C85A: B9 78 06 185 LDA INITED,Y ; check for init
|
|
|
|
|
|
C85D: C9 01 186 CMP #$01
|
|
|
|
|
|
C85F: 90 22 187 BCC :INIT
|
|
|
|
|
|
C861: A5 42 188 :CMD LDA $42 ; get command
|
2017-08-13 11:46:00 +00:00
|
|
|
|
C863: C9 00 189 CMP #$00
|
2017-08-13 11:34:15 +00:00
|
|
|
|
C865: F0 10 190 BEQ :STATUS
|
|
|
|
|
|
C867: C9 01 191 CMP #$01
|
|
|
|
|
|
C869: F0 0F 192 BEQ :READ
|
|
|
|
|
|
C86B: C9 02 193 CMP #$02
|
|
|
|
|
|
C86D: F0 0E 194 BEQ :WRITE
|
|
|
|
|
|
C86F: C9 03 195 CMP #$03
|
|
|
|
|
|
C871: F0 0D 196 BEQ :FORMAT
|
|
|
|
|
|
C873: 38 197 SEC ; unknown command
|
|
|
|
|
|
C874: A9 01 198 LDA #$01
|
|
|
|
|
|
C876: 60 199 RTS
|
|
|
|
|
|
200
|
|
|
|
|
|
C877: 4C AF CA 201 :STATUS JMP STATUS
|
|
|
|
|
|
C87A: 4C B7 CA 202 :READ JMP READ
|
2017-08-13 11:46:00 +00:00
|
|
|
|
C87D: 4C 0D CB 203 :WRITE JMP WRITE
|
|
|
|
|
|
C880: 4C 9D CB 204 :FORMAT JMP FORMAT
|
2017-08-13 11:34:15 +00:00
|
|
|
|
C883: 20 00 C9 205 :INIT JSR INIT
|
|
|
|
|
|
C886: 80 D9 206 BRA :CMD
|
|
|
|
|
|
207
|
|
|
|
|
|
208 * Signature bytes
|
|
|
|
|
|
209
|
|
|
|
|
|
C888: 00 00 00 210 DS \ ; fill with zeroes
|
|
|
|
|
|
C88B: 00 00 00 00
|
|
|
|
|
|
C88F: 00 00 00 00
|
|
|
|
|
|
C893: 00 00 00 00
|
|
|
|
|
|
C897: 00 00 00 00
|
|
|
|
|
|
C89B: 00 00 00 00
|
|
|
|
|
|
C89F: 00 00 00 00
|
|
|
|
|
|
C8A3: 00 00 00 00
|
|
|
|
|
|
C8A7: 00 00 00 00
|
|
|
|
|
|
C8AB: 00 00 00 00
|
|
|
|
|
|
C8AF: 00 00 00 00
|
|
|
|
|
|
C8B3: 00 00 00 00
|
|
|
|
|
|
C8B7: 00 00 00 00
|
|
|
|
|
|
C8BB: 00 00 00 00
|
|
|
|
|
|
C8BF: 00 00 00 00
|
|
|
|
|
|
C8C3: 00 00 00 00
|
|
|
|
|
|
C8C7: 00 00 00 00
|
|
|
|
|
|
C8CB: 00 00 00 00
|
|
|
|
|
|
C8CF: 00 00 00 00
|
|
|
|
|
|
C8D3: 00 00 00 00
|
|
|
|
|
|
C8D7: 00 00 00 00
|
|
|
|
|
|
===== Page 5 =====
|
|
|
|
|
|
|
|
|
|
|
|
C8DB: 00 00 00 00
|
|
|
|
|
|
C8DF: 00 00 00 00
|
|
|
|
|
|
C8E3: 00 00 00 00
|
|
|
|
|
|
C8E7: 00 00 00 00
|
|
|
|
|
|
C8EB: 00 00 00 00
|
|
|
|
|
|
C8EF: 00 00 00 00
|
|
|
|
|
|
C8F3: 00 00 00 00
|
|
|
|
|
|
C8F7: 00 00 00 00
|
|
|
|
|
|
C8FB: 00 00 00 00
|
|
|
|
|
|
C8FF: 00
|
|
|
|
|
|
211 DS -4 ; locate to $C8FC
|
|
|
|
|
|
C8FC: FF FF 212 DW $FFFF ; 65535 blocks
|
|
|
|
|
|
C8FE: 47 213 DB $47 ; Status bits
|
|
|
|
|
|
C8FF: 3F 214 DB #<DRIVER ; LSB of driver
|
|
|
|
|
|
215
|
|
|
|
|
|
216
|
|
|
|
|
|
217 ********************************
|
|
|
|
|
|
218 *
|
|
|
|
|
|
219 * Initialize SD card
|
|
|
|
|
|
220 *
|
|
|
|
|
|
221 * C Clear - No error
|
|
|
|
|
|
222 * Set - Error
|
|
|
|
|
|
223 * A $00 - No error
|
|
|
|
|
|
224 * $27 - I/O error - Init failed
|
|
|
|
|
|
225 * $28 - No card inserted
|
|
|
|
|
|
226 *
|
|
|
|
|
|
227 ********************************
|
|
|
|
|
|
228
|
|
|
|
|
|
C900: D8 229 INIT CLD
|
|
|
|
|
|
C901: A9 03 230 LDA #$03 ; set SPI mode 3
|
|
|
|
|
|
C903: 9D 81 C0 231 STA CTRL,X
|
|
|
|
|
|
C906: A9 0F 232 LDA #SSNONE
|
|
|
|
|
|
C908: 9D 83 C0 233 STA SS,X
|
|
|
|
|
|
C90B: A9 07 234 LDA #7
|
|
|
|
|
|
C90D: 9D 82 C0 235 STA DIV,X
|
|
|
|
|
|
C910: A0 0A 236 LDY #10
|
|
|
|
|
|
C912: A9 FF 237 LDA #DUMMY
|
|
|
|
|
|
238
|
|
|
|
|
|
C914: 9D 80 C0 239 :LOOP STA DATA,X
|
|
|
|
|
|
C917: 3C 81 C0 240 :WAIT BIT CTRL,X
|
|
|
|
|
|
C91A: 10 FB 241 BPL :WAIT
|
|
|
|
|
|
C91C: 88 242 DEY
|
|
|
|
|
|
C91D: D0 F5 243 BNE :LOOP ; do 10 times
|
|
|
|
|
|
C91F: A9 0E 244 LDA #SS0 ; set CS low
|
|
|
|
|
|
C921: 9D 83 C0 245 STA SS,X
|
|
|
|
|
|
246
|
2017-08-13 11:46:00 +00:00
|
|
|
|
C924: A9 A1 247 LDA #<CMD0 ; send CMD0
|
2017-08-13 11:34:15 +00:00
|
|
|
|
C926: 85 40 248 STA CMDLO
|
|
|
|
|
|
C928: A9 CB 249 LDA #>CMD0
|
2017-08-13 11:46:00 +00:00
|
|
|
|
C92A: 85 41 250 STA CMDHI
|
2017-08-13 11:34:15 +00:00
|
|
|
|
C92C: 20 DE C9 251 JSR CMD
|
|
|
|
|
|
C92F: 20 F2 C9 252 JSR GETR1 ; get response
|
|
|
|
|
|
C932: C9 01 253 CMP #$01
|
|
|
|
|
|
C934: D0 39 254 BNE :ERROR1 ; error!
|
|
|
|
|
|
255
|
2017-08-13 11:46:00 +00:00
|
|
|
|
C936: A9 AD 256 LDA #<CMD8 ; send CMD8
|
2017-08-13 11:34:15 +00:00
|
|
|
|
C938: 85 40 257 STA CMDLO
|
|
|
|
|
|
===== Page 6 =====
|
|
|
|
|
|
|
|
|
|
|
|
C93A: A9 CB 258 LDA #>CMD8
|
|
|
|
|
|
C93C: 85 41 259 STA CMDHI
|
|
|
|
|
|
C93E: 20 DE C9 260 JSR CMD
|
|
|
|
|
|
C941: 20 0D CA 261 JSR GETR3
|
|
|
|
|
|
C944: C9 01 262 CMP #$01
|
|
|
|
|
|
C946: D0 2A 263 BNE :SDV1 ; may be SD Ver. 1
|
|
|
|
|
|
264
|
|
|
|
|
|
265 * check for $01aa match!
|
2017-08-13 11:46:00 +00:00
|
|
|
|
C948: A9 B9 266 :SDV2 LDA #<CMD55
|
2017-08-13 11:34:15 +00:00
|
|
|
|
C94A: 85 40 267 STA CMDLO
|
|
|
|
|
|
C94C: A9 CB 268 LDA #>CMD55
|
|
|
|
|
|
C94E: 85 41 269 STA CMDHI
|
|
|
|
|
|
C950: 20 DE C9 270 JSR CMD
|
|
|
|
|
|
C953: 20 F2 C9 271 JSR GETR1
|
2017-08-13 11:46:00 +00:00
|
|
|
|
C956: A9 BF 272 LDA #<ACMD4140
|
2017-08-13 11:34:15 +00:00
|
|
|
|
C958: 85 40 273 STA CMDLO
|
2017-08-13 11:46:00 +00:00
|
|
|
|
C95A: A9 CB 274 LDA #>ACMD4140
|
2017-08-13 11:34:15 +00:00
|
|
|
|
C95C: 85 41 275 STA CMDHI
|
|
|
|
|
|
C95E: 20 DE C9 276 JSR CMD
|
|
|
|
|
|
C961: 20 F2 C9 277 JSR GETR1
|
|
|
|
|
|
C964: C9 01 278 CMP #$01
|
|
|
|
|
|
C966: F0 E0 279 BEQ :SDV2 ; wait for ready
|
|
|
|
|
|
C968: C9 00 280 CMP #$00
|
|
|
|
|
|
C96A: D0 03 281 BNE :ERROR1 ; error!
|
|
|
|
|
|
282 * send CMD58
|
|
|
|
|
|
283 * SD Ver. 2 initialized!
|
|
|
|
|
|
C96C: 4C AC C9 284 JMP :BLOCKSZ
|
|
|
|
|
|
285
|
|
|
|
|
|
C96F: 4C CF C9 286 :ERROR1 JMP :IOERROR ; needed for far jump
|
|
|
|
|
|
287
|
2017-08-13 11:46:00 +00:00
|
|
|
|
C972: A9 B9 288 :SDV1 LDA #<CMD55
|
2017-08-13 11:34:15 +00:00
|
|
|
|
C974: 85 40 289 STA CMDLO
|
|
|
|
|
|
C976: A9 CB 290 LDA #>CMD55
|
|
|
|
|
|
C978: 85 41 291 STA CMDHI
|
|
|
|
|
|
C97A: 20 DE C9 292 JSR CMD ; ignore response
|
2017-08-13 11:46:00 +00:00
|
|
|
|
C97D: A9 C5 293 LDA #<ACMD410
|
2017-08-13 11:34:15 +00:00
|
|
|
|
C97F: 85 40 294 STA CMDLO
|
|
|
|
|
|
C981: A9 CB 295 LDA #>ACMD410
|
|
|
|
|
|
C983: 85 41 296 STA CMDHI
|
|
|
|
|
|
C985: 20 DE C9 297 JSR CMD
|
|
|
|
|
|
C988: 20 F2 C9 298 JSR GETR1
|
|
|
|
|
|
C98B: C9 01 299 CMP #$01
|
|
|
|
|
|
C98D: F0 E3 300 BEQ :SDV1 ; wait for ready
|
|
|
|
|
|
C98F: C9 00 301 CMP #$00
|
|
|
|
|
|
C991: D0 03 302 BNE :MMC ; may be MMC card
|
|
|
|
|
|
303 * SD Ver. 1 initialized!
|
|
|
|
|
|
C993: 4C AC C9 304 JMP :BLOCKSZ
|
|
|
|
|
|
305
|
2017-08-13 11:46:00 +00:00
|
|
|
|
C996: A9 A7 306 :MMC LDA #<CMD1
|
2017-08-13 11:34:15 +00:00
|
|
|
|
C998: 85 40 307 STA CMDLO
|
|
|
|
|
|
C99A: A9 CB 308 LDA #>CMD1
|
|
|
|
|
|
C99C: 85 41 309 STA CMDHI
|
|
|
|
|
|
C99E: 20 DE C9 310 :LOOP1 JSR CMD
|
|
|
|
|
|
C9A1: 20 F2 C9 311 JSR GETR1
|
|
|
|
|
|
C9A4: C9 01 312 CMP #$01
|
|
|
|
|
|
C9A6: F0 F6 313 BEQ :LOOP1 ; wait for ready
|
|
|
|
|
|
C9A8: C9 00 314 CMP #$00
|
|
|
|
|
|
===== Page 7 =====
|
|
|
|
|
|
|
|
|
|
|
|
C9AA: D0 23 315 BNE :IOERROR ; error!
|
|
|
|
|
|
316 * MMC Ver. 3 initialized!
|
|
|
|
|
|
317
|
2017-08-13 11:46:00 +00:00
|
|
|
|
C9AC: A9 B3 318 :BLOCKSZ LDA #<CMD16
|
2017-08-13 11:34:15 +00:00
|
|
|
|
C9AE: 85 40 319 STA CMDLO
|
|
|
|
|
|
C9B0: A9 CB 320 LDA #>CMD16
|
|
|
|
|
|
C9B2: 85 41 321 STA CMDHI
|
|
|
|
|
|
C9B4: 20 DE C9 322 JSR CMD
|
|
|
|
|
|
C9B7: 20 F2 C9 323 JSR GETR1
|
|
|
|
|
|
C9BA: C9 00 324 CMP #$00
|
|
|
|
|
|
C9BC: D0 11 325 BNE :IOERROR ; error!
|
|
|
|
|
|
326
|
2017-08-13 11:46:00 +00:00
|
|
|
|
C9BE: A4 3D 327 :END LDY SLOT ; all ok
|
2017-08-13 11:34:15 +00:00
|
|
|
|
C9C0: A9 01 328 LDA #$01
|
|
|
|
|
|
C9C2: 99 78 06 329 STA INITED,Y ; initialized
|
|
|
|
|
|
C9C5: 18 330 CLC
|
|
|
|
|
|
C9C6: A0 00 331 LDY #0
|
|
|
|
|
|
C9C8: 90 08 332 BCC :END1
|
|
|
|
|
|
C9CA: 38 333 :CDERROR SEC
|
|
|
|
|
|
C9CB: A0 28 334 LDY #$28 ; no card error
|
|
|
|
|
|
C9CD: B0 03 335 BCS :END1
|
|
|
|
|
|
C9CF: 38 336 :IOERROR SEC
|
|
|
|
|
|
C9D0: A0 27 337 LDY #$27 ; init error
|
|
|
|
|
|
C9D2: A9 0F 338 :END1 LDA #SSNONE ; deselect card
|
|
|
|
|
|
C9D4: 9D 83 C0 339 STA SS,X
|
|
|
|
|
|
C9D7: A9 00 340 LDA #0 ; set div to 2
|
|
|
|
|
|
C9D9: 9D 82 C0 341 STA DIV,X
|
|
|
|
|
|
C9DC: 98 342 TYA ; retval in A
|
|
|
|
|
|
C9DD: 60 343 RTS
|
|
|
|
|
|
344
|
|
|
|
|
|
345
|
|
|
|
|
|
346 ********************************
|
|
|
|
|
|
347 *
|
|
|
|
|
|
348 * Send SD command
|
|
|
|
|
|
349 * Call with command in CMDHI and CMDLO
|
|
|
|
|
|
350 *
|
|
|
|
|
|
351 ********************************
|
|
|
|
|
|
352
|
|
|
|
|
|
C9DE: 5A 353 CMD PHY
|
|
|
|
|
|
C9DF: A0 00 354 LDY #0
|
|
|
|
|
|
C9E1: B1 40 355 :LOOP LDA (CMDLO),Y
|
|
|
|
|
|
C9E3: 9D 80 C0 356 STA DATA,X
|
|
|
|
|
|
C9E6: 3C 81 C0 357 :WAIT BIT CTRL,X ; TC is in N
|
|
|
|
|
|
C9E9: 10 FB 358 BPL :WAIT
|
|
|
|
|
|
C9EB: C8 359 INY
|
|
|
|
|
|
C9EC: C0 06 360 CPY #6
|
|
|
|
|
|
C9EE: 90 F1 361 BCC :LOOP
|
|
|
|
|
|
C9F0: 7A 362 PLY
|
|
|
|
|
|
C9F1: 60 363 RTS
|
|
|
|
|
|
364
|
|
|
|
|
|
365
|
|
|
|
|
|
366 ********************************
|
|
|
|
|
|
367 *
|
|
|
|
|
|
368 * Get R1
|
|
|
|
|
|
369 * R1 is in A
|
|
|
|
|
|
370 *
|
|
|
|
|
|
371 ********************************
|
|
|
|
|
|
===== Page 8 =====
|
|
|
|
|
|
|
|
|
|
|
|
372
|
|
|
|
|
|
C9F2: A9 FF 373 GETR1 LDA #DUMMY
|
|
|
|
|
|
C9F4: 9D 80 C0 374 STA DATA,X
|
|
|
|
|
|
C9F7: 3C 81 C0 375 :WAIT BIT CTRL,X
|
|
|
|
|
|
C9FA: 10 FB 376 BPL :WAIT
|
|
|
|
|
|
C9FC: BD 80 C0 377 LDA DATA,X ; get response
|
2017-08-13 11:46:00 +00:00
|
|
|
|
C9FF: 85 3C 378 STA WORK ; save R1
|
2017-08-13 11:34:15 +00:00
|
|
|
|
CA01: 29 80 379 AND #$80
|
|
|
|
|
|
CA03: D0 ED 380 BNE GETR1 ; wait for MSB=0
|
|
|
|
|
|
CA05: A9 FF 381 LDA #DUMMY
|
2017-08-13 11:46:00 +00:00
|
|
|
|
CA07: 9D 80 C0 382 STA DATA,X ; send another dummy
|
2017-08-13 11:34:15 +00:00
|
|
|
|
CA0A: A5 3C 383 LDA WORK ; restore R1
|
|
|
|
|
|
CA0C: 60 384 RTS
|
|
|
|
|
|
385
|
|
|
|
|
|
386
|
|
|
|
|
|
387 ********************************
|
|
|
|
|
|
388 *
|
|
|
|
|
|
389 * Get R3
|
|
|
|
|
|
390 * R1 is in A
|
|
|
|
|
|
391 * R3 is in scratchpad ram
|
|
|
|
|
|
392 *
|
|
|
|
|
|
393 ********************************
|
|
|
|
|
|
394
|
|
|
|
|
|
CA0D: 20 F2 C9 395 GETR3 JSR GETR1 ; get R1 first
|
|
|
|
|
|
CA10: 48 396 PHA ; save R1
|
|
|
|
|
|
CA11: 5A 397 PHY ; save Y
|
|
|
|
|
|
CA12: A0 04 398 LDY #04 ; load counter
|
|
|
|
|
|
CA14: A9 FF 399 :LOOP LDA #DUMMY ; send dummy
|
|
|
|
|
|
CA16: 9D 80 C0 400 STA DATA,X
|
|
|
|
|
|
CA19: 3C 81 C0 401 :WAIT BIT CTRL,X
|
|
|
|
|
|
CA1C: 10 FB 402 BPL :WAIT
|
2017-08-13 11:46:00 +00:00
|
|
|
|
CA1E: BD 80 C0 403 LDA DATA,X
|
2017-08-13 11:34:15 +00:00
|
|
|
|
CA21: 48 404 PHA
|
|
|
|
|
|
CA22: 88 405 DEY
|
|
|
|
|
|
CA23: D0 EF 406 BNE :LOOP ; do 4 times
|
2017-08-13 11:46:00 +00:00
|
|
|
|
CA25: A4 3D 407 LDY SLOT
|
2017-08-13 11:34:15 +00:00
|
|
|
|
CA27: 68 408 PLA
|
|
|
|
|
|
CA28: 99 F8 05 409 STA R33,Y ; save R3
|
|
|
|
|
|
CA2B: 68 410 PLA
|
|
|
|
|
|
CA2C: 99 78 05 411 STA R32,Y
|
|
|
|
|
|
CA2F: 68 412 PLA
|
|
|
|
|
|
CA30: 99 F8 04 413 STA R31,Y
|
|
|
|
|
|
CA33: 68 414 PLA
|
2017-08-13 11:46:00 +00:00
|
|
|
|
CA34: 99 78 04 415 STA R30,Y
|
2017-08-13 11:34:15 +00:00
|
|
|
|
CA37: 7A 416 PLY ; restore Y
|
|
|
|
|
|
CA38: A9 FF 417 LDA #DUMMY
|
|
|
|
|
|
CA3A: 9D 80 C0 418 STA DATA,X ; send another dummy
|
|
|
|
|
|
CA3D: 68 419 PLA ; restore R1
|
|
|
|
|
|
CA3E: 60 420 RTS
|
|
|
|
|
|
421
|
|
|
|
|
|
422
|
|
|
|
|
|
423 ********************************
|
|
|
|
|
|
424 *
|
|
|
|
|
|
425 * Calculate block address
|
|
|
|
|
|
426 * Block no is in $46-47
|
|
|
|
|
|
427 * Address is in R30-R33
|
|
|
|
|
|
428 *
|
|
|
|
|
|
===== Page 9 =====
|
|
|
|
|
|
|
|
|
|
|
|
429 ********************************
|
|
|
|
|
|
430
|
|
|
|
|
|
CA3F: DA 431 BLOCK PHX ; save X
|
|
|
|
|
|
CA40: 5A 432 PHY ; save Y
|
2017-08-13 11:46:00 +00:00
|
|
|
|
CA41: A6 3D 433 LDX SLOT
|
2017-08-13 11:34:15 +00:00
|
|
|
|
CA43: A5 46 434 LDA $46 ; store block num
|
|
|
|
|
|
CA45: 9D F8 05 435 STA R33,X ; in R30-R33
|
|
|
|
|
|
CA48: A5 47 436 LDA $47
|
|
|
|
|
|
CA4A: 9D 78 05 437 STA R32,X
|
|
|
|
|
|
CA4D: A9 00 438 LDA #0
|
|
|
|
|
|
CA4F: 9D F8 04 439 STA R31,X
|
|
|
|
|
|
CA52: 9D 78 04 440 STA R30,X
|
|
|
|
|
|
441
|
|
|
|
|
|
CA55: A0 09 442 LDY #9 ; ASL can't be used with Y
|
|
|
|
|
|
CA57: 1E F8 05 443 :LOOP ASL R33,X ; mul block num
|
|
|
|
|
|
CA5A: 3E 78 05 444 ROL R32,X ; by 512 to get
|
|
|
|
|
|
CA5D: 3E F8 04 445 ROL R31,X ; real address
|
|
|
|
|
|
CA60: 3E 78 04 446 ROL R30,X
|
|
|
|
|
|
CA63: 88 447 DEY
|
|
|
|
|
|
CA64: D0 F1 448 BNE :LOOP
|
|
|
|
|
|
CA66: 7A 449 PLY ; restore Y
|
|
|
|
|
|
CA67: FA 450 PLX ; restore X
|
|
|
|
|
|
CA68: 60 451 RTS
|
|
|
|
|
|
452
|
|
|
|
|
|
453
|
|
|
|
|
|
454 ********************************
|
2017-08-13 11:46:00 +00:00
|
|
|
|
455 *
|
2017-08-13 11:34:15 +00:00
|
|
|
|
456 * Send SD command
|
|
|
|
|
|
457 * Cmd is in A
|
|
|
|
|
|
458 *
|
|
|
|
|
|
459 ********************************
|
|
|
|
|
|
460
|
|
|
|
|
|
CA69: 5A 461 COMMAND PHY ; save Y
|
|
|
|
|
|
CA6A: A4 3D 462 LDY SLOT
|
2017-08-13 11:46:00 +00:00
|
|
|
|
CA6C: 9D 80 C0 463 STA DATA,X ; send command
|
2017-08-13 11:34:15 +00:00
|
|
|
|
CA6F: 3C 81 C0 464 :WAIT BIT CTRL,X
|
|
|
|
|
|
CA72: 10 FB 465 BPL :WAIT
|
|
|
|
|
|
CA74: B9 78 04 466 :ARG LDA R30,Y ; get arg from R30 on
|
|
|
|
|
|
CA77: 9D 80 C0 467 STA DATA,X
|
|
|
|
|
|
CA7A: 3C 81 C0 468 :WAIT1 BIT CTRL,X
|
|
|
|
|
|
CA7D: 10 FB 469 BPL :WAIT1
|
|
|
|
|
|
CA7F: B9 F8 04 470 LDA R31,Y
|
|
|
|
|
|
CA82: 9D 80 C0 471 STA DATA,X
|
|
|
|
|
|
CA85: 3C 81 C0 472 :WAIT11 BIT CTRL,X
|
|
|
|
|
|
CA88: 10 FB 473 BPL :WAIT11
|
|
|
|
|
|
CA8A: B9 78 05 474 LDA R32,Y
|
|
|
|
|
|
CA8D: 9D 80 C0 475 STA DATA,X
|
|
|
|
|
|
CA90: 3C 81 C0 476 :WAIT12 BIT CTRL,X
|
|
|
|
|
|
CA93: 10 FB 477 BPL :WAIT12
|
|
|
|
|
|
CA95: B9 F8 05 478 LDA R33,Y
|
|
|
|
|
|
CA98: 9D 80 C0 479 STA DATA,X
|
|
|
|
|
|
CA9B: 3C 81 C0 480 :WAIT13 BIT CTRL,X
|
|
|
|
|
|
CA9E: 10 FB 481 BPL :WAIT13
|
|
|
|
|
|
CAA0: A9 FF 482 LDA #DUMMY
|
|
|
|
|
|
CAA2: 9D 80 C0 483 STA DATA,X ; dummy crc
|
|
|
|
|
|
CAA5: 3C 81 C0 484 :WAIT2 BIT CTRL,X
|
|
|
|
|
|
CAA8: 10 FB 485 BPL :WAIT2
|
|
|
|
|
|
===== Page 10 =====
|
|
|
|
|
|
|
|
|
|
|
|
CAAA: 20 F2 C9 486 JSR GETR1
|
|
|
|
|
|
CAAD: 7A 487 PLY ; restore Y
|
|
|
|
|
|
CAAE: 60 488 RTS
|
|
|
|
|
|
489
|
|
|
|
|
|
490
|
|
|
|
|
|
491 ********************************
|
|
|
|
|
|
492 *
|
|
|
|
|
|
493 * Status request
|
|
|
|
|
|
494 * $43 Unit number DSSS000
|
|
|
|
|
|
495 * $44-45 Unused
|
|
|
|
|
|
496 * $46-47 Unused
|
|
|
|
|
|
497 *
|
|
|
|
|
|
498 * C Clear - No error
|
|
|
|
|
|
499 * Set - Error
|
|
|
|
|
|
500 * A $00 - No error
|
|
|
|
|
|
501 * $27 - I/O error
|
|
|
|
|
|
502 * $28 - No card inserted / no init
|
|
|
|
|
|
503 * $2B - Card write protected
|
|
|
|
|
|
504 * x - Blocks avail (low byte)
|
|
|
|
|
|
505 * y - Blocks avail (high byte)
|
|
|
|
|
|
506 *
|
2017-08-13 11:46:00 +00:00
|
|
|
|
507 ********************************
|
2017-08-13 11:34:15 +00:00
|
|
|
|
508
|
|
|
|
|
|
CAAF: 18 509 STATUS CLC ; no error
|
|
|
|
|
|
CAB0: A9 00 510 LDA #0
|
|
|
|
|
|
CAB2: A2 FF 511 LDX #$FF ; 32 MB partition
|
|
|
|
|
|
CAB4: A0 FF 512 LDY #$FF
|
|
|
|
|
|
CAB6: 60 513 RTS
|
|
|
|
|
|
514
|
|
|
|
|
|
515 * TODO: check for card detect and write protect!
|
|
|
|
|
|
516
|
|
|
|
|
|
517
|
|
|
|
|
|
518 ********************************
|
|
|
|
|
|
519 *
|
|
|
|
|
|
520 * Read 512 byte block
|
|
|
|
|
|
521 * $43 Unit number DSSS0000
|
2017-08-13 11:46:00 +00:00
|
|
|
|
522 * $44-45 Address (LO/HI) of buffer
|
2017-08-13 11:34:15 +00:00
|
|
|
|
523 * $46-47 Block number (LO/HI)
|
|
|
|
|
|
524 *
|
|
|
|
|
|
525 * C Clear - No error
|
|
|
|
|
|
526 * Set - Error
|
|
|
|
|
|
527 * A $00 - No error
|
|
|
|
|
|
528 * $27 - Bad block number
|
|
|
|
|
|
529 * $28 - No card inserted
|
|
|
|
|
|
530 *
|
|
|
|
|
|
531 ********************************
|
|
|
|
|
|
532
|
|
|
|
|
|
533 * TODO: check for card detect!
|
|
|
|
|
|
534
|
2017-08-13 11:46:00 +00:00
|
|
|
|
CAB7: 20 3F CA 535 READ JSR BLOCK ; calc block address
|
2017-08-13 11:34:15 +00:00
|
|
|
|
536
|
|
|
|
|
|
CABA: A9 0E 537 LDA #SS0 ; enable /CS
|
|
|
|
|
|
CABC: 9D 83 C0 538 STA SS,X
|
|
|
|
|
|
CABF: A9 51 539 LDA #$51 ; send CMD17
|
2017-08-13 11:46:00 +00:00
|
|
|
|
CAC1: 20 69 CA 540 JSR COMMAND ; send command
|
|
|
|
|
|
541
|
2017-08-13 11:34:15 +00:00
|
|
|
|
CAC4: A9 FF 542 :GETTOK LDA #DUMMY ; get data token
|
|
|
|
|
|
===== Page 11 =====
|
|
|
|
|
|
|
|
|
|
|
|
CAC6: 9D 80 C0 543 STA DATA,X
|
|
|
|
|
|
CAC9: 3C 81 C0 544 :WAIT BIT CTRL,X
|
|
|
|
|
|
CACC: 10 FB 545 BPL :WAIT
|
|
|
|
|
|
CACE: BD 80 C0 546 LDA DATA,X ; get response
|
|
|
|
|
|
547 *
|
|
|
|
|
|
548 * TODO: check for error!
|
|
|
|
|
|
549 *
|
|
|
|
|
|
CAD1: C9 FE 550 CMP #$FE
|
|
|
|
|
|
CAD3: D0 EF 551 BNE :GETTOK ; wait for $FE
|
|
|
|
|
|
552
|
2017-08-13 11:46:00 +00:00
|
|
|
|
CAD5: A0 02 553 LDY #2 ; read data from card
|
2017-08-13 11:34:15 +00:00
|
|
|
|
CAD7: 64 3C 554 :LOOPY STZ WORK
|
|
|
|
|
|
CAD9: A9 FF 555 :LOOPW LDA #DUMMY
|
2017-08-13 11:46:00 +00:00
|
|
|
|
CADB: 9D 80 C0 556 STA DATA,X
|
2017-08-13 11:34:15 +00:00
|
|
|
|
CADE: 3C 81 C0 557 :WAIT1 BIT CTRL,X
|
|
|
|
|
|
CAE1: 10 FB 558 BPL :WAIT1
|
|
|
|
|
|
CAE3: BD 80 C0 559 LDA DATA,X
|
|
|
|
|
|
CAE6: 92 44 560 STA ($44)
|
|
|
|
|
|
CAE8: E6 44 561 INC $44
|
|
|
|
|
|
CAEA: D0 02 562 BNE :INW
|
|
|
|
|
|
CAEC: E6 45 563 INC $45 ; inc msb on page boundary
|
|
|
|
|
|
CAEE: E6 3C 564 :INW INC WORK
|
|
|
|
|
|
CAF0: D0 E7 565 BNE :LOOPW
|
|
|
|
|
|
CAF2: 88 566 DEY
|
|
|
|
|
|
CAF3: D0 E2 567 BNE :LOOPY
|
|
|
|
|
|
568
|
2017-08-13 11:46:00 +00:00
|
|
|
|
CAF5: A0 02 569 LDY #2
|
|
|
|
|
|
CAF7: A9 FF 570 :CRC LDA #DUMMY ; read 2 bytes crc
|
|
|
|
|
|
CAF9: 9D 80 C0 571 STA DATA,X ; and ignore
|
|
|
|
|
|
CAFC: 3C 81 C0 572 :WAIT2 BIT CTRL,X
|
|
|
|
|
|
CAFF: 10 FB 573 BPL :WAIT2
|
|
|
|
|
|
CB01: 88 574 DEY
|
|
|
|
|
|
CB02: D0 F3 575 BNE :CRC
|
2017-08-13 11:34:15 +00:00
|
|
|
|
576
|
2017-08-13 11:46:00 +00:00
|
|
|
|
CB04: A9 0F 577 LDA #SSNONE
|
|
|
|
|
|
CB06: 9D 83 C0 578 STA SS,X ; disable /CS
|
|
|
|
|
|
CB09: 18 579 CLC ; no error
|
|
|
|
|
|
CB0A: A9 00 580 LDA #$00
|
|
|
|
|
|
CB0C: 60 581 RTS
|
|
|
|
|
|
582
|
|
|
|
|
|
583
|
|
|
|
|
|
584 ********************************
|
|
|
|
|
|
585 *
|
|
|
|
|
|
586 * Write 512 byte block
|
|
|
|
|
|
587 * $43 Unit number DSSS000
|
|
|
|
|
|
588 * $44-45 Address (LO/HI) of buffer
|
|
|
|
|
|
589 * $46-47 Block number (LO/HI)
|
2017-08-13 11:34:15 +00:00
|
|
|
|
590 *
|
2017-08-13 11:46:00 +00:00
|
|
|
|
591 * C Clear - No error
|
|
|
|
|
|
592 * Set - Error
|
|
|
|
|
|
593 * A $00 - No error
|
|
|
|
|
|
594 * $27 - I/O error or bad block number
|
|
|
|
|
|
595 * $28 - No card inserted
|
|
|
|
|
|
596 * $2B - Card write protected
|
|
|
|
|
|
597 *
|
|
|
|
|
|
598 ********************************
|
|
|
|
|
|
599
|
2017-08-13 11:34:15 +00:00
|
|
|
|
===== Page 12 =====
|
|
|
|
|
|
|
2017-08-13 11:46:00 +00:00
|
|
|
|
600 * TODO: check for card detect and write protect!
|
2017-08-13 11:34:15 +00:00
|
|
|
|
601
|
2017-08-13 11:46:00 +00:00
|
|
|
|
CB0D: 20 3F CA 602 WRITE JSR BLOCK ; calc block address
|
|
|
|
|
|
603
|
|
|
|
|
|
CB10: A9 0E 604 LDA #SS0 ; enable /CS
|
|
|
|
|
|
CB12: 9D 83 C0 605 STA SS,X
|
|
|
|
|
|
CB15: A9 58 606 LDA #$58 ; send CMD24
|
|
|
|
|
|
CB17: 20 69 CA 607 JSR COMMAND ; send command
|
|
|
|
|
|
608
|
|
|
|
|
|
CB1A: A9 FF 609 LDA #DUMMY
|
|
|
|
|
|
CB1C: 9D 80 C0 610 STA DATA,X ; send dummy
|
|
|
|
|
|
CB1F: 3C 81 C0 611 :WAIT1 BIT CTRL,X
|
|
|
|
|
|
CB22: 10 FB 612 BPL :WAIT1
|
|
|
|
|
|
CB24: A9 FE 613 LDA #$FE
|
|
|
|
|
|
CB26: 9D 80 C0 614 STA DATA,X ; send data token
|
|
|
|
|
|
CB29: 3C 81 C0 615 :WAIT2 BIT CTRL,X
|
|
|
|
|
|
CB2C: 10 FB 616 BPL :WAIT2
|
|
|
|
|
|
617
|
|
|
|
|
|
CB2E: A0 02 618 LDY #2 ; send data to card
|
|
|
|
|
|
CB30: 64 3C 619 :LOOPY STZ WORK
|
|
|
|
|
|
CB32: B2 44 620 :LOOPW LDA ($44)
|
|
|
|
|
|
CB34: 9D 80 C0 621 STA DATA,X
|
|
|
|
|
|
CB37: 3C 81 C0 622 :WAIT3 BIT CTRL,X
|
|
|
|
|
|
CB3A: 10 FB 623 BPL :WAIT3
|
|
|
|
|
|
CB3C: E6 44 624 INC $44
|
|
|
|
|
|
CB3E: D0 02 625 BNE :INW
|
|
|
|
|
|
CB40: E6 45 626 INC $45 ; inc msb on page boundary
|
|
|
|
|
|
CB42: E6 3C 627 :INW INC WORK
|
|
|
|
|
|
CB44: D0 EC 628 BNE :LOOPW
|
|
|
|
|
|
CB46: 88 629 DEY
|
|
|
|
|
|
CB47: D0 E7 630 BNE :LOOPY
|
2017-08-13 11:34:15 +00:00
|
|
|
|
631
|
2017-08-13 11:46:00 +00:00
|
|
|
|
CB49: A0 02 632 LDY #2 ; send 2 dummy crc bytes
|
|
|
|
|
|
CB4B: 9D 80 C0 633 :CRC STA DATA,X
|
|
|
|
|
|
CB4E: 3C 81 C0 634 :WAIT4 BIT CTRL,X
|
|
|
|
|
|
CB51: 10 FB 635 BPL :WAIT4
|
|
|
|
|
|
CB53: 88 636 DEY
|
|
|
|
|
|
CB54: D0 F5 637 BNE :CRC
|
|
|
|
|
|
638
|
|
|
|
|
|
CB56: A9 FF 639 LDA #DUMMY ; get data response
|
|
|
|
|
|
CB58: 9D 80 C0 640 STA DATA,X
|
|
|
|
|
|
CB5B: 3C 81 C0 641 :WAIT5 BIT CTRL,X
|
|
|
|
|
|
CB5E: 10 FB 642 BPL :WAIT5
|
|
|
|
|
|
CB60: BD 80 C0 643 LDA DATA,X
|
|
|
|
|
|
CB63: 29 1F 644 AND #$1F
|
|
|
|
|
|
CB65: C9 05 645 CMP #$05
|
|
|
|
|
|
CB67: D0 1A 646 BNE :ERROR ; check for write error
|
|
|
|
|
|
647
|
|
|
|
|
|
CB69: A9 FF 648 :WAIT6 LDA #DUMMY ; wait for write cycle
|
|
|
|
|
|
CB6B: 9D 80 C0 649 STA DATA,X ; to complete
|
|
|
|
|
|
CB6E: 3C 81 C0 650 :WAIT61 BIT CTRL,X
|
|
|
|
|
|
CB71: 10 FB 651 BPL :WAIT61
|
|
|
|
|
|
CB73: BD 80 C0 652 LDA DATA,X
|
|
|
|
|
|
CB76: C9 00 653 CMP #$00
|
|
|
|
|
|
CB78: F0 EF 654 BEQ :WAIT6
|
|
|
|
|
|
655
|
|
|
|
|
|
CB7A: A9 0F 656 LDA #SSNONE ; disable /CS
|
2017-08-13 11:34:15 +00:00
|
|
|
|
===== Page 13 =====
|
|
|
|
|
|
|
2017-08-13 11:46:00 +00:00
|
|
|
|
CB7C: 9D 83 C0 657 STA SS,X
|
|
|
|
|
|
CB7F: 18 658 CLC ; no error
|
|
|
|
|
|
CB80: A9 00 659 LDA #0
|
|
|
|
|
|
CB82: 60 660 RTS
|
|
|
|
|
|
661
|
|
|
|
|
|
662 :ERROR
|
|
|
|
|
|
CB83: A9 FF 663 :WAIT7 LDA #DUMMY ; wait for write cycle
|
|
|
|
|
|
CB85: 9D 80 C0 664 STA DATA,X ; to complete
|
|
|
|
|
|
CB88: 3C 81 C0 665 :WAIT71 BIT CTRL,X
|
|
|
|
|
|
CB8B: 10 FB 666 BPL :WAIT71
|
|
|
|
|
|
CB8D: BD 80 C0 667 LDA DATA,X
|
|
|
|
|
|
CB90: C9 00 668 CMP #$00
|
|
|
|
|
|
CB92: F0 EF 669 BEQ :WAIT7
|
|
|
|
|
|
CB94: A9 0F 670 LDA #SSNONE
|
|
|
|
|
|
CB96: 9D 83 C0 671 STA SS,X ; disable /CS
|
|
|
|
|
|
CB99: 38 672 SEC ; an error occured
|
|
|
|
|
|
CB9A: A9 27 673 LDA #$27
|
|
|
|
|
|
CB9C: 60 674 RTS
|
|
|
|
|
|
675
|
2017-08-13 11:34:15 +00:00
|
|
|
|
676
|
2017-08-13 11:46:00 +00:00
|
|
|
|
677 ********************************
|
|
|
|
|
|
678 *
|
|
|
|
|
|
679 * Format
|
|
|
|
|
|
680 * not supported!
|
|
|
|
|
|
681 *
|
|
|
|
|
|
682 ********************************
|
|
|
|
|
|
683
|
|
|
|
|
|
CB9D: 38 684 FORMAT SEC
|
|
|
|
|
|
CB9E: A9 01 685 LDA #$01 ; invalid command
|
|
|
|
|
|
CBA0: 60 686 RTS
|
|
|
|
|
|
687
|
|
|
|
|
|
688
|
|
|
|
|
|
CBA1: 40 00 00 689 CMD0 HEX 400000
|
|
|
|
|
|
CBA4: 00 00 95 690 HEX 000095
|
|
|
|
|
|
CBA7: 41 00 00 691 CMD1 HEX 410000
|
|
|
|
|
|
CBAA: 00 00 F9 692 HEX 0000F9
|
|
|
|
|
|
CBAD: 48 00 00 693 CMD8 HEX 480000
|
|
|
|
|
|
CBB0: 01 AA 87 694 HEX 01AA87
|
|
|
|
|
|
CBB3: 50 00 00 695 CMD16 HEX 500000
|
|
|
|
|
|
CBB6: 02 00 FF 696 HEX 0200FF
|
|
|
|
|
|
CBB9: 77 00 00 697 CMD55 HEX 770000
|
|
|
|
|
|
CBBC: 00 00 65 698 HEX 000065
|
|
|
|
|
|
CBBF: 69 40 00 699 ACMD4140 HEX 694000
|
|
|
|
|
|
CBC2: 00 00 77 700 HEX 000077
|
|
|
|
|
|
CBC5: 69 00 00 701 ACMD410 HEX 690000
|
|
|
|
|
|
CBC8: 00 00 FF 702 HEX 0000FF
|
2017-08-13 11:34:15 +00:00
|
|
|
|
|
|
|
|
|
|
|
2017-08-13 11:46:00 +00:00
|
|
|
|
--End assembly, 971 bytes, Errors: 0
|
2017-08-13 11:34:15 +00:00
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
Symbol table - alphabetical order:
|
|
|
|
|
|
|
2017-08-13 11:46:00 +00:00
|
|
|
|
ACMD410 =$CBC5 ACMD4140=$CBBF BLOCK =$CA3F ? BOOT =$C823
|
|
|
|
|
|
CMD =$C9DE CMD0 =$CBA1 CMD1 =$CBA7 CMD16 =$CBB3
|
|
|
|
|
|
CMD55 =$CBB9 CMD8 =$CBAD CMDHI =$41 CMDLO =$40
|
|
|
|
|
|
COMMAND =$CA69 CTRL =$C081 CURSLOT =$07F8 DATA =$C080
|
|
|
|
|
|
===== Page 14 =====
|
|
|
|
|
|
|
2017-08-13 11:34:15 +00:00
|
|
|
|
DEBUG =$00 DIV =$C082 DRIVER =$C83F DUMMY =$FF
|
2017-08-13 11:46:00 +00:00
|
|
|
|
FORMAT =$CB9D GETR1 =$C9F2 GETR3 =$CA0D INIT =$C900
|
2017-08-13 11:34:15 +00:00
|
|
|
|
INITED =$0678 R30 =$0478 R31 =$04F8 R32 =$0578
|
|
|
|
|
|
R33 =$05F8 READ =$CAB7 SLOT =$3D SLOT16 =$2B
|
|
|
|
|
|
SS =$C083 SS0 =$0E SSNONE =$0F STATUS =$CAAF
|
2017-08-13 11:46:00 +00:00
|
|
|
|
WORK =$3C WRITE =$CB0D
|
|
|
|
|
|
|
2017-08-13 11:34:15 +00:00
|
|
|
|
|
|
|
|
|
|
Symbol table - numerical order:
|
|
|
|
|
|
|
|
|
|
|
|
DEBUG =$00 SS0 =$0E SSNONE =$0F SLOT16 =$2B
|
|
|
|
|
|
WORK =$3C SLOT =$3D CMDLO =$40 CMDHI =$41
|
|
|
|
|
|
DUMMY =$FF R30 =$0478 R31 =$04F8 R32 =$0578
|
|
|
|
|
|
R33 =$05F8 INITED =$0678 CURSLOT =$07F8 DATA =$C080
|
|
|
|
|
|
CTRL =$C081 DIV =$C082 SS =$C083 ? BOOT =$C823
|
|
|
|
|
|
DRIVER =$C83F INIT =$C900 CMD =$C9DE GETR1 =$C9F2
|
|
|
|
|
|
GETR3 =$CA0D BLOCK =$CA3F COMMAND =$CA69 STATUS =$CAAF
|
2017-08-13 11:46:00 +00:00
|
|
|
|
READ =$CAB7 WRITE =$CB0D FORMAT =$CB9D CMD0 =$CBA1
|
|
|
|
|
|
CMD1 =$CBA7 CMD8 =$CBAD CMD16 =$CBB3 CMD55 =$CBB9
|
|
|
|
|
|
ACMD4140=$CBBF ACMD410 =$CBC5
|
2017-08-13 11:34:15 +00:00
|
|
|
|
|
