Apple-2-HW/AppleIISd
1
0
Fork 1
mirror of https://github.com/freitz85/AppleIISd.git synced 2024-07-09 12:28:54 +00:00
Code Issues Projects Releases Wiki Activity
c5945ff0ec
AppleIISd/AppleIISd.lst
Florian Reitz f20a1d529d Test routine added
2017-10-15 16:48:13 +02:00

930 lines
39 KiB
Plaintext
Raw Blame History

This file contains invisible Unicode characters

This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

This file contains Unicode characters that might be confused with other characters. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

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