?login_element?

Subversion Repositories NedoOS

Rev

Rev 1346 | Blame | Compare with Previous | Last modification | View Log | Download

  1. prepareScreen:
  2.     call TextMode.cls
  3.     ld hl, header : call TextMode.printZ
  4.     ld hl, toolbox : call TextMode.printZ
  5.     ld hl, hostName : call TextMode.printZ
  6.     ld de, #1700 : call TextMode.gotoXY : ld hl, footer : call TextMode.printZ
  7.  
  8.     xor a : call TextMode.highlightLine
  9.     ld a, 1 : call TextMode.highlightLine
  10.     ld a, #17 : call TextMode.highlightLine
  11.     ret
  12.  
  13.  
  14. toolbox db 13, 10, " [D]omain: ", 0
  15. footer db "  Cursor - movement  [B]ack to prev. page  [H]ome page", 0
  16.  
  17. inputHost:
  18.     call Console.waitForKeyUp
  19. .loop
  20.     ld de, #010B : call TextMode.gotoXY : ld hl, hostName : call TextMode.printZ
  21.     ld a, MIME_INPUT : call TextMode.putC
  22.     ld a, ' ' : call TextMode.putC
  23. .wait
  24.     call Console.getC
  25.     ld e, a
  26.     cp Console.BACKSPACE : jr z, .removeChar
  27.     cp CR : jp z, inputNavigate
  28.     cp 32 : jr c, .wait
  29. .putC
  30.     xor a : ld hl, hostName, bc, 48 : cpir
  31.     ld (hl), a : dec hl : ld (hl), e
  32.     jr .loop
  33. .removeChar
  34.     xor a
  35.     ld hl, hostName, bc, 48 : cpir
  36.     dec hl : dec hl : ld (hl), a
  37.     jr .loop
  38.  
  39. inputNavigate:
  40.     ld hl, hostName, de, domain
  41.     ld a,(hl)
  42.     and a
  43.     jp z, History.load
  44. .loop
  45.     ld a, (hl) : and a : jr z, .complete
  46.     ld (de), a : inc hl, de
  47.     jr .loop
  48. .complete
  49.     ld a, TAB : ld (de), a : inc de
  50.     ld a, '7' : ld (de), a : inc de
  51.     ld a, '0' : ld (de), a : inc de
  52.     ld a, CR : ld (de), a : inc de
  53.     ld a, LF : ld (de), a : inc de
  54.     ld hl, navRow : jp History.navigate
  55.  
  56. navRow db "1 ", TAB, "/", TAB
  57. domain db "nihirash.net"
  58.     ds 64 - ($ - domain)
  59.  
  60.     IFDEF MB03
  61. header db "    Moon Rabbit "
  62.        db VERSION_STRING
  63.        db " for MB03+  (c) 2021 Alexander Nihirash",13, 0
  64.     ENDIF
  65.    
  66.     IFDEF UNO
  67. header db "    Moon Rabbit "
  68.        db VERSION_STRING
  69.        db " for ZX-Uno (c) 2021 Alexander Nihirash",13, 0
  70.     ENDIF
  71.  
  72.     IFDEF AY
  73. header db "    Moon Rabbit "
  74.        db VERSION_STRING
  75.        db " for AYWIFI (c) 2021 Alexander Nihirash",13, 0
  76.     ENDIF
  77.    
  78.     IFDEF NEDOOS
  79. header db "              Moon Rabbit "
  80.        db VERSION_STRING
  81.        db " for nedoOS (c) 2021 Alexander Nihirash",13, 0
  82.     ENDIF