?login_element?

Subversion Repositories NedoOS

Rev

Rev 2040 | 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     ;UNKNOWN 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.    
  37.     push bc
  38.     push hl
  39.     push de ; Dont remove, pops in printsavemode
  40.     push af
  41.     call printsavemode
  42.     ret
  43.  
  44. inputHost:
  45.         call Console.waitForKeyUp
  46. .loop
  47.     ld de, #000A : call TextMode.gotoXY : ld hl, hostName : call TextMode.printZ
  48.     ld a, MIME_INPUT : call TextMode.putC
  49.     ld a, ' ' : call TextMode.putC
  50. .wait
  51.     call Console.getC
  52.     ld e, a
  53.     cp Console.BACKSPACE : jr z, .removeChar
  54.     cp CR : jp z, inputNavigate
  55.     cp 32 : jr c, .wait
  56. .putC
  57.     xor a : ld hl, hostName, bc, 48 : cpir
  58.     ld (hl), a : dec hl : ld (hl), e
  59.     jr .loop
  60. .removeChar
  61.     xor a
  62.     ld hl, hostName, bc, 48 : cpir
  63.     dec hl : dec hl : ld (hl), a
  64.     jr .loop
  65.  
  66. inputNavigate:
  67.     ld hl, hostName, de, domain
  68.     ld a,(hl)
  69.     and a
  70.     jp z, History.load
  71. .loop
  72.     ld a, (hl) : and a : jr z, .complete
  73.     ld (de), a : inc hl, de
  74.     jr .loop
  75. .complete
  76.     ld a, TAB : ld (de), a : inc de
  77.     ld a, '7' : ld (de), a : inc de
  78.     ld a, '0' : ld (de), a : inc de
  79.     ld a, CR : ld (de), a : inc de
  80.     ld a, LF : ld (de), a : inc de
  81.     ld hl, navRow : jp History.navigate
  82.  
  83. navRow db "1 ", TAB, "/", TAB
  84. domain db "nihirash.net"
  85.     ds 64 - ($ - domain)
  86.  
  87. header db LEFT_TAB, "MRF "
  88.        db VERSION_STRING
  89.        db "."
  90.        db BUILD_STRING
  91.         IFDEF MSX
  92.        db "    [MSX UNAPI]"
  93.         ENDIF      
  94.  
  95.     IFDEF MB03
  96.        db " [MB03+]"
  97.        ENDIF
  98.    
  99.     IFDEF UNO
  100.        db " [UNO UART]"
  101.     ENDIF
  102.  
  103.     IFDEF AY
  104.        db " [AYWiFi]"
  105.         ENDIF
  106.  
  107.     IFDEF ZW
  108.        db "  [ZXWiFi]"
  109.     ENDIF      
  110.  
  111.      IFDEF UARTATM
  112.        db " [ATM UART]"
  113.     ENDIF
  114.        
  115.     IFDEF UARTEVO
  116.         db " [EVO UART]"
  117.     ENDIF
  118.  
  119.     IFDEF UNOUART
  120.         db " [UNO UART]"
  121.     ENDIF
  122.  
  123.     IFDEF NEDONET
  124.             db "  [nedoNET]"
  125.         ENDIF  
  126.  
  127.     IFDEF AY56
  128.             db " [AYWiFi56]"
  129.         ENDIF
  130.         db 13, 0