From 6e8d951360d65cd01126dfafdde70534c01e029d Mon Sep 17 00:00:00 2001
From: "(Tim) Efthimis Kritikos" <efkf@firemail.cc>
Date: Fri, 24 Feb 2023 17:36:41 +0000
Subject: [PATCH] Increased the accessible memory and got the Mandelbrot
 renderer working under the brainfuck compiler!

---
 boot_code/brainfuck_compiler_v1.asm  |   1 -
 boot_code/brainfuck_mandelbrot.asm   |   4 +++-
 boot_code/brainfuck_mandelbrot.stage | Bin 32768 -> 0 bytes
 common.mk                            |   2 +-
 system/decoder.v                     |   2 +-
 system/memory.v                      |   8 ++++----
 system/testbench.v                   |   4 ++--
 7 files changed, 11 insertions(+), 10 deletions(-)
 delete mode 100644 boot_code/brainfuck_mandelbrot.stage

diff --git a/boot_code/brainfuck_compiler_v1.asm b/boot_code/brainfuck_compiler_v1.asm
index 1296c07..250beca 100644
--- a/boot_code/brainfuck_compiler_v1.asm
+++ b/boot_code/brainfuck_compiler_v1.asm
@@ -242,4 +242,3 @@ bootup_msg: .ASCII 'Native brainfuck compiler v1\n'
 DATA: .BLKB 560
  .BLKB 200
 STACK:
-output_program: .BLKB 600
diff --git a/boot_code/brainfuck_mandelbrot.asm b/boot_code/brainfuck_mandelbrot.asm
index 7b82c94..d4238ac 100644
--- a/boot_code/brainfuck_mandelbrot.asm
+++ b/boot_code/brainfuck_mandelbrot.asm
@@ -1,4 +1,4 @@
-INCLUDE brainfuck_interpreter_v0.asm
+INCLUDE brainfuck_compiler_v1.asm
 
 prog:
 .ASCII '+++++++++++++[->++>>>+++++>++>+<<<<<<]>>>>>++++++>--->>>>>>>>>>+++++++++++++++[['
@@ -145,3 +145,5 @@ prog:
 .ASCII '>>>]>[-]+<]]+>[-<[>>>>>>>>>]<<<<<<<<]>>>>>>>>]<<<<<<<<<[<<<<<<<<<]>>>>[-]<<<++++'
 .ASCII '+[-[->>>>>>>>>+<<<<<<<<<]>>>>>>>>>]>>>>>->>>>>>>>>>>>>>>>>>>>>>>>>>>-<<<<<<[<<<<'
 .ASCII '<<<<<]]>>>]'
+
+output_program:
diff --git a/boot_code/brainfuck_mandelbrot.stage b/boot_code/brainfuck_mandelbrot.stage
deleted file mode 100644
index 2cb91ac241f577cf23c961d535f084fe1385f589..0000000000000000000000000000000000000000
GIT binary patch
literal 0
HcmV?d00001

