Subversion Repositories Kolibri OS

Rev

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

Rev 3704 Rev 3968
Line 255... Line 255...
255
 
255
 
256
thread:
256
thread:
257
        mcall   40, 0
257
        mcall   40, 0
258
  .loop:
258
  .loop:
259
        call    [con_getch2]
259
        call    [con_getch2]
-
 
260
        mov     [send_data], ax
-
 
261
        xor     esi, esi
-
 
262
        inc     esi
-
 
263
        test    al, al
-
 
264
        jnz     @f
-
 
265
        inc     esi
260
        mov     byte [send_data], al
266
  @@:
Line 261... Line 267...
261
        mcall   send, [socketnum], send_data, 1
267
        mcall   send, [socketnum], send_data
262
 
268
 
263
        call    [con_get_flags]
269
        call    [con_get_flags]
264
        test    eax, 0x200                      ; con window closed?
270
        test    eax, 0x200                      ; con window closed?
Line 265... Line 271...
265
        jz      .loop
271
        jz      .loop
266
        mcall   -1
272
        mcall   -1
267
 
273
 
268
; data
274
; data
-
 
275
title   db      'Telnet',0
-
 
276
str1    db      'Telnet for KolibriOS',10,10,\
-
 
277
                'Please enter URL of telnet server (host:port)',10,10,\
-
 
278
                'fun stuff:',10,\
269
title   db      'Telnet',0
279
                'telehack.com            - arpanet simulator',10,\
270
str1    db      'Telnet for KolibriOS',10,10,\
280
                'towel.blinkenlights.nl  - ASCII Star Wars',10,\
271
                'Please enter URL of telnet server (for example: towel.blinkenlights.nl:23)',10,10,0
281
                'miku.acm.uiuc.edu       - Nyan cat',10,10,0
272
str2    db      '> ',0
282
str2    db      '> ',0
273
str3    db      'Connecting to ',0
283
str3    db      'Connecting to ',0
Line 314... Line 324...
314
 
324
 
Line 315... Line 325...
315
i_end:
325
i_end:
316
 
326
 
317
socketnum       dd ?
327
socketnum       dd ?
Line 318... Line 328...
318
buffer_ptr      rb BUFFERSIZE+1
328
buffer_ptr      rb BUFFERSIZE+1
Line 319... Line 329...
319
send_data       rb 1
329
send_data       dw ?