;;-*-Lisp-*-
(in-package goal)

;; name: tfrag-work.gc
;; name in dgo: tfrag-work
;; dgos: ENGINE, GAME

;; DECOMP BEGINS

(define *tfrag-work* (new 'static 'tfrag-work
                       :base-tmpl (new 'static 'dma-packet
                         :dma (new 'static 'dma-tag :id (dma-tag-id ref))
                         :vif0 (new 'static 'vif-tag :imm #x404 :cmd (vif-cmd stcycl))
                         )
                       :level-0-tmpl (new 'static 'dma-packet
                         :dma (new 'static 'dma-tag :id (dma-tag-id ref))
                         :vif0 (new 'static 'vif-tag :imm #x404 :cmd (vif-cmd stcycl))
                         )
                       :common-tmpl (new 'static 'dma-packet
                         :dma (new 'static 'dma-tag :id (dma-tag-id ref))
                         :vif0 (new 'static 'vif-tag :imm #x404 :cmd (vif-cmd stcycl))
                         )
                       :level-1-tmpl (new 'static 'dma-packet
                         :dma (new 'static 'dma-tag :id (dma-tag-id ref))
                         :vif0 (new 'static 'vif-tag :imm #x404 :cmd (vif-cmd stcycl))
                         )
                       :color-tmpl (new 'static 'dma-packet
                         :dma (new 'static 'dma-tag :id (dma-tag-id cnt))
                         :vif0 (new 'static 'vif-tag :imm #x102 :cmd (vif-cmd stcycl))
                         :vif1 (new 'static 'vif-tag :imm #xc000 :cmd (vif-cmd unpack-v4-8))
                         )
                       :max-fragment #xffff
                       )
        )

(set! (-> *tfrag-work* color-ptr x) (+ 6144 (the-as int *fake-scratchpad-data*)))
(set! (-> *tfrag-work* color-ptr y) (+ 6144 (the-as int *fake-scratchpad-data*)))
(set! (-> *tfrag-work* color-ptr z) (+ 6144 (the-as int *fake-scratchpad-data*)))
(set! (-> *tfrag-work* color-ptr w) (+ 6144 (the-as int *fake-scratchpad-data*)))




