SDカード中のBASICプログラムファイルと機械語ファイルを読み込んで実行することができました
SDカードへの書き込みはまだ実現していませんが、とりあえず、読み込みはできるようになりました。
F-BASICのコマンド（FILES, LOAD, LOADM）でフロッピィディスクと同様にSDカードを扱えるのが理想なのでしょうが、１セクタのサイズが512バイトであることもあり実現するのは私には難しいようです。
とりあえず、SDカードを用いてWindowsPCからFM-7へファイルを移動させるツールとして使用する前提で、常駐ソフトではなくその都度起動してSDカードを読むという形の専用プログラムにしました。
使用法のイメージは下図のようです。
 |
| 使用イメージ |
通常使用しているFT245高速通信カードでは、ディスクイメージを丸ごとコピーするのですが、このSDカード使用の場合は特定のファイルを選択してFM-7に移すことができます。
プログラムの起動画面です
 |
| 起動画面 |
メニュー項目は
１．指定したセクタのリード
２．SDカードのデータ取得・表示
３．SDカードの初期化
４．MBR（Master Boot Record）内容の表示
５．BPB（Boot Parameter Block）内容の表示
６．FAT（File Allocation Table）内容の表示
７．DIR（Directory）内容の表示
８．指定ファイルの読み込み
で、前回との違いは、
で、前回との違いは、
・セクタへの書き込みを省いた。
・ディレクトリの表示形式を変更したことと、全ページを表示できるようにした。
・ファイルの読み込みを画面表示ではなく、メモリに展開してF-BASICと連携した。
の３つです。
その様子を下に示します。
ファイルのロードは前回のような番号ではなく、ファイル名の入力で選択します。
 |
| ディレクトリ表示とファイルのロード |
 |
