Hi Rodrigo,
another candidate for some sort of problems is function msdos()
in ./src/base/async/int.c
I've made a small change for 'get time & date':
here is the code:
case 0x2C: { /* get time & date */
/*
* 2004/08/20, 2006/11/25
* waiting loops, like 'wait until time ...' call never a trigger_idle()
* but 90% cpu load. --ms
* idle(2, 100, 0, INT2F_IDLE_USECS, "dos_time");
*/
idle(0, 20, 0, INT2F_IDLE_USECS, "dos_time");
return 0;
}
You can try this too, but I think this should not be a problem in
your cobol application. This is also a result of debugging my own apps.
Manfred
________________________________________________________________
Am Montag, 31. März 2008 15:46 schrieben Sie:
>
> Hi Manfred
>
> Changing idle first parameter to 10 didn't help, but changing it to 1
> or 2 slowed down the cobol app. I was changing e-mails with Bart
> privatetly about that. The problem with this approach is that when the
> app really needs the cpu, for generating reports, it also runs slow, I
> guess because it keeps updating a number on the screen.
>
> After some debugging I identified an AX pattern when the app is in the
> menus, which is the main problem of this app, so I only slow down
> dosemu when I detect this pattern:
>
> --- ../dosemu-1.4.0/src/base/bios/int16.c 2007-05-04
> 02:59:48.000000000 -0300
> +++ src/base/bios/int16.c 2008-03-28 15:10:13.000000000 -0300
> @@ -112,16 +112,22 @@
>
> static unsigned check_key_available(int extended)
> {
> + static int oldAX=0;
> unsigned keyptr = get_key(extended);
> if(keyptr == -1) {
> if(!port60_buffer || (port60_buffer & 0x80))
> trigger_idle();
> else
> reset_idle(0);
> - idle(500, 20, 0, INT2F_IDLE_USECS, "int16");
> +/* printf ("AX=%x\n",_AX); */
> + if (_AX == 0x1100 && oldAX==0x1103 ) /* here I detect the pattern */
> + idle(2, 20, 0, INT2F_IDLE_USECS, "int16");
> + else
> + idle(500, 20, 0, INT2F_IDLE_USECS, "int16");
> } else {
> reset_idle(1);
> }
> + oldAX = _AX;
> return get_key(extended);
> }
>
> This is a sort of dirty solution, but it worked fine...
>
> Thanks,
> Rodrigo
>
>
>
> Manfred Scherer <manfred.scherer.mhm@xxxxxxxxxxx> writes:
>
> > Hi all,
> > I have had the the same problem with other programs i.e. dbase 3+ word 4.0 ...
> > in dosemu 1.3.4 I have made a small change in
> > src/base/bios/int16.c in function check_key_available():
> >
> > here is the code for dosemu 1.3.4, I think this is equal to 1.4.0:
> >
> > static unsigned check_key_available(int extended)
> > {
> > unsigned keyptr = get_key(extended);
> > if(keyptr == -1) {
> > if(!port60_buffer || (port60_buffer & 0x80))
> > trigger_idle();
> > else
> > reset_idle(0);
> > /* 2006-12-13
> > * dbase3+, word4.0, .... CPU-load is to heavy during idle. --ms
> > * idle(500, 20, 0, INT2F_IDLE_USECS, "int16");
> > */
> > idle(10, 20, 0, INT2F_IDLE_USECS, "int16");
> > } else {
> > reset_idle(1);
> > }
> > return get_key(extended);
> > }
> >
> > I think that may help for Cobol too.
> >
> > Manfred
> >
> > --
> > To unsubscribe from this list: send the line "unsubscribe linux-msdos" in
> > the body of a message to majordomo@xxxxxxxxxxxxxxx
> > More majordomo info at http://vger.kernel.org/majordomo-info.html
>
>
--
To unsubscribe from this list: send the line "unsubscribe linux-msdos" in
the body of a message to majordomo@xxxxxxxxxxxxxxx
More majordomo info at http://vger.kernel.org/majordomo-info.html
