Subversion Repositories Kolibri OS

Rev

Rev 3793 | Rev 3800 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 3793 Rev 3794
Line 192... Line 192...
192
; write prompt
192
; write prompt
193
        invoke  con_write_asciiz, str2
193
        invoke  con_write_asciiz, str2
194
; read string
194
; read string
195
        mov     esi, s
195
        mov     esi, s
196
        invoke  con_gets, esi, 256
196
        invoke  con_gets, esi, 256
-
 
197
 
-
 
198
        invoke  con_write_asciiz, str4          ; newline
197
        invoke  con_set_flags, 0x07
199
        invoke  con_set_flags, 0x07
Line 198... Line 200...
198
 
200
 
199
        cmp     dword[s], "list"
201
        cmp     dword[s], "list"
Line 206... Line 208...
206
        je      cmd_cwd
208
        je      cmd_cwd
Line 207... Line 209...
207
 
209
 
208
        cmp     dword[s], "retr"
210
        cmp     dword[s], "retr"
Line -... Line 211...
-
 
211
        je      cmd_retr
-
 
212
 
-
 
213
        cmp     dword[s], "pwd" + 10 shl 24
209
        je      cmd_retr
214
        je      cmd_pwd
210
 
215
 
Line 211... Line 216...
211
;        cmp     dword[s], "stor"
216
;        cmp     dword[s], "stor"
212
;        je      cmd_stor
217
;        je      cmd_stor
Line 282... Line 287...
282
 
287
 
283
 
288
 
284
 
289
 
285
; data
290
; data
286
title   db 'FTP client',0
291
title   db 'FTP client',0
287
str1    db 'FTP client for KolibriOS v0.03',10,10,'Please enter ftp server address.',10,0
292
str1    db 'FTP client for KolibriOS v0.04',10,10,'Please enter ftp server address.',10,0
288
str2    db '> ',0
293
str2    db '> ',0
289
str3    db 'Resolving ',0
294
str3    db 'Resolving ',0
Line 296... Line 301...
296
str11   db 'Connecting...',10,0
301
str11   db 'Connecting...',10,0
297
str12   db 'Waiting for welcome message.',10,0
302
str12   db 'Waiting for welcome message.',10,0
298
str_user db "username: ",0
303
str_user db "username: ",0
299
str_pass db "password: ",0
304
str_pass db "password: ",0
300
str_unknown db "unknown command",10,0
305
str_unknown db "unknown command",10,0
301
str_help db "available commands:",10,10
306
str_help db "available commands:",10
302
         db "help       list",10,0
307
         db "help    list    cwd     retr    pwd",10,10,0
Line 303... Line 308...
303
 
308
 
Line 304... Line 309...
304
str_open db "opening data socket",10,0
309
str_open db "opening data socket",10,0
305
 
310
 
Line 341... Line 346...
341
        con_set_flags,  'con_set_flags'
346
        con_set_flags,  'con_set_flags'
Line 342... Line 347...
342
 
347
 
Line -... Line 348...
-
 
348
 
-
 
349
i_end:
343
 
350
 
-
 
351
align 4
-
 
352
status          db ?
344
i_end:
353
active_passive  db ?
345
 
354
 
346
active_passive  db ?
-
 
347
socketnum       dd ?
-
 
348
datasocket      dd ?
-
 
349
buffer_ptr      rb BUFFERSIZE
355
align 4
350
buffer_ptr2     rb BUFFERSIZE
356
socketnum       dd ?
Line -... Line 357...
-
 
357
datasocket      dd ?
-
 
358
offset          dd ?
-
 
359
size            dd ?
351
status          db ?
360
 
Line 352... Line 361...
352
offset          dd ?
361
buffer_ptr      rb BUFFERSIZE+1