| ロードしたBASICファイルをリスト表示 |
ここには示しませんでしたが、機械語ファイルも指定したアドレスに読み込まれます。
現在までに実現できた機能をまとめると
１．SDカードとSDHCカードに対応している。
２．普通にWindows上でSDカードに書き込んだファイルが読み込める。
３．F-BASICのプログラムファイルと機械語ファイルが扱える。
制限事項は
１．FM-7で使用することを前提としているので、32KBを超えるような大きなファイルには対応していない。
２．ファイル名には拡張子をつけてはいけない。（拡張子はチェックしていない）
３．ファイル名に小文字は使えない。（大文字に変換されてしまう）
４．F-BASICのプログラムファイルは中間言語に変換されたもののみで、アスキーセーブされたファイルは扱えない。（テキストエリアに直接書き込んでいるため）
５．機械語ファイルはF-BASICのディスク保存形式であること。
制約事項も多々ありますが、とりあえず、Windows上に保存してあったBASICプログラムファイルや機械語ファイルを、SDカードを介してFM-7に持ち込むツールとして使用できるのではと考えています。
さらに実現したいこと
残る課題は、当然、FM-7上でSDカードにプログラムなどを書き込んで、それをWindows上で読み込むという機能を実現することです。これができれば完成といえます。
しかし、これはFATを書き換えるということになりますので、FMS（ファイルマネージメントシステム）が絡んできますし、プログラムサイズも既に3KB近くになっていますので、さらに大きくなるとどこに配置するかも問題になってきます。
以上、6809のアセンブラでSDカードからのファイルの読み込みまで実現できたという報告でした。なお、使用しているFM-7本体のルーチンはINCHA, OUTCHA, CSRONの３つのみです。
作成したプログラムを下に示しておきます。
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 1391 1392 1393 1394 1395 1396 1397 1398 1399 1400 1401 1402 1403 1404 1405 1406 1407 1408 1409 1410 1411 1412 1413 1414 1415 1416 1417 1418 1419 1420 1421 1422 1423 1424 1425 1426 1427 1428 1429 1430 1431 1432 1433 1434 1435 1436 1437 1438 1439 1440 1441 1442 1443 1444 1445 1446 1447 1448 1449 1450 1451 1452 1453 1454 1455 1456 1457 1458 1459 1460 1461 1462 1463 1464 1465 1466 1467 1468 1469 1470 1471 1472 1473 1474 1475 1476 1477 1478 1479 1480 1481 1482 1483 1484 1485 1486 1487 1488 1489 1490 1491 1492 1493 1494 1495 1496 1497 1498 1499 1500 1501 1502 1503 1504 1505 1506 1507 1508 1509 1510 1511 1512 1513 1514 1515 1516 1517 1518 1519 1520 1521 1522 1523 1524 1525 | 0001 *0002 * SDHC9.TXT0003 *0004 * SD Read/Write 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 <-- --="" 0014="" 10="" hv2="" io3="" lv2="" pa7=""> 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 <-- --="" 0025="" 20="" hv2="" lv2="" miso="" pb7=""> 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 $6D00 - 6EFF0035 *0036 * Load data to F-BASIC '2023.03.230037 * Add command '2023.03.140038 * Change use Port B '2023.03.070039 * Original version '2022.06.110040 * Copyright by Y.Yamamoto0041 *0042 6000 STTADR EQU $6000 0043 0044 FBB8 INCHA EQU $FBB8 0045 FBBB OUTCHA EQU $FBBB 0046 FBF7 CSRON EQU $FBF7 0047 0048 6D00 RWBUF EQU STTADR+$0D00 0049 0050 FD9E PBDAT EQU $FD9E 0051 FD9F PBCTL EQU PBDAT+1 0052 0033 BASADRP EQU $33 pointer of adrs for F-BASIC0053 2000 TXTADR EQU $2000 for TEXT0054 0055 6000 ORG STTADR 0056 0057 6000 20 58 START BRA MAIN 0058 6002 01 VN FCB 1 0059 6003 00 SCTN0 FCB 0 top adrs of sct0060 6004 00 SCTN1 FCB 0 0061 6005 00 SCTN2 FCB 0 0062 6006 00 SCTN3 FCB 0 0063 6007 00 RESDAT FCB 0 response data0064 6008 00 SDHC FCB 0 sd:0,sdhc:10065 0066 6009 0000 SCTBPB FDB 00 sct no of BPB(4bytes)0067 600B 0000 FDB 00 0068 600D 0000 SCTFAT FDB 00 sct no of FAT#1(4bytes)0069 600F 0000 FDB 00 0070 6011 0000 SCTDIR FDB 00 sct no of DIR(4bytes)0071 6013 0000 FDB 00 0072 6015 0000 SCTDSV FDB 00 save sct no of DIR0073 6017 0000 FDB 00 0074 6019 0000 SCTCLT FDB 00 sct no of top CLUSTER(4bytes)0075 601B 0000 FDB 00 if SD:#2, SDHC:#30076 601D 00 SCTPCL FCB 0 sct per cluster0077 601E FF DIRENT RMB 32 0078 603E FF WMDY RMB 3 0079 6041 FF WFSIZ RMB 4 0080 6045 FF FILSIZ RMB 2 0081 6047 0000 CLSTH FDB 00 0082 6049 0000 CLSTL FDB 00 0083 604B 00 CNT FCB 0 0084 604C 00 CNTSV FCB 0 0085 604D 00 MCFLG FCB 0 1:machine code, 0:else0086 604E 00 DPGFLG FCB 0 1:1st page of DIR, 0:else0087 604F FF FNAME RMB 9 0088 6058 0000 WK1 FDB 00 0089 0090 605A MAIN EQU * 0091 *=====reset pia=====0092 *portB:output0093 605A 86 30 LDA #$30 0094 605C B7 FD9F STA PBCTL select ddra, cb2:00095 605F 86 FD LDA #$FD pb0,7:out,pb1:in0096 6061 B7 FD9E STA PBDAT set output mode0097 6064 86 34 LDA #$34 0098 6066 B7 FD9F STA PBCTL select peripheral,cb2:00099 0100 *for pia exist check0101 6069 86 55 LDA #$55 test data0102 606B B7 FD9E STA PBDAT 0103 606E B6 FD9E LDA PBDAT 0104 6071 84 FD ANDA #$FD pb1=00105 6073 81 55 CMPA #$55 0106 6075 27 07 BEQ INIT 0107 6077 8E 6A30 LDX #MERR 0108 607A 17 075F LBSR PSTRNG 0109 607D 39 RTS return to BASIC0110 0111 607E INIT EQU * 0112 607E 8D 59 BSR SDINIT 0113 0114 ****************************************0115 * MAIN MENU0116 ****************************************0117 6080 MENU EQU * 0118 6080 8E 6976 LDX #MSMENU1 0119 6083 17 0756 LBSR PSTRNG 0120 6086 8E 69B6 LDX #MSMENU2 0121 6089 17 0750 LBSR PSTRNG 0122 608C 17 9B68 LBSR CSRON cursor on0123 0124 608F BD 690B JSR INOUTC 0125 6092 80 30 SUBA #$30 0126 6094 26 04 BNE MEN1 0?0127 6096 17 068E LBSR CRLF 0128 6099 39 RTS return to BASIC0129 0130 609A 4A MEN1 DECA 1?0131 609B 26 05 BNE MEN2 0132 609D 17 0279 LBSR SDRD 0133 60A0 20 DE BRA MENU 0134 60A2 4A MEN2 DECA 2?0135 60A3 26 05 BNE MEN3 0136 60A5 17 01E3 LBSR GETSD 0137 60A8 20 D6 BRA MENU 0138 60AA 4A MEN3 DECA 3?0139 60AB 26 04 BNE MEN4 0140 60AD 8D 2A BSR SDINIT 0141 60AF 20 CF BRA MENU 0142 60B1 4A MEN4 DECA 4?0143 60B2 26 05 BNE MEN5 0144 60B4 17 0275 LBSR DSPMBR 0145 60B7 20 C7 BRA MENU 0146 60B9 4A MEN5 DECA 5?0147 60BA 26 05 BNE MEN6 0148 60BC 17 02C7 LBSR DSPBPB 0149 60BF 20 BF BRA MENU 0150 60C1 4A MEN6 DECA 6?0151 60C2 26 05 BNE MEN7 0152 60C4 17 02D1 LBSR DSPFAT 0153 60C7 20 B7 BRA MENU 0154 60C9 4A MEN7 DECA 7?0155 60CA 26 05 BNE MEN8 0156 60CC 17 02DB LBSR DSPDIR 0157 60CF 20 AF BRA MENU 0158 60D1 4A MEN8 DECA 8?0159 60D2 26 AC BNE MENU 0160 60D4 17 0398 LBSR LDFILE 0161 60D7 20 A7 BRA MENU 0162 *0163 ****************************************0164 * SD Initialize routine0165 ****************************************0166 60D9 SDINIT EQU * 0167 *---------- start ----------0168 60D9 8E 6A14 LDX #MSINIT 0169 60DC 17 06FD LBSR PSTRNG 0170 * cs:1,di:1,sck>74ms0171 60DF 86 FF LDA #$FF mosi:b7=H,miso:b1=H(for PIA),cs:b0=H0172 60E1 B7 FD9E STA PBDAT 0173 60E4 C6 50 LDB #80 80times0174 60E6 17 0603 ISTT LBSR SETCKL 0175 60E9 17 0609 LBSR SETCKH 0176 60EC 5A DECB 0177 60ED 26 F7 BNE ISTT 0178 *0179 *---------- cmd 0 ----------0180 60EF SCMD0 EQU * 0181 * LDX #MCMD00182 * LBSR PSTRNG0183 0184 60EF 17 05FA LBSR SETCKL 0185 60F2 C6 06 LDB #6 0186 60F4 8E 6912 LDX #CMD0 0187 60F7 A6 80 SC01 LDA ,X+ 0188 60F9 17 057B LBSR SNDDAT 0189 60FC 5A DECB 0190 60FD 26 F8 BNE SC01 0191 *get response0192 60FF 5F CLRB 0193 6100 GR00 0194 6100 5A DECB 0195 6101 1027 020D LBEQ SDERR 0196 6105 17 058B LBSR GETDAT 0197 6108 B6 6007 LDA RESDAT 0198 * LBSR DSPBIN disp response0199 610B 81 01 CMPA #$01 0200 610D 26 F1 BNE GR00 0201 * LBSR CRLF0202 *0203 *---------- cmd 8 ----------0204 610F SCMD8 EQU * 0205 * LDX #MCMD80206 * LBSR PSTRNG0207 0208 610F 17 05DA LBSR SETCKL 0209 6112 86 FF LDA #$FF dummy cmd0210 6114 17 0560 LBSR SNDDAT 0211 6117 C6 06 LDB #6 0212 6119 8E 692A LDX #CMD8 0213 611C A6 80 SC80 LDA ,X+ 0214 611E 17 0556 LBSR SNDDAT 0215 6121 5A DECB 0216 6122 26 F8 BNE SC80 0217 *get response0218 6124 GR80 0219 6124 17 056C LBSR GETDAT 0220 6127 B6 6007 LDA RESDAT 0221 0222 612A 17 0566 LBSR GETDAT 0223 612D B6 6007 LDA RESDAT 0224 * LBSR DSPBIN disp response0225 6130 81 01 CMPA #$01 0226 6132 26 F0 BNE GR80 0227 6134 C6 04 LDB #4 0228 6136 17 055A GR81 LBSR GETDAT 0229 6139 B6 6007 LDA RESDAT 0230 * LBSR DSPBIN disp response0231 613C 5A DECB 0232 613D 26 F7 BNE GR81 0233 * LBSR CRLF0234 *0235 *---------- cmd 58 ----------0236 613F SCMD58 EQU * 0237 * LDX #MCMD580238 * LBSR PSTRNG0239 0240 613F 17 05AA LBSR SETCKL 0241 6142 86 FF LDA #$FF dummy cmd0242 6144 17 0530 LBSR SNDDAT 0243 6147 C6 06 LDB #6 0244 6149 8E 6930 LDX #CMD58 0245 614C A6 80 SC581 LDA ,X+ 0246 614E 17 0526 LBSR SNDDAT 0247 6151 5A DECB 0248 6152 26 F8 BNE SC581 0249 *get response0250 6154 GR580 0251 6154 17 053C LBSR GETDAT 0252 6157 B6 6007 LDA RESDAT 0253 * LBSR DSPBIN disp response0254 615A 81 01 CMPA #$01 0255 615C 26 F6 BNE GR580 0256 615E C6 04 GR581 LDB #4 0257 6160 17 0530 GR582 LBSR GETDAT 0258 6163 B6 6007 LDA RESDAT 0259 * LBSR DSPBIN disp response0260 6166 5A DECB 0261 6167 26 F7 BNE GR582 0262 6169 RPT41 EQU * 0263 *---------- cmd 55 ----------0264 6169 SCMD55 EQU * 0265 * LDX #MCMD550266 * LBSR PSTRNG0267 0268 6169 17 0580 LBSR SETCKL 0269 616C 86 FF LDA #$FF dummy cmd0270 616E 17 0506 LBSR SNDDAT 0271 6171 C6 06 LDB #6 0272 6173 8E 6936 LDX #CMD55 0273 6176 A6 80 SC551 LDA ,X+ 0274 6178 17 04FC LBSR SNDDAT 0275 617B 5A DECB 0276 617C 26 F8 BNE SC551 0277 *get response0278 * CLRB0279 617E GR550 0280 * DECB0281 * BEQ SDERR0282 617E 17 0512 LBSR GETDAT 0283 6181 B6 6007 LDA RESDAT 0284 * LBSR DSPBIN disp response0285 6184 81 01 CMPA #$01 0286 6186 26 F6 BNE GR550 0287 0288 * LBSR CRLF0289 *---------- acmd 41 ----------0290 6188 ASCMD41 EQU * 0291 * LDX #MCMD410292 * LBSR PSTRNG0293 0294 6188 17 0561 LBSR SETCKL 0295 618B 86 FF LDA #$FF dummy cmd0296 618D 17 04E7 LBSR SNDDAT 0297 6190 C6 06 LDB #6 0298 6192 8E 693C LDX #ACMD41 0299 6195 A6 80 ASC411 LDA ,X+ 0300 6197 17 04DD LBSR SNDDAT 0301 619A 5A DECB 0302 619B 26 F8 BNE ASC411 0303 *get response0304 619D GR410 0305 619D 17 04F3 LBSR GETDAT 0306 61A0 B6 6007 LDA RESDAT 0307 * LBSR DSPBIN disp response0308 61A3 17 04ED LBSR GETDAT 0309 61A6 B6 6007 LDA RESDAT 0310 * LBSR DSPBIN disp response0311 61A9 81 00 CMPA #$00 0312 61AB 26 BC BNE RPT41 0313 * LBSR CRLF0314 0315 *---------- second cmd 58 ----------0316 61AD SCMD258 EQU * 0317 * LDX #MCMD580318 * LBSR PSTRNG0319 0320 61AD 17 053C LBSR SETCKL 0321 61B0 86 FF LDA #$FF dummy cmd0322 61B2 17 04C2 LBSR SNDDAT 0323 61B5 C6 06 LDB #6 0324 61B7 8E 6930 LDX #CMD58 0325 61BA A6 80 SC2581 LDA ,X+ 0326 61BC 17 04B8 LBSR SNDDAT 0327 61BF 5A DECB 0328 61C0 26 F8 BNE SC2581 0329 *get response0330 61C2 GR2580 0331 61C2 17 04CE LBSR GETDAT 0332 61C5 B6 6007 LDA RESDAT 0333 * LBSR DSPBIN disp response0334 61C8 81 00 CMPA #$00 0335 61CA 26 F6 BNE GR2580 0336 61CC 17 04C4 LBSR GETDAT 0337 61CF B6 6007 LDA RESDAT 0338 * LBSR DSPBIN disp response0339 61D2 48 LSLA 0340 61D3 48 LSLA 0341 61D4 24 03 BCC GR2581 0342 61D6 7C 6008 INC SDHC if sdhc then 10343 61D9 C6 03 GR2581 LDB #3 0344 61DB 17 04B5 GR2582 LBSR GETDAT 0345 61DE B6 6007 LDA RESDAT 0346 * LBSR DSPBIN disp response0347 61E1 5A DECB 0348 61E2 26 F7 BNE GR2582 0349 0350 61E4 8E 69FA LDX #MSSD0 0351 61E7 B6 6008 LDA SDHC 0352 61EA 27 03 BEQ SD1 0353 61EC 8E 6A06 LDX #MSSD1 0354 61EF 17 05EA SD1 LBSR PSTRNG 0355 *----------0356 *set sct no of BPB0357 61F2 17 0155 LBSR GETMBR 0358 61F5 8E 6ECA LDX #RWBUF+446+8+4 0359 61F8 108E 6009 LDY #SCTBPB 0360 61FC C6 04 LDB #4 0361 61FE A6 82 ILOP1 LDA ,-X 0362 6200 A7 A0 STA ,Y+ 0363 6202 5A DECB 0364 6203 26 F9 BNE ILOP1 0365 0366 *set sct no of FAT#10367 6205 17 0165 LBSR GETBPB 0368 6208 8E 6009 LDX #SCTBPB 0369 620B 108E 600D LDY #SCTFAT 0370 620F C6 04 LDB #4 0371 6211 A6 80 ILOP2 LDA ,X+ 0372 6213 A7 A0 STA ,Y+ 0373 6215 5A DECB 0374 6216 26 F9 BNE ILOP2 0375 0376 6218 8E 600D LDX #SCTFAT 0377 621B 108E 6D0E LDY #RWBUF+$0E for SD & SDHC0378 621F 17 0589 LBSR ADD42 0379 0380 *set sct no of DIR0381 6222 8E 600D LDX #SCTFAT 0382 6225 108E 6011 LDY #SCTDIR 0383 6229 C6 04 LDB #4 0384 622B A6 80 ILOP3 LDA ,X+ 0385 622D A7 A0 STA ,Y+ 0386 622F 5A DECB 0387 6230 26 F9 BNE ILOP3 0388 0389 6232 8E 6D16 LDX #RWBUF+$16 for SD0390 6235 7D 6008 TST SDHC 0391 6238 27 03 BEQ SKP1 0392 623A C6 0E LDB #$24-$16 0393 623C 3A ABX for SDHC0394 623D 1F 12 SKP1 TFR X,Y 0395 623F 8E 6011 LDX #SCTDIR 0396 6242 17 0566 LBSR ADD42 0397 6245 17 0563 LBSR ADD42 skip for FAT#20398 0399 *save no of directory0400 6248 8E 6011 LDX #SCTDIR 0401 624B 108E 6015 LDY #SCTDSV 0402 624F C6 04 LDB #4 0403 6251 A6 80 SCPY1 LDA ,X+ 0404 6253 A7 A0 STA ,Y+ 0405 6255 5A DECB 0406 6256 26 F9 BNE SCPY1 0407 0408 *set sct per cluster0409 6258 8E 6D0D LDX #RWBUF+$0D 0410 625B A6 84 LDA ,X 0411 625D B7 601D STA SCTPCL 0412 0413 *set sct no of CLUSTER#20414 6260 8E 6011 LDX #SCTDIR 0415 6263 108E 6019 LDY #SCTCLT 0416 6267 C6 04 LDB #4 0417 6269 A6 80 ILOP4 LDA ,X+ 0418 626B A7 A0 STA ,Y+ 0419 626D 5A DECB 0420 626E 26 F9 BNE ILOP4 0421 0422 6270 108E 605A LDY #WK1+2 0423 6274 86 00 LDA #$00 0424 6276 A7 A2 STA ,-Y 0425 6278 86 20 LDA #$20 for SD0426 627A 7D 6008 TST SDHC 0427 627D 27 03 BEQ SKP2 0428 627F B6 601D LDA SCTPCL for SDHC0429 6282 A7 A2 SKP2 STA ,-Y 0430 6284 8E 6019 LDX #SCTCLT 0431 6287 17 0521 LBSR ADD42 0432 *----------0433 628A 39 RTS 0434 0435 ****************************************0436 * GET SD DATA ROUTINE0437 * use CMD90438 ****************************************0439 628B GETSD EQU * 0440 628B 17 0499 LBSR CRLF 0441 628E 17 045B LBSR SETCKL 0442 6291 C6 06 LDB #6 0443 6293 8E 6942 LDX #CMD9 0444 6296 A6 80 SC91 LDA ,X+ 0445 6298 17 03DC LBSR SNDDAT 0446 629B 5A DECB 0447 629C 26 F8 BNE SC91 0448 * LBSR CRLF0449 *get response0450 629E GR90 0451 629E 17 03F2 LBSR GETDAT 0452 62A1 B6 6007 LDA RESDAT 0453 * LBSR DSPBIN disp response0454 62A4 81 00 CMPA #$00 0455 62A6 26 F6 BNE GR90 0456 0457 * LBSR CRLF0458 62A8 17 047C LBSR CRLF 0459 62AB C6 14 LDB #16+1+2+1 fe,crcH,crcL,ff0460 62AD 17 03E3 GR91 LBSR GETDAT 0461 62B0 B6 6007 LDA RESDAT 0462 62B3 17 0448 LBSR DSPBIN disp response0463 62B6 5A DECB 0464 62B7 26 F4 BNE GR91 0465 62B9 17 046B LBSR CRLF 0466 0467 *disp offset of MBR,FAT#1,DIR,CLUSTER#20468 62BC 8E 6A56 LDX #MSOFS 0469 62BF 17 051A LBSR PSTRNG 0470 62C2 8E 6A66 LDX #MSBPB 0471 62C5 17 0514 LBSR PSTRNG 0472 62C8 8E 6009 LDX #SCTBPB 0473 62CB C6 04 LDB #4 0474 62CD A6 80 SCLOP1 LDA ,X+ 0475 62CF 17 042C LBSR DSPBIN 0476 62D2 5A DECB 0477 62D3 26 F8 BNE SCLOP1 0478 0479 62D5 8E 6A6F LDX #MSFAT 0480 62D8 17 0501 LBSR PSTRNG 0481 62DB 8E 600D LDX #SCTFAT 0482 62DE C6 04 LDB #4 0483 62E0 A6 80 SCLOP2 LDA ,X+ 0484 62E2 17 0419 LBSR DSPBIN 0485 62E5 5A DECB 0486 62E6 26 F8 BNE SCLOP2 0487 0488 62E8 8E 6A78 LDX #MSDIR 0489 62EB 17 04EE LBSR PSTRNG 0490 62EE 8E 6011 LDX #SCTDIR 0491 62F1 C6 04 LDB #4 0492 62F3 A6 80 SCLOP3 LDA ,X+ 0493 62F5 17 0406 LBSR DSPBIN 0494 62F8 5A DECB 0495 62F9 26 F8 BNE SCLOP3 0496 0497 62FB 8E 6A81 LDX #MSCL2 0498 62FE 17 04DB LBSR PSTRNG 0499 6301 8E 6019 LDX #SCTCLT 0500 6304 C6 04 LDB #4 0501 6306 A6 80 SCLOP4 LDA ,X+ 0502 6308 17 03F3 LBSR DSPBIN 0503 630B 5A DECB 0504 630C 26 F8 BNE SCLOP4 0505 630E 17 0416 LBSR CRLF 0506 6311 39 RTS 0507 0508 *0509 6312 SDERR EQU * 0510 6312 8E 6A30 LDX #MERR 0511 6315 17 04C4 LBSR PSTRNG 0512 6318 OKEND 0513 6318 39 RTS return to BASIC0514 *0515 ****************************************0516 * READ ROUTINE0517 * use CMD170518 * set sctno to $6005,60060519 * read data set to $6800-69FF0520 ****************************************0521 6319 SDRD EQU * 0522 6319 17 040B LBSR CRLF 0523 631C 17 038E LBSR INSCT 0524 631F 17 02FC LBSR RD1SCT read 1 sct0525 0526 *disp data0527 6322 17 0402 LBSR CRLF 0528 6325 17 0331 LBSR DSPBUF 0529 6328 17 03FC LBSR CRLF 0530 632B 39 RTS 0531 0532 ****************************************0533 * Read MBR & Disp parameter of BPB0534 ****************************************0535 632C DSPMBR EQU * 0536 632C 17 03F8 LBSR CRLF 0537 632F 8D 19 BSR GETMBR 0538 0539 *disp BPB0540 6331 17 03F3 LBSR CRLF 0541 6334 8E 6EBE LDX #RWBUF+446 0542 6337 C6 10 GET1 LDB #16 0543 6339 A6 80 GET2 LDA ,X+ 0544 633B 17 03C0 LBSR DSPBIN disp data0545 633E 5A DECB 0546 633F 26 F8 BNE GET2 0547 6341 17 03E3 LBSR CRLF 0548 6344 8C 6EFE CMPX #RWBUF+510 446+16*40549 6347 25 EE BLO GET1 0550 6349 39 RTS 0551 0552 *----------------------------------------0553 *read MBR0554 634A GETMBR EQU * 0555 634A 8E 6003 LDX #SCTN0 0556 634D C6 04 LDB #4 0557 634F 4F CLRA 0558 6350 A7 80 GPLOP STA ,X+ 0559 6352 5A DECB 0560 6353 26 FB BNE GPLOP 0561 6355 17 035D LBSR SETSCT 0562 0563 6358 17 02C3 LBSR RD1SCT read 1 sct0564 635B 39 RTS 0565 0566 *----------------------------------------0567 *set sector no to SCTN00568 *from X,X+1,X+2,X+3 to SCTN0-SCTN30569 635C SETSNO EQU * 0570 635C 108E 6003 LDY #SCTN0 0571 6360 C6 04 LDB #4 0572 6362 A6 80 SELOP LDA ,X+ 0573 6364 A7 A0 STA ,Y+ 0574 6366 5A DECB 0575 6367 26 F9 BNE SELOP 0576 6369 17 0349 LBSR SETSCT 0577 636C 39 RTS 0578 0579 *----------------------------------------0580 *read BPB0581 636D GETBPB EQU * 0582 636D 8D DB BSR GETMBR 0583 *set sct no of BPB0584 636F 8E 6ECA LDX #RWBUF+446+8+4 0585 6372 108E 6003 LDY #SCTN0 0586 6376 C6 04 LDB #4 0587 6378 A6 82 GPLOP2 LDA ,-X 0588 637A A7 A0 STA ,Y+ 0589 637C 5A DECB 0590 637D 26 F9 BNE GPLOP2 0591 637F 17 0333 LBSR SETSCT 0592 0593 6382 17 0299 LBSR RD1SCT read 1 sct0594 6385 39 RTS 0595 0596 ****************************************0597 * Disp BPB(Bios Parameter Block)0598 ****************************************0599 6386 DSPBPB EQU * 0600 6386 8E 6009 LDX #SCTBPB 0601 6389 8D D1 BSR SETSNO 0602 638B 17 0290 LBSR RD1SCT read 1 sct0603 0604 *disp BPB0605 638E 17 0396 LBSR CRLF 0606 6391 17 02C5 LBSR DSPBUF 0607 6394 17 0390 LBSR CRLF 0608 6397 39 RTS 0609 0610 ****************************************0611 * Disp FAT#10612 ****************************************0613 6398 DSPFAT EQU * 0614 6398 8E 600D LDX #SCTFAT 0615 639B 8D BF BSR SETSNO 0616 639D 17 027E LBSR RD1SCT read 1 sct0617 0618 *disp FAT0619 63A0 17 0384 LBSR CRLF 0620 63A3 17 02B3 LBSR DSPBUF 0621 63A6 17 037E LBSR CRLF 0622 63A9 39 RTS 0623 0624 ****************************************0625 * Disp Directory0626 ****************************************0627 63AA DSPDIR EQU * 0628 63AA 7C 604E INC DPGFLG set 1st page of DIR flag0629 *return no of DIR0630 63AD 108E 6019 LDY #SCTDSV+4 0631 63B1 8E 6015 LDX #SCTDIR+4 0632 63B4 C6 04 LDB #4 0633 63B6 A6 A2 DRET0 LDA ,-Y 0634 63B8 A7 82 STA ,-X 0635 63BA 5A DECB 0636 63BB 26 F9 BNE DRET0 0637 0638 63BD 8E 6011 DSPFL0 LDX #SCTDIR 0639 63C0 8D 9A BSR SETSNO 0640 63C2 17 0259 LBSR RD1SCT read 1 sct0641 0642 *disp FILE name0643 63C5 17 035F LBSR CRLF 0644 63C8 17 035C LBSR CRLF 0645 63CB 8E 6D00 LDX #RWBUF 0646 63CE 7D 604E TST DPGFLG 1st page of DIR?0647 63D1 27 03 BEQ DSKP1 0648 63D3 30 88 60 LEAX 96,X skip top data0649 63D6 DSKP1 0650 0651 63D6 A6 84 DSPFL1 LDA ,X 0652 63D8 1027 008F LBEQ DSPEND if top of filename is 0 then end0653 63DC 81 E5 CMPA #$E5 delete mark?0654 63DE 27 0A BEQ DSPCKE 0655 63E0 A6 0B LDA 11,X attr0656 63E2 81 0F CMPA #$0F long file name?0657 63E4 27 04 BEQ DSPCKE 0658 63E6 81 10 CMPA #$10 directory?0659 63E8 26 0A BNE DSPFL2 0660 63EA 30 88 20 DSPCKE LEAX 32,X next directory entry0661 63ED 8C 6EE0 CMPX #RWBUF+512-32 0662 63F0 24 60 BHS DSPFL5 0663 63F2 20 E2 BRA DSPFL1 0664 0665 63F4 DSPFL2 0666 *disp filename0667 63F4 C6 08 LDB #8 0668 63F6 A6 80 DSPFL3 LDA ,X+ 0669 63F8 BD FBBB JSR OUTCHA 0670 63FB 5A DECB 0671 63FC 26 F8 BNE DSPFL3 0672 *disp ext0673 63FE 86 2E LDA #'. 0674 6400 BD FBBB JSR OUTCHA 0675 6403 C6 03 LDB #3 0676 6405 A6 80 DSPFL4 LDA ,X+ 0677 6407 BD FBBB JSR OUTCHA 0678 640A 5A DECB 0679 640B 26 F8 BNE DSPFL4 0680 640D 86 20 LDA #' 0681 640F BD FBBB JSR OUTCHA 0682 6412 BD FBBB JSR OUTCHA 0683 0684 *get FILE time data0685 6415 30 07 LEAX 7,X 0686 6417 EC 81 LDD ,X++ 0687 6419 FD 6058 STD WK1 0688 0689 *get CLUSTER(H) data0690 641C EC 81 LDD ,X++ 0691 641E 1E 89 EXG A,B 0692 6420 FD 6047 STD CLSTH 0693 6423 30 04 LEAX 4,X 0694 6425 EC 81 LDD ,X++ 0695 6427 1E 89 EXG A,B 0696 6429 FD 6049 STD CLSTL 0697 0698 *get FILE size data0699 642C 108E 6045 LDY #WFSIZ+4 0700 6430 C6 04 LDB #4 0701 6432 A6 80 DSPC1 LDA ,X+ 0702 6434 A7 A2 STA ,-Y 0703 6436 5A DECB 0704 6437 26 F9 BNE DSPC1 0705 0706 *disp FILE size0707 6439 86 20 LDA #' 0708 643B BD FBBB JSR OUTCHA 0709 643E 17 040C LBSR DSPSIZ disp FILE size0710 0711 *disp FILE time0712 6441 FC 6058 LDD WK1 0713 6444 17 03A5 LBSR DSPYMD disp MM-DD-YY0714 0715 *disp CLUSTER(H,L)0716 6447 17 0462 LBSR DSPCLS 0717 644A 17 02DA LBSR CRLF 0718 0719 644D 8C 6F00 CMPX #RWBUF+512 0720 6450 25 84 BLO DSPFL1 0721 6452 8E 6011 DSPFL5 LDX #SCTDIR 0722 6455 17 0192 LBSR INCX4 sct no +10723 6458 7F 604E CLR DPGFLG clear 1st page of DIR0724 645B 8E 6AC1 LDX #MSNXTP 0725 645E 17 037B LBSR PSTRNG 0726 6461 BD 690B JSR INOUTC 0727 6464 81 20 CMPA #' 0728 6466 26 03 BNE DSPEND 0729 6468 16 FF52 LBRA DSPFL0 0730 646B 17 02B9 DSPEND LBSR CRLF 0731 646E 39 RTS 0732 0733 ****************************************0734 * Load FILE0735 ****************************************0736 646F LDFILE EQU * 0737 * LBSR DSPDIR0738 646F 7C 604E INC DPGFLG set 1st page of DIR flag0739 *return no of DIR0740 6472 108E 6019 LDY #SCTDSV+4 0741 6476 8E 6015 LDX #SCTDIR+4 0742 6479 C6 04 LDB #4 0743 647B A6 A2 DRET1 LDA ,-Y 0744 647D A7 82 STA ,-X 0745 647F 5A DECB 0746 6480 26 F9 BNE DRET1 0747 0748 6482 8E 6A91 LDX #MSINFN 0749 6485 17 0354 LBSR PSTRNG 0750 6488 17 0467 LBSR FNMIN 0751 0752 648B 8E 6011 LDFL0 LDX #SCTDIR 0753 648E 17 FECB LBSR SETSNO 0754 6491 17 018A LBSR RD1SCT read 1 sct0755 0756 6494 8E 6D00 LDX #RWBUF 0757 6497 7D 604E TST DPGFLG 1st page of DIR?0758 649A 27 03 BEQ LDFL1 0759 649C 30 88 60 LEAX 96,X skip top data0760 0761 649F A6 84 LDFL1 LDA ,X 0762 64A1 1027 00FA LBEQ LDNEND if top of filename is 0 then end0763 64A5 81 E5 CMPA #$E5 delete mark?0764 64A7 26 0A BNE LD1 0765 64A9 30 88 20 LEAX 32,X next directory entry0766 64AC 8C 6F00 CMPX #RWBUF+512 over buf?0767 64AF 24 0F BHS LDFL5 0768 64B1 20 EC BRA LDFL1 0769 0770 *check file name0771 64B3 LD1 0772 64B3 17 041B LBSR CMPFN C=1:match0773 64B6 25 13 BCS LD2 0774 64B8 30 88 20 LEAX 32,X 0775 64BB 8C 6F00 CMPX #RWBUF+512 0776 64BE 25 DF BLO LDFL1 0777 0778 64C0 LDFL5 0779 64C0 8E 6011 LDX #SCTDIR 0780 64C3 17 0124 LBSR INCX4 sct no +10781 64C6 7F 604E CLR DPGFLG clear 1st page of DIR0782 64C9 20 C0 BRA LDFL0 0783 0784 *hit file, get dirctory entry0785 64CB C6 20 LD2 LDB #32 0786 64CD 108E 601E LDY #DIRENT 0787 64D1 A6 80 DCPY LDA ,X+ 0788 64D3 A7 A0 STA ,Y+ 0789 64D5 5A DECB 0790 64D6 26 F9 BNE DCPY 0791 64D8 8E 601E LDX #DIRENT 0792 0793 *get cluster no0794 64DB EC 88 14 LDD $14,X 0795 64DE 1E 89 EXG A,B 0796 64E0 FD 6047 STD CLSTH high cluster no0797 64E3 EC 88 1A LDD $1A,X 0798 64E6 1E 89 EXG A,B 0799 64E8 FD 6049 STD CLSTL low cluster no0800 *sub start cluster no (SD:2,SDHC:3)0801 64EB 83 0002 SUBD #2 0802 64EE 7D 6008 TST SDHC SD:0,SDHC:10803 64F1 27 03 BEQ LD3 0804 64F3 83 0001 SUBD #1 D:cluster no (start 0)0805 0806 64F6 34 36 LD3 PSHS A,B,X,Y 0807 64F8 8E 6019 LDX #SCTCLT 0808 64FB 108E 6058 LDY #WK1 0809 64FF C6 04 LDB #4 0810 6501 A6 80 LD4 LDA ,X+ 0811 6503 A7 A0 STA ,Y+ 0812 6505 5A DECB 0813 6506 26 F9 BNE LD4 0814 6508 35 36 PULS A,B,X,Y 0815 0816 *(B)x40h0817 650A 34 30 PSHS X,Y 0818 650C 8E 6058 LDX #WK1 0819 650F 17 00E7 LBSR ADD40H 0820 6512 35 30 PULS X,Y 0821 0822 *get file size0823 6514 34 30 PSHS X,Y 0824 6516 30 88 20 LEAX 32,X 0825 6519 108E 6041 LDY #WFSIZ 0826 651D C6 04 LDB #4 0827 651F A6 82 LD41 LDA ,-X 0828 6521 A7 A0 STA ,Y+ 0829 6523 5A DECB 0830 6524 26 F9 BNE LD41 0831 6526 35 30 PULS X,Y 0832 0833 6528 EC 88 1D LDD $1D,X upper of file size0834 652B 1E 89 EXG A,B 0835 652D 44 LSRA wfsiz/$200+10836 652E 56 RORB 0837 652F C3 0001 ADDD #1 0838 0839 6532 C1 40 CMPB #$40 40h page?0840 6534 23 02 BLS LD5 0841 6536 C6 40 LDB #$40 0842 6538 F7 604B LD5 STB CNT sct counter0843 653B F7 604C STB CNTSV 0844 0845 *set start sct no0846 653E LD6 0847 653E 34 30 PSHS X,Y 0848 6540 8E 6058 LDX #WK1 0849 6543 108E 6003 LDY #SCTN0 0850 6547 C6 04 LDB #4 0851 6549 A6 80 LD7 LDA ,X+ 0852 654B A7 A0 STA ,Y+ 0853 654D 5A DECB 0854 654E 26 F9 BNE LD7 0855 6550 35 30 PULS X,Y 0856 0857 6552 17 0160 LBSR SETSCT 0858 6555 17 00C6 LBSR RD1SCT read 1 file data0859 0860 6558 7F 604D CLR MCFLG set not machine code0861 655B B6 604C LDA CNTSV 0862 655E B1 604B CMPA CNT top sector read?0863 6561 26 1B BNE LD8 0864 0865 *at top sector, ini set0866 *offset 00 data is0867 * $00 :machine code (MCFLG=0)0868 * $FF,$FE:BASIC PROGRAM (binary save) (MCFLG=$FF,$FE)0869 * else :general text (MCFLG=1)0870 6563 10BE 6043 LDY WFSIZ+2 0871 6567 10BF 6045 STY FILSIZ set file size0872 0873 656B 8E 6D00 LDX #RWBUF 0874 656E A6 84 LDA ,X 00?(machine code?)0875 6570 B7 604D STA MCFLG 0876 6573 26 09 BNE LD8 0877 *at machine code, read header0878 * INC MCFLG set machine code0879 6575 10AE 01 LDY 1,X get file size0880 6578 10BF 6045 STY FILSIZ 0881 657C EE 03 LDU 3,X get store addr0882 0883 657E DE 33 LD8 LDU BASADRP get text buffer adr0884 6580 4D TSTA 0885 6581 2B 03 BMI LD9 $FFor$FE (basic code?)0886 6583 CE 2000 LDU #TXTADR (else)0887 6586 LD9 0888 6586 8D 1F BSR MEMSET 0889 0890 6588 8E 6058 LDX #WK1 0891 658B 8D 5D BSR INCX4 sct no +10892 658D 7F 604E CLR DPGFLG clear 1st page of DIR0893 6590 7A 604B DEC CNT 0894 6593 26 A9 BNE LD6 0895 0896 6595 8E 6AA7 LDEND LDX #MSLDED 0897 6598 17 0241 LBSR PSTRNG 0898 659B 17 0189 LDE1 LBSR CRLF 0899 659E 39 RTS 0900 659F 8E 6AB3 LDNEND LDX #MSNOFL 0901 65A2 17 0237 LBSR PSTRNG 0902 65A5 20 F4 BRA LDE1 0903 0904 *0905 *data to memory0906 *U:memory adr0907 0908 65A7 MEMSET EQU * 0909 65A7 34 30 PSHS X,Y 0910 65A9 8E 6D00 LDX #RWBUF 0911 65AC B6 604D LDA MCFLG 0,1,$FF($FE)0912 65AF 27 07 BEQ MS1 0913 65B1 2B 12 BMI MS2 0914 *text file0915 65B3 CE 2000 LDU #TXTADR (else)0916 65B6 20 1B BRA MSLOP0 0917 *machine code0918 65B8 MS1 0919 65B8 10AE 01 LDY 1,X get file size0920 65BB 10BF 6045 STY FILSIZ 0921 65BF EE 03 LDU 3,X get store addr0922 65C1 30 05 LEAX 5,X skip header0923 65C3 20 0E BRA MSLOP0 0924 *basic program(binary save)0925 65C5 MS2 0926 65C5 30 03 LEAX 3,X skip 3 $FFs0927 65C7 10BE 6045 LDY FILSIZ 0928 65CB 31 3D LEAY -3,Y 0929 65CD 10BF 6045 STY FILSIZ 0930 65D1 DE 33 LDU BASADRP get text buffer adrs0931 0932 65D3 10BE 6045 MSLOP0 LDY FILSIZ 0933 65D7 A6 80 MSLOP LDA ,X+ 0934 65D9 A7 C0 STA ,U+ 0935 65DB 31 3F LEAY -1,Y 0936 65DD 27 05 BEQ MS3 0937 65DF 8C 6F00 CMPX #RWBUF+512 0938 65E2 25 F3 BLO MSLOP 0939 65E4 10BF 6045 MS3 STY FILSIZ 0940 65E8 35 B0 PULS X,Y,PC 0941 0942 *--------------------0943 *(X)..(X+3)+10944 65EA INCX4 EQU * 0945 65EA 6C 03 ADX0 INC 3,X 0946 65EC 24 02 BCC ADX1 0947 65EE 6C 02 INC 2,X 0948 65F0 24 02 ADX1 BCC ADX2 0949 65F2 6C 01 INC 1,X 0950 65F4 24 02 ADX2 BCC ADX3 0951 65F6 6C 84 INC ,X 0952 65F8 39 ADX3 RTS 0953 *0954 *(X)..(X+3)+(B)x40h0955 65F9 ADD40H EQU * 0956 65F9 34 06 PSHS A,B 0957 65FB A6 03 ADD0 LDA 3,X 0958 65FD 8B 40 ADDA #$40 0959 65FF A7 03 STA 3,X 0960 6601 24 06 BCC ADD1 0961 6603 A6 02 LDA 2,X 0962 6605 8B 01 ADDA #1 0963 6607 A7 02 STA 2,X 0964 6609 24 06 ADD1 BCC ADD2 0965 660B A6 01 LDA 1,X 0966 660D 8B 01 ADDA #1 0967 660F A7 01 STA 1,X 0968 6611 24 06 ADD2 BCC ADD3 0969 6613 A6 84 LDA ,X 0970 6615 8B 01 ADDA #1 0971 6617 A7 84 STA ,X 0972 6619 5A ADD3 DECB 0973 661A 26 DF BNE ADD0 0974 661C 35 86 PULS A,B,PC 0975 0976 *0977 *------------------------------0978 *read 1 sct0979 *------------------------------0980 661E RD1SCT EQU * 0981 *copy sct no to cmd param0982 661E 8E 6003 LDX #SCTN0 0983 6621 108E 691F LDY #CMD17+1 0984 6625 C6 04 LDB #4 0985 6627 A6 80 CPY1 LDA ,X+ 0986 6629 A7 A0 STA ,Y+ 0987 662B 5A DECB 0988 662C 26 F9 BNE CPY1 0989 *send cmd0990 662E 17 00BB LBSR SETCKL 0991 6631 C6 06 LDB #6 0992 6633 8E 691E LDX #CMD17 0993 6636 A6 80 RD1 LDA ,X+ 0994 6638 8D 3D BSR SNDDAT 0995 663A 5A DECB 0996 663B 26 F9 BNE RD1 0997 *get response0998 663D RD2 0999 663D 8D 54 BSR GETDAT 1000 663F B6 6007 LDA RESDAT 1001 6642 81 FE CMPA #$FE token?1002 6644 26 F7 BNE RD2 1003 1004 *get data1005 * LBSR CRLF1006 6646 8E 6D00 LDX #RWBUF <-temp -1="" 0094="" 00b3="" 00cb="" 0200="" 02="" 06="" 08="" 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="" 108e="" 12="" 17="" 20="" 26="" 27="" 31="" 34="" 35="" 39="" 3f="" 44="" 48="" 53="" 57="" 5a="" 6007="" 63="" 6649="" 664d="" 664f="" 6652="" 6654="" 6656="" 6658="" 6659="" 665c="" 665f="" 6663="" 6665="" 6667="" 666a="" 666c="" 666e="" 666f="" 6671="" 6674="" 6676="" 6677="" 6679="" 667c="" 667e="" 6680="" 6682="" 6684="" 6687="" 6689="" 668b="" 668c="" 668e="" 668f="" 6691="" 6693="" 6695="" 6697="" 6699="" 669a="" 669b="" 669c="" 669e="" 66a1="" 66a2="" 67="" 6d00="" 7f="" 80="" 84="" 86="" 8a="" 8d="" 8e="" a6="" a7="" a="" anda="" b1-="" b6="" b7="" beq="" bne="" bra="" bsr="" buf="" c6="" clr="" crlf="" cs:b0="L" data="" decb="" disp="" dspb1="" dspb2="" dspb3="" dspbin="" dspbuf="" ed="" equ="" f4="" f5="" fc="" fd9e="" get="" getd1="" getdat="" lbsr="" lda="" ldb="" ldx="" ldy="" leay="" lsla="" lsra="" miso:b1="H(for" nop="" ora="" pbdat="" pia="" pshs="" puls="" rd3="" resdat="" response="" rts="" save="" send="" setckh="" setckl="" sndd1="" snddat="" sta="" temp="">C1064 66A3 79 6007 ROL RESDAT C->b01065 66A6 5A DECB 1066 66A7 26 EE BNE GETD1 1067 66A9 8D 41 BSR SETCKL 1068 66AB 35 86 PULS A,B,PC 1069 *1070 *------------------------------1071 *input SCT No1072 66AD INSCT EQU * 1073 66AD 8E 69E6 LDX #MSSCT 1074 66B0 17 0129 LBSR PSTRNG 1075 66B3 8D 7D BSR GET8CH get 8chr, convert 4bin1076 1077 66B5 SETSCT EQU * 1078 66B5 34 32 PSHS A,X,Y 1079 66B7 7D 6008 TST SDHC 1080 66BA 26 1E BNE CALCHC 1081 *SD card1082 66BC C6 03 LDB #3 1083 66BE 8E 6004 LDX #SCTN1 1084 66C1 108E 6003 LDY #SCTN0 1085 66C5 A6 80 SFT1 LDA ,X+ 1086 66C7 A7 A0 STA ,Y+ 1087 66C9 5A DECB 1088 66CA 26 F9 BNE SFT1 1089 66CC 7F 6006 CLR SCTN3 1090 *calc top adrs of sct1091 66CF CALCSD EQU * 1092 66CF 78 6006 LSL SCTN3 1093 66D2 79 6005 ROL SCTN2 1094 66D5 79 6004 ROL SCTN1 1095 66D8 35 B2 PULS A,X,Y,PC 1096 1097 *SDHC card1098 *calc top adrs of sct1099 66DA CALCHC EQU * 1100 66DA 8E 6003 LDX #SCTN0 1101 66DD 108E 691F LDY #CMD17+1 1102 66E1 C6 04 LDB #4 1103 66E3 A6 80 CALCH1 LDA ,X+ 1104 66E5 A7 A0 STA ,Y+ 1105 66E7 5A DECB 1106 66E8 26 F9 BNE CALCH1 1107 66EA 35 B2 PULS A,X,Y,PC 1108 1109 *1110 *set sck:L1111 66EC SETCKL EQU * 1112 66EC 34 02 PSHS A 1113 66EE 86 34 LDA #$34 ca2=L1114 66F0 B7 FD9F STA PBCTL 1115 66F3 35 82 PULS A,PC 1116 1117 *set sck:H1118 66F5 SETCKH EQU * 1119 66F5 34 02 PSHS A 1120 66F7 86 3C LDA #$3C ca2=H1121 66F9 B7 FD9F STA PBCTL 1122 66FC 35 82 PULS A,PC 1123 1124 *binary(A)->ascii(A)(B)1125 66FE DSPBIN EQU * 1126 66FE 34 06 PSHS A,B 1127 6700 1F 89 TFR A,B 1128 6702 44 LSRA 1129 6703 44 LSRA 1130 6704 44 LSRA 1131 6705 44 LSRA 1132 6706 8A 30 ORA #$30 1133 6708 C4 0F ANDB #$0F 1134 670A CA 30 ORB #$30 1135 670C 81 39 CMPA #$39 1136 670E 23 02 BLS BI21 1137 6710 8B 07 ADDA #$07 1138 6712 C1 39 BI21 CMPB #$39 1139 6714 23 02 BLS BI22 1140 6716 CB 07 ADDB #$07 1141 6718 BD FBBB BI22 JSR OUTCHA 1142 671B 1F 98 TFR B,A 1143 671D BD FBBB JSR OUTCHA 1144 6720 86 20 LDA #$20 1145 6722 BD FBBB JSR OUTCHA 1146 6725 35 86 PULS A,B,PC 1147 1148 *crlf1149 6727 CRLF EQU * 1150 6727 86 0D LDA #$0D 1151 6729 BD FBBB JSR OUTCHA 1152 672C 86 0A LDA #$0A 1153 672E BD FBBB JSR OUTCHA 1154 6731 39 RTS 1155 1156 *1157 6732 GET8CH EQU * 1158 *input chr1159 6732 8E 6ADA LDX #INPBUF 1160 6735 5F CLRB 1161 6736 BD 690B CLOP JSR INOUTC 1162 6739 81 0D CMPA #$0D 1163 673B 27 07 BEQ INEND 1164 673D A7 85 STA B,X 1165 673F 5C INCB 1166 6740 C1 08 CMPB #8 1167 6742 25 F2 BLO CLOP 1168 1169 6744 INEND 1170 *shift1171 6744 5D TSTB 1172 6745 27 11 BEQ CL1 1173 6747 8E 6ADA LDX #INPBUF 1174 674A 3A ABX 1175 674B 108E 6AE2 LDY #INPBUF+8 1176 674F 34 04 PSHS B 1177 6751 A6 82 SFLOP LDA ,-X 1178 6753 A7 A2 STA ,-Y 1179 6755 5A DECB 1180 6756 26 F9 BNE SFLOP 1181 *clr1182 6758 C6 08 CL1 LDB #8 1183 675A E0 E0 SUBB ,S+ 1184 675C 27 0A BEQ CLEND 1185 675E 8E 6ADA LDX #INPBUF 1186 6761 86 30 LDA #'0 1187 6763 A7 80 CLLOP STA ,X+ 1188 6765 5A DECB 1189 6766 26 FB BNE CLLOP 1190 6768 CLEND 1191 1192 *convert to bin1193 6768 C6 04 LDB #4 1194 676A 8E 6ADA LDX #INPBUF 1195 676D 108E 6003 LDY #SCTN0 1196 6771 CVT1 1197 6771 A6 80 LDA ,X+ 1198 6773 8D 1E BSR CVBIN 1199 6775 25 16 BCS EREND1 1200 6777 48 LSLA 1201 6778 48 LSLA 1202 6779 48 LSLA 1203 677A 48 LSLA 1204 677B 34 02 PSHS A 1205 677D A6 80 LDA ,X+ 1206 677F 8D 12 BSR CVBIN 1207 6781 25 08 BCS EREND0 1208 6783 AB E0 ADDA ,S+ 1209 6785 A7 A0 STA ,Y+ 1210 6787 5A DECB 1211 6788 26 E7 BNE CVT1 1212 678A 39 RTS 1213 1214 678B 35 02 EREND0 PULS A 1215 678D 8E 6A47 EREND1 LDX #MSERR 1216 6790 8D 4A BSR PSTRNG 1217 6792 39 EEND RTS 1218 1219 *--------------------1220 *ascii -> bin1221 6793 CVBIN EQU * 1222 6793 80 30 SUBA #'0 1223 6795 2B 11 BMI CVERR 1224 6797 81 09 CMPA #9 1225 6799 23 0A BLS CVBEND 1226 679B 81 11 CMPA #$11 1227 679D 25 09 BLO CVERR 1228 679F 81 16 CMPA #$16 1229 67A1 22 05 BHI CVERR 1230 67A3 80 07 SUBA #7 1231 67A5 CVBEND 1232 67A5 1C FE ANDCC #$FE reset C1233 67A7 39 RTS 1234 67A8 1A 01 CVERR ORCC #$01 set C1235 67AA 39 RTS 1236 1237 *--------------------1238 *add 2bytes to 4bytes1239 * X,X+1,X+2,X+3 + Y,Y+11240 * data X is big endian1241 * data Y is little endian1242 67AB ADD42 EQU * 1243 67AB 34 36 PSHS A,B,X,Y 1244 67AD 32 7C LEAS -4,S 1245 67AF C6 04 LDB #4 1246 67B1 A6 80 AD1 LDA ,X+ 1247 67B3 A7 E0 STA ,S+ 1248 67B5 5A DECB 1249 67B6 26 F9 BNE AD1 1250 1251 *add (lower)1252 67B8 A6 A0 LDA ,Y+ 1253 67BA AB E2 ADDA ,-S 1254 67BC A7 E4 STA ,S 1255 67BE 24 02 BCC AD2 1256 67C0 6C 7F INC -1,S 1257 *add (upper)1258 67C2 A6 A4 AD2 LDA ,Y 1259 67C4 AB E2 ADDA ,-S 1260 67C6 A7 E4 STA ,S 1261 67C8 24 02 BCC AD3 1262 67CA 6C 7F INC -1,S 1263 67CC 30 1C AD3 LEAX -4,X 1264 67CE 32 7E LEAS -2,S 1265 67D0 C6 04 LDB #4 1266 67D2 A6 E0 AD4 LDA ,S+ 1267 67D4 A7 80 STA ,X+ 1268 67D6 5A DECB 1269 67D7 26 F9 BNE AD4 1270 67D9 35 36 PULS A,B,X,Y 1271 67DB 39 RTS 1272 1273 *--------------------1274 * pstring1275 67DC PSTRNG EQU * 1276 67DC 34 02 PSHS A 1277 67DE A6 80 PSLOP LDA ,X+ 1278 67E0 81 04 CMPA #4 1279 67E2 27 05 BEQ PSEND 1280 67E4 BD FBBB JSR OUTCHA 1281 67E7 20 F5 BRA PSLOP 1282 67E9 35 02 PSEND PULS A 1283 67EB 39 RTS 1284 1285 *--------------------1286 *disp MM-DD-YY1287 *indata A(Low),B(High)1288 67EC DSPYMD EQU * 1289 67EC 1E 89 EXG A,B 1290 67EE 34 10 PSHS X 1291 67F0 34 06 PSHS A,B 1292 67F2 C4 E0 ANDB #$E0 1293 67F4 54 LSRB 1294 67F5 54 LSRB 1295 67F6 54 LSRB 1296 67F7 54 LSRB 1297 67F8 54 LSRB 1298 67F9 47 ASRA 1299 67FA 24 02 BCC DYMD1 1300 67FC CB 08 ADDB #8 1301 67FE F7 603E DYMD1 STB WMDY MM1302 6801 35 06 PULS A,B 1303 6803 34 04 PSHS B 1304 6805 C4 1F ANDB #$1F 1305 6807 F7 603F STB WMDY+1 DD1306 680A 35 04 PULS B 1307 1308 680C 44 LSRA 1309 * ASLB1310 * BCC DYMD21311 * INCA1312 680D DYMD2 1313 680D 80 14 SUBA #20 A+1980-20001314 680F B7 6040 STA WMDY+2 YY1315 1316 *disp MM-DD-YY1317 6812 86 20 LDA #' 1318 6814 BD FBBB JSR OUTCHA 1319 6817 8E 603E LDX #WMDY 1320 681A A6 80 LDA ,X+ 1321 681C 8D 14 BSR DB2ASC MM1322 681E 86 2D LDA #'- 1323 6820 BD FBBB JSR OUTCHA 1324 6823 A6 80 LDA ,X+ 1325 6825 8D 0B BSR DB2ASC DD1326 6827 86 2D LDA #'- 1327 6829 BD FBBB JSR OUTCHA 1328 682C A6 80 LDA ,X+ 1329 682E 8D 02 BSR DB2ASC YY1330 6830 35 90 PULS X,PC 1331 *1332 *----------1333 *(A:BIN)->ASCII1334 6832 DB2ASC EQU * 1335 6832 34 06 PSHS A,B 1336 6834 1F 89 TFR A,B 1337 6836 86 30 LDA #$30 1338 6838 C1 0A DBLOP CMPB #10 1339 683A 25 05 BLO DB2 1340 683C C0 0A SUBB #10 1341 683E 4C INCA 1342 683F 20 F7 BRA DBLOP 1343 6841 BD FBBB DB2 JSR OUTCHA 1344 6844 1F 98 TFR B,A 1345 6846 8B 30 ADDA #$30 1346 6848 BD FBBB JSR OUTCHA 1347 684B 35 86 PULS A,B,PC 1348 1349 *disp FILE size1350 684D DSPSIZ EQU * 1351 684D 34 10 PSHS X 1352 684F BE 6041 LDX WFSIZ 1353 6852 27 16 BEQ DSS1 if 64k over?1354 6854 86 3E LDA #'> 1355 6856 BD FBBB JSR OUTCHA 1356 6859 86 36 LDA #'6 1357 685B BD FBBB JSR OUTCHA 1358 685E 86 34 LDA #'4 1359 6860 BD FBBB JSR OUTCHA 1360 6863 86 6B LDA #'k 1361 6865 BD FBBB JSR OUTCHA 1362 6868 20 3B BRA DSEND 1363 686A 86 20 DSS1 LDA #' 1364 686C BD FBBB JSR OUTCHA 1365 686F B6 6043 LDA WFSIZ+2 under 64k1366 *disp dec1367 6872 81 64 CMPA #100 1368 6874 23 12 BLS DSS13 1369 6876 1F 89 TFR A,B 1370 6878 86 30 LDA #$30 1371 687A C1 64 DSLOP1 CMPB #100 1372 687C 25 05 BLO DSS12 1373 687E C0 64 SUBB #100 1374 6880 4C INCA 1375 6881 20 F7 BRA DSLOP1 1376 6883 BD FBBB DSS12 JSR OUTCHA 1377 6886 20 05 BRA DSS14 1378 *under 1001379 6888 86 20 DSS13 LDA #' 1380 688A BD FBBB JSR OUTCHA 1381 688D 86 30 DSS14 LDA #$30 1382 688F C1 0A DSLOP2 CMPB #10 1383 6891 25 05 BLO DSS2 1384 6893 C0 0A SUBB #10 1385 6895 4C INCA 1386 6896 20 F7 BRA DSLOP2 1387 6898 81 30 DSS2 CMPA #$30 1388 689A 26 01 BNE DSS3 1389 689C 4C INCA 1390 689D BD FBBB DSS3 JSR OUTCHA 1391 68A0 86 6B LDA #'k 1392 68A2 BD FBBB JSR OUTCHA 1393 68A5 86 20 DSEND LDA #' 1394 68A7 BD FBBB JSR OUTCHA 1395 68AA 35 90 PULS X,PC 1396 1397 *----------1398 68AC DSPCLS EQU * 1399 68AC 34 10 PSHS X 1400 68AE 86 20 LDA #' 1401 68B0 BD FBBB JSR OUTCHA 1402 68B3 8E 6047 LDX #CLSTH 1403 68B6 C6 02 LDB #2 1404 68B8 A6 80 DCLOP1 LDA ,X+ 1405 68BA 17 FF75 LBSR DB2ASC 1406 68BD 5A DECB 1407 68BE 26 F8 BNE DCLOP1 1408 68C0 86 20 LDA #' 1409 68C2 BD FBBB JSR OUTCHA 1410 68C5 C6 02 LDB #2 1411 68C7 A6 80 DCLOP2 LDA ,X+ 1412 68C9 17 FF66 LBSR DB2ASC 1413 68CC 5A DECB 1414 68CD 26 F8 BNE DCLOP2 1415 68CF 35 90 PULS X,PC 1416 1417 *----------1418 *X:top of FILE NAME1419 *return C=1:match,C=0:not match1420 68D1 CMPFN EQU * 1421 68D1 34 10 PSHS X 1422 68D3 108E 604F LDY #FNAME 1423 68D7 C6 08 LDB #8 1424 68D9 A6 80 CMPLOP LDA ,X+ 1425 68DB 81 E5 CMPA #$E5 delete mark?1426 68DD 27 0F BEQ NOTM 1427 68DF 81 20 CMPA #' 1428 68E1 27 07 BEQ MATCH 1429 68E3 A1 A0 CMPA ,Y+ 1430 68E5 26 07 BNE NOTM 1431 68E7 5A DECB 1432 68E8 26 EF BNE CMPLOP 1433 68EA 1A 01 MATCH ORCC #$01 C=11434 68EC 20 02 BRA CMPEND 1435 68EE 1C FE NOTM ANDCC #$FE C=01436 68F0 35 90 CMPEND PULS X,PC 1437 1438 *----------1439 68F2 FNMIN EQU * 1440 *clr buf1441 68F2 8E 605A LDX #FNAME+11 1442 68F5 C6 0B LDB #8+3 1443 68F7 86 20 LDA #' 1444 68F9 A7 82 FNIN0 STA ,-X 1445 68FB 5A DECB 1446 68FC 26 FB BNE FNIN0 1447 *fname in1448 68FE BD 690B FNIN1 JSR INOUTC 1449 6901 A7 80 STA ,X+ 1450 6903 81 0D CMPA #$0D 1451 6905 27 03 BEQ FNIEND 1452 6907 5A DECB 1453 6908 26 F4 BNE FNIN1 1454 690A 39 FNIEND RTS 1455 1456 690B BD FBB8 INOUTC JSR INCHA 1457 690E BD FBBB JSR OUTCHA 1458 6911 39 RTS 1459 1460 **************************************************1461 *========== parameter ==========1462 6912 40 CMD0 FCB $40,$00,$00,$00,$00,$95 '@ 1463 6918 41 CMD1 FCB $41,$00,$00,$00,$00,$FF 'A 1464 691E 51 CMD17 FCB $51,$00,$00,$00,$00,$FF 'Q 1465 6924 58 CMD24 FCB $58,$00,$00,$00,$00,$FF 'X 1466 692A 48 CMD8 FCB $48,$00,$00,$01,$AA,$87 'H 1467 6930 7A CMD58 FCB $7A,$00,$00,$00,$00,$FF 'z 1468 6936 77 CMD55 FCB $77,$00,$00,$00,$00,$FF 'w 1469 693C 69 ACMD41 FCB $69,$40,$FF,$80,$00,$FF 'i 1470 6942 49 CMD9 FCB $49,$00,$00,$00,$00,$FF 'I 1471 *1472 6948 43 MCMD0 FCC /CMD0/,$D,$A 1473 694E 04 FCB 4 1474 694F 43 MCMD8 FCC /CMD8/,$D,$A 1475 6955 04 FCB 4 1476 6956 43 MCMD58 FCC /CMD58/,$D,$A 1477 695D 04 FCB 4 1478 695E 43 MCMD55 FCC /CMD55/,$D,$A 1479 6965 04 FCB 4 1480 6966 41 MCMD41 FCC /ACMD41/,$D,$A 1481 696E 04 FCB 4 1482 696F 43 MCMD9 FCC /CMD9/,$D,$A 1483 6975 04 FCB 4 1484 *1485 6976 0D MSMENU1 FCC $0D,$0A,/1:Read Sct, 2:Get SD data, 3:SD Init, 4:Disp MBR, 5:Disp BPB,/ 1486 69B5 04 FCB 4 1487 69B6 0D MSMENU2 FCC $0D,$0A,/6:Disp FAT, 7:Disp DIR, 8:Load FILE, 0:End : / 1488 69E5 04 FCB 4 1489 69E6 53 MSSCT FCC /SctNo: / 1490 69ED 04 FCB 4 1491 69EE 57 MSWROK FCC /Write OK?: / 1492 69F9 04 FCB 4 1493 69FA 0D MSSD0 FCC $0D,$0A,/SD Card/,$0D,$0A 1494 6A05 04 FCB 4 1495 6A06 0D MSSD1 FCC $0D,$0A,/SDHC Card/,$0D,$0A 1496 6A13 04 FCB 4 1497 6A14 0D MSINIT FCC $0D,$0A,$0D,$0A,/SD Card initializing.../ 1498 6A2F 04 FCB 4 1499 6A30 53 MERR FCC /SD Initialize error!/,$0D,$0A 1500 6A46 04 FCB 4 1501 6A47 49 MSERR FCC /Input error!/,$0D,$0A 1502 6A55 04 FCB 4 1503 6A56 0D MSOFS FCC $0D,$0A,/Sector no is:/ 1504 6A65 04 FCB 4 1505 6A66 0D MSBPB FCC $0D,$0A,/ BPB: / 1506 6A6E 04 FCB 4 1507 6A6F 0D MSFAT FCC $0D,$0A,/ FAT: / 1508 6A77 04 FCB 4 1509 6A78 0D MSDIR FCC $0D,$0A,/ DIR: / 1510 6A80 04 FCB 4 1511 6A81 0D MSCL2 FCC $0D,$0A,/ 1stCLUSTER: / 1512 6A90 04 FCB 4 1513 6A91 0D MSINFN FCC $0D,$0A,$0D,$0A,/Input File Name: / 1514 6AA6 04 FCB 4 1515 6AA7 0D MSLDED FCC $0D,$0A,/ Load end/ 1516 6AB2 04 FCB 4 1517 6AB3 0D MSNOFL FCC $0D,$0A,/ Not exist!/ 1518 6AC0 04 FCB 4 1519 6AC1 0D MSNXTP FCC $0D,$0A,"Next page (SPC/else): " 1520 6AD9 04 FCB 4 1521 1522 **************************************************1523 6ADA FF INPBUF RMB 8 1524 1525 END START 0 error(s), 0 warning(s) is detected.Label addressACMD41 693C AD1 67B1 AD2 67C2 AD3 67CC AD4 67D2ADD0 65FB ADD1 6609 ADD2 6611 ADD3 6619 ADD40H 65F9ADD42 67AB ADX0 65EA ADX1 65F0 ADX2 65F4 ADX3 65F8ASC411 6195 ASCMD41 6188 BASADRP 0033 BI21 6712 BI22 6718CALCH1 66E3 CALCHC 66DA CALCSD 66CF CL1 6758 CLEND 6768CLLOP 6763 CLOP 6736 CLSTH 6047 CLSTL 6049 CMD0 6912CMD1 6918 CMD17 691E CMD24 6924 CMD55 6936 CMD58 6930CMD8 692A CMD9 6942 CMPEND 68F0 CMPFN 68D1 CMPLOP 68D9CNT 604B CNTSV 604C CPY1 6627 CRLF 6727 CSRON FBF7CVBEND 67A5 CVBIN 6793 CVERR 67A8 CVT1 6771 DB2 6841DB2ASC 6832 DBLOP 6838 DCLOP1 68B8 DCLOP2 68C7 DCPY 64D1DIRENT 601E DPGFLG 604E DRET0 63B6 DRET1 647B DSEND 68A5DSKP1 63D6 DSLOP1 687A DSLOP2 688F DSPB1 6663 DSPB2 6665DSPB3 6676 DSPBIN 66FE DSPBPB 6386 DSPBUF 6659 DSPC1 6432DSPCKE 63EA DSPCLS 68AC DSPDIR 63AA DSPEND 646B DSPFAT 6398DSPFL0 63BD DSPFL1 63D6 DSPFL2 63F4 DSPFL3 63F6 DSPFL4 6405DSPFL5 6452 DSPMBR 632C DSPSIZ 684D DSPYMD 67EC DSS1 686ADSS12 6883 DSS13 6888 DSS14 688D DSS2 6898 DSS3 689DDYMD1 67FE DYMD2 680D EEND 6792 EREND0 678B EREND1 678DFILSIZ 6045 FNAME 604F FNIEND 690A FNIN0 68F9 FNIN1 68FEFNMIN 68F2 GET1 6337 GET2 6339 GET8CH 6732 GETBPB 636DGETD1 6697 GETDAT 6693 GETMBR 634A GETSD 628B GPLOP 6350GPLOP2 6378 GR00 6100 GR2580 61C2 GR2581 61D9 GR2582 61DBGR410 619D GR550 617E GR580 6154 GR581 615E GR582 6160GR80 6124 GR81 6136 GR90 629E GR91 62AD ILOP1 61FEILOP2 6211 ILOP3 622B ILOP4 6269 INCHA FBB8 INCX4 65EAINEND 6744 INIT 607E INOUTC 690B INPBUF 6ADA INSCT 66ADISTT 60E6 LD1 64B3 LD2 64CB LD3 64F6 LD4 6501LD41 651F LD5 6538 LD6 653E LD7 6549 LD8 657ELD9 6586 LDE1 659B LDEND 6595 LDFILE 646F LDFL0 648BLDFL1 649F LDFL5 64C0 LDNEND 659F MAIN 605A MATCH 68EAMCFLG 604D MCMD0 6948 MCMD41 6966 MCMD55 695E MCMD58 6956MCMD8 694F MCMD9 696F MEMSET 65A7 MEN1 609A MEN2 60A2MEN3 60AA MEN4 60B1 MEN5 60B9 MEN6 60C1 MEN7 60C9MEN8 60D1 MENU 6080 MERR 6A30 MS1 65B8 MS2 65C5MS3 65E4 MSBPB 6A66 MSCL2 6A81 MSDIR 6A78 MSERR 6A47MSFAT 6A6F MSINFN 6A91 MSINIT 6A14 MSLDED 6AA7 MSLOP 65D7MSLOP0 65D3 MSMENU1 6976 MSMENU2 69B6 MSNOFL 6AB3 MSNXTP 6AC1MSOFS 6A56 MSSCT 69E6 MSSD0 69FA MSSD1 6A06 MSWROK 69EENOTM 68EE OKEND 6318 OUTCHA FBBB PBCTL FD9F PBDAT FD9EPSEND 67E9 PSLOP 67DE PSTRNG 67DC RD1 6636 RD1SCT 661ERD2 663D RD3 664D RESDAT 6007 RPT41 6169 RWBUF 6D00SC01 60F7 SC2581 61BA SC551 6176 SC581 614C SC80 611CSC91 6296 SCLOP1 62CD SCLOP2 62E0 SCLOP3 62F3 SCLOP4 6306SCMD0 60EF SCMD258 61AD SCMD55 6169 SCMD58 613F SCMD8 610FSCPY1 6251 SCTBPB 6009 SCTCLT 6019 SCTDIR 6011 SCTDSV 6015SCTFAT 600D SCTN0 6003 SCTN1 6004 SCTN2 6005 SCTN3 6006SCTPCL 601D SD1 61EF SDERR 6312 SDHC 6008 SDINIT 60D9SDRD 6319 SELOP 6362 SETCKH 66F5 SETCKL 66EC SETSCT 66B5SETSNO 635C SFLOP 6751 SFT1 66C5 SKP1 623D SKP2 6282SNDD1 667E SNDDAT 6677 START 6000 STTADR 6000 TXTADR 2000VN 6002 WFSIZ 6041 WK1 6058 WMDY 603E <!---temp--><!------><!------><!------><!------> |
前々回の報告「FM-7にRTCとSDを接続する試み（RTC編）（2023年3月9日）」で回路図も公開してありますが、FM-7に6821PIAを１個追加するだけでRTCやSDカードが使用できるのはそれなりにお値打ち（！）なのではないでしょうか。
