| 4,6 → 4,11 |
|---|
| align 4 |
| parse_cmd: ; esi must point to command |
| |
| cmp byte [esi+3], 0x20 |
| jae @f |
| mov byte [esi+3], 0 |
| @@: |
| |
| mov eax, [esi] |
| and eax, not 0x20202020 ; convert to upper case |
| ; (also convert spaces to null) |
| 10,8 → 15,7 |
|---|
| mov edi, commands ; list of commands to scan |
| .scanloop: |
| cmp eax, [edi] |
| jb .error |
| jl .try_next |
| jne .try_next |
| |
| jmp dword [edi+4] |
| |
| 21,11 → 25,13 |
|---|
| jne .scanloop |
| |
| .error: |
| mcall send, [socketnum2], str500, str500.length, 0 |
| |
| ret |
| |
| |
| align 4 |
| commands: ; all commands must be in uppercase, and in alphabetical order. |
| commands: ; all commands must be in uppercase |
| |
| db 'ABOR' |
| dd cmdABOR |
| 45,6 → 51,9 |
|---|
| db 'NOOP' |
| dd cmdNOOP |
| |
| db 'PASS' |
| dd cmdPASS |
| |
| db 'PWD', 0 |
| dd cmdPWD |
| |
| 106,6 → 115,14 |
|---|
| ret |
| |
| align 4 |
| cmdPASS: |
| |
| mcall send, [socketnum2], str230, str230.length, 0 |
| mov [state], STATE_ACTIVE |
| |
| ret |
| |
| align 4 |
| cmdPWD: |
| |
| ret |
| 118,6 → 135,9 |
|---|
| align 4 |
| cmdQUIT: |
| |
| mcall send, [socketnum2], str221, str221.length, 0 |
| mcall close, [socketnum2] |
| |
| ret |
| |
| align 4 |
| 133,6 → 153,8 |
|---|
| align 4 |
| cmdSYST: |
| |
| mcall send, [socketnum2], str215, str215.length, 0 |
| |
| ret |
| |
| align 4 |
| 143,6 → 165,9 |
|---|
| align 4 |
| cmdUSER: |
| |
| mcall send, [socketnum2], str331, str331.length, 0 |
| mov [state], STATE_LOGIN |
| |
| ret |
| |
| |
| 150,14 → 175,19 |
|---|
| str150 db '150 Here it comes...', 13, 10 |
| str200 db '200 Command OK.', 13, 10 |
| str215 db '215 UNIX type: L8', 13, 10 |
| .length = $ - str215 |
| str220 db '220 KolibriOS FTP Daemon 1.0', 13, 10 |
| .length = $ - str220 |
| str221 db '221 Bye!', 13, 10 |
| .length = $ - str221 |
| str225 db '225 Abort successful', 13, 10 |
| str226 db '226 Transfer OK, Closing connection', 13, 10 |
| str230 db '230 You are now logged in.', 13, 10 |
| .length = $ - str230 |
| str250 db '250 command successful', 13, 10 |
| str257 db '257 ""', 13, 10 |
| str331 db '331 Please specify the password.', 13, 10 |
| .length = $ - str331 |
| str500 db '500 Unsupported command', 13, 10 |
| .length = $ - str500 |
| str550 db '550 No such file', 13, 10 |