2017-07-05 18:07:55 +00:00
|
|
|
|
1 ********************************
|
|
|
|
|
|
2 *
|
2017-07-15 16:32:17 +00:00
|
|
|
|
3 * Apple][Sd Firmware
|
|
|
|
|
|
4 * Version 0.5
|
|
|
|
|
|
5 *
|
|
|
|
|
|
6 * (c) Florian Reitz, 2017
|
|
|
|
|
|
7 *
|
|
|
|
|
|
8 * X register usually contains SLOT16
|
|
|
|
|
|
9 * Y register is used for counting or SLOT
|
|
|
|
|
|
10 *
|
|
|
|
|
|
11 ********************************
|
|
|
|
|
|
12
|
2017-08-11 20:59:02 +00:00
|
|
|
|
11-AUG-17 22:51
|
2017-07-15 16:32:17 +00:00
|
|
|
|
14
|
|
|
|
|
|
15 XC ; enable 65C02 code
|
2017-08-11 20:59:02 +00:00
|
|
|
|
16 DEBUG = 0
|
2017-07-16 13:36:47 +00:00
|
|
|
|
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
|
|
|
|
|
|
41 * Constants
|
2017-07-15 16:32:17 +00:00
|
|
|
|
42
|
2017-07-16 13:36:47 +00:00
|
|
|
|
43 SSNONE = $0F
|
|
|
|
|
|
44 SS0 = $0E
|
|
|
|
|
|
45 DUMMY = $FF
|
|
|
|
|
|
46
|
|
|
|
|
|
47
|
|
|
|
|
|
48 ********************************
|
|
|
|
|
|
49 *
|
|
|
|
|
|
50 * Install SD card driver
|
|
|
|
|
|
51 *
|
|
|
|
|
|
52 ********************************
|
|
|
|
|
|
53
|
|
|
|
|
|
54 * signature bytes
|
2017-07-05 18:07:55 +00:00
|
|
|
|
55
|
2017-08-11 20:59:02 +00:00
|
|
|
|
C800: A2 20 56 LDX #$20
|
|
|
|
|
|
C802: A0 00 57 LDY #$00
|
|
|
|
|
|
C804: A2 03 58 LDX #$03
|
|
|
|
|
|
C806: 86 3C 59 STX WORK
|
2017-07-05 18:07:55 +00:00
|
|
|
|
===== Page 2 =====
|
2017-07-16 13:36:47 +00:00
|
|
|
|
|
|
|
|
|
|
60
|
|
|
|
|
|
61 * find slot nr
|
|
|
|
|
|
62
|
|
|
|
|
|
63 DO DEBUG
|
2017-08-11 20:59:02 +00:00
|
|
|
|
64 LDA #$04
|
|
|
|
|
|
65 STA SLOT
|
|
|
|
|
|
66 LDA #$C4
|
|
|
|
|
|
67 STA CURSLOT
|
|
|
|
|
|
68 LDA #$40
|
|
|
|
|
|
69 STA SLOT16
|
2017-07-16 13:36:47 +00:00
|
|
|
|
70 ELSE
|
2017-08-11 20:59:02 +00:00
|
|
|
|
C808: 20 58 FF 71 JSR $FF58
|
|
|
|
|
|
C80B: BA 72 TSX
|
|
|
|
|
|
C80C: BD 00 01 73 LDA $0100,X
|
|
|
|
|
|
C80F: 29 0F 74 AND #$0F
|
|
|
|
|
|
C811: 85 3D 75 STA SLOT ; $0s
|
|
|
|
|
|
C813: 09 C0 76 ORA #$C0
|
|
|
|
|
|
C815: 8D F8 07 77 STA CURSLOT ; $Cs
|
|
|
|
|
|
C818: 0A 78 ASL A
|
|
|
|
|
|
C819: 0A 79 ASL A
|
|
|
|
|
|
C81A: 0A 80 ASL A
|
|
|
|
|
|
C81B: 0A 81 ASL A
|
|
|
|
|
|
C81C: 85 2B 82 STA SLOT16 ; $s0
|
2017-07-16 13:36:47 +00:00
|
|
|
|
83 FIN
|
2017-08-11 20:59:02 +00:00
|
|
|
|
C81E: AA 84 TAX ; X holds now SLOT16
|
2017-07-16 13:36:47 +00:00
|
|
|
|
85
|
2017-08-11 20:59:02 +00:00
|
|
|
|
C81F: 2C FF CF 86 BIT $CFFF
|
|
|
|
|
|
C822: 20 00 C9 87 JSR INIT
|
2017-07-15 16:32:17 +00:00
|
|
|
|
88
|
2017-07-16 13:36:47 +00:00
|
|
|
|
89 *
|
|
|
|
|
|
90 * TODO: check for init error
|
|
|
|
|
|
91 *
|
|
|
|
|
|
92
|
|
|
|
|
|
93 * see if slot has a driver already
|
2017-07-15 16:32:17 +00:00
|
|
|
|
94
|
2017-08-11 20:59:02 +00:00
|
|
|
|
C825: AE 31 BF 95 LDX $BF31 ; get devcnt
|
|
|
|
|
|
C828: BD 32 BF 96 INSLP LDA $BF32,X ; get a devnum
|
|
|
|
|
|
C82B: 29 70 97 AND #$70 ; isolate slot
|
|
|
|
|
|
C82D: C5 2B 98 CMP SLOT16 ; slot?
|
|
|
|
|
|
C82F: F0 32 99 BEQ INSOUT ; yes, skip it
|
|
|
|
|
|
C831: CA 100 DEX
|
|
|
|
|
|
C832: 10 F4 101 BPL INSLP ; keep up the search
|
2017-07-16 13:36:47 +00:00
|
|
|
|
102
|
|
|
|
|
|
103 * restore the devnum to the list
|
|
|
|
|
|
104
|
2017-08-11 20:59:02 +00:00
|
|
|
|
C834: AE 31 BF 105 LDX $BF31 ; get devcnt again
|
|
|
|
|
|
C837: E0 0D 106 CPX #$0D ; device table full?
|
|
|
|
|
|
C839: D0 06 107 BNE INSLP2
|
2017-07-15 16:32:17 +00:00
|
|
|
|
108
|
2017-08-11 20:59:02 +00:00
|
|
|
|
C83B: 20 3A FF 109 JSR $FF3A ; bell
|
|
|
|
|
|
C83E: 4C 63 C8 110 JMP INSOUT ; do something!
|
2017-07-16 13:36:47 +00:00
|
|
|
|
111
|
2017-08-11 20:59:02 +00:00
|
|
|
|
C841: BD 31 BF 112 INSLP2 LDA $BF32-1,X ; move all entries down
|
|
|
|
|
|
C844: 9D 32 BF 113 STA $BF32,X ; to make room at front
|
|
|
|
|
|
C847: CA 114 DEX ; for a new entry
|
|
|
|
|
|
C848: D0 F7 115 BNE INSLP2
|
|
|
|
|
|
C84A: A9 04 116 LDA #$04 ; ProFile type device
|
2017-07-16 13:36:47 +00:00
|
|
|
|
===== Page 3 =====
|
|
|
|
|
|
|
2017-08-11 20:59:02 +00:00
|
|
|
|
C84C: 05 2B 117 ORA SLOT16
|
|
|
|
|
|
C84E: 8D 32 BF 118 STA $BF32 ; slot, drive 1 at top of list
|
|
|
|
|
|
C851: EE 31 BF 119 INC $BF31 ; update devcnt
|
2017-07-16 13:36:47 +00:00
|
|
|
|
120
|
|
|
|
|
|
121 * now insert the device driver vector
|
|
|
|
|
|
122
|
2017-08-11 20:59:02 +00:00
|
|
|
|
C854: A5 3D 123 LDA SLOT
|
|
|
|
|
|
C856: 0A 124 ASL
|
|
|
|
|
|
C857: AA 125 TAX
|
|
|
|
|
|
C858: A9 64 126 LDA #<DRIVER
|
|
|
|
|
|
C85A: 9D 10 BF 127 STA $BF10,X ; write to driver table
|
2017-07-16 13:36:47 +00:00
|
|
|
|
128 DO DEBUG
|
2017-08-11 20:59:02 +00:00
|
|
|
|
129 LDA #>DRIVER
|
2017-07-16 13:36:47 +00:00
|
|
|
|
130 ELSE
|
2017-08-11 20:59:02 +00:00
|
|
|
|
C85D: AD F8 07 131 LDA CURSLOT
|
2017-07-16 13:36:47 +00:00
|
|
|
|
132 FIN
|
2017-08-11 20:59:02 +00:00
|
|
|
|
C860: 9D 11 BF 133 STA $BF11,X
|
2017-07-16 13:36:47 +00:00
|
|
|
|
134
|
2017-08-11 20:59:02 +00:00
|
|
|
|
C863: 60 135 INSOUT RTS
|
2017-07-16 13:36:47 +00:00
|
|
|
|
136
|
|
|
|
|
|
137
|
|
|
|
|
|
138 ********************************
|
|
|
|
|
|
139 *
|
|
|
|
|
|
140 * Jump table
|
|
|
|
|
|
141 *
|
|
|
|
|
|
142 ********************************
|
|
|
|
|
|
143
|
2017-08-11 20:59:02 +00:00
|
|
|
|
C864: D8 144 DRIVER CLD
|
2017-07-16 13:36:47 +00:00
|
|
|
|
145 DO DEBUG
|
2017-08-11 20:59:02 +00:00
|
|
|
|
146 LDA #$04
|
|
|
|
|
|
147 STA SLOT
|
|
|
|
|
|
148 LDA #$C4
|
|
|
|
|
|
149 STA CURSLOT
|
|
|
|
|
|
150 LDA #$40
|
|
|
|
|
|
151 STA SLOT16
|
2017-07-16 13:36:47 +00:00
|
|
|
|
152 ELSE
|
2017-08-11 20:59:02 +00:00
|
|
|
|
C865: 20 58 FF 153 JSR $FF58 ; find slot nr
|
|
|
|
|
|
C868: BA 154 TSX
|
|
|
|
|
|
C869: BD 00 01 155 LDA $0100,X
|
|
|
|
|
|
C86C: 29 0F 156 AND #$0F
|
|
|
|
|
|
C86E: 85 3D 157 STA SLOT ; $0s
|
|
|
|
|
|
C870: 09 C0 158 ORA #$C0
|
|
|
|
|
|
C872: 8D F8 07 159 STA CURSLOT ; $Cs
|
|
|
|
|
|
C875: 0A 160 ASL A
|
|
|
|
|
|
C876: 0A 161 ASL A
|
|
|
|
|
|
C877: 0A 162 ASL A
|
|
|
|
|
|
C878: 0A 163 ASL A
|
|
|
|
|
|
C879: 85 2B 164 STA SLOT16 ; $s0
|
2017-07-16 13:36:47 +00:00
|
|
|
|
165 FIN
|
2017-08-11 20:59:02 +00:00
|
|
|
|
C87B: AA 166 TAX ; X holds now SLOT16
|
2017-07-15 16:32:17 +00:00
|
|
|
|
167
|
2017-08-11 20:59:02 +00:00
|
|
|
|
C87C: 2C FF CF 168 BIT $CFFF
|
|
|
|
|
|
C87F: A5 42 169 LDA $42 ; get command
|
|
|
|
|
|
C881: C9 00 170 CMP #$00
|
|
|
|
|
|
C883: F0 10 171 BEQ :STATUS
|
|
|
|
|
|
C885: C9 01 172 CMP #$01
|
|
|
|
|
|
C887: F0 0F 173 BEQ :READ
|
2017-07-16 13:36:47 +00:00
|
|
|
|
===== Page 4 =====
|
|
|
|
|
|
|
2017-08-11 20:59:02 +00:00
|
|
|
|
C889: C9 02 174 CMP #$02
|
|
|
|
|
|
C88B: F0 0E 175 BEQ :WRITE
|
|
|
|
|
|
C88D: C9 03 176 CMP #$03
|
|
|
|
|
|
C88F: F0 0D 177 BEQ :FORMAT
|
|
|
|
|
|
C891: 38 178 SEC ; unknown command
|
|
|
|
|
|
C892: A9 01 179 LDA #$01
|
|
|
|
|
|
C894: 60 180 RTS
|
2017-07-15 16:32:17 +00:00
|
|
|
|
181
|
2017-08-11 20:59:02 +00:00
|
|
|
|
C895: 4C A8 CA 182 :STATUS JMP STATUS
|
|
|
|
|
|
C898: 4C B0 CA 183 :READ JMP READ
|
|
|
|
|
|
C89B: 4C FA CA 184 :WRITE JMP WRITE
|
|
|
|
|
|
C89E: 4C 8A CB 185 :FORMAT JMP FORMAT
|
2017-07-16 13:36:47 +00:00
|
|
|
|
186
|
|
|
|
|
|
187 * Signature bytes
|
|
|
|
|
|
188
|
2017-08-11 20:59:02 +00:00
|
|
|
|
C8A1: 00 00 00 189 DS \ ; fill with zeroes
|
|
|
|
|
|
C8A4: 00 00 00 00
|
|
|
|
|
|
C8A8: 00 00 00 00
|
|
|
|
|
|
C8AC: 00 00 00 00
|
|
|
|
|
|
C8B0: 00 00 00 00
|
|
|
|
|
|
C8B4: 00 00 00 00
|
|
|
|
|
|
C8B8: 00 00 00 00
|
|
|
|
|
|
C8BC: 00 00 00 00
|
|
|
|
|
|
C8C0: 00 00 00 00
|
|
|
|
|
|
C8C4: 00 00 00 00
|
|
|
|
|
|
C8C8: 00 00 00 00
|
|
|
|
|
|
C8CC: 00 00 00 00
|
|
|
|
|
|
C8D0: 00 00 00 00
|
|
|
|
|
|
C8D4: 00 00 00 00
|
|
|
|
|
|
C8D8: 00 00 00 00
|
|
|
|
|
|
C8DC: 00 00 00 00
|
|
|
|
|
|
C8E0: 00 00 00 00
|
|
|
|
|
|
C8E4: 00 00 00 00
|
|
|
|
|
|
C8E8: 00 00 00 00
|
|
|
|
|
|
C8EC: 00 00 00 00
|
|
|
|
|
|
C8F0: 00 00 00 00
|
|
|
|
|
|
C8F4: 00 00 00 00
|
|
|
|
|
|
C8F8: 00 00 00 00
|
|
|
|
|
|
C8FC: 00 00 00 00
|
2017-07-16 13:36:47 +00:00
|
|
|
|
190 DS -4 ; locate to $C8FC
|
2017-08-11 20:59:02 +00:00
|
|
|
|
C8FC: FF FF 191 DW $FFFF ; 65535 blocks
|
|
|
|
|
|
C8FE: 47 192 DB $47 ; Status bits
|
|
|
|
|
|
C8FF: 64 193 DB #<DRIVER ; LSB of driver
|
2017-07-16 13:36:47 +00:00
|
|
|
|
194
|
|
|
|
|
|
195
|
|
|
|
|
|
196 ********************************
|
|
|
|
|
|
197 *
|
|
|
|
|
|
198 * Initialize SD card
|
|
|
|
|
|
199 *
|
|
|
|
|
|
200 * C Clear - No error
|
|
|
|
|
|
201 * Set - Error
|
2017-08-11 20:59:02 +00:00
|
|
|
|
202 * A $00 - No error
|
2017-07-16 13:36:47 +00:00
|
|
|
|
203 * $27 - I/O error - Init failed
|
|
|
|
|
|
204 * $28 - No card inserted
|
|
|
|
|
|
205 *
|
|
|
|
|
|
206 ********************************
|
2017-08-11 20:59:02 +00:00
|
|
|
|
207
|
|
|
|
|
|
===== Page 5 =====
|
|
|
|
|
|
|
|
|
|
|
|
C900: D8 208 INIT CLD
|
|
|
|
|
|
C901: A9 03 209 LDA #$03 ; set SPI mode 3
|
|
|
|
|
|
C903: 9D 81 C0 210 STA CTRL,X
|
|
|
|
|
|
C906: A9 0F 211 LDA #SSNONE
|
|
|
|
|
|
C908: 9D 83 C0 212 STA SS,X
|
|
|
|
|
|
C90B: A9 07 213 LDA #7
|
|
|
|
|
|
C90D: 9D 82 C0 214 STA DIV,X
|
|
|
|
|
|
C910: A0 0A 215 LDY #10
|
|
|
|
|
|
C912: A9 FF 216 LDA #DUMMY
|
2017-07-16 13:36:47 +00:00
|
|
|
|
217
|
2017-08-11 20:59:02 +00:00
|
|
|
|
C914: 9D 80 C0 218 :LOOP STA DATA,X
|
|
|
|
|
|
C917: 3C 81 C0 219 :WAIT BIT CTRL,X
|
|
|
|
|
|
C91A: 10 FB 220 BPL :WAIT
|
|
|
|
|
|
C91C: 88 221 DEY
|
|
|
|
|
|
C91D: D0 F5 222 BNE :LOOP ; do 10 times
|
|
|
|
|
|
C91F: A9 0E 223 LDA #SS0 ; set CS low
|
|
|
|
|
|
C921: 9D 83 C0 224 STA SS,X
|
2017-07-16 13:36:47 +00:00
|
|
|
|
225
|
2017-08-11 20:59:02 +00:00
|
|
|
|
C924: A9 8E 226 LDA #<CMD0 ; send CMD0
|
|
|
|
|
|
C926: 85 40 227 STA CMDLO
|
|
|
|
|
|
C928: A9 CB 228 LDA #>CMD0
|
|
|
|
|
|
C92A: 85 41 229 STA CMDHI
|
|
|
|
|
|
C92C: 20 D7 C9 230 JSR CMD
|
|
|
|
|
|
C92F: 20 EB C9 231 JSR GETR1 ; get response
|
|
|
|
|
|
C932: C9 01 232 CMP #$01
|
|
|
|
|
|
C934: D0 39 233 BNE :ERROR1 ; error!
|
2017-07-16 13:36:47 +00:00
|
|
|
|
234
|
2017-08-11 20:59:02 +00:00
|
|
|
|
C936: A9 9A 235 LDA #<CMD8 ; send CMD8
|
|
|
|
|
|
C938: 85 40 236 STA CMDLO
|
|
|
|
|
|
C93A: A9 CB 237 LDA #>CMD8
|
|
|
|
|
|
C93C: 85 41 238 STA CMDHI
|
|
|
|
|
|
C93E: 20 D7 C9 239 JSR CMD
|
|
|
|
|
|
C941: 20 06 CA 240 JSR GETR3
|
|
|
|
|
|
C944: C9 01 241 CMP #$01
|
|
|
|
|
|
C946: D0 2A 242 BNE :SDV1 ; may be SD Ver. 1
|
2017-07-16 13:36:47 +00:00
|
|
|
|
243
|
|
|
|
|
|
244 * check for $01aa match!
|
2017-08-11 20:59:02 +00:00
|
|
|
|
C948: A9 A6 245 :SDV2 LDA #<CMD55
|
|
|
|
|
|
C94A: 85 40 246 STA CMDLO
|
|
|
|
|
|
C94C: A9 CB 247 LDA #>CMD55
|
|
|
|
|
|
C94E: 85 41 248 STA CMDHI
|
|
|
|
|
|
C950: 20 D7 C9 249 JSR CMD
|
|
|
|
|
|
C953: 20 EB C9 250 JSR GETR1
|
|
|
|
|
|
C956: A9 AC 251 LDA #<ACMD4140
|
|
|
|
|
|
C958: 85 40 252 STA CMDLO
|
|
|
|
|
|
C95A: A9 CB 253 LDA #>ACMD4140
|
|
|
|
|
|
C95C: 85 41 254 STA CMDHI
|
|
|
|
|
|
C95E: 20 D7 C9 255 JSR CMD
|
|
|
|
|
|
C961: 20 EB C9 256 JSR GETR1
|
|
|
|
|
|
C964: C9 01 257 CMP #$01
|
|
|
|
|
|
C966: F0 E0 258 BEQ :SDV2 ; wait for ready
|
|
|
|
|
|
C968: C9 00 259 CMP #$00
|
|
|
|
|
|
C96A: D0 03 260 BNE :ERROR1 ; error!
|
2017-07-16 13:36:47 +00:00
|
|
|
|
261 * send CMD58
|
|
|
|
|
|
262 * SD Ver. 2 initialized!
|
2017-08-11 20:59:02 +00:00
|
|
|
|
C96C: 4C AC C9 263 JMP :BLOCKSZ
|
|
|
|
|
|
264
|
|
|
|
|
|
===== Page 6 =====
|
|
|
|
|
|
|
|
|
|
|
|
C96F: 4C C8 C9 265 :ERROR1 JMP :IOERROR ; needed for far jump
|
2017-07-16 13:36:47 +00:00
|
|
|
|
266
|
2017-08-11 20:59:02 +00:00
|
|
|
|
C972: A9 A6 267 :SDV1 LDA #<CMD55
|
|
|
|
|
|
C974: 85 40 268 STA CMDLO
|
|
|
|
|
|
C976: A9 CB 269 LDA #>CMD55
|
|
|
|
|
|
C978: 85 41 270 STA CMDHI
|
|
|
|
|
|
C97A: 20 D7 C9 271 JSR CMD ; ignore response
|
|
|
|
|
|
C97D: A9 B2 272 LDA #<ACMD410
|
|
|
|
|
|
C97F: 85 40 273 STA CMDLO
|
|
|
|
|
|
C981: A9 CB 274 LDA #>ACMD410
|
|
|
|
|
|
C983: 85 41 275 STA CMDHI
|
|
|
|
|
|
C985: 20 D7 C9 276 JSR CMD
|
|
|
|
|
|
C988: 20 EB C9 277 JSR GETR1
|
|
|
|
|
|
C98B: C9 01 278 CMP #$01
|
|
|
|
|
|
C98D: F0 E3 279 BEQ :SDV1 ; wait for ready
|
|
|
|
|
|
C98F: C9 00 280 CMP #$00
|
|
|
|
|
|
C991: D0 03 281 BNE :MMC ; may be MMC card
|
2017-07-16 13:36:47 +00:00
|
|
|
|
282 * SD Ver. 1 initialized!
|
2017-08-11 20:59:02 +00:00
|
|
|
|
C993: 4C AC C9 283 JMP :BLOCKSZ
|
2017-07-16 13:36:47 +00:00
|
|
|
|
284
|
2017-08-11 20:59:02 +00:00
|
|
|
|
C996: A9 94 285 :MMC LDA #<CMD1
|
|
|
|
|
|
C998: 85 40 286 STA CMDLO
|
|
|
|
|
|
C99A: A9 CB 287 LDA #>CMD1
|
|
|
|
|
|
C99C: 85 41 288 STA CMDHI
|
|
|
|
|
|
C99E: 20 D7 C9 289 :LOOP1 JSR CMD
|
|
|
|
|
|
C9A1: 20 EB C9 290 JSR GETR1
|
|
|
|
|
|
C9A4: C9 01 291 CMP #$01
|
|
|
|
|
|
C9A6: F0 F6 292 BEQ :LOOP1 ; wait for ready
|
|
|
|
|
|
C9A8: C9 00 293 CMP #$00
|
|
|
|
|
|
C9AA: D0 1C 294 BNE :IOERROR ; error!
|
2017-07-16 13:36:47 +00:00
|
|
|
|
295 * MMC Ver. 3 initialized!
|
2017-07-15 16:32:17 +00:00
|
|
|
|
296
|
2017-08-11 20:59:02 +00:00
|
|
|
|
C9AC: A9 A0 297 :BLOCKSZ LDA #<CMD16
|
|
|
|
|
|
C9AE: 85 40 298 STA CMDLO
|
|
|
|
|
|
C9B0: A9 CB 299 LDA #>CMD16
|
|
|
|
|
|
C9B2: 85 41 300 STA CMDHI
|
|
|
|
|
|
C9B4: 20 D7 C9 301 JSR CMD
|
|
|
|
|
|
C9B7: 20 EB C9 302 JSR GETR1
|
|
|
|
|
|
C9BA: C9 00 303 CMP #$00
|
|
|
|
|
|
C9BC: D0 0A 304 BNE :IOERROR ; error!
|
2017-07-16 13:36:47 +00:00
|
|
|
|
305
|
2017-08-11 20:59:02 +00:00
|
|
|
|
C9BE: 18 306 :END CLC ; all ok
|
|
|
|
|
|
C9BF: A0 00 307 LDY #0
|
|
|
|
|
|
C9C1: 90 08 308 BCC :END1
|
|
|
|
|
|
C9C3: 38 309 :CDERROR SEC
|
|
|
|
|
|
C9C4: A0 28 310 LDY #$28 ; no card error
|
|
|
|
|
|
C9C6: B0 03 311 BCS :END1
|
|
|
|
|
|
C9C8: 38 312 :IOERROR SEC
|
|
|
|
|
|
C9C9: A0 27 313 LDY #$27 ; init error
|
|
|
|
|
|
C9CB: A9 0F 314 :END1 LDA #SSNONE ; deselect card
|
|
|
|
|
|
C9CD: 9D 83 C0 315 STA SS,X
|
|
|
|
|
|
C9D0: A9 00 316 LDA #0 ; set div to 2
|
|
|
|
|
|
C9D2: 9D 82 C0 317 STA DIV,X
|
|
|
|
|
|
C9D5: 98 318 TYA ; retval in A
|
|
|
|
|
|
C9D6: 60 319 RTS
|
|
|
|
|
|
320
|
|
|
|
|
|
321
|
2017-07-05 18:07:55 +00:00
|
|
|
|
===== Page 7 =====
|
2017-07-16 13:36:47 +00:00
|
|
|
|
|
2017-07-15 16:32:17 +00:00
|
|
|
|
322 ********************************
|
2017-07-16 13:36:47 +00:00
|
|
|
|
323 *
|
|
|
|
|
|
324 * Send SD command
|
|
|
|
|
|
325 * Call with command in CMDHI and CMDLO
|
|
|
|
|
|
326 *
|
|
|
|
|
|
327 ********************************
|
|
|
|
|
|
328
|
2017-08-11 20:59:02 +00:00
|
|
|
|
C9D7: 5A 329 CMD PHY
|
|
|
|
|
|
C9D8: A0 00 330 LDY #0
|
|
|
|
|
|
C9DA: B1 40 331 :LOOP LDA (CMDLO),Y
|
|
|
|
|
|
C9DC: 9D 80 C0 332 STA DATA,X
|
|
|
|
|
|
C9DF: 3C 81 C0 333 :WAIT BIT CTRL,X ; TC is in N
|
|
|
|
|
|
C9E2: 10 FB 334 BPL :WAIT
|
|
|
|
|
|
C9E4: C8 335 INY
|
|
|
|
|
|
C9E5: C0 06 336 CPY #6
|
|
|
|
|
|
C9E7: 90 F1 337 BCC :LOOP
|
|
|
|
|
|
C9E9: 7A 338 PLY
|
|
|
|
|
|
C9EA: 60 339 RTS
|
2017-07-16 13:36:47 +00:00
|
|
|
|
340
|
|
|
|
|
|
341
|
|
|
|
|
|
342 ********************************
|
2017-07-15 16:32:17 +00:00
|
|
|
|
343 *
|
2017-07-16 13:36:47 +00:00
|
|
|
|
344 * Get R1
|
|
|
|
|
|
345 * R1 is in A
|
|
|
|
|
|
346 *
|
|
|
|
|
|
347 ********************************
|
|
|
|
|
|
348
|
2017-08-11 20:59:02 +00:00
|
|
|
|
C9EB: A9 FF 349 GETR1 LDA #DUMMY
|
|
|
|
|
|
C9ED: 9D 80 C0 350 STA DATA,X
|
|
|
|
|
|
C9F0: 3C 81 C0 351 :WAIT BIT CTRL,X
|
|
|
|
|
|
C9F3: 10 FB 352 BPL :WAIT
|
|
|
|
|
|
C9F5: BD 80 C0 353 LDA DATA,X ; get response
|
|
|
|
|
|
C9F8: 85 3C 354 STA WORK ; save R1
|
|
|
|
|
|
C9FA: 29 80 355 AND #$80
|
|
|
|
|
|
C9FC: D0 ED 356 BNE GETR1 ; wait for MSB=0
|
|
|
|
|
|
C9FE: A9 FF 357 LDA #DUMMY
|
|
|
|
|
|
CA00: 9D 80 C0 358 STA DATA,X ; send another dummy
|
|
|
|
|
|
CA03: A5 3C 359 LDA WORK ; restore R1
|
|
|
|
|
|
CA05: 60 360 RTS
|
2017-07-16 13:36:47 +00:00
|
|
|
|
361
|
|
|
|
|
|
362
|
|
|
|
|
|
363 ********************************
|
|
|
|
|
|
364 *
|
|
|
|
|
|
365 * Get R3
|
|
|
|
|
|
366 * R1 is in A
|
|
|
|
|
|
367 * R3 is in scratchpad ram
|
|
|
|
|
|
368 *
|
|
|
|
|
|
369 ********************************
|
|
|
|
|
|
370
|
2017-08-11 20:59:02 +00:00
|
|
|
|
CA06: 20 EB C9 371 GETR3 JSR GETR1 ; get R1 first
|
|
|
|
|
|
CA09: 48 372 PHA ; save R1
|
|
|
|
|
|
CA0A: 5A 373 PHY ; save Y
|
|
|
|
|
|
CA0B: A0 04 374 LDY #04 ; load counter
|
|
|
|
|
|
CA0D: A9 FF 375 :LOOP LDA #DUMMY ; send dummy
|
|
|
|
|
|
CA0F: 9D 80 C0 376 STA DATA,X
|
|
|
|
|
|
CA12: 3C 81 C0 377 :WAIT BIT CTRL,X
|
|
|
|
|
|
CA15: 10 FB 378 BPL :WAIT
|
2017-07-05 18:07:55 +00:00
|
|
|
|
===== Page 8 =====
|
|
|
|
|
|
|
2017-08-11 20:59:02 +00:00
|
|
|
|
CA17: BD 80 C0 379 LDA DATA,X
|
|
|
|
|
|
CA1A: 48 380 PHA
|
|
|
|
|
|
CA1B: 88 381 DEY
|
|
|
|
|
|
CA1C: D0 EF 382 BNE :LOOP ; do 4 times
|
|
|
|
|
|
CA1E: A4 3D 383 LDY SLOT
|
|
|
|
|
|
CA20: 68 384 PLA
|
|
|
|
|
|
CA21: 99 F8 05 385 STA R33,Y ; save R3
|
|
|
|
|
|
CA24: 68 386 PLA
|
|
|
|
|
|
CA25: 99 78 05 387 STA R32,Y
|
|
|
|
|
|
CA28: 68 388 PLA
|
|
|
|
|
|
CA29: 99 F8 04 389 STA R31,Y
|
|
|
|
|
|
CA2C: 68 390 PLA
|
|
|
|
|
|
CA2D: 99 78 04 391 STA R30,Y
|
|
|
|
|
|
CA30: 7A 392 PLY ; restore Y
|
|
|
|
|
|
CA31: A9 FF 393 LDA #DUMMY
|
|
|
|
|
|
CA33: 9D 80 C0 394 STA DATA,X ; send another dummy
|
|
|
|
|
|
CA36: 68 395 PLA ; restore R1
|
|
|
|
|
|
CA37: 60 396 RTS
|
2017-07-16 13:36:47 +00:00
|
|
|
|
397
|
2017-07-15 16:32:17 +00:00
|
|
|
|
398
|
2017-07-16 13:36:47 +00:00
|
|
|
|
399 ********************************
|
|
|
|
|
|
400 *
|
|
|
|
|
|
401 * Calculate block address
|
|
|
|
|
|
402 * Block no is in $46-47
|
|
|
|
|
|
403 * Address is in R30-R33
|
|
|
|
|
|
404 *
|
|
|
|
|
|
405 ********************************
|
|
|
|
|
|
406
|
2017-08-11 20:59:02 +00:00
|
|
|
|
CA38: DA 407 BLOCK PHX ; save X
|
|
|
|
|
|
CA39: 5A 408 PHY ; save Y
|
|
|
|
|
|
CA3A: A6 3D 409 LDX SLOT
|
|
|
|
|
|
CA3C: A5 46 410 LDA $46 ; store block num
|
|
|
|
|
|
CA3E: 9D F8 05 411 STA R33,X ; in R30-R33
|
|
|
|
|
|
CA41: A5 47 412 LDA $47
|
|
|
|
|
|
CA43: 9D 78 05 413 STA R32,X
|
|
|
|
|
|
CA46: A9 00 414 LDA #0
|
|
|
|
|
|
CA48: 9D F8 04 415 STA R31,X
|
|
|
|
|
|
CA4B: 9D 78 04 416 STA R30,X
|
2017-07-16 21:29:09 +00:00
|
|
|
|
417
|
2017-08-11 20:59:02 +00:00
|
|
|
|
CA4E: A0 09 418 LDY #9 ; ASL can't be used with Y
|
|
|
|
|
|
CA50: 1E F8 05 419 :LOOP ASL R33,X ; mul block num
|
|
|
|
|
|
CA53: 3E 78 05 420 ROL R32,X ; by 512 to get
|
|
|
|
|
|
CA56: 3E F8 04 421 ROL R31,X ; real address
|
|
|
|
|
|
CA59: 3E 78 04 422 ROL R30,X
|
|
|
|
|
|
CA5C: 88 423 DEY
|
|
|
|
|
|
CA5D: D0 F1 424 BNE :LOOP
|
|
|
|
|
|
CA5F: 7A 425 PLY ; restore Y
|
|
|
|
|
|
CA60: FA 426 PLX ; restore X
|
|
|
|
|
|
CA61: 60 427 RTS
|
2017-07-16 21:29:09 +00:00
|
|
|
|
428
|
2017-07-16 13:36:47 +00:00
|
|
|
|
429
|
2017-08-11 20:59:02 +00:00
|
|
|
|
430 ********************************
|
2017-07-16 21:29:09 +00:00
|
|
|
|
431 *
|
|
|
|
|
|
432 * Send SD command
|
|
|
|
|
|
433 * Cmd is in A
|
|
|
|
|
|
434 *
|
2017-08-11 20:59:02 +00:00
|
|
|
|
435 ********************************
|
|
|
|
|
|
===== Page 9 =====
|
|
|
|
|
|
|
2017-07-16 21:29:09 +00:00
|
|
|
|
436
|
2017-08-11 20:59:02 +00:00
|
|
|
|
CA62: 5A 437 COMMAND PHY ; save Y
|
|
|
|
|
|
CA63: A4 3D 438 LDY SLOT
|
|
|
|
|
|
CA65: 9D 80 C0 439 STA DATA,X ; send command
|
|
|
|
|
|
CA68: 3C 81 C0 440 :WAIT BIT CTRL,X
|
|
|
|
|
|
CA6B: 10 FB 441 BPL :WAIT
|
|
|
|
|
|
CA6D: B9 78 04 442 :ARG LDA R30,Y ; get arg from R30 on
|
|
|
|
|
|
CA70: 9D 80 C0 443 STA DATA,X
|
|
|
|
|
|
CA73: 3C 81 C0 444 :WAIT1 BIT CTRL,X
|
|
|
|
|
|
CA76: 10 FB 445 BPL :WAIT1
|
|
|
|
|
|
CA78: B9 F8 04 446 LDA R31,Y
|
|
|
|
|
|
CA7B: 9D 80 C0 447 STA DATA,X
|
|
|
|
|
|
CA7E: 3C 81 C0 448 :WAIT11 BIT CTRL,X
|
|
|
|
|
|
CA81: 10 FB 449 BPL :WAIT11
|
|
|
|
|
|
CA83: B9 78 05 450 LDA R32,Y
|
|
|
|
|
|
CA86: 9D 80 C0 451 STA DATA,X
|
|
|
|
|
|
CA89: 3C 81 C0 452 :WAIT12 BIT CTRL,X
|
|
|
|
|
|
CA8C: 10 FB 453 BPL :WAIT12
|
|
|
|
|
|
CA8E: B9 F8 05 454 LDA R33,Y
|
|
|
|
|
|
CA91: 9D 80 C0 455 STA DATA,X
|
|
|
|
|
|
CA94: 3C 81 C0 456 :WAIT13 BIT CTRL,X
|
|
|
|
|
|
CA97: 10 FB 457 BPL :WAIT13
|
|
|
|
|
|
CA99: A9 FF 458 LDA #DUMMY
|
|
|
|
|
|
CA9B: 9D 80 C0 459 STA DATA,X ; dummy crc
|
|
|
|
|
|
CA9E: 3C 81 C0 460 :WAIT2 BIT CTRL,X
|
|
|
|
|
|
CAA1: 10 FB 461 BPL :WAIT2
|
|
|
|
|
|
CAA3: 20 EB C9 462 JSR GETR1
|
|
|
|
|
|
CAA6: 7A 463 PLY ; restore Y
|
|
|
|
|
|
CAA7: 60 464 RTS
|
2017-07-16 21:29:09 +00:00
|
|
|
|
465
|
|
|
|
|
|
466
|
|
|
|
|
|
467 ********************************
|
2017-07-16 13:36:47 +00:00
|
|
|
|
468 *
|
2017-07-16 21:29:09 +00:00
|
|
|
|
469 * Status request
|
|
|
|
|
|
470 * $43 Unit number DSSS000
|
|
|
|
|
|
471 * $44-45 Unused
|
|
|
|
|
|
472 * $46-47 Unused
|
|
|
|
|
|
473 *
|
|
|
|
|
|
474 * C Clear - No error
|
|
|
|
|
|
475 * Set - Error
|
|
|
|
|
|
476 * A $00 - No error
|
|
|
|
|
|
477 * $27 - I/O error
|
|
|
|
|
|
478 * $28 - No card inserted / no init
|
|
|
|
|
|
479 * $2B - Card write protected
|
|
|
|
|
|
480 * x - Blocks avail (low byte)
|
|
|
|
|
|
481 * y - Blocks avail (high byte)
|
|
|
|
|
|
482 *
|
|
|
|
|
|
483 ********************************
|
|
|
|
|
|
484
|
2017-08-11 20:59:02 +00:00
|
|
|
|
CAA8: 18 485 STATUS CLC ; no error
|
|
|
|
|
|
CAA9: A9 00 486 LDA #0
|
|
|
|
|
|
CAAB: A2 FF 487 LDX #$FF ; 32 MB partition
|
|
|
|
|
|
CAAD: A0 FF 488 LDY #$FF
|
|
|
|
|
|
CAAF: 60 489 RTS
|
2017-07-16 21:29:09 +00:00
|
|
|
|
490
|
|
|
|
|
|
491 * TODO: check for card detect and write protect!
|
2017-08-11 20:59:02 +00:00
|
|
|
|
492
|
|
|
|
|
|
===== Page 10 =====
|
|
|
|
|
|
|
2017-07-16 21:29:09 +00:00
|
|
|
|
493
|
|
|
|
|
|
494 ********************************
|
|
|
|
|
|
495 *
|
|
|
|
|
|
496 * Read 512 byte block
|
|
|
|
|
|
497 * $43 Unit number DSSS0000
|
|
|
|
|
|
498 * $44-45 Address (LO/HI) of buffer
|
|
|
|
|
|
499 * $46-47 Block number (LO/HI)
|
|
|
|
|
|
500 *
|
|
|
|
|
|
501 * C Clear - No error
|
|
|
|
|
|
502 * Set - Error
|
|
|
|
|
|
503 * A $00 - No error
|
|
|
|
|
|
504 * $27 - Bad block number
|
|
|
|
|
|
505 * $28 - No card inserted
|
|
|
|
|
|
506 *
|
|
|
|
|
|
507 ********************************
|
|
|
|
|
|
508
|
|
|
|
|
|
509 * TODO: check for card detect!
|
|
|
|
|
|
510
|
2017-08-11 20:59:02 +00:00
|
|
|
|
CAB0: 20 38 CA 511 READ JSR BLOCK ; calc block address
|
2017-07-16 21:29:09 +00:00
|
|
|
|
512
|
2017-08-11 20:59:02 +00:00
|
|
|
|
CAB3: A9 0E 513 LDA #SS0 ; enable /CS
|
|
|
|
|
|
CAB5: 9D 83 C0 514 STA SS,X
|
|
|
|
|
|
CAB8: A9 51 515 LDA #$51 ; send CMD17
|
|
|
|
|
|
CABA: 20 62 CA 516 JSR COMMAND ; send command
|
2017-07-16 21:29:09 +00:00
|
|
|
|
517
|
2017-08-11 20:59:02 +00:00
|
|
|
|
CABD: A9 FF 518 :GETTOK LDA #DUMMY ; get data token
|
|
|
|
|
|
CABF: 9D 80 C0 519 STA DATA,X
|
|
|
|
|
|
CAC2: 3C 81 C0 520 :WAIT BIT CTRL,X
|
|
|
|
|
|
CAC5: 10 FB 521 BPL :WAIT
|
|
|
|
|
|
CAC7: BD 80 C0 522 LDA DATA,X ; get response
|
2017-07-16 21:29:09 +00:00
|
|
|
|
523 *
|
|
|
|
|
|
524 * TODO: check for error!
|
|
|
|
|
|
525 *
|
2017-08-11 20:59:02 +00:00
|
|
|
|
CACA: C9 FE 526 CMP #$FE
|
|
|
|
|
|
CACC: D0 EF 527 BNE :GETTOK ; wait for $FE
|
2017-07-16 21:29:09 +00:00
|
|
|
|
528
|
2017-08-11 20:59:02 +00:00
|
|
|
|
CACE: A0 02 529 LDY #2 ; read data from card
|
|
|
|
|
|
CAD0: 64 3C 530 :LOOPY STZ WORK
|
|
|
|
|
|
CAD2: A9 FF 531 :LOOPW LDA #DUMMY
|
|
|
|
|
|
CAD4: 9D 80 C0 532 STA DATA,X
|
|
|
|
|
|
CAD7: 3C 81 C0 533 :WAIT1 BIT CTRL,X
|
|
|
|
|
|
CADA: 10 FB 534 BPL :WAIT1
|
|
|
|
|
|
CADC: BD 80 C0 535 LDA DATA,X
|
|
|
|
|
|
CADF: 92 44 536 STA ($44)
|
|
|
|
|
|
CAE1: E6 44 537 INC $44
|
|
|
|
|
|
CAE3: D0 02 538 BNE :INW
|
|
|
|
|
|
CAE5: E6 45 539 INC $45 ; inc msb on page boundary
|
|
|
|
|
|
CAE7: E6 3C 540 :INW INC WORK
|
|
|
|
|
|
CAE9: D0 E7 541 BNE :LOOPW
|
|
|
|
|
|
CAEB: 88 542 DEY
|
|
|
|
|
|
CAEC: D0 E2 543 BNE :LOOPY
|
|
|
|
|
|
544
|
|
|
|
|
|
CAEE: 20 06 CA 545 JSR GETR3 ; read 2 bytes crc
|
|
|
|
|
|
CAF1: A9 0F 546 LDA #SSNONE
|
|
|
|
|
|
CAF3: 9D 83 C0 547 STA SS,X ; disable /CS
|
|
|
|
|
|
CAF6: 18 548 CLC ; no error
|
|
|
|
|
|
CAF7: A9 00 549 LDA #$00
|
2017-07-05 18:07:55 +00:00
|
|
|
|
===== Page 11 =====
|
|
|
|
|
|
|
2017-08-11 20:59:02 +00:00
|
|
|
|
CAF9: 60 550 RTS
|
2017-07-16 21:29:09 +00:00
|
|
|
|
551
|
|
|
|
|
|
552
|
|
|
|
|
|
553 ********************************
|
|
|
|
|
|
554 *
|
|
|
|
|
|
555 * Write 512 byte block
|
|
|
|
|
|
556 * $43 Unit number DSSS000
|
|
|
|
|
|
557 * $44-45 Address (LO/HI) of buffer
|
|
|
|
|
|
558 * $46-47 Block number (LO/HI)
|
|
|
|
|
|
559 *
|
|
|
|
|
|
560 * C Clear - No error
|
|
|
|
|
|
561 * Set - Error
|
|
|
|
|
|
562 * A $00 - No error
|
|
|
|
|
|
563 * $27 - I/O error or bad block number
|
|
|
|
|
|
564 * $28 - No card inserted
|
|
|
|
|
|
565 * $2B - Card write protected
|
|
|
|
|
|
566 *
|
|
|
|
|
|
567 ********************************
|
|
|
|
|
|
568
|
|
|
|
|
|
569 * TODO: check for card detect and write protect!
|
|
|
|
|
|
570
|
2017-08-11 20:59:02 +00:00
|
|
|
|
CAFA: 20 38 CA 571 WRITE JSR BLOCK ; calc block address
|
2017-07-16 21:29:09 +00:00
|
|
|
|
572
|
2017-08-11 20:59:02 +00:00
|
|
|
|
CAFD: A9 0E 573 LDA #SS0 ; enable /CS
|
|
|
|
|
|
CAFF: 9D 83 C0 574 STA SS,X
|
|
|
|
|
|
CB02: A9 58 575 LDA #$58 ; send CMD24
|
|
|
|
|
|
CB04: 20 62 CA 576 JSR COMMAND ; send command
|
2017-07-16 21:29:09 +00:00
|
|
|
|
577
|
2017-08-11 20:59:02 +00:00
|
|
|
|
CB07: A9 FF 578 LDA #DUMMY
|
|
|
|
|
|
CB09: 9D 80 C0 579 STA DATA,X ; send dummy
|
|
|
|
|
|
CB0C: 3C 81 C0 580 :WAIT1 BIT CTRL,X
|
|
|
|
|
|
CB0F: 10 FB 581 BPL :WAIT1
|
|
|
|
|
|
CB11: A9 FE 582 LDA #$FE
|
|
|
|
|
|
CB13: 9D 80 C0 583 STA DATA,X ; send data token
|
|
|
|
|
|
CB16: 3C 81 C0 584 :WAIT2 BIT CTRL,X
|
|
|
|
|
|
CB19: 10 FB 585 BPL :WAIT2
|
2017-07-16 21:29:09 +00:00
|
|
|
|
586
|
2017-08-11 20:59:02 +00:00
|
|
|
|
CB1B: A0 02 587 LDY #2 ; send data to card
|
|
|
|
|
|
CB1D: 64 3C 588 :LOOPY STZ WORK
|
|
|
|
|
|
CB1F: B2 44 589 :LOOPW LDA ($44)
|
|
|
|
|
|
CB21: 9D 80 C0 590 STA DATA,X
|
|
|
|
|
|
CB24: 3C 81 C0 591 :WAIT3 BIT CTRL,X
|
|
|
|
|
|
CB27: 10 FB 592 BPL :WAIT3
|
|
|
|
|
|
CB29: E6 44 593 INC $44
|
|
|
|
|
|
CB2B: D0 02 594 BNE :INW
|
|
|
|
|
|
CB2D: E6 45 595 INC $45 ; inc msb on page boundary
|
|
|
|
|
|
CB2F: E6 3C 596 :INW INC WORK
|
|
|
|
|
|
CB31: D0 EC 597 BNE :LOOPW
|
|
|
|
|
|
CB33: 88 598 DEY
|
|
|
|
|
|
CB34: D0 E7 599 BNE :LOOPY
|
2017-07-16 13:36:47 +00:00
|
|
|
|
600
|
2017-08-11 20:59:02 +00:00
|
|
|
|
CB36: A0 02 601 LDY #2 ; send 2 dummy crc bytes
|
|
|
|
|
|
CB38: 9D 80 C0 602 :CRC STA DATA,X
|
|
|
|
|
|
CB3B: 3C 81 C0 603 :WAIT4 BIT CTRL,X
|
|
|
|
|
|
CB3E: 10 FB 604 BPL :WAIT4
|
|
|
|
|
|
CB40: 88 605 DEY
|
|
|
|
|
|
CB41: D0 F5 606 BNE :CRC
|
2017-07-15 16:32:17 +00:00
|
|
|
|
===== Page 12 =====
|
2017-07-05 18:07:55 +00:00
|
|
|
|
|
2017-07-16 21:29:09 +00:00
|
|
|
|
607
|
2017-08-11 20:59:02 +00:00
|
|
|
|
CB43: A9 FF 608 LDA #DUMMY ; get data response
|
|
|
|
|
|
CB45: 9D 80 C0 609 STA DATA,X
|
|
|
|
|
|
CB48: 3C 81 C0 610 :WAIT5 BIT CTRL,X
|
|
|
|
|
|
CB4B: 10 FB 611 BPL :WAIT5
|
|
|
|
|
|
CB4D: BD 80 C0 612 LDA DATA,X
|
|
|
|
|
|
CB50: 29 1F 613 AND #$1F
|
|
|
|
|
|
CB52: C9 05 614 CMP #$05
|
|
|
|
|
|
CB54: D0 1A 615 BNE :ERROR ; check for write error
|
2017-07-16 13:36:47 +00:00
|
|
|
|
616
|
2017-08-11 20:59:02 +00:00
|
|
|
|
CB56: A9 FF 617 :WAIT6 LDA #DUMMY ; wait for write cycle
|
|
|
|
|
|
CB58: 9D 80 C0 618 STA DATA,X ; to complete
|
|
|
|
|
|
CB5B: 3C 81 C0 619 :WAIT61 BIT CTRL,X
|
|
|
|
|
|
CB5E: 10 FB 620 BPL :WAIT61
|
|
|
|
|
|
CB60: BD 80 C0 621 LDA DATA,X
|
|
|
|
|
|
CB63: C9 00 622 CMP #$00
|
|
|
|
|
|
CB65: F0 EF 623 BEQ :WAIT6
|
2017-07-16 21:29:09 +00:00
|
|
|
|
624
|
2017-08-11 20:59:02 +00:00
|
|
|
|
CB67: A9 0F 625 LDA #SSNONE ; disable /CS
|
|
|
|
|
|
CB69: 9D 83 C0 626 STA SS,X
|
|
|
|
|
|
CB6C: 18 627 CLC ; no error
|
|
|
|
|
|
CB6D: A9 00 628 LDA #0
|
|
|
|
|
|
CB6F: 60 629 RTS
|
2017-07-16 21:29:09 +00:00
|
|
|
|
630
|
|
|
|
|
|
631 :ERROR
|
2017-08-11 20:59:02 +00:00
|
|
|
|
CB70: A9 FF 632 :WAIT7 LDA #DUMMY ; wait for write cycle
|
|
|
|
|
|
CB72: 9D 80 C0 633 STA DATA,X ; to complete
|
|
|
|
|
|
CB75: 3C 81 C0 634 :WAIT71 BIT CTRL,X
|
|
|
|
|
|
CB78: 10 FB 635 BPL :WAIT71
|
|
|
|
|
|
CB7A: BD 80 C0 636 LDA DATA,X
|
|
|
|
|
|
CB7D: C9 00 637 CMP #$00
|
|
|
|
|
|
CB7F: F0 EF 638 BEQ :WAIT7
|
|
|
|
|
|
CB81: A9 0F 639 LDA #SSNONE
|
|
|
|
|
|
CB83: 9D 83 C0 640 STA SS,X ; disable /CS
|
|
|
|
|
|
CB86: 38 641 SEC ; an error occured
|
|
|
|
|
|
CB87: A9 27 642 LDA #$27
|
|
|
|
|
|
CB89: 60 643 RTS
|
2017-07-16 21:29:09 +00:00
|
|
|
|
644
|
|
|
|
|
|
645
|
|
|
|
|
|
646 ********************************
|
|
|
|
|
|
647 *
|
|
|
|
|
|
648 * Format
|
|
|
|
|
|
649 * not supported!
|
|
|
|
|
|
650 *
|
|
|
|
|
|
651 ********************************
|
|
|
|
|
|
652
|
2017-08-11 20:59:02 +00:00
|
|
|
|
CB8A: 38 653 FORMAT SEC
|
|
|
|
|
|
CB8B: A9 01 654 LDA #$01 ; invalid command
|
|
|
|
|
|
CB8D: 60 655 RTS
|
2017-07-16 21:29:09 +00:00
|
|
|
|
656
|
|
|
|
|
|
657
|
2017-08-11 20:59:02 +00:00
|
|
|
|
CB8E: 40 00 00 658 CMD0 HEX 400000
|
|
|
|
|
|
CB91: 00 00 95 659 HEX 000095
|
|
|
|
|
|
CB94: 41 00 00 660 CMD1 HEX 410000
|
|
|
|
|
|
CB97: 00 00 F9 661 HEX 0000F9
|
|
|
|
|
|
CB9A: 48 00 00 662 CMD8 HEX 480000
|
|
|
|
|
|
CB9D: 01 AA 87 663 HEX 01AA87
|
2017-07-16 21:29:09 +00:00
|
|
|
|
===== Page 13 =====
|
|
|
|
|
|
|
2017-08-11 20:59:02 +00:00
|
|
|
|
CBA0: 50 00 00 664 CMD16 HEX 500000
|
|
|
|
|
|
CBA3: 02 00 FF 665 HEX 0200FF
|
|
|
|
|
|
CBA6: 77 00 00 666 CMD55 HEX 770000
|
|
|
|
|
|
CBA9: 00 00 65 667 HEX 000065
|
|
|
|
|
|
CBAC: 69 40 00 668 ACMD4140 HEX 694000
|
|
|
|
|
|
CBAF: 00 00 77 669 HEX 000077
|
|
|
|
|
|
CBB2: 69 00 00 670 ACMD410 HEX 690000
|
|
|
|
|
|
CBB5: 00 00 FF 671 HEX 0000FF
|
2017-07-05 18:07:55 +00:00
|
|
|
|
|
2017-07-15 16:32:17 +00:00
|
|
|
|
|
2017-07-16 21:29:09 +00:00
|
|
|
|
--End assembly, 952 bytes, Errors: 0
|
2017-07-05 18:07:55 +00:00
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
Symbol table - alphabetical order:
|
|
|
|
|
|
|
2017-08-11 20:59:02 +00:00
|
|
|
|
ACMD410 =$CBB2 ACMD4140=$CBAC BLOCK =$CA38 CMD =$C9D7
|
|
|
|
|
|
CMD0 =$CB8E CMD1 =$CB94 CMD16 =$CBA0 CMD55 =$CBA6
|
|
|
|
|
|
CMD8 =$CB9A CMDHI =$41 CMDLO =$40 COMMAND =$CA62
|
|
|
|
|
|
CTRL =$C081 CURSLOT =$07F8 DATA =$C080 DEBUG =$00
|
|
|
|
|
|
DIV =$C082 DRIVER =$C864 DUMMY =$FF FORMAT =$CB8A
|
|
|
|
|
|
GETR1 =$C9EB GETR3 =$CA06 INIT =$C900 INSLP =$C828
|
|
|
|
|
|
INSLP2 =$C841 INSOUT =$C863 R30 =$0478 R31 =$04F8
|
|
|
|
|
|
R32 =$0578 R33 =$05F8 READ =$CAB0 SLOT =$3D
|
2017-07-16 21:29:09 +00:00
|
|
|
|
SLOT16 =$2B SS =$C083 SS0 =$0E SSNONE =$0F
|
2017-08-11 20:59:02 +00:00
|
|
|
|
STATUS =$CAA8 WORK =$3C WRITE =$CAFA
|
2017-07-15 16:32:17 +00:00
|
|
|
|
|
2017-07-05 18:07:55 +00:00
|
|
|
|
|
|
|
|
|
|
Symbol table - numerical order:
|
|
|
|
|
|
|
2017-08-11 20:59:02 +00:00
|
|
|
|
DEBUG =$00 SS0 =$0E SSNONE =$0F SLOT16 =$2B
|
2017-07-16 13:36:47 +00:00
|
|
|
|
WORK =$3C SLOT =$3D CMDLO =$40 CMDHI =$41
|
|
|
|
|
|
DUMMY =$FF R30 =$0478 R31 =$04F8 R32 =$0578
|
2017-08-11 20:59:02 +00:00
|
|
|
|
R33 =$05F8 CURSLOT =$07F8 DATA =$C080 CTRL =$C081
|
|
|
|
|
|
DIV =$C082 SS =$C083 INSLP =$C828 INSLP2 =$C841
|
|
|
|
|
|
INSOUT =$C863 DRIVER =$C864 INIT =$C900 CMD =$C9D7
|
|
|
|
|
|
GETR1 =$C9EB GETR3 =$CA06 BLOCK =$CA38 COMMAND =$CA62
|
|
|
|
|
|
STATUS =$CAA8 READ =$CAB0 WRITE =$CAFA FORMAT =$CB8A
|
|
|
|
|
|
CMD0 =$CB8E CMD1 =$CB94 CMD8 =$CB9A CMD16 =$CBA0
|
|
|
|
|
|
CMD55 =$CBA6 ACMD4140=$CBAC ACMD410 =$CBB2
|
2017-07-05 17:08:54 +00:00
|
|
|
|
|
