sgemm_v13.cpp

/**
* Not - Working code for
* 1. Global load from A, B and C (asm)
* 2. Write to LDS (asm)
* 3. Read from LDS (asm)
* 4. 8 iteration of outer product (asm)
* 5. offset based load and stores (asm)
* 6. Store to global (asm)
* + Double Buffering!
*/

#include <iostream>
#include <hip/hip_runtime.h>
#include <hip/hip_runtime_api.h>
#include "outer_product.h"
#include "global_ops.h"
#include "shared_ops.h"
#include "dims.h"
#include "dpp_helper.h"
#include <fstream>

constexpr uint32_t xDim = 4096;
constexpr uint32_t yDim = 4096;
constexpr uint32_t xDim4 = xDim/4;
constexpr uint32_t xDim8 = xDim/8;
constexpr uint32_t x32 = 32;
constexpr uint32_t x16 = 16;
constexpr size_t Size = xDim * yDim * sizeof(float);

__global__ void SGEMM(Float4 *A, Float4 *B, Float4 *C, int *getGlobalAId, int *getGlobalCId) {
    int tx = hipThreadIdx_x;
    int ty = hipThreadIdx_y;
    int bx = hipBlockIdx_x;
    int by = hipBlockIdx_y;

    Float4 rA[4], rB[2];
    Float4 c[16];

    Float4 ra, rb;

    uint32_t redA = 0;
    uint32_t redB = 4096;

    uint32_t ldsReadA = 0;
    uint32_t ldsReadB = 4096;
    uint32_t ldsWriteA = 0;
    uint32_t ldsWriteB = 4096;

    int id = tx + (ty % 2) * x16 + (ty / 2) * x32;
    int a_global_id = tx + (ty % 2) * x16 + (ty / 2) * 1024 + by * x32;
    int b_global_id = tx + (ty % 2) * x16 + (ty / 2) * 1024 + bx * x32;

    int cid0 = tx + ty * 4 * xDim4 + bx * 32 + by * 1024 * 128;

    global_load<0>(A, ra, a_global_id);
    global_load<0>(B, rb, b_global_id);
    a_global_id += 8 * 1024;
    b_global_id += 8 * 1024;

    ldsReadA = redA+ty*16;
    ldsReadB = redB+(tx%2)*16 + (tx/2);

    uint32_t ldsWrite = redA+id*16;
    ldsWriteB = redB+id*16;
    ldsWriteA = redA+id*16;

    Float4 *tmpC = C + cid0;
    global_load<0>(tmpC, c[0]);
    global_load<16>(tmpC, c[4]);
    tmpC += 1024;
    global_load<0>(tmpC, c[1]);
    global_load<16>(tmpC, c[5]);
    tmpC += 1024;
    global_load<0>(tmpC, c[2]);
    global_load<16>(tmpC, c[6]);
    tmpC += 1024;
    global_load<0>(tmpC, c[3]);
    global_load<16>(tmpC, c[7]);

    tmpC = C + 64*1024 + cid0;
    global_load<0>(tmpC, c[8]);
    global_load<16>(tmpC, c[12]);
    tmpC += 1024;
    global_load<0>(tmpC, c[9]);
    global_load<16>(tmpC, c[13]);
    tmpC += 1024;
    global_load<0>(tmpC, c[10]);
    global_load<16>(tmpC, c[14]);
    tmpC += 1024;
    global_load<0>(tmpC, c[11]);
    global_load<16>(tmpC, c[15]);

    vmcnt<0>();
    shared_write_b128_off<0>(ra, ldsWriteA);
    shared_write_b128_off<4096>(rb, ldsWriteA);
    lgkmcnt<0>();

    //shared_read_b128<0>(rA[0], rA[1], rB[0], rB[1], ldsReadA, ldsReadB);
    shared_read_b128<0>(rA[0], rA[1], rB[0], ldsReadA, ldsReadB);

    for(int j=1;j<yDim/8;j++) {

        global_load<0>(A, ra, a_global_id);
        global_load<0>(B, rb, b_global_id);
        a_global_id += 8 * 1024;
        b_global_id += 8 * 1024;

//        shared_read_b128<512>(rA[2], rA[3], rB[2], rB[3], ldsReadA, ldsReadB);
        shared_read_b128<512>(rA[2], rA[3], rB[1], ldsReadA, ldsReadB);
        lgkmcnt<4>();

        // i = 0
/*
        outerProduct4x4(rA[0], rB[0], c[0], c[1], c[2], c[3]);
        outerProduct4x4(rA[0], rB[1], c[4], c[5], c[6], c[7]);
        outerProduct4x4(rA[1], rB[0], c[8], c[9], c[10], c[11]);
        outerProduct4x4(rA[1], rB[1], c[12], c[13], c[14], c[15]);
*/
        outerProduct4x4(rA[0], rA[1], rB[0], \
            c[0], c[1], c[2], c[3], c[4], c[5], c[6], c[7], \
            c[8], c[9], c[10], c[11], c[12], c[13], c[14], c[15]);
        shared_read_b128<2*512>(rA[0], rA[1], rB[0], ldsReadA, ldsReadB);
//        shared_read_b128<2*512>(rA[0], rA[1], rB[0], rB[1], ldsReadA, ldsReadB);
        lgkmcnt<4>();

        // i = 1
/*
        outerProduct4x4(rA[2], rB[2], c[0], c[1], c[2], c[3]);
        outerProduct4x4(rA[2], rB[3], c[4], c[5], c[6], c[7]);
        outerProduct4x4(rA[3], rB[2], c[8], c[9], c[10], c[11]);
        outerProduct4x4(rA[3], rB[3], c[12], c[13], c[14], c[15]);

        shared_read_b128<3*512>(rA[2], rA[3], rB[2], rB[3], ldsReadA, ldsReadB);
*/
        outerProduct4x4(rA[2], rA[3], rB[1], \
            c[0], c[1], c[2], c[3], c[4], c[5], c[6], c[7], \
            c[8], c[9], c[10], c[11], c[12], c[13], c[14], c[15]);
        shared_read_b128<3*512>(rA[2], rA[3], rB[1], ldsReadA, ldsReadB);
        lgkmcnt<4>();

    // i = 2
/*
        outerProduct4x4(rA[0], rB[0], c[0], c[1], c[2], c[3]);
        outerProduct4x4(rA[0], rB[1], c[4], c[5], c[6], c[7]);
        outerProduct4x4(rA[1], rB[0], c[8], c[9], c[10], c[11]);
        outerProduct4x4(rA[1], rB[1], c[12], c[13], c[14], c[15]);

        shared_read_b128<4*512>(rA[0], rA[1], rB[0], rB[1], ldsReadA, ldsReadB);
*/
        outerProduct4x4(rA[0], rA[1], rB[0], \
            c[0], c[1], c[2], c[3], c[4], c[5], c[6], c[7], \
            c[8], c[9], c[10], c[11], c[12], c[13], c[14], c[15]);
        shared_read_b128<4*512>(rA[0], rA[1], rB[0], ldsReadA, ldsReadB);
        lgkmcnt<4>();

    // i = 3
/*
        outerProduct4x4(rA[2], rB[2], c[0], c[1], c[2], c[3]);
        outerProduct4x4(rA[2], rB[3], c[4], c[5], c[6], c[7]);
        outerProduct4x4(rA[3], rB[2], c[8], c[9], c[10], c[11]);
        outerProduct4x4(rA[3], rB[3], c[12], c[13], c[14], c[15]);

        shared_read_b128<5*512>(rA[2], rA[3], rB[2], rB[3], ldsReadA, ldsReadB);
*/
        outerProduct4x4(rA[2], rA[3], rB[1], \
            c[0], c[1], c[2], c[3], c[4], c[5], c[6], c[7], \
            c[8], c[9], c[10], c[11], c[12], c[13], c[14], c[15]);
        shared_read_b128<5*512>(rA[2], rA[3], rB[1], ldsReadA, ldsReadB);
        lgkmcnt<4>();

    // i = 4
/*
        outerProduct4x4(rA[0], rB[0], c[0], c[1], c[2], c[3]);
        outerProduct4x4(rA[0], rB[1], c[4], c[5], c[6], c[7]);
        outerProduct4x4(rA[1], rB[0], c[8], c[9], c[10], c[11]);
        outerProduct4x4(rA[1], rB[1], c[12], c[13], c[14], c[15]);

        shared_read_b128<6*512>(rA[0], rA[1], rB[0], rB[1], ldsReadA, ldsReadB);
*/
        outerProduct4x4(rA[0], rA[1], rB[0], \
            c[0], c[1], c[2], c[3], c[4], c[5], c[6], c[7], \
            c[8], c[9], c[10], c[11], c[12], c[13], c[14], c[15]);
        shared_read_b128<6*512>(rA[0], rA[1], rB[0], ldsReadA, ldsReadB);
        lgkmcnt<4>();

    // i = 5
/*
        outerProduct4x4(rA[2], rB[2], c[0], c[1], c[2], c[3]);
        outerProduct4x4(rA[2], rB[3], c[4], c[5], c[6], c[7]);
        outerProduct4x4(rA[3], rB[2], c[8], c[9], c[10], c[11]);
        outerProduct4x4(rA[3], rB[3], c[12], c[13], c[14], c[15]);

        shared_read_b128<7*512>(rA[2], rA[3], rB[2], rB[3], ldsReadA, ldsReadB);
*/
        outerProduct4x4(rA[2], rA[3], rB[1], \
            c[0], c[1], c[2], c[3], c[4], c[5], c[6], c[7], \
            c[8], c[9], c[10], c[11], c[12], c[13], c[14], c[15]);
        shared_read_b128<7*512>(rA[2], rA[3], rB[1], ldsReadA, ldsReadB);
        redA = redA ^ 0x2000;
        redB = redB ^ 0x2000;

        ldsWriteA = redA+id*16;
        ldsWriteB = redB+id*16;
        ldsReadA = redA+ty*16;
//        ldsReadB = redB+tx*16;
        ldsReadB = redB+(tx%2)*16 + (tx/2);

        vmcnt<0>();

        shared_write_b128_off<0>(ra, ldsWriteA);
        shared_write_b128_off<4096>(rb, ldsWriteA);

        lgkmcnt<2>();

        // i = 6
/*
        outerProduct4x4(rA[0], rB[0], c[0], c[1], c[2], c[3]);
        outerProduct4x4(rA[0], rB[1], c[4], c[5], c[6], c[7]);
        outerProduct4x4(rA[1], rB[0], c[8], c[9], c[10], c[11]);
        outerProduct4x4(rA[1], rB[1], c[12], c[13], c[14], c[15]);
*/
        outerProduct4x4(rA[0], rA[1], rB[0], \
            c[0], c[1], c[2], c[3], c[4], c[5], c[6], c[7], \
            c[8], c[9], c[10], c[11], c[12], c[13], c[14], c[15]);
        lgkmcnt<0>();
        __syncthreads();

//        shared_read_b128<0>(rA[0], rA[1], rB[0], rB[1], ldsReadA, ldsReadB);
        shared_read_b128<0>(rA[0], rA[1], rB[0], ldsReadA, ldsReadB);

    // i = 7
/*
        outerProduct4x4(rA[2], rB[2], c[0], c[1], c[2], c[3]);
        outerProduct4x4(rA[2], rB[3], c[4], c[5], c[6], c[7]);
        outerProduct4x4(rA[3], rB[2], c[8], c[9], c[10], c[11]);
        outerProduct4x4(rA[3], rB[3], c[12], c[13], c[14], c[15]);
*/
        outerProduct4x4(rA[2], rA[3], rB[1], \
            c[0], c[1], c[2], c[3], c[4], c[5], c[6], c[7], \
            c[8], c[9], c[10], c[11], c[12], c[13], c[14], c[15]);
    }


//    shared_read_b128<512>(rA[2], rA[3], rB[2], rB[3], ldsReadA, ldsReadB);
    shared_read_b128<512>(rA[2], rA[3], rB[1], ldsReadA, ldsReadB);
    lgkmcnt<4>();

    // i = 0
/*
    outerProduct4x4(rA[0], rB[0], c[0], c[1], c[2], c[3]);
    outerProduct4x4(rA[0], rB[1], c[4], c[5], c[6], c[7]);
    outerProduct4x4(rA[1], rB[0], c[8], c[9], c[10], c[11]);
    outerProduct4x4(rA[1], rB[1], c[12], c[13], c[14], c[15]);

    shared_read_b128<2*512>(rA[0], rA[1], rB[0], rB[1], ldsReadA, ldsReadB);
*/
    outerProduct4x4(rA[0], rA[1], rB[0], \
        c[0], c[1], c[2], c[3], c[4], c[5], c[6], c[7], \
        c[8], c[9], c[10], c[11], c[12], c[13], c[14], c[15]);
    shared_read_b128<2*512>(rA[0], rA[1], rB[0], ldsReadA, ldsReadB);
    lgkmcnt<4>();

    // i = 1
/*
    outerProduct4x4(rA[2], rB[2], c[0], c[1], c[2], c[3]);
    outerProduct4x4(rA[2], rB[3], c[4], c[5], c[6], c[7]);
    outerProduct4x4(rA[3], rB[2], c[8], c[9], c[10], c[11]);
    outerProduct4x4(rA[3], rB[3], c[12], c[13], c[14], c[15]);

    shared_read_b128<3*512>(rA[2], rA[3], rB[2], rB[3], ldsReadA, ldsReadB);
*/
    outerProduct4x4(rA[2], rA[3], rB[1], \
        c[0], c[1], c[2], c[3], c[4], c[5], c[6], c[7], \
        c[8], c[9], c[10], c[11], c[12], c[13], c[14], c[15]);
    shared_read_b128<3*512>(rA[2], rA[3], rB[1], ldsReadA, ldsReadB);
    lgkmcnt<4>();

    // i = 2
/*
    outerProduct4x4(rA[0], rB[0], c[0], c[1], c[2], c[3]);
    outerProduct4x4(rA[0], rB[1], c[4], c[5], c[6], c[7]);
    outerProduct4x4(rA[1], rB[0], c[8], c[9], c[10], c[11]);
    outerProduct4x4(rA[1], rB[1], c[12], c[13], c[14], c[15]);

    shared_read_b128<4*512>(rA[0], rA[1], rB[0], rB[1], ldsReadA, ldsReadB);
*/
    outerProduct4x4(rA[0], rA[1], rB[0], \
        c[0], c[1], c[2], c[3], c[4], c[5], c[6], c[7], \
        c[8], c[9], c[10], c[11], c[12], c[13], c[14], c[15]);
    shared_read_b128<4*512>(rA[0], rA[1], rB[0], ldsReadA, ldsReadB);
    lgkmcnt<4>();

    // i = 3
/*
    outerProduct4x4(rA[2], rB[2], c[0], c[1], c[2], c[3]);
    outerProduct4x4(rA[2], rB[3], c[4], c[5], c[6], c[7]);
    outerProduct4x4(rA[3], rB[2], c[8], c[9], c[10], c[11]);
    outerProduct4x4(rA[3], rB[3], c[12], c[13], c[14], c[15]);

    shared_read_b128<5*512>(rA[2], rA[3], rB[2], rB[3], ldsReadA, ldsReadB);
*/
    outerProduct4x4(rA[2], rA[3], rB[1], \
        c[0], c[1], c[2], c[3], c[4], c[5], c[6], c[7], \
        c[8], c[9], c[10], c[11], c[12], c[13], c[14], c[15]);
    shared_read_b128<5*512>(rA[2], rA[3], rB[1], ldsReadA, ldsReadB);
    lgkmcnt<4>();

    // i = 4
/*
    outerProduct4x4(rA[0], rB[0], c[0], c[1], c[2], c[3]);
    outerProduct4x4(rA[0], rB[1], c[4], c[5], c[6], c[7]);
    outerProduct4x4(rA[1], rB[0], c[8], c[9], c[10], c[11]);
    outerProduct4x4(rA[1], rB[1], c[12], c[13], c[14], c[15]);

    shared_read_b128<6*512>(rA[0], rA[1], rB[0], rB[1], ldsReadA, ldsReadB);
*/
    outerProduct4x4(rA[0], rA[1], rB[0], \
        c[0], c[1], c[2], c[3], c[4], c[5], c[6], c[7], \
        c[8], c[9], c[10], c[11], c[12], c[13], c[14], c[15]);
    shared_read_b128<6*512>(rA[0], rA[1], rB[0], ldsReadA, ldsReadB);
    lgkmcnt<4>();

    // i = 5
/*
    outerProduct4x4(rA[2], rB[2], c[0], c[1], c[2], c[3]);
    outerProduct4x4(rA[2], rB[3], c[4], c[5], c[6], c[7]);
    outerProduct4x4(rA[3], rB[2], c[8], c[9], c[10], c[11]);
    outerProduct4x4(rA[3], rB[3], c[12], c[13], c[14], c[15]);


    shared_read_b128<7*512>(rA[2], rA[3], rB[2], rB[3], ldsReadA, ldsReadB);
*/
    outerProduct4x4(rA[2], rA[3], rB[1], \
        c[0], c[1], c[2], c[3], c[4], c[5], c[6], c[7], \
        c[8], c[9], c[10], c[11], c[12], c[13], c[14], c[15]);
    shared_read_b128<7*512>(rA[2], rA[3], rB[1], ldsReadA, ldsReadB);
    lgkmcnt<4>();
    // i = 6
/*
    outerProduct4x4(rA[0], rB[0], c[0], c[1], c[2], c[3]);
    outerProduct4x4(rA[0], rB[1], c[4], c[5], c[6], c[7]);
    outerProduct4x4(rA[1], rB[0], c[8], c[9], c[10], c[11]);
    outerProduct4x4(rA[1], rB[1], c[12], c[13], c[14], c[15]);
*/
    outerProduct4x4(rA[0], rA[1], rB[0], \
        c[0], c[1], c[2], c[3], c[4], c[5], c[6], c[7], \
        c[8], c[9], c[10], c[11], c[12], c[13], c[14], c[15]);
    lgkmcnt<0>();

    // i = 7
/*
    outerProduct4x4(rA[2], rB[2], c[0], c[1], c[2], c[3]);
    outerProduct4x4(rA[2], rB[3], c[4], c[5], c[6], c[7]);
    outerProduct4x4(rA[3], rB[2], c[8], c[9], c[10], c[11]);
    outerProduct4x4(rA[3], rB[3], c[12], c[13], c[14], c[15]);
*/
    outerProduct4x4(rA[2], rA[3], rB[1], \
        c[0], c[1], c[2], c[3], c[4], c[5], c[6], c[7], \
        c[8], c[9], c[10], c[11], c[12], c[13], c[14], c[15]);
    tmpC = C + cid0;
    global_store<0>(tmpC, c[0]);
    global_store<16>(tmpC, c[4]);
    tmpC += 1024;
    global_store<0>(tmpC, c[1]);
    global_store<16>(tmpC, c[5]);
    tmpC += 1024;
    global_store<0>(tmpC, c[2]);
    global_store<16>(tmpC, c[6]);
    tmpC += 1024;
    global_store<0>(tmpC, c[3]);
    global_store<16>(tmpC, c[7]);

    tmpC = C + 64*1024;
    global_store<0>(tmpC, c[8]);
    global_store<16>(tmpC, c[12]);
    tmpC += 1024;
    global_store<0>(tmpC, c[9]);
    global_store<16>(tmpC, c[13]);
    tmpC += 1024;
    global_store<0>(tmpC, c[10]);
    global_store<16>(tmpC, c[14]);
    tmpC += 1024;
    global_store<0>(tmpC, c[11]);
    global_store<16>(tmpC, c[15]);

    vmcnt<0>();
}


