Apple-2-HW/AppleIISd
1
0
Fork 1
mirror of https://github.com/freitz85/AppleIISd.git synced 2024-11-25 17:40:35 +00:00
Code Issues Projects Releases Wiki Activity
21acf3ac24
AppleIISd/AppleIISd.lst
freitz85 a4ee5d055a file rename
2017-07-05 20:07:55 +02:00

671 lines
30 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.

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