X-Git-Url: http://cloudbase.mooo.com/gitweb/z180-stamp.git/blobdiff_plain/b51d2360e5a32408daae39b1c311868d0d34374c..ef77033ca52647599df6c9053d073216d439780c:/avr/cmd_loadcpm3.c

diff --git a/avr/cmd_loadcpm3.c b/avr/cmd_loadcpm3.c
index f24ee19..6b2f62f 100644
--- a/avr/cmd_loadcpm3.c
+++ b/avr/cmd_loadcpm3.c
@@ -143,6 +143,9 @@ command_ret_t do_loadcpm3(cmd_tbl_t *cmdtp, int flag, int argc, char * const arg
 		common_base = (uint16_t) buffer[0] + (buffer[1] << 8);
 		setenv_hex(PSTR(ENV_CPM3_COMMON_BASE), common_base);
 	}
+
+	setenv_hex(PSTR(ENV_CPM3_SCB), mem_top - ((res_len - (6 - 1)) << 8) + common_base);
+
 	/* Main System Load	*/
 
 	/* Load Common Portion of System */