int main() {
    hipSetDevice(1);
    std::vector<Float4> a(xDim4*yDim), b(xDim4*yDim), c(xDim*xDim4);
    std::fill(c.begin(), c.end(), 0.0f);
    float *_a = reinterpret_cast<float*>(a.data());
    float *_b = reinterpret_cast<float*>(b.data());
    float *_c = reinterpret_cast<float*>(c.data());

    for(int j=0;j<yDim;j++) {
        for(int i=0;i<xDim;i++) {
            _a[i + j * xDim] = (j+i*xDim)*1.0f + 1.0f;
            if(i == j) {
            _b[i + j * xDim] = 1.0f;
            } else {
            _b[i + j * xDim] = 0.0f;
            }
        }
    }

    Float4 *Ad, *Bd, *Cd;
    int *buffA, *buffB;
    hipHostMalloc(&buffA, 16*16*sizeof(int));
    hipHostMalloc(&buffB, 16*16*sizeof(int));
    hipMalloc(&Ad, a.size()*sizeof(Float4));
    hipMalloc(&Bd, b.size()*sizeof(Float4));
    hipMalloc(&Cd, c.size()*sizeof(Float4));
    hipMemcpy(Ad, a.data(), a.size()*sizeof(Float4), hipMemcpyHostToDevice);
    hipMemcpy(Bd, b.data(), b.size()*sizeof(Float4), hipMemcpyHostToDevice);
    hipMemcpy(Cd, c.data(), c.size()*sizeof(Float4), hipMemcpyHostToDevice);
    auto start = std::chrono::high_resolution_clock::now();
    hipLaunchKernelGGL(SGEMM, dim3(32,32,1), dim3(16,16,1), 4*sizeof(float)*8*128*2, 0, Ad, Bd, Cd, buffA, buffB);
    hipDeviceSynchronize();
    auto stop = std::chrono::high_resolution_clock::now();
    double sec = std::chrono::duration_cast<std::chrono::duration<double>>(stop - start).count();
    std::cout<<sec<<std::endl;
    double flops = (double)xDim * (double)yDim * (double)yDim * 2 / (double)1.0e12;
    double floppersec = flops / sec;
    std::cout<<flops<<" "<<sec<<" "<<floppersec<<std::endl;
    hipMemcpy(c.data(), Cd, c.size()*sizeof(Float4), hipMemcpyDeviceToHost);
    std::ofstream outfile;
    outfile.open("outfile.txt");

    std::cout<<"writing to outfile"<<std::endl;

    for(int j=0;j<4;j++) {
        for(int i=0;i<xDim;i++) {
            outfile << _c[i+j*xDim] <<" ";
        }
        outfile <<"\n";
    }
    outfile<<"\n\n\n";
/*
    std::cout<<"Done writing to outfile"<<std::endl;
    for(int j=0;j<16;j++) {
        for(int i=0;i<16;i++) {
            outfile << buffA[i+j*16]<<" ";
        }
        outfile << "\n";
    }
    outfile<<"\n\n\n";
    for(int j=0;j<16;j++) {
        for(int i=0;i<16;i++) {
            outfile << buffB[i+j*16]<<" ";
        }
        outfile << "\n";
    }
    outfile<<"\n\n\n";
*/
    outfile.close();
}