mirror of
https://github.com/open-goal/jak-project
synced 2026-09-06 19:21:00 -04:00
water111
4eea31c3e9
- Decompile and patch `texture.gc` for PC - Improve decompiler when offset doesn't fit in immediate (for types larger than 8k and some scratchpad accesses) - Fix symbol->string issues in both jak 1 and 2 - Fix bug with VIF interrupt used to profile VU code (hooked up to OpenGLRenderer BucketRenderers in PC port) - Support `~o` in `format`. - Uncomment stuff in `merc.gc` that now works!  fixes https://github.com/open-goal/jak-project/issues/1850
276 lines
9.6 KiB
Common Lisp
276 lines
9.6 KiB
Common Lisp
;;-*-Lisp-*-
|
|
(in-package goal)
|
|
|
|
;; name: emerc.gc
|
|
;; name in dgo: emerc
|
|
;; dgos: ENGINE, GAME
|
|
|
|
(define-extern merc-vu1-add-vu-function (function dma-packet vu-function int dma-gif-packet))
|
|
|
|
;; DECOMP BEGINS
|
|
|
|
(defun emerc-vu1-initialize-chain ((arg0 dma-gif-packet))
|
|
(let ((gp-0 (the-as object (merc-vu1-add-vu-function (the-as dma-packet arg0) emerc-vu1-block 1))))
|
|
(set! (-> (the-as dma-gif-packet gp-0) dma-vif dma) (new 'static 'dma-tag :qwc #xb :id (dma-tag-id cnt)))
|
|
(set! (-> (the-as dma-gif-packet gp-0) dma-vif vif0) (new 'static 'vif-tag :imm #x404 :cmd (vif-cmd stcycl)))
|
|
(set! (-> (the-as dma-gif-packet gp-0) dma-vif vif1) (new 'static 'vif-tag :cmd (vif-cmd stmod)))
|
|
(set! (-> (the-as (pointer vif-tag) gp-0) 4) (new 'static 'vif-tag :imm #x1ba :cmd (vif-cmd base)))
|
|
(set! (-> (the-as (pointer vif-tag) gp-0) 5) (new 'static 'vif-tag :imm #xfe46 :cmd (vif-cmd offset)))
|
|
(set! (-> (the-as (pointer vif-tag) gp-0) 6) (new 'static 'vif-tag))
|
|
(set! (-> (the-as (pointer vif-tag) gp-0) 7) (new 'static 'vif-tag :num #x9 :cmd (vif-cmd unpack-v4-32)))
|
|
(let ((s5-0 (the-as emerc-vu1-low-mem (&+ (the-as dma-gif-packet gp-0) 32))))
|
|
(set! (-> s5-0 tri-strip-gif tag)
|
|
(new 'static 'gif-tag64
|
|
:pre #x1
|
|
:prim (new 'static 'gs-prim :prim (gs-prim-type tri-strip) :iip #x1 :tme #x1 :fge #x1)
|
|
:nreg #x3
|
|
)
|
|
)
|
|
(set! (-> s5-0 tri-strip-gif regs)
|
|
(new 'static 'gif-tag-regs :regs0 (gif-reg-id st) :regs1 (gif-reg-id rgbaq) :regs2 (gif-reg-id xyzf2))
|
|
)
|
|
(set! (-> s5-0 tri-strip-gif word 3) (shr (make-u128 0 (shl #x303e4000 32)) 32))
|
|
(set! (-> s5-0 ad-gif tag) (new 'static 'gif-tag64 :nloop #x5 :nreg #x1))
|
|
(set! (-> s5-0 ad-gif regs) (new 'static 'gif-tag-regs :regs0 (gif-reg-id a+d)))
|
|
(set! (-> s5-0 hvdf-offset quad) (-> *math-camera* hvdf-off quad))
|
|
(quad-copy! (the-as pointer (-> s5-0 perspective)) (the-as pointer (-> *math-camera* perspective)) 4)
|
|
(set-vector! (-> s5-0 fog) (-> *math-camera* pfog0) (-> *math-camera* fog-min) (-> *math-camera* fog-max) 0.0)
|
|
(set-vector!
|
|
(-> s5-0 unperspect)
|
|
(/ 1.0 (-> *math-camera* perspective vector 0 x))
|
|
(/ 1.0 (-> *math-camera* perspective vector 1 y))
|
|
0.5
|
|
(/ 1.0 (-> *math-camera* perspective vector 2 w))
|
|
)
|
|
)
|
|
(let ((v1-21 (-> (the-as (inline-array dma-packet) gp-0) 11)))
|
|
(set! (-> v1-21 dma) (new 'static 'dma-tag :id (dma-tag-id cnt)))
|
|
(set! (-> v1-21 vif0) (new 'static 'vif-tag))
|
|
(set! (-> v1-21 vif1) (new 'static 'vif-tag :cmd (vif-cmd mscal) :msk #x1 :imm #x0))
|
|
(&+ v1-21 16)
|
|
)
|
|
)
|
|
)
|
|
|
|
(defun emerc-vu1-init-buffer ((dma-bucket bucket-id) (test gs-test) (arg2 int))
|
|
(let ((bucket (-> *display* frames (-> *display* on-screen) bucket-group dma-bucket)))
|
|
(when (!= bucket (-> bucket last))
|
|
(let* ((dma-buf (-> *display* frames (-> *display* on-screen) global-buf))
|
|
(s3-1 (-> dma-buf base))
|
|
)
|
|
(set! (-> dma-buf base)
|
|
(the-as pointer (emerc-vu1-initialize-chain (the-as dma-gif-packet (-> dma-buf base))))
|
|
)
|
|
(let* ((v1-12 dma-buf)
|
|
(a0-4 (the-as object (-> v1-12 base)))
|
|
)
|
|
(set! (-> (the-as dma-packet a0-4) dma) (new 'static 'dma-tag :qwc #x2 :id (dma-tag-id cnt)))
|
|
(set! (-> (the-as dma-packet a0-4) vif0) (new 'static 'vif-tag))
|
|
(set! (-> (the-as dma-packet a0-4) vif1) (new 'static 'vif-tag :imm #x2 :cmd (vif-cmd direct) :msk #x1))
|
|
(set! (-> v1-12 base) (&+ (the-as pointer a0-4) 16))
|
|
)
|
|
(let* ((v1-13 dma-buf)
|
|
(a0-6 (the-as object (-> v1-13 base)))
|
|
)
|
|
(set! (-> (the-as gs-gif-tag a0-6) tag) (new 'static 'gif-tag64 :nloop #x1 :eop #x1 :nreg #x1))
|
|
(set! (-> (the-as gs-gif-tag a0-6) regs) GIF_REGS_ALL_AD)
|
|
(set! (-> v1-13 base) (&+ (the-as pointer a0-6) 16))
|
|
)
|
|
(let* ((v1-14 dma-buf)
|
|
(a0-8 (-> v1-14 base))
|
|
)
|
|
(set! (-> (the-as (pointer gs-test) a0-8) 0) test)
|
|
(set! (-> (the-as (pointer gs-reg64) a0-8) 1) (gs-reg64 test-1))
|
|
(set! (-> v1-14 base) (&+ a0-8 16))
|
|
)
|
|
(let ((v1-15 (the-as dma-packet (-> dma-buf base))))
|
|
(set! (-> v1-15 dma) (new 'static 'dma-tag :id (dma-tag-id next) :addr (-> bucket next)))
|
|
(set! (-> v1-15 vif0) (new 'static 'vif-tag))
|
|
(set! (-> v1-15 vif1) (new 'static 'vif-tag))
|
|
(set! (-> dma-buf base) (the-as pointer (the-as dma-packet (&+ v1-15 16))))
|
|
)
|
|
(set! (-> bucket next) (the-as uint s3-1))
|
|
)
|
|
)
|
|
)
|
|
0
|
|
(none)
|
|
)
|
|
|
|
(defun emerc-vu1-init-buffers ()
|
|
(when (logtest? (-> *display* vu1-enable-user) (vu1-renderer-mask emerc))
|
|
(emerc-vu1-init-buffer
|
|
(bucket-id emerc-l0-tfrag)
|
|
(new 'static 'gs-test :zte #x1 :ztst (gs-ztest greater-equal))
|
|
0
|
|
)
|
|
(emerc-vu1-init-buffer
|
|
(bucket-id emerc-l1-tfrag)
|
|
(new 'static 'gs-test :zte #x1 :ztst (gs-ztest greater-equal))
|
|
0
|
|
)
|
|
(emerc-vu1-init-buffer
|
|
(bucket-id emerc-l2-tfrag)
|
|
(new 'static 'gs-test :zte #x1 :ztst (gs-ztest greater-equal))
|
|
0
|
|
)
|
|
(emerc-vu1-init-buffer
|
|
(bucket-id emerc-l3-tfrag)
|
|
(new 'static 'gs-test :zte #x1 :ztst (gs-ztest greater-equal))
|
|
0
|
|
)
|
|
(emerc-vu1-init-buffer
|
|
(bucket-id emerc-l4-tfrag)
|
|
(new 'static 'gs-test :zte #x1 :ztst (gs-ztest greater-equal))
|
|
0
|
|
)
|
|
(emerc-vu1-init-buffer
|
|
(bucket-id emerc-l5-tfrag)
|
|
(new 'static 'gs-test :zte #x1 :ztst (gs-ztest greater-equal))
|
|
0
|
|
)
|
|
(emerc-vu1-init-buffer
|
|
(bucket-id emerc-lcom-tfrag)
|
|
(new 'static 'gs-test :zte #x1 :ztst (gs-ztest greater-equal))
|
|
0
|
|
)
|
|
(emerc-vu1-init-buffer
|
|
(bucket-id emerc-l0-pris)
|
|
(new 'static 'gs-test :zte #x1 :ztst (gs-ztest greater-equal))
|
|
0
|
|
)
|
|
(emerc-vu1-init-buffer
|
|
(bucket-id emerc-l1-pris)
|
|
(new 'static 'gs-test :zte #x1 :ztst (gs-ztest greater-equal))
|
|
0
|
|
)
|
|
(emerc-vu1-init-buffer
|
|
(bucket-id emerc-l2-pris)
|
|
(new 'static 'gs-test :zte #x1 :ztst (gs-ztest greater-equal))
|
|
0
|
|
)
|
|
(emerc-vu1-init-buffer
|
|
(bucket-id emerc-l3-pris)
|
|
(new 'static 'gs-test :zte #x1 :ztst (gs-ztest greater-equal))
|
|
0
|
|
)
|
|
(emerc-vu1-init-buffer
|
|
(bucket-id emerc-l4-pris)
|
|
(new 'static 'gs-test :zte #x1 :ztst (gs-ztest greater-equal))
|
|
0
|
|
)
|
|
(emerc-vu1-init-buffer
|
|
(bucket-id emerc-l5-pris)
|
|
(new 'static 'gs-test :zte #x1 :ztst (gs-ztest greater-equal))
|
|
0
|
|
)
|
|
(emerc-vu1-init-buffer
|
|
(bucket-id emerc-lcom-pris)
|
|
(new 'static 'gs-test :zte #x1 :ztst (gs-ztest greater-equal))
|
|
0
|
|
)
|
|
(emerc-vu1-init-buffer
|
|
(bucket-id emerc-l0-shrub)
|
|
(new 'static 'gs-test :zte #x1 :ztst (gs-ztest greater-equal))
|
|
0
|
|
)
|
|
(emerc-vu1-init-buffer
|
|
(bucket-id emerc-l1-shrub)
|
|
(new 'static 'gs-test :zte #x1 :ztst (gs-ztest greater-equal))
|
|
0
|
|
)
|
|
(emerc-vu1-init-buffer
|
|
(bucket-id emerc-l2-shrub)
|
|
(new 'static 'gs-test :zte #x1 :ztst (gs-ztest greater-equal))
|
|
0
|
|
)
|
|
(emerc-vu1-init-buffer
|
|
(bucket-id emerc-l3-shrub)
|
|
(new 'static 'gs-test :zte #x1 :ztst (gs-ztest greater-equal))
|
|
0
|
|
)
|
|
(emerc-vu1-init-buffer
|
|
(bucket-id emerc-l4-shrub)
|
|
(new 'static 'gs-test :zte #x1 :ztst (gs-ztest greater-equal))
|
|
0
|
|
)
|
|
(emerc-vu1-init-buffer
|
|
(bucket-id emerc-l5-shrub)
|
|
(new 'static 'gs-test :zte #x1 :ztst (gs-ztest greater-equal))
|
|
0
|
|
)
|
|
(emerc-vu1-init-buffer
|
|
(bucket-id emerc-lcom-shrub)
|
|
(new 'static 'gs-test :zte #x1 :ztst (gs-ztest greater-equal))
|
|
0
|
|
)
|
|
(emerc-vu1-init-buffer
|
|
(bucket-id emerc-l0-alpha)
|
|
(new 'static 'gs-test :zte #x1 :ztst (gs-ztest greater-equal))
|
|
0
|
|
)
|
|
(emerc-vu1-init-buffer
|
|
(bucket-id emerc-l1-alpha)
|
|
(new 'static 'gs-test :zte #x1 :ztst (gs-ztest greater-equal))
|
|
0
|
|
)
|
|
(emerc-vu1-init-buffer
|
|
(bucket-id emerc-l2-alpha)
|
|
(new 'static 'gs-test :zte #x1 :ztst (gs-ztest greater-equal))
|
|
0
|
|
)
|
|
(emerc-vu1-init-buffer
|
|
(bucket-id emerc-l3-alpha)
|
|
(new 'static 'gs-test :zte #x1 :ztst (gs-ztest greater-equal))
|
|
0
|
|
)
|
|
(emerc-vu1-init-buffer
|
|
(bucket-id emerc-l4-alpha)
|
|
(new 'static 'gs-test :zte #x1 :ztst (gs-ztest greater-equal))
|
|
0
|
|
)
|
|
(emerc-vu1-init-buffer
|
|
(bucket-id emerc-l5-alpha)
|
|
(new 'static 'gs-test :zte #x1 :ztst (gs-ztest greater-equal))
|
|
0
|
|
)
|
|
(emerc-vu1-init-buffer
|
|
(bucket-id emerc-l0-pris2)
|
|
(new 'static 'gs-test :zte #x1 :ztst (gs-ztest greater-equal))
|
|
0
|
|
)
|
|
(emerc-vu1-init-buffer
|
|
(bucket-id emerc-l1-pris2)
|
|
(new 'static 'gs-test :zte #x1 :ztst (gs-ztest greater-equal))
|
|
0
|
|
)
|
|
(emerc-vu1-init-buffer
|
|
(bucket-id emerc-l2-pris2)
|
|
(new 'static 'gs-test :zte #x1 :ztst (gs-ztest greater-equal))
|
|
0
|
|
)
|
|
(emerc-vu1-init-buffer
|
|
(bucket-id emerc-l3-pris2)
|
|
(new 'static 'gs-test :zte #x1 :ztst (gs-ztest greater-equal))
|
|
0
|
|
)
|
|
(emerc-vu1-init-buffer
|
|
(bucket-id emerc-l4-pris2)
|
|
(new 'static 'gs-test :zte #x1 :ztst (gs-ztest greater-equal))
|
|
0
|
|
)
|
|
(emerc-vu1-init-buffer
|
|
(bucket-id emerc-l5-pris2)
|
|
(new 'static 'gs-test :zte #x1 :ztst (gs-ztest greater-equal))
|
|
0
|
|
)
|
|
(emerc-vu1-init-buffer
|
|
(bucket-id emerc-lcom-pris2)
|
|
(new 'static 'gs-test :zte #x1 :ztst (gs-ztest greater-equal))
|
|
0
|
|
)
|
|
)
|
|
0
|
|
(none)
|
|
)
|