mirror of
https://github.com/open-goal/jak-project
synced 2026-08-18 05:48:28 -04:00
water111
20 lines
502 B
Common Lisp
20 lines
502 B
Common Lisp
(define format _format)
|
|
|
|
(let* ((base-addr #x6000000)
|
|
(word-cnt 23)
|
|
(base (the (pointer int32) base-addr))
|
|
(foo (mem-set32! base (+ 1 word-cnt) #x0))
|
|
(last-byte (the (pointer uint8) (+ base-addr 3 (* 4 (- word-cnt 1)))))
|
|
(dst (mem-set32! base word-cnt #x0badbeef))
|
|
)
|
|
|
|
(if (!= dst base)
|
|
(format #t "test failed, bad base returned!~%")
|
|
)
|
|
|
|
(if (!= 0 (-> last-byte 1))
|
|
(format #t "set too many bytes!~%")
|
|
)
|
|
|
|
(-> last-byte 0)
|
|
) |