?login_element?

Subversion Repositories NedoOS

Rev

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

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