literal 32768
zcmeHNON$g&6fVVyU>+_FNQj1jiA_tga?^AmLS_-j)<x3+BL*Z-q;=iFMby9GI-BXu
z2nJfrlR;t@<_~1!vZ1#@FyKticV72aO;t^|k0k0Tu&3(Qx#xW6JKsI`PLDtQx$kDN
za((xe19uLe82`QR{Jo!Ee(~qq$8QwHyf?d5%&r#G>$@k@D+eaiJBKIpw`SLh*|){?
z%HGMeS4^g(mC5>aZE$g8&*j%vS1-=@Ot<b%F26S~uI%}s*BQOp>yD1}`lF-0-l*Ff
zjNa)DM?dzCjlNs|>(a{2BP-L}$G7gzJ}x$Yo&PaAS#173|84emv3YC$%j}I}^UnOn
z?EPZ)Y6^Fr!<}4RMVR^3@%>`-`uP5?(JSNoTciEc@!rX$+iUZerki^w^B1O@`zQ0_
zTCp*HP>ha_AM6?(96#6^9h`o%F}XBbyLW3mT3O#(o9|yQ*5>=xPpr*X)<0aE7vC2f
zMO?u^F!1a%@X@K!*$Zb5eRA&9*)KmmfBLgSr@#8*>$9JqId|y7yZfH~^drMyAQ%V+
zf&nnl$*)1T-|6)G^g$PHJ3YRJG^V4Sez)7@$85}f3<myc*cr%V`jq*2)umxG8FYvJ
zq1)70lYs*0afCsa0NQ15a_<%gIW%2qo`o()Mo@)lNCC7JX#xtIi^5bSO5T#Q41BLw
zfzM!(d_pg_N{TXWOcDs-=%gC8mc+gG2VI3=WZOLR4DpET#e6U9Ft50hXFp2%BZ$MD
z{yB|h7DYU)1WT_~0AQP?DM|1g=0nH;4OA$yz<YX2@9;!-{A%byQj`pk$vV}vBu8@U
zVwXsWX63+blZA&(#se_cE9EkvM=iEa7y`XY22&XTLJzs(bc1^bH9(?rWr4)1VknuY
z6l9i6(Hu2Deqt-wBnXd%&L*}TFj7-I$g0G7U8YZjQVOgzC0w<4jtE$rE-6-fb!?GY
z!?FgGi_w}wwJk|pT2QqBz+k3#w?PC>60+dEfNAe)=Io3yOEpp<Kt#nMdNe!EU_-+)
zDpa!iWX}<g^!*Jo!o(ypIJc`D#ABp3+2<A{amZH|++6rNsbycS2o69ny*@$q=}KAT
z(Zo?h5!N>=SY3CJBij*w^b&w^Qx2Gdf<#J#Ed3vbYSF_Kn<p+wo%xh-JR?<ZnJq}X
zZ~}~+0~o|6By3dW>_6Wzm~F~L@(}DoiZvEIAz`wh*LaeHS+<xw<xG!8hcS=z-HwE)
zK`@*aPBM7NU4tvr>1TU}W`^JtQmSluH18OIwG%Z<D8^Ni63nRLU>s0(@tp!o6{<B6
z8vmD7(S%BMQA)C^usm265Jb~np6a3vr0Iuq?)28&h)Q>=ic6s>mX0qGGG7bsHLaOS
zSIygmTXQ$&r#daA-y<^g2GA1rMW{<~2}v`V(p}9P>C(Y*Dpc@pk6}t+>Fu!5z#aO{
z3XhUFFW%IOumzYrV3a1|LAfFXc+y$oVf#KRV1)>Ji#-+ybSDQmcyaBqLwuC;p;$^_
zwvVEv@G!?l=<K9GE=!Hm9amiwQR+K)jY0NKZnAOn;&N#$fbhYf*+yuWB=}ei0}vv~
z6D`|)(gscFm_e?U+$Zrd8s$ZJhA~Ws*2G(kDKb=niI~E7t>$Vi{*4I)g9}vy?m2b9
zLgMUJF(Pkz*>!DUA}(eK9xEB|fGL3|46Il3)tmxIk%SjwGr44Q$7mV*?nwtHy4nj4
z3tY*|(@|PE>QQofLn+X5$RG2RP(r?#5l&bZPXjq*yKvuY>B~@+;A{D*$hIwiM#(MP
zS5j6apOt6CYo<9R5k20MNAd-kJ{Jc!p~NX`xN(}9`GyarySWmmG+iyK@bIZ4ls6R#
z&864ni^67mNYk2j&$y}hBwUhUwrluCr4Cs?97ozC^(>|i6Opm>%sfgth{t$*zim?F
z8VJIWe2c@cnV=k@FAJ}fw(xWSkvvLOhc6nCU5d8BlxoQgJ}CfM(=g^V8)Es}dQ0AD
z2S*Bc#V>_kC0#--xfizsVWhHeG-0KjfJxBOXG2Qr1jn%K61I6eVlP%7_)86tM$@cq
z%3)JXG=T~`%8yT#y;b)(iYTF5T<hNMOw;!tN<0mzw;d0i0M6}_0&?Cy5l^zR1n>4W
zgq%1jHmEFR@@n!>|Lh(gWrjeHDT6)I$IuoqoRDKIU3hschgigWl#?cB3&bFd=@R%v
z#p0(eOUOyVjrsu#;+Mw!P?YJmZ0e^h$du<bn-b>anau4Hu|d;GLWahq%@cu*;vf`Z
z<7v!?U}saYli5oyc5%K#63h(&up@V4wkQx5sd&ZDHdC==zs5?IB4^f`?$YFeO1`Ww
zcq^c|c31_`oIx{my#9CTFw{ty)5d_wgz!3lAS^d}Y-dxYOr)plMgTBb(nUcELv2AP
z?^_NvPsLFe^`~TQ#b(9GYT;b?MwHpP;Fu70$5l*KwWXwtr5dNUm5d?Z_}i9HMW3~N
zLY%5r7?y0jl24ja3apFB3tE5Uh=8@}5{YG)-B%J{%UW~m)a)|-dQdwr_<-Jk!8&_1
z3r-R{!Snjt2IbzcQDcLll2L`|lgliIU`yzd9msaiV>F6at{WQQ3w5_{U;RnuG$9?C
z^Lq}gwQs5)!g17kab==f?0<J8Ij42U5ViyGJZ+9a@Wo624~4MRZ{tFZ`A`??!5kQb
zy4c**Eg~V5GZ%R^m)?HO$h^{Nl#irtD+NWCV!~mWRDh)EjswpWK+hG-i+#9#L%u`>
zPV9VT5bdv2Ai%!pR;zk4>i#CeZGi#+r*C#1#G>+Rz;z<%jh#FsB}6v5$PU_i0-#xx
z3(Aq{-Cq9$oDC#JO;FQAa@H@K70T1Ik4h+z%H_yJOgobP$)4VLh!&Q?IEN5dLa?GV
zX(@zqc#ocI3PpLO-_y9NBx+oXRYA~a*dTUJ!&)4eV4mRIUUE*^tn53o#o}V6>Q&*X
zZa?!<_{vXOcFFg-CuP<2+WVOMvFNrU+=+w9lT)BlGn+!*y)h-Nv;!n2Rdd3-id)!}
z2La$MC+i7bg}NS<j{R0G0-d0i*Lw-Bwkg6@X;MCY8#x)M6jzm0X;oP$TSmIUB5C)G
zuQ`Ne3=szvr9pe%t}>tWs|pQM=!b{D#A3-rtCGlmsB&s_lTzbCTOQW5jRZ>E_1P{X
zag%*kf{IWHn+rdEy<{xg?Dnd7e=|TTDZ}i`MctKwIF1q!jB=Z$Y%_ocD3iVomA$eS
zmTGeP|1Pp(Ww)Z+yz8*`;y-W)1HnKr5DWwZ!9Xw&3<LwgKrj#t1Ovf9Fc1s`1HnKr
z5DWwZ!9Xw&3<LwgKrj#t1Ovf9Fc1s`1HnKr5DWwZ!9Xw&3<LwgKrj#t1Ovf9Fc1s`
t1HnKr5DWwZ!9Xw&3<LwgKrj#t1Ovf9Fc1s`1HnKr5DWwZ!NAkQz&{1^kLdsa

diff --git a/common.mk b/common.mk
index 02606a3..80da53d 100644
--- a/common.mk
+++ b/common.mk
@@ -22,7 +22,7 @@ disas: $(subst .txt,.disas,${BOOT_CODE})
 
 # Assembling code
 %.txt:%.bin
-	${Q}dd if=/dev/zero bs=1 count=16384 of="$(subst .bin,.stage,$<)" status=none
+	${Q}dd if=/dev/zero bs=1 count=32768 of="$(subst .bin,.stage,$<)" status=none
 	${Q}dd if="$<" of="$(subst .bin,.stage,$<)" conv=notrunc,nocreat status=none
 	${Q}xxd -ps -c 2 "$(subst .bin,.stage,$<)" > "$@"
 	${Q}rm "$(subst .bin,.stage,$<)"
diff --git a/system/decoder.v b/system/decoder.v
index bf2c3dc..bdf951a 100644
--- a/system/decoder.v
+++ b/system/decoder.v
@@ -520,7 +520,7 @@ always @( CIR or SIMPLE_MICRO or seq_addr_input ) begin
 			end
 			11'b1111_1111_100:begin
 				/*            JMP - Unconditional indirect within segment jump               */
-				/* 1 1 1 1  1 1 1 1 | MOD 1 0  1  R/M  |   < DISP-LO >    |    < DISP-HI >   */
+				/* 1 1 1 1  1 1 1 1 | MOD 1 0  0  R/M  |   < DISP-LO >    |    < DISP-HI >   */
 				`start_aligning_instruction
 				opcode_size=1;
 				has_operands=0;
diff --git a/system/memory.v b/system/memory.v
index 5ab1c0b..1cee02a 100644
--- a/system/memory.v
+++ b/system/memory.v
@@ -18,20 +18,20 @@
    along with this program.  If not, see <http://www.gnu.org/licenses/>.  */
 
 module mem(input [19:0] address,inout wire [15:0] data ,input rd,input wr,input cs);
-reg [15:0] memory [0:8191];
+reg [15:0] memory [0:32768];
 initial begin
 	string boot_code;
 	if(!$value$plusargs("BOOT_CODE=%s",boot_code))begin
 		$display("No boot code specified. Please add +BOOT_CODE=<path> to your vvp args");
 		$finish;
 	end
-	$readmemh(boot_code, memory);
+	$readmemh(boot_code, memory,0,16383);
 end
 
-assign data = !rd & !cs ? memory[address[12:0]]: 16'hz;
+assign data = !rd & !cs ? memory[address[15:0]]: 16'hz;
 
 always @(negedge wr) begin
-	memory[address[12:0]]=data;
+	memory[address[15:0]]=data;
 end
 
 endmodule
diff --git a/system/testbench.v b/system/testbench.v
index 383912c..6483d1d 100644
--- a/system/testbench.v
+++ b/system/testbench.v
@@ -56,7 +56,7 @@ end
 always @(posedge HALT) begin
 	$display("Processor halted.\nCycles run for: %d",cycles);
 	if($value$plusargs("MEMDUMP=%s",memdump_name))begin
-		$writememh(memdump_name, sysmem.memory);
+		$writememh(memdump_name, sysmem.memory,0,32767);
 	end
 	#(`CPU_SPEED) //Just for the waveform
 	$finish;
@@ -66,7 +66,7 @@ always @(posedge ERROR) begin
 	clk_enable <= 0;
 	$display("PROCESSOR RUN INTO AN ERROR.\nCycles run for: %d",cycles);
 	if($value$plusargs("MEMDUMP=%s",memdump_name))begin
-		$writememh(memdump_name, sysmem.memory);
+		$writememh(memdump_name, sysmem.memory,0,32767);
 	end
 	#(`CPU_SPEED) //Just for the waveform
 	$finish;