8086で小さなバイナリのインタプリタ #ikebin

let aout = System.IO.File.ReadAllBytes "a.out"
let read16 (a:byte[]) b =
    (int a.[b]) ||| ((int a.[b+1]) <<< 8)
let tsize = read16 aout 2
let dsize = read16 aout 4
let mem = aout.[16 .. 16 + tsize + dsize - 1]
let mutable ax, ip = 0, 0
while ip < tsize do
    match int mem.[ip] with
    | 0xb8 ->
        ax <- read16 mem (ip + 1)
        ip <- ip + 3
    | 0xcd ->
        let n = int mem.[ip + 1]
        if n = 7 then
            match int mem.[ip + 2] with
            | 1 ->
                exit ax
            | 4 ->
                // データ部のアドレスを指定する
                let arg1 = read16 mem (ip + 3)
                // データの長さ
                let arg2 = read16 mem (ip + 5)
                let bytes = mem.[arg1 .. arg1 + arg2 - 1]
                // ASCIIで配列の中身を全て表示する
                // printf "%s" (System.Text.Encoding.ASCII.GetString bytes)
                // ↑の別解
                for b in bytes do
                  printf "%c" (char b)
                ip <- ip + 7
            | _ ->
                ip <- ip + 2
    | w ->
        printfn "%04x: %02x: ???" ip w
        exit 1

• わからなかったらとりあえず進めること。

• もしくは知っている者に聞くこと。

• HDDからプログラムを読み込み、メモリに格納する。メモリに格納したプログラムをCPUが実行する。