WebSVN – Kolibri OS – Diff – /programs/network/ftps/trunk/FTPS.ASM


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
;    FTPS
;    FTP Server
;
;    Compile with FASM for Menuet
;
 
; note: telnet == 23, ftp cmd == 21, data on 20
 
use32
 
    org     0x0
 
    db      'MENUET01'              ; 8 byte id
    dd      1                       ; header version
    dd      START                   ; program start
    dd      I_END                   ; program image size
    dd      0x170000                ; required amount of memory
    dd      0x16FFF0                ; esp = 0x16FFF0
    dd      0, 0                    ; no params, no path
 
include 'macros.inc'
; Various states of client connection
USER_NONE       equ 0   ; Awaiting a connection
USER_CONNECTED  equ 1   ; User just connected, prompt given
USER_USERNAME   equ 2   ; User given username
USER_LOGGED_IN  equ 3   ; User given password
 
 
 
 
 
START:                          ; start of execution
    ; Clear the screen memory
    mov     eax, '    '
    mov     edi,text
    mov     ecx,80*30 /4
    cld
    rep     stosd
 
    call    draw_window
 
    ; init the receive buffer pointer
    mov     [buffptr], buff
 
    ; Init FTP server state machine
    mov     [state], USER_NONE
 
    ; Open the listening socket
    call    connect
 
still:
    ; check connection status
    mov     eax,53
    mov     ebx,6               ; Get socket status
    mov     ecx,[CmdSocket]
    mcall
 
    mov     ebx, [CmdSocketStatus]
    mov     [CmdSocketStatus], eax
 
    cmp     eax, ebx
    je      waitev
 
    ; If the socket closed by remote host, open it again.
    cmp     eax, 7
    je      con
 
    ; If socket closed by Reset, open it again
    cmp     eax, 11
    je      con
 
    ; If a user has just connected, start by outputting welcome msg
    cmp     eax, 4
    jne     noc
 
    mov     esi, loginStr0
    mov     edx, loginStr0_end - loginStr0
    call    outputStr
 
    mov     [state], USER_CONNECTED
    jmp     noc
 
 
con:
    ; Need to call disconnect, since a remote close does not fully
    ; close the socket
    call    disconnect
    mov     eax,5
    mov     ebx,10          ; Delay for 100ms
    mcall
    call    connect
    jmp     noc
 
noc:
    ; Display the changed connected status
    call    draw_window
 
waitev:
    mov     eax,23                 ; wait here for event
    mov     ebx,1                 ; Delay for up to 1s
    mcall
 
    cmp     eax,1                  ; redraw request ?
    je      red
    cmp     eax,2                  ; key in buffer ?
    je      key
    cmp     eax,3                  ; button in buffer ?
    je      button
 
    ; any data from the socket?
 
    mov     eax, 53
    mov     ebx, 2                  ; Get # of bytes in input queue
    mov     ecx, [CmdSocket]
    mcall
    test    eax, eax
    jz      still
 
read_input:
    mov     eax, 53
    mov     ebx, 3                  ; Get a byte from socket in bl
    mov     ecx, [CmdSocket]
    mcall
 
    call    ftpRxCmdData            ; process incoming ftp command
 
    ; Keep processing data until there is no more to process
    mov     eax, 53
    mov     ebx, 2                  ; Get # of bytes in input queue
    mov     ecx, [CmdSocket]
    mcall
    cmp     eax, 0
    jne     read_input
 
    ; Now redraw the text text field.
    ; Probably not required, since ftp requires no
    ; console i/o.
    ; Leave in for now, for debugging.
; (fall through to "red:")
;    call    draw_text
;    jmp     still
 
red:                          ; REDRAW WINDOW
    call    draw_window
    jmp     still
 
key:                          ; KEY
    mov     eax,2                  ; get but ignore
    mcall
    jmp     still
 
button:
    mov     eax,17
    mcall
    cmp     ah,1
    jne     still
 
    ; Exit button pressed, so close socket and quit
    mov     eax,53
    mov     ebx,8
    mov     ecx,[CmdSocket]
    mcall
 
    ; ... terminate program
    or     eax,-1
    mcall
    jmp     still
 
 
 
;   *********************************************
;   *******  WINDOW DEFINITIONS AND DRAW ********
;   *********************************************
draw_window:
    pusha
 
    mov  eax,12
    mov  ebx,1
    mcall
 
    xor  eax,eax                   ; DRAW WINDOW
    mov  ebx,100*65536+491 + 8 +15
    mov  ecx,100*65536+270 + 20     ; 20 for status bar
    mov  edx,0x14000000
    mov  edi,labelt
    mcall
 
    ; draw status bar
    mov     eax, 13
    mov     ebx, 4*65536+484 + 8 +15
    mov     ecx, 270*65536 + 3
    mov     edx, 0x00557799
    mcall
 
 
    mov  esi,contlen-contt          ; display connected status
    mov     edx, contt
    cmp     [CmdSocketStatus], 4    ; 4 is connected
    je      pcon
    mov     esi,discontlen-discontt
    mov     edx, discontt
pcon:
 
    mov  eax,4                      ; status text
    mov  ebx,380*65536+276
    mov  ecx,0x00ffffff
    mcall
 
    ; Draw the text on the screen, clearing it first
    ; This can go when we loose debuggin info.
    xor  eax,eax
    mov  edi,text+80*30
    mov  ecx,80*30 /4
    cld
    rep  stosd
 
    call draw_text
 
    mov  eax,12
    mov  ebx,2
    mcall
 
    popa
 
    ret
 
 
;***************************************************************************
;   Function
;      draw_text
;
;   Description
;       Updates the text on the screen. This is part of the debugging code
;
;   Inputs
;       Character to add in bl
;
;***************************************************************************
draw_text:
 
    pusha
 
    mov  esi,text
    mov  eax,0
    mov  ebx,0
  newletter:
    mov  cl,[esi]
    cmp  cl,[esi+30*80]
    jz   noletter
  yesletter:
    mov  [esi+30*80],cl
 
    ; erase character
 
    pusha
    mov     edx, 0                  ; bg colour
    mov     ecx, ebx
    add     ecx, 26
    shl     ecx, 16
    mov     cx, 9
    mov     ebx, eax
    add     ebx, 6
    shl     ebx, 16
    mov     bx, 6
    mov     eax, 13
    mcall
    popa
 
    ; draw character
 
    pusha
    mov     ecx, 0x00ffffff
    push bx
    mov  ebx,eax
    add  ebx,6
    shl  ebx,16
    pop  bx
    add  bx,26
    mov  eax,4
    mov  edx,esi
    mov  esi,1
    mcall
    popa
 
  noletter:
 
    add  esi,1
    add  eax,6
    cmp  eax,80*6
    jb   newletter
    mov  eax,0
    add  ebx,10
    cmp  ebx,24*10
    jb   newletter
 
    popa
    ret
 
 
 
