21 lines
441 B
OCaml
21 lines
441 B
OCaml
|
open import "prelude.ml"
|
||
|
|
|
||
|
|
open import "./save_context.ml"
|
||
|
|
|
||
|
|
open import "./pretty.ml"
|
||
|
|
open import "./dolphin.ml"
|
||
|
|
|
||
|
|
let base_address = 0xf64120
|
||
|
|
|
||
|
|
let g_save_ctx_address = 0x11a5d0
|
||
|
|
|
||
|
|
let decode_save_ctx : () -> save_context = decode (base_address + g_save_ctx_address)
|
||
|
|
|
||
|
|
let main x =
|
||
|
|
let save_ctx = decode_save_ctx x
|
||
|
|
let display_save_ctx = "Save Context: " ^ (pretty save_ctx 0)
|
||
|
|
Dolphin.set_screen_text display_save_ctx x
|
||
|
|
|
||
|
|
let () =
|
||
|
|
main ()
|