Subversion Repositories NedoOS

Rev

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