27 lines
500 B
OCaml
27 lines
500 B
OCaml
|
open import "prelude.ml"
|
||
|
open import "../pretty.ml"
|
||
|
open import "../mem/decode.ml"
|
||
|
open import "../mem/int.ml"
|
||
|
|
||
|
type save_context = SaveContext of {
|
||
|
rupees: s16
|
||
|
}
|
||
|
|
||
|
instance decode save_context begin
|
||
|
let decode addr = SaveContext {
|
||
|
rupees = decode (addr + 0x0034)
|
||
|
}
|
||
|
end
|
||
|
|
||
|
instance prettyrecord save_context begin
|
||
|
let name _ = "SaveContext"
|
||
|
let fields (SaveContext x) =
|
||
|
[
|
||
|
("rupees", S x.rupees)
|
||
|
]
|
||
|
end
|
||
|
|
||
|
instance pretty save_context begin
|
||
|
let pretty = pretty_from_record
|
||
|
end
|