?login_element?

Subversion Repositories NedoOS

Rev

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

  1.     IFDEF ZXSCR
  2.     DEFINE LEFT_TAB "[D]omain:                                     "
  3.     ENDIF
  4.  
  5.     IFDEF TIMEX     ;UNKNOWM fallback to 64
  6.     DEFINE LEFT_TAB "[D]omain:                                     "
  7.     ENDIF
  8.  
  9.     IFDEF TIMEX80
  10.     DEFINE LEFT_TAB "[D]omain:                                                         "
  11.     ENDIF
  12.  
  13.     IFDEF NEDOOS
  14.     DEFINE LEFT_TAB "[D]omain:                                                     "
  15.     ENDIF
  16.  
  17. prepareScreen:
  18.     call TextMode.cls
  19.     ld hl, header : call TextMode.printZ
  20.     ld de, #000A : call TextMode.gotoXY
  21.     ld hl, hostName : call TextMode.printZ
  22.     xor a : call TextMode.highlightLine
  23.     ret
  24.  
  25. inputHost:
  26.     call Console.waitForKeyUp
  27. .loop
  28.     ld de, #000A : call TextMode.gotoXY : ld hl, hostName : call TextMode.printZ
  29.     ld a, MIME_INPUT : call TextMode.putC
  30.     ld a, ' ' : call TextMode.putC
  31. .wait
  32.     call Console.getC
  33.     ld e, a
  34.     cp Console.BACKSPACE : jr z, .removeChar
  35.     cp CR : jp z, inputNavigate
  36.     cp 32 : jr c, .wait
  37. .putC
  38.     xor a : ld hl, hostName, bc, 48 : cpir
  39.     ld (hl), a : dec hl : ld (hl), e
  40.     jr .loop
  41. .removeChar
  42.     xor a
  43.     ld hl, hostName, bc, 48 : cpir
  44.     dec hl : dec hl : ld (hl), a
  45.     jr .loop
  46.  
  47. inputNavigate:
  48.     ld hl, hostName, de, domain
  49.     ld a,(hl)
  50.     and a
  51.     jp z, History.load
  52. .loop
  53.     ld a, (hl) : and a : jr z, .complete
  54.     ld (de), a : inc hl, de
  55.     jr .loop
  56. .complete
  57.     ld a, TAB : ld (de), a : inc de
  58.     ld a, '7' : ld (de), a : inc de
  59.     ld a, '0' : ld (de), a : inc de
  60.     ld a, CR : ld (de), a : inc de
  61.     ld a, LF : ld (de), a : inc de
  62.     ld hl, navRow : jp History.navigate
  63.  
  64. navRow db "1 ", TAB, "/", TAB
  65. domain db "nihirash.net"
  66.     ds 64 - ($ - domain)
  67.  
  68.     IFDEF MB03
  69. header db LEFT_TAB, "    MRF "
  70.        db VERSION_STRING
  71.        db " [MB03+]",13, 0
  72.        ENDIF
  73.    
  74.     IFDEF UNO
  75. header db LEFT_TAB, "MRF "
  76.        db VERSION_STRING
  77.        db " [UNO UART]",13, 0
  78.     ENDIF
  79.  
  80.     IFDEF AY
  81. header db LEFT_TAB, "  MRF "
  82.        db VERSION_STRING
  83.        db " [AYWIFI]",13, 0
  84.         ENDIF
  85.  
  86.     IFDEF ZW
  87. header db LEFT_TAB, "  MRF "
  88.        db VERSION_STRING
  89.        db " [ZXWiFi]",13, 0
  90.     ENDIF      
  91.  
  92.      IFDEF NEDOOSATM
  93. header db LEFT_TAB, "MRF "
  94.        db VERSION_STRING
  95.        db " [ATM UART]",13, 0
  96.     ENDIF
  97.        
  98.     IFDEF NEDOOSEVO
  99. header db LEFT_TAB, "MRF "
  100.        db VERSION_STRING
  101.        db " [EVO UART]",13, 0
  102.     ENDIF
  103.  
  104.     IFDEF UNOUART
  105. header db LEFT_TAB, "MRF "
  106.        db VERSION_STRING
  107.        db " [UNO UART]",13, 0
  108.     ENDIF
  109.  
  110.     IFDEF NEDOOS
  111.         IFNDEF NEDOOSATM
  112.         IFNDEF NEDOOSEVO
  113. header db LEFT_TAB, " MRF "
  114.        db VERSION_STRING
  115.        db " [nedoNET]",13, 0
  116.     ENDIF
  117.         ENDIF
  118.         ENDIF  
  119.  
  120.