?login_element?

Subversion Repositories NedoOS

Rev

Rev 1614 | Rev 1792 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | Download | RSS feed

  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.  
  54.     cp Console.BACKSPACE : jp z, History.back
  55.  
  56.     IFDEF GS
  57.     cp 'M' : call z, GeneralSound.toggleModule
  58.     cp 'm' : call z, GeneralSound.toggleModule
  59.     ENDIF
  60.  
  61.     IFDEF TIMEX80
  62.     cp 'T' : call z, TextMode.toggleColor
  63.     cp 't' : call z, TextMode.toggleColor
  64.     ENDIF
  65.  
  66.     jp plainTextLoop
  67.  
  68.  
  69. textDown:
  70.     ld hl,(page_offset)
  71.     ld de,PER_PAGE
  72.     add hl,de
  73.     ld (page_offset), hl
  74.     call renderPlainTextScreen
  75.     jp plainTextLoop
  76.  
  77. textUp:
  78.     ld a, (page_offset) : cp 0 : jr nz, .textUp2
  79.     ld a, (page_offset + 1) : cp 0 : jr nz, .textUp2
  80.     jp plainTextLoop
  81.  
  82. .textUp2:
  83.     ld hl,(page_offset)
  84.     ld de,PER_PAGE
  85.     sbc hl,de
  86.     ld (page_offset), hl
  87.     call renderPlainTextScreen
  88.     jp plainTextLoop    
  89.    
  90.  
  91.     /*
  92.     .loop
  93.     push bc
  94.     ld a, PER_PAGE : sub b
  95.     ld b, a
  96.     ld e, a
  97.     ld a, (page_offset)
  98.     add b
  99.     ld b, a
  100.    
  101.         ld c,b
  102.         ld b,0
  103.     push de
  104.     call Render.findLine
  105.     pop de
  106.     ld a, h : or l : jr z, .exit
  107.     ld a, e
  108.     add CURSOR_OFFSET : ld d, a, e, 1 : call TextMode.gotoXY
  109.     call print70Text
  110.     pop bc
  111.     djnz .loop
  112.     ret
  113. .exit
  114. */