復活！ＣＰ／Ｍ ワンボードマイコンでＣＰ／Ｍを！
ＣＰ／ＭがＴＫ－８０互換のワンボードマイコンの上で復活します
ＮＤ８０ＺⅢとＭＹＣＰＵ８０の上でＣＰ／Ｍが走ります！
［第４２８回］
●Ｍ８０用プログラムを添付していただきました
［第４２６回］で、文字を着色指定するエスケープシーケンスを使ったテストプログラムをＺＢ３ＢＡＳＩＣとＺ８０アセンブラで作って、そのリストをお見せしました。
そうしましたら長野県のＮ様からメールをいただきました。
Ｚ８０アセンブラのプログラムをＭ８０（ＭＡＣＲＯ－８０）用に書き直しました、ということでソースプログラムを添付していただきました。
ＭＡＣＲＯ－８０は［第１８９回］～［第１９５回］でご紹介いたしました。
Ｍｉｃｒｏｓｏｆｔのマクロアセンブラです。
私はしかしそれよりは機能はちょいと低いですけれど、ずっと昔に自作したＺ８０アセンブラを使っておりまして、Ｍ－８０アセンブラは使ったことがありません。
あ。
その中日電工のオリジナルＺ８０アセンブラＺＡＳＭ．ＣＯＭはＮＤ８０ＺⅢ（ＮＤ８０Ｚ３．５）付属ＣＤＲＯＭに入っております。
せっかくこうしてＣＰ／Ｍ互換ＤＯＳの検証をしているところですので、ＣＰ／Ｍの上で動くＭ－８０アセンブラを使うとよいのですけれど、なにしろ使ったことがないものですから、ものすごいボリュームの英文マニュアルと首っ引きでサンプルプログラムを書いている余裕などとてもありません。
そこへいきますと、なんたってＺＡＳＭは自作のＺ８０アセンブラですから、これはもう目をつぶっていたって書けてしまいます。
勢い、ＣＰ／Ｍ互換ＤＯＳ用のサンプルとしてはいかがなものか、と思いつつも、ついＭＡＣＲＯ－８０ではなくて、自作のＺＡＳＭを使ってしまいます。
そうしたところに思わぬ援軍です。
これは有難いことです。
さっそくＮ様にお許しをいただいて、せっかく作っていただいたＭ－８０用のアセンブラソースプログラムを皆様にもご紹介いたします。
Ｍ－８０用のプログラムを書く場合の参考にしてくださいませ。
あれ。今メールを確認しましたら、まだＮ様からはっきりしたご返事をいただいておりませんでした。
あ。しかし。皆様方の参考にしていただくためのサンプルですから、Ｎ様もきっとご快諾されることと思います。
;ESC[2J clear screen test ;ESC[xm color disp test ;2013/6/23 6/26 .Z80 ASEG ORG 100h FCALL EQU 0005h ; LD DE,LIST1 LD C,09h CALL FCALL LD E,01Bh LD C,02h CALL FCALL LD DE,LIST2 LD C,09h CALL FCALL LD DE,LIST3 LD C,09h CALL FCALL ; LD E,1Bh LD C,02h CALL FCALL LD DE,BGBLU LD C,09h CALL FCALL ; LD E,1Bh LD C,02h CALL FCALL LD DE,BGBLK LD C,09h CALL FCALL ; LD E,1Bh LD C,02h CALL FCALL LD DE,BGW LD C,09h CALL FCALL ; LD E,1Bh LD C,02h CALL FCALL LD DE,RED LD C,09h CALL FCALL ; LD E,1Bh LD C,02h CALL FCALL LD DE,GREEN LD C,09h CALL FCALL ; LD E,1Bh LD C,02h CALL FCALL LD DE,BGM LD C,09h CALL FCALL ; LD E,1Bh LD C,02h CALL FCALL LD DE,YELOW LD C,09h CALL FCALL ; LD E,1Bh LD C,02h CALL FCALL LD DE,BGG LD C,09h CALL FCALL ; LD E,1Bh LD C,02h CALL FCALL LD DE,BLUE LD C,09h CALL FCALL ; LD E,1Bh LD C,02h CALL FCALL LD DE,BGC LD C,09h CALL FCALL ; LD E,1Bh LD C,02h CALL FCALL LD DE,MAG LD C,09h CALL FCALL ; LD E,1Bh LD C,02h CALL FCALL LD DE,BGY LD C,09h CALL FCALL ; LD E,1Bh LD C,02h CALL FCALL LD DE,CYAN LD C,09h CALL FCALL ; LD E,1Bh LD C,02h CALL FCALL LD DE,WHITE LD C,09h CALL FCALL ; LD E,1Bh LD C,02h CALL FCALL LD DE,STN LD C,09h CALL FCALL ; LD E,1Bh LD C,02h CALL FCALL LD DE,BGR LD C,09h CALL FCALL ; LD E,1Bh LD C,02h CALL FCALL LD DE,BGSTN LD C,09h CALL FCALL RET LIST1: DB '*** ESC clear screen test ***$' LIST2: DB '[2J$' LIST3: DB '*** ESC[2J clear screen test end' DB 0Dh,0Ah,24h ; BLACK: DB '[30mCOLOR',3Dh,'BLACK $' RED: DB '[31mCOLOR',3Dh,'RED $' GREEN: DB '[32mCOLOR',3Dh,'GREEN $' YELOW: DB '[33mCOLOR',3Dh,'YELLOW $' BLUE: DB '[34mCOLOR',3Dh,'BLUE $' MAG: DB '[35mCOLOR',3Dh,'MAGENTA $' CYAN: DB '[36mCOLOR',3Dh,'CYAN $' WHITE: DB '[37mCOLOR',3Dh,'WHITE $' STN: DB '[39mCOLOR',3Dh,'STANDARD $' BGBLK: DB '[40mCOLOR',3Dh,'BLACK $' BGR: DB '[41mBGCOLOR',3Dh,'RED $' BGG: DB '[42mBGCOLOR',3Dh,'GREEN $' BGY: DB '[43mBGCOLOR',3Dh,'YELLOW $' BGBLU: DB '[44mBGCOLOR',3Dh,'BLUE $' BGM: DB '[45mBGCOLOR',3Dh,'MAGENTA $' BGC: DB '[46mBGCOLOR',3Dh,'WHITE $' BGW: DB '[47mBGCOLOR',3Dh,'WHITE $' BGSTN: DB '[49mBGCOLOR',3Dh,'STANDARD $' ; END |
.Z80 ASEG ORG 100h ; *** ESC test *** ; ESC ONLY TEST PROGRAM ; CR EQU 0Dh LF EQU 0Ah ESC EQU 1Bh FCALL EQU 0005h ; JP START ; START: LD DE,DSP00 LD C,09h CALL FCALL ; LD B,7 ; SLOP1: PUSH BC CALL DSUB1 POP BC ; DJNZ SLOP1; ; ; CALL DSUB2 ; LD C,09h ;DSP01 LD DE,DSP01 CALL FCALL ; RET ;CP/M END ; DSUB2: LD B,24 LD HL,DSP0A LOPS2: PUSH BC PUSH HL ; LD C,02h LD E,(HL) CALL FCALL ; ; PUSH HL PUSH BC CALL CRLFS POP BC POP HL ; ; POP HL POP BC ・ INC HL DJNZ LOPS2 ; RET ; ; ; DSUB1: LD B,10 LD HL,DSPNO LOPSM: PUSH BC PUSH HL LD C,02h LD E,(HL) CALL FCALL POP HL INC HL POP BC ; DJNZ LOPSM ; RET ; CRLFS: LD C,02h LD E,CR CALL FCALL ; LD C,02h LD E,LF CALL FCALL ; RET ; ; ; DSP00: DB ESC,'[2J$' DSPNO: DB '0123456789' DSP01: DB ESC,3Dh,'(6(1)y',3Dh,'8,x',3Dh,'22' DSP02: DB ESC,'[3A(2)up3' DSP03: DB ESC,'[12C(3)rigft12' DSP04: DB ESC,'[7B(4)down7' DSP05: DB ESC,'[47D(5)left47' DSP06: DB ESC,'[1B(6)down1**1234567890' DSP07: DB 'abcdefghijklmnopqrstuvwxyz' DSP08: DB ESC,'[10D(7)' DSP09: DB ESC,'[K(8)$' DSP0A: DB ' ABCDEFGHIJKLMNOPQRSTUVWXYZ' END |
