Allow Adding to Ram or CU

This commit is contained in:
2020-12-25 18:08:56 +01:00
parent 0a15d5bef4
commit 0c4c97fc2a
3 changed files with 151 additions and 6 deletions

View File

@ -5706,6 +5706,21 @@ var $author$project$Main$update = F2(
} else {
return _Utils_Tuple2(model, $elm$core$Platform$Cmd$none);
}
case 'MsgRamAddBelow':
var old_pc = model.pc;
var new_pc = _Utils_update(
old_pc,
{
ram: _Utils_ap(
old_pc.ram,
_List_fromArray(
[0]))
});
return _Utils_Tuple2(
_Utils_update(
model,
{pc: new_pc}),
$elm$core$Platform$Cmd$none);
case 'MsgCuEditAction':
var addr = msg.a;
var may_action = msg.b;
@ -5721,6 +5736,17 @@ var $author$project$Main$update = F2(
} else {
return _Utils_Tuple2(model, $elm$core$Platform$Cmd$none);
}
case 'MsgCuAddBelow':
return _Utils_Tuple2(
_Utils_update(
model,
{
uCode: _Utils_ap(
model.uCode,
_List_fromArray(
[$author$project$Main$ActNothing]))
}),
$elm$core$Platform$Cmd$none);
default:
return _Utils_Tuple2(
_Utils_update(
@ -5974,6 +6000,7 @@ var $elm$html$Html$table = _VirtualDom_node('table');
var $elm$html$Html$th = _VirtualDom_node('th');
var $elm$html$Html$thead = _VirtualDom_node('thead');
var $elm$html$Html$tr = _VirtualDom_node('tr');
var $author$project$Main$MsgCuAddBelow = {$: 'MsgCuAddBelow'};
var $elm$core$Tuple$pair = F2(
function (a, b) {
return _Utils_Tuple2(a, b);
@ -6069,7 +6096,34 @@ var $author$project$Main$viewCuUCodeContent = function (model) {
return A2(
$elm$html$Html$tbody,
_List_Nil,
A2($elm$core$List$map, list2table, indexedList));
_Utils_ap(
A2($elm$core$List$map, list2table, indexedList),
_List_fromArray(
[
A2(
$elm$html$Html$tr,
_List_Nil,
_List_fromArray(
[
A2($elm$html$Html$td, _List_Nil, _List_Nil),
A2(
$elm$html$Html$td,
_List_Nil,
_List_fromArray(
[
A2(
$elm$html$Html$button,
_List_fromArray(
[
$elm$html$Html$Events$onClick($author$project$Main$MsgCuAddBelow)
]),
_List_fromArray(
[
$elm$html$Html$text('Add Entry')
]))
]))
]))
])));
};
var $author$project$Main$viewCuUCode = function (model) {
return A2(
@ -6300,6 +6354,7 @@ var $author$project$Main$viewDataBus = function (model) {
]))
]));
};
var $author$project$Main$MsgRamAddBelow = {$: 'MsgRamAddBelow'};
var $author$project$Main$MsgRamEditAddress = F2(
function (a, b) {
return {$: 'MsgRamEditAddress', a: a, b: b};
@ -6413,7 +6468,34 @@ var $author$project$Main$viewRamContent = function (model) {
return A2(
$elm$html$Html$tbody,
_List_Nil,
A2($elm$core$List$map, ram2table, indexedRam));
_Utils_ap(
A2($elm$core$List$map, ram2table, indexedRam),
_List_fromArray(
[
A2(
$elm$html$Html$tr,
_List_Nil,
_List_fromArray(
[
A2($elm$html$Html$td, _List_Nil, _List_Nil),
A2(
$elm$html$Html$td,
_List_Nil,
_List_fromArray(
[
A2(
$elm$html$Html$button,
_List_fromArray(
[
$elm$html$Html$Events$onClick($author$project$Main$MsgRamAddBelow)
]),
_List_fromArray(
[
$elm$html$Html$text('Add Entry')
]))
]))
]))
])));
};
var $author$project$Main$viewRam = function (model) {
return A2(