MSX DeuxLaque | Reloaded

苦悶式SDカード ５．９ あくまでもアップロードのテスト２

えいやっと！今度はBASICのプログラムのアップロード・テスト。

BASICはTABを使ってないから、勝手に書式を書き換えられる心配はないかな？

でも半角スペースが２個以上続いたら１個になるとかないかな？

内容は、ん〜〜、ご覧のとおりです。いかにもデバッグ中でしょ？ｗ

いつになったら満足に動くのでしょうね。←他人事モード

1000 '==================
1010 'SD3.BAS
1020 '==================
1030 SAVE "SD3.BAS"
1040 SCREEN0:KEY OFF:KEY1,"_SYSTEM"+CHR$(13)
1050 CLEAR 100,&HBFFF:DEFINT A-Z
1060 BLOAD "SD3.OBJ"
1070 DEFUSR0=&HC000:DEFUSR1=&HC003
1080 PRINT"R/W?";:I$=INPUT$(1):PRINT I$:I=INSTR("RrWw",I$):IF I=0 THEN 1080
1090 IF(I=1)OR(I=2)THEN GOSUB 1110:ELSE GOSUB 1270
1100 GOTO 1060
1110 '
1120 N=0:INPUT "ARG1";N:POKE &HC00D,N
1130 N=0:INPUT "ARG2";N:POKE &HC00E,N
1140 N=0:INPUT "ARG3";N:POKE &HC00F,N
1150 D=USR0(0)
1160 PRINT "CMD_0RES:";RIGHT$("0"+HEX$(PEEK(&HC006)),2)
1170 PRINT "CMD_1RES:";RIGHT$("0"+HEX$(PEEK(&HC007)),2)
1180 PRINT "CMD16RES:";RIGHT$("0"+HEX$(PEEK(&HC008)),2)
1190 PRINT "CMD17RES:";RIGHT$("0"+HEX$(PEEK(&HC009)),2)
1200 PRINT "CMD17STB:";RIGHT$("0"+HEX$(PEEK(&HC00C)),2)
1210 PRINT
1220 FOR I=0 TO 511
1230   C=PEEK(&HC013+I):IF(C<32)OR(C=127)THEN C$="." ELSE C$=CHR$(C)
1240   PRINT C$;
1250 NEXT I
1260 PRINT:PRINT:RETURN
1270 '
1280 'N=0:INPUT "ARG1";N:POKE &HC00D,N
1290 'N=0:INPUT "ARG2";N:POKE &HC00E,N
1300 'N=0:INPUT "ARG3";N:POKE &HC00F,N
1310 'N$="":INPUT "CHAR";N$:POKE &HC011,ASC(N$)
1320 D=USR1(0)
1330 'PRINT "CMD_0RES:";RIGHT$("0"+HEX$(PEEK(&HC006)),2)
1340 'PRINT "CMD_1RES:";RIGHT$("0"+HEX$(PEEK(&HC007)),2)
1350 'PRINT "CMD16RES:";RIGHT$("0"+HEX$(PEEK(&HC008)),2)
1360 'PRINT "CMD24RES:";RIGHT$("0"+HEX$(PEEK(&HC00A)),2)
1370 'PRINT "CMD24DRS:";RIGHT$("0"+HEX$(PEEK(&HC00B)),2)
1380 'FOR I=0 TO 511
1390 '  C=PEEK(&HC013+I):IF(C<32)OR(C=127)THEN C$="." ELSE C$=CHR$(C)
1400 '  PRINT C$;
1410 'NEXT I
1420 'PRINT:PRINT:RETURN
2000 FOR A1=0 TO &HFF
2010   FOR A2=0 TO &HFF
2020     FOR A3=1 TO &HFE STEP2
2030       POKE &H11,65
2040       D=USR1(0)
2050     NEXT A3
2060   NEXT A2
2070 NEXT A1
2080 END


苦悶式SDカード ５．８ あくまでもアップロードのテスト

えいや！っと。まだデバッグ中ですが、アップロードのテストしてみました。

ここにアップロードするとTABが半角スペースに変換されるので、コメントなどに半角スペースを使わないようにしました。いったんメモ帳などにコピーして、半角スペースをTABに置換したら元に戻るかな？と。

【追記】やってみると、そう簡単にはいかないようで。

