[decomp] get started on game info (#674)

* temp

* menu text

* wip

* recognize handle to process

* more

test/decompiler/reference/kernel/gkernel-h_REF.gc

@@ -285,35 +285,15 @@
   )
 
 ;; definition for method 2 of type handle
-;; WARN: Unsupported inline assembly instruction kind - [subu a2, v1, s7]
 (defmethod print handle ((obj handle))
-  (local-vars (a2-0 int) (s7-0 none))
-  (cond
-   ((nonzero? obj)
-    (let ((t9-0 format)
-          (a0-1 #t)
-          (a1-0 "#<handle :process ~A :pid ~D>")
-          (v1-0 obj)
-          )
-     (.subu a2-0 v1-0 s7-0)
-     (t9-0
-      a0-1
-      a1-0
-      (and
-       (nonzero? a2-0)
-       (let ((a3-0 (-> (the-as (pointer process) (-> v1-0 process)) 0)))
-        (if (= (-> v1-0 pid) (-> a3-0 pid))
-         a3-0
-         )
-        )
-       )
-      (-> obj pid)
-      )
-     )
-    )
-   (else
-    (format #t "#<handle :process 0 :pid 0>")
+  (if (nonzero? obj)
+   (format
+    #t
+    "#<handle :process ~A :pid ~D>"
+    (handle->process obj)
+    (-> obj pid)
     )
+   (format #t "#<handle :process 0 :pid 0>")
    )
   obj
   )