Added Mobile Layout and comments
This commit is contained in:
435
out/js/elm.js
435
out/js/elm.js
@ -4939,22 +4939,22 @@ var $elm$core$Array$builderToArray = F2(
|
||||
if (!builder.b) {
|
||||
return A4(
|
||||
$elm$core$Array$Array_elm_builtin,
|
||||
$elm$core$Elm$JsArray$length(builder.d),
|
||||
$elm$core$Elm$JsArray$length(builder.e),
|
||||
$elm$core$Array$shiftStep,
|
||||
$elm$core$Elm$JsArray$empty,
|
||||
builder.d);
|
||||
builder.e);
|
||||
} else {
|
||||
var treeLen = builder.b * $elm$core$Array$branchFactor;
|
||||
var depth = $elm$core$Basics$floor(
|
||||
A2($elm$core$Basics$logBase, $elm$core$Array$branchFactor, treeLen - 1));
|
||||
var correctNodeList = reverseNodeList ? $elm$core$List$reverse(builder.e) : builder.e;
|
||||
var correctNodeList = reverseNodeList ? $elm$core$List$reverse(builder.f) : builder.f;
|
||||
var tree = A2($elm$core$Array$treeFromBuilder, correctNodeList, builder.b);
|
||||
return A4(
|
||||
$elm$core$Array$Array_elm_builtin,
|
||||
$elm$core$Elm$JsArray$length(builder.d) + treeLen,
|
||||
$elm$core$Elm$JsArray$length(builder.e) + treeLen,
|
||||
A2($elm$core$Basics$max, 5, depth * $elm$core$Array$shiftStep),
|
||||
tree,
|
||||
builder.d);
|
||||
builder.e);
|
||||
}
|
||||
});
|
||||
var $elm$core$Basics$idiv = _Basics_idiv;
|
||||
@ -4967,7 +4967,7 @@ var $elm$core$Array$initializeHelp = F5(
|
||||
return A2(
|
||||
$elm$core$Array$builderToArray,
|
||||
false,
|
||||
{e: nodeList, b: (len / $elm$core$Array$branchFactor) | 0, d: tail});
|
||||
{f: nodeList, b: (len / $elm$core$Array$branchFactor) | 0, e: tail});
|
||||
} else {
|
||||
var leaf = $elm$core$Array$Leaf(
|
||||
A3($elm$core$Elm$JsArray$initialize, $elm$core$Array$branchFactor, fromIndex, fn));
|
||||
@ -5320,10 +5320,22 @@ var $author$project$Main$Model = F7(
|
||||
var $author$project$Main$Waiting = {$: 1};
|
||||
var $author$project$Main$PC = F7(
|
||||
function (ram, dataBus, addressBus, instructionReg, programmCounter, uCounter, accumulator) {
|
||||
return {m: accumulator, r: addressBus, s: dataBus, k: instructionReg, u: programmCounter, f: ram, l: uCounter};
|
||||
return {m: accumulator, r: addressBus, s: dataBus, k: instructionReg, u: programmCounter, c: ram, l: uCounter};
|
||||
});
|
||||
var $author$project$Main$initialRam = _List_fromArray(
|
||||
[100005, 300000, 200005, 400000, 0, 5, 0, 0, 0, 0, 0]);
|
||||
[
|
||||
_Utils_Tuple2(100005, 'LoadA #005'),
|
||||
_Utils_Tuple2(300000, 'IncA'),
|
||||
_Utils_Tuple2(200005, 'StoreA #005'),
|
||||
_Utils_Tuple2(400000, 'JMP #000'),
|
||||
_Utils_Tuple2(0, ''),
|
||||
_Utils_Tuple2(5, 'val'),
|
||||
_Utils_Tuple2(0, ''),
|
||||
_Utils_Tuple2(0, ''),
|
||||
_Utils_Tuple2(0, ''),
|
||||
_Utils_Tuple2(0, ''),
|
||||
_Utils_Tuple2(0, '')
|
||||
]);
|
||||
var $author$project$Main$initialPC = A7($author$project$Main$PC, $author$project$Main$initialRam, 0, 0, 0, 0, 0, 0);
|
||||
var $author$project$Main$ActAccumulator2DataBus = 0;
|
||||
var $author$project$Main$ActAccumulatorIncrement = 2;
|
||||
@ -5348,7 +5360,7 @@ var $author$project$Main$init = function (flags) {
|
||||
$elm$core$Platform$Cmd$none);
|
||||
};
|
||||
var $author$project$Main$MsgLocalSessionRecieve = function (a) {
|
||||
return {$: 18, a: a};
|
||||
return {$: 19, a: a};
|
||||
};
|
||||
var $elm$json$Json$Decode$string = _Json_decodeString;
|
||||
var $author$project$Main$localStorageRecieve = _Platform_incomingPort('localStorageRecieve', $elm$json$Json$Decode$string);
|
||||
@ -5556,16 +5568,47 @@ var $author$project$Main$changeAt = F4(
|
||||
A2($elm$core$List$cons, newVal, after));
|
||||
}
|
||||
});
|
||||
var $author$project$Main$changeAtInt = F3(
|
||||
var $elm$core$List$head = function (list) {
|
||||
if (list.b) {
|
||||
var x = list.a;
|
||||
var xs = list.b;
|
||||
return $elm$core$Maybe$Just(x);
|
||||
} else {
|
||||
return $elm$core$Maybe$Nothing;
|
||||
}
|
||||
};
|
||||
var $author$project$Main$valueAt = F2(
|
||||
function (n, l) {
|
||||
return $elm$core$List$head(
|
||||
A2($elm$core$List$drop, n, l));
|
||||
});
|
||||
var $author$project$Main$valueAtRam = F2(
|
||||
function (n, l) {
|
||||
var _v0 = A2($author$project$Main$valueAt, n, l);
|
||||
if (!_v0.$) {
|
||||
var a = _v0.a;
|
||||
return a;
|
||||
} else {
|
||||
return _Utils_Tuple2(0, '');
|
||||
}
|
||||
});
|
||||
var $author$project$Main$changeAtRam = F3(
|
||||
function (pos, newVal, list) {
|
||||
return A4($author$project$Main$changeAt, pos, newVal, 0, list);
|
||||
var _v0 = A2($author$project$Main$valueAtRam, pos, list);
|
||||
var comment = _v0.b;
|
||||
return A4(
|
||||
$author$project$Main$changeAt,
|
||||
pos,
|
||||
_Utils_Tuple2(newVal, comment),
|
||||
_Utils_Tuple2(0, ''),
|
||||
list);
|
||||
});
|
||||
var $author$project$Main$changeAtUCode = F3(
|
||||
function (pos, newVal, list) {
|
||||
return A4($author$project$Main$changeAt, pos, newVal, 14, list);
|
||||
});
|
||||
var $author$project$Main$MsgLoadExampleArrived = function (a) {
|
||||
return {$: 22, a: a};
|
||||
return {$: 23, a: a};
|
||||
};
|
||||
var $elm$json$Json$Decode$decodeString = _Json_runOnString;
|
||||
var $elm$http$Http$BadStatus_ = F2(
|
||||
@ -6356,10 +6399,15 @@ var $elm$http$Http$get = function (r) {
|
||||
};
|
||||
var $elm$json$Json$Decode$bool = _Json_decodeBool;
|
||||
var $elm$json$Json$Decode$field = _Json_decodeField;
|
||||
var $elm$json$Json$Decode$index = _Json_decodeIndex;
|
||||
var $elm$json$Json$Decode$int = _Json_decodeInt;
|
||||
var $elm$json$Json$Decode$list = _Json_decodeList;
|
||||
var $elm$json$Json$Decode$map3 = _Json_map3;
|
||||
var $elm$json$Json$Decode$map7 = _Json_map7;
|
||||
var $elm$core$Tuple$pair = F2(
|
||||
function (a, b) {
|
||||
return _Utils_Tuple2(a, b);
|
||||
});
|
||||
var $elm$core$List$filter = F2(
|
||||
function (isGood, list) {
|
||||
return A3(
|
||||
@ -6371,15 +6419,6 @@ var $elm$core$List$filter = F2(
|
||||
_List_Nil,
|
||||
list);
|
||||
});
|
||||
var $elm$core$List$head = function (list) {
|
||||
if (list.b) {
|
||||
var x = list.a;
|
||||
var xs = list.b;
|
||||
return $elm$core$Maybe$Just(x);
|
||||
} else {
|
||||
return $elm$core$Maybe$Nothing;
|
||||
}
|
||||
};
|
||||
var $elm$core$Tuple$second = function (_v0) {
|
||||
var y = _v0.b;
|
||||
return y;
|
||||
@ -6429,42 +6468,53 @@ var $elm$core$Maybe$withDefault = F2(
|
||||
return _default;
|
||||
}
|
||||
});
|
||||
var $author$project$Main$modelDecoder = A4(
|
||||
$elm$json$Json$Decode$map3,
|
||||
F3(
|
||||
function (a, b, c) {
|
||||
return A7($author$project$Main$Model, a, b, c, _List_Nil, false, $author$project$Main$Waiting, $author$project$Main$Waiting);
|
||||
}),
|
||||
A2(
|
||||
$elm$json$Json$Decode$field,
|
||||
'pc',
|
||||
A8(
|
||||
$elm$json$Json$Decode$map7,
|
||||
$author$project$Main$PC,
|
||||
A2(
|
||||
$elm$json$Json$Decode$field,
|
||||
'ram',
|
||||
$elm$json$Json$Decode$list($elm$json$Json$Decode$int)),
|
||||
A2($elm$json$Json$Decode$field, 'dataBus', $elm$json$Json$Decode$int),
|
||||
A2($elm$json$Json$Decode$field, 'addressBus', $elm$json$Json$Decode$int),
|
||||
A2($elm$json$Json$Decode$field, 'instructionReg', $elm$json$Json$Decode$int),
|
||||
A2($elm$json$Json$Decode$field, 'programmCounter', $elm$json$Json$Decode$int),
|
||||
A2($elm$json$Json$Decode$field, 'uCounter', $elm$json$Json$Decode$int),
|
||||
A2($elm$json$Json$Decode$field, 'accumulator', $elm$json$Json$Decode$int))),
|
||||
A2(
|
||||
$elm$json$Json$Decode$field,
|
||||
'uCode',
|
||||
$elm$json$Json$Decode$list(
|
||||
A2(
|
||||
$elm$json$Json$Decode$map,
|
||||
function (s) {
|
||||
return A2(
|
||||
$elm$core$Maybe$withDefault,
|
||||
14,
|
||||
$author$project$Main$string2uAction(s));
|
||||
},
|
||||
$elm$json$Json$Decode$string))),
|
||||
A2($elm$json$Json$Decode$field, 'autoscroll', $elm$json$Json$Decode$bool));
|
||||
var $author$project$Main$modelDecoder = function () {
|
||||
var tuple2Decoder = F2(
|
||||
function (enc1, enc2) {
|
||||
return A3(
|
||||
$elm$json$Json$Decode$map2,
|
||||
$elm$core$Tuple$pair,
|
||||
A2($elm$json$Json$Decode$index, 0, enc1),
|
||||
A2($elm$json$Json$Decode$index, 1, enc2));
|
||||
});
|
||||
return A4(
|
||||
$elm$json$Json$Decode$map3,
|
||||
F3(
|
||||
function (a, b, c) {
|
||||
return A7($author$project$Main$Model, a, b, c, _List_Nil, false, $author$project$Main$Waiting, $author$project$Main$Waiting);
|
||||
}),
|
||||
A2(
|
||||
$elm$json$Json$Decode$field,
|
||||
'pc',
|
||||
A8(
|
||||
$elm$json$Json$Decode$map7,
|
||||
$author$project$Main$PC,
|
||||
A2(
|
||||
$elm$json$Json$Decode$field,
|
||||
'ram',
|
||||
$elm$json$Json$Decode$list(
|
||||
A2(tuple2Decoder, $elm$json$Json$Decode$int, $elm$json$Json$Decode$string))),
|
||||
A2($elm$json$Json$Decode$field, 'dataBus', $elm$json$Json$Decode$int),
|
||||
A2($elm$json$Json$Decode$field, 'addressBus', $elm$json$Json$Decode$int),
|
||||
A2($elm$json$Json$Decode$field, 'instructionReg', $elm$json$Json$Decode$int),
|
||||
A2($elm$json$Json$Decode$field, 'programmCounter', $elm$json$Json$Decode$int),
|
||||
A2($elm$json$Json$Decode$field, 'uCounter', $elm$json$Json$Decode$int),
|
||||
A2($elm$json$Json$Decode$field, 'accumulator', $elm$json$Json$Decode$int))),
|
||||
A2(
|
||||
$elm$json$Json$Decode$field,
|
||||
'uCode',
|
||||
$elm$json$Json$Decode$list(
|
||||
A2(
|
||||
$elm$json$Json$Decode$map,
|
||||
function (s) {
|
||||
return A2(
|
||||
$elm$core$Maybe$withDefault,
|
||||
14,
|
||||
$author$project$Main$string2uAction(s));
|
||||
},
|
||||
$elm$json$Json$Decode$string))),
|
||||
A2($elm$json$Json$Decode$field, 'autoscroll', $elm$json$Json$Decode$bool));
|
||||
}();
|
||||
var $author$project$Main$cmdLoadExampleSing = F2(
|
||||
function (model, example) {
|
||||
return $elm$http$Http$get(
|
||||
@ -6474,7 +6524,7 @@ var $author$project$Main$cmdLoadExampleSing = F2(
|
||||
});
|
||||
});
|
||||
var $author$project$Main$MsgExamplesArrived = function (a) {
|
||||
return {$: 23, a: a};
|
||||
return {$: 24, a: a};
|
||||
};
|
||||
var $author$project$Main$Example = F4(
|
||||
function (title, version, url, enabled) {
|
||||
@ -6519,7 +6569,7 @@ var $elm$json$Json$Encode$list = F2(
|
||||
_Json_emptyArray(0),
|
||||
entries));
|
||||
});
|
||||
var $author$project$Main$modelVersion = 1;
|
||||
var $author$project$Main$modelVersion = 2;
|
||||
var $elm$json$Json$Encode$object = function (pairs) {
|
||||
return _Json_wrap(
|
||||
A3(
|
||||
@ -6551,6 +6601,19 @@ var $author$project$Main$uAction2String = function (action) {
|
||||
}
|
||||
};
|
||||
var $author$project$Main$encodeModel = function (model) {
|
||||
var tuple2Encoder = F3(
|
||||
function (enc1, enc2, _v0) {
|
||||
var val1 = _v0.a;
|
||||
var val2 = _v0.b;
|
||||
return A2(
|
||||
$elm$json$Json$Encode$list,
|
||||
$elm$core$Basics$identity,
|
||||
_List_fromArray(
|
||||
[
|
||||
enc1(val1),
|
||||
enc2(val2)
|
||||
]));
|
||||
});
|
||||
return A2(
|
||||
$elm$json$Json$Encode$encode,
|
||||
0,
|
||||
@ -6585,7 +6648,10 @@ var $author$project$Main$encodeModel = function (model) {
|
||||
$elm$json$Json$Encode$int(model.a.m)),
|
||||
_Utils_Tuple2(
|
||||
'ram',
|
||||
A2($elm$json$Json$Encode$list, $elm$json$Json$Encode$int, model.a.f))
|
||||
A2(
|
||||
$elm$json$Json$Encode$list,
|
||||
A2(tuple2Encoder, $elm$json$Json$Encode$int, $elm$json$Json$Encode$string),
|
||||
model.a.c))
|
||||
]))),
|
||||
_Utils_Tuple2(
|
||||
'uCode',
|
||||
@ -6651,10 +6717,10 @@ var $author$project$Main$actDataBus2InstructionReg = function (pc) {
|
||||
{k: pc.s});
|
||||
};
|
||||
var $author$project$Main$actDataBus2Ram = function (pc) {
|
||||
var newRam = A3($author$project$Main$changeAtInt, pc.r, pc.s, pc.f);
|
||||
var newRam = A3($author$project$Main$changeAtRam, pc.r, pc.s, pc.c);
|
||||
return _Utils_update(
|
||||
pc,
|
||||
{f: newRam});
|
||||
{c: newRam});
|
||||
};
|
||||
var $author$project$Main$seperateInstructionsEntry = function (i) {
|
||||
var instruction = (i / 100000) | 0;
|
||||
@ -6706,24 +6772,9 @@ var $author$project$Main$actProgrammCounterIncrement = function (pc) {
|
||||
pc,
|
||||
{u: pc.u + 1});
|
||||
};
|
||||
var $author$project$Main$valueAt = F2(
|
||||
function (n, l) {
|
||||
return $elm$core$List$head(
|
||||
A2($elm$core$List$drop, n, l));
|
||||
});
|
||||
var $author$project$Main$valueAtInt = F2(
|
||||
function (n, l) {
|
||||
var _v0 = A2($author$project$Main$valueAt, n, l);
|
||||
if (!_v0.$) {
|
||||
var a = _v0.a;
|
||||
return a;
|
||||
} else {
|
||||
return 0;
|
||||
}
|
||||
});
|
||||
var $author$project$Main$actRam2DataBus = function (pc) {
|
||||
var ab = pc.r;
|
||||
var db = A2($author$project$Main$valueAtInt, ab, pc.f);
|
||||
var db = A2($author$project$Main$valueAtRam, ab, pc.c).a;
|
||||
return _Utils_update(
|
||||
pc,
|
||||
{s: db});
|
||||
@ -6864,7 +6915,7 @@ var $author$project$Main$update = F2(
|
||||
{
|
||||
a: _Utils_update(
|
||||
$author$project$Main$initialPC,
|
||||
{f: model.a.f})
|
||||
{c: model.a.c})
|
||||
});
|
||||
return _Utils_Tuple2(
|
||||
new_model,
|
||||
@ -6888,13 +6939,13 @@ var $author$project$Main$update = F2(
|
||||
var _int = _v1.a;
|
||||
var old_pc = model.a;
|
||||
var _v2 = $author$project$Main$seperateInstructionsEntry(
|
||||
A2($author$project$Main$valueAtInt, addr, model.a.f));
|
||||
A2($author$project$Main$valueAtRam, addr, model.a.c).a);
|
||||
var inst = _v2.a;
|
||||
var new_val = (inst * 100000) + _int;
|
||||
var new_pc = _Utils_update(
|
||||
old_pc,
|
||||
{
|
||||
f: A3($author$project$Main$changeAtInt, addr, new_val, old_pc.f)
|
||||
c: A3($author$project$Main$changeAtRam, addr, new_val, old_pc.c)
|
||||
});
|
||||
return updateModel(
|
||||
_Utils_update(
|
||||
@ -6911,13 +6962,13 @@ var $author$project$Main$update = F2(
|
||||
var _int = _v3.a;
|
||||
var old_pc = model.a;
|
||||
var _v4 = $author$project$Main$seperateInstructionsEntry(
|
||||
A2($author$project$Main$valueAtInt, addr, model.a.f));
|
||||
A2($author$project$Main$valueAtRam, addr, model.a.c).a);
|
||||
var address = _v4.b;
|
||||
var new_val = (_int * 100000) + address;
|
||||
var new_pc = _Utils_update(
|
||||
old_pc,
|
||||
{
|
||||
f: A3($author$project$Main$changeAtInt, addr, new_val, old_pc.f)
|
||||
c: A3($author$project$Main$changeAtRam, addr, new_val, old_pc.c)
|
||||
});
|
||||
return updateModel(
|
||||
_Utils_update(
|
||||
@ -6931,21 +6982,43 @@ var $author$project$Main$update = F2(
|
||||
var new_pc = _Utils_update(
|
||||
old_pc,
|
||||
{
|
||||
f: _Utils_ap(
|
||||
old_pc.f,
|
||||
c: _Utils_ap(
|
||||
old_pc.c,
|
||||
_List_fromArray(
|
||||
[0]))
|
||||
[
|
||||
_Utils_Tuple2(0, '')
|
||||
]))
|
||||
});
|
||||
return updateModel(
|
||||
_Utils_update(
|
||||
model,
|
||||
{a: new_pc}));
|
||||
case 8:
|
||||
var addr = msg.a;
|
||||
var str = msg.b;
|
||||
var old_pc = model.a;
|
||||
var _v5 = A2($author$project$Main$valueAtRam, addr, model.a.c);
|
||||
var val = _v5.a;
|
||||
var new_pc = _Utils_update(
|
||||
old_pc,
|
||||
{
|
||||
c: A4(
|
||||
$author$project$Main$changeAt,
|
||||
addr,
|
||||
_Utils_Tuple2(val, str),
|
||||
_Utils_Tuple2(0, ''),
|
||||
old_pc.c)
|
||||
});
|
||||
return updateModel(
|
||||
_Utils_update(
|
||||
model,
|
||||
{a: new_pc}));
|
||||
case 9:
|
||||
var addr = msg.a;
|
||||
var may_action = msg.b;
|
||||
var _v5 = $author$project$Main$string2uAction(may_action);
|
||||
if (!_v5.$) {
|
||||
var action = _v5.a;
|
||||
var _v6 = $author$project$Main$string2uAction(may_action);
|
||||
if (!_v6.$) {
|
||||
var action = _v6.a;
|
||||
var newCode = A3($author$project$Main$changeAtUCode, addr, action, model.q);
|
||||
return updateModel(
|
||||
_Utils_update(
|
||||
@ -6954,24 +7027,23 @@ var $author$project$Main$update = F2(
|
||||
} else {
|
||||
return _Utils_Tuple2(model, $elm$core$Platform$Cmd$none);
|
||||
}
|
||||
case 9:
|
||||
case 10:
|
||||
return updateModel(
|
||||
_Utils_update(
|
||||
model,
|
||||
{
|
||||
q: _Utils_ap(
|
||||
model.q,
|
||||
_List_fromArray(
|
||||
[14]))
|
||||
A2($elm$core$List$repeat, 10, 14))
|
||||
}));
|
||||
case 10:
|
||||
case 11:
|
||||
var text = msg.a;
|
||||
var _v6 = $elm$core$String$toInt(text);
|
||||
if (!_v6.$) {
|
||||
var _int = _v6.a;
|
||||
var _v7 = $elm$core$String$toInt(text);
|
||||
if (!_v7.$) {
|
||||
var _int = _v7.a;
|
||||
var old_pc = model.a;
|
||||
var _v7 = $author$project$Main$seperateInstructionsEntry(old_pc.k);
|
||||
var instr = _v7.a;
|
||||
var _v8 = $author$project$Main$seperateInstructionsEntry(old_pc.k);
|
||||
var instr = _v8.a;
|
||||
var new_pc = _Utils_update(
|
||||
old_pc,
|
||||
{k: (instr * 100000) + _int});
|
||||
@ -6982,14 +7054,14 @@ var $author$project$Main$update = F2(
|
||||
} else {
|
||||
return _Utils_Tuple2(model, $elm$core$Platform$Cmd$none);
|
||||
}
|
||||
case 11:
|
||||
case 12:
|
||||
var text = msg.a;
|
||||
var _v8 = $elm$core$String$toInt(text);
|
||||
if (!_v8.$) {
|
||||
var _int = _v8.a;
|
||||
var _v9 = $elm$core$String$toInt(text);
|
||||
if (!_v9.$) {
|
||||
var _int = _v9.a;
|
||||
var old_pc = model.a;
|
||||
var _v9 = $author$project$Main$seperateInstructionsEntry(old_pc.k);
|
||||
var addr = _v9.b;
|
||||
var _v10 = $author$project$Main$seperateInstructionsEntry(old_pc.k);
|
||||
var addr = _v10.b;
|
||||
var new_pc = _Utils_update(
|
||||
old_pc,
|
||||
{k: (_int * 100000) + addr});
|
||||
@ -7000,11 +7072,11 @@ var $author$project$Main$update = F2(
|
||||
} else {
|
||||
return _Utils_Tuple2(model, $elm$core$Platform$Cmd$none);
|
||||
}
|
||||
case 13:
|
||||
case 14:
|
||||
var text = msg.a;
|
||||
var _v10 = $elm$core$String$toInt(text);
|
||||
if (!_v10.$) {
|
||||
var _int = _v10.a;
|
||||
var _v11 = $elm$core$String$toInt(text);
|
||||
if (!_v11.$) {
|
||||
var _int = _v11.a;
|
||||
var old_pc = model.a;
|
||||
var new_pc = _Utils_update(
|
||||
old_pc,
|
||||
@ -7016,24 +7088,7 @@ var $author$project$Main$update = F2(
|
||||
} else {
|
||||
return _Utils_Tuple2(model, $elm$core$Platform$Cmd$none);
|
||||
}
|
||||
case 12:
|
||||
var text = msg.a;
|
||||
var _v11 = $elm$core$String$toInt(text);
|
||||
if (!_v11.$) {
|
||||
var _int = _v11.a;
|
||||
var old_pc = model.a;
|
||||
var new_pc = _Utils_update(
|
||||
old_pc,
|
||||
{l: _int});
|
||||
return _Utils_Tuple2(
|
||||
_Utils_update(
|
||||
model,
|
||||
{a: new_pc}),
|
||||
$author$project$Main$cmdSenduUpdate(model));
|
||||
} else {
|
||||
return _Utils_Tuple2(model, $elm$core$Platform$Cmd$none);
|
||||
}
|
||||
case 14:
|
||||
case 13:
|
||||
var text = msg.a;
|
||||
var _v12 = $elm$core$String$toInt(text);
|
||||
if (!_v12.$) {
|
||||
@ -7041,7 +7096,7 @@ var $author$project$Main$update = F2(
|
||||
var old_pc = model.a;
|
||||
var new_pc = _Utils_update(
|
||||
old_pc,
|
||||
{r: _int});
|
||||
{l: _int});
|
||||
return _Utils_Tuple2(
|
||||
_Utils_update(
|
||||
model,
|
||||
@ -7058,11 +7113,12 @@ var $author$project$Main$update = F2(
|
||||
var old_pc = model.a;
|
||||
var new_pc = _Utils_update(
|
||||
old_pc,
|
||||
{s: _int});
|
||||
return updateModel(
|
||||
{r: _int});
|
||||
return _Utils_Tuple2(
|
||||
_Utils_update(
|
||||
model,
|
||||
{a: new_pc}));
|
||||
{a: new_pc}),
|
||||
$author$project$Main$cmdSenduUpdate(model));
|
||||
} else {
|
||||
return _Utils_Tuple2(model, $elm$core$Platform$Cmd$none);
|
||||
}
|
||||
@ -7072,6 +7128,22 @@ var $author$project$Main$update = F2(
|
||||
if (!_v14.$) {
|
||||
var _int = _v14.a;
|
||||
var old_pc = model.a;
|
||||
var new_pc = _Utils_update(
|
||||
old_pc,
|
||||
{s: _int});
|
||||
return updateModel(
|
||||
_Utils_update(
|
||||
model,
|
||||
{a: new_pc}));
|
||||
} else {
|
||||
return _Utils_Tuple2(model, $elm$core$Platform$Cmd$none);
|
||||
}
|
||||
case 17:
|
||||
var text = msg.a;
|
||||
var _v15 = $elm$core$String$toInt(text);
|
||||
if (!_v15.$) {
|
||||
var _int = _v15.a;
|
||||
var old_pc = model.a;
|
||||
var new_pc = _Utils_update(
|
||||
old_pc,
|
||||
{m: _int});
|
||||
@ -7096,15 +7168,15 @@ var $author$project$Main$update = F2(
|
||||
new_model,
|
||||
$author$project$Main$cmdSenduUpdate(new_model));
|
||||
}
|
||||
case 17:
|
||||
case 18:
|
||||
return _Utils_Tuple2(
|
||||
model,
|
||||
$author$project$Main$cmdUpdateLocalStorage(model));
|
||||
case 18:
|
||||
case 19:
|
||||
var message_in = msg.a;
|
||||
var _v15 = A2($author$project$Main$decodeModel, model, message_in);
|
||||
if (!_v15.$) {
|
||||
var new_model = _v15.a;
|
||||
var _v16 = A2($author$project$Main$decodeModel, model, message_in);
|
||||
if (!_v16.$) {
|
||||
var new_model = _v16.a;
|
||||
return _Utils_Tuple2(
|
||||
_Utils_update(
|
||||
new_model,
|
||||
@ -7113,7 +7185,7 @@ var $author$project$Main$update = F2(
|
||||
} else {
|
||||
return _Utils_Tuple2(model, $elm$core$Platform$Cmd$none);
|
||||
}
|
||||
case 19:
|
||||
case 20:
|
||||
return model.G ? _Utils_Tuple2(
|
||||
_Utils_update(
|
||||
model,
|
||||
@ -7123,13 +7195,13 @@ var $author$project$Main$update = F2(
|
||||
model,
|
||||
{G: true}),
|
||||
$author$project$Main$cmdLoadExamples(model));
|
||||
case 20:
|
||||
return _Utils_Tuple2(model, $elm$core$Platform$Cmd$none);
|
||||
case 21:
|
||||
return _Utils_Tuple2(model, $elm$core$Platform$Cmd$none);
|
||||
case 22:
|
||||
var i = msg.a;
|
||||
var _v16 = A2($author$project$Main$valueAt, i, model.H);
|
||||
if (!_v16.$) {
|
||||
var example = _v16.a;
|
||||
var _v17 = A2($author$project$Main$valueAt, i, model.H);
|
||||
if (!_v17.$) {
|
||||
var example = _v17.a;
|
||||
return _Utils_Tuple2(
|
||||
_Utils_update(
|
||||
model,
|
||||
@ -7138,7 +7210,7 @@ var $author$project$Main$update = F2(
|
||||
} else {
|
||||
return _Utils_Tuple2(model, $elm$core$Platform$Cmd$none);
|
||||
}
|
||||
case 22:
|
||||
case 23:
|
||||
var result = msg.a;
|
||||
if (!result.$) {
|
||||
var new_model = result.a;
|
||||
@ -7184,7 +7256,7 @@ var $elm$html$Html$Lazy$lazy = $elm$virtual_dom$VirtualDom$lazy;
|
||||
var $author$project$Main$MsgAutoscrollUpdate = {$: 3};
|
||||
var $author$project$Main$MsgInstructionStep = {$: 1};
|
||||
var $author$project$Main$MsgReset = {$: 2};
|
||||
var $author$project$Main$MsgToggleLoadExample = {$: 19};
|
||||
var $author$project$Main$MsgToggleLoadExample = {$: 20};
|
||||
var $author$project$Main$MsgUCycleStep = {$: 0};
|
||||
var $elm$html$Html$button = _VirtualDom_node('button');
|
||||
var $elm$html$Html$Attributes$boolProperty = F2(
|
||||
@ -7239,7 +7311,7 @@ var $elm$virtual_dom$VirtualDom$text = _VirtualDom_text;
|
||||
var $elm$html$Html$text = $elm$virtual_dom$VirtualDom$text;
|
||||
var $elm$html$Html$Attributes$type_ = $elm$html$Html$Attributes$stringProperty('type');
|
||||
var $author$project$Main$MsgEditAddressBus = function (a) {
|
||||
return {$: 14, a: a};
|
||||
return {$: 15, a: a};
|
||||
};
|
||||
var $elm$core$String$fromList = _String_fromList;
|
||||
var $author$project$Main$addLeadingZero = F2(
|
||||
@ -7342,7 +7414,7 @@ var $author$project$Main$viewAddressBus = function (model) {
|
||||
]));
|
||||
};
|
||||
var $author$project$Main$MsgAluEdit = function (a) {
|
||||
return {$: 16, a: a};
|
||||
return {$: 17, a: a};
|
||||
};
|
||||
var $author$project$Main$MsgManualStep = function (a) {
|
||||
return {$: 4, a: a};
|
||||
@ -7490,31 +7562,27 @@ var $author$project$Main$viewAlu = function (model) {
|
||||
]));
|
||||
};
|
||||
var $author$project$Main$MsgCuInstrRegEditAddr = function (a) {
|
||||
return {$: 10, a: a};
|
||||
};
|
||||
var $author$project$Main$MsgCuInstrRegEditInstr = function (a) {
|
||||
return {$: 11, a: a};
|
||||
};
|
||||
var $author$project$Main$MsgCuInstrRegEditInstr = function (a) {
|
||||
return {$: 12, a: a};
|
||||
};
|
||||
var $author$project$Main$MsgCuProgCounterEdit = function (a) {
|
||||
return {$: 13, a: a};
|
||||
return {$: 14, a: a};
|
||||
};
|
||||
var $author$project$Main$MsgCuUCounterEdit = function (a) {
|
||||
return {$: 12, a: a};
|
||||
return {$: 13, a: a};
|
||||
};
|
||||
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 = {$: 9};
|
||||
var $elm$core$Tuple$pair = F2(
|
||||
function (a, b) {
|
||||
return _Utils_Tuple2(a, b);
|
||||
});
|
||||
var $author$project$Main$MsgCuAddBelow = {$: 10};
|
||||
var $elm$html$Html$tbody = _VirtualDom_node('tbody');
|
||||
var $elm$html$Html$td = _VirtualDom_node('td');
|
||||
var $author$project$Main$MsgCuEditAction = F2(
|
||||
function (a, b) {
|
||||
return {$: 8, a: a, b: b};
|
||||
return {$: 9, a: a, b: b};
|
||||
});
|
||||
var $elm$html$Html$option = _VirtualDom_node('option');
|
||||
var $elm$html$Html$select = _VirtualDom_node('select');
|
||||
@ -7957,7 +8025,7 @@ var $author$project$Main$viewCu = function (model) {
|
||||
]));
|
||||
};
|
||||
var $author$project$Main$MsgEditDataBus = function (a) {
|
||||
return {$: 15, a: a};
|
||||
return {$: 16, a: a};
|
||||
};
|
||||
var $author$project$Main$viewDataBus = function (model) {
|
||||
return A2(
|
||||
@ -7998,7 +8066,7 @@ var $author$project$Main$viewDataBus = function (model) {
|
||||
};
|
||||
var $elm$core$Basics$not = _Basics_not;
|
||||
var $author$project$Main$MsgLoadExample = function (a) {
|
||||
return {$: 21, a: a};
|
||||
return {$: 22, a: a};
|
||||
};
|
||||
var $author$project$Main$viewExamplesEntrys = function (model) {
|
||||
var entry2html = function (_v1) {
|
||||
@ -8154,17 +8222,23 @@ var $author$project$Main$MsgRamEditAddress = F2(
|
||||
function (a, b) {
|
||||
return {$: 5, a: a, b: b};
|
||||
});
|
||||
var $author$project$Main$MsgRamEditComment = F2(
|
||||
function (a, b) {
|
||||
return {$: 8, a: a, b: b};
|
||||
});
|
||||
var $author$project$Main$MsgRamEditInstr = F2(
|
||||
function (a, b) {
|
||||
return {$: 6, a: a, b: b};
|
||||
});
|
||||
var $author$project$Main$viewRamContent = function (model) {
|
||||
var ram2table = function (entry) {
|
||||
var val = entry.b;
|
||||
var id = entry.a;
|
||||
var _v0 = $author$project$Main$seperateInstructionsEntry(val);
|
||||
var instruction = _v0.a;
|
||||
var address = _v0.b;
|
||||
var _v0 = entry.b;
|
||||
var val = _v0.a;
|
||||
var comment = _v0.b;
|
||||
var _v1 = $author$project$Main$seperateInstructionsEntry(val);
|
||||
var instruction = _v1.a;
|
||||
var address = _v1.b;
|
||||
return A2(
|
||||
$elm$html$Html$tr,
|
||||
_List_fromArray(
|
||||
@ -8224,10 +8298,29 @@ var $author$project$Main$viewRamContent = function (model) {
|
||||
$elm$html$Html$Attributes$class('address')
|
||||
]),
|
||||
_List_Nil)
|
||||
])),
|
||||
A2(
|
||||
$elm$html$Html$td,
|
||||
_List_fromArray(
|
||||
[
|
||||
$elm$html$Html$Attributes$class('comment')
|
||||
]),
|
||||
_List_fromArray(
|
||||
[
|
||||
A2(
|
||||
$elm$html$Html$input,
|
||||
_List_fromArray(
|
||||
[
|
||||
$elm$html$Html$Attributes$type_('text'),
|
||||
$elm$html$Html$Attributes$value(comment),
|
||||
$elm$html$Html$Events$onInput(
|
||||
$author$project$Main$MsgRamEditComment(id))
|
||||
]),
|
||||
_List_Nil)
|
||||
]))
|
||||
]));
|
||||
};
|
||||
var indexedRam = A2($elm$core$List$indexedMap, $elm$core$Tuple$pair, model.a.f);
|
||||
var indexedRam = A2($elm$core$List$indexedMap, $elm$core$Tuple$pair, model.a.c);
|
||||
return A2(
|
||||
$elm$html$Html$tbody,
|
||||
_List_Nil,
|
||||
@ -8256,7 +8349,8 @@ var $author$project$Main$viewRamContent = function (model) {
|
||||
[
|
||||
$elm$html$Html$text('Add Entry')
|
||||
]))
|
||||
]))
|
||||
])),
|
||||
A2($elm$html$Html$td, _List_Nil, _List_Nil)
|
||||
]))
|
||||
])));
|
||||
};
|
||||
@ -8338,6 +8432,13 @@ var $author$project$Main$viewRam = function (model) {
|
||||
_List_fromArray(
|
||||
[
|
||||
$elm$html$Html$text('Value')
|
||||
])),
|
||||
A2(
|
||||
$elm$html$Html$th,
|
||||
_List_Nil,
|
||||
_List_fromArray(
|
||||
[
|
||||
$elm$html$Html$text('Comment')
|
||||
]))
|
||||
]))
|
||||
])),
|
||||
@ -8507,7 +8608,8 @@ var $author$project$Main$viewPC = function (model) {
|
||||
$elm$html$Html$div,
|
||||
_List_fromArray(
|
||||
[
|
||||
$elm$html$Html$Attributes$class('grid-fullwidth')
|
||||
$elm$html$Html$Attributes$class('grid-fullwidth'),
|
||||
$elm$html$Html$Attributes$class('grid-addressbus')
|
||||
]),
|
||||
_List_fromArray(
|
||||
[
|
||||
@ -8520,7 +8622,8 @@ var $author$project$Main$viewPC = function (model) {
|
||||
$elm$html$Html$div,
|
||||
_List_fromArray(
|
||||
[
|
||||
$elm$html$Html$Attributes$class('grid-fullwidth')
|
||||
$elm$html$Html$Attributes$class('grid-fullwidth'),
|
||||
$elm$html$Html$Attributes$class('grid-databus')
|
||||
]),
|
||||
_List_fromArray(
|
||||
[
|
||||
|
||||
Reference in New Issue
Block a user