if not devinfo.has_dpas then
  error("DPAS not supported in this platform.")
end

local gen = require("mod/gen")
local matrix = require("mod/matrix")

-- Similar to the constants used for VK_KHR_cooperative_matrix.
local M = 8
local N = devinfo.ver >= 20 and 16 or 8
local K = 16

local one_hf = 0x3c00

local A = matrix.new(M, K, one_hf)
local B = matrix.new_diag(K, N, one_hf)
local C = matrix.new(M, N, 0)

-- Note: when tinkering with values, use set() method to set
-- values, e.g.
--
-- A:set(0, 2, 0x4000)

-- Calculate A * B + C.  A and B are HF values, C and the result
-- are F values.
local buf = alloc(M * N, { fill = 0 })

execute {
  src =
    [[@param autoswsb

]]
    .. gen.mov_grf("hf", 10, A:to_row_major())

    -- For `src1`, the source representing the B matrix, DPAS expects
    -- the values to be in a layout that looks like an "interleaved"
    -- row major.  Elements from `packing_factor` rows are packed
    -- together.
    --
    -- See mod/matrix.lua for details on that format.
    --
    .. gen.mov_grf("hf", 20, B:to_interleaved_row_major(2))

    .. gen.mov_grf("f",  30, C:to_row_major())

    .. (devinfo.ver >= 20 and [[

    dpas.8x8 (16) r40:f r30:f r20:hf r10:hf
    @syncnop

    ]] or [[

    dpas.8x8 (8) r40:f r30:f r20:hf r10:hf
    @syncnop

    ]])

    .. gen.write_grfs(40, 8, "buf0")
    .. [[

    @eot

    ]],
}

local r = matrix.from_row_major_buffer(M, N, buf:read(M * N))
r:print("0x%08x")
