Rev 1882 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
| Rev 1882 | Rev 1883 | ||
|---|---|---|---|
| Line 137... | Line 137... | ||
| 137 | jp z, telnet_showusage ;if no hostname show usage |
137 | jp z, telnet_showusage ;if no hostname show usage |
| 138 | 138 | ||
| 139 | ld hl,23*256 ;BIG ENDIAN 23 |
139 | ld hl,23*256 ;BIG ENDIAN 23 |
| 140 | ld (curport),hl |
140 | ld (curport),hl |
| 141 | 141 | ||
| - | 142 | display "hostname ", $ |
|
| 142 | ld hl,arg_hostname |
143 | ld hl,arg_hostname |
| 143 | openstream_http_findslash0 |
144 | openstream_http_findslash0 |
| 144 | ld a,(hl) |
145 | ld a,(hl) |
| 145 | cp ':' |
146 | cp ':' |
| 146 | jr z,openstream_http_setport |
147 | jr z,openstream_http_setport |
| Line 212... | Line 213... | ||
| 212 | jp z,telnet_resolveerror |
213 | jp z,telnet_resolveerror |
| 213 | ld de,ip; copy ip |
214 | ld de,ip; copy ip |
| 214 | ld bc,4 |
215 | ld bc,4 |
| 215 | ldir |
216 | ldir |
| 216 | 217 | ||
| - | 218 | telnet_noresolve |
|
| 217 | curport=$+1 |
219 | curport=$+1 |
| 218 | ld hl,0 |
220 | ld hl,0 |
| 219 | ld (conparam_port),hl |
221 | ld (conparam_port),hl |
| 220 | 222 | ||
| 221 | telnet_noresolve |
- | |
| 222 | 223 | ||
| 223 | ld hl,ip |
224 | ld hl,ip |
| 224 | ld de,txtip ; convert to text |
225 | ld de,txtip ; convert to text |
| 225 | call telnet_iptostr_hltode |
226 | call telnet_iptostr_hltode |
| 226 | 227 | ||
| Line 243... | Line 244... | ||
| 243 | ;ld (hl),b |
244 | ;ld (hl),b |
| 244 | ;inc hl |
245 | ;inc hl |
| 245 | ;ld (hl),c ; port 23 |
246 | ;ld (hl),c ; port 23 |
| 246 | ;ex de,hl |
247 | ;ex de,hl |
| 247 | ;inc de |
248 | ;inc de |
| - | 249 | display "connect ", $ |
|
| 248 | ld de,conparam_ip |
250 | ld de,conparam_ip |
| 249 | ld bc,4 |
251 | ld bc,4 |
| 250 | ldir ; copy ip address |
252 | ldir ; copy ip address |
| 251 | ld de,0x0201 ; AF_INET,SOCK_TCP |
253 | ld de,0x0201 ; AF_INET,SOCK_TCP |
| 252 | OS_NETSOCKET |
254 | OS_NETSOCKET |
| Line 277... | Line 279... | ||
| 277 | call print_hl |
279 | call print_hl |
| 278 | 280 | ||
| 279 | ld de,ansi_pal |
281 | ld de,ansi_pal |
| 280 | OS_SETPAL |
282 | OS_SETPAL |
| 281 | display "main loop ", $ |
283 | display "main loop ", $ |
| 282 | display "telnet_getbyte ", telnet_getbyte |
- | |
| 283 | telnet_loop |
284 | telnet_loop |
| 284 | call telnet_set_cursor |
285 | call telnet_set_cursor |
| 285 | YIELDGETKEY |
286 | YIELDGETKEY |
| 286 | push af |
287 | push af |
| 287 | call telnet_res_cursor |
288 | call telnet_res_cursor |