例題5.2 ADSERI

;----カンマ送信-----
KANMA:  MOV.B   #H'2C,R0L      ;
        MOV.B   R0L,@D_DATA            ;D_DATAにH'2Cをいれる
        JSR     @DISP                  ;シリアル通信で送るための関数DISPにとぶ 

;----10進数送信-----
AD_D:   MOV.B   @AD_DEC,R0L            ;AD_DECに順に書き込んだ10進数を
        MOV.B   R0L,@D_DATA            ;ディスプレイに表示するためD_DATAに入れる
        JSR     @DISP                  ;シリアル通信で送るための関数DISPにとぶ

        MOV.B   #".",R0L                       ; "."を
        MOV.B   R0L,@D_DATA            ;ディスプレイに表示するためD_DATAに入れる
        JSR     @DISP                  ;シリアル通信で送るための関数DISPにとぶ
        MOV.B   @AD_DEC+1,R0L  ;AD_DEC+1に順に書き込んだ10進数を
        MOV.B   R0L,@D_DATA            ;ディスプレイに表示するためD_DATAに入れる
        JSR     @DISP                  ;シリアル通信で送るための関数DISPにとぶ

        MOV.B   @AD_DEC+2,R0L  ;AD_DEC+2に順に書き込んだ10進数を
        MOV.B   R0L,@D_DATA            ;ディスプレイに表示するためD_DATAに入れる
        JSR     @DISP                  ;シリアル通信で送るための関数DISPにとぶ

        MOV.B   @AD_DEC+3,R0L  ;AD_DEC+3に書き込んだ10進数を
        MOV.B   R0L,@D_DATA            ;ディスプレイに表示するためD_DATAに入れる
        JSR     @DISP                  ;シリアル通信で送るための関数DISPにとぶ

        MOV.B   #"V",R0L               ; "V"を
        MOV.B   R0L,@D_DATA            ;ディスプレイに表示するためD_DATAに入れる
        JSR     @DISP                  ;シリアル通信で送るための関数DISPにとぶ

;----復帰改行-----
LF:     MOV.B   #H'0A,R0L              ;
        MOV.B   R0L,@D_DATA            ;D_DATAにH'0Aをいれる
        JSR     @DISP                  ;シリアル通信で送るための関数DISPにとぶ

CR:     MOV.B   #H'0D,R0L              ;
        MOV.B   R0L,@D_DATA            ;D_DATAにH'0Dをいれる
        JSR     @DISP                  ;シリアル通信で送るための関数DISPにとぶ

D_END:  BTST    TDRE                   ;TDREの状態をチェック
        BEQ     D_END                  ;TDREが「0」ならばD_ENDにとぶ
        RTS                            ;元のルーチンに戻る

;----D_DATAに入っている情報をシリアルでパソコンに送信する関数-----
DISP:   BTST    TDRE                   ;TDREの状態をチェック
        BEQ     DISP                   ;TDREが「0」ならばDISPにとぶ
        MOV.B   @D_DATA,R0L            ;

        MOV.B   R0L,@TDR1              ;TDR1にD_DATAをいれる
        BCLR    TDRE                   ;TDREを「0」にクリアする
        RTS                            ;元のルーチンに戻る

;-----タイマ（WAIT）サブルーチン--------
TIME00: MOV.W   #H'FFFF,R0
TIME01: SUB.W   #1,R0                  ;R0にH' FFFFを書き込みH'1ずつ減算
        BNE     TIME01                 ;ゼロになるまでTIME01を繰り返す
        RTS                            ;元のルーチンに戻る

TIME10: MOV.W   #H'80,R6               ;
TIME11: SUB.W   #1,R6                  ;R6にH'80を書き込みH'1ずつ減算
        BNE     TIME11                 ;ゼロになるまでTIME11を繰り返す
        RTS                            ;元のルーチンに戻る

        .END  

課題 5．2の説明

• 7行目：CPUの指定をしています．
• 7〜29行目：シンボルの定義をしています．ポートBデータレジスタをPBDRで表します．AD_BINにRAM領域，A/D変換値の格納場所を設定します．A/Dコントロール/ステータスレジスタをADCSR，ADCSRのbit5，変換開始/停止を選択するA/DスタートをADST，ADCSRのbit7，変換終了を示すA/DフラグをADF，A/D変換結果を入れる上位８bitレジスタの番地をADDRAH，A/D変換結果を入れる下位８bitレジスタの番地をADDRAL，D/A（CH-0）に比変換データを入力する番地をDADR0，D/A（CH-0,1共通）コントロールレジスタの番地をDACRで表します．
• 32行目：コードセクション宣言です．H'000100番地を先頭にしなさいという指示をしています．
• 35行目：初期設定です．スタックポインタにH'FFF10を書き込んでいます．
• 38〜44行目：シリアル部分の初期設定です．
• 47〜52行目：56行のADにジャンプします．RTSで戻ってきたらSOUSHINにジャンプします．RTSで戻ってきたらWAITをとります．STARTにジャンプ（繰り返す）します．
• 56，57行目：WAITします．A/DスタートADSTに「1」をビットセットし，A/D変換を開始します．
• 58〜59行目：ビットテストBTSTでADF（A/Dフラグ）の状態をチェックします．前回述べたように，ADFが0ならZフラグを「1」にセットし，ADFが「1」ならZフラグを「0」にクリアします．A/D変換が終了すると，ADFには「1」が入ります．ブランチイコールBEQでコンディションコードレジスタのZフラグの状態を調べます．Zフラグがが「0」ならば次の命令に進み，「1」ならばADENDにジャンプします．A/D変換が終了したら，変換結果を入れるレジスタER1を「0」にクリアします．そして，変換後のデータ上位8bitをレジスタR1の上位（R1L）へいれ，変換後のデータ下位2bitをレジスタR1の下位（R1L）へいれます．A/DフラグADFを「0」にビットクリアします．現在，R1に入っているA/D変換値は16bit左詰の状態です．これをSHLRで右にずらし，右詰にします．結果をAD_BINに入れます．
• 72〜73行目：A/D変換の結果を，最大値5Vを基準とした値に変換します．
• 75〜91行目：2進数の値を10進数に変換し，元のルーチンに戻ります．
• 93〜165行目：シリアル通信部分です．この部分についての説明はしません．興味のある人は調べてください．
• 168〜176行目：WAITのサブルーチンです

INC

デスティネーションオペランドに 1を加算し結果を格納する．

Ex) INC.B R0H ;R0Hに1加算し，結果をR0Hに格納

DIVXU

割り算を行います．

Ex) DVXU.W　 R0,ER2 ;ER2÷R0→ER2上位16bitに余り，下位16bitに商を格納

BPL

もし CCRのN=0ならば指定されているところにそうでなければ次に進む

Ex) BPL BINH ;CCRのNが「0」ならBINHにとぶ