+(defun ez-get-obj-addr (obj-id)
+ (+ ez-objtab-addr (* 2 31) (* 9 (- obj-id 1))))
+
+(defun ez-get-obj-parent (obj-id)
+ (let ((addr (ez-get-obj-addr obj-id)))
+ (ez-mem-ref-byte (+ addr 4))))
+
+(defun ez-get-obj-sibling (obj-id)
+ (let ((addr (ez-get-obj-addr obj-id)))
+ (ez-mem-ref-byte (+ addr 5))))
+
+(defun ez-get-obj-child (obj-id)
+ (let ((addr (ez-get-obj-addr obj-id)))
+ (ez-mem-ref-byte (+ addr 6))))
+
+(defun ez-get-obj-plist-addr (obj-id)
+ (let ((addr (ez-get-obj-addr obj-id)))
+ (ez-mem-ref-word (+ addr 7))))
+
+(defun ez-get-obj-name (obj-id)
+ (let ((plist-addr (ez-get-obj-plist-addr obj-id)))
+ (if (> (ez-mem-ref-byte plist-addr) 0)
+ (ez-get-zstring (+ 1 (ez-get-obj-plist-addr obj-id)))
+ nil)))
+