;***************************************************************************
;   Function
;      ftpRxCmdData
;
;   Description
;       Prcoesses incoming command data, calling a handler for each command.
;       Commands are built up in buff before being processed.
;
;   Inputs
;       Character to add in bl
;
;***************************************************************************
ftpRxCmdData:
    ; Quit if we are not connected
    ;( This case shouldn't be necessary, but be safe )
    mov     al, [state]
    cmp     al, USER_NONE
    je      frcd_exit
 
    ; Store the incoming character
    mov     esi, [buffptr]
    mov     [esi], bl
    inc     esi
    mov     [buffptr], esi
 
    ; For debugging, show the data coming in
    pusha
    call    printChar
    popa
 
    ; Do we have an end of line? (LF)
    ; if not, just exit
    cmp     bl, 0x0a
    jne     frcd_exit
 
    ; OK we have a complete command.
    ; Process, and send response
 
    ; There are a number of states involved in ftp,
    ; to do with logging in.
 
    mov     al, [state]
    cmp     al, USER_CONNECTED
    jne     fs001
 
    ; This should be the username
 
    ; TODO validate username
 
    ; OK, username accepted - ask for password
    mov     esi, loginStr1
    mov     edx, loginStr1_end - loginStr1
    call    outputStr
 
    mov     [state], USER_USERNAME
 
    ; init the receive buffer pointer
    mov     [buffptr], buff
 
    jmp     frcd_exit
 
fs001:
    cmp     al, USER_USERNAME
    jne     fs002
 
    ; This should be the password
 
    ; TODO validate password
 
    ; OK, password accepted - show they are logged in
    mov     esi, loginStr2
    mov     edx, loginStr2_end - loginStr2
    call    outputStr
 
    mov     [state], USER_LOGGED_IN
 
    ; init the receive buffer pointer
    mov     [buffptr], buff
 
    jmp     frcd_exit
 
fs002:
    cmp     al, USER_LOGGED_IN
    jne     fs003
 
    ; This should be a cmd
    call    findCmd
    mov     eax, [cmdPtr]
    cmp     eax, 0
 
    je      fs002b
 
    call    [cmdPtr]
 
fs002a:
    ; init the receive buffer pointer
    mov     [buffptr], buff
 
    jmp     frcd_exit
 
fs002b:
    ; an unsupported command was entered.
    ; Tell user that the command is not supported
 
    mov     esi, unsupStr
    mov     edx, unsupStr_end - unsupStr
    call    outputStr
 
    jmp     fs002a
 
fs003:
frcd_exit:
    ret
 
 
 
;***************************************************************************
;   Function
;      outputStr
;
;   Description
;       Sends a string over the 'Command' socket
;
;   Inputs
;       String in esi
;       Length in edx
;
;***************************************************************************
outputStr:
    push    esi
    push    edx
    mov     eax,53
    mov     ebx,7
    mov     ecx,[CmdSocket]
    mcall
    pop     edx
    pop     esi
 
    cmp     eax, 0
    je      os_exit
 
    ; The TCP/IP transmit queue is full; Wait a bit, then retry
    pusha
    mov     eax,5
    mov     ebx,1                 ; Delay for up 10ms
    mcall
    popa
    jmp     outputStr
os_exit:
    ret
 
 
 
;***************************************************************************
;   Function
;      outputDataStr
;
;   Description
;       Sends a string over the 'Data' socket
;
;   Inputs
;       String in esi
;       Length in edx
;
;***************************************************************************
outputDataStr:
    push    esi
    push    edx
    mov     eax,53
    mov     ebx,7
    mov     ecx,[DataSocket]
    mcall
    pop     edx
    pop     esi
 
    cmp     eax, 0
    je      ods_exit
 
    ; The TCP/IP transmit queue is full; Wait a bit, then retry
    pusha
    mov     eax,5
    mov     ebx,1                 ; Delay for up 10ms
    mcall
    popa
    jmp     outputDataStr
ods_exit:
    ret
 
 
 
;***************************************************************************
;   Function
;      printChar
;
;   Description
;       Writes a character to the screen; Used to display the data coming
;       in from the user. Really only useful for debugging.
;
;   Inputs
;       Character in bl
;
;***************************************************************************
printChar:
    cmp     bl,13                          ; BEGINNING OF LINE
    jne     nobol
    mov     ecx,[pos]
    add     ecx,1
boll1:
    sub     ecx,1
    mov     eax,ecx
    xor     edx,edx
    mov     ebx,80
    div     ebx
    cmp     edx,0
    jne     boll1
    mov     [pos],ecx
    jmp     newdata
nobol:
 
    cmp     bl,10                            ; LINE DOWN
    jne     nolf
addx1:
    add     [pos],dword 1
    mov     eax,[pos]
    xor     edx,edx
    mov     ecx,80
    div     ecx
    cmp     edx,0
    jnz     addx1
    mov     eax,[pos]
    jmp     cm1
nolf:
 
    cmp     bl,8                            ; BACKSPACE
    jne     nobasp
    mov     eax,[pos]
    dec     eax
    mov     [pos],eax
    mov     [eax+text],byte 32
    mov     [eax+text+60*80],byte 0
    jmp     newdata
nobasp:
 
    cmp     bl,15                           ; CHARACTER
    jbe     newdata
putcha:
    mov     eax,[pos]
    mov     [eax+text],bl
    mov     eax,[pos]
    add     eax,1
cm1:
    mov     ebx,[scroll+4]
    imul    ebx,80
    cmp     eax,ebx
    jb      noeaxz
    mov     esi,text+80
    mov     edi,text
    mov     ecx,ebx
    cld
    rep     movsb
    mov     eax,ebx
    sub     eax,80
noeaxz:
    mov     [pos],eax
newdata:
    ret
 
 
;***************************************************************************
;   Function
;      disconnect
;
;   Description
;       Closes the command socket
;
;   Inputs
;       None
;
;***************************************************************************
disconnect:
    mov     eax, 53         ; Stack Interface
    mov     ebx,8           ; Close TCP socket
    mov     ecx,[CmdSocket]
    mcall
    ret
 
 
 
;***************************************************************************
;   Function
;      disconnectData
;
;   Description
;       Closes the data socket
;
;   Inputs
;       None
;
;***************************************************************************
disconnectData:
    ; This delay would be better done by allowing the socket code
    ; to wait for all data to pass through the stack before closing
    pusha
    mov     eax,5
    mov     ebx,10          ; Delay for 100ms
    mcall
    popa
 
    mov     eax, 53         ; Stack Interface
    mov     ebx,8           ; Close TCP socket
    mov     ecx,[DataSocket]
    mcall
    ret
 
 
 
 
;***************************************************************************
;   Function
;      connect
;
;   Description
;       Opens the command socket
;
;   Inputs
;       None
;
;***************************************************************************
connect:
    pusha
 
    mov     eax, 53     ; Stack Interface
    mov     ebx, 5      ; Open TCP socket
    mov     esi, 0      ; No remote IP address
    mov     edx, 0      ; No remote port
    mov     ecx, 21     ; ftp command port id
    mov     edi, 0      ; passive open
    mcall
    mov     [CmdSocket], eax
 
    popa
 
    ret
 
 
 
;***************************************************************************
;   Function
;      connectData
;
;   Description
;       Opens the data socket
;
;   Inputs
;       None
;
;***************************************************************************
connectData:
    pusha
 
    mov     eax, 53     ; Stack Interface
    mov     ebx, 5      ; Open TCP socket
    mov     esi, [DataIP]      ; remote IP address
    mov     edx, [DataPort]    ; remote port
    mov     ecx, 0      ; ftp data port id
    mov     edi, 1      ; active open
    mcall
    mov     [DataSocket], eax
 
    popa
 
    ret
 
 
 
 
;***************************************************************************
;   Function
;      findCmd
;
;   Description
;       Scans the command string for a valid command. The command string
;       is in the global variable buff.
;
;       Returns result in cmdPtr. This will be zero if none found
;
;   Inputs
;       None
;
;***************************************************************************
findCmd:
    ; Setup to return 'none' in cmdPtr, if we find no cmd
    mov     eax, 0
    mov     [cmdPtr], eax
    cld
    mov     esi, buff
    mov     edi, CMDList
 
fc000:
    cmp     [edi], byte 0   ; Are we at the end of the CMDList?
    je      fc_exit
 
fc000a:
    cmpsb
 
    je      fc_nextbyte
 
    ; Command is different - move to the next entry in cmd table
    mov     esi, buff
 
fc001:
    ; skip to the next command in the list
    cmp     [edi], byte 0
    je      fc002
    inc     edi
    jmp     fc001
fc002:
    add     edi, 5
    jmp     fc000
 
fc_nextbyte:
    ; Have we reached the end of the CMD text?
    cmp     [edi], byte 0
    je      fc_got      ; Yes - so we have a match
    jmp     fc000a      ; No - loop back
 
fc_got:
    ; Copy the function pointer for the selected command
    inc     edi
    mov     eax, [edi]
    mov     [cmdPtr], eax
 
fc_exit:
    ret
 
 
 
;***************************************************************************
;   Function
;      decStr2Byte
;
;   Description
;       Converts the decimal string pointed to by esi to a byte
;
;   Inputs
;       string ptr in esi
;
;   Outputs
;       esi points to next character not in string
;       eax holds result ( 0..255)
;
;***************************************************************************
decStr2Byte:
    xor     eax, eax
    xor     ebx, ebx
    mov     ecx, 3
 
dsb001:
    mov     bl, [esi]
 
    cmp     bl, '0'
    jb      dsb_exit
    cmp     bl, '9'
    ja      dsb_exit
 
    imul    eax, 10
    add     eax, ebx
    sub     eax, '0'
    inc     esi
    loop    dsb001
 
dsb_exit:
    ret
 
 
 
;***************************************************************************
;   Function
;      parsePortStr
;
;   Description
;       Converts the parameters of the PORT command, and stores them in the
;       appropriate variables.
;
;   Inputs
;       None ( string in global variable buff )
;
;   Outputs
;       None
;
;***************************************************************************
parsePortStr:
    ; skip past the PORT text to get the the parameters. The command format
    ; is
    ; PORT i,i,i,i,p,p,0x0d,0x0a
    ; where i and p are decimal byte values, high byte first.
    xor     eax, eax
    mov     [DataIP], eax
    mov     [DataPort], eax
    mov     esi, buff + 4       ; Start at first space character
 
pps001:
    cmp     [esi], byte ' '     ; Look for first non space character
    jne     pps002
    inc     esi
    jmp     pps001
 
pps002:
    call    decStr2Byte
    add     [DataIP], eax
    ror     dword [DataIP], 8
    inc     esi
    call    decStr2Byte
    add     [DataIP], eax
    ror     dword [DataIP], 8
    inc     esi
    call    decStr2Byte
    add     [DataIP], eax
    ror     dword [DataIP], 8
    inc     esi
    call    decStr2Byte
    add     [DataIP], eax
    ror     dword [DataIP], 8
    inc     esi
    call    decStr2Byte
    add     [DataPort], eax
    shl     [DataPort], 8
    inc     esi
    call    decStr2Byte
    add     [DataPort], eax
 
    ret
 
 
 
;***************************************************************************
;   Function
;      sendDir
;
;   Description
;       Transmits the directory listing over the data connection.
;       The data connection is already open.
;
;   Inputs
;       None
;
;   Outputs
;       None
;
;***************************************************************************
sendDir:
        mov     eax, text+0x4000
        mov     [fsize], eax
        mov     ebx, dirinfoblock
        and     dword [ebx+4], 0        ; start from zero block
sd001:
; Read the next DirBlocksPerCall (=16) blocks
        mov     eax, 70
        mcall
; Did we read anything?
        test    eax, eax
        jz      @f
        cmp     eax, 6
        jnz     sd_exit
@@:
        test    ebx, ebx
        jz      sd_exit
; Parse these blocks. There could be up to 16 files specified
        mov     esi, text + 0x1300 + 0x20
sd002:
        dec     ebx
        js      sd004
        push    ebx
; OK, lets parse the entry. Ignore volume entries
        test    byte [esi], 8
        jnz     sd003
; Valid file or directory. Start to compose the string we will send
        mov     edi, dirStr
; If we have been called as a result of an NLST command, we only display
; the filename
        cmp     [buff], byte 'N'
        jz      sd006
 
        mov     [edi], byte '-'
        test    byte [esi], 10h
        jz      @f
        mov     [edi], byte 'd'
@@:
; Ok, now copy across the directory listing text that will be constant
; ( I dont bother looking at the read only or archive bits )
 
        mov     ebx, tmplStr
@@:
        inc     edi
        mov     al, [ebx]
        test    al, al
        jz      @f
        mov     [edi], al
        inc     ebx
        jmp     @b
@@:
; point to the last character of the string;
; We will write the file size here, backwards
        push    edi             ; Remember where the string ends
 
        dec     edi
; eax holds the number
        mov     eax, [esi+32]
        mov     ebx, 10
@@:
        xor     edx, edx
        div     ebx
        add     dl, '0'
        mov     [edi], dl
        dec     edi
        test    eax, eax
        jnz     @b
 
        pop     edi
; now create the time & date fields
;timeStr:            db ' Jan 1    2000 ',0
        mov     al, ' '
        stosb
        movzx   eax, byte [esi+28+1]
        mov     eax, dword [months + (eax-1)*4]
        stosd
        mov     al, byte [esi+28]
        aam
        test    ah, ah
        jz      sd005a
        xchg    al, ah
        add     ax, '00'
        jmp     sd005b
sd005a:
        add     al, '0'
        mov     ah, ' '
sd005b:
        stosw
        mov     al, ' '
        mov     ecx, 6
        rep     stosb
        push    edi
        movzx   eax, word [esi+28+2]
@@:
        xor     edx, edx
        div     ebx
        add     dl, '0'
        mov     [edi], dl
        dec     edi
        test    eax, eax
        jnz     @b
        pop     edi
        inc     edi
        mov     al, ' '
        stosb
sd006:
; ** End of copying
 
; now copy the filename across
        lea     ebx, [esi+40]
@@:
        mov     al, [ebx]
        inc     ebx
        test    al, al
        jz      @f
        stosb
        jmp     @b
@@:
terminate:
; Now terminate the line by putting CRLF sequence in
        mov     al, 0x0D
        stosb
        mov     al, 0x0A
        stosb
; Send the completed line to the user over data socket
        push    esi
        push    edi
        mov     esi, dirStr
        mov     ecx, edi
        sub     ecx, esi
        mov     edi, [fsize]
        cld
        rep     movsb
        mov     [fsize], edi
        cmp     edi, text+0x4400
        jb      @f
        mov     esi, text+0x4000
        mov     edx, [fsize]
        sub     edx, esi
        mov     [fsize], esi
        call    outputDataStr
 
@@:
        pop     edi
        pop     esi
 
sd003:                  ; Move to next entry in the block
        pop     ebx
        add     esi, 304
        jmp     sd002
sd004:
        mov     ebx, dirinfoblock
        add     dword [ebx+4], DirBlocksPerCall
        jmp     sd001
 
sd_exit:
        mov     esi, text+0x4000
        mov     edx, [fsize]
        sub     edx, esi
        call    outputDataStr
        ret
 
 
 
 
 
;***************************************************************************
;   Function
;      setupFilePath
;
;   Description
;       Copies the file name from the input request string into the
;       file descriptor
;
;   Inputs
;       None
;
;   Outputs
;       None
;
;***************************************************************************
setupFilePath:
    mov     esi, buff + 4       ; Point to (1 before) first character of file
 
    ; Skip any trailing spaces or / character
sfp001:
    inc     esi
    cmp     [esi], byte ' '
    je      sfp001
    cmp     [esi], byte '/'
    je      sfp001
 
    ; esi points to start of filename.
    cld
    push    esi
 
    ; Copy across the directory path '/'
    ; into the fileinfoblock
    mov     esi, dirpath
    mov     edi, filename
sfp003:
    movsb
    cmp     [esi], byte 0
    jne     sfp003
    mov     al, '/'
    stosb
    pop     esi
 
    ; Copy across the filename
sfp002:
 
    movsb
    cmp     [esi], byte 0x0d
    jne     sfp002
    mov     [edi], byte 0
    ret
 
 
 
 
;***************************************************************************
;   Function
;      sendFile
;
;   Description
;       Transmits the requested file over the open data socket
;       The file to send is named in the buff string
;
;   Inputs
;       None
;
;   Outputs
;       None
;
;***************************************************************************
sendFile:
    call    setupFilePath
 
    ; init fileblock descriptor, for file read
    mov     ebx, fileinfoblock
    and     dword [ebx], 0 ; read cmd
    and     dword [ebx+4], 0 ; first block
    mov     dword [ebx+12], 0x400 ; block size
 
sf002a:
    ; now read the file..
    mov     eax,70
    mcall
    test    eax, eax
    jz      @f
    cmp     eax, 6
    jnz     sf_exit
@@:
    push    eax
    mov     esi, text + 0x1300
    mov     edx, ebx
    call    outputDataStr
    pop     eax
    test    eax, eax
    jnz     sf_exit
; wait a bit
    mov     eax, 5
    mov     ebx, 1
    mcall
    mov     ebx, fileinfoblock
    add     dword [ebx+4], edx
    jmp     sf002a
 
sf_exit:
    ret
 
 
;***************************************************************************
;   Function
;      getFile
;
;   Description
;       Receives the specified file over the open data socket
;       The file to receive is named in the buff string
;
;   Inputs
;       None
;
;   Outputs
;       None
;
;***************************************************************************
getFile:
    call    setupFilePath
 
    ; init fileblock descriptor, for file write
    xor     eax, eax
    mov     [fsize], eax            ; Start filelength at 0
    mov     [fileinfoblock+4], eax    ; set to 0
    inc     eax
    inc     eax
    mov     [fileinfoblock], eax    ; write cmd
 
    ; Read data from the socket until the socket closes
    ; loop
    ;   loop
    ;     read byte from socket
    ;     write byte to file buffer
    ;   until no more bytes in socket
    ;   sleep 100ms
    ; until socket no longer connected
    ; write file to ram
 
gf000:
    mov     eax, 53
    mov     ebx, 2                  ; Get # of bytes in input queue
    mov     ecx, [DataSocket]
    mcall
    test    eax, eax
    je      gf_sleep
 
    mov     eax, 53
    mov     ebx, 11                 ; Get bytes from socket
    mov     ecx, [DataSocket]
    mov     edx, text + 0x1300
    add     edx, dword [fsize]
    xor     esi, esi
    mcall                           ; returned data len in eax
    add     dword [fsize], eax
 
    jmp     gf000
 
gf_sleep:
    ; Check to see if socket closed...
    mov     eax,53
    mov     ebx,6               ; Get socket status
    mov     ecx,[DataSocket]
    mcall
 
    cmp     eax, 7
    jne     gf001               ; still open, so just sleep a bit
 
    ; Finished, so write the file
    mov     eax, [fsize]
    mov     [fileinfoblock+12], eax
    mov     eax,70
    mov     ebx,fileinfoblock
    mcall
 
    ret                         ; Finished
 
gf001:
    ; wait a bit
    mov     eax,5
    mov     ebx,1               ; Delay for up 10ms
    mcall
    jmp     gf000               ; try for more data
 
 
 
 
 
;***************************************************************************
;   COMMAND HANDLERS FOLLOW
;
;   These handlers implement the functionality of each supported FTP Command
;
;***************************************************************************
 
cmdPWD:
    cld
    mov     edi, text+0x1300
 
    mov     esi, curdir_1
    mov     ecx, curdir_2-curdir_1
    rep     movsb
 
    mov     esi, [curdirptr]
    cmp     [esi], byte 0
    jne     cpwd_000
    mov     al, '/'
    stosb
    jmp     cpwd_001
 
cpwd_000:
    movsb
    cmp     [esi], byte 0
    jne     cpwd_000
 
cpwd_001:
    mov     esi, curdir_2
    mov     ecx, curdir_end-curdir_2
    rep     movsb
 
    ; OK, show the directory name text
    mov     esi, text+0x1300
    mov     edx, edi
    sub     edx, esi
    call    outputStr
 
 
 
    ret
 
 
cmdCWD:
    lea     esi, [buff+4]
    mov     edi, [curdirptr]
    mov     ecx, -1
    xor     eax, eax
    repne   scasb
    dec     edi
    cmp     [esi], word '..'
    je      ccwd_002
    test    [esi], byte 0xE0
    je      ccwd_000
    push    edi
    mov     al, '/'
    stosb
@@:
    movsb
    cmp     [esi], byte 0xD
    jne     @b
    xor     al, al
    stosb
 
    mov     eax, 70
    mov     ebx, dirinfoblock
    and     dword [ebx+4], 0
    mcall
    pop     edi
    test    eax, eax
    je      @f
    cmp     eax, 6
    jne     ccwd_000
@@:
    test    ebx, ebx
    je      ccwd_000
    mov     esi, text + 0x1300 + 0x20
 
    mov     al, byte [esi]
    and     al, 0x18
    cmp     al, 0x10
    jne     ccwd_000
 
ccwd_ok:
    ; OK, show the directory name text
    mov     esi, chdir
    mov     edx, chdir_end - chdir
    jmp     ccwd_001
 
ccwd_002:
    dec     edi
    cmp     byte [edi], '/'
    je      ccwd_003
    cmp     edi, [curdirptr]
    ja      ccwd_002
    jmp     ccwd_ok
ccwd_003:
    mov    byte [edi], 0
    jmp     ccwd_ok
 
ccwd_000:
    mov    byte [edi], 0
    ; Tell user there is no such directory
    mov     esi, noFileStr
    mov     edx, noFileStr_end - noFileStr
 
ccwd_001:
    call    outputStr
 
    ret
 
 
cmdQUIT:
    ; The remote end will do the close; We just
    ; say goodbye.
    mov     esi, byeStr
    mov     edx, byeStr_end - byeStr
    call    outputStr
    ret
 
 
cmdABOR:
 
    ; Close port
    call    disconnectData
 
    mov     esi, abortStr
    mov     edx, abortStr_end - abortStr
    call    outputStr
 
    ret
 
cmdPORT:
    ; TODO
    ; Copy the IP and port values to DataIP and DataPort
 
    call    parsePortStr
 
    ; Indicate the command was accepted
    mov     esi, cmdOKStr
    mov     edx, cmdOKStr_end - cmdOKStr
    call    outputStr
    ret
 
cmdnoop:
    ; Indicate the command was accepted
    mov     esi, cmdOKStr
    mov     edx, cmdOKStr_end - cmdOKStr
    call    outputStr
    ret
 
 
cmdTYPE:
    ; TODO
    ; Note the type field selected - reject if needed.
 
    ; Indicate the command was accepted
    mov     esi, cmdOKStr
    mov     edx, cmdOKStr_end - cmdOKStr
    call    outputStr
    ret
 
cmdsyst:
    ; Indicate the system type
    mov     esi, systStr
    mov     edx, systStr_end - systStr
    call    outputStr
    ret
 
 
cmdDELE:
    call    setupFilePath
 
    mov     ebx, fileinfoblock
    mov     dword [ebx], 8
    and     dword [ebx+4], 0
    push    dword [ebx+12]
    push    dword [ebx+16]
    and     dword [ebx+12], 0
    and     dword [ebx+16], 0
    mov     eax, 70
    mcall
    mov     ebx, fileinfoblock
    pop     dword [ebx+16]
    pop     dword [ebx+12]
 
    test    eax, eax
    jne     cmdDele_err
 
    mov     esi, delokStr
    mov     edx, delokStr_end - delokStr
    call    outputStr
 
    jmp     cmdDele_exit
 
cmdDele_err:
    mov     esi, noFileStr
    mov     edx, noFileStr_end - noFileStr
    call    outputStr
 
 
cmdDele_exit:
    ret
 
 
cmdNLST:
cmdLIST:
    ; Indicate the command was accepted
    mov     esi, startStr
    mov     edx, startStr_end - startStr
    call    outputStr
 
    call    connectData
 
    ; Wait for socket to establish
 
cl001:
    ; wait a bit
    mov     eax,5
    mov     ebx,10                ; Delay for up 100ms
    mcall
 
    ; check connection status
    mov     eax,53
    mov     ebx,6               ; Get socket status
    mov     ecx,[DataSocket]
    mcall
 
    cmp     eax, 4
    jne     cl001
 
    ; send directory listing
    call    sendDir
 
    ; Close port
    call    disconnectData
 
    mov     esi, endStr
    mov     edx, endStr_end - endStr
    call    outputStr
    ret
 
cmdRETR:
    ; Indicate the command was accepted
    mov     esi, startStr
    mov     edx, startStr_end - startStr
    call    outputStr
 
    call    connectData
 
    ; Wait for socket to establish
 
cr001:
    ; wait a bit
    mov     eax,5
    mov     ebx,10                ; Delay for up 100ms
    mcall
 
    ; check connection status
    mov     eax,53
    mov     ebx,6               ; Get socket status
    mov     ecx,[DataSocket]
    mcall
 
    cmp     eax, 4
    jne     cr001
 
    ; send data to remote user
    call    sendFile
 
    ; Close port
    call    disconnectData
 
    mov     esi, endStr
    mov     edx, endStr_end - endStr
    call    outputStr
 
 
    ret
 
 
cmdSTOR:
    ; Indicate the command was accepted
    mov     esi, storStr
    mov     edx, storStr_end - storStr
    call    outputStr
 
    call    connectData
 
    ; Wait for socket to establish
 
cs001:
    ; wait a bit
    mov     eax,5
    mov     ebx,10                ; Delay for up 100ms
    mcall
 
    ; check connection status
    mov     eax,53
    mov     ebx,6               ; Get socket status
    mov     ecx,[DataSocket]
    mcall
 
    cmp     eax, 4
    je      @f
    cmp     eax, 7
    jne     cs001
@@:
 
    ; get data file from remote user
    call    getFile
 
    mov     esi, endStr
    mov     edx, endStr_end - endStr
    call    outputStr
 
    ; Close port
    call    disconnectData
 
    ret
 
 
 
; DATA AREA
 
; This is the list of supported commands, and the function to call
; The list end with a NULL.
CMDList:
                    db  'pwd',0
                    dd  cmdPWD
 
                    db  'PWD',0
                    dd  cmdPWD
 
                    db  'XPWD',0
                    dd  cmdPWD
 
                    db  'xpwd',0
                    dd  cmdPWD
 
                    db  'QUIT',0
                    dd  cmdQUIT
 
                    db  'quit',0
                    dd  cmdQUIT
 
                    db  'PORT',0
                    dd  cmdPORT
 
                    db  'port',0
                    dd  cmdPORT
 
                    db  'LIST',0
                    dd  cmdLIST
 
                    db  'list',0
                    dd  cmdLIST
 
                    db  'NLST',0
                    dd  cmdNLST
 
                    db  'nlst',0
                    dd  cmdNLST
 
                    db  'TYPE',0
                    dd  cmdTYPE
 
                    db  'type',0
                    dd  cmdTYPE
 
                    db  'syst',0
                    dd  cmdsyst
 
                    db  'noop',0
                    dd  cmdnoop
 
                    db  'CWD',0
                    dd  cmdCWD
 
                    db  'cwd',0
                    dd  cmdCWD
 
                    db  'RETR',0
                    dd  cmdRETR
 
                    db  'retr',0
                    dd  cmdRETR
 
                    db  'DELE',0
                    dd  cmdDELE
 
                    db  'dele',0
                    dd  cmdDELE
 
                    db  'stor',0
                    dd  cmdSTOR
 
                    db  'STOR',0
                    dd  cmdSTOR
 
                    db  'ABOR',0
                    dd  cmdABOR
 
                    db  'abor',0
                    dd  cmdABOR
 
                    db  0xff,0xf4,0xff,0xf2,'ABOR',0
                    dd  cmdABOR
 
                    db  0
 
 
cmdPtr              dd  0
CmdSocket           dd  0x0
CmdSocketStatus     dd  0x0
DataSocket          dd  0x0
DataSocketStatus    dd  0x0
DataPort            dd  0x00
DataIP              dd  0x00
pos                 dd  80 * 1
scroll              dd  1
                    dd  24
 
labelt              db  'FTP Server v0.1',0
contt               db  'Connected'
contlen:
discontt            db  'Disconnected'
discontlen:
 
cmdOKStr:           db  '200 Command OK',0x0d,0x0a
cmdOKStr_end:
 
loginStr0:          db  '220-  Menuet FTP Server v0.1',0x0d,0x0a
                    db  '220 Username and Password required',0x0d,0x0a
loginStr0_end:
 
loginStr1:          db  '331 Password now required',0x0d,0x0a
loginStr1_end:
 
loginStr2:          db  '230 You are now logged in.',0x0d,0x0a
loginStr2_end:
 
byeStr:             db  '221 Bye bye!',0x0d,0x0a
byeStr_end:
 
systStr:            db  '215 UNIX system type',0x0d,0x0a
systStr_end:
 
curdir_1:           db  '257 "'
curdir_2:           db  '"',0x0d,0x0a
curdir_end:
 
chdir:              db  '250 CWD command successful',0x0d,0x0a
chdir_end:
 
unsupStr:           db  '500 Unsupported command',0x0d,0x0a
unsupStr_end:
 
noFileStr:          db  '550 No such file',0x0d,0x0a
noFileStr_end:
 
delokStr:           db  '250 DELE command successful',0x0d,0x0a
delokStr_end:
 
startStr:           db  '150 Here it comes...',0x0d,0x0a
startStr_end:
 
storStr:            db  '150 Connecting for STOR',0x0d,0x0a
storStr_end:
 
endStr:             db  '226 Transfer OK, Closing connection',0x0d,0x0a
endStr_end:
 
abortStr:           db  '225 Abort successful',0x0d,0x0a
abortStr_end:
 
 ; This is the buffer used for building up a directory listing line
dirStr:             times 128 db 0
 
; This is template string used in building up a directory listing line
tmplStr:            db 'rw-rw-rw-    1 0        0                ',0
 
months:
        dd     'Jan ','Feb ','Mar ','Apr ','May ','Jun '
        dd     'Jul ','Aug ','Sep ','Oct ','Nov ','Dec '
 
fileinfoblock:
                    dd      0x00
                    dd      0x00
                    dd      0x00
                    dd      0x200         ; bytes to read
                    dd      text + 0x1300 ; data area
filename:           times 256 db 0
 
; The following lines define data for reading a directory block
DirBlocksPerCall = 16
dirinfoblock:
                    dd      1
                    dd      0x00
                    dd      0x00
                    dd      DirBlocksPerCall
                    dd      text + 0x1300   ; data area
; The 'filename' for a directory listing
dirpath:            db      '/sys'
                    times 252 db 0
curdirptr:          dd      dirpath+4
 
fsize:              dd      0
 
state               db  0
buffptr             dd  0
buff:               times 256 db 0  ; Could put this after iend
 
; Ram use at the end of the application:
; text                  : 2400 bytes for screen memory
; text + 0x1300          : file data area
text:
I_END:

Rev 1323	Rev 1325
1	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;	1	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
2	;	2	;
3	; FTPS	3	; FTPS
4	; FTP Server	4	; FTP Server
5	;	5	;
6	; Compile with FASM for Menuet	6	; Compile with FASM for Menuet
7	;	7	;
8		8
9	; note: telnet == 23, ftp cmd == 21, data on 20	9	; note: telnet == 23, ftp cmd == 21, data on 20
10		10
11	use32	11	use32
12		12
13	org 0x0	13	org 0x0
14		14
15	db 'MENUET01' ; 8 byte id	15	db 'MENUET01' ; 8 byte id
16	dd 1 ; header version	16	dd 1 ; header version
17	dd START ; program start	17	dd START ; program start
18	dd I_END ; program image size	18	dd I_END ; program image size
19	dd 0x170000 ; required amount of memory	19	dd 0x170000 ; required amount of memory
20	dd 0x7FFF0 ; esp = 0x7FFF0	20	dd 0x16FFF0 ; esp = 0x16FFF0
21	dd 0, 0 ; no params, no path	21	dd 0, 0 ; no params, no path
22		22
23	include 'macros.inc'	23	include 'macros.inc'
24	; Various states of client connection	24	; Various states of client connection
25	USER_NONE equ 0 ; Awaiting a connection	25	USER_NONE equ 0 ; Awaiting a connection
26	USER_CONNECTED equ 1 ; User just connected, prompt given	26	USER_CONNECTED equ 1 ; User just connected, prompt given
27	USER_USERNAME equ 2 ; User given username	27	USER_USERNAME equ 2 ; User given username
28	USER_LOGGED_IN equ 3 ; User given password	28	USER_LOGGED_IN equ 3 ; User given password
29		29
30		30
31		31
32		32
33		33
34	START: ; start of execution	34	START: ; start of execution
35	; Clear the screen memory	35	; Clear the screen memory
36	mov eax, ' '	36	mov eax, ' '
37	mov edi,text	37	mov edi,text
38	mov ecx,80*30 /4	38	mov ecx,80*30 /4
39	cld	39	cld
40	rep stosd	40	rep stosd
41		41
42	call draw_window	42	call draw_window
43		43
44	; init the receive buffer pointer	44	; init the receive buffer pointer
45	mov [buffptr], buff	45	mov [buffptr], buff
46		46
47	; Init FTP server state machine	47	; Init FTP server state machine
48	mov [state], USER_NONE	48	mov [state], USER_NONE
49		49
50	; Open the listening socket	50	; Open the listening socket
51	call connect	51	call connect
52		52
53	still:	53	still:
54	; check connection status	54	; check connection status
55	mov eax,53	55	mov eax,53
56	mov ebx,6 ; Get socket status	56	mov ebx,6 ; Get socket status
57	mov ecx,[CmdSocket]	57	mov ecx,[CmdSocket]
58	mcall	58	mcall
59		59
60	mov ebx, [CmdSocketStatus]	60	mov ebx, [CmdSocketStatus]
61	mov [CmdSocketStatus], eax	61	mov [CmdSocketStatus], eax
62		62
63	cmp eax, ebx	63	cmp eax, ebx
64	je waitev	64	je waitev
65		65
66	; If the socket closed by remote host, open it again.	66	; If the socket closed by remote host, open it again.
67	cmp eax, 7	67	cmp eax, 7
68	je con	68	je con
69		69
70	; If socket closed by Reset, open it again	70	; If socket closed by Reset, open it again
71	cmp eax, 11	71	cmp eax, 11
72	je con	72	je con
73		73
74	; If a user has just connected, start by outputting welcome msg	74	; If a user has just connected, start by outputting welcome msg
75	cmp eax, 4	75	cmp eax, 4
76	jne noc	76	jne noc
77		77
78	mov esi, loginStr0	78	mov esi, loginStr0
79	mov edx, loginStr0_end - loginStr0	79	mov edx, loginStr0_end - loginStr0
80	call outputStr	80	call outputStr
81		81
82	mov [state], USER_CONNECTED	82	mov [state], USER_CONNECTED
83	jmp noc	83	jmp noc
84		84
85		85
86	con:	86	con:
87	; Need to call disconnect, since a remote close does not fully	87	; Need to call disconnect, since a remote close does not fully
88	; close the socket	88	; close the socket
89	call disconnect	89	call disconnect
90	mov eax,5	90	mov eax,5
91	mov ebx,10 ; Delay for 100ms	91	mov ebx,10 ; Delay for 100ms
92	mcall	92	mcall
93	call connect	93	call connect
94	jmp noc	94	jmp noc
95		95
96	noc:	96	noc:
97	; Display the changed connected status	97	; Display the changed connected status
98	call draw_window	98	call draw_window
99		99
100	waitev:	100	waitev:
101	mov eax,23 ; wait here for event	101	mov eax,23 ; wait here for event
102	mov ebx,1 ; Delay for up to 1s	102	mov ebx,1 ; Delay for up to 1s
103	mcall	103	mcall
104		104
105	cmp eax,1 ; redraw request ?	105	cmp eax,1 ; redraw request ?
106	je red	106	je red
107	cmp eax,2 ; key in buffer ?	107	cmp eax,2 ; key in buffer ?
108	je key	108	je key
109	cmp eax,3 ; button in buffer ?	109	cmp eax,3 ; button in buffer ?
110	je button	110	je button
111		111
112	; any data from the socket?	112	; any data from the socket?
113		113
114	mov eax, 53	114	mov eax, 53
115	mov ebx, 2 ; Get # of bytes in input queue	115	mov ebx, 2 ; Get # of bytes in input queue
116	mov ecx, [CmdSocket]	116	mov ecx, [CmdSocket]
117	mcall	117	mcall
118	test eax, eax	118	test eax, eax
119	jz still	119	jz still
120		120
121	read_input:	121	read_input:
122	mov eax, 53	122	mov eax, 53
123	mov ebx, 3 ; Get a byte from socket in bl	123	mov ebx, 3 ; Get a byte from socket in bl
124	mov ecx, [CmdSocket]	124	mov ecx, [CmdSocket]
125	mcall	125	mcall
126		126
127	call ftpRxCmdData ; process incoming ftp command	127	call ftpRxCmdData ; process incoming ftp command
128		128
129	; Keep processing data until there is no more to process	129	; Keep processing data until there is no more to process
130	mov eax, 53	130	mov eax, 53
131	mov ebx, 2 ; Get # of bytes in input queue	131	mov ebx, 2 ; Get # of bytes in input queue
132	mov ecx, [CmdSocket]	132	mov ecx, [CmdSocket]
133	mcall	133	mcall
134	cmp eax, 0	134	cmp eax, 0
135	jne read_input	135	jne read_input
136		136
137	; Now redraw the text text field.	137	; Now redraw the text text field.
138	; Probably not required, since ftp requires no	138	; Probably not required, since ftp requires no
139	; console i/o.	139	; console i/o.
140	; Leave in for now, for debugging.	140	; Leave in for now, for debugging.
141	; (fall through to "red:")	141	; (fall through to "red:")
142	; call draw_text	142	; call draw_text
143	; jmp still	143	; jmp still
144		144
145	red: ; REDRAW WINDOW	145	red: ; REDRAW WINDOW
146	call draw_window	146	call draw_window
147	jmp still	147	jmp still
148		148
149	key: ; KEY	149	key: ; KEY
150	mov eax,2 ; get but ignore	150	mov eax,2 ; get but ignore
151	mcall	151	mcall
152	jmp still	152	jmp still
153		153
154	button:	154	button:
155	mov eax,17	155	mov eax,17
156	mcall	156	mcall
157	cmp ah,1	157	cmp ah,1
158	jne still	158	jne still
159		159
160	; Exit button pressed, so close socket and quit	160	; Exit button pressed, so close socket and quit
161	mov eax,53	161	mov eax,53
162	mov ebx,8	162	mov ebx,8
163	mov ecx,[CmdSocket]	163	mov ecx,[CmdSocket]
164	mcall	164	mcall
165		165
166	; ... terminate program	166	; ... terminate program
167	or eax,-1	167	or eax,-1
168	mcall	168	mcall
169	jmp still	169	jmp still
170		170
171		171
172		172
173	; *********************************************	173	; *********************************************
174	; ***** WINDOW DEFINITIONS AND DRAW ******	174	; ***** WINDOW DEFINITIONS AND DRAW ******
175	; *********************************************	175	; *********************************************
176	draw_window:	176	draw_window:
177	pusha	177	pusha
178		178
179	mov eax,12	179	mov eax,12
180	mov ebx,1	180	mov ebx,1
181	mcall	181	mcall
182		182
183	xor eax,eax ; DRAW WINDOW	183	xor eax,eax ; DRAW WINDOW
184	mov ebx,100*65536+491 + 8 +15	184	mov ebx,100*65536+491 + 8 +15
185	mov ecx,100*65536+270 + 20 ; 20 for status bar	185	mov ecx,100*65536+270 + 20 ; 20 for status bar
186	mov edx,0x14000000	186	mov edx,0x14000000
187	mov edi,labelt	187	mov edi,labelt
188	mcall	188	mcall
189		189
190	; draw status bar	190	; draw status bar
191	mov eax, 13	191	mov eax, 13
192	mov ebx, 4*65536+484 + 8 +15	192	mov ebx, 4*65536+484 + 8 +15
193	mov ecx, 270*65536 + 3	193	mov ecx, 270*65536 + 3
194	mov edx, 0x00557799	194	mov edx, 0x00557799
195	mcall	195	mcall
196		196
197		197
198	mov esi,contlen-contt ; display connected status	198	mov esi,contlen-contt ; display connected status
199	mov edx, contt	199	mov edx, contt
200	cmp [CmdSocketStatus], 4 ; 4 is connected	200	cmp [CmdSocketStatus], 4 ; 4 is connected
201	je pcon	201	je pcon
202	mov esi,discontlen-discontt	202	mov esi,discontlen-discontt
203	mov edx, discontt	203	mov edx, discontt
204	pcon:	204	pcon:
205		205
206	mov eax,4 ; status text	206	mov eax,4 ; status text
207	mov ebx,380*65536+276	207	mov ebx,380*65536+276
208	mov ecx,0x00ffffff	208	mov ecx,0x00ffffff
209	mcall	209	mcall
210		210
211	; Draw the text on the screen, clearing it first	211	; Draw the text on the screen, clearing it first
212	; This can go when we loose debuggin info.	212	; This can go when we loose debuggin info.
213	xor eax,eax	213	xor eax,eax
214	mov edi,text+80*30	214	mov edi,text+80*30
215	mov ecx,80*30 /4	215	mov ecx,80*30 /4
216	cld	216	cld
217	rep stosd	217	rep stosd
218		218
219	call draw_text	219	call draw_text
220		220
221	mov eax,12	221	mov eax,12
222	mov ebx,2	222	mov ebx,2
223	mcall	223	mcall
224		224
225	popa	225	popa
226		226
227	ret	227	ret
228		228
229		229
230	;***************************************************************************	230	;***************************************************************************
231	; Function	231	; Function
232	; draw_text	232	; draw_text
233	;	233	;
234	; Description	234	; Description
235	; Updates the text on the screen. This is part of the debugging code	235	; Updates the text on the screen. This is part of the debugging code
236	;	236	;
237	; Inputs	237	; Inputs
238	; Character to add in bl	238	; Character to add in bl
239	;	239	;
240	;***************************************************************************	240	;***************************************************************************
241	draw_text:	241	draw_text:
242		242
243	pusha	243	pusha
244		244
245	mov esi,text	245	mov esi,text
246	mov eax,0	246	mov eax,0
247	mov ebx,0	247	mov ebx,0
248	newletter:	248	newletter:
249	mov cl,[esi]	249	mov cl,[esi]
250	cmp cl,[esi+30*80]	250	cmp cl,[esi+30*80]
251	jz noletter	251	jz noletter
252	yesletter:	252	yesletter:
253	mov [esi+30*80],cl	253	mov [esi+30*80],cl
254		254
255	; erase character	255	; erase character
256		256
257	pusha	257	pusha
258	mov edx, 0 ; bg colour	258	mov edx, 0 ; bg colour
259	mov ecx, ebx	259	mov ecx, ebx
260	add ecx, 26	260	add ecx, 26
261	shl ecx, 16	261	shl ecx, 16
262	mov cx, 9	262	mov cx, 9
263	mov ebx, eax	263	mov ebx, eax
264	add ebx, 6	264	add ebx, 6
265	shl ebx, 16	265	shl ebx, 16
266	mov bx, 6	266	mov bx, 6
267	mov eax, 13	267	mov eax, 13
268	mcall	268	mcall
269	popa	269	popa
270		270
271	; draw character	271	; draw character
272		272
273	pusha	273	pusha
274	mov ecx, 0x00ffffff	274	mov ecx, 0x00ffffff
275	push bx	275	push bx
276	mov ebx,eax	276	mov ebx,eax
277	add ebx,6	277	add ebx,6
278	shl ebx,16	278	shl ebx,16
279	pop bx	279	pop bx
280	add bx,26	280	add bx,26
281	mov eax,4	281	mov eax,4
282	mov edx,esi	282	mov edx,esi
283	mov esi,1	283	mov esi,1
284	mcall	284	mcall
285	popa	285	popa
286		286
287	noletter:	287	noletter:
288		288
289	add esi,1	289	add esi,1
290	add eax,6	290	add eax,6
291	cmp eax,80*6	291	cmp eax,80*6
292	jb newletter	292	jb newletter
293	mov eax,0	293	mov eax,0
294	add ebx,10	294	add ebx,10
295	cmp ebx,24*10	295	cmp ebx,24*10
296	jb newletter	296	jb newletter
297		297
298	popa	298	popa
299	ret	299	ret
300		300
301		301
302		302
303	;***************************************************************************	303	;***************************************************************************
304	; Function	304	; Function
305	; ftpRxCmdData	305	; ftpRxCmdData
306	;	306	;
307	; Description	307	; Description
308	; Prcoesses incoming command data, calling a handler for each command.	308	; Prcoesses incoming command data, calling a handler for each command.
309	; Commands are built up in buff before being processed.	309	; Commands are built up in buff before being processed.
310	;	310	;
311	; Inputs	311	; Inputs
312	; Character to add in bl	312	; Character to add in bl
313	;	313	;
314	;***************************************************************************	314	;***************************************************************************
315	ftpRxCmdData:	315	ftpRxCmdData:
316	; Quit if we are not connected	316	; Quit if we are not connected
317	;( This case shouldn't be necessary, but be safe )	317	;( This case shouldn't be necessary, but be safe )
318	mov al, [state]	318	mov al, [state]
319	cmp al, USER_NONE	319	cmp al, USER_NONE
320	je frcd_exit	320	je frcd_exit
321		321
322	; Store the incoming character	322	; Store the incoming character
323	mov esi, [buffptr]	323	mov esi, [buffptr]
324	mov [esi], bl	324	mov [esi], bl
325	inc esi	325	inc esi
326	mov [buffptr], esi	326	mov [buffptr], esi
327		327
328	; For debugging, show the data coming in	328	; For debugging, show the data coming in
329	pusha	329	pusha
330	call printChar	330	call printChar
331	popa	331	popa
332		332
333	; Do we have an end of line? (LF)	333	; Do we have an end of line? (LF)
334	; if not, just exit	334	; if not, just exit
335	cmp bl, 0x0a	335	cmp bl, 0x0a
336	jne frcd_exit	336	jne frcd_exit
337		337
338	; OK we have a complete command.	338	; OK we have a complete command.
339	; Process, and send response	339	; Process, and send response
340		340
341	; There are a number of states involved in ftp,	341	; There are a number of states involved in ftp,
342	; to do with logging in.	342	; to do with logging in.
343		343
344	mov al, [state]	344	mov al, [state]
345	cmp al, USER_CONNECTED	345	cmp al, USER_CONNECTED
346	jne fs001	346	jne fs001
347		347
348	; This should be the username	348	; This should be the username
349		349
350	; TODO validate username	350	; TODO validate username
351		351
352	; OK, username accepted - ask for password	352	; OK, username accepted - ask for password
353	mov esi, loginStr1	353	mov esi, loginStr1
354	mov edx, loginStr1_end - loginStr1	354	mov edx, loginStr1_end - loginStr1
355	call outputStr	355	call outputStr
356		356
357	mov [state], USER_USERNAME	357	mov [state], USER_USERNAME
358		358
359	; init the receive buffer pointer	359	; init the receive buffer pointer
360	mov [buffptr], buff	360	mov [buffptr], buff
361		361
362	jmp frcd_exit	362	jmp frcd_exit
363		363
364	fs001:	364	fs001:
365	cmp al, USER_USERNAME	365	cmp al, USER_USERNAME
366	jne fs002	366	jne fs002
367		367
368	; This should be the password	368	; This should be the password
369		369
370	; TODO validate password	370	; TODO validate password
371		371
372	; OK, password accepted - show they are logged in	372	; OK, password accepted - show they are logged in
373	mov esi, loginStr2	373	mov esi, loginStr2
374	mov edx, loginStr2_end - loginStr2	374	mov edx, loginStr2_end - loginStr2
375	call outputStr	375	call outputStr
376		376
377	mov [state], USER_LOGGED_IN	377	mov [state], USER_LOGGED_IN
378		378
379	; init the receive buffer pointer	379	; init the receive buffer pointer
380	mov [buffptr], buff	380	mov [buffptr], buff
381		381
382	jmp frcd_exit	382	jmp frcd_exit
383		383
384	fs002:	384	fs002:
385	cmp al, USER_LOGGED_IN	385	cmp al, USER_LOGGED_IN
386	jne fs003	386	jne fs003
387		387
388	; This should be a cmd	388	; This should be a cmd
389	call findCmd	389	call findCmd
390	mov eax, [cmdPtr]	390	mov eax, [cmdPtr]
391	cmp eax, 0	391	cmp eax, 0
392		392
393	je fs002b	393	je fs002b
394		394
395	call [cmdPtr]	395	call [cmdPtr]
396		396
397	fs002a:	397	fs002a:
398	; init the receive buffer pointer	398	; init the receive buffer pointer
399	mov [buffptr], buff	399	mov [buffptr], buff
400		400
401	jmp frcd_exit	401	jmp frcd_exit
402		402
403	fs002b:	403	fs002b:
404	; an unsupported command was entered.	404	; an unsupported command was entered.
405	; Tell user that the command is not supported	405	; Tell user that the command is not supported
406		406
407	mov esi, unsupStr	407	mov esi, unsupStr
408	mov edx, unsupStr_end - unsupStr	408	mov edx, unsupStr_end - unsupStr
409	call outputStr	409	call outputStr
410		410
411	jmp fs002a	411	jmp fs002a
412		412
413	fs003:	413	fs003:
414	frcd_exit:	414	frcd_exit:
415	ret	415	ret
416		416
417		417
418		418
419	;***************************************************************************	419	;***************************************************************************
420	; Function	420	; Function
421	; outputStr	421	; outputStr
422	;	422	;
423	; Description	423	; Description
424	; Sends a string over the 'Command' socket	424	; Sends a string over the 'Command' socket
425	;	425	;
426	; Inputs	426	; Inputs
427	; String in esi	427	; String in esi
428	; Length in edx	428	; Length in edx
429	;	429	;
430	;***************************************************************************	430	;***************************************************************************
431	outputStr:	431	outputStr:
432	push esi	432	push esi
433	push edx	433	push edx
434	mov eax,53	434	mov eax,53
435	mov ebx,7	435	mov ebx,7
436	mov ecx,[CmdSocket]	436	mov ecx,[CmdSocket]
437	mcall	437	mcall
438	pop edx	438	pop edx
439	pop esi	439	pop esi
440		440
441	cmp eax, 0	441	cmp eax, 0
442	je os_exit	442	je os_exit
443		443
444	; The TCP/IP transmit queue is full; Wait a bit, then retry	444	; The TCP/IP transmit queue is full; Wait a bit, then retry
445	pusha	445	pusha
446	mov eax,5	446	mov eax,5
447	mov ebx,1 ; Delay for up 10ms	447	mov ebx,1 ; Delay for up 10ms
448	mcall	448	mcall
449	popa	449	popa
450	jmp outputStr	450	jmp outputStr
451	os_exit:	451	os_exit:
452	ret	452	ret
453		453
454		454
455		455
456	;***************************************************************************	456	;***************************************************************************
457	; Function	457	; Function
458	; outputDataStr	458	; outputDataStr
459	;	459	;
460	; Description	460	; Description
461	; Sends a string over the 'Data' socket	461	; Sends a string over the 'Data' socket
462	;	462	;
463	; Inputs	463	; Inputs
464	; String in esi	464	; String in esi
465	; Length in edx	465	; Length in edx
466	;	466	;
467	;***************************************************************************	467	;***************************************************************************
468	outputDataStr:	468	outputDataStr:
469	push esi	469	push esi
470	push edx	470	push edx
471	mov eax,53	471	mov eax,53
472	mov ebx,7	472	mov ebx,7
473	mov ecx,[DataSocket]	473	mov ecx,[DataSocket]
474	mcall	474	mcall
475	pop edx	475	pop edx
476	pop esi	476	pop esi
477		477
478	cmp eax, 0	478	cmp eax, 0
479	je ods_exit	479	je ods_exit
480		480
481	; The TCP/IP transmit queue is full; Wait a bit, then retry	481	; The TCP/IP transmit queue is full; Wait a bit, then retry
482	pusha	482	pusha
483	mov eax,5	483	mov eax,5
484	mov ebx,1 ; Delay for up 10ms	484	mov ebx,1 ; Delay for up 10ms
485	mcall	485	mcall
486	popa	486	popa
487	jmp outputDataStr	487	jmp outputDataStr
488	ods_exit:	488	ods_exit:
489	ret	489	ret
490		490
491		491
492		492
493	;***************************************************************************	493	;***************************************************************************
494	; Function	494	; Function
495	; printChar	495	; printChar
496	;	496	;
497	; Description	497	; Description
498	; Writes a character to the screen; Used to display the data coming	498	; Writes a character to the screen; Used to display the data coming
499	; in from the user. Really only useful for debugging.	499	; in from the user. Really only useful for debugging.
500	;	500	;

Subversion Repositories Kolibri OS

(root)/programs/network/ftps/trunk/FTPS.ASM – Rev 1323 → 1325