ＭＹＣＰＵ８０でＣＰ／Ｍを！
超巨大基板の８０８０互換ＨＣＭＯＳ・ＣＰＵでＣＰ／Ｍを走らせてしまおうという、なんとも狂気なプロジェクトです！
［第１２８回］
●ファンクション２４（２）
ファンクション２４は「ワンボードマイコンでＣＰ／Ｍを！」［第２３３回］～「ワンボードマイコンでＣＰ／Ｍを！」［第２３５回］でテストをしています。
前回は「ワンボードマイコンでＣＰ／Ｍを！」［第２３３回］と同じように、ファンクション２４のテストをするための前準備として、シーケンシャルファイルＴＥＳＴ．ＳＡＦを作成しました。
そしてＴＥＳＴ．ＳＡＦが正しく作成されたかどうかを確かめるために、ＶＦＤＵＭＰでＢドライブのセクタを直接読んで確認をしました。
「ワンボードマイコンでＣＰ／Ｍを！」［第２３４回ではＶＦＴＳＴ２４．ＣＯＭを作って、ＴＥＳＴ．ＳＡＦの内容を読み出しています。
今回もそれと同じテストをしてみることにします。
テストプログラムＶＦＴＳＴ２４のソースプログラムをインテルニーモニックに書き直してＭＦＴＳＴ２４を作りました。
●テストプログラムＭＦＴＳＴ２４
ＭＦＴＳＴ２４のソースプログラムです。
; BDOS VFTST24 file read
; from ftest4-1.txt & ftest3dm.txt
;2012/2/28
;4/30
;10/18
;
ORG $0100
FCALL=$0005
FCB=$005C
RECNO=$007C
DMA=$0080
;
MVI C,0F;open
LXI D,FCB
CALL FCALL
INR A;if FFH?
JZ ERR
XRA A
STA RECNO
;
LOOP1:MVI C,14;read
LXI D,FCB
CALL FCALL
ORA A
RNZ;read end
;
LDA RECNO
CALL B2HEXDP
MVI A,28;(
CALL ADP
LXI H,DMA
MOV C,M
INX H
MOV A,M
CALL B2HEXDP
MOV A,C
CALL B2HEXDP
MVI A,29;)
CALL ADP
CALL SPDP
CALL SPDP
JMP LOOP1
;
;CL & LF
CRLF:MVI A,0D
CALL ADP
MVI A,0A
JMP ADP
;space disp
SPDP:MVI A,20
;A disp
ADP:PUSH B
PUSH H
MOV E,A
MVI C,02
CALL FCALL
POP H
POP B
RET
;binary to hex, 2bytes data to ascii 4charactors,HL to HL,DE
B2HEX4:MOV A,H
CALL B2HEX2
XCHG
MOV A,E
;binary to hex, 1byte data to ascii 2charactors,A to DE
B2HEX2:PUSH PSW
RRC
RRC
RRC
RRC
CALL B2HEX1
MOV D,A
POP PSW
CALL B2HEX1
MOV E,A
RET
;binary to hex, low 4bit to ascii 1charactor
B2HEX1:ANI 0F
ADI 30
CPI 3A
RC;0-9
ADI 07;A-F
RET
;hex to binary, ascii 1charactor to low 4bit
HTOB1:CPI 30;>="0"?
RC;no
CPI 3A;<="9"?
JC HTOB1_2;yes,"0" to "9"
CPI 41;>="A" ?
RC;no
CPI 47;<="F"?
JC HTOB1_1
CPI 61;>="a"?
RC;no
CPI 67;<="f"?
CMC
RC;no
HTOB1_1:ADI 09;41 to 46 -> 4A to 4F,or 61 to 67 -> 6A to 6F
HTOB1_2:ANI 0F
RET
;HL(bynary 2bytes) to asckii 4bytes & disp
HEX4DP:PUSH B
PUSH H
CALL B2HEX4;binary 2 bytes to ascii HEX 4bytes
PUSH D
XCHG
CALL DEDP
POP D
CALL DEDP
POP H
POP B
RET
;A(binary) to asckii 2bytes HEX & disp
B2HEXDP:PUSH B
PUSH H
CALL B2HEX2
CALL DEDP
POP H
POP B
RET
;
;DE(asckii 2bytes) disp
DEDP:PUSH D
MOV E,D
MVI C,02
CALL FCALL
POP D
MVI C,02
CALL FCALL
RET
;
ERR:LXI D,ERRMSG
MVI C,09
CALL FCALL
RET
ERRMSG:"can'"
"t op"
"en"
DB 0D
DB 0A
DB 24;$
;
|
2015/2/3 15:13 mftst24.txt
END=01D1
; BDOS VFTST24 file read
; from ftest4-1.txt & ftest3dm.txt
;2012/2/28
;4/30
;10/18
;
ORG $0100
FCALL=$0005
FCB=$005C
RECNO=$007C
DMA=$0080
;
0100 0E0F MVI C,0F;open
0102 115C00 LXI D,FCB
0105 CD0500 CALL FCALL
0108 3C INR A;if FFH?
0109 CABC01 JZ ERR
010C AF XRA A
010D 327C00 STA RECNO
;
0110 0E14 LOOP1:MVI C,14;read
0112 115C00 LXI D,FCB
0115 CD0500 CALL FCALL
0118 B7 ORA A
0119 C0 RNZ;read end
;
011A 3A7C00 LDA RECNO
011D CDA301 CALL B2HEXDP
0120 3E28 MVI A,28;(
0122 CD4C01 CALL ADP
0125 218000 LXI H,DMA
0128 4E MOV C,M
0129 23 INX H
012A 7E MOV A,M
012B CDA301 CALL B2HEXDP
012E 79 MOV A,C
012F CDA301 CALL B2HEXDP
0132 3E29 MVI A,29;)
0134 CD4C01 CALL ADP
0137 CD4A01 CALL SPDP
013A CD4A01 CALL SPDP
013D C31001 JMP LOOP1
;
;CL & LF
0140 3E0D CRLF:MVI A,0D
0142 CD4C01 CALL ADP
0145 3E0A MVI A,0A
0147 C34C01 JMP ADP
;space disp
014A 3E20 SPDP:MVI A,20
;A disp
014C C5 ADP:PUSH B
014D E5 PUSH H
014E 5F MOV E,A
014F 0E02 MVI C,02
0151 CD0500 CALL FCALL
0154 E1 POP H
0155 C1 POP B
0156 C9 RET
;binary to hex, 2bytes data to ascii 4charactors,HL to HL,DE
0157 7C B2HEX4:MOV A,H
0158 CD5D01 CALL B2HEX2
015B EB XCHG
015C 7B MOV A,E
;binary to hex, 1byte data to ascii 2charactors,A to DE
015D F5 B2HEX2:PUSH PSW
015E 0F RRC
015F 0F RRC
0160 0F RRC
0161 0F RRC
0162 CD6C01 CALL B2HEX1
0165 57 MOV D,A
0166 F1 POP PSW
0167 CD6C01 CALL B2HEX1
016A 5F MOV E,A
016B C9 RET
;binary to hex, low 4bit to ascii 1charactor
016C E60F B2HEX1:ANI 0F
016E C630 ADI 30
0170 FE3A CPI 3A
0172 D8 RC;0-9
0173 C607 ADI 07;A-F
0175 C9 RET
;hex to binary, ascii 1charactor to low 4bit
0176 FE30 HTOB1:CPI 30;>="0"?
0178 D8 RC;no
0179 FE3A CPI 3A;<="9"?
017B DA8F01 JC HTOB1_2;yes,"0" to "9"
017E FE41 CPI 41;>="A" ?
0180 D8 RC;no
0181 FE47 CPI 47;<="F"?
0183 DA8D01 JC HTOB1_1
0186 FE61 CPI 61;>="a"?
0188 D8 RC;no
0189 FE67 CPI 67;<="f"?
018B 3F CMC
018C D8 RC;no
018D C609 HTOB1_1:ADI 09;41 to 46 -> 4A to 4F,or 61 to 67 -> 6A to 6F
018F E60F HTOB1_2:ANI 0F
0191 C9 RET
;HL(bynary 2bytes) to asckii 4bytes & disp
0192 C5 HEX4DP:PUSH B
0193 E5 PUSH H
0194 CD5701 CALL B2HEX4;binary 2 bytes to ascii HEX 4bytes
0197 D5 PUSH D
0198 EB XCHG
0199 CDAE01 CALL DEDP
019C D1 POP D
019D CDAE01 CALL DEDP
01A0 E1 POP H
01A1 C1 POP B
01A2 C9 RET
;A(binary) to asckii 2bytes HEX & disp
01A3 C5 B2HEXDP:PUSH B
01A4 E5 PUSH H
01A5 CD5D01 CALL B2HEX2
01A8 CDAE01 CALL DEDP
01AB E1 POP H
01AC C1 POP B
01AD C9 RET
;
;DE(asckii 2bytes) disp
01AE D5 DEDP:PUSH D
01AF 5A MOV E,D
01B0 0E02 MVI C,02
01B2 CD0500 CALL FCALL
01B5 D1 POP D
01B6 0E02 MVI C,02
01B8 CD0500 CALL FCALL
01BB C9 RET
;
01BC 11C501 ERR:LXI D,ERRMSG
01BF 0E09 MVI C,09
01C1 CD0500 CALL FCALL
01C4 C9 RET
01C5 63616E27 ERRMSG:"can'"
01C9 74206F70 "t op"
01CD 656E "en"
01CF 0D DB 0D
01D0 0A DB 0A
01D1 24 DB 24;$
;
ADP =014C B2HEX1 =016C B2HEX2 =015D
B2HEX4 =0157 B2HEXDP =01A3 CRLF =0140
DEDP =01AE DMA =0080 ERR =01BC
ERRMSG =01C5 FCALL =0005 FCB =005C
HEX4DP =0192 HTOB1 =0176 HTOB1_1 =018D
HTOB1_2 =018F LOOP1 =0110 RECNO =007C
SPDP =014A
|
