mirror of
https://github.com/open-goal/jak-project
synced 2026-05-23 06:54:31 -04:00
9 lines
228 B
Common Lisp
9 lines
228 B
Common Lisp
(let* ((base-addr #x6000000)
|
|
(ptr-int32 (the (pointer int32) base-addr))
|
|
(ptr-int16 (the (pointer int16) base-addr))
|
|
)
|
|
(set! (-> ptr-int32 1) #x00070006)
|
|
(+ (-> ptr-int16 2)
|
|
(-> ptr-int16 3)
|
|
)
|
|
) |