1. 概要
『動かしてわかるCPUの作り方10講』(井澤裕司、技術評論社)第9講までのCPUをFPGA MAX10 + 回路図エディターで作る。
MAX10 (10M08SAE144C8G)の評価ボードはマルツ製を使った(参考: 『MAX10実験キットで学ぶFPGA&コンピュータ』(圓山宗智、CQ出版)。
単にテキストのVHDLをシンボルで書き換えただけであるが、命令は一部以下のように差し替えた。
-
hlt(停止)命令を廃止してjnc(jump if no carry)命令を追加した。 -
sra(算術右シフト)命令を廃止してjmp_reg(16ビットレジスタの下位バイトに記録してあるアドレスへジャンプ)命令を追加した。
2. コンポーネントごとに作ってゆく
ここで作るCPUは以下のコンポーネントで構成される。
- 4相クロック生成部(clk_gen)
- プログラムメモリーからの読み出し部(fetch_rom)
- レジスタからの読み出し部(reg_dc)
- レジスタへの書き込み部(reg_wb)
- RAMの読み出し/書き込み部(mega_ram)
- 演算部(exec)
2.1 4相クロック生成部(clk_gen)を作る
いわゆるone-hot state counterである。
2.2 プログラムメモリーからの読み出し部(fetch_rom)を作る
Quartus PrimeのIP Catalogに登録されているROM: 1-PORTを使って15ビット × 256本のROMを作る。作りかたはhttps://ti-nspire.hatenablog.com/entry/2021/01/28/063115を参照。ROMの初期化ファイルである.mifファイルは、あとの「4. サンプルプログラム」のなかで紹介するPythonスクリプトで生成する。
生成された.mifファイルの例:
WIDTH=15;
DEPTH=256;
ADDRESS_RADIX=UNS;
DATA_RADIX=BIN;
CONTENT BEGIN
0 : 100100000000000;
1 : 100000000000001;
2 : 100100100000001;
(略)
254 : 111010001000000;
255 : 110000011111111;
END;
2.3 レジスタからの読み出し部(reg_dc)を作る
8本の16ビットレジスタのうち1本を選んで読み出す。
2.4 レジスタへの書き込み部(reg_wb)を作る
8本の16ビットレジスタのうち1本を選んで書き込む。
2.4.1 まず16ビットレジスタを1個作る
2.4.2 それを8個連結する
2.5 RAMの読み出し/書き込み部(mega_ram)を作る
IP CatalogにあるRAM: 1-PORTを使って16ビット × 64本のRAMを作る。RAM: 1-PORTの使い方はROM: 1-PORTと同じ。
2.6 演算部(exec)を作る
2.6.1 プログラムカウンターを作る
sclr、sloadのsはsynchronous。
2.6.2 加減算器を作る
追加したjnc命令用にキャリーを得たいので加減算自体は17ビットで行う。
2.6.2.1 2の補数回路を作る
2.6.2.2 組み合わせて加減算器にする
2.6.3 全部組み合わせてexec部を作る
一部命令を差し替えたため、加減算器からキャリーを取り出している点(jnc命令用)と、プログラムカウンターのロード値が選べるようになっている点(jmp_reg命令用)とがテキストと違っている。
2.7 すべてのコンポーネントを組み合わせてCPUを作る
2.8 ソースクロック生成部を作る
IP Catalogに登録されているALTPLLを利用する。ここでは、評価ボードに載っている48 MHz発振器から1 MHzを合成した。1 MHzにした理由は特にない。ALTPLLの使いかたはhttps://ti-nspire.hatenablog.com/entry/2021/01/25/071741を参照。
3. 端子を割り当てる
下のように割り当てた。評価ボード上の48 MHz発振器がMAX10 (10M08SAE144C8G)の27番ピンに接続してある。コンパイルする前に.mifファイルをQuartus Primeのプロジェクトファイルと同じディレクトリに入れておく。
(↑この図は、『MAX10実験キットで学ぶFPGA&コンピュータ』附録ディスクに収録されているMAX10-FB_Document_Rev03_20150911.pdfから)
4. サンプルプログラム
4.1 RAMのテストをする
ROMの初期化ファイル.mifを生成するためのPythonスクリプト:
example_ram_test.py
def generate_mif(file_name, width, depth, rom):
f = open(file_name, "w")
f.write("WIDTH=%d;\n" % width)
f.write("DEPTH=%d;\n" % depth)
f.write("ADDRESS_RADIX=UNS;\n")
f.write("DATA_RADIX=BIN;\n")
f.write("CONTENT BEGIN\n")
format_of_code = "0" + str(width) + "b"
for i in range(depth):
machine_code = format(rom[i], format_of_code)
f.write("%10d : %s;\n" % (i, machine_code))
f.write("END;\n")
f.close()
def mov(ra, rb): return 0 << 11 | ra << 8 | rb << 5
def add(ra, rb): return 1 << 11 | ra << 8 | rb << 5
def sub(ra, rb): return 2 << 11 | ra << 8 | rb << 5
def _and(ra, rb): return 3 << 11 | ra << 8 | rb << 5
def _or(ra, rb): return 4 << 11 | ra << 8 | rb << 5
def sl(ra): return 5 << 11 | ra << 8 # 左シフト
def sr(ra): return 6 << 11 | ra << 8 # 右シフト
def jmp_reg(ra): return 7 << 11 | ra << 8 # レジスタの下位バイトに記憶してあるアドレスへジャンプ
def ldl(ra, ival): return 8 << 11 | ra << 8 | (ival & 0xFF) # 下位バイトに即値をロード
def ldh(ra, ival): return 9 << 11 | ra << 8 | (ival & 0xFF) # 上位バイトに即値をロード
def cmp(ra, rb): return 10 << 11 | ra << 8 | rb << 5 # 一致したらフラグが立つ。
def je(addr): return 11 << 11 | (addr & 0xFF) # 一致フラグが立っていたらジャンプ
def jmp(addr): return 12 << 11 | (addr & 0xFF) # 無条件ジャンプ
def ld(ra, addr): return 13 << 11 | ra << 8 | (addr & 0xFF) # RAMからレジスタへ値を持ってくる。
def st(ra, addr): return 14 << 11 | ra << 8 | (addr & 0xFF) # レジスタの値をRAMへ格納する。
def jnc(addr): return 15 << 11 | (addr & 0xFF) # jump if no carry
def nop() : return 0 # mov(0, 0)ということ。
def _in(ra): return ld(ra, 65) # INポートからレジスタへ読み込む。
def out(ra): return st(ra, 64) # レジスタからOUTポートへ書き出す。
# レジスタへ2バイト即値をロード(★2命令★)
def ld_hl(ra, two_bytes):
return ldh(ra, two_bytes >> 8), \
ldl(ra, two_bytes & 0xFF)
r0, r1, r2, r3, r4, r5, r6, r7 = range(8) # 汎用レジスタ
FILE_NAME = "rom_init.mif"
WIDTH = 15
DEPTH = 256
_ = [0] * DEPTH
ad = -1
# ram 0番地に値100をストアする。
_[(ad := ad+1)], \
_[(ad := ad+1)] = ld_hl(r0, 100)
_[(ad := ad+1)] = st(r0, 0)
# ram 11番地に値200をストアする。
_[(ad := ad+1)], \
_[(ad := ad+1)] = ld_hl(r0, 200)
_[(ad := ad+1)] = st(r0, 11)
# ram 63番地に値300をストアする。
_[(ad := ad+1)], \
_[(ad := ad+1)] = ld_hl(r0, 300)
_[(ad := ad+1)] = st(r0, 63)
_[(ad := ad+1)] = ld(r0, 0) # ram 0番地の値をレジスタ0に持ってきて、
_[(ad := ad+1)] = ld(r1, 11) # ram 11番地の値をレジスタ1に持ってきて、
_[(ad := ad+1)] = add(r0, r1) # 両者を足し合わせて、
_[(ad := ad+1)] = ld(r1, 63) # ram 63番地の値をレジスタ1に持ってきて、
_[(ad := ad+1)] = add(r0, r1) # さらに両者を足し合わせて、
_[(ad := ad+1)] = out(r0) # 足した結果(0d600 = 0b 0000 0010 0101 1000)をOUTポートから出力して、
_[(ad := ad+1)] = jmp(ad+1) # ここにとどまる。
generate_mif(FILE_NAME, WIDTH, DEPTH, _)
実行結果:
4.2 1から361までの総和を求める
sigma(n, n=1 to 361) = 65341 (0b 1111 1111 0011 1101)
ROMの初期化ファイル.mifを生成するためのPythonスクリプト:
example_sum_of_1to361.py
def generate_mif(file_name, width, depth, rom):
f = open(file_name, "w")
f.write("WIDTH=%d;\n" % width)
f.write("DEPTH=%d;\n" % depth)
f.write("ADDRESS_RADIX=UNS;\n")
f.write("DATA_RADIX=BIN;\n")
f.write("CONTENT BEGIN\n")
format_of_code = "0" + str(width) + "b"
for i in range(depth):
machine_code = format(rom[i], format_of_code)
f.write("%10d : %s;\n" % (i, machine_code))
f.write("END;\n")
f.close()
def mov(ra, rb): return 0 << 11 | ra << 8 | rb << 5
def add(ra, rb): return 1 << 11 | ra << 8 | rb << 5
def sub(ra, rb): return 2 << 11 | ra << 8 | rb << 5
def _and(ra, rb): return 3 << 11 | ra << 8 | rb << 5
def _or(ra, rb): return 4 << 11 | ra << 8 | rb << 5
def sl(ra): return 5 << 11 | ra << 8 # 左シフト
def sr(ra): return 6 << 11 | ra << 8 # 右シフト
def jmp_reg(ra): return 7 << 11 | ra << 8 # レジスタの下位バイトに記憶してあるアドレスへジャンプ
def ldl(ra, ival): return 8 << 11 | ra << 8 | (ival & 0xFF) # 下位バイトに即値をロード
def ldh(ra, ival): return 9 << 11 | ra << 8 | (ival & 0xFF) # 上位バイトに即値をロード
def cmp(ra, rb): return 10 << 11 | ra << 8 | rb << 5 # 一致したらフラグが立つ。
def je(addr): return 11 << 11 | (addr & 0xFF) # 一致フラグが立っていたらジャンプ
def jmp(addr): return 12 << 11 | (addr & 0xFF) # 無条件ジャンプ
def ld(ra, addr): return 13 << 11 | ra << 8 | (addr & 0xFF) # RAMからレジスタへ値を持ってくる。
def st(ra, addr): return 14 << 11 | ra << 8 | (addr & 0xFF) # レジスタの値をRAMへ格納する。
def jnc(addr): return 15 << 11 | (addr & 0xFF) # jump if no carry
def nop() : return 0 # mov(0, 0)ということ。
def _in(ra): return ld(ra, 65) # INポートからレジスタへ読み込む。
def out(ra): return st(ra, 64) # レジスタからOUTポートへ書き出す。
# レジスタへ2バイト即値をロード(★2命令★)
def ld_hl(ra, two_bytes):
return ldh(ra, two_bytes >> 8), \
ldl(ra, two_bytes & 0xFF)
r0, r1, r2, r3, r4, r5, r6, r7 = range(8) # 汎用レジスタ
FILE_NAME = "rom_init.mif"
WIDTH = 15
DEPTH = 256
_ = [0] * DEPTH
total = r0
inc = r1
operand = r2
num_of_loops = r3
ad = -1
# 増分をセットして、
_[(ad := ad+1)], \
_[(ad := ad+1)] = ld_hl(inc, 1)
# ループ回数をセットして、
_[(ad := ad+1)], \
_[(ad := ad+1)] = ld_hl(num_of_loops, 361)
jump_where = ad+1
_[(ad := ad+1)] = add(operand, r1) # 足す数をインクリメントして、
_[(ad := ad+1)] = add(total, operand) # それをここまでの総和に加算して、
_[(ad := ad+1)] = cmp(operand, num_of_loops) # 足す数 = ループ回数であるなら、
_[(ad := ad+1)] = je(ad+3) # ループを抜けて、
_[(ad := ad+1)] = jmp(jump_where) # そうでなければ加算を繰り返して、
_[(ad := ad+1)] = out(total) # 総和(0d65341 = 0b 1111 1111 0011 1101)をOUTポートから出力して、
_[(ad := ad+1)] = jmp(ad+1) # ここにとどまる。
generate_mif(FILE_NAME, WIDTH, DEPTH, _)
実行結果:
4.3 掛け算
300 * 200 = 60000 (0b 1110 1010 0110 0000)
ROMの初期化ファイル.mifを生成するためのPythonスクリプト:
example_multiply.py
def generate_mif(file_name, width, depth, rom):
f = open(file_name, "w")
f.write("WIDTH=%d;\n" % width)
f.write("DEPTH=%d;\n" % depth)
f.write("ADDRESS_RADIX=UNS;\n")
f.write("DATA_RADIX=BIN;\n")
f.write("CONTENT BEGIN\n")
format_of_code = "0" + str(width) + "b"
for i in range(depth):
machine_code = format(rom[i], format_of_code)
f.write("%10d : %s;\n" % (i, machine_code))
f.write("END;\n")
f.close()
def mov(ra, rb): return 0 << 11 | ra << 8 | rb << 5
def add(ra, rb): return 1 << 11 | ra << 8 | rb << 5
def sub(ra, rb): return 2 << 11 | ra << 8 | rb << 5
def _and(ra, rb): return 3 << 11 | ra << 8 | rb << 5
def _or(ra, rb): return 4 << 11 | ra << 8 | rb << 5
def sl(ra): return 5 << 11 | ra << 8 # 左シフト
def sr(ra): return 6 << 11 | ra << 8 # 右シフト
def jmp_reg(ra): return 7 << 11 | ra << 8 # レジスタの下位バイトに記憶してあるアドレスへジャンプ
def ldl(ra, ival): return 8 << 11 | ra << 8 | (ival & 0xFF) # 下位バイトに即値をロード
def ldh(ra, ival): return 9 << 11 | ra << 8 | (ival & 0xFF) # 上位バイトに即値をロード
def cmp(ra, rb): return 10 << 11 | ra << 8 | rb << 5 # 一致したらフラグが立つ。
def je(addr): return 11 << 11 | (addr & 0xFF) # 一致フラグが立っていたらジャンプ
def jmp(addr): return 12 << 11 | (addr & 0xFF) # 無条件ジャンプ
def ld(ra, addr): return 13 << 11 | ra << 8 | (addr & 0xFF) # RAMからレジスタへ値を持ってくる。
def st(ra, addr): return 14 << 11 | ra << 8 | (addr & 0xFF) # レジスタの値をRAMへ格納する。
def jnc(addr): return 15 << 11 | (addr & 0xFF) # jump if no carry
def nop() : return 0 # mov(0, 0)ということ。
def _in(ra): return ld(ra, 65) # INポートからレジスタへ読み込む。
def out(ra): return st(ra, 64) # レジスタからOUTポートへ書き出す。
# レジスタへ2バイト即値をロード(★2命令★)
def ld_hl(ra, two_bytes):
return ldh(ra, two_bytes >> 8), \
ldl(ra, two_bytes & 0xFF)
r0, r1, r2, r3, r4, r5, r6, r7 = range(8) # 汎用レジスタ
FILE_NAME = "rom_init.mif"
WIDTH = 15
DEPTH = 256
_ = [0] * DEPTH
# M × N = Pを計算する。
INC = r0
M = r1
N = r2
COUNT = r3
P = r4
ad = -1
# 増分をセットして、
_[(ad := ad+1)], \
_[(ad := ad+1)] = ld_hl(INC, 1)
# 掛けられる数Mをセットして、
_[(ad := ad+1)], \
_[(ad := ad+1)] = ld_hl(M, 300)
# 掛ける数Nをセットして、
_[(ad := ad+1)], \
_[(ad := ad+1)] = ld_hl(N, 200)
jump_where = ad+1
_[(ad := ad+1)] = cmp(COUNT, N) # N回足し終えたら、
_[(ad := ad+1)] = je(254) # ループを抜けるが、そうでなければ、
_[(ad := ad+1)] = add(P, M) # 加算して、
_[(ad := ad+1)] = add(COUNT, INC) # 加算回数をインクリメントして、
_[(ad := ad+1)] = jmp(jump_where) # ループを繰り返して、
_[254] = out(P) # 積(300 * 200 = 60000 (0b 1110 1010 0110 0000))をOUTポートから出力して、
_[255] = jmp(255) # ここにとどまる。
generate_mif(FILE_NAME, WIDTH, DEPTH, _)
実行結果:
4.4 割り算
65000 ÷ 51 = 1274 (0b 0000 0100 1111 1010)
ROMの初期化ファイル.mifを生成するためのPythonスクリプト:
example_divide.py
def generate_mif(file_name, width, depth, rom):
f = open(file_name, "w")
f.write("WIDTH=%d;\n" % width)
f.write("DEPTH=%d;\n" % depth)
f.write("ADDRESS_RADIX=UNS;\n")
f.write("DATA_RADIX=BIN;\n")
f.write("CONTENT BEGIN\n")
format_of_code = "0" + str(width) + "b"
for i in range(depth):
machine_code = format(rom[i], format_of_code)
f.write("%10d : %s;\n" % (i, machine_code))
f.write("END;\n")
f.close()
def mov(ra, rb): return 0 << 11 | ra << 8 | rb << 5
def add(ra, rb): return 1 << 11 | ra << 8 | rb << 5
def sub(ra, rb): return 2 << 11 | ra << 8 | rb << 5
def _and(ra, rb): return 3 << 11 | ra << 8 | rb << 5
def _or(ra, rb): return 4 << 11 | ra << 8 | rb << 5
def sl(ra): return 5 << 11 | ra << 8 # 左シフト
def sr(ra): return 6 << 11 | ra << 8 # 右シフト
def jmp_reg(ra): return 7 << 11 | ra << 8 # レジスタの下位バイトに記憶してあるアドレスへジャンプ
def ldl(ra, ival): return 8 << 11 | ra << 8 | (ival & 0xFF) # 下位バイトに即値をロード
def ldh(ra, ival): return 9 << 11 | ra << 8 | (ival & 0xFF) # 上位バイトに即値をロード
def cmp(ra, rb): return 10 << 11 | ra << 8 | rb << 5 # 一致したらフラグが立つ。
def je(addr): return 11 << 11 | (addr & 0xFF) # 一致フラグが立っていたらジャンプ
def jmp(addr): return 12 << 11 | (addr & 0xFF) # 無条件ジャンプ
def ld(ra, addr): return 13 << 11 | ra << 8 | (addr & 0xFF) # RAMからレジスタへ値を持ってくる。
def st(ra, addr): return 14 << 11 | ra << 8 | (addr & 0xFF) # レジスタの値をRAMへ格納する。
def jnc(addr): return 15 << 11 | (addr & 0xFF) # jump if no carry
def nop() : return 0 # mov(0, 0)ということ。
def _in(ra): return ld(ra, 65) # INポートからレジスタへ読み込む。
def out(ra): return st(ra, 64) # レジスタからOUTポートへ書き出す。
# レジスタへ2バイト即値をロード(★2命令★)
def ld_hl(ra, two_bytes):
return ldh(ra, two_bytes >> 8), \
ldl(ra, two_bytes & 0xFF)
r0, r1, r2, r3, r4, r5, r6, r7 = range(8) # 汎用レジスタ
FILE_NAME = "rom_init.mif"
WIDTH = 15
DEPTH = 256
_ = [0] * DEPTH
# N ÷ D = Qを計算する。
INC = r0
N = r1
D = r2
Q = r3
ad = -1
# 増分をセットして、
_[(ad := ad+1)], \
_[(ad := ad+1)] = ld_hl(INC, 1)
# 割られる数をセットして、
_[(ad := ad+1)], \
_[(ad := ad+1)] = ld_hl(N, 65000)
# 割る数をセットして、
_[(ad := ad+1)], \
_[(ad := ad+1)] = ld_hl(D, 51)
jump_where = ad+1
_[(ad := ad+1)] = add(Q, INC) # 引く前に、引いた回数をインクリメントしてから、
_[(ad := ad+1)] = sub(N, D) # 実際に引いて、
_[(ad := ad+1)] = jnc(jump_where) # キャリー(というかボロー)が発生していなければ、また引き算を繰り返すが、
_[(ad := ad+1)] = sub(Q, INC) # キャリー(というかボロー)が発生していたらもう引けないので、1回多く引いたぶんだけ商を戻して、
_[(ad := ad+1)] = add(N, D) # 余りも1回ぶんだけ戻して、
_[(ad := ad+1)] = out(Q) # 商(65000 / 51 = 1274 (0b 0000 0100 1111 1010))をOUTポートから出力して、
#_[(ad := ad+1)] = st(N, 63) # 余りをとっておいて、
_[(ad := ad+1)] = jmp(ad+1) # ここにとどまる。
generate_mif(FILE_NAME, WIDTH, DEPTH, _)
実行結果:
4.5 Lチカ
ROMの初期化ファイル.mifを生成するためのPythonスクリプト:
example_blink.py
def generate_mif(file_name, width, depth, rom):
f = open(file_name, "w")
f.write("WIDTH=%d;\n" % width)
f.write("DEPTH=%d;\n" % depth)
f.write("ADDRESS_RADIX=UNS;\n")
f.write("DATA_RADIX=BIN;\n")
f.write("CONTENT BEGIN\n")
format_of_code = "0" + str(width) + "b"
for i in range(depth):
machine_code = format(rom[i], format_of_code)
f.write("%10d : %s;\n" % (i, machine_code))
f.write("END;\n")
f.close()
def mov(ra, rb): return 0 << 11 | ra << 8 | rb << 5
def add(ra, rb): return 1 << 11 | ra << 8 | rb << 5
def sub(ra, rb): return 2 << 11 | ra << 8 | rb << 5
def _and(ra, rb): return 3 << 11 | ra << 8 | rb << 5
def _or(ra, rb): return 4 << 11 | ra << 8 | rb << 5
def sl(ra): return 5 << 11 | ra << 8 # 左シフト
def sr(ra): return 6 << 11 | ra << 8 # 右シフト
def jmp_reg(ra): return 7 << 11 | ra << 8 # レジスタの下位バイトに記憶してあるアドレスへジャンプ
def ldl(ra, ival): return 8 << 11 | ra << 8 | (ival & 0xFF) # 下位バイトに即値をロード
def ldh(ra, ival): return 9 << 11 | ra << 8 | (ival & 0xFF) # 上位バイトに即値をロード
def cmp(ra, rb): return 10 << 11 | ra << 8 | rb << 5 # 一致したらフラグが立つ。
def je(addr): return 11 << 11 | (addr & 0xFF) # 一致フラグが立っていたらジャンプ
def jmp(addr): return 12 << 11 | (addr & 0xFF) # 無条件ジャンプ
def ld(ra, addr): return 13 << 11 | ra << 8 | (addr & 0xFF) # RAMからレジスタへ値を持ってくる。
def st(ra, addr): return 14 << 11 | ra << 8 | (addr & 0xFF) # レジスタの値をRAMへ格納する。
def jnc(addr): return 15 << 11 | (addr & 0xFF) # jump if no carry
def nop() : return 0 # mov(0, 0)ということ。
def _in(ra): return ld(ra, 65) # INポートからレジスタへ読み込む。
def out(ra): return st(ra, 64) # レジスタからOUTポートへ書き出す。
# レジスタへ2バイト即値をロード(★2命令★)
def ld_hl(ra, two_bytes):
return ldh(ra, two_bytes >> 8), \
ldl(ra, two_bytes & 0xFF)
r0, r1, r2, r3, r4, r5, r6, r7 = range(8) # 汎用レジスタ
FILE_NAME = "rom_init.mif"
WIDTH = 15
DEPTH = 256
_ = [0] * DEPTH
F_CPU = 1E6
DELAY = 0.2 # sec
LOOPS = int(DELAY * F_CPU / 8)
LED = r0
DEC = r1
COUNTER = r2
ad = -1
# 減分をセットして、
_[(ad := ad+1)], \
_[(ad := ad+1)] = ld_hl(DEC, 1)
jump_where_0 = ad+1
# ledを点けて、
_[(ad := ad+1)], \
_[(ad := ad+1)] = ld_hl(LED, 0xAAAA)
_[(ad := ad+1)] = out(LED)
# ループ回数 - 1をセットして、
_[(ad := ad+1)], \
_[(ad := ad+1)] = ld_hl(COUNTER, LOOPS - 1)
jump_where_1 = ad+1
# 少し待って、
_[(ad := ad+1)] = sub(COUNTER, DEC) # ループ回数をデクリメントして、
_[(ad := ad+1)] = jnc(jump_where_1) # ループ回数が0を下回るまでループを繰り返して、
# 点灯パターンを変えて、
_[(ad := ad+1)], \
_[(ad := ad+1)] = ld_hl(LED, 0xAAAA >> 1)
_[(ad := ad+1)] = out(LED)
# ループ回数 - 1をセットして、
_[(ad := ad+1)], \
_[(ad := ad+1)] = ld_hl(COUNTER, LOOPS - 1)
jump_where_2 = ad+1
# 少し待って、
_[(ad := ad+1)] = sub(COUNTER, DEC) # ループ回数をデクリメントして、
_[(ad := ad+1)] = jnc(jump_where_2) # ループ回数が0を下回るまでループを繰り返して、
_[(ad := ad+1)] = jmp(jump_where_0) # をずっと繰り返す。
generate_mif(FILE_NAME, WIDTH, DEPTH, _)
実行結果(↓YouTubeへリンク):
4.6 Lチカ(ビジーループをサブルーチンっぽくする)
ROMの初期化ファイル.mifを生成するためのPythonスクリプト:
example_blink_with_subroutine.py
import math
def constrain(val, _min, _max):
return int(min(max(val, _min), _max))
def generate_mif(file_name, width, depth, rom):
f = open(file_name, "w")
f.write("WIDTH=%d;\n" % width)
f.write("DEPTH=%d;\n" % depth)
f.write("ADDRESS_RADIX=UNS;\n")
f.write("DATA_RADIX=BIN;\n")
f.write("CONTENT BEGIN\n")
format_of_code = "0" + str(width) + "b"
for i in range(depth):
machine_code = format(rom[i], format_of_code)
f.write("%10d : %s;\n" % (i, machine_code))
f.write("END;\n")
f.close()
def mov(ra, rb): return 0 << 11 | ra << 8 | rb << 5
def add(ra, rb): return 1 << 11 | ra << 8 | rb << 5
def sub(ra, rb): return 2 << 11 | ra << 8 | rb << 5
def _and(ra, rb): return 3 << 11 | ra << 8 | rb << 5
def _or(ra, rb): return 4 << 11 | ra << 8 | rb << 5
def sl(ra): return 5 << 11 | ra << 8 # 左シフト
def sr(ra): return 6 << 11 | ra << 8 # 右シフト
def jmp_reg(ra): return 7 << 11 | ra << 8 # レジスタの下位バイトに記憶してあるアドレスへジャンプ
def ldl(ra, ival): return 8 << 11 | ra << 8 | (ival & 0xFF) # 下位バイトに即値をロード
def ldh(ra, ival): return 9 << 11 | ra << 8 | (ival & 0xFF) # 上位バイトに即値をロード
def cmp(ra, rb): return 10 << 11 | ra << 8 | rb << 5 # 一致したらフラグが立つ。
def je(addr): return 11 << 11 | (addr & 0xFF) # 一致フラグが立っていたらジャンプ
def jmp(addr): return 12 << 11 | (addr & 0xFF) # 無条件ジャンプ
def ld(ra, addr): return 13 << 11 | ra << 8 | (addr & 0xFF) # RAMからレジスタへ値を持ってくる。
def st(ra, addr): return 14 << 11 | ra << 8 | (addr & 0xFF) # レジスタの値をRAMへ格納する。
def jnc(addr): return 15 << 11 | (addr & 0xFF) # jump if no carry
def nop() : return 0 # mov(0, 0)ということ。
def _in(ra): return ld(ra, 65) # INポートからレジスタへ読み込む。
def out(ra): return st(ra, 64) # レジスタからOUTポートへ書き出す。
# レジスタへ2バイト即値をロード(★2命令★)
def ld_hl(ra, two_bytes):
return ldh(ra, two_bytes >> 8), \
ldl(ra, two_bytes & 0xFF)
r0, r1, r2, r3, r4, r5, r6, r7 = range(8) # 汎用レジスタ
TMP0 = r0
TMP1 = r1
RET_TO = r7
# call命令 ★2命令★
# サブルーチンから戻ってくるアドレスを保存しておいてからサブルーチンへ飛ぶ、
def call(go_to, return_to):
return ldl(RET_TO, return_to), \
jmp(go_to)
# ret命令
def ret(): return jmp_reg(RET_TO)
FILE_NAME = "rom_init.mif"
WIDTH = 15
DEPTH = 256
_ = [0] * DEPTH
F_CPU = 1E6
PERIOD = 1 / F_CPU
DELAY = 0.2 # sec
LOOPS = (DELAY - 20 * PERIOD)/(8 * PERIOD) # 5命令×4クロック + 2命令×4クロック×ループ数 = 遅延時間
LOOPS = constrain(LOOPS, 1, 2**16-1)
###############
# subroutines #
###############
# BUSY_LOOP:
BUSY_LOOP = 245 # ～251
_[(ad := BUSY_LOOP)], \
_[(ad := ad+1)] = ld_hl(TMP0, 1)
_[(ad := ad+1)], \
_[(ad := ad+1)] = ld_hl(TMP1, LOOPS - 1)
jump_sub_where = ad+1
_[(ad := ad+1)] = sub(TMP1, TMP0)
_[(ad := ad+1)] = jnc(jump_sub_where)
_[(ad := ad+1)] = ret()
################
# main routine #
################
ad = -1
jump_where = ad+1
# LEDを点けて、
_[(ad := ad+1)], \
_[(ad := ad+1)] = ld_hl(TMP0, 0xFF00)
_[(ad := ad+1)] = out(TMP0)
# 少し待って、
_[(ad := ad+1)], \
_[(ad := ad+1)] = call(BUSY_LOOP, ad+3)
# 点灯パターンを変えて、
_[(ad := ad+1)], \
_[(ad := ad+1)] = ld_hl(TMP0, 0x00FF)
_[(ad := ad+1)] = out(TMP0)
# 少し待って、最初に戻って、
_[(ad := ad+1)], \
_[(ad := ad+1)] = call(BUSY_LOOP, jump_where)
generate_mif(FILE_NAME, WIDTH, DEPTH, _)
実行結果(↓YouTubeへリンク):
4.7 ナイトライダー
ROMの初期化ファイル.mifを生成するためのPythonスクリプト:
example_knight_rider.py
import math
def constrain(val, _min, _max):
return int(min(max(val, _min), _max))
def generate_mif(file_name, width, depth, rom):
f = open(file_name, "w")
f.write("WIDTH=%d;\n" % width)
f.write("DEPTH=%d;\n" % depth)
f.write("ADDRESS_RADIX=UNS;\n")
f.write("DATA_RADIX=BIN;\n")
f.write("CONTENT BEGIN\n")
format_of_code = "0" + str(width) + "b"
for i in range(depth):
machine_code = format(rom[i], format_of_code)
f.write("%10d : %s;\n" % (i, machine_code))
f.write("END;\n")
f.close()
def mov(ra, rb): return 0 << 11 | ra << 8 | rb << 5
def add(ra, rb): return 1 << 11 | ra << 8 | rb << 5
def sub(ra, rb): return 2 << 11 | ra << 8 | rb << 5
def _and(ra, rb): return 3 << 11 | ra << 8 | rb << 5
def _or(ra, rb): return 4 << 11 | ra << 8 | rb << 5
def sl(ra): return 5 << 11 | ra << 8 # 左シフト
def sr(ra): return 6 << 11 | ra << 8 # 右シフト
def jmp_reg(ra): return 7 << 11 | ra << 8 # レジスタの下位バイトに記憶してあるアドレスへジャンプ
def ldl(ra, ival): return 8 << 11 | ra << 8 | (ival & 0xFF) # 下位バイトに即値をロード
def ldh(ra, ival): return 9 << 11 | ra << 8 | (ival & 0xFF) # 上位バイトに即値をロード
def cmp(ra, rb): return 10 << 11 | ra << 8 | rb << 5 # 一致したらフラグが立つ。
def je(addr): return 11 << 11 | (addr & 0xFF) # 一致フラグが立っていたらジャンプ
def jmp(addr): return 12 << 11 | (addr & 0xFF) # 無条件ジャンプ
def ld(ra, addr): return 13 << 11 | ra << 8 | (addr & 0xFF) # RAMからレジスタへ値を持ってくる。
def st(ra, addr): return 14 << 11 | ra << 8 | (addr & 0xFF) # レジスタの値をRAMへ格納する。
def jnc(addr): return 15 << 11 | (addr & 0xFF) # jump if no carry
def nop() : return 0 # mov(0, 0)ということ。
def _in(ra): return ld(ra, 65) # INポートからレジスタへ読み込む。
def out(ra): return st(ra, 64) # レジスタからOUTポートへ書き出す。
# レジスタへ2バイト即値をロード(★2命令★)
def ld_hl(ra, two_bytes):
return ldh(ra, two_bytes >> 8), \
ldl(ra, two_bytes & 0xFF)
r0, r1, r2, r3, r4, r5, r6, r7 = range(8) # 汎用レジスタ
TMP0 = r0
TMP1 = r1
SHIFT = r2
LED = r4
RET_TO = r7
# call命令 ★2命令★
# サブルーチンから戻ってくるアドレスを保存しておいてからサブルーチンへ飛ぶ、
def call(go_to, return_to):
return ldl(RET_TO, return_to), \
jmp(go_to)
# ret命令
def ret(): return jmp_reg(RET_TO)
FILE_NAME = "rom_init.mif"
WIDTH = 15
DEPTH = 256
_ = [0] * DEPTH
F_CPU = 1E6
PERIOD = 1 / F_CPU
DELAY = 0.02 # sec
LOOPS = (DELAY - 20 * PERIOD)/(8 * PERIOD) # 5命令×4クロック + 2命令×4クロック×ループ数 = 遅延時間
LOOPS = constrain(LOOPS, 1, 2**16-1)
###############
# subroutines #
###############
# BUSY_LOOP:
BUSY_LOOP = 245 # ～251
_[(ad := BUSY_LOOP)], \
_[(ad := ad+1)] = ld_hl(TMP0, 1)
_[(ad := ad+1)], \
_[(ad := ad+1)] = ld_hl(TMP1, LOOPS - 1)
jump_sub_where = ad+1
_[(ad := ad+1)] = sub(TMP1, TMP0)
_[(ad := ad+1)] = jnc(jump_sub_where)
_[(ad := ad+1)] = ret()
################
# main routine #
################
ad = -1
jump_where_0 = ad+1
_[(ad := ad+1)] = ldl(LED, 0b1)
_[(ad := ad+1)] = out(LED)
_[(ad := ad+1)], \
_[(ad := ad+1)] = call(BUSY_LOOP, ad+3)
_[(ad := ad+1)] = ldl(LED, 0b11)
_[(ad := ad+1)] = out(LED)
_[(ad := ad+1)], \
_[(ad := ad+1)] = call(BUSY_LOOP, ad+3)
_[(ad := ad+1)] = ldl(LED, 0b111)
_[(ad := ad+1)] = out(LED)
_[(ad := ad+1)], \
_[(ad := ad+1)] = call(BUSY_LOOP, ad+3)
_[(ad := ad+1)] = ldl(LED, 0b1111)
_[(ad := ad+1)] = out(LED)
_[(ad := ad+1)], \
_[(ad := ad+1)] = call(BUSY_LOOP, ad+3)
_[(ad := ad+1)], \
_[(ad := ad+1)] = ld_hl(SHIFT, 14)
jump_where_1 = ad+1
_[(ad := ad+1)] = sl(LED)
_[(ad := ad+1)] = out(LED)
_[(ad := ad+1)], \
_[(ad := ad+1)] = call(BUSY_LOOP, ad+3)
_[(ad := ad+1)], \
_[(ad := ad+1)] = ld_hl(TMP0, 1)
_[(ad := ad+1)] = sub(SHIFT, TMP0)
_[(ad := ad+1)] = jnc(jump_where_1)
_[(ad := ad+1)] = ldh(LED, 0b11000000)
_[(ad := ad+1)] = out(LED)
_[(ad := ad+1)], \
_[(ad := ad+1)] = call(BUSY_LOOP, ad+3)
_[(ad := ad+1)] = ldh(LED, 0b11100000)
_[(ad := ad+1)] = out(LED)
_[(ad := ad+1)], \
_[(ad := ad+1)] = call(BUSY_LOOP, ad+3)
_[(ad := ad+1)] = ldh(LED, 0b11110000)
_[(ad := ad+1)] = out(LED)
_[(ad := ad+1)], \
_[(ad := ad+1)] = call(BUSY_LOOP, ad+3)
_[(ad := ad+1)], \
_[(ad := ad+1)] = ld_hl(SHIFT, 13)
jump_where_2 = ad+1
_[(ad := ad+1)] = sr(LED)
_[(ad := ad+1)] = out(LED)
_[(ad := ad+1)], \
_[(ad := ad+1)] = call(BUSY_LOOP, ad+3)
_[(ad := ad+1)], \
_[(ad := ad+1)] = ld_hl(TMP0, 1)
_[(ad := ad+1)] = sub(SHIFT, TMP0)
_[(ad := ad+1)] = jnc(jump_where_2)
_[(ad := ad+1)] = jmp(jump_where_0)
generate_mif(FILE_NAME, WIDTH, DEPTH, _)
実行結果(↓YouTubeへリンク):
4.8 キャラクターLCDでhello, world
3.3 Vで直接動かせるSC1602BBWB-XA-LB-Gを使った。
CPUとLCDとの接続は下のとおりとした。
ROMの初期化ファイル.mifを生成するためのPythonスクリプト:
example_lcd_hello_world.py
import math
def constrain(val, _min, _max):
return int(min(max(val, _min), _max))
def generate_mif(file_name, width, depth, rom):
f = open(file_name, "w")
f.write("WIDTH=%d;\n" % width)
f.write("DEPTH=%d;\n" % depth)
f.write("ADDRESS_RADIX=UNS;\n")
f.write("DATA_RADIX=BIN;\n")
f.write("CONTENT BEGIN\n")
format_of_code = "0" + str(width) + "b"
for i in range(depth):
machine_code = format(rom[i], format_of_code)
f.write("%10d : %s;\n" % (i, machine_code))
f.write("END;\n")
f.close()
def mov(ra, rb): return 0 << 11 | ra << 8 | rb << 5
def add(ra, rb): return 1 << 11 | ra << 8 | rb << 5
def sub(ra, rb): return 2 << 11 | ra << 8 | rb << 5
def _and(ra, rb): return 3 << 11 | ra << 8 | rb << 5
def _or(ra, rb): return 4 << 11 | ra << 8 | rb << 5
def sl(ra): return 5 << 11 | ra << 8 # 左シフト
def sr(ra): return 6 << 11 | ra << 8 # 右シフト
def jmp_reg(ra): return 7 << 11 | ra << 8 # レジスタの下位バイトに記憶してあるアドレスへジャンプ
def ldl(ra, ival): return 8 << 11 | ra << 8 | (ival & 0xFF) # 下位バイトに即値をロード
def ldh(ra, ival): return 9 << 11 | ra << 8 | (ival & 0xFF) # 上位バイトに即値をロード
def cmp(ra, rb): return 10 << 11 | ra << 8 | rb << 5 # 一致したらフラグが立つ。
def je(addr): return 11 << 11 | (addr & 0xFF) # 一致フラグが立っていたらジャンプ
def jmp(addr): return 12 << 11 | (addr & 0xFF) # 無条件ジャンプ
def ld(ra, addr): return 13 << 11 | ra << 8 | (addr & 0xFF) # RAMからレジスタへ値を持ってくる。
def st(ra, addr): return 14 << 11 | ra << 8 | (addr & 0xFF) # レジスタの値をRAMへ格納する。
def jnc(addr): return 15 << 11 | (addr & 0xFF) # jump if no carry
def nop() : return 0 # mov(0, 0)ということ。
def _in(ra): return ld(ra, 65) # INポートからレジスタへ読み込む。
def out(ra): return st(ra, 64) # レジスタからOUTポートへ書き出す。
# レジスタへ2バイト即値をロード(★2命令★)
def ld_hl(ra, two_bytes):
return ldh(ra, two_bytes >> 8), \
ldl(ra, two_bytes & 0xFF)
r0, r1, r2, r3, r4, r5, r6, r7 = range(8) # 汎用レジスタ
TMP0 = r0
TMP1 = r1
OUT = r2
RET_TO = r7
# call命令 ★2命令★
# サブルーチンから戻ってくるアドレスを保存しておいてからサブルーチンへ飛ぶ、
def call(go_to, return_to):
return ldl(RET_TO, return_to), \
jmp(go_to)
# ret命令
def ret(): return jmp_reg(RET_TO)
FILE_NAME = "rom_init.mif"
WIDTH = 15
DEPTH = 256
_ = [0] * DEPTH
F_CPU = 1E6
PERIOD = 1 / F_CPU
DELAY_40ms = 40E-3
DELAY_2ms = 2E-3
DELAY_50us = 50E-6
LOOPS_for_40ms = (DELAY_40ms - 20 * PERIOD) / (8 * PERIOD)
LOOPS_for_40ms = constrain(LOOPS_for_40ms, 1, 2**16-1)
LOOPS_for_2ms = (DELAY_2ms - 20 * PERIOD) / (8 * PERIOD)
LOOPS_for_2ms = constrain(LOOPS_for_2ms, 1, 2**16-1)
LOOPS_for_50us = (DELAY_50us - 20 * PERIOD) / (8 * PERIOD)
LOOPS_for_50us = constrain(LOOPS_for_50us, 1, 2**16-1)
FUNC_SET = 0b111000 # 1, 8/4 bits, 2/1 lines, 10/8 dots, don't care, don't care
DISP_CNT = 0b1100 # 1, 文字表示, カーソル表示, カーソル点滅
CLS = 0b1 # 表示を消去
ENT_MOD = 0b110 # 1, 右/左シフト, 表示範囲全体シフト有効化
###############
# subroutines #
###############
ad = 199
# DELAY_LONG:
DELAY_LONG = ad+1
_[(ad := ad+1)], \
_[(ad := ad+1)] = ld_hl(TMP0, 1)
_[(ad := ad+1)], \
_[(ad := ad+1)] = ld_hl(TMP1, LOOPS_for_40ms - 1)
_[(ad := ad+1)] = sub(TMP1, TMP0)
_[(ad := ad+1)] = jnc(ad)
_[(ad := ad+1)] = ret()
# COMMAND_W:
COMMAND_W = ad+1
_[(ad := ad+1)] = out(OUT)
_[(ad := ad+1)] = ldh(OUT, 0b00)
_[(ad := ad+1)] = out(OUT)
_[(ad := ad+1)] = ldh(OUT, 0b10)
_[(ad := ad+1)] = out(OUT)
_[(ad := ad+1)] = nop()
_[(ad := ad+1)] = ldh(OUT, 0b00)
_[(ad := ad+1)] = out(OUT)
_[(ad := ad+1)] = ldl(TMP0, 1)
_[(ad := ad+1)], \
_[(ad := ad+1)] = ld_hl(TMP1, LOOPS_for_50us - 1)
_[(ad := ad+1)] = sub(TMP1, TMP0)
_[(ad := ad+1)] = jnc(ad)
_[(ad := ad+1)] = ret()
# DELAY_SHORT:
DELAY_SHORT = ad+1
_[(ad := ad+1)], \
_[(ad := ad+1)] = ld_hl(TMP0, 1)
_[(ad := ad+1)], \
_[(ad := ad+1)] = ld_hl(TMP1, LOOPS_for_2ms - 1)
_[(ad := ad+1)] = sub(TMP1, TMP0)
_[(ad := ad+1)] = jnc(ad)
_[(ad := ad+1)] = ret()
# DATA_W:
DATA_W = ad+1
_[(ad := ad+1)] = out(OUT)
_[(ad := ad+1)] = ldh(OUT, 0b11)
_[(ad := ad+1)] = out(OUT)
_[(ad := ad+1)] = nop()
_[(ad := ad+1)] = ldh(OUT, 0b01)
_[(ad := ad+1)] = out(OUT)
_[(ad := ad+1)], \
_[(ad := ad+1)] = ld_hl(TMP0, 1)
_[(ad := ad+1)], \
_[(ad := ad+1)] = ld_hl(TMP1, LOOPS_for_50us - 1)
_[(ad := ad+1)] = sub(TMP1, TMP0)
_[(ad := ad+1)] = jnc(ad)
_[(ad := ad+1)] = ret()
################
# main routine #
################
ad = -1
# 最初にLCDをdisableにする。
_[(ad := ad+1)] = ldh(OUT, 0b00)
_[(ad := ad+1)] = out(OUT)
# CALL DELAY_40ms
_[(ad := ad+1)], \
_[(ad := ad+1)] = call(DELAY_LONG, ad+3)
# Function Set
_[(ad := ad+1)] = ldl(OUT, FUNC_SET)
_[(ad := ad+1)], \
_[(ad := ad+1)] = call(COMMAND_W, ad+3)
# Display ON/OFF Control
_[(ad := ad+1)] = ldl(OUT, DISP_CNT)
_[(ad := ad+1)], \
_[(ad := ad+1)] = call(COMMAND_W, ad+3)
# Clear Display
_[(ad := ad+1)] = ldl(OUT, CLS)
_[(ad := ad+1)], \
_[(ad := ad+1)] = call(COMMAND_W, ad+3)
# CALL DELAY_2ms
_[(ad := ad+1)], \
_[(ad := ad+1)] = call(DELAY_SHORT, ad+3)
# Entry Mode Set
_[(ad := ad+1)] = ldl(OUT, ENT_MOD)
_[(ad := ad+1)], \
_[(ad := ad+1)] = call(COMMAND_W, ad+3)
# 1文字ずつ表示する。
_[(ad := ad+1)] = ldl(OUT, ord('h'))
_[(ad := ad+1)], \
_[(ad := ad+1)] = call(DATA_W, ad+3)
_[(ad := ad+1)] = ldl(OUT, ord('e'))
_[(ad := ad+1)], \
_[(ad := ad+1)] = call(DATA_W, ad+3)
_[(ad := ad+1)] = ldl(OUT, ord('l'))
_[(ad := ad+1)], \
_[(ad := ad+1)] = call(DATA_W, ad+3)
_[(ad := ad+1)] = ldl(OUT, ord('l'))
_[(ad := ad+1)], \
_[(ad := ad+1)] = call(DATA_W, ad+3)
_[(ad := ad+1)] = ldl(OUT, ord('o'))
_[(ad := ad+1)], \
_[(ad := ad+1)] = call(DATA_W, ad+3)
_[(ad := ad+1)] = ldl(OUT, ord(','))
_[(ad := ad+1)], \
_[(ad := ad+1)] = call(DATA_W, ad+3)
_[(ad := ad+1)] = ldl(OUT, ord(' '))
_[(ad := ad+1)], \
_[(ad := ad+1)] = call(DATA_W, ad+3)
_[(ad := ad+1)] = ldl(OUT, ord('w'))
_[(ad := ad+1)], \
_[(ad := ad+1)] = call(DATA_W, ad+3)
_[(ad := ad+1)] = ldl(OUT, ord('o'))
_[(ad := ad+1)], \
_[(ad := ad+1)] = call(DATA_W, ad+3)
_[(ad := ad+1)] = ldl(OUT, ord('r'))
_[(ad := ad+1)], \
_[(ad := ad+1)] = call(DATA_W, ad+3)
_[(ad := ad+1)] = ldl(OUT, ord('l'))
_[(ad := ad+1)], \
_[(ad := ad+1)] = call(DATA_W, ad+3)
_[(ad := ad+1)] = ldl(OUT, ord('d'))
_[(ad := ad+1)], \
_[(ad := ad+1)] = call(DATA_W, ad+3)
_[(ad := ad+1)] = jmp(ad+1)
generate_mif(FILE_NAME, WIDTH, DEPTH, _)
実行結果:
4.9 レジスタの16ビット値をHEX値としてキャラクターLCDに表示する
INポートから読み込んだ値をそのままLCDに出力する。
ROMの初期化ファイル.mifを生成するためのPythonスクリプト:
example_lcd_hex.py
import math
def constrain(val, _min, _max):
return int(min(max(val, _min), _max))
def generate_mif(file_name, width, depth, rom):
f = open(file_name, "w")
f.write("WIDTH=%d;\n" % width)
f.write("DEPTH=%d;\n" % depth)
f.write("ADDRESS_RADIX=UNS;\n")
f.write("DATA_RADIX=BIN;\n")
f.write("CONTENT BEGIN\n")
format_of_code = "0" + str(width) + "b"
for i in range(depth):
machine_code = format(rom[i], format_of_code)
f.write("%10d : %s;\n" % (i, machine_code))
f.write("END;\n")
f.close()
def mov(ra, rb): return 0 << 11 | ra << 8 | rb << 5
def add(ra, rb): return 1 << 11 | ra << 8 | rb << 5
def sub(ra, rb): return 2 << 11 | ra << 8 | rb << 5
def _and(ra, rb): return 3 << 11 | ra << 8 | rb << 5
def _or(ra, rb): return 4 << 11 | ra << 8 | rb << 5
def sl(ra): return 5 << 11 | ra << 8 # 左シフト
def sr(ra): return 6 << 11 | ra << 8 # 右シフト
def jmp_reg(ra): return 7 << 11 | ra << 8 # レジスタの下位バイトに記憶してあるアドレスへジャンプ
def ldl(ra, ival): return 8 << 11 | ra << 8 | (ival & 0xFF) # 下位バイトに即値をロード
def ldh(ra, ival): return 9 << 11 | ra << 8 | (ival & 0xFF) # 上位バイトに即値をロード
def cmp(ra, rb): return 10 << 11 | ra << 8 | rb << 5 # 一致したらフラグが立つ。
def je(addr): return 11 << 11 | (addr & 0xFF) # 一致フラグが立っていたらジャンプ
def jmp(addr): return 12 << 11 | (addr & 0xFF) # 無条件ジャンプ
def ld(ra, addr): return 13 << 11 | ra << 8 | (addr & 0xFF) # RAMからレジスタへ値を持ってくる。
def st(ra, addr): return 14 << 11 | ra << 8 | (addr & 0xFF) # レジスタの値をRAMへ格納する。
def jnc(addr): return 15 << 11 | (addr & 0xFF) # jump if no carry
def nop() : return 0 # mov(0, 0)ということ。
def _in(ra): return ld(ra, 65) # INポートからレジスタへ読み込む。
def out(ra): return st(ra, 64) # レジスタからOUTポートへ書き出す。
# レジスタへ2バイト即値をロード(★2命令★)
def ld_hl(ra, two_bytes):
return ldh(ra, two_bytes >> 8), \
ldl(ra, two_bytes & 0xFF)
r0, r1, r2, r3, r4, r5, r6, r7 = range(8) # 汎用レジスタ
TMP0 = r0
TMP1 = r1
OUT = r2
VAL = r5
RET_TO = r7
# call命令 ★2命令★
# サブルーチンから戻ってくるアドレスを保存しておいてからサブルーチンへ飛ぶ、
def call(go_to, return_to):
return ldl(RET_TO, return_to), \
jmp(go_to)
# ret命令
def ret(): return jmp_reg(RET_TO)
# カーソル位置(0ベース)をセットする命令
def set_RC(r, c):
return ldl(OUT, LEFT_MOST[r] + c)
# 0xABCD (0d43981)を0xDCBA (0d56506)に変換する函数
def reverse_4nibles(two_bytes):
return eval("0x" + ((str(hex(two_bytes))[2:])[::-1]))
FILE_NAME = "rom_init.mif"
WIDTH = 15
DEPTH = 256
_ = [0] * DEPTH
F_CPU = 1E6
PERIOD = 1 / F_CPU
DELAY_40ms = 40E-3
DELAY_20ms = 20E-3
DELAY_2ms = 2E-3
DELAY_100us = 100E-6
DELAY_50us = 50E-6
LOOPS_for_40ms = (DELAY_40ms - 20 * PERIOD) / (8 * PERIOD)
LOOPS_for_40ms = constrain(LOOPS_for_40ms, 1, 2**16-1)
LOOPS_for_20ms = (DELAY_20ms - 20 * PERIOD) / (8 * PERIOD)
LOOPS_for_20ms = constrain(LOOPS_for_20ms, 1, 2**16-1)
LOOPS_for_2ms = (DELAY_2ms - 20 * PERIOD) / (8 * PERIOD)
LOOPS_for_2ms = constrain(LOOPS_for_2ms, 1, 2**16-1)
LOOPS_for_100us = (DELAY_100us - 20 * PERIOD) / (8 * PERIOD)
LOOPS_for_100us = constrain(LOOPS_for_100us, 1, 2**16-1)
LOOPS_for_50us = (DELAY_50us - 20 * PERIOD) / (8 * PERIOD)
LOOPS_for_50us = constrain(LOOPS_for_50us, 1, 2**16-1)
FUNC_SET = 0b111000 # 1, 8/4 bits, 2/1 lines, 10/8 dots, don't care, don't care
DISP_CNT = 0b1100 # 1, 文字表示, カーソル表示, カーソル点滅
CLS = 0b1 # 表示を消去
ENT_MOD = 0b110 # 1, 右/左シフト, 表示範囲全体シフト有効化
LEFT_MOST = [0x80, 0xC0] # y行目x列目のアドレス = (x + y * 0x40) | (0x80)
###############
# subroutines #
###############
ad = 149
# DELAY_40MS:
DELAY_40MS = ad+1
_[(ad := ad+1)] = ldl(TMP0, 1)
_[(ad := ad+1)], \
_[(ad := ad+1)] = ld_hl(TMP1, LOOPS_for_40ms - 1)
_[(ad := ad+1)] = sub(TMP1, TMP0)
_[(ad := ad+1)] = jnc(ad)
_[(ad := ad+1)] = ret()
# COMMAND_W:
COMMAND_W = ad+1
_[(ad := ad+1)] = out(OUT)
_[(ad := ad+1)] = ldh(OUT, 0b00)
_[(ad := ad+1)] = out(OUT)
_[(ad := ad+1)] = ldh(OUT, 0b10)
_[(ad := ad+1)] = out(OUT)
_[(ad := ad+1)] = nop()
_[(ad := ad+1)] = ldh(OUT, 0b00)
_[(ad := ad+1)] = out(OUT)
_[(ad := ad+1)] = ldl(TMP0, 1)
_[(ad := ad+1)], \
_[(ad := ad+1)] = ld_hl(TMP1, LOOPS_for_100us - 1)
_[(ad := ad+1)] = sub(TMP1, TMP0)
_[(ad := ad+1)] = jnc(ad)
_[(ad := ad+1)] = ret()
# DELAY_2MS:
DELAY_2MS = ad+1
_[(ad := ad+1)] = ldl(TMP0, 1)
_[(ad := ad+1)], \
_[(ad := ad+1)] = ld_hl(TMP1, LOOPS_for_2ms - 1)
_[(ad := ad+1)] = sub(TMP1, TMP0)
_[(ad := ad+1)] = jnc(ad)
_[(ad := ad+1)] = ret()
# DATA_W:
DATA_W = ad+1
_[(ad := ad+1)] = out(OUT)
_[(ad := ad+1)] = ldh(OUT, 0b11)
_[(ad := ad+1)] = out(OUT)
_[(ad := ad+1)] = nop()
_[(ad := ad+1)] = ldh(OUT, 0b01)
_[(ad := ad+1)] = out(OUT)
_[(ad := ad+1)] = ldl(TMP0, 1)
_[(ad := ad+1)], \
_[(ad := ad+1)] = ld_hl(TMP1, LOOPS_for_100us - 1)
_[(ad := ad+1)] = sub(TMP1, TMP0)
_[(ad := ad+1)] = jnc(ad)
_[(ad := ad+1)] = ret()
# VAL_TO_HEX:
VAL_TO_HEX = ad+1
_[(ad := ad+1)] = mov(OUT, VAL)
_[(ad := ad+1)] = ldl(TMP0, 0xF)
_[(ad := ad+1)] = _and(OUT, TMP0)
_[(ad := ad+1)] = ldl(TMP0, 10) # 値が9より大きいかどうかを判断して、
_[(ad := ad+1)] = mov(TMP1, OUT)
_[(ad := ad+1)] = sub(TMP1, TMP0)
_[(ad := ad+1)] = jnc(ad+5)
_[(ad := ad+1)] = ldl(TMP0, ord('0') ) # 値が9以下であったらそれを文字コードに変換して、
_[(ad := ad+1)] = add(OUT, TMP0)
_[(ad := ad+1)] = jmp(ad+4)
_[(ad := ad+1)] = ldl(TMP0, ord('A') - 0xA) # 値が10以上であったらそれを文字コードに変換して。
_[(ad := ad+1)] = add(OUT, TMP0)
_[(ad := ad+1)] = ret()
# SR_4:
VAL_SR_4 = ad+1
_[(ad := ad+1)] = sr(VAL)
_[(ad := ad+1)] = sr(VAL)
_[(ad := ad+1)] = sr(VAL)
_[(ad := ad+1)] = sr(VAL)
_[(ad := ad+1)] = ret()
# DELAY_100US:
DELAY_100US = ad+1
_[(ad := ad+1)] = ldl(TMP0, 1)
_[(ad := ad+1)], \
_[(ad := ad+1)] = ld_hl(TMP1, LOOPS_for_100us - 1)
_[(ad := ad+1)] = sub(TMP1, TMP0)
_[(ad := ad+1)] = jnc(ad)
_[(ad := ad+1)] = ret()
################
# main routine #
################
ad = -1
# 最初にLCDをdisableにする。
_[(ad := ad+1)] = ldh(OUT, 0b00)
_[(ad := ad+1)] = out(OUT)
# CALL DELAY_40ms
_[(ad := ad+1)], \
_[(ad := ad+1)] = call(DELAY_40MS, ad+3)
# Function Set
_[(ad := ad+1)] = ldl(OUT, FUNC_SET)
_[(ad := ad+1)], \
_[(ad := ad+1)] = call(COMMAND_W, ad+3)
# Display ON/OFF Control
_[(ad := ad+1)] = ldl(OUT, DISP_CNT)
_[(ad := ad+1)], \
_[(ad := ad+1)] = call(COMMAND_W, ad+3)
# Clear Display
_[(ad := ad+1)] = ldl(OUT, CLS)
_[(ad := ad+1)], \
_[(ad := ad+1)] = call(COMMAND_W, ad+3)
# CALL DELAY_2ms
_[(ad := ad+1)], \
_[(ad := ad+1)] = call(DELAY_2MS, ad+3)
# Entry Mode Set
_[(ad := ad+1)] = ldl(OUT, ENT_MOD)
_[(ad := ad+1)], \
_[(ad := ad+1)] = call(COMMAND_W, ad+3)
jump_where = ad+1
# INポートから2バイト値を読み込んで、
_[(ad := ad+1)] = _in(VAL)
# [0]桁目を表示して、
_[(ad := ad+1)] = set_RC(0, 3)
_[(ad := ad+1)], \
_[(ad := ad+1)] = call(COMMAND_W, ad+3)
_[(ad := ad+1)], \
_[(ad := ad+1)] = call(VAL_TO_HEX, ad+3) # ニブル[0]を文字コードに変換して、
_[(ad := ad+1)], \
_[(ad := ad+1)] = call(DATA_W, ad+3) # LCDへ出力して、
# [1]桁目を表示して、
_[(ad := ad+1)], \
_[(ad := ad+1)] = call(VAL_SR_4, ad+3)
_[(ad := ad+1)] = set_RC(0, 2)
_[(ad := ad+1)], \
_[(ad := ad+1)] = call(COMMAND_W, ad+3)
_[(ad := ad+1)], \
_[(ad := ad+1)] = call(VAL_TO_HEX, ad+3) # ニブル[1]を文字コードに変換して、
_[(ad := ad+1)], \
_[(ad := ad+1)] = call(DATA_W, ad+3) # LCDへ出力して、
# [2]桁目を表示して、
_[(ad := ad+1)], \
_[(ad := ad+1)] = call(VAL_SR_4, ad+3)
_[(ad := ad+1)] = set_RC(0, 1)
_[(ad := ad+1)], \
_[(ad := ad+1)] = call(COMMAND_W, ad+3)
_[(ad := ad+1)], \
_[(ad := ad+1)] = call(VAL_TO_HEX, ad+3) # ニブル[2]を文字コードに変換して、
_[(ad := ad+1)], \
_[(ad := ad+1)] = call(DATA_W, ad+3) # LCDへ出力して、
# [3]桁目を表示して、
_[(ad := ad+1)], \
_[(ad := ad+1)] = call(VAL_SR_4, ad+3)
_[(ad := ad+1)] = set_RC(0, 0)
_[(ad := ad+1)], \
_[(ad := ad+1)] = call(COMMAND_W, ad+3)
_[(ad := ad+1)], \
_[(ad := ad+1)] = call(VAL_TO_HEX, ad+3) # ニブル[3]を文字コードに変換して、
_[(ad := ad+1)], \
_[(ad := ad+1)] = call(DATA_W, jump_where) # LCDへ出力する。を繰り返す。
generate_mif(FILE_NAME, WIDTH, DEPTH, _)
実行結果:
4.10 レジスタの16ビット値を十進数値としてキャラクターLCDに表示する
INポートから読み込んだ値をそのままLCDに出力する。
ROMの初期化ファイル.mifを生成するためのPythonスクリプト:
example_lcd_decimal.py
import math
def constrain(val, _min, _max):
return int(min(max(val, _min), _max))
def generate_mif(file_name, width, depth, rom):
f = open(file_name, "w")
f.write("WIDTH=%d;\n" % width)
f.write("DEPTH=%d;\n" % depth)
f.write("ADDRESS_RADIX=UNS;\n")
f.write("DATA_RADIX=BIN;\n")
f.write("CONTENT BEGIN\n")
format_of_code = "0" + str(width) + "b"
for i in range(depth):
machine_code = format(rom[i], format_of_code)
f.write("%10d : %s;\n" % (i, machine_code))
f.write("END;\n")
f.close()
def mov(ra, rb): return 0 << 11 | ra << 8 | rb << 5
def add(ra, rb): return 1 << 11 | ra << 8 | rb << 5
def sub(ra, rb): return 2 << 11 | ra << 8 | rb << 5
def _and(ra, rb): return 3 << 11 | ra << 8 | rb << 5
def _or(ra, rb): return 4 << 11 | ra << 8 | rb << 5
def sl(ra): return 5 << 11 | ra << 8 # 左シフト
def sr(ra): return 6 << 11 | ra << 8 # 右シフト
def jmp_reg(ra): return 7 << 11 | ra << 8 # レジスタの下位バイトに記憶してあるアドレスへジャンプ
def ldl(ra, ival): return 8 << 11 | ra << 8 | (ival & 0xFF) # 下位バイトに即値をロード
def ldh(ra, ival): return 9 << 11 | ra << 8 | (ival & 0xFF) # 上位バイトに即値をロード
def cmp(ra, rb): return 10 << 11 | ra << 8 | rb << 5 # 一致したらフラグが立つ。
def je(addr): return 11 << 11 | (addr & 0xFF) # 一致フラグが立っていたらジャンプ
def jmp(addr): return 12 << 11 | (addr & 0xFF) # 無条件ジャンプ
def ld(ra, addr): return 13 << 11 | ra << 8 | (addr & 0xFF) # RAMからレジスタへ値を持ってくる。
def st(ra, addr): return 14 << 11 | ra << 8 | (addr & 0xFF) # レジスタの値をRAMへ格納する。
def jnc(addr): return 15 << 11 | (addr & 0xFF) # jump if no carry
def nop() : return 0 # mov(0, 0)ということ。
def _in(ra): return ld(ra, 65) # INポートからレジスタへ読み込む。
def out(ra): return st(ra, 64) # レジスタからOUTポートへ書き出す。
# レジスタへ2バイト即値をロード(★2命令★)
def ld_hl(ra, two_bytes):
return ldh(ra, two_bytes >> 8), \
ldl(ra, two_bytes & 0xFF)
r0, r1, r2, r3, r4, r5, r6, r7 = range(8) # 汎用レジスタ
OUT = r0
RET_TO = r1
TMP0 = r2
TMP1 = r3
VAL = r4
Q = r5 # 商
# call命令 ★2命令★
# サブルーチンから戻ってくるアドレスを保存しておいてからサブルーチンへ飛ぶ、
def call(go_to, return_to):
return ldl(RET_TO, return_to), \
jmp(go_to)
# ret命令
def ret(): return jmp_reg(RET_TO)
# カーソル位置(0ベース)をセットする命令
def set_RC(r, c):
return ldl(OUT, LEFT_MOST[r] + c)
# 0xABCD (0d43981)を0xDCBA (0d56506)に変換する函数
def reverse_4nibles(two_bytes):
return eval("0x" + ((str(hex(two_bytes))[2:])[::-1]))
FILE_NAME = "rom_init.mif"
WIDTH = 15
DEPTH = 256
_ = [0] * DEPTH
F_CPU = 1E6
PERIOD = 1 / F_CPU
DELAY_40ms = 40E-3
DELAY_20ms = 20E-3
DELAY_2ms = 2E-3
DELAY_100us = 100E-6
DELAY_50us = 50E-6
LOOPS_for_40ms = (DELAY_40ms - 20 * PERIOD) / (8 * PERIOD)
LOOPS_for_40ms = constrain(LOOPS_for_40ms, 1, 2**16-1)
LOOPS_for_20ms = (DELAY_20ms - 20 * PERIOD) / (8 * PERIOD)
LOOPS_for_20ms = constrain(LOOPS_for_20ms, 1, 2**16-1)
LOOPS_for_2ms = (DELAY_2ms - 20 * PERIOD) / (8 * PERIOD)
LOOPS_for_2ms = constrain(LOOPS_for_2ms, 1, 2**16-1)
LOOPS_for_100us = (DELAY_100us - 20 * PERIOD) / (8 * PERIOD)
LOOPS_for_100us = constrain(LOOPS_for_100us, 1, 2**16-1)
LOOPS_for_50us = (DELAY_50us - 20 * PERIOD) / (8 * PERIOD)
LOOPS_for_50us = constrain(LOOPS_for_50us, 1, 2**16-1)
FUNC_SET = 0b111000 # 1, 8/4 bits, 2/1 lines, 10/8 dots, don't care, don't care
DISP_CNT = 0b1100 # 1, 文字表示, カーソル表示, カーソル点滅
CLS = 0b1 # 表示を消去
ENT_MOD = 0b110 # 1, 右/左シフト, 表示範囲全体シフト有効化
LEFT_MOST = [0x80, 0xC0] # y行目x列目のアドレス = (x + y * 0x40) | (0x80)
###############
# subroutines #
###############
ad = 149
# DELAY_40MS:
DELAY_40MS = ad+1
_[(ad := ad+1)] = ldl(TMP0, 1)
_[(ad := ad+1)], \
_[(ad := ad+1)] = ld_hl(TMP1, LOOPS_for_40ms - 1)
_[(ad := ad+1)] = sub(TMP1, TMP0)
_[(ad := ad+1)] = jnc(ad)
_[(ad := ad+1)] = ret()
# COMMAND_W:
COMMAND_W = ad+1
_[(ad := ad+1)] = out(OUT)
_[(ad := ad+1)] = ldh(OUT, 0b00)
_[(ad := ad+1)] = out(OUT)
_[(ad := ad+1)] = ldh(OUT, 0b10)
_[(ad := ad+1)] = out(OUT)
_[(ad := ad+1)] = nop()
_[(ad := ad+1)] = ldh(OUT, 0b00)
_[(ad := ad+1)] = out(OUT)
_[(ad := ad+1)] = ldl(TMP0, 1)
_[(ad := ad+1)], \
_[(ad := ad+1)] = ld_hl(TMP1, LOOPS_for_100us - 1)
_[(ad := ad+1)] = sub(TMP1, TMP0)
_[(ad := ad+1)] = jnc(ad)
_[(ad := ad+1)] = ret()
# DELAY_2MS:
DELAY_2MS = ad+1
_[(ad := ad+1)] = ldl(TMP0, 1)
_[(ad := ad+1)], \
_[(ad := ad+1)] = ld_hl(TMP1, LOOPS_for_2ms - 1)
_[(ad := ad+1)] = sub(TMP1, TMP0)
_[(ad := ad+1)] = jnc(ad)
_[(ad := ad+1)] = ret()
# DATA_W:
DATA_W = ad+1
_[(ad := ad+1)] = out(OUT)
_[(ad := ad+1)] = ldh(OUT, 0b11)
_[(ad := ad+1)] = out(OUT)
_[(ad := ad+1)] = nop()
_[(ad := ad+1)] = ldh(OUT, 0b01)
_[(ad := ad+1)] = out(OUT)
_[(ad := ad+1)] = ldl(TMP0, 1)
_[(ad := ad+1)], \
_[(ad := ad+1)] = ld_hl(TMP1, LOOPS_for_100us - 1)
_[(ad := ad+1)] = sub(TMP1, TMP0)
_[(ad := ad+1)] = jnc(ad)
_[(ad := ad+1)] = ret()
# VAL_TO_HEX:
VAL_TO_HEX = ad+1
_[(ad := ad+1)] = mov(OUT, VAL)
_[(ad := ad+1)] = ldl(TMP0, 0xF)
_[(ad := ad+1)] = _and(OUT, TMP0)
_[(ad := ad+1)] = ldl(TMP0, 10) # 値が9より大きいかどうかを判断して、
_[(ad := ad+1)] = mov(TMP1, OUT)
_[(ad := ad+1)] = sub(TMP1, TMP0)
_[(ad := ad+1)] = jnc(ad+5)
_[(ad := ad+1)] = ldl(TMP0, ord('0') ) # 値が9以下であったらそれを文字コードに変換して、
_[(ad := ad+1)] = add(OUT, TMP0)
_[(ad := ad+1)] = jmp(ad+4)
_[(ad := ad+1)] = ldl(TMP0, ord('A') - 0xA) # 値が10以上であったらそれを文字コードに変換して。
_[(ad := ad+1)] = add(OUT, TMP0)
_[(ad := ad+1)] = ret()
# SR_4:
VAL_SR_4 = ad+1
_[(ad := ad+1)] = sr(VAL)
_[(ad := ad+1)] = sr(VAL)
_[(ad := ad+1)] = sr(VAL)
_[(ad := ad+1)] = sr(VAL)
_[(ad := ad+1)] = ret()
# DELAY_100US:
DELAY_100US = ad+1
_[(ad := ad+1)] = ldl(TMP0, 1)
_[(ad := ad+1)], \
_[(ad := ad+1)] = ld_hl(TMP1, LOOPS_for_100us - 1)
_[(ad := ad+1)] = sub(TMP1, TMP0)
_[(ad := ad+1)] = jnc(ad)
_[(ad := ad+1)] = ret()
################
# main routine #
################
ad = -1
# 最初にLCDをdisableにする。
_[(ad := ad+1)] = ldh(OUT, 0b00)
_[(ad := ad+1)] = out(OUT)
# CALL DELAY_40ms
_[(ad := ad+1)], \
_[(ad := ad+1)] = call(DELAY_40MS, ad+3)
# Function Set
_[(ad := ad+1)] = ldl(OUT, FUNC_SET)
_[(ad := ad+1)], \
_[(ad := ad+1)] = call(COMMAND_W, ad+3)
# Display ON/OFF Control
_[(ad := ad+1)] = ldl(OUT, DISP_CNT)
_[(ad := ad+1)], \
_[(ad := ad+1)] = call(COMMAND_W, ad+3)
# Clear Display
_[(ad := ad+1)] = ldl(OUT, CLS)
_[(ad := ad+1)], \
_[(ad := ad+1)] = call(COMMAND_W, ad+3)
# CALL DELAY_2ms
_[(ad := ad+1)], \
_[(ad := ad+1)] = call(DELAY_2MS, ad+3)
# Entry Mode Set
_[(ad := ad+1)] = ldl(OUT, ENT_MOD)
_[(ad := ad+1)], \
_[(ad := ad+1)] = call(COMMAND_W, ad+3)
jump_where = ad+1
_[(ad := ad+1)] = _in(VAL) # 割られる数(表示する数)をINポートから読み込んで、
# 一の位を取り出して、
_[(ad := ad+1)], \
_[(ad := ad+1)], = ld_hl(TMP1, 10) # 割る数をセットして、
_[(ad := ad+1)], \
_[(ad := ad+1)] = ld_hl(Q, 0) # 商をリセットして、
_[(ad := ad+1)], \
_[(ad := ad+1)] = ld_hl(TMP0, 1) # 増分をセットして、
_[(ad := ad+1)] = add(Q, TMP0) # 引いた回数を先にインクリメントしてから、
_[(ad := ad+1)] = sub(VAL, TMP1) # 実際に引いて、
_[(ad := ad+1)] = jnc(ad-1) # キャリー(というかボロー)が発生していなければ、また引き算を繰り返すが、
_[(ad := ad+1)] = sub(Q, TMP0) # キャリー(というかボロー)が発生していたらもう引けないので、1回多く引いたぶんだけ商を戻して、
_[(ad := ad+1)] = add(VAL, TMP1) # 余りも1回分だけ戻して、
# 一の位を表示して、
_[(ad := ad+1)] = set_RC(0, 4) # カーソル位置をセットして、
_[(ad := ad+1)], \
_[(ad := ad+1)] = call(COMMAND_W, ad+3)
_[(ad := ad+1)], \
_[(ad := ad+1)] = call(VAL_TO_HEX, ad+3) # 1の位を文字コードに変換して、
_[(ad := ad+1)], \
_[(ad := ad+1)] = call(DATA_W, ad+3) # LCDへ出力して、
_[(ad := ad+1)] = mov(VAL, Q) # 次に割られる数をセットして、
# 十の位を取り出して、
_[(ad := ad+1)], \
_[(ad := ad+1)], = ld_hl(TMP1, 10)
_[(ad := ad+1)], \
_[(ad := ad+1)] = ld_hl(Q, 0)
_[(ad := ad+1)], \
_[(ad := ad+1)] = ld_hl(TMP0, 1)
_[(ad := ad+1)] = add(Q, TMP0)
_[(ad := ad+1)] = sub(VAL, TMP1)
_[(ad := ad+1)] = jnc(ad-1)
_[(ad := ad+1)] = sub(Q, TMP0)
_[(ad := ad+1)] = add(VAL, TMP1)
# 十の位を表示して、
_[(ad := ad+1)] = set_RC(0, 3)
_[(ad := ad+1)], \
_[(ad := ad+1)] = call(COMMAND_W, ad+3)
_[(ad := ad+1)], \
_[(ad := ad+1)] = call(VAL_TO_HEX, ad+3)
_[(ad := ad+1)], \
_[(ad := ad+1)] = call(DATA_W, ad+3)
_[(ad := ad+1)] = mov(VAL, Q)
# 百の位を取り出して、
_[(ad := ad+1)], \
_[(ad := ad+1)], = ld_hl(TMP1, 10)
_[(ad := ad+1)], \
_[(ad := ad+1)] = ld_hl(Q, 0)
_[(ad := ad+1)], \
_[(ad := ad+1)] = ld_hl(TMP0, 1)
_[(ad := ad+1)] = add(Q, TMP0)
_[(ad := ad+1)] = sub(VAL, TMP1)
_[(ad := ad+1)] = jnc(ad-1)
_[(ad := ad+1)] = sub(Q, TMP0)
_[(ad := ad+1)] = add(VAL, TMP1)
# 百の位を表示して、
_[(ad := ad+1)] = set_RC(0, 2)
_[(ad := ad+1)], \
_[(ad := ad+1)] = call(COMMAND_W, ad+3)
_[(ad := ad+1)], \
_[(ad := ad+1)] = call(VAL_TO_HEX, ad+3)
_[(ad := ad+1)], \
_[(ad := ad+1)] = call(DATA_W, ad+3)
_[(ad := ad+1)] = mov(VAL, Q)
# 千の位を取り出して、
_[(ad := ad+1)], \
_[(ad := ad+1)], = ld_hl(TMP1, 10)
_[(ad := ad+1)], \
_[(ad := ad+1)] = ld_hl(Q, 0)
_[(ad := ad+1)], \
_[(ad := ad+1)] = ld_hl(TMP0, 1)
_[(ad := ad+1)] = add(Q, TMP0)
_[(ad := ad+1)] = sub(VAL, TMP1)
_[(ad := ad+1)] = jnc(ad-1)
_[(ad := ad+1)] = sub(Q, TMP0)
_[(ad := ad+1)] = add(VAL, TMP1)
# 千の位を表示して、
_[(ad := ad+1)] = set_RC(0, 1)
_[(ad := ad+1)], \
_[(ad := ad+1)] = call(COMMAND_W, ad+3)
_[(ad := ad+1)], \
_[(ad := ad+1)] = call(VAL_TO_HEX, ad+3)
_[(ad := ad+1)], \
_[(ad := ad+1)] = call(DATA_W, ad+3)
_[(ad := ad+1)] = mov(VAL, Q)
# 万の位を表示して、
_[(ad := ad+1)] = set_RC(0, 0)
_[(ad := ad+1)], \
_[(ad := ad+1)] = call(COMMAND_W, ad+3)
_[(ad := ad+1)], \
_[(ad := ad+1)] = call(VAL_TO_HEX, ad+3)
_[(ad := ad+1)], \
_[(ad := ad+1)] = call(DATA_W, jump_where) # を繰り返す。
generate_mif(FILE_NAME, WIDTH, DEPTH, _)
実行結果:
INポートから0x89AB (0d35243)を入力している。
5. ファイル一式
https://github.com/ti-nspire/MAX_V_MAX10/tree/main/cpu15_mega_ram_symbol
補遺A.