科学,数学,PC入門 © ULproject

投稿

ラベル（Assembler）が付いた投稿を表示しています

すべて表示

N88-BASICでZ80アセンブリ (2回目)

2023/5/12(金) N88-BASICでZ80アセンブリ (2回目) N88-BASIC(PC-8801)互換?XL-BASICのMONでアセンブリを動かして見ます XLBasic01.exeをダブルクリックして XL-BASICを起動して下さい mon でモニターに入り a9000 でアセンブリを打って行きます (小文字は大文字に変換されます) LD A,80H … Aレジスタに文字コード&h80を入れる LD HL,0F3C8H … HLレジスタにT-VRAM(&hF3C8)を入れる LD B,80 … Bレジスタに文字数(80)を入れる LD (HL),A … HL番地にAを入れる INC HL … HL = HL + 1 INC A … A = A + 1 DJNZ 9007H … B = B - 1:IF B <> 0 THEN LD (HL),Aへ RET … RETURN(終了) 相対ジャンプ命令も絶対アドレスで指定して下さい自動で相対アドレスに変換されます T-VRAMの先頭からキャラクターコード&h80～文字を80文字書込むプログラムです (XL-BASICはT-VRAMアドレスの変更には対応していませんので常に&hF3C8～です) g9000,- で9000hからRETまで実行します (途中のCALL,RETのペアでは止まりません) tで1命令ずつトレース出来ます t2で2命令ずつ,t-でRETまでトレースします XLBasic/Doc/ReferenceXL.txtの MONの所にコマンドの説明がありますので参照して下さい...

続きを読む

N88-BASICでZ80アセンブリ (1回目)

2023/5/3(水) N88-BASICでZ80アセンブリ (1回目) N88-BASIC(PC-8801)互換?XL-BASICの MONでお手軽に Z80アセンブリを動かして見ます (実機のmonと機能が違うので注意して下さい) XLBasic01.exeをダブルクリックして XL-BASICを起動して下さい mon でモニターに入り a9000 でアセンブリを打って行きます LD A,1 … Aレジスタに1を入れる LD B,2 … Bレジスタに2を入れる ADD A,B … A = A + B RET … サブルーチンの終わり xでレジスターの内容を表示出来ます g9000 で9000から1命令実行 t で続き(PCが示すアドレス)から1命令実行 t- でRET実行まで進みます (途中のCALL,RETのペアでは停止しません) 最終的に Aレジスターに1+2の結果3が入ります l9000,+6 で9000番地から6バイト逆アセンブルできます XL-BASICでは CALLされていない(RETでSPが0になる) 状態でRETが実行されるとそれ以上実行されないようにしてあります CLEAR ,&H8FFFなどでSPが書き変わった後は安全処置が働かなくなるので注意して下さい Ctrl+bまたはBreakキーでMONを終了し BSAVE "ファイル名.bin",&H9000,6 (6はバイト数) でセーブ BLOAD "ファイル名.bin" でロードできます注意アセンブリの実行は固まって動かなくなることがありますので保存(セーブ)を忘れないようにして下さい BASICのDATA文をつくる l9000,+6 で9000h～6バイトの逆アセンブルを表示します l9000,+6,d でDATA文として逆アセンブルを XLBasic01prn.txtに出力します LOADすると行番号が付加されます BASICプログラムからア...

続きを読む

N88-BASIC、アセンブラ、Cでポインター (6回目)

2023/1/31(火) N88-BASIC、アセンブラ、Cでポインター (6回目) C言語にポインターが存在する意味が文字列中のアルファベットの小文字を大文字に変換するプログラムを作ることで何となく分かるようにするシリーズです今回はアセンブラ(8086系)のプログラムの紹介です前回のポインターを使用したCからの変換ですプログラムと解説はコメント(/* … */)を見て下さい blg～.zip中のptr006asm.cです #include <stdio.h> 　　　　　 /* printf等使用の為 */ void main( void )　　　　　　 /* mainから実行 */ { 　　c har * p;　　　　　　　　 /* p = a (aは&a[0]) */ 　　 char a[256];　　　　　 /* 255文字+終端'\0' */ 　　printf( "? " ); 　　gets_s(a, 256);　　　　 /* 文字列入力　*/ 　　printf( "%s\n" , a);　　　 /* 文字列表示 */ 　　p = a;　　　　　　　 /* mov ebx,aがerrorの為 */ 　　 __asm 　　　　　　　 /* 次の{}内がアセンブラ */ 　　{ 　　　　mov ebx,p;　　　; ebxレジスタ(32bit) = p 　　L1: 　　　　mov al,[ebx]　　; alレジスタ(8bit) = *ebx 　　　　test al,al　　　; al & al (0のチェック) 　　　　je L3　　　　　 ; if (al == 0 ) goto L3 　　　　cmp al, 'a' 　　　 ; if (al < 'a...

