ようやくSDカード（SDHCカードも）のセクタの読み書きができました
まだ完成途上なのですが、一応、必要なセクタを読み書きできるようになりました。
任意のセクタの読み書きに加えて、MBR(マスタブートレコード）、BPB(ブートパラメータブロック）、FAT(ファイルアロケーションテーブル）、DIR(ディレクトリ）と指定したファイルの最初のセクタを読むことができます。もちろん、SDカードのみでなくSDHCカードもOKです。
まずはFM-7との接続の様子です。前回の報告ではFM-7本体に装着していましたが、今回は拡張基板上に装着しています。後ろにFDCカードとFT245カードが並んでおり、50Pフラットケーブルで本体の拡張コネクタに接続しています。
 |
| 設置状態 |
SDカードでの起動画面です。
SDカードの初期化とカード種別の判別の終了後にメニューが表示されます。
 |
| SDカードの起動画面 |
SDHCカードでの起動画面です。
 |
| SDHCカードの起動画面 |
メニュー項目は
１．指定したセクタのリード
２．指定したセクタのライト
３．SDカードのデータ取得・表示
３．SDカードのデータ取得・表示
４．SDカードの初期化
５．MBR（Master Boot Record）内容の表示
６．BPB（Boot Parameter Block）内容の表示
７．FAT（File Allocation Table）内容の表示
８．DIR（Directory）内容の表示...（先頭セクタのみです）
９．ファイル内容の表示...（先頭セクタのみです）
です。
です。
メニュー実行の例として、DIR内容を表示させてみます。
ファイル名、サイズ、作成日、クラスタ上位、クラスタ下位を表示させています。
先頭の番号は、９．ファイル内容の表示で使用します。
 |
| SDカードのディレクトリ表示 |
メニュー９です。
ファイル番号を入力するとそのファイルの内容が表示されます。（現在はテストプログラムですので、先頭セクタのみの表示です。）
この画面はSDHCカードの場合で、３行目のような意味不明の表示がありますが、これは４行目のファイル名中に小文字が使用されているためです。（拡張子が.Lstでした）
ということで、FAT32も使用できますが、ファイル名に小文字は使用できないという制限があります。
 |
| ファイル番号入力待ち |
FM-7では一行が80文字までという制限があるために１セクタのデータの512バイトがうまく一画面に収まらないので、表示結果の画像はありません。代わりに、開発に使用しているFLEX9上での画面を示します。
 |
| FLEX9での動作の様子 |
以上、現在実現できていることのうち、読み込み機能について紹介しました。
ファイル名に小文字が使えませんし、もちろんフォルダも使用できませんが、目的がFM-7への実装ですので、どちらも問題にはなりません。
問題は、WindowsPC等でSDカードに保存したテキスト等のデータをFM-7で読み出せたとして、それをFM-7のシステムでどのようにして利用するかです。
最も簡単な方法としては、読み込んだデータをメモリ上に展開しておいてF-BASICからそれを読み込んでファイル化するという方法が考えられます。小さなデータならこれでも間に合いそうですが...
SDカードをドライブ２に割り付けることができて、FILES, LOAD, SAVEなどが使用できればベストなのですが、実現するにはなかなか敷居が高そうです...
また、プログラムサイズも結構大きくなりそうですので、どう組み込むかも課題です。
まだまだ完成には遠いですが、今回作成したサブルーチン等をベースにして仕上げていくことになると思いますので、雑な作りのものですが、作成したプログラムを紹介しておきます。
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299 300 301 302 303 304 305 306 307 308 309 310 311 312 313 314 315 316 317 318 319 320 321 322 323 324 325 326 327 328 329 330 331 332 333 334 335 336 337 338 339 340 341 342 343 344 345 346 347 348 349 350 351 352 353 354 355 356 357 358 359 360 361 362 363 364 365 366 367 368 369 370 371 372 373 374 375 376 377 378 379 380 381 382 383 384 385 386 387 388 389 390 391 392 393 394 395 396 397 398 399 400 401 402 403 404 405 406 407 408 409 410 411 412 413 414 415 416 417 418 419 420 421 422 423 424 425 426 427 428 429 430 431 432 433 434 435 436 437 438 439 440 441 442 443 444 445 446 447 448 449 450 451 452 453 454 455 456 457 458 459 460 461 462 463 464 465 466 467 468 469 470 471 472 473 474 475 476 477 478 479 480 481 482 483 484 485 486 487 488 489 490 491 492 493 494 495 496 497 498 499 500 501 502 503 504 505 506 507 508 509 510 511 512 513 514 515 516 517 518 519 520 521 522 523 524 525 526 527 528 529 530 531 532 533 534 535 536 537 538 539 540 541 542 543 544 545 546 547 548 549 550 551 552 553 554 555 556 557 558 559 560 561 562 563 564 565 566 567 568 569 570 571 572 573 574 575 576 577 578 579 580 581 582 583 584 585 586 587 588 589 590 591 592 593 594 595 596 597 598 599 600 601 602 603 604 605 606 607 608 609 610 611 612 613 614 615 616 617 618 619 620 621 622 623 624 625 626 627 628 629 630 631 632 633 634 635 636 637 638 639 640 641 642 643 644 645 646 647 648 649 650 651 652 653 654 655 656 657 658 659 660 661 662 663 664 665 666 667 668 669 670 671 672 673 674 675 676 677 678 679 680 681 682 683 684 685 686 687 688 689 690 691 692 693 694 695 696 697 698 699 700 701 702 703 704 705 706 707 708 709 710 711 712 713 714 715 716 717 718 719 720 721 722 723 724 725 726 727 728 729 730 731 732 733 734 735 736 737 738 739 740 741 742 743 744 745 746 747 748 749 750 751 752 753 754 755 756 757 758 759 760 761 762 763 764 765 766 767 768 769 770 771 772 773 774 775 776 777 778 779 780 781 782 783 784 785 786 787 788 789 790 791 792 793 794 795 796 797 798 799 800 801 802 803 804 805 806 807 808 809 810 811 812 813 814 815 816 817 818 819 820 821 822 823 824 825 826 827 828 829 830 831 832 833 834 835 836 837 838 839 840 841 842 843 844 845 846 847 848 849 850 851 852 853 854 855 856 857 858 859 860 861 862 863 864 865 866 867 868 869 870 871 872 873 874 875 876 877 878 879 880 881 882 883 884 885 886 887 888 889 890 891 892 893 894 895 896 897 898 899 900 901 902 903 904 905 906 907 908 909 910 911 912 913 914 915 916 917 918 919 920 921 922 923 924 925 926 927 928 929 930 931 932 933 934 935 936 937 938 939 940 941 942 943 944 945 946 947 948 949 950 951 952 953 954 955 956 957 958 959 960 961 962 963 964 965 966 967 968 969 970 971 972 973 974 975 976 977 978 979 980 981 982 983 984 985 986 987 988 989 990 991 992 993 994 995 996 997 998 999 1000 1001 1002 1003 1004 1005 1006 1007 1008 1009 1010 1011 1012 1013 1014 1015 1016 1017 1018 1019 1020 1021 1022 1023 1024 1025 1026 1027 1028 1029 1030 1031 1032 1033 1034 1035 1036 1037 1038 1039 1040 1041 1042 1043 1044 1045 1046 1047 1048 1049 1050 1051 1052 1053 1054 1055 1056 1057 1058 1059 1060 1061 1062 1063 1064 1065 1066 1067 1068 1069 1070 1071 1072 1073 1074 1075 1076 1077 1078 1079 1080 1081 1082 1083 1084 1085 1086 1087 1088 1089 1090 1091 1092 1093 1094 1095 1096 1097 1098 1099 1100 1101 1102 1103 1104 1105 1106 1107 1108 1109 1110 1111 1112 1113 1114 1115 1116 1117 1118 1119 1120 1121 1122 1123 1124 1125 1126 1127 1128 1129 1130 1131 1132 1133 1134 1135 1136 1137 1138 1139 1140 1141 1142 1143 1144 1145 1146 1147 1148 1149 1150 1151 1152 1153 1154 1155 1156 1157 1158 1159 1160 1161 1162 1163 1164 1165 1166 1167 1168 1169 1170 1171 1172 1173 1174 1175 1176 1177 1178 1179 1180 1181 1182 1183 1184 1185 1186 1187 1188 1189 1190 1191 1192 1193 1194 1195 1196 1197 1198 1199 1200 1201 1202 1203 1204 1205 1206 1207 1208 1209 1210 1211 1212 1213 1214 1215 1216 1217 1218 1219 1220 1221 1222 1223 1224 1225 1226 1227 1228 1229 1230 1231 1232 1233 1234 1235 1236 1237 1238 1239 1240 1241 1242 1243 1244 1245 1246 1247 1248 1249 1250 1251 1252 1253 1254 1255 1256 1257 1258 1259 1260 1261 1262 1263 1264 1265 1266 1267 1268 1269 1270 1271 1272 1273 1274 1275 1276 1277 1278 1279 1280 1281 1282 1283 1284 1285 1286 1287 1288 1289 1290 1291 1292 1293 1294 1295 1296 1297 1298 1299 1300 1301 1302 1303 1304 1305 1306 1307 1308 1309 1310 1311 1312 1313 1314 1315 1316 1317 1318 1319 1320 1321 1322 1323 1324 1325 1326 1327 1328 1329 1330 1331 1332 1333 1334 1335 1336 1337 1338 1339 1340 1341 1342 1343 1344 1345 1346 1347 1348 1349 1350 1351 1352 1353 1354 1355 1356 1357 1358 1359 1360 1361 1362 1363 1364 1365 1366 1367 1368 1369 1370 1371 1372 1373 1374 1375 1376 1377 1378 1379 1380 1381 1382 1383 1384 1385 1386 1387 1388 1389 1390 | 0001 *0002 * SDHC8FM.TXT0003 *0004 * SD Read/Write on SBC for FM-70005 *0006 * use RTC & SD Card0007 *0008 * 6821(PIA) Port A ---- RTC (I2C Mode)0009 *0010 * SBC RTC Ext IO0011 * CA2 2 --- --- HV4 LV4 --- IO10012 * PA0 3 --- SCL --- HV1 LV1 --- IO40013 * PA1 4 --- --- HV2 LV2 --- IO30014 * PA7 10 --- SDA --- HV3 LV3 --- IO20015 * GND -- -- -- GND0016 * -- -- -- 3V30017 *0018 *0019 * 6821(PIA) Port B ---- SD (SPI Mode)0020 *0021 * SBC SD0022 * CB2 12 --- HV4 LV4 --- SCK0023 * PB0 13 --- HV1 LV1 --- CS0024 * PB1 14 --- HV2 LV2 --- MISO0025 * PB7 20 --- HV3 LV3 --- MOSI0026 * GND 31 -- -- GND0027 * VCC 33 -- -- VCC0028 *0029 * cf. all data line use level converter0030 *0031 * PB output mode0032 * CB2 1bit output0033 *0034 * READ/WRITE BUFFER $6E00 - 6FFF0035 *0036 * Add command '2023.03.140037 * Change use Port B '2023.03.070038 * Original version '2022.06.110039 * Copyright by Y.Yamamoto0040 *0041 6000 STTADR EQU $6000 0042 FBB8 INCHA EQU $FBB8 0043 FBBB OUTCHA EQU $FBBB 0044 0045 6E00 RWBUF EQU STTADR+$E00 0046 0047 FD9E PBDAT EQU $FD9E 0048 FD9F PBCTL EQU PBDAT+1 0049 0050 6000 ORG STTADR 0051 0052 6000 20 27 START BRA MAIN 0053 6002 01 VN FCB 1 0054 6003 00 SCTN0 FCB 0 top adrs of sct0055 6004 00 SCTN1 FCB 0 0056 6005 00 SCTN2 FCB 0 0057 6006 00 SCTN3 FCB 0 0058 6007 00 RESDAT FCB 0 response data0059 6008 00 SDHC FCB 0 sd:0,sdhc:10060 0061 6009 0000 SCTBPB FDB 00 sct no of BPB(4bytes)0062 600B 0000 FDB 00 0063 600D 0000 SCTFAT FDB 00 sct no of FAT#1(4bytes)0064 600F 0000 FDB 00 0065 6011 0000 SCTDIR FDB 00 sct no of DIR(4bytes)0066 6013 0000 FDB 00 0067 6015 0000 SCTCLT FDB 00 sct no of top CLUSTER(4bytes)0068 6017 0000 FDB 00 if SD:#2, SDHC:#30069 6019 00 SCTPCL FCB 0 sct per cluster0070 601A FF WMDY RMB 3 0071 601D FF WFSIZ RMB 4 0072 6021 0000 CLSTH FDB 00 0073 6023 0000 CLSTL FDB 00 0074 6025 0000 WK1 FDB 00 0075 6027 0000 WK2 FDB 00 0076 0077 6029 MAIN EQU * 0078 *=====reset pia=====0079 *portB:output0080 6029 86 30 LDA #$30 0081 602B B7 FD9F STA PBCTL select ddra, cb2:00082 602E 86 FD LDA #$FD pb0,7:out,pb1:in0083 6030 B7 FD9E STA PBDAT set output mode0084 6033 86 34 LDA #$34 0085 6035 B7 FD9F STA PBCTL select peripheral,cb2:00086 0087 *for pia exist check0088 6038 86 55 LDA #$55 test data0089 603A B7 FD9E STA PBDAT 0090 603D B6 FD9E LDA PBDAT 0091 6040 84 FD ANDA #$FD pb1=00092 6042 81 55 CMPA #$55 0093 6044 27 07 BEQ INIT 0094 6046 8E 68DF LDX #MERR 0095 6049 17 067B LBSR PSTRNG 0096 604C 39 RTS return FM-70097 0098 604D INIT EQU * 0099 604D 8D 5E BSR SDINIT 0100 0101 ****************************************0102 * MAIN MENU0103 ****************************************0104 604F MENU EQU * 0105 604F 8E 6817 LDX #MSMENU1 0106 6052 17 0672 LBSR PSTRNG 0107 6055 8E 6859 LDX #MSMENU2 0108 6058 17 066C LBSR PSTRNG 0109 0110 605B BD FBB8 JSR INCHA 0111 605E 80 30 SUBA #$30 0112 6060 26 04 BNE MEN1 0?0113 6062 BD 6612 JSR CRLF 0114 6065 39 RTS return FM-70115 6066 4A MEN1 DECA 0116 6067 26 05 BNE MEN2 1?0117 6069 17 0271 LBSR SDRD 0118 606C 20 E1 BRA MENU 0119 606E 4A MEN2 DECA 0120 606F 26 05 BNE MEN3 2?0121 6071 17 0416 LBSR SDWRT 0122 6074 20 D9 BRA MENU 0123 6076 4A MEN3 DECA 0124 6077 26 05 BNE MEN4 3?0125 6079 17 01D3 LBSR GETSD 0126 607C 20 D1 BRA MENU 0127 607E 4A MEN4 DECA 0128 607F 26 04 BNE MEN5 4?0129 6081 8D 2A BSR SDINIT 0130 6083 20 CA BRA MENU 0131 6085 4A MEN5 DECA 5?0132 6086 26 05 BNE MEN6 0133 6088 17 0265 LBSR DSPMBR 0134 608B 20 C2 BRA MENU 0135 608D 4A MEN6 DECA 6?0136 608E 26 05 BNE MEN7 0137 6090 17 02B7 LBSR DSPBPB 0138 6093 20 BA BRA MENU 0139 6095 4A MEN7 DECA 7?0140 6096 26 05 BNE MEN8 0141 6098 17 02C1 LBSR DSPFAT 0142 609B 20 B2 BRA MENU 0143 609D 4A MEN8 DECA 8?0144 609E 26 05 BNE MEN9 0145 60A0 17 02CB LBSR DSPDIR 0146 60A3 20 AA BRA MENU 0147 60A5 4A MEN9 DECA 9?0148 60A6 26 A7 BNE MENU 0149 60A8 17 0349 LBSR LDFILE 0150 60AB 20 A2 BRA MENU 0151 *0152 ****************************************0153 * SD Initialize routine0154 ****************************************0155 60AD SDINIT EQU * 0156 *---------- start ----------0157 60AD 8E 68C3 LDX #MSINIT 0158 60B0 BD 66C7 JSR PSTRNG 0159 * cs:1,di:1,sck-74ms0160 60B3 86 FF LDA #$FF mosi:b7=H,miso:b1=H(for PIA),cs:b0=H0161 60B5 B7 FD9E STA PBDAT 0162 60B8 C6 50 LDB #80 80times0163 60BA 17 051A ISTT LBSR SETCKL 0164 60BD 17 0520 LBSR SETCKH 0165 60C0 5A DECB 0166 60C1 26 F7 BNE ISTT 0167 *0168 *---------- cmd 0 ----------0169 60C3 SCMD0 EQU * 0170 * LDX #MCMD00171 * LBSR PSTRNG0172 0173 60C3 17 0511 LBSR SETCKL 0174 60C6 C6 06 LDB #6 0175 60C8 8E 67B3 LDX #CMD0 0176 60CB A6 80 SC01 LDA ,X+ 0177 60CD 17 0496 LBSR SNDDAT 0178 60D0 5A DECB 0179 60D1 26 F8 BNE SC01 0180 *get response0181 60D3 5F CLRB 0182 60D4 GR00 0183 60D4 5A DECB 0184 60D5 1027 01FD LBEQ SDERR 0185 60D9 17 04A6 LBSR GETDAT 0186 60DC B6 6007 LDA RESDAT 0187 * LBSR DSPBIN disp response0188 60DF 81 01 CMPA #$01 0189 60E1 26 F1 BNE GR00 0190 * JSR CRLF0191 *0192 *---------- cmd 8 ----------0193 60E3 SCMD8 EQU * 0194 * LDX #MCMD80195 * LBSR PSTRNG0196 0197 60E3 17 04F1 LBSR SETCKL 0198 60E6 86 FF LDA #$FF dummy cmd0199 60E8 17 047B LBSR SNDDAT 0200 60EB C6 06 LDB #6 0201 60ED 8E 67CB LDX #CMD8 0202 60F0 A6 80 SC80 LDA ,X+ 0203 60F2 17 0471 LBSR SNDDAT 0204 60F5 5A DECB 0205 60F6 26 F8 BNE SC80 0206 *get response0207 60F8 GR80 0208 60F8 17 0487 LBSR GETDAT 0209 60FB B6 6007 LDA RESDAT 0210 0211 60FE 17 0481 LBSR GETDAT 0212 6101 B6 6007 LDA RESDAT 0213 * LBSR DSPBIN disp response0214 6104 81 01 CMPA #$01 0215 6106 26 F0 BNE GR80 0216 6108 C6 04 LDB #4 0217 610A 17 0475 GR81 LBSR GETDAT 0218 610D B6 6007 LDA RESDAT 0219 * LBSR DSPBIN disp response0220 6110 5A DECB 0221 6111 26 F7 BNE GR81 0222 * JSR CRLF0223 *0224 *---------- cmd 58 ----------0225 6113 SCMD58 EQU * 0226 * LDX #MCMD580227 * LBSR PSTRNG0228 0229 6113 17 04C1 LBSR SETCKL 0230 6116 86 FF LDA #$FF dummy cmd0231 6118 17 044B LBSR SNDDAT 0232 611B C6 06 LDB #6 0233 611D 8E 67D1 LDX #CMD58 0234 6120 A6 80 SC581 LDA ,X+ 0235 6122 17 0441 LBSR SNDDAT 0236 6125 5A DECB 0237 6126 26 F8 BNE SC581 0238 *get response0239 6128 GR580 0240 6128 17 0457 LBSR GETDAT 0241 612B B6 6007 LDA RESDAT 0242 * LBSR DSPBIN disp response0243 612E 81 01 CMPA #$01 0244 6130 26 F6 BNE GR580 0245 6132 C6 04 GR581 LDB #4 0246 6134 17 044B GR582 LBSR GETDAT 0247 6137 B6 6007 LDA RESDAT 0248 * LBSR DSPBIN disp response0249 613A 5A DECB 0250 613B 26 F7 BNE GR582 0251 613D RPT41 EQU * 0252 *---------- cmd 55 ----------0253 613D SCMD55 EQU * 0254 * LDX #MCMD550255 * LBSR PSTRNG0256 0257 613D 17 0497 LBSR SETCKL 0258 6140 86 FF LDA #$FF dummy cmd0259 6142 17 0421 LBSR SNDDAT 0260 6145 C6 06 LDB #6 0261 6147 8E 67D7 LDX #CMD55 0262 614A A6 80 SC551 LDA ,X+ 0263 614C 17 0417 LBSR SNDDAT 0264 614F 5A DECB 0265 6150 26 F8 BNE SC551 0266 *get response0267 * CLRB0268 6152 GR550 0269 * DECB0270 * BEQ SDERR0271 6152 17 042D LBSR GETDAT 0272 6155 B6 6007 LDA RESDAT 0273 * LBSR DSPBIN disp response0274 6158 81 01 CMPA #$01 0275 615A 26 F6 BNE GR550 0276 0277 * JSR CRLF0278 *---------- acmd 41 ----------0279 615C ASCMD41 EQU * 0280 * LDX #MCMD410281 * LBSR PSTRNG0282 0283 615C 17 0478 LBSR SETCKL 0284 615F 86 FF LDA #$FF dummy cmd0285 6161 17 0402 LBSR SNDDAT 0286 6164 C6 06 LDB #6 0287 6166 8E 67DD LDX #ACMD41 0288 6169 A6 80 ASC411 LDA ,X+ 0289 616B 17 03F8 LBSR SNDDAT 0290 616E 5A DECB 0291 616F 26 F8 BNE ASC411 0292 *get response0293 6171 GR410 0294 6171 17 040E LBSR GETDAT 0295 6174 B6 6007 LDA RESDAT 0296 * LBSR DSPBIN disp response0297 6177 17 0408 LBSR GETDAT 0298 617A B6 6007 LDA RESDAT 0299 * LBSR DSPBIN disp response0300 617D 81 00 CMPA #$00 0301 617F 26 BC BNE RPT41 0302 * JSR CRLF0303 0304 *---------- second cmd 58 ----------0305 6181 SCMD258 EQU * 0306 * LDX #MCMD580307 * LBSR PSTRNG0308 0309 6181 17 0453 LBSR SETCKL 0310 6184 86 FF LDA #$FF dummy cmd0311 6186 17 03DD LBSR SNDDAT 0312 6189 C6 06 LDB #6 0313 618B 8E 67D1 LDX #CMD58 0314 618E A6 80 SC2581 LDA ,X+ 0315 6190 17 03D3 LBSR SNDDAT 0316 6193 5A DECB 0317 6194 26 F8 BNE SC2581 0318 *get response0319 6196 GR2580 0320 6196 17 03E9 LBSR GETDAT 0321 6199 B6 6007 LDA RESDAT 0322 * LBSR DSPBIN disp response0323 619C 81 00 CMPA #$00 0324 619E 26 F6 BNE GR2580 0325 61A0 17 03DF LBSR GETDAT 0326 61A3 B6 6007 LDA RESDAT 0327 * LBSR DSPBIN disp response0328 61A6 48 LSLA 0329 61A7 48 LSLA 0330 61A8 24 03 BCC GR2581 0331 61AA 7C 6008 INC SDHC if sdhc then 10332 61AD C6 03 GR2581 LDB #3 0333 61AF 17 03D0 GR2582 LBSR GETDAT 0334 61B2 B6 6007 LDA RESDAT 0335 * LBSR DSPBIN disp response0336 61B5 5A DECB 0337 61B6 26 F7 BNE GR2582 0338 0339 61B8 8E 68A9 LDX #MSSD0 0340 61BB B6 6008 LDA SDHC 0341 61BE 27 03 BEQ SD1 0342 61C0 8E 68B5 LDX #MSSD1 0343 61C3 17 0501 SD1 LBSR PSTRNG 0344 0345 *----------0346 *set sct no of BPB0347 61C6 17 0145 LBSR GETMBR 0348 61C9 8E 6FCA LDX #RWBUF+446+8+4 0349 61CC 108E 6009 LDY #SCTBPB 0350 61D0 C6 04 LDB #4 0351 61D2 A6 82 ILOP1 LDA ,-X 0352 61D4 A7 A0 STA ,Y+ 0353 61D6 5A DECB 0354 61D7 26 F9 BNE ILOP1 0355 0356 *set sct no of FAT#10357 61D9 17 0155 LBSR GETBPB 0358 61DC 8E 6009 LDX #SCTBPB 0359 61DF 108E 600D LDY #SCTFAT 0360 61E3 C6 04 LDB #4 0361 61E5 A6 80 ILOP2 LDA ,X+ 0362 61E7 A7 A0 STA ,Y+ 0363 61E9 5A DECB 0364 61EA 26 F9 BNE ILOP2 0365 0366 61EC 8E 600D LDX #SCTFAT 0367 61EF 108E 6E0E LDY #RWBUF+$0E for SD & SDHC0368 61F3 17 04A0 LBSR ADD42 0369 0370 *set sct no of DIR0371 61F6 8E 600D LDX #SCTFAT 0372 61F9 108E 6011 LDY #SCTDIR 0373 61FD C6 04 LDB #4 0374 61FF A6 80 ILOP3 LDA ,X+ 0375 6201 A7 A0 STA ,Y+ 0376 6203 5A DECB 0377 6204 26 F9 BNE ILOP3 0378 0379 6206 8E 6E16 LDX #RWBUF+$16 for SD0380 6209 7D 6008 TST SDHC 0381 620C 27 03 BEQ SKP1 0382 620E C6 0E LDB #$24-$16 0383 6210 3A ABX for SDHC0384 6211 1F 12 SKP1 TFR X,Y 0385 6213 8E 6011 LDX #SCTDIR 0386 6216 17 047D LBSR ADD42 0387 6219 17 047A LBSR ADD42 skip for FAT#20388 0389 *set sct per cluster0390 621C 8E 6E0D LDX #RWBUF+$0D 0391 621F A6 84 LDA ,X 0392 6221 B7 6019 STA SCTPCL 0393 0394 *set sct no of CLUSTER#20395 6224 8E 6011 LDX #SCTDIR 0396 6227 108E 6015 LDY #SCTCLT 0397 622B C6 04 LDB #4 0398 622D A6 80 ILOP4 LDA ,X+ 0399 622F A7 A0 STA ,Y+ 0400 6231 5A DECB 0401 6232 26 F9 BNE ILOP4 0402 0403 6234 108E 6027 LDY #WK1+2 0404 6238 86 00 LDA #$00 0405 623A A7 A2 STA ,-Y 0406 623C 86 20 LDA #$20 for SD0407 623E 7D 6008 TST SDHC 0408 6241 27 03 BEQ SKP2 0409 6243 B6 6019 LDA SCTPCL for SDHC0410 6246 A7 A2 SKP2 STA ,-Y 0411 6248 8E 6015 LDX #SCTCLT 0412 624B 17 0448 LBSR ADD42 0413 *----------0414 624E 39 RTS 0415 0416 ****************************************0417 * GET SD DATA ROUTINE0418 * use CMD90419 ****************************************0420 624F GETSD EQU * 0421 624F BD 6612 JSR CRLF 0422 6252 17 0382 LBSR SETCKL 0423 6255 C6 06 LDB #6 0424 6257 8E 67E3 LDX #CMD9 0425 625A A6 80 SC91 LDA ,X+ 0426 625C 17 0307 LBSR SNDDAT 0427 625F 5A DECB 0428 6260 26 F8 BNE SC91 0429 * JSR CRLF0430 *get response0431 6262 GR90 0432 6262 17 031D LBSR GETDAT 0433 6265 B6 6007 LDA RESDAT 0434 * LBSR DSPBIN disp response0435 6268 81 00 CMPA #$00 0436 626A 26 F6 BNE GR90 0437 0438 * JSR CRLF0439 626C BD 6612 JSR CRLF 0440 626F C6 14 LDB #16+1+2+1 fe,crcH,crcL,ff0441 6271 17 030E GR91 LBSR GETDAT 0442 6274 B6 6007 LDA RESDAT 0443 6277 17 036F LBSR DSPBIN disp response0444 627A 5A DECB 0445 627B 26 F4 BNE GR91 0446 627D BD 6612 JSR CRLF 0447 0448 *disp offset of MBR,FAT#1,DIR,CLUSTER#20449 6280 8E 6905 LDX #MSOFS 0450 6283 BD 66C7 JSR PSTRNG 0451 6286 8E 6917 LDX #MSBPB 0452 6289 BD 66C7 JSR PSTRNG 0453 628C 8E 6009 LDX #SCTBPB 0454 628F C6 04 LDB #4 0455 6291 A6 80 SCLOP1 LDA ,X+ 0456 6293 17 0353 LBSR DSPBIN 0457 6296 5A DECB 0458 6297 26 F8 BNE SCLOP1 0459 0460 6299 8E 6920 LDX #MSFAT 0461 629C BD 66C7 JSR PSTRNG 0462 629F 8E 600D LDX #SCTFAT 0463 62A2 C6 04 LDB #4 0464 62A4 A6 80 SCLOP2 LDA ,X+ 0465 62A6 17 0340 LBSR DSPBIN 0466 62A9 5A DECB 0467 62AA 26 F8 BNE SCLOP2 0468 0469 62AC 8E 6929 LDX #MSDIR 0470 62AF BD 66C7 JSR PSTRNG 0471 62B2 8E 6011 LDX #SCTDIR 0472 62B5 C6 04 LDB #4 0473 62B7 A6 80 SCLOP3 LDA ,X+ 0474 62B9 17 032D LBSR DSPBIN 0475 62BC 5A DECB 0476 62BD 26 F8 BNE SCLOP3 0477 0478 62BF 8E 6932 LDX #MSCL2 0479 62C2 BD 66C7 JSR PSTRNG 0480 62C5 8E 6015 LDX #SCTCLT 0481 62C8 C6 04 LDB #4 0482 62CA A6 80 SCLOP4 LDA ,X+ 0483 62CC 17 031A LBSR DSPBIN 0484 62CF 5A DECB 0485 62D0 26 F8 BNE SCLOP4 0486 62D2 BD 6612 JSR CRLF 0487 62D5 39 RTS 0488 0489 *0490 62D6 SDERR EQU * 0491 62D6 8E 68DF LDX #MERR 0492 62D9 17 03EB LBSR PSTRNG 0493 62DC OKEND 0494 62DC 39 RTS return FM-70495 *0496 ****************************************0497 * READ ROUTINE0498 * use CMD170499 * set sctno to $6005,60060500 * read data set to $6800-69FF0501 ****************************************0502 62DD SDRD EQU * 0503 62DD BD 6612 JSR CRLF 0504 62E0 17 02B9 LBSR INSCT 0505 62E3 17 0227 LBSR RD1SCT read 1 sct0506 0507 *disp data0508 62E6 BD 6612 JSR CRLF 0509 62E9 17 025C LBSR DSPBUF 0510 62EC BD 6612 JSR CRLF 0511 62EF 39 RTS 0512 0513 ****************************************0514 * Read MBR & Disp parameter of BPB0515 ****************************************0516 62F0 DSPMBR EQU * 0517 62F0 BD 6612 JSR CRLF 0518 62F3 8D 19 BSR GETMBR 0519 0520 *disp BPB0521 62F5 BD 6612 JSR CRLF 0522 62F8 8E 6FBE LDX #RWBUF+446 0523 62FB C6 10 GET1 LDB #16 0524 62FD A6 80 GET2 LDA ,X+ 0525 62FF 17 02E7 LBSR DSPBIN disp data0526 6302 5A DECB 0527 6303 26 F8 BNE GET2 0528 6305 BD 6612 JSR CRLF 0529 6308 8C 6FFE CMPX #RWBUF+510 446+16*40530 630B 25 EE BLO GET1 0531 630D 39 RTS 0532 0533 *----------------------------------------0534 *read MBR0535 630E GETMBR EQU * 0536 630E 8E 6003 LDX #SCTN0 0537 6311 C6 04 LDB #4 0538 6313 4F CLRA 0539 6314 A7 80 GPLOP STA ,X+ 0540 6316 5A DECB 0541 6317 26 FB BNE GPLOP 0542 6319 17 0288 LBSR SETSCT 0543 0544 631C 17 01EE LBSR RD1SCT read 1 sct0545 631F 39 RTS 0546 0547 *----------------------------------------0548 *set sector no to SCTN00549 *from X,X+1,X+2,X+3 to SCTN0-SCTN30550 6320 SETSNO EQU * 0551 6320 108E 6003 LDY #SCTN0 0552 6324 C6 04 LDB #4 0553 6326 A6 80 SELOP LDA ,X+ 0554 6328 A7 A0 STA ,Y+ 0555 632A 5A DECB 0556 632B 26 F9 BNE SELOP 0557 632D 17 0274 LBSR SETSCT 0558 6330 39 RTS 0559 0560 *----------------------------------------0561 *read BPB0562 6331 GETBPB EQU * 0563 6331 8D DB BSR GETMBR 0564 *set sct no of BPB0565 6333 8E 6FCA LDX #RWBUF+446+8+4 0566 6336 108E 6003 LDY #SCTN0 0567 633A C6 04 LDB #4 0568 633C A6 82 GPLOP2 LDA ,-X 0569 633E A7 A0 STA ,Y+ 0570 6340 5A DECB 0571 6341 26 F9 BNE GPLOP2 0572 6343 17 025E LBSR SETSCT 0573 0574 6346 17 01C4 LBSR RD1SCT read 1 sct0575 6349 39 RTS 0576 0577 ****************************************0578 * Disp BPB(Bios Parameter Block)0579 ****************************************0580 634A DSPBPB EQU * 0581 634A 8E 6009 LDX #SCTBPB 0582 634D 8D D1 BSR SETSNO 0583 634F 17 01BB LBSR RD1SCT read 1 sct0584 0585 *disp BPB0586 6352 BD 6612 JSR CRLF 0587 6355 17 01F0 LBSR DSPBUF 0588 6358 BD 6612 JSR CRLF 0589 635B 39 RTS 0590 0591 ****************************************0592 * Disp FAT#10593 ****************************************0594 635C DSPFAT EQU * 0595 635C 8E 600D LDX #SCTFAT 0596 635F 8D BF BSR SETSNO 0597 6361 17 01A9 LBSR RD1SCT read 1 sct0598 0599 *disp FAT0600 6364 BD 6612 JSR CRLF 0601 6367 17 01DE LBSR DSPBUF 0602 636A BD 6612 JSR CRLF 0603 636D 39 RTS 0604 0605 ****************************************0606 * Disp Directory0607 ****************************************0608 636E DSPDIR EQU * 0609 636E 8E 6011 LDX #SCTDIR 0610 6371 8D AD BSR SETSNO 0611 6373 17 0197 LBSR RD1SCT read 1 sct0612 0613 **disp DIR0614 * JSR CRLF0615 * LBSR DSPBUF0616 * JSR CRLF0617 * 0618 *disp FILE name0619 6376 BD 6612 JSR CRLF 0620 6379 BD 6612 JSR CRLF 0621 637C 8E 6E60 LDX #RWBUF+96 skip top data0622 637F 7F 6027 CLR WK2 counter0623 6382 A6 84 DSPFL1 LDA ,X 0624 6384 27 6D BEQ DSPEND 0625 6386 81 E5 CMPA #$E5 delete mark?0626 6388 26 05 BNE DSPFL2 0627 638A 30 88 20 LEAX 32,X 0628 638D 20 F3 BRA DSPFL1 0629 0630 638F 7C 6027 DSPFL2 INC WK2 0631 6392 B6 6027 LDA WK2 0632 6395 17 0251 LBSR DSPBIN disp counter0633 6398 C6 08 LDB #8 0634 639A A6 80 DSPFL3 LDA ,X+ 0635 639C BD FBBB JSR OUTCHA 0636 639F 5A DECB 0637 63A0 26 F8 BNE DSPFL3 0638 63A2 86 2E LDA #'. 0639 63A4 BD FBBB JSR OUTCHA 0640 63A7 C6 03 LDB #3 0641 63A9 A6 80 DSPFL4 LDA ,X+ 0642 63AB BD FBBB JSR OUTCHA 0643 63AE 5A DECB 0644 63AF 26 F8 BNE DSPFL4 0645 63B1 86 20 LDA #' 0646 63B3 BD FBBB JSR OUTCHA 0647 63B6 BD FBBB JSR OUTCHA 0648 0649 *get FILE time data0650 63B9 30 07 LEAX 7,X 0651 63BB EC 81 LDD ,X++ 0652 63BD FD 6025 STD WK1 0653 0654 *get CLUSTER(H) data0655 63C0 EC 81 LDD ,X++ 0656 63C2 1E 89 EXG A,B 0657 63C4 FD 6021 STD CLSTH 0658 63C7 30 04 LEAX 4,X 0659 63C9 EC 81 LDD ,X++ 0660 63CB 1E 89 EXG A,B 0661 63CD FD 6023 STD CLSTL 0662 0663 *get FILE size data0664 63D0 108E 6021 LDY #WFSIZ+4 0665 63D4 C6 04 LDB #4 0666 63D6 A6 80 DSPC1 LDA ,X+ 0667 63D8 A7 A2 STA ,-Y 0668 63DA 5A DECB 0669 63DB 26 F9 BNE DSPC1 0670 0671 *disp FILE size0672 63DD 86 20 LDA #' 0673 63DF BD FBBB JSR OUTCHA 0674 63E2 17 0353 LBSR DSPSIZ disp FILE size0675 0676 0677 *disp FILE time0678 63E5 FC 6025 LDD WK1 0679 63E8 17 02EC LBSR DSPYMD disp MM-DD-YY0680 0681 *disp CLUSTER(H,L)0682 63EB 17 03A0 LBSR DSPCLS 0683 0684 63EE BD 6612 JSR CRLF 0685 63F1 20 8F BRA DSPFL1 0686 * 0687 63F3 39 DSPEND RTS 0688 0689 ****************************************0690 * Load FILE0691 ****************************************0692 63F4 LDFILE EQU * 0693 63F4 17 FF77 LBSR DSPDIR 0694 63F7 8E 6942 LDX #MSINFL 0695 63FA BD 66C7 JSR PSTRNG 0696 63FD BD FBB8 JSR INCHA file no0697 6400 80 30 SUBA #$30 to binary0698 0699 6402 8E 6E60 LDX #RWBUF+96 skip top data0700 6405 1F 89 TFR A,B 0701 0702 6407 A6 84 LDLOP LDA ,X 0703 6409 81 E5 CMPA #$E5 delete mark?0704 640B 26 05 BNE LD1 0705 640D 30 88 20 LEAX 32,X skip0706 6410 20 F5 BRA LDLOP 0707 6412 5A LD1 DECB 0708 6413 27 05 BEQ LD2 0709 6415 30 88 20 LEAX 32,X 0710 6418 20 ED BRA LDLOP 0711 *hit file, get cluster no0712 641A EC 88 14 LD2 LDD $14,X 0713 641D 1E 89 EXG A,B 0714 641F FD 6021 STD CLSTH 0715 6422 EC 88 1A LDD $1A,X 0716 6425 1E 89 EXG A,B 0717 6427 FD 6023 STD CLSTL 0718 *get sct no0719 642A C0 02 SUBB #2 sub top cluseter no0720 642C 7D 6008 TST SDHC SD:0,SDHC:10721 642F 27 01 BEQ LD3 0722 6431 5A DECB 0723 0724 6432 34 04 LD3 PSHS B 0725 6434 8E 6015 LDX #SCTCLT 0726 6437 108E 6025 LDY #WK1 0727 643B C6 04 LDB #4 0728 643D A6 80 LD4 LDA ,X+ 0729 643F A7 A0 STA ,Y+ 0730 6441 5A DECB 0731 6442 26 F9 BNE LD4 0732 6444 35 04 PULS B 0733 0734 6446 8E 6025 LDX #WK1 0735 6449 A6 03 LD5 LDA 3,X 0736 644B 8B 40 ADDA #$40 0737 644D A7 03 STA 3,X 0738 644F 24 06 BCC LD51 0739 6451 A6 02 LDA 2,X 0740 6453 8B 01 ADDA #1 0741 6455 A7 02 STA 2,X 0742 6457 24 06 LD51 BCC LD52 0743 6459 A6 01 LDA 1,X 0744 645B 8B 01 ADDA #1 0745 645D A7 01 STA 1,X 0746 645F 24 06 LD52 BCC LD53 0747 6461 A6 84 LDA ,X 0748 6463 8B 01 ADDA #1 0749 6465 A7 84 STA ,X 0750 6467 5A LD53 DECB 0751 6468 26 DF BNE LD5 0752 0753 646A 8E 6025 LDX #WK1 0754 646D 108E 6003 LDY #SCTN0 0755 6471 C6 04 LDB #4 0756 6473 A6 80 LD6 LDA ,X+ 0757 6475 A7 A0 STA ,Y+ 0758 6477 5A DECB 0759 6478 26 F9 BNE LD6 0760 647A 17 0127 LBSR SETSCT 0761 647D 17 008D LBSR RD1SCT read 1 sct0762 0763 * LDX #SCTCLT0764 * LBSR SETSNO0765 * LBSR RD1SCT read 1 sct0766 * 0767 **disp CLUSTER#20768 6480 BD 6612 JSR CRLF 0769 6483 17 00C2 LBSR DSPBUF 0770 6486 BD 6612 JSR CRLF 0771 6489 39 RTS 0772 0773 ****************************************0774 * WRITE ROUTINE0775 * use CMD240776 * set sctno to $6005,60060777 * write data from $6A00-6BFF0778 ****************************************0779 648A SDWRT EQU * 0780 648A 8E 689D LDX #MSWROK 0781 648D 17 0237 LBSR PSTRNG 0782 6490 BD FBB8 JSR INCHA 0783 6493 84 DF ANDA #$DF 0784 6495 81 59 CMPA #'Y 0785 6497 27 01 BEQ SDWR1 0786 6499 39 RTS 0787 649A BD 6612 SDWR1 JSR CRLF 0788 649D 17 00FC LBSR INSCT *input SCT No0789 *copy sct no to cmd param0790 64A0 8E 6003 LDX #SCTN0 0791 64A3 108E 67C6 LDY #CMD24+1 0792 64A7 C6 04 LDB #4 0793 64A9 A6 80 CPY2 LDA ,X+ 0794 64AB A7 A0 STA ,Y+ 0795 64AD 5A DECB 0796 64AE 26 F9 BNE CPY2 0797 *send cmd0798 64B0 17 0124 LBSR SETCKL 0799 64B3 C6 06 LDB #6 0800 64B5 8E 67C5 LDX #CMD24 0801 64B8 A6 80 SDW1 LDA ,X+ 0802 64BA 17 012C LBSR DSPBIN disp response0803 64BD 17 00A6 LBSR SNDDAT 0804 64C0 5A DECB 0805 64C1 26 F5 BNE SDW1 0806 *get cmd response0807 64C3 SDW2 0808 64C3 17 00BC LBSR GETDAT 0809 64C6 B6 6007 LDA RESDAT 0810 64C9 17 011D LBSR DSPBIN disp response0811 64CC 81 00 CMPA #$00 0812 64CE 26 F3 BNE SDW2 0813 *1byte skip0814 64D0 86 FF LDA #$FF 0815 64D2 17 0091 LBSR SNDDAT 1byte skip0816 64D5 BD 6612 JSR CRLF 0817 0818 *send data packet0819 64D8 8E 6E00 LDX #RWBUF --temp buf0820 64DB 108E 0200 LDY #512 0821 *send data token0822 64DF 86 FE LDA #$FE 0823 64E1 17 0082 LBSR SNDDAT data token0824 64E4 A6 80 SNDDT1 LDA ,X+ 0825 64E6 8D 7E BSR SNDDAT 0826 64E8 31 3F LEAY -1,Y 0827 64EA 26 F8 BNE SNDDT1 0828 0829 64EC 86 FF LDA #$FF 0830 64EE 8D 76 BSR SNDDAT crcH0831 64F0 8D 74 BSR SNDDAT crcL0832 *get data response0833 64F2 CKRS 0834 64F2 17 008D LBSR GETDAT 0835 64F5 B6 6007 LDA RESDAT 0836 64F8 17 00EE LBSR DSPBIN disp response0837 64FB 81 E5 CMPA #$E5 data response?0838 64FD 26 F3 BNE CKRS 0839 *wait until busy0840 64FF BUSY 0841 64FF 17 0080 LBSR GETDAT 0842 6502 B6 6007 LDA RESDAT 0843 6505 17 00E1 LBSR DSPBIN disp response0844 6508 81 FF CMPA #$FF 0845 650A 26 F3 BNE BUSY 0846 650C 39 RTS 0847 0848 *------------------------------0849 *read 1 sct0850 *------------------------------0851 650D RD1SCT EQU * 0852 *copy sct no to cmd param0853 650D 8E 6003 LDX #SCTN0 0854 6510 108E 67C0 LDY #CMD17+1 0855 6514 C6 04 LDB #4 0856 6516 A6 80 CPY1 LDA ,X+ 0857 6518 A7 A0 STA ,Y+ 0858 651A 5A DECB 0859 651B 26 F9 BNE CPY1 0860 *send cmd0861 651D 17 00B7 LBSR SETCKL 0862 6520 C6 06 LDB #6 0863 6522 8E 67BF LDX #CMD17 0864 6525 A6 80 RD1 LDA ,X+ 0865 6527 8D 3D BSR SNDDAT 0866 6529 5A DECB 0867 652A 26 F9 BNE RD1 0868 *get response0869 652C RD2 0870 652C 8D 54 BSR GETDAT 0871 652E B6 6007 LDA RESDAT 0872 6531 81 FE CMPA #$FE token?0873 6533 26 F7 BNE RD2 0874 0875 *get data0876 * JSR CRLF0877 6535 8E 6E00 LDX #RWBUF --temp buf0878 6538 108E 0200 LDY #512 0879 653C RD3 0880 653C 8D 44 BSR GETDAT 0881 653E B6 6007 LDA RESDAT 0882 6541 A7 80 STA ,X+ save buf0883 6543 31 3F LEAY -1,Y 0884 6545 26 F5 BNE RD3 0885 6547 39 RTS 0886 0887 *------------------------------0888 *disp data0889 6548 DSPBUF EQU * 0890 6548 BD 6612 JSR CRLF 0891 654B 8E 6E00 LDX #RWBUF --temp buf0892 654E 108E 0200 LDY #512 0893 6552 C6 20 DSPB1 LDB #32 0894 6554 DSPB2 0895 6554 A6 80 LDA ,X+ save buf0896 6556 17 0090 LBSR DSPBIN disp data0897 6559 31 3F LEAY -1,Y 0898 655B 27 08 BEQ DSPB3 0899 655D 5A DECB 0900 655E 26 F4 BNE DSPB2 0901 6560 BD 6612 JSR CRLF 0902 6563 20 ED BRA DSPB1 0903 6565 39 DSPB3 RTS 0904 0905 *------------------------------0906 *send data0907 6566 SNDDAT EQU * 0908 6566 34 06 PSHS A,B 0909 6568 7F 6007 CLR RESDAT 0910 656B C6 08 LDB #8 0911 656D 34 02 SNDD1 PSHS A 0912 656F 84 FC ANDA #$FC 0913 6571 8A 02 ORA #$02 miso:b1=H(for PIA),cs:b0=L0914 6573 B7 FD9E STA PBDAT send data0915 6576 8D 5F BSR SETCKL 0916 6578 35 02 PULS A 0917 657A 48 LSLA 0918 657B 8D 63 BSR SETCKH 0919 657D 5A DECB 0920 657E 26 ED BNE SNDD1 0921 6580 35 86 PULS A,B,PC 0922 0923 *get data0924 6582 GETDAT EQU * 0925 6582 34 06 PSHS A,B 0926 6584 C6 08 LDB #8 0927 6586 8D 4F GETD1 BSR SETCKL 0928 6588 12 NOP 0929 6589 12 NOP 0930 658A 12 NOP 0931 658B 8D 53 BSR SETCKH 0932 658D B6 FD9E LDA PBDAT get response0933 6590 44 LSRA 0934 6591 44 LSRA b1--C0935 6592 79 6007 ROL RESDAT C--b00936 6595 5A DECB 0937 6596 26 EE BNE GETD1 0938 6598 8D 3D BSR SETCKL 0939 659A 35 86 PULS A,B,PC 0940 *0941 *------------------------------0942 *input SCT No0943 659C INSCT EQU * 0944 659C 8E 6895 LDX #MSSCT 0945 659F 17 0125 LBSR PSTRNG 0946 65A2 8D 79 BSR GET8CH get 8chr, convert 4bin0947 0948 65A4 SETSCT EQU * 0949 65A4 7D 6008 TST SDHC 0950 65A7 26 1D BNE CALCHC 0951 *SD card0952 65A9 C6 03 LDB #3 0953 65AB 8E 6004 LDX #SCTN1 0954 65AE 108E 6003 LDY #SCTN0 0955 65B2 A6 80 SFT1 LDA ,X+ 0956 65B4 A7 A0 STA ,Y+ 0957 65B6 5A DECB 0958 65B7 26 F9 BNE SFT1 0959 65B9 7F 6006 CLR SCTN3 0960 *calc top adrs of sct0961 65BC CALCSD EQU * 0962 65BC 78 6006 LSL SCTN3 0963 65BF 79 6005 ROL SCTN2 0964 65C2 79 6004 ROL SCTN1 0965 65C5 39 RTS 0966 0967 *SDHC card0968 *calc top adrs of sct0969 65C6 CALCHC EQU * 0970 65C6 8E 6003 LDX #SCTN0 0971 65C9 108E 67C0 LDY #CMD17+1 0972 65CD C6 04 LDB #4 0973 65CF A6 80 CALCH1 LDA ,X+ 0974 65D1 A7 A0 STA ,Y+ 0975 65D3 5A DECB 0976 65D4 26 F9 BNE CALCH1 0977 65D6 39 RTS 0978 0979 *0980 *set sck:L0981 65D7 SETCKL EQU * 0982 65D7 34 02 PSHS A 0983 65D9 86 34 LDA #$34 ca2=L0984 65DB B7 FD9F STA PBCTL 0985 65DE 35 82 PULS A,PC 0986 0987 *set sck:H0988 65E0 SETCKH EQU * 0989 65E0 34 02 PSHS A 0990 65E2 86 3C LDA #$3C ca2=H0991 65E4 B7 FD9F STA PBCTL 0992 65E7 35 82 PULS A,PC 0993 0994 *binary(A)--ascii(A)(B)0995 65E9 DSPBIN EQU * 0996 65E9 34 06 PSHS A,B 0997 65EB 1F 89 TFR A,B 0998 65ED 44 LSRA 0999 65EE 44 LSRA 1000 65EF 44 LSRA 1001 65F0 44 LSRA 1002 65F1 8A 30 ORA #$30 1003 65F3 C4 0F ANDB #$0F 1004 65F5 CA 30 ORB #$30 1005 65F7 81 39 CMPA #$39 1006 65F9 23 02 BLS BI21 1007 65FB 8B 07 ADDA #$07 1008 65FD C1 39 BI21 CMPB #$39 1009 65FF 23 02 BLS BI22 1010 6601 CB 07 ADDB #$07 1011 6603 BD FBBB BI22 JSR OUTCHA 1012 6606 1F 98 TFR B,A 1013 6608 BD FBBB JSR OUTCHA 1014 660B 86 20 LDA #$20 1015 660D BD FBBB JSR OUTCHA 1016 6610 35 86 PULS A,B,PC 1017 1018 *crlf1019 6612 CRLF EQU * 1020 6612 86 0D LDA #$0D 1021 6614 BD FBBB JSR OUTCHA 1022 6617 86 0A LDA #$0A 1023 6619 BD FBBB JSR OUTCHA 1024 661C 39 RTS 1025 1026 *1027 661D GET8CH EQU * 1028 *input chr1029 661D 8E 6956 LDX #INPBUF 1030 6620 5F CLRB 1031 6621 BD FBB8 CLOP JSR INCHA 1032 6624 81 0D CMPA #$0D 1033 6626 27 07 BEQ INEND 1034 6628 A7 85 STA B,X 1035 662A 5C INCB 1036 662B C1 08 CMPB #8 1037 662D 25 F2 BLO CLOP 1038 1039 662F INEND 1040 *shift1041 662F 5D TSTB 1042 6630 27 11 BEQ CL1 1043 6632 8E 6956 LDX #INPBUF 1044 6635 3A ABX 1045 6636 108E 695E LDY #INPBUF+8 1046 663A 34 04 PSHS B 1047 663C A6 82 SFLOP LDA ,-X 1048 663E A7 A2 STA ,-Y 1049 6640 5A DECB 1050 6641 26 F9 BNE SFLOP 1051 *clr1052 6643 C6 08 CL1 LDB #8 1053 6645 E0 E0 SUBB ,S+ 1054 6647 27 0A BEQ CLEND 1055 6649 8E 6956 LDX #INPBUF 1056 664C 86 30 LDA #'0 1057 664E A7 80 CLLOP STA ,X+ 1058 6650 5A DECB 1059 6651 26 FB BNE CLLOP 1060 6653 CLEND 1061 1062 *convert to bin1063 6653 C6 04 LDB #4 1064 6655 8E 6956 LDX #INPBUF 1065 6658 108E 6003 LDY #SCTN0 1066 665C CVT1 1067 665C A6 80 LDA ,X+ 1068 665E 8D 1E BSR CVBIN 1069 6660 25 16 BCS EREND1 1070 6662 48 LSLA 1071 6663 48 LSLA 1072 6664 48 LSLA 1073 6665 48 LSLA 1074 6666 34 02 PSHS A 1075 6668 A6 80 LDA ,X+ 1076 666A 8D 12 BSR CVBIN 1077 666C 25 08 BCS EREND0 1078 666E AB E0 ADDA ,S+ 1079 6670 A7 A0 STA ,Y+ 1080 6672 5A DECB 1081 6673 26 E7 BNE CVT1 1082 6675 39 RTS 1083 1084 6676 35 02 EREND0 PULS A 1085 6678 8E 68F6 EREND1 LDX #MSERR 1086 667B 8D 4A BSR PSTRNG 1087 667D 39 EEND RTS 1088 1089 *--------------------1090 *ascii -- bin1091 667E CVBIN EQU * 1092 667E 80 30 SUBA #'0 1093 6680 2B 11 BMI CVERR 1094 6682 81 09 CMPA #9 1095 6684 23 0A BLS CVBEND 1096 6686 81 11 CMPA #$11 1097 6688 25 09 BLO CVERR 1098 668A 81 16 CMPA #$16 1099 668C 22 05 BHI CVERR 1100 668E 80 07 SUBA #7 1101 6690 CVBEND 1102 6690 1C FE ANDCC #$FE reset C1103 6692 39 RTS 1104 6693 1A 01 CVERR ORCC #$01 set C1105 6695 39 RTS 1106 1107 *--------------------1108 *add 2bytes to 4bytes1109 * X,X+1,X+2,X+3 + Y,Y+11110 * data X is big endian1111 * data Y is little endian1112 6696 ADD42 EQU * 1113 6696 34 36 PSHS A,B,X,Y 1114 6698 32 7C LEAS -4,S 1115 669A C6 04 LDB #4 1116 669C A6 80 AD1 LDA ,X+ 1117 669E A7 E0 STA ,S+ 1118 66A0 5A DECB 1119 66A1 26 F9 BNE AD1 1120 1121 *add (lower)1122 66A3 A6 A0 LDA ,Y+ 1123 66A5 AB E2 ADDA ,-S 1124 66A7 A7 E4 STA ,S 1125 66A9 24 02 BCC AD2 1126 66AB 6C 7F INC -1,S 1127 *add (upper)1128 66AD A6 A4 AD2 LDA ,Y 1129 66AF AB E2 ADDA ,-S 1130 66B1 A7 E4 STA ,S 1131 66B3 24 02 BCC AD3 1132 66B5 6C 7F INC -1,S 1133 66B7 30 1C AD3 LEAX -4,X 1134 66B9 32 7E LEAS -2,S 1135 66BB C6 04 LDB #4 1136 66BD A6 E0 AD4 LDA ,S+ 1137 66BF A7 80 STA ,X+ 1138 66C1 5A DECB 1139 66C2 26 F9 BNE AD4 1140 66C4 35 36 PULS A,B,X,Y 1141 66C6 39 RTS 1142 1143 *--------------------1144 * pstring1145 66C7 PSTRNG EQU * 1146 66C7 34 02 PSHS A 1147 66C9 A6 80 PSLOP LDA ,X+ 1148 66CB 81 04 CMPA #4 1149 66CD 27 05 BEQ PSEND 1150 66CF BD FBBB JSR OUTCHA 1151 66D2 20 F5 BRA PSLOP 1152 66D4 35 02 PSEND PULS A 1153 66D6 39 RTS 1154 1155 *--------------------1156 *disp MM-DD-YY1157 *indata A(Low),B(High)1158 66D7 DSPYMD EQU * 1159 66D7 1E 89 EXG A,B 1160 66D9 34 10 PSHS X 1161 66DB 34 06 PSHS A,B 1162 66DD C4 E0 ANDB #$E0 1163 66DF 54 LSRB 1164 66E0 54 LSRB 1165 66E1 54 LSRB 1166 66E2 54 LSRB 1167 66E3 54 LSRB 1168 66E4 47 ASRA 1169 66E5 24 02 BCC DYMD1 1170 66E7 CB 08 ADDB #8 1171 66E9 F7 601A DYMD1 STB WMDY MM1172 66EC 35 06 PULS A,B 1173 66EE 34 04 PSHS B 1174 66F0 C4 1F ANDB #$1F 1175 66F2 F7 601B STB WMDY+1 DD1176 66F5 35 04 PULS B 1177 1178 66F7 44 LSRA 1179 * ASLB1180 * BCC DYMD21181 * INCA1182 66F8 DYMD2 1183 66F8 80 14 SUBA #20 A+1980-20001184 66FA B7 601C STA WMDY+2 YY1185 1186 *disp MM-DD-YY1187 66FD 86 20 LDA #' 1188 66FF BD FBBB JSR OUTCHA 1189 6702 8E 601A LDX #WMDY 1190 6705 A6 80 LDA ,X+ 1191 6707 8D 14 BSR DB2ASC MM1192 6709 86 2D LDA #'- 1193 670B BD FBBB JSR OUTCHA 1194 670E A6 80 LDA ,X+ 1195 6710 8D 0B BSR DB2ASC DD1196 6712 86 2D LDA #'- 1197 6714 BD FBBB JSR OUTCHA 1198 6717 A6 80 LDA ,X+ 1199 6719 8D 02 BSR DB2ASC YY1200 671B 35 90 PULS X,PC 1201 1202 *1203 *----------1204 *(A:BIN)--ASCII1205 671D DB2ASC EQU * 1206 671D 34 06 PSHS A,B 1207 671F 1F 89 TFR A,B 1208 6721 86 30 LDA #$30 1209 6723 C1 0A DBLOP CMPB #10 1210 6725 25 05 BLO DB2 1211 6727 C0 0A SUBB #10 1212 6729 4C INCA 1213 672A 20 F7 BRA DBLOP 1214 672C BD FBBB DB2 JSR OUTCHA 1215 672F 1F 98 TFR B,A 1216 6731 8B 30 ADDA #$30 1217 6733 BD FBBB JSR OUTCHA 1218 6736 35 86 PULS A,B,PC 1219 1220 *disp FILE size1221 6738 DSPSIZ EQU * 1222 6738 34 10 PSHS X 1223 673A BE 601D LDX WFSIZ 1224 673D 27 12 BEQ DSS1 if 64k over?1225 673F 86 2D LDA #'- 1226 6741 BD FBBB JSR OUTCHA 1227 6744 BD FBBB JSR OUTCHA 1228 6747 BD FBBB JSR OUTCHA 1229 674A 86 6B LDA #'k 1230 674C BD FBBB JSR OUTCHA 1231 674F 20 3B BRA DSEND 1232 6751 DSS1 1233 6751 B6 601F LDA WFSIZ+2 1234 6754 81 64 CMPA #100 1235 6756 23 12 BLS DSS13 1236 6758 1F 89 TFR A,B 1237 675A 86 30 LDA #$30 1238 675C C1 64 DSLOP1 CMPB #100 1239 675E 25 05 BLO DSS12 1240 6760 C0 64 SUBB #100 1241 6762 4C INCA 1242 6763 20 F7 BRA DSLOP1 1243 6765 BD FBBB DSS12 JSR OUTCHA 1244 6768 20 05 BRA DSS14 1245 1246 676A 86 20 DSS13 LDA #' 1247 676C BD FBBB JSR OUTCHA 1248 676F 86 30 DSS14 LDA #$30 1249 6771 C1 0A DSLOP2 CMPB #10 1250 6773 25 05 BLO DSS2 1251 6775 C0 0A SUBB #10 1252 6777 4C INCA 1253 6778 20 F7 BRA DSLOP2 1254 677A 81 30 DSS2 CMPA #$30 1255 677C 26 01 BNE DSS3 1256 677E 4C INCA 1257 677F BD FBBB DSS3 JSR OUTCHA 1258 6782 86 6B LDA #'k 1259 6784 BD FBBB JSR OUTCHA 1260 6787 86 20 LDA #' 1261 6789 BD FBBB JSR OUTCHA 1262 678C 35 90 DSEND PULS X,PC 1263 1264 *----------1265 678E DSPCLS EQU * 1266 678E 34 10 PSHS X 1267 6790 86 20 LDA #' 1268 6792 BD FBBB JSR OUTCHA 1269 6795 8E 6021 LDX #CLSTH 1270 6798 C6 02 LDB #2 1271 679A A6 80 DCLOP1 LDA ,X+ 1272 679C 17 FF7E LBSR DB2ASC 1273 679F 5A DECB 1274 67A0 26 F8 BNE DCLOP1 1275 67A2 86 20 LDA #' 1276 67A4 BD FBBB JSR OUTCHA 1277 67A7 C6 02 LDB #2 1278 67A9 A6 80 DCLOP2 LDA ,X+ 1279 67AB 17 FF6F LBSR DB2ASC 1280 67AE 5A DECB 1281 67AF 26 F8 BNE DCLOP2 1282 67B1 35 90 PULS X,PC 1283 1284 **************************************************1285 *========== parameter ==========1286 67B3 40 CMD0 FCB $40,$00,$00,$00,$00,$95 '@ 1287 67B9 41 CMD1 FCB $41,$00,$00,$00,$00,$FF 'A 1288 67BF 51 CMD17 FCB $51,$00,$00,$00,$00,$FF 'Q 1289 67C5 58 CMD24 FCB $58,$00,$00,$00,$00,$FF 'X 1290 67CB 48 CMD8 FCB $48,$00,$00,$01,$AA,$87 'H 1291 67D1 7A CMD58 FCB $7A,$00,$00,$00,$00,$FF 'z 1292 67D7 77 CMD55 FCB $77,$00,$00,$00,$00,$FF 'w 1293 67DD 69 ACMD41 FCB $69,$40,$FF,$80,$00,$FF 'i 1294 67E3 49 CMD9 FCB $49,$00,$00,$00,$00,$FF 'I 1295 *1296 67E9 43 MCMD0 FCC /CMD0/,$D,$A 1297 67EF 04 FCB 4 1298 67F0 43 MCMD8 FCC /CMD8/,$D,$A 1299 67F6 04 FCB 4 1300 67F7 43 MCMD58 FCC /CMD58/,$D,$A 1301 67FE 04 FCB 4 1302 67FF 43 MCMD55 FCC /CMD55/,$D,$A 1303 6806 04 FCB 4 1304 6807 41 MCMD41 FCC /ACMD41/,$D,$A 1305 680F 04 FCB 4 1306 6810 43 MCMD9 FCC /CMD9/,$D,$A 1307 6816 04 FCB 4 1308 *1309 6817 0D MSMENU1 FCC $0D,$0A,/1:Read Sct, 2:Write Sct, 3:Get SD data, 4:SD Init, 5:Disp MBR, / 1310 6858 04 FCB 4 1311 6859 0D MSMENU2 FCC $0D,$0A,/6:Disp BPB, 7:Disp FAT, 8:Disp DIR, 9:Load FILE, 0:End : / 1312 6894 04 FCB 4 1313 6895 53 MSSCT FCC /SctNo: / 1314 689C 04 FCB 4 1315 689D 57 MSWROK FCC /Write OK?: / 1316 68A8 04 FCB 4 1317 68A9 0D MSSD0 FCC $0D,$0A,/SD Card/,$0D,$0A 1318 68B4 04 FCB 4 1319 68B5 0D MSSD1 FCC $0D,$0A,/SDHC Card/,$0D,$0A 1320 68C2 04 FCB 4 1321 68C3 0D MSINIT FCC $0D,$0A,$0D,$0A,/SD Card initializing.../ 1322 68DE 04 FCB 4 1323 68DF 53 MERR FCC /SD Initialize error!/,$0D,$0A 1324 68F5 04 FCB 4 1325 68F6 49 MSERR FCC /Input error!/,$0D,$0A 1326 6904 04 FCB 4 1327 6905 0D MSOFS FCC $0D,$0A,/Sector no is:/,$0D,$0A 1328 6916 04 FCB 4 1329 6917 0D MSBPB FCC $0D,$0A,/ BPB: / 1330 691F 04 FCB 4 1331 6920 0D MSFAT FCC $0D,$0A,/ FAT: / 1332 6928 04 FCB 4 1333 6929 0D MSDIR FCC $0D,$0A,/ DIR: / 1334 6931 04 FCB 4 1335 6932 0D MSCL2 FCC $0D,$0A,/ 1stCLUSTER: / 1336 6941 04 FCB 4 1337 6942 0D MSINFL FCC $0D,$0A,/Select File No : / 1338 6955 04 FCB 4 1339 1340 **************************************************1341 6956 FF INPBUF RMB 8 1342 1343 END START 0 error(s), 0 warning(s) is detected.Label addressACMD41 67DD AD1 669C AD2 66AD AD3 66B7 AD4 66BDADD42 6696 ASC411 6169 ASCMD41 615C BI21 65FD BI22 6603BUSY 64FF CALCH1 65CF CALCHC 65C6 CALCSD 65BC CKRS 64F2CL1 6643 CLEND 6653 CLLOP 664E CLOP 6621 CLSTH 6021CLSTL 6023 CMD0 67B3 CMD1 67B9 CMD17 67BF CMD24 67C5CMD55 67D7 CMD58 67D1 CMD8 67CB CMD9 67E3 CPY1 6516CPY2 64A9 CRLF 6612 CVBEND 6690 CVBIN 667E CVERR 6693CVT1 665C DB2 672C DB2ASC 671D DBLOP 6723 DCLOP1 679ADCLOP2 67A9 DSEND 678C DSLOP1 675C DSLOP2 6771 DSPB1 6552DSPB2 6554 DSPB3 6565 DSPBIN 65E9 DSPBPB 634A DSPBUF 6548DSPC1 63D6 DSPCLS 678E DSPDIR 636E DSPEND 63F3 DSPFAT 635CDSPFL1 6382 DSPFL2 638F DSPFL3 639A DSPFL4 63A9 DSPMBR 62F0DSPSIZ 6738 DSPYMD 66D7 DSS1 6751 DSS12 6765 DSS13 676ADSS14 676F DSS2 677A DSS3 677F DYMD1 66E9 DYMD2 66F8EEND 667D EREND0 6676 EREND1 6678 GET1 62FB GET2 62FDGET8CH 661D GETBPB 6331 GETD1 6586 GETDAT 6582 GETMBR 630EGETSD 624F GPLOP 6314 GPLOP2 633C GR00 60D4 GR2580 6196GR2581 61AD GR2582 61AF GR410 6171 GR550 6152 GR580 6128GR581 6132 GR582 6134 GR80 60F8 GR81 610A GR90 6262GR91 6271 ILOP1 61D2 ILOP2 61E5 ILOP3 61FF ILOP4 622DINCHA FBB8 INEND 662F INIT 604D INPBUF 6956 INSCT 659CISTT 60BA LD1 6412 LD2 641A LD3 6432 LD4 643DLD5 6449 LD51 6457 LD52 645F LD53 6467 LD6 6473LDFILE 63F4 LDLOP 6407 MAIN 6029 MCMD0 67E9 MCMD41 6807MCMD55 67FF MCMD58 67F7 MCMD8 67F0 MCMD9 6810 MEN1 6066MEN2 606E MEN3 6076 MEN4 607E MEN5 6085 MEN6 608DMEN7 6095 MEN8 609D MEN9 60A5 MENU 604F MERR 68DFMSBPB 6917 MSCL2 6932 MSDIR 6929 MSERR 68F6 MSFAT 6920MSINFL 6942 MSINIT 68C3 MSMENU1 6817 MSMENU2 6859 MSOFS 6905MSSCT 6895 MSSD0 68A9 MSSD1 68B5 MSWROK 689D OKEND 62DCOUTCHA FBBB PBCTL FD9F PBDAT FD9E PSEND 66D4 PSLOP 66C9PSTRNG 66C7 RD1 6525 RD1SCT 650D RD2 652C RD3 653CRESDAT 6007 RPT41 613D RWBUF 6E00 SC01 60CB SC2581 618ESC551 614A SC581 6120 SC80 60F0 SC91 625A SCLOP1 6291SCLOP2 62A4 SCLOP3 62B7 SCLOP4 62CA SCMD0 60C3 SCMD258 6181SCMD55 613D SCMD58 6113 SCMD8 60E3 SCTBPB 6009 SCTCLT 6015SCTDIR 6011 SCTFAT 600D SCTN0 6003 SCTN1 6004 SCTN2 6005SCTN3 6006 SCTPCL 6019 SD1 61C3 SDERR 62D6 SDHC 6008SDINIT 60AD SDRD 62DD SDW1 64B8 SDW2 64C3 SDWR1 649ASDWRT 648A SELOP 6326 SETCKH 65E0 SETCKL 65D7 SETSCT 65A4SETSNO 6320 SFLOP 663C SFT1 65B2 SKP1 6211 SKP2 6246SNDD1 656D SNDDAT 6566 SNDDT1 64E4 START 6000 STTADR 6000VN 6002 WFSIZ 601D WK1 6025 WK2 6027 WMDY 601A |
リストが長いので今回は縦スクロール付きにしてみました。「全選択」ボタンがありませんが、リスト中でダブルクリックしておいてCtrl-Cでコピーできます。
0 件のコメント:
コメントを投稿