?login_element?

Subversion Repositories NedoOS

Rev

Rev 1615 | Rev 1856 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | Download

  1. renderPlainTextScreen:
  2.     call prepareScreen
  3.     ld b, PER_PAGE
  4. .loop
  5.     push bc
  6.     ld a, PER_PAGE : sub b
  7.     ld b,a
  8.     ld e,a
  9.     ld c,b
  10.     ld b,0
  11.     ld hl, (page_offset)
  12.     add hl,bc
  13.     ld bc,hl
  14.     push de
  15.     call Render.findLine
  16.     pop de
  17.     ld a, h : or l : jp z, .exit
  18.     ld a, e
  19.     add CURSOR_OFFSET : ld d, a, e, 1 : call TextMode.gotoXY
  20.     call print70Text
  21.     pop bc
  22.     djnz .loop
  23.     ret
  24. .exit
  25.     pop bc
  26.     ret
  27.  
  28. plainTextLoop:
  29.     call Console.getC
  30.  
  31.     cp '1' : jp z, History.back
  32.     cp '2' : jp z, navigate
  33.     cp '5' : jp z, textUp
  34.     cp '8' : jp z, textDown
  35.     cp Console.KEY_LT : jp z, textUp
  36.     cp Console.KEY_RT : jp z, textDown
  37.  
  38.     cp Console.KEY_DN : jp z, textDown
  39.     cp 'a' : jp z, textDown
  40.  
  41.     cp Console.KEY_UP : jp z, textUp
  42.     cp 'q' : jp z, textUp
  43.    
  44.     cp 'h' : jp z, History.home
  45.     cp 'H' : jp z, History.home
  46.  
  47.     cp 'b' : jp z, History.back
  48.     cp 'B' : jp z, History.back
  49.    
  50.     cp 'd' : jp z, inputHost
  51.     cp 'D' : jp z, inputHost
  52.  
  53.     cp Console.BACKSPACE : jp z, History.back
  54.    
  55.     IFDEF MSX
  56.         cp ESC : jp z, exit
  57.     ENDIF
  58.      
  59.     IFDEF GS
  60.     cp 'M' : call z, GeneralSound.toggleModule
  61.     cp 'm' : call z, GeneralSound.toggleModule
  62.     ENDIF
  63.  
  64.     IFDEF TIMEX80
  65.     cp 'T' : call z, TextMode.toggleColor
  66.     cp 't' : call z, TextMode.toggleColor
  67.     ENDIF
  68.  
  69.     jp plainTextLoop
  70.  
  71.  
  72. textDown:
  73.     ld hl,(page_offset)
  74.     ld de,PER_PAGE
  75.     add hl,de
  76.     ld (page_offset), hl
  77.     call renderPlainTextScreen
  78.     jp plainTextLoop
  79.  
  80. textUp:
  81.     ld a, (page_offset) : cp 0 : jr nz, .textUp2
  82.     ld a, (page_offset + 1) : cp 0 : jr nz, .textUp2
  83.     jp plainTextLoop
  84.  
  85. .textUp2:
  86.     ld hl,(page_offset)
  87.     ld de,PER_PAGE
  88.     sbc hl,de
  89.     ld (page_offset), hl
  90.     call renderPlainTextScreen
  91.     jp plainTextLoop    
  92.