?login_element?

Subversion Repositories NedoOS

Rev

Rev 1055 | Go to most recent revision | 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. .loop
  19.     ld de, #010B : call TextMode.gotoXY : ld hl, hostName : call TextMode.printZ
  20.     ld a, MIME_INPUT : call TextMode.putC
  21.     ld a, ' ' : call TextMode.putC
  22. .wait
  23.     call Console.getC
  24.     cp Console.BACKSPACE : jr z, .removeChar
  25.     cp CR : jp z, inputNavigate
  26.     cp 32 : jr c, .wait
  27.     jr .putC
  28. .putC
  29.     ld e, a
  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. .loop
  42.     ld a, (hl) : and a : jr z, .complete
  43.     ld (de), a : inc hl, de
  44.     jr .loop
  45. .complete
  46.     ld a, TAB : ld (de), a : inc de
  47.     ld a, '7' : ld (de), a : inc de
  48.     ld a, '0' : ld (de), a : inc de
  49.     ld a, CR : ld (de), a : inc de
  50.     ld a, LF : ld (de), a : inc de
  51.     ld hl, navRow : call History.navigate
  52.  
  53. navRow db "1 ", TAB, "/", TAB
  54. domain db "nihirash.net"
  55.     ds 64 - ($ - domain)
  56.  
  57.     IFDEF MB03
  58. header db "    Moon Rabbit "
  59.        db VERSION_STRING
  60.        db " for MB03+  (c) 2021 Alexander Nihirash",13, 0
  61.     ENDIF
  62.    
  63.     IFDEF UNO
  64. header db "    Moon Rabbit "
  65.        db VERSION_STRING
  66.        db " for ZX-Uno (c) 2021 Alexander Nihirash",13, 0
  67.     ENDIF
  68.  
  69.     IFDEF AY
  70. header db "    Moon Rabbit "
  71.        db VERSION_STRING
  72.        db " for AYWIFI (c) 2021 Alexander Nihirash",13, 0
  73.     ENDIF
  74.    
  75.     IFDEF NEDOOS
  76. header db "              Moon Rabbit "
  77.        db VERSION_STRING
  78.        db " for nedoOS (c) 2021 Alexander Nihirash",13, 0
  79.     ENDIF