あなたは 人目のアセンブラの受講生です。

アセンブラ入門内検索

アセンブラトップ
0. はじめに

1. 基礎
　　　1. レジスタとは
　　　2. セグメントとは

2. MOV命令
　　　1. MOV命令
　　　2. コンパイル
　　　3. 即値の転送
　　　4. メモリーへの転送
　　　5. データ定義疑似命令
　　　6. 練習問題

3. 算術演算
　　　1. 符号なし演算と符号付き演算
　　　2. 足し算
　　　3. 練習問題
　　　4. フラグ
　　　5. 引き算
　　　6. かけ算
　　　7. わり算
　　　8. INC,DEC

4. 分岐
　　　1. 無条件分離
　　　2. 比較命令
　　　3. 条件分離
　　　4. 練習問題
　　　5. ループ
　　　6. サブルーチン
　　　7. スタックとは
　　　8. PUSH,POP
　　　9. 練習問題

5. 論理演算
　　　1. AND命令
　　　2. OR命令
　　　3. XOR命令
　　　4. NOT命令
　　　5. NEG命令
　　　6. TEST命令
　　　7. 練習問題

6. シフト演算
　　　1. シフト
　　　2. ローテート
　　　3. 練習問題1
　　　4. 練習問題2

7. ストリング命令
　　　1. ストリング命令とは
　　　2. MOVS?
　　　3. REP
　　　4. DFの設定
　　　5. LODS?
　　　6. STOS?
　　　7. SCAS?
　　　8. CMPS?
　　　9 .練習問題

8. 入出力
　　　1. 概要
　　　2. IN命令
　　　3. OUT命令
　　　4. INS,OUTS命令

9. その他
　　　1. LEA
　　　2. XCHG
　　　3. NOP

10. 割り込み
　　　1. 割り込みとは
　　　2. ソフトウェア割り込み
　　　3. ハードウェア割り込み
　　　4. 割り込みベクター
　　　5. 割り込み処理の作り方
　　　6. 練習問題

11. レジスタの型変換(キャスト)

12. 卒業試験
　　　1. 卒業試験
　　　2. 画像データの格納形式
　　　3. インラインアセンブラ
　　　4. ネガポジ反転
　　　5. 明るくする、暗くする
　　　6. グレースケール
　　　7. 二値化
　　　8. 上下反転、左右反転
　　　9. 4分割
　　　10. モザイク
　　　11. シャープ
　　　12. ぼかし
　　　13. エンボス
　　　14. ディザ拡散
　　　15. 鉛筆を置いてください

13. 終わりに

文字コード

アセンブラ　〜MS-DOSの世界〜

このページの先頭に戻る
トップページに戻る

問題へ　:　 トップへ　:　 次の章へ

7-9.練習問題

問題

4-9で作った１行入力サブルーチンを用いて、文字列２つを 入力する。２回目の文字列が１回目の文字列の中に何回出現するかどうかを数えて、 その出現回数を表示するプログラムを作れ。

考え方

1. １回目の文字列を入力
2. 何も入力されていなかったらエラーメッセージを表示して終了
3. ２回目の文字列を入力
4. 何も入力されていなかったらエラーメッセージを表示して終了
5. １回目の文字列の方が２回目の文字列より短かったらエラーメッセージを表示して終了
6. DS:SIは１回目の文字列の先頭を指す
7. ES:DIは２回目の文字列の先頭を指す
8. CMPSBで比較する
9. 同じであれば個数を１増やす
10. SIを1増やして、7に戻る。１回目の文字列の最後まできたら終了
11. 個数を表示して終了

解答

START: push ds pop es cld mov bx,offset DAT1 mov cx,70 call LINEINP or ax,ax ;1st data ==0 -> ERR jz ERR2 mov LEN1,ax mov bx,offset DAT2 call LINEINP or ax,ax jz ERR2 ;2nd data == 0 -> ERR mov LEN2,ax cmp LEN1,ax jae SCAN ;2nd data > 1st data ERR ERR1: mov dx,offset ERRMSG1 jmp short ERR_END ERR2: mov dx,offset ERRMSG2 ; jmp short ERR_END ERR_END: mov ah,9 int 21h ;エラーメッセージ表示 mov ax,4cffh int 21h SCAN: mov si,offset DAT1-1 mov ax,LEN1 add ax,offset DAT1 ;ax<= END address SCAN2: inc si SCAN3: cmp si,ax jae SCAN_END mov di,offset DAT2 mov cx,LEN2 push si repe cmpsb ;ds:si = DAT1 ;es:di = DAT2 pop si jnz SCAN2 add si,LEN2 inc KOSU jmp short SCAN3 SCAN_END: mov ax,KOSU call DISPN _END: call KAIGYOU mov ax,KOSU mov ah,4ch int 21h ;+------------------------ ;|１行入力 ;|最後には 0Dh が入る ;+------------------------ ;|in bx <= buffer(offset) ;| cx <= 最大文字数 ;+------------------------ ;|out ax <= 入力文字数 ;| (改行なし) ;+------------------------ ;|break ; ax ;+------------------------ LINEINP proc push dx push di inc cx mov di,0 INPUT: mov ah,8 int 21h cmp al,8 ;BSか？ jz _BS mov [bx+di],al cmp al,0dh ;リターンキーか？ jz _RET cmp di,cx ;文字数制限大丈夫？ jz OVER inc di DISPC: mov dl,al mov ah,2 int 21h ;disp char jmp short INPUT OVER: mov [di+bx-1],al ;入力可能文字数を超えていた場合の処理 push ax mov ah,2 mov dl,8 int 21h ;disp BS pop ax jmp short DISPC _BS: or di,di jz INPUT ;何も入力されていなかったらBS無効 mov ah,2 mov dl,8 int 21h ;disp BS mov ah,2 mov dl,' ' int 21h ;disp SP mov ah,2 mov dl,8 ;disp BS int 21h dec di jmp short INPUT _RET: mov ah,2 mov dl,0dh int 21h mov ah,2 mov dl,0ah int 21h ;改行 mov ax,di pop di pop dx dec cx ret ;+-------------- ;|数字を表示する ;+-------------- ;|IN cx <= 数字 ;+-------------- ;|OUT none ;+-------------- ;|break none ;+-------------- DISPN proc pusha mov cx,5 DISPN_10: xor dx,dx mov bx,10 div bx add dl,30h push dx loop DISPN_10 mov cx,5 DISPN_20: pop dx mov ah,6 int 21h loop DISPN_20 popa ret ;+------------ ;|改行する ;+------------ ;;break ; none ;+------------ KAIGYOU proc push ax push dx mov ah,2 mov dl,0dh int 21h mov dl,0ah int 21h pop dx pop ax ret KOSU dw 0 ERRMSG1 db '2nd string is longer than 1st one!',0dh,0ah,24h ERRMSG2 db 'You inputed nothing!',0dh,0ah,24h DAT1 db 71 dup(0) DAT2 db 71 dup(0) LEN1 dw ? LEN2 dw ? end

---

問題へ　:　 トップへ　:　 次の章へ