復活！ＣＰ／Ｍ ワンボードマイコンでＣＰ／Ｍを！
ＣＰ／ＭがＴＫ－８０互換のワンボードマイコンの上で復活します
ＮＤ８０ＺⅢとＭＹＣＰＵ８０の上でＣＰ／Ｍが走ります！
［第２３３回］
●ファンクションコール２４Ｈ（ランダムレコードアクセスポインタの更新）
ファンクションコール２４Ｈについては［第１１１回］で説明をしています。
ちょっとどう使うのかよくわからないファンクションです。
そのテストについては、［第１１１回］～［第１１３回］で行なっています。
仮ＲＡＭディスクを使ったＣＰ／Ｍ互換ＤＯＳ上でのテストについては［第１４９回］で説明をしていますが、［第１１１回］～［第１１３回］と同じことをやっているだけのようです。
とはいえかなり時間がたってしまって、もうすっかり忘れてしまいましたから、あらためて［第１１１回］～［第１１３回］を読み直してみました。
しかし、まあ、やっぱりなんだかなあ、という感じのファンクションコールです。
とにかくはテストしないことには終わりませんから、あまり深くは考えないことにして、［第１４９回］と同様、［第１１１回］～［第１１３回］と同じことをしてみます。
［第１１１回］ではＦＴＳＴ２３．ＣＯＭを使ってシーケンシャルファイルＴＥＳＴ．ＳＡＦを作成しています。
［第１１２回］ではＦＴＳＴ２４．ＣＯＭを使って、ＴＥＳＴ．ＳＡＦの内容を読み出しています。
［第１１３回］ではＦＴＳＴ２４．ＣＯＭにファンクションコール２４Ｈを追加したＦＴＳＴ２５．ＣＯＭを作って、実行しています。
今回も余り時間がありませんから、まずはシーケンシャルファイルＴＥＳＴ．ＳＡＦを作成するところまでをやってみることにします。
ＦＴＳＴ２３をフルＲＡＭ用に一部を書き換えてファイル名をＶＦＴＳＴ２３にしました。
●ソースプログラムＶＦＴＳＴ２３
; BDOS VFTST23 sequential file make
;ftom ftst5cpy.txt
;2012/3/4 3/7
;2012/4/30
;10/17
;
ORG $0100
FCALL=$0005
FCB=$005C
RECNO=$007C
DMA=$0080
;
LD C,16;make file
LD DE,FCB
CALL FCALL
INC A;if FFH?
JP Z,DFULERR
;
XOR A
LD (RECNO),A
LD BC,$0000
;
LOOP:LD E,40
LD HL,DMA
LOOP1:LD (HL),C
INC HL
LD (HL),B
INC HL
DEC E
JP NZ,LOOP1
PUSH BC
PUSH DE
LD C,15;write
LD DE,FCB
CALL FCALL
INC A;if FFH?
POP DE
POP BC
JP Z,DFULERR
INC BC
LD A,B
CP 02
JP NZ,LOOP
;
CLOSE:LD C,10;close
LD DE,FCB
CALL FCALL
INC A;if FFH?
JP Z,CLOSERR
LD DE,OK
JP MSGOUT
;
DFULERR:LD DE,DFULL
JP MSGOUT
CLOSERR:LD DE,CANTCLS
MSGOUT:LD C,09
CALL FCALL
RET
;
DFULL:"disk"
" ful"
"l!"
DB 0D
DB 0A
DB 24;$
CANTCLS:"can'"
"t cl"
"ose!"
DB 0D
DB 0A
DB 24;$
OK:"done"
DB 0D
DB 0A
DB 24;$
;
|
