Subversion Repositories Kolibri OS

Rev

Rev 3793 | Rev 3800 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | Download | RSS feed

  1. cmd_list:
  2.  
  3.         call    open_dataconnection
  4.  
  5.         mov     dword[s], "LIST"
  6.         mov     byte[s+4], 0x0a
  7.         mcall   send, [socketnum], s, 5, 0
  8.  
  9.         jmp     wait_for_servercommand
  10.  
  11.  
  12. cmd_help:
  13.  
  14.         push    str_help
  15.         call    [con_write_asciiz]
  16.  
  17.         jmp     wait_for_usercommand
  18.  
  19. cmd_pwd:
  20.  
  21.         mov     dword[s], "PWD" + 10 shl 24
  22.         mcall   send, [socketnum], s, 4, 0
  23.  
  24.         jmp     wait_for_servercommand
  25.  
  26. cmd_cwd:
  27.  
  28.         mov     dword[s], "CWD "
  29.  
  30.         mov     ecx, 256
  31.         xor     al, al
  32.         mov     edi, s
  33.         repne scasb
  34.         lea     esi, [edi - s - 1]
  35.  
  36.         mcall   send, [socketnum], s, , 0
  37.  
  38.         jmp     wait_for_servercommand
  39.  
  40.  
  41. cmd_retr:
  42.  
  43.         call    open_dataconnection
  44.  
  45.         mov     dword[s], "RETR"
  46.         mov     byte[s+4], " "
  47.  
  48.         mov     ecx, 256
  49.         xor     al, al
  50.         mov     edi, s
  51.         repne scasb
  52.         lea     esi, [edi - s - 1]
  53.  
  54.         mcall   send, [socketnum], s, , 0
  55.  
  56.         jmp     wait_for_servercommand
  57.  
  58.  
  59. cmd_stor:
  60.  
  61.         call    open_dataconnection
  62.  
  63.         mov     dword[s], "STOR"
  64.         mov     byte[s+4], " "
  65.  
  66.         mov     ecx, 256
  67.         xor     al, al
  68.         mov     edi, s
  69.         repne scasb
  70.         lea     esi, [edi - s - 1]
  71.  
  72.         mcall   send, [socketnum], s, , 0
  73.  
  74.         jmp     wait_for_servercommand