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 ? |