BL fixing I think done correctly? idk

Source/Atmosphere/stratosphere/loader/source/oc/mtc_timing_value.hpp

@@ -58,15 +58,14 @@
      // const u32 TIMING_PRESET_SIX = C.ramTimingPresetSix;
      // const u32 TIMING_PRESET_SEVEN = C.ramTimingPresetSeven;
 
+     // Burst Length
+     const u32 BL = 16;
 
     // Write Latency
     const u32 WL = 14 + C.mem_burst_latency;
     // Read Latency
     const u32 RL = 32 - C.mem_burst_latency;
 
-     // Burst Length
-     const u32 BL = 16;
-
     // tRFCpb (refresh cycle time per bank) in ns for 8Gb density
     const u32 tRFCpb = !C.t5_tRFC ? 140 : tRFC_values[C.t5_tRFC-1];
 
@@ -128,13 +127,38 @@
     const u32 REFRESH = MIN((u32)65472, u32(std::ceil((double(tREFpb) * C.marikoEmcMaxClock / numOfRows * 1.048 / 2 - 64))) / 4 * 4);
     const u32 REFBW = MIN((u32)65536, REFRESH+64);
 
+    // DQS output access time from CK_t/CK_c
+    const double tDQSCK_min = 1.5;
+    const double tDQSCK_max = 3.5;
+    // Write preamble (tCK)
+    const double tWPRE = 1.8;
+    // Read postamble (tCK)
+    const double tRPST = 0.4;
+
     namespace pcv::erista {
         // tCK_avg (average clock period) in ns
         const double tCK_avg = 1000'000. / C.eristaEmcMaxClock;
+
+        // minimum number of cycles from any read command to any write command, irrespective of bank
+        const u32 R2W = CEIL (RL + CEIL(tDQSCK_max/tCK_avg) + BL/2 - WL + tWPRE + FLOOR(tRPST)) + 6;
+
+        // Delay Time From WRITE-to-READ
+        const u32 W2R = WL + BL/2 + 1 + CEIL(tWTR/tCK_avg) - 6;
+
+        // write-to-precharge time for commands to the same bank in cycles
+        const u32 WTP = WL + BL/2 + 1 + CEIL(tWR/tCK_avg) - 8;
     }
 
     namespace pcv::mariko {
         // tCK_avg (average clock period) in ns
         const double tCK_avg = 1000'000. / C.marikoEmcMaxClock;
+
+        const u32 R2W = CEIL (RL + CEIL(tDQSCK_max/tCK_avg) + BL/2 - WL + tWPRE + FLOOR(tRPST)) + 6;
+
+        // Delay Time From WRITE-to-READ
+        const u32 W2R = WL + BL/2 + 1 + CEIL(tWTR/tCK_avg) - 6;
+
+        // write-to-precharge time for commands to the same bank in cycles
+        const u32 WTP = WL + BL/2 + 1 + CEIL(tWR/tCK_avg) - 8;
     }
 }

Source/Atmosphere/stratosphere/loader/source/oc/pcv/pcv_erista.cpp

@@ -177,6 +177,9 @@
         WRITE_PARAM_ALL_REG(table, emc_ras, GET_CYCLE_CEIL(tRAS));
         WRITE_PARAM_ALL_REG(table, emc_rp, GET_CYCLE_CEIL(tRPpb));
         WRITE_PARAM_ALL_REG(table, emc_r2p, GET_CYCLE_CEIL(tRTP));
+        WRITE_PARAM_ALL_REG(table, emc_r2w, R2W);
+        WRITE_PARAM_ALL_REG(table, emc_w2r, W2R);
+        WRITE_PARAM_ALL_REG(table, emc_w2p, WTP);
         WRITE_PARAM_ALL_REG(table, emc_rd_rcd, GET_CYCLE_CEIL(tRCD));
         WRITE_PARAM_ALL_REG(table, emc_wr_rcd, GET_CYCLE_CEIL(tRCD));
         WRITE_PARAM_ALL_REG(table, emc_rrd, GET_CYCLE_CEIL(tRRD));

Source/Atmosphere/stratosphere/loader/source/oc/pcv/pcv_mariko.cpp

@@ -272,10 +272,14 @@ void MemMtcTableAutoAdjust(MarikoMtcTable* table) {
     WRITE_PARAM_ALL_REG(table, emc_refresh,             REFRESH);
     WRITE_PARAM_ALL_REG(table, emc_pre_refresh_req_cnt, REFRESH / 4);
 
-    /* Do not patch on micron. */
+    WRITE_PARAM_ALL_REG(table, emc_r2w, R2W);
+    WRITE_PARAM_ALL_REG(table, emc_w2r, W2R);
+    WRITE_PARAM_ALL_REG(table, emc_w2p, WTP);
+
+    /* May or may not have to be patched in Micron; let's skip for now. */
     if (!IsMicron()) {
-    WRITE_PARAM_ALL_REG(table, emc_pdex2wr,             GET_CYCLE_CEIL(tXP)); // NOT on micron
+        WRITE_PARAM_ALL_REG(table, emc_pdex2wr,             GET_CYCLE_CEIL(tXP));
-    WRITE_PARAM_ALL_REG(table, emc_pdex2rd,             GET_CYCLE_CEIL(tXP)); // NOT on micron
+        WRITE_PARAM_ALL_REG(table, emc_pdex2rd,             GET_CYCLE_CEIL(tXP));
     }
 
     WRITE_PARAM_ALL_REG(table, emc_txsr,                MIN(GET_CYCLE_CEIL(tXSR), (u32)0x3fe));
@@ -285,6 +289,7 @@ void MemMtcTableAutoAdjust(MarikoMtcTable* table) {
     WRITE_PARAM_ALL_REG(table, emc_trpab,               GET_CYCLE_CEIL(tRPab));
     WRITE_PARAM_ALL_REG(table, emc_trefbw,              REFBW);
 
+    /* Worth replacing with l4t dumps at some point. */
     // Burst MC Regs
     #define WRITE_PARAM_BURST_MC_REG(TABLE, PARAM, VALUE)   TABLE->burst_mc_regs.PARAM = VALUE;