続きを読む

N88-BASIC、アセンブラ、Cでポインター (5回目)

2023/1/25(水) N88-BASIC、アセンブラ、Cでポインター (5回目) C言語にポインターが存在する意味が文字列中のアルファベットの小文字を大文字に変換するプログラムを作ることで何となく分かるようにするシリーズです今回はC(言語)でポインターを使ったプログラムの紹介ですプログラムと解説はコメント(/* … */)を見て下さい BASICのアドレス(POKE,PEEK,VARPTRなど) を使ったプログラムやアセンブラを理解していればより簡単に理解できると思います blg～.zip中のptr005.cです #include <stdio.h> 　　　　　 /* printf等使用の為 */ void main( void )　　　　　　 /* mainから実行 */ { 　　c har * p;　　　　　　　　 /* p = a (aは&a[0]) */ 　　 char a[256];　　　　　 /* 255文字+終端'\0' */ 　　printf( "? " ); 　　gets_s(a, 256);　　　　 /* 文字列入力　*/ 　　printf( "%s\n" , a);　　　 /* 文字列表示 */ 　　 for (p = a; *p; p++)　　 /* *p != '\0'繰返し */ 　　{ 　　　　 if ( 'a' <= *p && *p <= 'z' ) 　　　　{ 　　　　　　*p -= 'a' - 'A' ; 　　　　} 　　} 　　printf( "%s\n" , a);　　　 /* 文字列表示 */ 　　 gets_s(a, 256);　　　　 /* キー入力待ち ...

続きを読む

N88-BASIC、アセンブラ、Cでポインター (4回目)

2023/1/21(土) N88-BASIC、アセンブラ、Cでポインター (4回目) C言語にポインターが存在する意味が文字列中のアルファベットの小文字を大文字に変換するプログラムを作ることで何となく分かるようにするシリーズです今回はC(言語)で普通に作ったプログラムの紹介ですプログラムと解説はコメント(/* … */)を見て下さい blg～.zip中のptr004.cです #include <stdio.h> 　　　　　 /* printf等使用の為 */ void main( void )　　　　　　 /* mainから実行 */ { 　　 char a[256];　　　　　　 /* 255文字+終端'\0' */ 　　 int i;　　　　　　　　 /* 変数の定義 */ 　　printf( "? " ); 　　gets_s(a, 256);　　　　 /* 文字列入力　*/ 　　printf( "%s\n" , a);　　　 /* 文字列表示 */ 　　 for (i = 0; a[i]; i++)　 /* a[i]!='\0'繰返し */ 　　{ 　　　　 if ( 'a' <= a[i] && a[i] <= 'z' ) 　　　　{ 　　　　　a[i] -= 'a' - 'A' ; 　　　　} 　　} 　　printf( "%s\n" , a);　　　 /* 文字列表示 */ 　　gets_s(a, 256);　　　　 /* キー入力待ち　*/ } gets_s(a, 2...

続きを読む

N88-BASIC、アセンブラ、Cでポインター (3回目)

2023/1/17(火) N88-BASIC、アセンブラ、Cでポインター (3回目) C言語にポインターが存在する意味が文字列中のアルファベットの小文字を大文字に変換するプログラムを作ることで何となく分かるようにするシリーズです今回は N88-BASIC,Z80(XL-BASIC)でアセンブラ (Z80)を使用したプログラムの紹介です USR関数とCALLの2種類とも書いていますアセンブり言語をアセンブラで数値に変換したものがマシン語 (機械語)です使い方が間違っているかもしれませんがここではアセンブり言語をアセンブラと書いています NL-BASIC,VL-BASICはアセンブラに対応していないので XL-BASIC(N88-BASIC(PC-8801)+Z80)のみで動きます blg～.zip中のptr003.basです 150 CLEAR ,&HAFFF 　　 BASIC使用領域は&HAFFFまで(マシン語は&HB000～) 160 ADDR = &HB000 170 GOSUB *ASSEMBLY 　　マシン語を ADDR番地から読込む 180 DEF USR0 = ADDR '--- USR0 190 STR0 = ADDR + 1 '--- CALL 　　マシン語呼び出しアドレスの設定 (USR0,CALL) 260 B$ = USR0(A$) 330 CALL ALPH(A$) それぞれの方法でマシン語を呼出しています A$自身が書変わります書換えた後の A$の値がB$に入ります (文字列以外のB = USR0(A)などはAは変化しません) 以下、アセンブラの解説です B$ = USR0(A$)では、DE = VARPTR(A$) CALL STR0(A$)では、HL = VARPTR(A$) の様に、 A$の情報が異なるレジスタに入りますので DEの時はDE,HLを入替えて(EX DE,HL) どちらも HL = VARPTR(A$)の状態で書いています B000: EX DE,HL ...

