forked from KolibriOS/kolibrios
74 lines
1.4 KiB
PHP
74 lines
1.4 KiB
PHP
cmd_list:
|
|
|
|
call open_dataconnection
|
|
|
|
mov dword[s], "LIST"
|
|
mov byte[s+4], 0x0a
|
|
mcall send, [socketnum], s, 5, 0
|
|
|
|
jmp wait_for_servercommand
|
|
|
|
|
|
cmd_help:
|
|
|
|
push str_help
|
|
call [con_write_asciiz]
|
|
|
|
jmp wait_for_usercommand
|
|
|
|
cmd_pwd:
|
|
|
|
mov dword[s], "PWD" + 10 shl 24
|
|
mcall send, [socketnum], s, 4, 0
|
|
|
|
jmp wait_for_servercommand
|
|
|
|
cmd_cwd:
|
|
|
|
mov dword[s], "CWD "
|
|
|
|
mov ecx, 256
|
|
xor al, al
|
|
mov edi, s
|
|
repne scasb
|
|
lea esi, [edi - s - 1]
|
|
|
|
mcall send, [socketnum], s, , 0
|
|
|
|
jmp wait_for_servercommand
|
|
|
|
|
|
cmd_retr:
|
|
|
|
call open_dataconnection
|
|
|
|
mov dword[s], "RETR"
|
|
mov byte[s+4], " "
|
|
|
|
mov ecx, 256
|
|
xor al, al
|
|
mov edi, s
|
|
repne scasb
|
|
lea esi, [edi - s - 1]
|
|
|
|
mcall send, [socketnum], s, , 0
|
|
|
|
jmp wait_for_servercommand
|
|
|
|
|
|
cmd_stor:
|
|
|
|
call open_dataconnection
|
|
|
|
mov dword[s], "STOR"
|
|
mov byte[s+4], " "
|
|
|
|
mov ecx, 256
|
|
xor al, al
|
|
mov edi, s
|
|
repne scasb
|
|
lea esi, [edi - s - 1]
|
|
|
|
mcall send, [socketnum], s, , 0
|
|
|
|
jmp wait_for_servercommand |