mirror of
https://github.com/open-goal/jak-project.git
synced 2024-10-20 11:26:18 -04:00
12 lines
290 B
Common Lisp
12 lines
290 B
Common Lisp
(let* ((base-addr #x6000000)
|
|
(offset #x123)
|
|
(ptr-int32 (the (pointer int32) base-addr))
|
|
(ptr-int16 (the (pointer int16) #x6000123))
|
|
)
|
|
(set! (-> ptr-int32 1) #x00070006)
|
|
(mem-copy! ptr-int16 ptr-int32 8)
|
|
(+ (-> ptr-int16 2)
|
|
(-> ptr-int16 3)
|
|
)
|
|
)
|