続きを読む

N88-BASIC、アセンブラ、Cでポインター (2回目)

2023/1/14(土) N88-BASIC、アセンブラ、Cでポインター (2回目) C言語にポインターが存在する意味が文字列中のアルファベットの小文字を大文字に変換するプログラムを作ることで何となく分かるようにするシリーズです今回はN88-BASIC(VL,XL,NL-BASIC)でアドレスを使用したプログラムの紹介ですアセンブラでプログラムする足ががりです PC-88(XL-BASIC),PC-98(NL-BASIC),VL-BASIC でメモリー内容が異なりますのでその3パターンに対応しています blg～.zip中のptr002.basです 200 ON N88 + 1 GOSUB *XL, *NL, *VL 240 FOR I=1 TO N 250 B = PEEK(P) 260 IF ASC("a") <= B AND B <= ASC("z") THEN POKE P, B - C 270 P = P + 1 280 NEXT プログラムと解説を交互に書きました 200 ON N88 + 1 GOSUB *XL, *NL, *VL 　　各機種ごとに違う読み方で文字数N,アドレスPを設定 240 FOR I=1 TO N 250 B = PEEK(P) 　　　アドレスPの内容をBに入れる 260 IF ASC("a") <= B AND B <= ASC("z") THEN POKE P, B - C 　　　Bが"a"～"z"なら、アドレスP内にB-C("A"～"Z")を入れる 270 P = P + 1 　　　Pを1増やす 280 NEXT 　　文字数N分繰返す PEEK(P)はアドレスPのメモリーを読む POKE P,DはアドレスPのメモリーにDを書くという命令です(Dは0～&HFF) このアドレスを入れる変数Pを C言語ではポインターと呼んでいます以下メモリーのアドレス(16進数) (BASICでは16進数は...

続きを読む

N88-BASIC、アセンブラ、Cでポインター (1回目)

2023/1/11(水) N88-BASIC、アセンブラ、Cでポインター (1回目) C言語にポインターが存在する意味が文字列中のアルファベットの小文字を大文字に変換するプログラムを作ることで何となく分かるようにするシリーズです今回はN88-BASIC(VL,XL,NL-BASIC)で普通に作ったプログラムの紹介です BASICとアセンブラ(Z80)をスルーする方は 4回目(C言語)から見て下さい blg～.zip中のptr001.basの150行目からです 150 INPUT A$ 160 N = LEN(A$) 170 PRINT A$ 180 C = ASC("a") - ASC("A") 190 FOR I=1 TO N 200 B$ = MID$(A$, I, 1) 210 IF "a" <= B$ AND B$ <= "z" THEN MID$(A$, I) = CHR$(ASC(B$) - C) 220 NEXT 230 PRINT A$ プログラムと解説を交互に書きました 150 INPUT A$ 　　キーボードから入力した文字列を文字変数A$に入れる 160 N = LEN(A$) 　　NにA$の文字数を入れる 170 PRINT A$ 　　A$の文字列を表示する 180 C = ASC("a") - ASC("A") 　　文字a,Aのキャラクターコードの差をCに入れる 190 FOR I=1 TO N 　　IがNを超えていればNEXTの次に移動(Iは1～) 200 B$ = MID$(A$, I, 1) 　　B$に「A$の1から数えてI番目の文字1文字」を入れる 210 IF "a" <= B$ AND B$ <= "z" THEN MID$(A$, I) = CHR$(ASC(B$) - C) 　　B$が"a"～"z"なら"A"～"Z"に替えてA$のI番目に入れる 220 NEXT 　　Iを1増やしてFORに戻る 230...

続きを読む