復活！ＣＰ／Ｍ ワンボードマイコンでＣＰ／Ｍを！
ＣＰ／ＭがＴＫ－８０互換のワンボードマイコンの上で復活します
ＮＤ８０ＺⅢとＭＹＣＰＵ８０の上でＣＰ／Ｍが走ります！
［第２００回］
●ファンクションコール０ＦＨ（ファイルオープン）とファンクションコール１４Ｈ（シーケンシャルリード）
ＲＡＭディスク版での説明は［第１３４回］ですが、テストプログラムＦＴＥＳＴ４のリストは［第４９回］にあります。
今までのテストプログラムと同じ要領で、ＦＴＥＳＴ４を６４ＫＢフルＲＡＭに対応するように変更して、ＶＦＴＳＴ４を作成しました。
ＶＦＴＳＴ４はＴＹＰＥコマンドと同じ動作をします。
テキストファイルを読み込んで、その内容をコンソールに表示します。
［第１３４回］と同じ要領でＶＦＴＳＴ４．ＴＸＴをＶＦＴＳＴ４－１．ＴＸＴの名前でＡドライブにセーブしてから、それをＶＦＴＳＴ４で読み出して内容を表示します。
今回はＣＯＰＹコマンドが使えますから、［第１３４回］よりもファイル操作はうんと簡単になりました。
A>copy z:vftst4.bin A>copy z:vftst4.txt A>ren vftst4.txt vftst4-1.txt A>dir A: F80 COM : HELL1 FOR : HELL1 REL : HELLO FOR A: HELLO REL : HELL2 FOR : HELL2 REL : HELL3 FOR A: HELL3 REL : M80 COM : MVFTST1 MAC : MVFTST1 REL A: MVFTST1B MAC : MVFTST1B PRN : MVFTST1B REL : MVFTST1C MAC A: MVFTST1C PRN : MVFTST1C REL : L80 COM : MVFTST1C COM A: VFTST1 COM : FORLIB REL : HELLO COM : MVFTST1D MAC A: MVFTST1D PRN : MVFTST1D REL : MVFTST1D COM : MVFTST1E MAC A: MVFTST1E PRN : MVFTST1E REL : MVFTST1E COM : MVFTST1F MAC A: MVFTST1F PRN : MVFTST1F REL : MVFTST1F COM : MVFTST1G MAC A: MVFTST1G PRN : MVFTST1G REL : MVFTST1G COM : VFTST9 COM A: VFTST2 COM : VFTST4 COM : VFTST4-1 TXT A> |
A>vftst4 vftst4-1.txt VFTST4 VFTST4-1.TXT4-1.TBv3v3v3v3v3v3v3v3v3v3v3v3v3v3v3v3v3v3v3v3v3v3v3v3v3v3v3v3v3v3v3v3v3v3v3v3v3v3v3v3v3v3v3v3v3v3v3v3v3v3v3v3v3v3v3v3v3v3v3v3v3v3v3v3v3v3v3v3v3v3v3v3v3v3v3v3v3v3v3v3v3v3v3v? A> |
A>vftst4 vftst4-1.txt
; BDOS TEST4 TYPE
;2012/2/28 8/17
;
ORG $0100
FCALL=$0005
FCB=$005C
RECNO=$007C
DMA=$0080
;
LD C,0F;open
LD DE,FCB
CALL FCALL
INC A;if FFH?
JP Z,ERR
XOR A
LD (RECNO),A
;
LOOP1: LD C,14;read
LD DE,FCB
CALL FCALL
OR A
RET NZ;read end
;
LD HL,DMA
LOOP2:LD E,(HL)
LD C,02
PUSH HL
CALL FCALL
POP HL
INC L
JP NZ,LOOP2
JP LOOP1
;
ERR:LD DE,ERRMSG
LD C,09
CALL FCALL
RET
ERRMSG:"can'"
"t op"
"en"
DB 0D
DB 0A
DB 24;$
;
\V@kl-u:}.}n}.17w}(",+_
TyTZno;gpwgWg{u+V>d
A>end of ZBDOS
|
logfile nd80zlog\08182127.txt open
ＮＤ８０ＺⅢに接続しました
0001 0000 - z
1000 00C3 -
*** nd80z3 basic ****
can't open D.vfd
>jp d233
A>copy z:vftst4.bin
A>copy z:vftst4.txt
A>ren vftst4.txt vftst4-1.txt
err
A>era vftst4-1.txt
A>ren vftst4.txt vftst4-1.txt
A>vftst4 vftst4-1.txt
; BDOS TEST4 TYPE
;2012/2/28 8/17 8/18
;
ORG $0100
FCALL=$0005
FCB=$005C
RECNO=$007C
DMA=$0080
;
LD C,0F;open
LD DE,FCB
CALL FCALL
INC A;if FFH?
JP Z,ERR
XOR A
LD (RECNO),A
;
LOOP1: LD C,14;read
LD DE,FCB
CALL FCALL
OR A
RET NZ;read end
;
LD HL,DMA
LOOP2:LD E,(HL)
LD A,E
CP 1A;EOF
RET Z
LD C,02
PUSH HL
CALL FCALL
POP HL
INC L
JP NZ,LOOP2
JP LOOP1
;
ERR:LD DE,ERRMSG
LD C,09
CALL FCALL
RET
ERRMSG:"can'"
"t op"
"en"
DB 0D
DB 0A
DB 24;$
;
A>end of ZBDOS
>0000 00C3 -
リモート接続を終了しました
logfile closed at Sat Aug 18 21:31:19 2012
|