1 ******************************** 2 * 3 * Apple][Sd Firmware 4 * Version 0.6 5 * 6 * (c) Florian Reitz, 2017 7 * 8 * X register usually contains SLOT16 9 * Y register is used for counting or SLOT 10 * 11 ******************************** 12 9-SEP-17 19:55 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 41 * Constants 42 43 DUMMY = $FF 44 FRX = $10 ; CTRL register 45 ECE = $04 46 SS0 = $01 ; SS register 47 WP = $20 48 CD = $40 49 INITED = $80 50 51 52 * signature bytes 53 C800: A2 20 54 LDX #$20 C802: A0 00 55 LDY #$00 C804: A2 03 56 LDX #$03 C806: 86 3C 57 STX WORK 58 59 * find slot nr 60 61 DO DEBUG 62 LDA #$04 63 STA SLOT 64 LDA #$C4 65 STA CURSLOT 66 LDA #$40 67 STA SLOT16 68 69 ELSE C808: 20 58 FF 70 JSR $FF58 C80B: BA 71 TSX C80C: BD 00 01 72 LDA $0100,X C80F: 8D F8 07 73 STA CURSLOT ; $Cs C812: 29 0F 74 AND #$0F C814: 85 3D 75 STA SLOT ; $0s C816: 0A 76 ASL A C817: 0A 77 ASL A C818: 0A 78 ASL A C819: 0A 79 ASL A C81A: 85 2B 80 STA SLOT16 ; $s0 81 FIN 82 C81C: AA 83 TAX ; X holds now SLOT16 C81D: 2C FF CF 84 BIT $CFFF C820: 20 B0 CA 85 JSR CARDDET C823: 90 03 86 BCC :INIT C825: A9 27 87 LDA #$27 ; no card inserted C827: 00 88 BRK 89 C828: 20 00 C9 90 :INIT JSR INIT 91 92 93 ******************************** 94 * 95 * Install SD card driver 96 * 97 ******************************** 98 99 DO DEBUG 100 101 * see if slot has a driver already 102 103 LDX $BF31 ; get devcnt 104 INSTALL LDA $BF32,X ; get a devnum 105 AND #$70 ; isolate slot 106 CMP SLOT16 ; slot? 107 BEQ :INSOUT ; yes, skip it 108 DEX 109 BPL INSTALL ; keep up the search 110 111 * restore the devnum to the list 112 113 LDX $BF31 ; get devcnt again 114 CPX #$0D ; device table full? 115 BNE :INST2 116 117 JSR $FF3A ; bell 118 JMP :INSOUT ; do something! 119 120 :INST2 LDA $BF32-1,X ; move all entries down 121 STA $BF32,X ; to make room at front 122 DEX ; for a new entry 123 BNE :INST2 124 LDA #$04 ; ProFile type device 125 ORA SLOT16 126 STA $BF32 ; slot, drive 1 at top of list 127 INC $BF31 ; update devcnt 128 129 * now insert the device driver vector 130 131 LDA SLOT 132 ASL 133 TAX 134 LDA #DRIVER 137 STA $BF11,X 138 :INSOUT RTS 139 140 141 ******************************** 142 * 143 * Boot from SD card 144 * 145 ******************************** 146 147 ELSE 148 C82B: C9 00 149 BOOT CMP #0 ; check for error C82D: F0 01 150 BEQ :BOOT1 C82F: 00 151 BRK 152 C830: A9 01 153 :BOOT1 LDA #$01 C832: 85 42 154 STA $42 ; load command C834: A5 2B 155 LDA SLOT16 C836: AA 156 TAX C837: 85 43 157 STA $43 ; slot number C839: 64 44 158 STZ $44 ; buffer lo C83B: A9 08 159 LDA #$08 C83D: 85 45 160 STA $45 ; buffer hi C83F: 64 46 161 STZ $46 ; block lo C841: 64 47 162 STZ $47 ; block hi C843: 2C FF CF 163 BIT $CFFF C846: 20 D6 CA 164 JSR READ ; call driver C849: 4C 01 08 165 JMP $801 ; goto bootloader 166 167 FIN 168 169 170 ******************************** 171 * 172 * Jump table 173 * 174 ******************************** 175 C84C: D8 176 DRIVER CLD 177 178 DO DEBUG 179 LDA #$04 180 STA SLOT 181 LDA #$C4 182 STA CURSLOT 183 LDA #$40 184 STA SLOT16 185 186 ELSE C84D: 20 58 FF 187 JSR $FF58 ; find slot nr C850: BA 188 TSX C851: BD 00 01 189 LDA $0100,X C854: 8D F8 07 190 STA CURSLOT ; $Cs C857: 29 0F 191 AND #$0F C859: 85 3D 192 STA SLOT ; $0s C85B: 0A 193 ASL A C85C: 0A 194 ASL A C85D: 0A 195 ASL A C85E: 0A 196 ASL A C85F: 85 2B 197 STA SLOT16 ; $s0 198 FIN 199 C861: AA 200 TAX ; X holds now SLOT16 C862: 2C FF CF 201 BIT $CFFF C865: 20 B0 CA 202 JSR CARDDET C868: 90 04 203 BCC :INITED C86A: A9 27 204 LDA #$27 ; no card inserted C86C: 80 1B 205 BRA :DONE 206 C86E: A9 80 207 :INITED LDA #INITED ; check for init C870: 3C 83 C0 208 BIT SS,X C873: F0 22 209 BEQ :INIT 210 C875: A5 42 211 :CMD LDA $42 ; get command C877: C9 00 212 CMP #0 C879: F0 10 213 BEQ :STATUS C87B: C9 01 214 CMP #1 C87D: F0 0F 215 BEQ :READ C87F: C9 02 216 CMP #2 C881: F0 0E 217 BEQ :WRITE C883: C9 03 218 CMP #3 C885: F0 0D 219 BEQ :FORMAT C887: A9 01 220 LDA #1 ; unknown command 221 C889: 38 222 :DONE SEC C88A: 60 223 RTS 224 C88B: 4C C8 CA 225 :STATUS JMP STATUS C88E: 4C D6 CA 226 :READ JMP READ C891: 4C 44 CB 227 :WRITE JMP WRITE C894: 4C BA CB 228 :FORMAT JMP FORMAT C897: 20 00 C9 229 :INIT JSR INIT C89A: 80 D9 230 BRA :CMD 231 232 233 * Signature bytes 234 C89C: 00 00 00 235 DS \ ; fill with zeroes 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 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 236 DS -4 ; locate to $xxFC C8FC: 00 00 237 DW $0000 ; use status request C8FE: 17 238 DB $17 ; Status bits C8FF: 4C 239 DB #CMD0 C930: 85 41 277 STA CMDHI C932: 20 F2 C9 278 JSR CMD C935: 20 06 CA 279 JSR GETR1 ; get response C938: C9 01 280 CMP #$01 C93A: D0 39 281 BNE :ERROR1 ; error! 282 C93C: A9 CA 283 LDA #CMD8 C942: 85 41 286 STA CMDHI C944: 20 F2 C9 287 JSR CMD C947: 20 21 CA 288 JSR GETR3 C94A: C9 01 289 CMP #$01 C94C: D0 2A 290 BNE :SDV1 ; may be SD Ver. 1 291 292 * check for $01aa match! C94E: A9 D6 293 :SDV2 LDA #CMD55 C954: 85 41 296 STA CMDHI C956: 20 F2 C9 297 JSR CMD C959: 20 06 CA 298 JSR GETR1 C95C: A9 DC 299 LDA #ACMD4140 C962: 85 41 302 STA CMDHI C964: 20 F2 C9 303 JSR CMD C967: 20 06 CA 304 JSR GETR1 C96A: C9 01 305 CMP #$01 C96C: F0 E0 306 BEQ :SDV2 ; wait for ready C96E: C9 00 307 CMP #$00 C970: D0 03 308 BNE :ERROR1 ; error! 309 * send CMD58 310 * SD Ver. 2 initialized! C972: 4C B2 C9 311 JMP :BLOCKSZ 312 C975: 4C E0 C9 313 :ERROR1 JMP :IOERROR ; needed for far jump 314 C978: A9 D6 315 :SDV1 LDA #CMD55 C97E: 85 41 318 STA CMDHI C980: 20 F2 C9 319 JSR CMD ; ignore response C983: A9 E2 320 LDA #ACMD410 C989: 85 41 323 STA CMDHI C98B: 20 F2 C9 324 JSR CMD C98E: 20 06 CA 325 JSR GETR1 C991: C9 01 326 CMP #$01 C993: F0 E3 327 BEQ :SDV1 ; wait for ready C995: C9 00 328 CMP #$00 C997: D0 03 329 BNE :MMC ; may be MMC card 330 * SD Ver. 1 initialized! C999: 4C B2 C9 331 JMP :BLOCKSZ 332 C99C: A9 C4 333 :MMC LDA #CMD1 C9A2: 85 41 336 STA CMDHI C9A4: 20 F2 C9 337 :LOOP1 JSR CMD C9A7: 20 06 CA 338 JSR GETR1 C9AA: C9 01 339 CMP #$01 C9AC: F0 F6 340 BEQ :LOOP1 ; wait for ready C9AE: C9 00 341 CMP #$00 C9B0: D0 2E 342 BNE :IOERROR ; error! 343 * MMC Ver. 3 initialized! 344 C9B2: A9 D0 345 :BLOCKSZ LDA #CMD16 C9B8: 85 41 348 STA CMDHI C9BA: 20 F2 C9 349 JSR CMD C9BD: 20 06 CA 350 JSR GETR1 C9C0: C9 00 351 CMP #$00 C9C2: D0 1C 352 BNE :IOERROR ; error! 353 C9C4: A4 3D 354 :END LDY SLOT C9C6: BD 83 C0 355 LDA SS,X C9C9: 09 80 356 ORA #INITED ; initialized C9CB: 9D 83 C0 357 STA SS,X C9CE: BD 81 C0 358 LDA CTRL,X C9D1: 09 04 359 ORA #ECE ; enable 7MHz C9D3: 9D 81 C0 360 STA CTRL,X C9D6: 18 361 CLC ; all ok C9D7: A0 00 362 LDY #0 C9D9: 90 08 363 BCC :END1 C9DB: 38 364 :CDERROR SEC C9DC: A0 28 365 LDY #$28 ; no card error C9DE: B0 03 366 BCS :END1 C9E0: 38 367 :IOERROR SEC C9E1: A0 27 368 LDY #$27 ; init error C9E3: BD 83 C0 369 :END1 LDA SS,X ; set CS high C9E6: 09 01 370 ORA #SS0 C9E8: 9D 83 C0 371 STA SS,X C9EB: A9 00 372 LDA #0 ; set div to 2 C9ED: 9D 82 C0 373 STA DIV,X C9F0: 98 374 TYA ; retval in A C9F1: 60 375 RTS 376 377 378 ******************************** 379 * 380 * Send SD command 381 * Call with command in CMDHI and CMDLO 382 * 383 ******************************** 384 C9F2: 5A 385 CMD PHY C9F3: A0 00 386 LDY #0 C9F5: B1 40 387 :LOOP LDA (CMDLO),Y C9F7: 9D 80 C0 388 STA DATA,X C9FA: 3C 81 C0 389 :WAIT BIT CTRL,X ; TC is in N C9FD: 10 FB 390 BPL :WAIT C9FF: C8 391 INY CA00: C0 06 392 CPY #6 CA02: 90 F1 393 BCC :LOOP CA04: 7A 394 PLY CA05: 60 395 RTS 396 397 398 ******************************** 399 * 400 * Get R1 401 * R1 is in A 402 * 403 ******************************** 404 CA06: A9 FF 405 GETR1 LDA #DUMMY CA08: 9D 80 C0 406 STA DATA,X CA0B: 3C 81 C0 407 :WAIT BIT CTRL,X CA0E: 10 FB 408 BPL :WAIT CA10: BD 80 C0 409 LDA DATA,X ; get response CA13: 85 3C 410 STA WORK ; save R1 CA15: 29 80 411 AND #$80 CA17: D0 ED 412 BNE GETR1 ; wait for MSB=0 CA19: A9 FF 413 LDA #DUMMY CA1B: 9D 80 C0 414 STA DATA,X ; send another dummy CA1E: A5 3C 415 LDA WORK ; restore R1 CA20: 60 416 RTS 417 418 419 ******************************** 420 * 421 * Get R3 422 * R1 is in A 423 * R3 is in scratchpad ram 424 * 425 ******************************** 426 CA21: 20 06 CA 427 GETR3 JSR GETR1 ; get R1 first CA24: 48 428 PHA ; save R1 CA25: 5A 429 PHY ; save Y CA26: A0 04 430 LDY #04 ; load counter CA28: A9 FF 431 :LOOP LDA #DUMMY ; send dummy CA2A: 9D 80 C0 432 STA DATA,X CA2D: 3C 81 C0 433 :WAIT BIT CTRL,X CA30: 10 FB 434 BPL :WAIT CA32: BD 80 C0 435 LDA DATA,X CA35: 48 436 PHA CA36: 88 437 DEY CA37: D0 EF 438 BNE :LOOP ; do 4 times CA39: A4 3D 439 LDY SLOT CA3B: 68 440 PLA CA3C: 99 F8 05 441 STA R33,Y ; save R3 CA3F: 68 442 PLA CA40: 99 78 05 443 STA R32,Y CA43: 68 444 PLA CA44: 99 F8 04 445 STA R31,Y CA47: 68 446 PLA CA48: 99 78 04 447 STA R30,Y CA4B: 7A 448 PLY ; restore Y CA4C: A9 FF 449 LDA #DUMMY CA4E: 9D 80 C0 450 STA DATA,X ; send another dummy CA51: 68 451 PLA ; restore R1 CA52: 60 452 RTS 453 454 455 ******************************** 456 * 457 * Calculate block address 458 * Unit number is in $43 DSSS0000 459 * Block no is in $46-47 460 * Address is in R30-R33 461 * 462 ******************************** 463 CA53: DA 464 BLOCK PHX ; save X CA54: 5A 465 PHY ; save Y CA55: A6 3D 466 LDX SLOT CA57: A5 46 467 LDA $46 ; store block num CA59: 9D F8 05 468 STA R33,X ; in R30-R33 CA5C: A5 47 469 LDA $47 CA5E: 9D 78 05 470 STA R32,X CA61: A9 00 471 LDA #0 CA63: 9D F8 04 472 STA R31,X CA66: 9D 78 04 473 STA R30,X 474 CA69: A9 80 475 LDA #$80 ; drive number CA6B: 24 43 476 BIT $43 CA6D: F0 05 477 BEQ :SHIFT ; D1 CA6F: A9 01 478 LDA #1 ; D2 CA71: 9D F8 04 479 STA R31,X 480 CA74: A0 09 481 :SHIFT LDY #9 ; ASL can't be used with Y CA76: 1E F8 05 482 :LOOP ASL R33,X ; mul block num CA79: 3E 78 05 483 ROL R32,X ; by 512 to get CA7C: 3E F8 04 484 ROL R31,X ; real address CA7F: 3E 78 04 485 ROL R30,X CA82: 88 486 DEY CA83: D0 F1 487 BNE :LOOP CA85: 7A 488 PLY ; restore Y CA86: FA 489 PLX ; restore X CA87: 60 490 RTS 491 492 493 ******************************** 494 * 495 * Send SD command 496 * Cmd is in A 497 * 498 ******************************** 499 CA88: 5A 500 COMMAND PHY ; save Y CA89: A4 3D 501 LDY SLOT CA8B: 9D 80 C0 502 STA DATA,X ; send command CA8E: B9 78 04 503 LDA R30,Y ; get arg from R30 on CA91: 9D 80 C0 504 STA DATA,X CA94: B9 F8 04 505 LDA R31,Y CA97: 9D 80 C0 506 STA DATA,X CA9A: B9 78 05 507 LDA R32,Y CA9D: 9D 80 C0 508 STA DATA,X CAA0: B9 F8 05 509 LDA R33,Y CAA3: 9D 80 C0 510 STA DATA,X CAA6: A9 FF 511 LDA #DUMMY CAA8: 9D 80 C0 512 STA DATA,X ; dummy crc CAAB: 20 06 CA 513 JSR GETR1 CAAE: 7A 514 PLY ; restore Y CAAF: 60 515 RTS 516 517 518 ******************************** 519 * 520 * Check for card detect 521 * 522 * C Clear - card in slot 523 * Set - no card in slot 524 * 525 ******************************** 526 CAB0: 48 527 CARDDET PHA CAB1: A9 40 528 LDA #CD ; 0: card in CAB3: 3C 83 C0 529 BIT SS,X ; 1: card out CAB6: 18 530 CLC CAB7: F0 01 531 BEQ :DONE ; card is in CAB9: 38 532 SEC ; card is out CABA: 68 533 :DONE PLA CABB: 60 534 RTS 535 536 537 ******************************** 538 * 539 * Check for write protect 540 * 541 * C Clear - card not protected 542 * Set - card write protected 543 * 544 ******************************** 545 CABC: 48 546 WRPROT PHA CABD: A9 20 547 LDA #WP ; 0: write enabled CABF: 3C 83 C0 548 BIT SS,X ; 1: write disabled CAC2: 18 549 CLC CAC3: F0 01 550 BEQ :DONE CAC5: 38 551 SEC CAC6: 68 552 :DONE PLA CAC7: 60 553 RTS 554 555 556 ******************************** 557 * 558 * Status request 559 * $43 Unit number DSSS000 560 * $44-45 Unused 561 * $46-47 Unused 562 * 563 * C Clear - No error 564 * Set - Error 565 * A $00 - No error 566 * $27 - I/O error 567 * $28 - No card inserted / no init 568 * $2B - Card write protected 569 * X - Blocks avail (low byte) 570 * Y - Blocks avail (high byte) 571 * 572 ******************************** 573 CAC8: A9 00 574 STATUS LDA #0 ; no error CACA: A2 FF 575 LDX #$FF ; 32 MB partition CACC: A0 FF 576 LDY #$FF 577 CACE: 20 BC CA 578 JSR WRPROT CAD1: 90 02 579 BCC :DONE CAD3: A9 2B 580 LDA #$2B ; card write protected 581 CAD5: 60 582 :DONE RTS 583 584 585 ******************************** 586 * 587 * Read 512 byte block 588 * $43 Unit number DSSS0000 589 * $44-45 Address (LO/HI) of buffer 590 * $46-47 Block number (LO/HI) 591 * 592 * C Clear - No error 593 * Set - Error 594 * A $00 - No error 595 * $27 - Bad block number 596 * $28 - No card inserted 597 * 598 ******************************** 599 CAD6: 20 B0 CA 600 READ JSR CARDDET CAD9: B0 64 601 BCS :ERROR ; no card inserted 602 CADB: 20 53 CA 603 JSR BLOCK ; calc block address 604 CADE: BD 83 C0 605 LDA SS,X ; enable /CS CAE1: 29 FE 606 AND #$FF!SS0 CAE3: 9D 83 C0 607 STA SS,X CAE6: A9 51 608 LDA #$51 ; send CMD17 CAE8: 20 88 CA 609 JSR COMMAND ; send command 610 CAEB: C9 00 611 CMP #0 ; check for error CAED: D0 50 612 BNE :ERROR 613 CAEF: A9 FF 614 :GETTOK LDA #DUMMY ; get data token CAF1: 9D 80 C0 615 STA DATA,X CAF4: BD 80 C0 616 LDA DATA,X ; get response CAF7: C9 FE 617 CMP #$FE CAF9: D0 F4 618 BNE :GETTOK ; wait for $FE 619 CAFB: A0 02 620 LDY #2 ; read data from card CAFD: BD 81 C0 621 LDA CTRL,X ; enable FRX CB00: 09 10 622 ORA #FRX CB02: 9D 81 C0 623 STA CTRL,X CB05: A9 FF 624 LDA #DUMMY CB07: 9D 80 C0 625 STA DATA,X CB0A: 64 3C 626 :LOOPY STZ WORK CB0C: BD 80 C0 627 :LOOPW LDA DATA,X CB0F: 92 44 628 STA ($44) CB11: E6 44 629 INC $44 CB13: D0 02 630 BNE :INW CB15: E6 45 631 INC $45 ; inc msb on page boundary CB17: E6 3C 632 :INW INC WORK CB19: D0 F1 633 BNE :LOOPW CB1B: 88 634 DEY CB1C: D0 EC 635 BNE :LOOPY 636 CB1E: BD 80 C0 637 :CRC LDA DATA,X ; read two bytes crc CB21: BD 80 C0 638 LDA DATA,X ; and ignore CB24: BD 80 C0 639 LDA DATA,X ; read a dummy byte 640 CB27: BD 81 C0 641 LDA CTRL,X ; disable FRX CB2A: 29 EF 642 AND #$FF!FRX CB2C: 9D 81 C0 643 STA CTRL,X CB2F: 18 644 CLC ; no error CB30: A9 00 645 LDA #0 646 CB32: 08 647 :DONE PHP CB33: 48 648 PHA CB34: BD 83 C0 649 LDA SS,X CB37: 09 01 650 ORA #SS0 CB39: 9D 83 C0 651 STA SS,X ; disable /CS CB3C: 68 652 PLA CB3D: 28 653 PLP CB3E: 60 654 RTS 655 CB3F: 38 656 :ERROR SEC ; an error occured CB40: A9 27 657 LDA #$27 CB42: 80 EE 658 BRA :DONE 659 660 661 ******************************** 662 * 663 * Write 512 byte block 664 * $43 Unit number DSSS0000 665 * $44-45 Address (LO/HI) of buffer 666 * $46-47 Block number (LO/HI) 667 * 668 * C Clear - No error 669 * Set - Error 670 * A $00 - No error 671 * $27 - I/O error or bad block number 672 * $2B - Card write protected 673 * 674 ******************************** 675 CB44: 20 B0 CA 676 WRITE JSR CARDDET CB47: B0 67 677 BCS :IOERROR ; no card inserted 678 CB49: 20 BC CA 679 JSR WRPROT CB4C: B0 67 680 BCS :WPERROR ; card write protected 681 CB4E: 20 53 CA 682 JSR BLOCK ; calc block address 683 CB51: BD 83 C0 684 LDA SS,X ; enable /CS CB54: 29 FE 685 AND #$FF!SS0 CB56: 9D 83 C0 686 STA SS,X CB59: A9 58 687 LDA #$58 ; send CMD24 CB5B: 20 88 CA 688 JSR COMMAND ; send command 689 CB5E: C9 00 690 CMP #0 ; check for error CB60: D0 4E 691 BNE :IOERROR 692 CB62: A9 FF 693 LDA #DUMMY CB64: 9D 80 C0 694 STA DATA,X ; send dummy CB67: A9 FE 695 LDA #$FE CB69: 9D 80 C0 696 STA DATA,X ; send data token 697 CB6C: A0 02 698 LDY #2 ; send data to card CB6E: 64 3C 699 :LOOPY STZ WORK CB70: B2 44 700 :LOOPW LDA ($44) CB72: 9D 80 C0 701 STA DATA,X CB75: E6 44 702 INC $44 CB77: D0 02 703 BNE :INW CB79: E6 45 704 INC $45 ; inc msb on page boundary CB7B: E6 3C 705 :INW INC WORK CB7D: D0 F1 706 BNE :LOOPW CB7F: 88 707 DEY CB80: D0 EC 708 BNE :LOOPY 709 CB82: 9D 80 C0 710 :CRC STA DATA,X ; send 2 dummy crc bytes CB85: 9D 80 C0 711 STA DATA,X 712 CB88: 9D 80 C0 713 STA DATA,X ; get data response CB8B: BD 80 C0 714 LDA DATA,X CB8E: 29 1F 715 AND #$1F CB90: C9 05 716 CMP #$05 CB92: D0 1C 717 BNE :IOERROR ; check for write error CB94: 18 718 CLC ; no error CB95: A9 00 719 LDA #0 720 CB97: 08 721 :DONE PHP CB98: 48 722 PHA CB99: A9 FF 723 :WAIT LDA #DUMMY CB9B: 9D 80 C0 724 STA DATA,X ; wait for write cycle CB9E: BD 80 C0 725 LDA DATA,X ; to complete CBA1: C9 00 726 CMP #$00 CBA3: F0 F4 727 BEQ :WAIT 728 CBA5: BD 83 C0 729 LDA SS,X ; disable /CS CBA8: 09 01 730 ORA #SS0 CBAA: 9D 83 C0 731 STA SS,X CBAD: 68 732 PLA CBAE: 28 733 PLP CBAF: 60 734 RTS 735 CBB0: 38 736 :IOERROR SEC ; an error occured CBB1: A9 27 737 LDA #$27 CBB3: 80 E2 738 BRA :DONE 739 CBB5: 38 740 :WPERROR SEC CBB6: A9 2B 741 LDA #$2B CBB8: 80 DD 742 BRA :DONE 743 744 745 746 ******************************** 747 * 748 * Format 749 * not supported! 750 * 751 ******************************** 752 CBBA: 38 753 FORMAT SEC CBBB: A9 01 754 LDA #$01 ; invalid command CBBD: 60 755 RTS 756 757 CBBE: 40 00 00 758 CMD0 HEX 400000 CBC1: 00 00 95 759 HEX 000095 CBC4: 41 00 00 760 CMD1 HEX 410000 CBC7: 00 00 F9 761 HEX 0000F9 CBCA: 48 00 00 762 CMD8 HEX 480000 CBCD: 01 AA 87 763 HEX 01AA87 CBD0: 50 00 00 764 CMD16 HEX 500000 CBD3: 02 00 FF 765 HEX 0200FF CBD6: 77 00 00 766 CMD55 HEX 770000 CBD9: 00 00 65 767 HEX 000065 CBDC: 69 40 00 768 ACMD4140 HEX 694000 CBDF: 00 00 77 769 HEX 000077 CBE2: 69 00 00 770 ACMD410 HEX 690000 CBE5: 00 00 FF 771 HEX 0000FF --End assembly, 1000 bytes, Errors: 0 Symbol table - alphabetical order: ACMD410 =$CBE2 ACMD4140=$CBDC BLOCK =$CA53 ? BOOT =$C82B CARDDET =$CAB0 CD =$40 CMD =$C9F2 CMD0 =$CBBE CMD1 =$CBC4 CMD16 =$CBD0 CMD55 =$CBD6 CMD8 =$CBCA CMDHI =$41 CMDLO =$40 COMMAND =$CA88 CTRL =$C081 CURSLOT =$07F8 DATA =$C080 DEBUG =$00 DIV =$C082 DRIVER =$C84C DUMMY =$FF ECE =$04 FORMAT =$CBBA FRX =$10 GETR1 =$CA06 GETR3 =$CA21 INIT =$C900 INITED =$80 R30 =$0478 R31 =$04F8 R32 =$0578 R33 =$05F8 READ =$CAD6 SLOT =$3D SLOT16 =$2B SS =$C083 SS0 =$01 STATUS =$CAC8 WORK =$3C WP =$20 WRITE =$CB44 WRPROT =$CABC 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 INITED =$80 DUMMY =$FF R30 =$0478 R31 =$04F8 R32 =$0578 R33 =$05F8 CURSLOT =$07F8 DATA =$C080 CTRL =$C081 DIV =$C082 SS =$C083 ? BOOT =$C82B DRIVER =$C84C INIT =$C900 CMD =$C9F2 GETR1 =$CA06 GETR3 =$C ΣΤΑ ΓΝΔΜύ΄±°ςε ςεσποξσεεδεδ ζος ζας κυνπδͺͺͺωςιεσ δοχξδος ιξιτιστχͺͺ μιστ READ =$CADF WRITE =$CB4D FORMAT =$CBC3 CMD0 =$CBC7 CMD1 =$CBCD CBDF ACMD4140=$CBE5 ACMD410 =$CBEB