qemu-devel.nongnu.org archive mirror
 help / color / mirror / Atom feed
* [Qemu-devel] [Bug 1239008] [NEW] qemu fails to scroll screen on ^Vidmem output
@ 2013-10-11 23:33 rjasmin
  2013-11-28  2:24 ` [Qemu-devel] [Bug 1239008] " Serge Hallyn
                   ` (5 more replies)
  0 siblings, 6 replies; 9+ messages in thread
From: rjasmin @ 2013-10-11 23:33 UTC (permalink / raw)
  To: qemu-devel

Public bug reported:

Pascal uses ^Vidmem for B800 console output. The terminal does not
oblige the Pascal OS code to scroll the output. Virtualbox emulation
works, so this must be a qemu bug. Using QEMU in KVM mode as Ubuntu LTS.

Source line to trip bug(in theory pushes VideoMem up one line):

procedure Scroll;
//this is whats causing crashes. FIXME:Virtualbox not affected.QEMU BUG?
begin
  if scrolldisabled then exit;
      if (CursorPosY >= 24) then begin  //in case called before end of screen
    blank:= $20 or (TextAttr shl 8);
    Move((VidMem+(2*80))^,VidMem^,24*(2*80));
    // Empty last line
    FillWord((VidMem+(24*2*80))^,80,Blank);
    CursorPosX:=1;
    CursorPosY:=23;
    update_cursor;
  end;
end;

** Affects: qemu
     Importance: Undecided
         Status: New

** Affects: kvm (Ubuntu)
     Importance: Undecided
         Status: New

** Also affects: kvm (Ubuntu)
   Importance: Undecided
       Status: New

-- 
You received this bug notification because you are a member of qemu-
devel-ml, which is subscribed to QEMU.
https://bugs.launchpad.net/bugs/1239008

Title:
  qemu fails to scroll screen on ^Vidmem output

Status in QEMU:
  New
Status in “kvm” package in Ubuntu:
  New

Bug description:
  Pascal uses ^Vidmem for B800 console output. The terminal does not
  oblige the Pascal OS code to scroll the output. Virtualbox emulation
  works, so this must be a qemu bug. Using QEMU in KVM mode as Ubuntu
  LTS.

  Source line to trip bug(in theory pushes VideoMem up one line):

  procedure Scroll;
  //this is whats causing crashes. FIXME:Virtualbox not affected.QEMU BUG?
  begin
    if scrolldisabled then exit;
        if (CursorPosY >= 24) then begin  //in case called before end of screen
      blank:= $20 or (TextAttr shl 8);
      Move((VidMem+(2*80))^,VidMem^,24*(2*80));
      // Empty last line
      FillWord((VidMem+(24*2*80))^,80,Blank);
      CursorPosX:=1;
      CursorPosY:=23;
      update_cursor;
    end;
  end;

To manage notifications about this bug go to:
https://bugs.launchpad.net/qemu/+bug/1239008/+subscriptions

^ permalink raw reply	[flat|nested] 9+ messages in thread

end of thread, other threads:[~2017-12-28  4:30 UTC | newest]

Thread overview: 9+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2013-10-11 23:33 [Qemu-devel] [Bug 1239008] [NEW] qemu fails to scroll screen on ^Vidmem output rjasmin
2013-11-28  2:24 ` [Qemu-devel] [Bug 1239008] " Serge Hallyn
2013-11-29 12:50   ` rjasmin
2013-11-29 14:43 ` Serge Hallyn
2015-06-17 17:11 ` Chris J Arges
2015-06-17 22:19   ` rjasmin
2017-10-28 14:24 ` Thomas Huth
2017-12-28  4:17 ` Launchpad Bug Tracker
2017-12-28  4:17 ` Launchpad Bug Tracker

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for NNTP newsgroup(s).