github.com/wfjm.w11
1
0
Fork 0
mirror of https://github.com/wfjm/w11.git synced 2026-05-02 22:33:58 +00:00
Code Issues Releases Wiki Activity

Add first tcode; RtclRw11Cpu BUGFIX

Browse Source 
- rtl/sys_gen/w11a/*/tbrun.yml: add tcode execution
- tools/tcode: new area for add fast mac-only verification codes
- tools/tcl/rw11
  - tcodes.tcl: added, driver for tcode execution
- tools/src/librwxxtpp
  - RtclRw11Cpu.cpp: BUGFIX: quit before mem write if asm-11 error seen
This commit is contained in:
wfjm
2022-07-08 08:35:39 +02:00
parent 1401e20a2e
commit da1f0c151e
21 changed files with 1622 additions and 25 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
tools/src/librwxxtpp/RtclRw11Cpu.cpp
View File

@@ -1,9 +1,10 @@
// $Id: RtclRw11Cpu.cpp 1175 2019-06-30 06:13:17Z mueller $
// $Id: RtclRw11Cpu.cpp 1249 2022-07-08 06:27:59Z mueller $
// SPDX-License-Identifier: GPL-3.0-or-later
// Copyright 2013-2019 by Walter F.J. Mueller <W.F.J.Mueller@gsi.de>
// Copyright 2013-2022 by Walter F.J. Mueller <W.F.J.Mueller@gsi.de>
//
// Revision History:
// Date Rev Version Comment
// 2022--7-07 1249 1.2.34 BUGFIX: quit before mem write if asm-11 error seen
// 2019-06-29 1175 1.2.33 M_ldabs(): add missing OptValid() call
// 2019-06-07 1160 1.2.32 use RtclStats::Exec()
// 2019-04-30 1143 1.2.31 add HasM9312() getter
@@ -1213,8 +1214,14 @@ int RtclRw11Cpu::M_ldasm(RtclArgs& args)
if (!Rtcl::SetVar(interp, varlst, Rtcl::NewLinesObj(los))) return kERR;
}
// now, finally, iterate over cmap and write code to memory
// in case of asm-11 error quit (after lst and sym processing)
if (wexit != 0) {
args.AppendResultLines("asm-11 compilation failed with:");
args.AppendResultLines(eos);
return kERR;
}
// now, finally, iterate over cmap and write code to memory
vector<uint16_t> block;
uint16_t base = 0;
dot = 0;
@@ -1237,12 +1244,6 @@ int RtclRw11Cpu::M_ldasm(RtclArgs& args)
block.clear();
}
if (wexit != 0) {
args.AppendResultLines("asm-11 compilation failed with:");
args.AppendResultLines(eos);
return kERR;
}
return kOK;
}