?login_element?

Subversion Repositories NedoOS

Rev

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