?login_element?

Subversion Repositories NedoOS

Rev

Blame | Last modification | View Log | Download | RSS feed

  1.        
  2.         module ScreenViewer
  3. display:
  4.     call Console.waitForKeyUp
  5.         ld e,0x83
  6.         ld c,nos.CMD_SETGFX
  7.         call nos.BDOS
  8.         ld a,(nos.user_scr0_high)
  9.         rst 0x28
  10.     ld hl, outputBuffer, de, #c000, bc, 6912 : ldir
  11.     xor a : out (#fe), a
  12. .wait
  13.     call Console.getC
  14.         ld e,0x86
  15.         ld c,nos.CMD_SETGFX
  16.         call nos.BDOS
  17.         ld a,(TextMode.pgC)
  18.         rst 0x28
  19.     call TextMode.cls
  20.     jp History.back
  21.     endmodule