427 lines
16 KiB
Text
427 lines
16 KiB
Text
# A3XX mCDU by Joshua Davidson (Octal450), Jonathan Redpath, and Matthew Maring (mattmaring)
|
|
# Copyright (c) 2023 Josh Davidson (Octal450)
|
|
|
|
var radNavScratchpad = nil;
|
|
var radNavScratchpadSize = nil;
|
|
|
|
var parseFrequencyVOR = func(scratchpad, i, num) {
|
|
if (size(scratchpad) == 3 or size(scratchpad) == 5 or size(scratchpad) == 6) {
|
|
if (scratchpad >= 108.00 and scratchpad <= 111.95) {
|
|
if (scratchpad == 108.10 or scratchpad == 108.15 or scratchpad == 108.30 or scratchpad == 108.35 or scratchpad == 108.50 or scratchpad == 108.55 or scratchpad == 108.70 or scratchpad == 108.75 or scratchpad == 108.90 or scratchpad == 108.95
|
|
or scratchpad == 109.10 or scratchpad == 109.15 or scratchpad == 109.30 or scratchpad == 109.35 or scratchpad == 109.50 or scratchpad == 109.55 or scratchpad == 109.70 or scratchpad == 109.75 or scratchpad == 109.90 or scratchpad == 109.95
|
|
or scratchpad == 110.10 or scratchpad == 110.15 or scratchpad == 110.30 or scratchpad == 110.35 or scratchpad == 110.50 or scratchpad == 110.55 or scratchpad == 110.70 or scratchpad == 110.75 or scratchpad == 110.90 or scratchpad == 110.95
|
|
or scratchpad == 111.10 or scratchpad == 111.15 or scratchpad == 111.30 or scratchpad == 111.35 or scratchpad == 111.50 or scratchpad == 111.55 or scratchpad == 111.70 or scratchpad == 111.75 or scratchpad == 111.90 or scratchpad == 111.95) {
|
|
return 3;
|
|
} else {
|
|
pts.Instrumentation.Nav.Frequencies.selectedMhz[num].setValue(scratchpad);
|
|
return 4;
|
|
}
|
|
} else if (scratchpad >= 112.00 and scratchpad <= 117.95) {
|
|
pts.Instrumentation.Nav.Frequencies.selectedMhz[num].setValue(scratchpad);
|
|
return 4;
|
|
} else {
|
|
return 2;
|
|
}
|
|
} else {
|
|
return 1;
|
|
}
|
|
}
|
|
|
|
var searchResultVOR = nil;
|
|
var parseIdentVOR = func(scratchpad, i, num) {
|
|
# TODO - duplicate names
|
|
if (size(scratchpad) == 2 or size(scratchpad) == 3) {
|
|
searchResultVOR = findNavaidsByID(scratchpad);
|
|
if (size(searchResultVOR) != 0) {
|
|
pts.Instrumentation.Nav.Frequencies.selectedMhz[num].setValue(searchResultVOR[0].frequency / 100);
|
|
return 3;
|
|
} else {
|
|
return 2;
|
|
}
|
|
} else {
|
|
return 1;
|
|
}
|
|
};
|
|
|
|
var splitScratchpadADF = nil;
|
|
var parseFrequencyADF = func(scratchpad, i, num) {
|
|
if (size(scratchpad) >= 3 and size(scratchpad) <= 6) {
|
|
if (scratchpad >= 190 and scratchpad <= 1799) {
|
|
if (scratchpad != int(scratchpad)) {
|
|
splitScratchpadADF = split(".",scratchpad);
|
|
if (size(splitScratchpadADF) != 2 or splitScratchpadADF[1] != "5") {
|
|
return 3;
|
|
} else {
|
|
pts.Instrumentation.Adf.Frequencies.selectedKhz[num].setValue(scratchpad);
|
|
return 4;
|
|
}
|
|
} else {
|
|
pts.Instrumentation.Adf.Frequencies.selectedKhz[num].setValue(scratchpad);
|
|
return 4;
|
|
}
|
|
} else {
|
|
return 2;
|
|
}
|
|
} else {
|
|
return 1;
|
|
}
|
|
}
|
|
|
|
var searchResultADF = nil;
|
|
var parseIdentADF = func(scratchpad, i, num) {
|
|
# TODO - duplicate names
|
|
if (size(scratchpad) == 2 or size(scratchpad) == 3) {
|
|
searchResultADF = findNavaidsByID(scratchpad);
|
|
if (size(searchResultADF) != 0) {
|
|
pts.Instrumentation.Adf.Frequencies.selectedKhz[num].setValue(searchResultADF[0].frequency / 100);
|
|
return 3;
|
|
} else {
|
|
return 2;
|
|
}
|
|
} else {
|
|
return 1;
|
|
}
|
|
};
|
|
|
|
var returny = nil;
|
|
var radnavInput = func(key, i) {
|
|
radNavScratchpad = mcdu_scratchpad.scratchpads[i].scratchpad;
|
|
radNavScratchpadSize = size(radNavScratchpad);
|
|
if (!rmp.rmpNav[0].getValue() and !rmp.rmpNav[1].getValue()) {
|
|
if (key == "L1") {
|
|
if (radNavScratchpad == "CLR") {
|
|
fmgc.FMGCInternal.VOR1.freqSet = 0;
|
|
mcdu_scratchpad.scratchpads[i].empty();
|
|
} else {
|
|
if (size(split("/", radNavScratchpad)) == 2) {
|
|
if (size(split("/", radNavScratchpad)[0]) != 0) {
|
|
mcdu_message(i, "FORMAT ERROR");
|
|
return;
|
|
} else {
|
|
radNavScratchpad = split("/", radNavScratchpad)[1];
|
|
if (num(radNavScratchpad) != radNavScratchpad) {
|
|
mcdu_message(i, "FORMAT ERROR");
|
|
} else {
|
|
returny = parseFrequencyVOR(radNavScratchpad, i, 2);
|
|
if (returny == 1) {
|
|
mcdu_message(i, "FORMAT ERROR");
|
|
} elsif (returny == 2) {
|
|
mcdu_message(i, "ENTRY OUT OF RANGE");
|
|
} elsif (returny == 3) {
|
|
mcdu_message(i, "NOT ALLOWED");
|
|
} elsif (returny == 4) {
|
|
fmgc.FMGCInternal.VOR1.freqSet = 1;
|
|
mcdu_scratchpad.scratchpads[i].empty();
|
|
}
|
|
}
|
|
}
|
|
} else if (size(split("/", radNavScratchpad)) == 1) {
|
|
if (num(radNavScratchpad) == radNavScratchpad) {
|
|
returny = parseFrequencyVOR(radNavScratchpad, i, 2);
|
|
if (returny == 1) {
|
|
mcdu_message(i, "FORMAT ERROR");
|
|
} elsif (returny == 2) {
|
|
mcdu_message(i, "ENTRY OUT OF RANGE");
|
|
} elsif (returny == 3) {
|
|
mcdu_message(i, "NOT ALLOWED");
|
|
} elsif (returny == 4) {
|
|
fmgc.FMGCInternal.VOR1.freqSet = 1;
|
|
mcdu_scratchpad.scratchpads[i].empty();
|
|
}
|
|
} else if (isstr(radNavScratchpad)) {
|
|
returny = parseIdentVOR(radNavScratchpad, i, 2);
|
|
if (returny == 1) {
|
|
mcdu_message(i, "FORMAT ERROR");
|
|
} elsif (returny == 2) {
|
|
# TODO - NEW NAVAID page
|
|
mcdu_message(i, "NOT IN DATA BASE");
|
|
} elsif (returny == 3) {
|
|
fmgc.FMGCInternal.VOR1.freqSet = 1;
|
|
mcdu_scratchpad.scratchpads[i].empty();
|
|
}
|
|
}
|
|
} else {
|
|
mcdu_message(i, "FORMAT ERROR");
|
|
}
|
|
}
|
|
} else if (key == "L2") {
|
|
if (radNavScratchpad == "CLR") {
|
|
fmgc.FMGCInternal.VOR1.crsSet = 0;
|
|
mcdu_scratchpad.scratchpads[i].empty();
|
|
} else {
|
|
if (radNavScratchpadSize >= 1 and radNavScratchpadSize <= 3) {
|
|
if (radNavScratchpad >= 0 and radNavScratchpad <= 360) {
|
|
pts.Instrumentation.Nav.Radials.selectedDeg[2].setValue(radNavScratchpad);
|
|
fmgc.FMGCInternal.VOR1.crsSet = 1;
|
|
mcdu_scratchpad.scratchpads[i].empty();
|
|
} else {
|
|
mcdu_message(i, "NOT ALLOWED");
|
|
}
|
|
} else {
|
|
mcdu_message(i, "NOT ALLOWED");
|
|
}
|
|
}
|
|
} else if (key == "L3") {
|
|
if (radNavScratchpad == "CLR") {
|
|
fmgc.FMGCInternal.ILS.freqSet = 0;
|
|
mcdu_scratchpad.scratchpads[i].empty();
|
|
} else {
|
|
if (radNavScratchpadSize == 3 or radNavScratchpadSize == 5 or radNavScratchpadSize == 6) {
|
|
if (radNavScratchpad >= 108.00 and radNavScratchpad <= 111.95) {
|
|
if (radNavScratchpad == 108.10 or radNavScratchpad == 108.15 or radNavScratchpad == 108.30 or radNavScratchpad == 108.35 or radNavScratchpad == 108.50 or radNavScratchpad == 108.55 or radNavScratchpad == 108.70 or radNavScratchpad == 108.75 or radNavScratchpad == 108.90 or radNavScratchpad == 108.95
|
|
or radNavScratchpad == 109.10 or radNavScratchpad == 109.15 or radNavScratchpad == 109.30 or radNavScratchpad == 109.35 or radNavScratchpad == 109.50 or radNavScratchpad == 109.55 or radNavScratchpad == 109.70 or radNavScratchpad == 109.75 or radNavScratchpad == 109.90 or radNavScratchpad == 109.95
|
|
or radNavScratchpad == 110.10 or radNavScratchpad == 110.15 or radNavScratchpad == 110.30 or radNavScratchpad == 110.35 or radNavScratchpad == 110.50 or radNavScratchpad == 110.55 or radNavScratchpad == 110.70 or radNavScratchpad == 110.75 or radNavScratchpad == 110.90 or radNavScratchpad == 110.95
|
|
or radNavScratchpad == 111.10 or radNavScratchpad == 111.15 or radNavScratchpad == 111.30 or radNavScratchpad == 111.35 or radNavScratchpad == 111.50 or radNavScratchpad == 111.55 or radNavScratchpad == 111.70 or radNavScratchpad == 111.75 or radNavScratchpad == 111.90 or radNavScratchpad == 111.95) {
|
|
pts.Instrumentation.Nav.Frequencies.selectedMhz[0].setValue(radNavScratchpad);
|
|
fmgc.FMGCInternal.ILS.freqSet = 1;
|
|
mcdu_scratchpad.scratchpads[i].empty();
|
|
if (num(fmgc.FMGCInternal.ILS.freqCalculated) != 0 and num(fmgc.FMGCInternal.ILS.freqCalculated) != num(pts.Instrumentation.Nav.Frequencies.selectedMhz[0].getValue())) {
|
|
mcdu_message(i, "RWY/LS MISMATCH");
|
|
}
|
|
} else {
|
|
mcdu_message(i, "NOT ALLOWED");
|
|
}
|
|
} else {
|
|
mcdu_message(i, "NOT ALLOWED");
|
|
}
|
|
} else {
|
|
mcdu_message(i, "NOT ALLOWED");
|
|
}
|
|
}
|
|
} else if (key == "L4") {
|
|
if (radNavScratchpad == "CLR") {
|
|
fmgc.FMGCInternal.ILS.crsSet = 0;
|
|
mcdu_scratchpad.scratchpads[i].empty();
|
|
} else {
|
|
if (radNavScratchpadSize >= 1 and radNavScratchpadSize <= 3) {
|
|
if (radNavScratchpad >= 0 and radNavScratchpad <= 360) {
|
|
pts.Instrumentation.Nav.Radials.selectedDeg[0].setValue(radNavScratchpad);
|
|
fmgc.FMGCInternal.ILS.crsSet = 1;
|
|
mcdu_scratchpad.scratchpads[i].empty();
|
|
} else {
|
|
mcdu_message(i, "NOT ALLOWED");
|
|
}
|
|
} else {
|
|
mcdu_message(i, "NOT ALLOWED");
|
|
}
|
|
}
|
|
} else if (key == "L5") {
|
|
if (radNavScratchpad == "CLR") {
|
|
fmgc.FMGCInternal.ADF1.freqSet = 0;
|
|
mcdu_scratchpad.scratchpads[i].empty();
|
|
} else {
|
|
if (size(split("/", radNavScratchpad)) == 2) {
|
|
if (size(split("/", radNavScratchpad)[0]) != 0) {
|
|
mcdu_message(i, "FORMAT ERROR");
|
|
return;
|
|
} else {
|
|
radNavScratchpad = split("/", radNavScratchpad)[1];
|
|
if (num(radNavScratchpad) != radNavScratchpad) {
|
|
mcdu_message(i, "FORMAT ERROR");
|
|
} else {
|
|
returny = parseFrequencyADF(radNavScratchpad, i, 0);
|
|
if (returny == 1) {
|
|
mcdu_message(i, "FORMAT ERROR");
|
|
} elsif (returny == 2) {
|
|
mcdu_message(i, "ENTRY OUT OF RANGE");
|
|
} elsif (returny == 3) {
|
|
mcdu_message(i, "NOT ALLOWED");
|
|
} elsif (returny == 4) {
|
|
fmgc.FMGCInternal.ADF1.freqSet = 1;
|
|
mcdu_scratchpad.scratchpads[i].empty();
|
|
}
|
|
}
|
|
}
|
|
} else if (size(split("/", radNavScratchpad)) == 1) {
|
|
if (num(radNavScratchpad) == radNavScratchpad) {
|
|
returny = parseFrequencyADF(radNavScratchpad, i, 0);
|
|
if (returny == 1) {
|
|
mcdu_message(i, "FORMAT ERROR");
|
|
} elsif (returny == 2) {
|
|
mcdu_message(i, "ENTRY OUT OF RANGE");
|
|
} elsif (returny == 3) {
|
|
mcdu_message(i, "NOT ALLOWED");
|
|
} elsif (returny == 4) {
|
|
fmgc.FMGCInternal.ADF1.freqSet = 1;
|
|
mcdu_scratchpad.scratchpads[i].empty();
|
|
}
|
|
} else if (isstr(radNavScratchpad)) {
|
|
returny = parseIdentADF(radNavScratchpad, i, 0);
|
|
if (returny == 1) {
|
|
mcdu_message(i, "FORMAT ERROR");
|
|
} elsif (returny == 2) {
|
|
# TODO - NEW NAVAID page
|
|
mcdu_message(i, "NOT IN DATA BASE");
|
|
} elsif (returny == 3) {
|
|
fmgc.FMGCInternal.ADF1.freqSet = 1;
|
|
mcdu_scratchpad.scratchpads[i].empty();
|
|
}
|
|
}
|
|
} else {
|
|
mcdu_message(i, "FORMAT ERROR");
|
|
}
|
|
}
|
|
} else if (key == "L6") {
|
|
if (fmgc.FMGCInternal.ADF1.freqSet) {
|
|
if (radNavScratchpad == "CLR" and rmp.BFOActive[0].getValue()) {
|
|
rmp.BFOActive[0].setValue(0);
|
|
mcdu_scratchpad.scratchpads[i].empty();
|
|
} else {
|
|
if (radNavScratchpadSize == 0 and !rmp.BFOActive[0].getValue()) {
|
|
rmp.BFOActive[0].setValue(1);
|
|
} else {
|
|
mcdu_message(i, "NOT ALLOWED");
|
|
}
|
|
}
|
|
} else {
|
|
mcdu_message(i, "NOT ALLOWED");
|
|
}
|
|
} else if (key == "R1") {
|
|
if (radNavScratchpad == "CLR") {
|
|
fmgc.FMGCInternal.VOR1.freqSet = 0;
|
|
mcdu_scratchpad.scratchpads[i].empty();
|
|
} else {
|
|
if (size(split("/", radNavScratchpad)) == 2) {
|
|
if (size(split("/", radNavScratchpad)[1]) != 0) {
|
|
mcdu_message(i, "FORMAT ERROR");
|
|
return;
|
|
} else {
|
|
radNavScratchpad = split("/", radNavScratchpad)[0];
|
|
if (num(radNavScratchpad) != radNavScratchpad) {
|
|
mcdu_message(i, "FORMAT ERROR");
|
|
} else {
|
|
returny = parseFrequencyVOR(radNavScratchpad, i, 3);
|
|
if (returny == 1) {
|
|
mcdu_message(i, "FORMAT ERROR");
|
|
} elsif (returny == 2) {
|
|
mcdu_message(i, "ENTRY OUT OF RANGE");
|
|
} elsif (returny == 3) {
|
|
mcdu_message(i, "NOT ALLOWED");
|
|
} elsif (returny == 4) {
|
|
fmgc.FMGCInternal.VOR2.freqSet = 1;
|
|
mcdu_scratchpad.scratchpads[i].empty();
|
|
}
|
|
}
|
|
}
|
|
} else if (size(split("/", radNavScratchpad)) == 1) {
|
|
if (num(radNavScratchpad) == radNavScratchpad) {
|
|
returny = parseFrequencyVOR(radNavScratchpad, i, 3);
|
|
if (returny == 1) {
|
|
mcdu_message(i, "FORMAT ERROR");
|
|
} elsif (returny == 2) {
|
|
mcdu_message(i, "ENTRY OUT OF RANGE");
|
|
} elsif (returny == 3) {
|
|
mcdu_message(i, "NOT ALLOWED");
|
|
} elsif (returny == 4) {
|
|
fmgc.FMGCInternal.VOR2.freqSet = 1;
|
|
mcdu_scratchpad.scratchpads[i].empty();
|
|
}
|
|
} else if (isstr(radNavScratchpad)) {
|
|
returny = parseIdentVOR(radNavScratchpad, i, 3);
|
|
if (returny == 1) {
|
|
mcdu_message(i, "FORMAT ERROR");
|
|
} elsif (returny == 2) {
|
|
# TODO - NEW NAVAID page
|
|
mcdu_message(i, "NOT IN DATA BASE");
|
|
} elsif (returny == 3) {
|
|
fmgc.FMGCInternal.VOR2.freqSet = 1;
|
|
mcdu_scratchpad.scratchpads[i].empty();
|
|
}
|
|
}
|
|
} else {
|
|
mcdu_message(i, "FORMAT ERROR");
|
|
}
|
|
}
|
|
} else if (key == "R2") {
|
|
if (radNavScratchpad == "CLR") {
|
|
fmgc.FMGCInternal.VOR2.crsSet = 0;
|
|
mcdu_scratchpad.scratchpads[i].empty();
|
|
} else {
|
|
if (radNavScratchpadSize >= 1 and radNavScratchpadSize <= 3) {
|
|
if (radNavScratchpad >= 0 and radNavScratchpad <= 360) {
|
|
pts.Instrumentation.Nav.Radials.selectedDeg[3].setValue(radNavScratchpad);
|
|
fmgc.FMGCInternal.VOR2.crsSet = 1;
|
|
mcdu_scratchpad.scratchpads[i].empty();
|
|
} else {
|
|
mcdu_message(i, "NOT ALLOWED");
|
|
}
|
|
} else {
|
|
mcdu_message(i, "NOT ALLOWED");
|
|
}
|
|
}
|
|
} else if (key == "R5") {
|
|
if (radNavScratchpad == "CLR") {
|
|
fmgc.FMGCInternal.ADF2.freqSet = 0;
|
|
mcdu_scratchpad.scratchpads[i].empty();
|
|
} else {
|
|
if (size(split("/", radNavScratchpad)) == 2) {
|
|
if (size(split("/", radNavScratchpad)[1]) != 0) {
|
|
mcdu_message(i, "FORMAT ERROR");
|
|
return;
|
|
} else {
|
|
radNavScratchpad = split("/", radNavScratchpad)[0];
|
|
if (num(radNavScratchpad) != radNavScratchpad) {
|
|
mcdu_message(i, "FORMAT ERROR");
|
|
} else {
|
|
returny = parseFrequencyADF(radNavScratchpad, i, 1);
|
|
if (returny == 1) {
|
|
mcdu_message(i, "FORMAT ERROR");
|
|
} elsif (returny == 2) {
|
|
mcdu_message(i, "ENTRY OUT OF RANGE");
|
|
} elsif (returny == 3) {
|
|
mcdu_message(i, "NOT ALLOWED");
|
|
} elsif (returny == 4) {
|
|
fmgc.FMGCInternal.ADF2.freqSet = 1;
|
|
mcdu_scratchpad.scratchpads[i].empty();
|
|
}
|
|
}
|
|
}
|
|
} else if (size(split("/", radNavScratchpad)) == 1) {
|
|
if (num(radNavScratchpad) == radNavScratchpad) {
|
|
returny = parseFrequencyADF(radNavScratchpad, i, 1);
|
|
if (returny == 1) {
|
|
mcdu_message(i, "FORMAT ERROR");
|
|
} elsif (returny == 2) {
|
|
mcdu_message(i, "ENTRY OUT OF RANGE");
|
|
} elsif (returny == 3) {
|
|
mcdu_message(i, "NOT ALLOWED");
|
|
} elsif (returny == 4) {
|
|
fmgc.FMGCInternal.ADF2.freqSet = 1;
|
|
mcdu_scratchpad.scratchpads[i].empty();
|
|
}
|
|
} else if (isstr(radNavScratchpad)) {
|
|
returny = parseIdentADF(radNavScratchpad, i, 1);
|
|
if (returny == 1) {
|
|
mcdu_message(i, "FORMAT ERROR");
|
|
} elsif (returny == 2) {
|
|
# TODO - NEW NAVAID page
|
|
mcdu_message(i, "NOT IN DATA BASE");
|
|
} elsif (returny == 3) {
|
|
fmgc.FMGCInternal.ADF2.freqSet = 1;
|
|
mcdu_scratchpad.scratchpads[i].empty();
|
|
}
|
|
}
|
|
} else {
|
|
mcdu_message(i, "FORMAT ERROR");
|
|
}
|
|
}
|
|
} else if (key == "R6") {
|
|
if (fmgc.FMGCInternal.ADF2.freqSet) {
|
|
if (radNavScratchpad == "CLR" and rmp.BFOActive[1].getValue()) {
|
|
rmp.BFOActive[1].setValue(0);
|
|
mcdu_scratchpad.scratchpads[i].empty();
|
|
} else {
|
|
if (radNavScratchpadSize == 0 and !rmp.BFOActive[1].getValue()) {
|
|
rmp.BFOActive[1].setValue(1);
|
|
} else {
|
|
mcdu_message(i, "NOT ALLOWED");
|
|
}
|
|
}
|
|
} else {
|
|
mcdu_message(i, "NOT ALLOWED");
|
|
}
|
|
} else {
|
|
mcdu_message(i, "NOT ALLOWED");
|
|
}
|
|
}
|
|
}
|