でもASM.COMにはかけられるかもしんまい。

内容について。

コマンドレスポンスは正常に戻りますが、実際に読み書きできていないようです。ダメじゃん？CLKの上げ下げに問題があるのかなと試行錯誤中であります。

;===========================
;SD3.ASM
;
;ASM_SD2.ASM_XCD/B->SD2.OBJ
;Use_J-PORT_B
;(C)KIKI_2015
;===========================

PSGA EQU 0A0H ;PSG_R/W_ADRS
PSGW EQU 0A1H ;PSG_Write
PSGR EQU 0A2H ;PSG_Read
DO EQU 0 ;DO(#14-0)B-1pin
CS EQU 2 ;CS(#15-2)B-6pin
DIN EQU 3 ;DIN(#15-3)B-7pin
CLK EQU 5 ;CLK(#15-5)B-8pin
JPTB EQU 6 ;JPort-B(#15-6)
BREAKX EQU 000B7H ;BIOS_Ctrl+STOP
BDOS EQU 0F37DH ;BDOS_Call
WAIT EQU 01H ;WaitLoop

 ORG 0C000H

MAIN:;----------
 JP SDR ;USR0      =C000H
 JP SDW ;USR1      =C003H
;WORK----------
CMD0RS: DEFB 0FFH ;CMD0Res   =C006H
CMD1RS: DEFB 0FFH ;CMD1Res   =C007H
CMD16R: DEFB 0FFH ;CMD16Res  =C008H
CMD17R: DEFB 0FFH ;CMD17Res  =C009H
CMD24R: DEFB 0FFH ;CMD24Res  =C00AH
C24DR: DEFB 0FFH ;CMD24DR   =C00BH
STTBYT: DEFB 0FFH ;CMD17Start=C00CH
USRAG1: DEFB 00H ;USR_ARG1  =C00DH
USRAG2: DEFB 00H ;USR_AUG2  =C00EH
USRAG3: DEFB 00H ;USR_AUG3  =C00FH
USRAG4: DEFB 00H ;USR_AUG4  =C010H
CHAR: DEFB 40H ;WritDATA  =C011H
C24STB: DEFB 0FEH ;CMD24STB  =C012H
BUFF: DEFS 512 ;BUFF      =C013H
CRC: DEFS 2 ;BUFF_CRC
PSG0: DEFS 1 ;PSG_OrgData
PSG1: DEFS 1 ;PSG_NewData

CMD0: DEFB 40H,00H,00H,00H,00H,095H
CMD1: DEFB 41H,00H,00H,00H,00H,0F9H
CMD16: DEFB 50H,00H,00H,02H,00H,00H
CMD17: DEFB 51H
CMD17A: DEFB 00H
 DEFB 00H
 DEFB 00H
 DEFB 00H
 DEFB 00H
CMD24: DEFB 58H
CMD24A: DEFB 00H
 DEFB 00H
 DEFB 00H
 DEFB 00H
 DEFB 00H

SDR:;---------------------------
 DI
 CALL INIT
 CALL CMD7S
 CALL REPSG
 EI
 RET

SDW:;---------------------------
 DI
 CALL INIT
 CALL CMD4S
 CALL REPSG
 EI
 RET

INIT:;-------------------------------------------
 LD A,15  ;SavePSG_Data
 OUT (PSGA),A
 IN A,(PSGR)
 LD (PSG0),A
 SET JPTB,A  ;UseJPT-B
 LD (PSG1),A

;DummyCLK80------------------------------------
 CALL CSH  ;/CS=H
 CALL DINH  ;DIN=H
 CALL CLKL  ;CLK=L
 LD B,80  ;Dummy80CLK
DMY80L: CALL CLKH
 CALL CLKL
 DJNZ DMY80L
 CALL CSL  ;/CS=L

CMD0S:;-------------------------------------------
 LD HL,CMD0  ;CMD0_Start
 CALL CMDX
 LD B,80  ;Counter
 LD E,0FFH  ;E:Temp.
CMD0L: CALL CLKH
 LD A,14
 OUT (PSGA),A
 IN A,(PSGR)
 CALL CLKL
 RRA   ;bit0->Cy
 RL E  ;Ebit0<-Cy
 LD A,E
 LD (CMD0RS),A ;SaveCMD0Res
 CP 01H  ;A=01H?
 JR Z,CMD0OK ;Yes->CMD0OK
 SLA E  ;ShiftLeft
 DJNZ CMD0L
 LD DE,CMD0TO ;CMD0:TimeOut
 CALL PUTS
 RET
CMD0TO: DEFM 'CMD_0:TimeOut'
 DEFB 0DH,0AH,'$'
CMD0OK: LD DE,CMD0C ;CMD0:OK
 CALL PUTS
 JR CMD0E
CMD0C: DEFM 'CMD_0:Done'
 DEFB 0DH,0AH,'$'
CMD0E: CALL DMY8

CMD1S:;-----------------------------------------
 LD B,080H  ;Counter
 LD E,0FFH  ;E:Temp.
CMD1L1: LD HL,CMD1
 CALL CMDX
 LD C,32
CMD1L2: CALL CLKH
 LD A,14
 OUT (PSGA),A
 IN A,(PSGR)
 CALL CLKL
 RRA
 RL E
 LD A,E
 LD (CMD1RS),A ;SaveCMD1RS
 CP 00H  ;A=00H?
 JR Z,CMD1OK
 DEC C
 JR NZ,CMD1L2
 DJNZ CMD1L1
 LD DE,CMD1TO ;CMD1:TimeOut
 CALL PUTS
 RET
CMD1TO: DEFM 'CMD_1:TimeOut'
 DEFB 0DH,0AH,'$'
CMD1OK: LD DE,CMD1C
 CALL PUTS
 JR CMD1E
CMD1C: DEFM 'CMD_1:Done'
 DEFB 0DH,0AH,'$'
CMD1E: CALL DMY8

CMD6S:;CMD16-----------------------------------
 LD HL,CMD16 ;CMD16_Start
 CALL CMDX
 LD B,80  ;Counter
 LD E,0FFH  ;E:Temp.
CMD6L: CALL CLKH
 LD A,14
 OUT (PSGA),A
 IN A,(PSGR)
 CALL CLKL
 RRA   ;bit0->Cy
 RL E  ;Ebit0<-Cy
 LD A,E
 LD (CMD16R),A ;SaveCMD16Res
 CP 00H  ;A=00H?
 JR Z,CMD6OK ;Yes->CMD16OK
 SLA E  ;ShiftLeft
 DJNZ CMD6L
 LD DE,CMD6TO ;CMD16:TimeOut
 CALL PUTS
 RET
CMD6TO: DEFM 'CMD16:TimeOut'
 DEFB 0DH,0AH,'$'
CMD6OK: LD DE,CMD6C ;CMD16:OK
 CALL PUTS
 JR CMD6E
CMD6C: DEFM 'CMD16:Done'
 DEFB 0DH,0AH,'$'
CMD6E: CALL DMY8
 RET

CMD7S:;CMD17=Read-----------------------------------
 LD BC,4
 LD DE,CMD17A
 LD HL,USRAG1
 LDIR

 LD HL,CMD17 ;CMD17_Start
 CALL CMDX
 LD B,80  ;Counter
 LD E,0FFH  ;E:Temp.
CMD7L: CALL CLKH
 LD A,14
 OUT (PSGA),A
 IN A,(PSGR)
 CALL CLKL
 RRA   ;bit0->Cy
 RL E  ;Ebit0<-Cy
 LD A,E
 LD (CMD17R),A ;SaveCMD17Res
 CP 00H  ;A=00H?
 JR Z,CMD7OK ;Yes->CMD7OK
 SLA E  ;ShiftLeft
 DJNZ CMD7L
 LD DE,CMD7TO ;CMD7:TimeOut
 CALL PUTS
 RET
CMD7TO: DEFM 'CMD17:TimeOut'
 DEFB 0DH,0AH,'$'
CMD7OK: LD DE,CMD7C ;CMD7:OK
 CALL PUTS
 JR CMD7E
CMD7C: DEFM 'CMD17:Done'
 DEFB 0DH,0AH,'$'

CMD7E: LD B,80  ;Counter
 LD E,0FFH  ;E:Temp.
CMD7L2: CALL CLKH
 LD A,14
 OUT (PSGA),A
 IN A,(PSGR)
 CALL CLKL
 RRA   ;bit0->Cy
 RL E  ;Ebit0<-Cy
 LD A,E
 LD (STTBYT),A ;SaveStartByte
 CP 0FEH  ;A=FEH?
 JR Z,CMD7RK ;Yes->CMD17RK
 SLA E  ;SiftLeft
 DJNZ CMD7L2
 LD DE,CMD7RO ;CMD17:ReadTimeOut
 CALL PUTS
 RET
CMD7RO: DEFM 'CMD17:ReadTimeOut'
 DEFB 0DH,0AH,'$'
CMD7RK: LD DE,CMD7RC ;CMD17:ReadStartOK
 CALL PUTS
 JR CMD7RE
CMD7RC: DEFM 'CMD17:ReadStart'
 DEFB 0DH,0AH,'$'

CMD7RE: LD HL,BUFF
 LD BC,512  ;512Bytes
CMD7L3: PUSH BC
 PUSH HL
 LD E,0FFH  ;E:Temp.
 LD B,8
CMD7L4: CALL CLKH
 LD A,14
 OUT (PSGA),A
 IN A,(PSGR)
 CALL CLKL
 RRA   ;bit0->Cy
 RL E  ;Ebit0<-Cy
 DJNZ CMD7L4
 POP HL
 LD (HL),E
 INC HL
 POP BC
 DEC BC
 LD A,B
 OR C
 JR NZ,CMD7L3
 LD DE,CMD7EB ;CMD17:ReadEnd
 CALL PUTS
 JR CMD7ED
CMD7EB: DEFM 'CMD17:ReadEnd'
 DEFB 0DH,0AH,'$'
CMD7ED: CALL DMY8  ;CRC1
 CALL DMY8  ;CRC2
 CALL DMY8
 RET

CMD4S:;CMD24=Write-----------------------------------
 LD BC,512  ;Fill_BUFF_Char.
 LD HL,BUFF
 LD A,(CHAR)
 LD E,A
CMD4L1: LD (HL),E
 INC HL
 DEC BC
 LD A,B
 OR C
 JR NZ,CMD4L1

 LD BC,4
 LD DE,CMD24A
 LD HL,USRAG1
 LDIR

 LD HL,CMD24 ;CMD24_Start
 CALL CMDX
 LD B,80  ;Counter
 LD E,0FFH  ;E:Temp.
CMD4L2: CALL CLKH
 LD A,14
 OUT (PSGA),A
 IN A,(PSGR)
 CALL CLKL
 RRA   ;bit0->Cy
 RL E  ;Ebit0<-Cy
 LD A,E
 LD (CMD24R),A ;SaveCMD24Res
 CP 00H  ;A=00H?
 JR Z,CMD4OK ;Yes->CMD24OK
 SLA E  ;ShiftLeft
 DJNZ CMD4L2
 LD DE,CMD4TO ;CMD24:TimeOut
 CALL PUTS
 RET
CMD4TO: DEFM 'CMD24:TimeOut'
 DEFB 0DH,0AH,'$'
CMD4OK: LD DE,CMD4C ;CMD24:OK
 CALL PUTS
 JR CMD4E
CMD4C: DEFM 'CMD24:Done'
 DEFB 0DH,0AH,'$'

CMD4E: LD HL,C24STB ;CMD24StartByte
 LD BC,515  ;STB+512+CRC2Bytes
CMD4L3: PUSH BC
 LD A,(HL)
 CALL CMDW8
 INC HL
 POP BC
 DEC BC
 LD A,B
 OR C
 JR NZ,CMD4L3

CMD4L4: CALL CLKH
 LD A,14
 OUT (PSGA),A
 IN A,(PSGR)
 CALL CLKL
 RRA   ;bit0->Cy
 RL E  ;Ebit0<-Cy
 LD A,E
 LD (C24DR),A ;SaveCMD24DataRes
 AND 1FH  ;Mask  (00011111B)
 CP 05H  ;A=05H?(00000101B)
 JR Z,CMD4WK ;Yes->CMD24WK
 SLA E  ;ShiftLeft
 DJNZ CMD4L4
 LD DE,CMD4WO ;CMD24:ReadTimeOut
 CALL PUTS
 RET
CMD4WO: DEFM 'CMD24:TimeOut'
 DEFB 0DH,0AH,'$'
CMD4WK: LD DE,CMD4WT ;CMD24:WriteOK
 CALL PUTS
 JR CMD4BS
CMD4WT: DEFM 'CMD24:WriteOK'
 DEFB 0DH,0AH,'$'

CMD4BS: LD B,0  ;Counter
 LD E,0FFH  ;E:Temp.
CMD4L5: CALL CLKH
 LD A,14
 OUT (PSGA),A
 IN A,(PSGR)
 CALL CLKL
 RRA   ;bit0->Cy
 RL E  ;Ebit0<-Cy
 LD A,E
 CP 00H  ;A=00H(=Bussy)
 JR NZ,CMD4BK ;No->CMD24BK
 SLA E  ;ShiftLeft
 DJNZ CMD4L5
 LD DE,CMD4BO ;CMD24:BussyTimeOut
 CALL PUTS
 RET
CMD4BO: DEFM 'CMD24:BussyTimeOut'
 DEFB 0DH,0AH,'$'
CMD4BK: LD DE,CMD4FN ;CMD24:WriteFinished
 CALL PUTS
 JR CMD4WE
CMD4FN: DEFM 'CMD24:Finish'
 DEFB 0DH,0AH,'$'
CMD4WE: CALL DMY8
 RET

DMY8:;DummyCLK8-------------------
 CALL CSH  
 CALL DINH
 CALL CLKL
 LD B,8
DMY8L: CALL CLKH
 CALL CLKL
 DJNZ DMY8L
 CALL DINL
 CALL CSL
 RET

CMDX:;CMD_Handler-----------------
 LD A,(HL) ;CMD
 CALL CMDW8
 INC HL
 LD A,(HL) ;ARG1
 CALL CMDW8
 INC HL
 LD A,(HL) ;ARG2
 CALL CMDW8
 INC HL
 LD A,(HL) ;ARG3
 CALL CMDW8
 INC HL
 LD A,(HL) ;ARG4
 CALL CMDW8
 INC HL
 LD A,(HL) ;CRC
 CALL CMDW8
 RET

CMDW8: LD B,8
 CALL CLKL
CMDW8L: CALL CLKH
 RLA
 CALL C,DINH
 CALL NC,DINL
 CALL CLKL
 DJNZ CMDW8L
 RET

;CS_H/L------------------
CSH: PUSH AF
 LD A,15
 OUT (PSGA),A
 LD A,(PSG1)
 SET CS,A
 OUT (PSGW),A
 LD (PSG1),A
 POP AF
 RET

CSL: PUSH AF
 LD A,15
 OUT (PSGA),A
 LD A,(PSG1)
 RES CS,A
 OUT (PSGW),A
 LD (PSG1),A
 POP AF
 RET

;CLK_H/L------------------
CLKH: PUSH AF
 LD A,15
 OUT (PSGA),A
 LD A,(PSG1)
 SET CLK,A
 OUT (PSGW),A
 LD (PSG1),A
 CALL WLP
 POP AF
 RET

CLKL: PUSH AF
 LD A,15
 OUT (PSGA),A
 LD A,(PSG1)
 RES CLK,A
 OUT (PSGW),A
 LD (PSG1),A
 CALL WLP
 POP AF
 RET

;DIN_H/L------------------
DINH: PUSH AF
 LD A,15
 OUT (PSGA),A
 LD A,(PSG1)
 SET DIN,A
 OUT (PSGW),A
 LD (PSG1),A
 LD (DE),A
 POP AF
 RET

DINL: PUSH AF
 LD A,15
 OUT (PSGA),A
 LD A,(PSG1)
 RES DIN,A
 OUT (PSGW),A
 LD (PSG1),A
 LD (DE),A
 POP AF
 RET

REPSG:;RestorePSG---------------
 PUSH AF
 LD A,15
 OUT (PSGA),A
 LD A,(PSG0)
 OUT (PSGW),A
 POP AF
 RET

WLP:;WaitLoop-----------------
 PUSH AF
 PUSH BC
 LD B,WAIT
WLPL: DJNZ WLPL
 POP BC
 POP AF
 RET

;MarkingForDebug----------
MK: PUSH DE
 LD DE,MARK
 CALL PUTS
 POP DE
 RET
MARK: DEFM '.$'

;PutString(BDOS-CALL)-----
PUTS: PUSH AF
 PUSH BC
 PUSH DE
 PUSH HL
 LD C,9
 CALL BDOS
 POP HL
 POP DE
 POP BC
 POP AF
 RET

 END


現実逃避日和

多少現実逃避気味の今日この頃。

先日触れた小型LCDを発作的にMSXのJポートに接続できるカタチにしました。左にあるのは例によって、サイズ比較見本のNATO5.56mm弾。以前「どこのご家庭でもお馴染みの」とサイズ比較見本に使って以来の習慣ですが、なんだか最近、冗談で済まなくなってきたような気がします。こういう冗談は自粛したほうがいいのでしょうかね？　って、自粛する気は全然ないけれどｗ

逆挿し防止のためにLCDの土台部分に「LCD」と、ダイモのテープをかっこよく貼ろうと思ったら、肝心なときにダイモが見当たらない。だいなしやな。已む無く手書きと相成りました。ダイモが見つかったら上から貼ります。

ほいで作ってから気が付きましたが、小さく作り過ぎて多くのMSXでは筐体と干渉して挿せないのね（大笑い）。っていうか、挿せるのは１chipMSXぐらいじゃないかしら？　そういうときこそコレの出番です。「MSXジョイスティックポート延長コネクタ」。こういう製品が、製品としてあるのがMSXの不思議な世界です。１個500円（内税）。

[電子部品通販 M.A.D.]

http://oaktree.ddo.jp/ass7/ass7.cgi

取り急ぎ紹介したくて写真を無断借用してしまいました。後ほど改めて使用願いを提出させていただきます。

さて、LCDのハードウエアは作ったものの、まだ１文字の表示もしていません。I2Cの勉強から始めないと。しかし、世の中にはこういうクールなことをやってのける人もいるのですなあ。PICを使っているそうですが処理速度以外はMSXも負けてないぞ！　やってやれないことはない！かもしれないｗ

I2C-LCD (AQM0802A) Graph drawing technique with PIC  

https://www.youtube.com/watch?v=QdaBERh0mT4

おっとその前にSDCをなんとかしないと（・∀・；）

精神修養

バグ取りにいささか飽きてきたので、今日は部品取りしました。かつてヤフオクで入手したジャンクをバラしました。ハズせるところまでバラバラにするのは、一種の快感がありますね。猟奇的？ぼくだけかな？

そのうえで、しげしげと基板に見入ります。プリンタ端子などは労多くして功少なし。ハンダ大盛りでガッチリ固定されています。やはり狙うのはIC類。あまり足の多いのはウンザリしますが。下の写真はその一部。

Z80はいくつか持ってます。MSXに限らず、最期を看取ったPCはデスクトップ・ノートにかかわらずCPUを形見に残しています。ペンティアムとかセレロンとか。MZ-80Cの形見のZ80もどこかに眠っているはず。

YAMAHAのYZなんちゃらは、PSG（AY-3-8910）のちょっびっと改良版ですね。いつかいじってみたいものです。ソフトウエア的にではなく、ハードウエア的にパッチングで音色を変えるなんてことはできるのでしょうか？

右上のMCMなんちゃらは2KBのDRAMです。SONY HB-75のVRAMに使われていたものです。外してみたものの使い道が考え付きません。同じ基板にはでっかい8255も載っています。そのうち外してやろう。

三端子レギュレータ7812は外したものの在庫十分。10.738MHzの水晶発振子が2個入手できました。あとはもうどうでもいいものばかりですね。

部品ほしさに、ではなくて精神修養代わりに部品取りしています。ハンダを溶かして吸い込む道具も持っていますが、ハンダ吸い取り線（線というより網ですが）で、丁寧にぬぐっていくほうが精神修養っぽいですな。部品取りは冬のほうがいいです。夏は汗が基板に落ちないよう気をつかいます。

さて、お勤めが終わって明日からSDCとの格闘再開。なんか「やれやれ」って気分になってきたぞｗ（・∀・）

苦悶式SDカード ５．７ セクター読み書きテスト中

まだ読み出しのデバッグが終わってないというのに、書き込みコマンドに手を付けちゃいました。書き込みのほうが一手間多いのに、なんか上手くいっているみたい。使用したカードは、Ｃanonのコンパクトデジカメについていた16MBのSDC。16GBちゃいませ、16MBでっせ。そういう時代もあったのですなあ。と感慨に耽っている場合ではありません。

 

まず、SDCのコマンドについておさらい。

一般に次の６バイトの形式で発行します。

　　［CMD］［ARG1］［ARG2］［ARG3］［ARG4］［CRC］

［CMD］の部分は、読み出しなら［0x51］、書き込みなら［0x58］を入れます。続く［ARG1］〜［ARG4］は引数で、512バイト目から読み書きしたいときは、

　　［0ｘ00］［0ｘ00］［0ｘ02］［0ｘ00］

となります。多くの場合、512Bが1単位となりますから、［ARG4］は［0ｘ00］のままで、［ARG1］［ARG2］［ARG3］の3バイトでアドレスを指定することになります。［ARG3］に注目すると、第0セクタのときは［0ｘ00］、512バイト目からの第1セクタのときは［0ｘ02］、第2セクタのときは［0ｘ04］・・・と偶数になるわけですね。

最後の［CRC］は、SPIモードでアクセスするときに意味を持つのは［CMD0］のときだけで［0ｘ95］となります。

 

まとめると、

　　CMD  0：［0x40］［0ｘ00］［0ｘ00］［0ｘ00］［0ｘ00］［0x95］

　　CMD  1：［0x41］［0ｘ00］［0ｘ00］［0ｘ00］［0ｘ00］［0xF9］

　　CMD16：［0x50］［0ｘ00］［0ｘ00］［0ｘ02］［0ｘ00］［0x00］

　　CMD17：［0x51］［0ｘ00］［0ｘ00］［0ｘ00］［0ｘ00］［0x00］

　　CMD24：［0x58］［0ｘ00］［0ｘ00］［0ｘ00］［0ｘ00］［0x00］

これだけ知っていれば、初期化して（CMD0、CMD1）、512B単位に設定して（CMD16）、読み（CMD17）、書き（CMD24）ができます。

 

 

さて、ここでどうしようかな？というのが、MSX-BASICからの引数の渡し方です。

2バイト整数で渡せばいいじゃん♪と思っていたら、SDCのセクタ数はもっと多いのですね。MSX-BASICの2バイト整数は正負ありなので−32768〜32767の範囲。しかし今回は正の偶数のみなので、2倍して32767より小さい16383がA=USR(n×2)のnに入る最大値ということになる？（間違ってたら教えてね。）

512B × 16383 ＝8,388,096B、つまり8MB余りが2バイト整数でアクセスできる限界？

「いや、そこは単精度なり倍精度を使えばいいじゃん」と思うかもしれませんが、MSX-BASICでは内部的には単精度や倍精度はBCD形式になってるんですよね。だからメモリからSDCにポイポイと［ARG1］［ARG2］［ARG3］の3バイトに放り込めないのですよ。一個ずつPOKEするしか思いつきません。

3バイト使えば、512B × 0xFF × 0xFF × 0xFE ＝ 8,456,371,200B。およそ8.5GBまでアクセスできるんですねえ。・・・ってこれで合ってるの？　なんかメチャ少ないんですけど？

 

ま、苦手な計算は得意な人に任せておいて、下の写真でも眺めていただきましょう。

CMD24で書き込みのテストをしているところです。左端の上の［ARG1］〜［ARG3］はコマンドの引数（［ARG4］がないのはどうせ0x00だから）。次の［CHAR］は書き込みたい文字。512Bのバッファをこの文字で埋めます。［CMD_0:Done］から［CMD24:Finish］まではマシン語が返しているメッセージ。

続く［CMD_0RES:01］から［CMD24DRS:05］は、BASICがマシン語のワークエリアから拾ってきたコマンドレスポンス。全て正しいレスポンスが返ってるでしょ？

ほいで、書き込みを指示した文字が「ｗ」だから「ｗｗｗｗｗｗｗｗ」となっているわけです。

最後の「R/W」は、本当は先頭にあって「読み込み/書き込み」を選択します。

というわけで、だいたいの機能は盛り込めたと思うのですが、最初に書いたように、読み込みのデバッグがまだ出来てないのですよ >┼○ バタッ

 

書き込みも、本当に書き込めているのかSDCのセクタ毎にダンプできるツールで確かめてみたいところです。

今日はここまで来ました（・∀・）