REI53 START LD GR0,A ; GR0にAの値を入れる AND GR0,MASK ;マスク処理 JNZ KISUU ;結果が0でないときKISUU OUT GU,LEN ;`偶数'の表示 JUMP FIN ;終了へ KISUU OUT KI,LEN ;`奇数'の表示 FIN RET ;プログラム終了 A DC 1452 MASK DC #0001 KI DC 'KISUU ' GU DC 'GUUSUU' LEN DC 6 ;表示する文字の数 END