diff --git a/map65/libm65/m65.f90 b/map65/libm65/m65.f90 index d3bd327e4..d878a3b49 100644 --- a/map65/libm65/m65.f90 +++ b/map65/libm65/m65.f90 @@ -186,5 +186,10 @@ program m65 print*,infile 999 call fini_timer() + if(arg(1:2).eq.'-s') then + write(21,1999) datetime(:17) +1999 format('Subprocess m65 terminated normally at UTC ',a17) + close(21) + endif end program m65 diff --git a/map65/libm65/m65a.f90 b/map65/libm65/m65a.f90 index 341348915..5e9adc464 100644 --- a/map65/libm65/m65a.f90 +++ b/map65/libm65/m65a.f90 @@ -1,5 +1,5 @@ subroutine m65a - + use timer_module, only: timer use timer_impl, only: init_timer !, limtrace use, intrinsic :: iso_c_binding, only: C_NULL_CHAR diff --git a/map65/mainwindow.cpp b/map65/mainwindow.cpp index 898df74f1..18ea36554 100644 --- a/map65/mainwindow.cpp +++ b/map65/mainwindow.cpp @@ -1338,6 +1338,7 @@ void MainWindow::decode() //decode() memcpy(to, from, qMin(mem_m65.size(), size-8)); datcom_.nagain=0; datcom_.ndiskdat=0; + m_map65RxLog=0; m_call3Modified=false; QFile lockFile(m_appDir + "/.lock"); // Allow m65 to start