import "RV32IBase.core_desc"

InsructionSet RV32A extends RV32IBase{
	 
	address_spaces { 
		RES[8]
	}
	
	instructions{
		LR.W {
			encoding: b00010 | aq[0:0] | rl[0:0]  | b00000 | rs1[4:0] | b010 | rd[4:0] | b0101111;
			args_disass: "x%rd$d, x%rs1$d";
			if(rd!=0){
				val offs[XLEN] <= X[rs1];
				X[rd]<= sext(MEM[offs]{32}, XLEN);
				RES[offs]{32}<=sext(-1, 32);
			}
		}
		SC.W {
			encoding: b00011 | aq[0:0] | rl[0:0] | rs2[4:0] | rs1[4:0] | b010 | rd[4:0] | b0101111;
			args_disass: "x%rd$d, x%rs1$d, x%rs2$d";
			val offs[XLEN] <= X[rs1];
			val res1[32] <= RES[offs]{32};
			if(res1!=0)
				MEM[offs]{32} <= X[rs2];
			if(rd!=0) X[rd]<= choose(res1!=0, 0, 1);
		}
		AMOSWAP.W{
			encoding: b00001 | aq[0:0] | rl[0:0] | rs2[4:0] | rs1[4:0] | b010 | rd[4:0] | b0101111;
			args_disass: "x%rd$d, x%rs1$d, x%rs2$d (aqu=%aq$d,rel=%rl$d)";
			val offs[XLEN]<=X[rs1];
			if(rd!=0) X[rd]<=sext(MEM[offs]{32});
			MEM[offs]{32}<=X[rs2];
		}
		AMOADD.W{
			encoding: b00000 | aq[0:0] | rl[0:0] | rs2[4:0] | rs1[4:0] | b010 | rd[4:0] | b0101111;
			args_disass: "x%rd$d, x%rs1$d, x%rs2$d (aqu=%aq$d,rel=%rl$d)";
			val offs[XLEN]<=X[rs1];
			val res1[XLEN] <= sext(MEM[offs]{32});
			if(rd!=0) X[rd]<=res1;
			val res2[XLEN]<=res1 + X[rs2];
			MEM[offs]{32}<=res2;
		}
		AMOXOR.W{
			encoding: b00100 | aq[0:0] | rl[0:0] | rs2[4:0] | rs1[4:0] | b010 | rd[4:0] | b0101111;
			args_disass: "x%rd$d, x%rs1$d, x%rs2$d (aqu=%aq$d,rel=%rl$d)";
			val offs[XLEN]<=X[rs1];
			val res1[XLEN] <= sext(MEM[offs]{32});
			if(rd!=0) X[rd]<=res1;
			val res2[XLEN]<=res1 ^ X[rs2];
			MEM[offs]{32}<=res2;
		}
		AMOAND.W{
			encoding: b01100 | aq[0:0] | rl[0:0] | rs2[4:0] | rs1[4:0] | b010 | rd[4:0] | b0101111;
			args_disass: "x%rd$d, x%rs1$d, x%rs2$d (aqu=%aq$d,rel=%rl$d)";
			val offs[XLEN]<=X[rs1];
			val res1[XLEN] <= sext(MEM[offs]{32});
			if(rd!=0) X[rd]<=res1;
			val res2[XLEN] <=res1 & X[rs2];
			MEM[offs]{32}<=res2;
		}
		AMOOR.W {
			encoding: b01000 | aq[0:0] | rl[0:0] | rs2[4:0] | rs1[4:0] | b010 | rd[4:0] | b0101111;
			args_disass: "x%rd$d, x%rs1$d, x%rs2$d (aqu=%aq$d,rel=%rl$d)";
			val offs[XLEN]<=X[rs1];
			val res1[XLEN] <= sext(MEM[offs]{32});
			if(rd!=0) X[rd]<=res1;
			val res2[XLEN]<=res1 | X[rs2];
			MEM[offs]{32}<=res2;
		}
		AMOMIN.W{
			encoding: b10000 | aq[0:0] | rl[0:0] | rs2[4:0] | rs1[4:0] | b010 | rd[4:0] | b0101111;
			args_disass: "x%rd$d, x%rs1$d, x%rs2$d (aqu=%aq$d,rel=%rl$d)";
			val offs[XLEN]<=X[rs1];
			val res1[XLEN] <= sext(MEM[offs]{32});
			if(rd!=0) X[rd]<=res1;
			val res2[XLEN]<= choose(res1's>X[rs2]s, X[rs2], res1);
			MEM[offs]{32}<=res2;
		}
		AMOMAX.W{
			encoding: b10100 | aq[0:0] | rl[0:0] | rs2[4:0] | rs1[4:0] | b010 | rd[4:0] | b0101111;
			args_disass: "x%rd$d, x%rs1$d, x%rs2$d (aqu=%aq$d,rel=%rl$d)";
			val offs[XLEN]<=X[rs1];
			val res1[XLEN] <= sext(MEM[offs]{32});
			if(rd!=0) X[rd]<=res1;
			val res2[XLEN]<= choose(res1's<X[rs2]s, X[rs2], res1);
			MEM[offs]{32}<=res2;
		}
		AMOMINU.W{
			encoding: b11000 | aq[0:0] | rl[0:0] | rs2[4:0] | rs1[4:0] | b010 | rd[4:0] | b0101111;
			args_disass: "x%rd$d, x%rs1$d, x%rs2$d (aqu=%aq$d,rel=%rl$d)";
			val offs[XLEN]<=X[rs1];
			val res1[XLEN] <= zext(MEM[offs]{32});
			if(rd!=0) X[rd]<=res1;
			val res2[XLEN]<= choose(res1>X[rs2], X[rs2], res1);
			MEM[offs]{32}<=res2;
		}
		AMOMAXU.W{
			encoding: b11100 | aq[0:0] | rl[0:0] | rs2[4:0] | rs1[4:0] | b010 | rd[4:0] | b0101111;
			args_disass: "x%rd$d, x%rs1$d, x%rs2$d (aqu=%aq$d,rel=%rl$d)";
			val offs[XLEN]<=X[rs1];
			val res1[XLEN] <= zext(MEM[offs]{32});
			if(rd!=0) X[rd]<=res1;
			val res2[XLEN]<= choose(res1'u<X[rs2]'u, X[rs2], res1);
			MEM[offs]{32}<=res2;
		}
	}
}