WebSVN – Kolibri OS – Diff – /programs/network/telnet/trunk/telnet.asm


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
;    TERMINAL
;
;    Compile with FASM for Menuet
;
 
use32
 org    0x0
 db     'MENUET01'    ; header
 dd     0x01          ; header version
 dd     START         ; entry point
 dd     I_END         ; image size
 dd     I_END+0x10000 ; required memory
 dd     I_END+0x10000 ; esp
 dd     0x0 , 0x0     ; I_Param , I_Path
 
 
include 'lang.inc'
include 'macros.inc'
 
START:                          ; start of execution
 
    ; Clear the screen memory
    mov     eax, '    '
    mov     edi,text
    mov     ecx,80*30 /4
    cld
    rep     stosd
 
 
    call draw_window
 
 
still:
    ; check connection status
    mov  eax,53
    mov  ebx,6
    mov  ecx,[socket]
    mcall
 
    mov     ebx, [socket_status]
    mov     [socket_status], eax
 
    cmp     eax, ebx
    je      waitev
 
red:
    call    draw_window
 
waitev:
    mov  eax,23                 ; wait here for event
    mov  ebx,20
    mcall
 
    cmp  eax,1                  ; redraw request ?
    je   red
    cmp  eax,2                  ; key in buffer ?
    je   key
    cmp  eax,3                  ; button in buffer ?
    je   button
 
    ; any data from the socket?
 
    mov     eax, 53
    mov     ebx, 2
    mov     ecx, [socket]
    mcall
    cmp     eax, 0
    jne      read_input
 
    jmp  still
 
 
read_input:
 
    push ecx
    mov     eax, 53
    mov     ebx, 3
    mov     ecx, [socket]
    mcall
    pop  ecx
 
    call    handle_data
 
    push    ecx
    mov     eax, 53
    mov     ebx, 2
    mov     ecx, [socket]
    mcall
    pop     ecx
    cmp     eax, 0
 
 
    jne   read_input
    call draw_text
    jmp  still
 
 
 
handle_data:
    ; Telnet servers will want to negotiate options about our terminal window
    ; just reject them all.
    ; Telnet options start with the byte 0xff and are 3 bytes long.
 
    mov     al, [telnetstate]
    cmp     al, 0
    je      state0
    cmp     al, 1
    je      state1
    cmp     al, 2
    je      state2
    jmp     hd001
 
state0:
    cmp     bl, 255
    jne     hd001
    mov     al, 1
    mov     [telnetstate], al
    ret
 
state1:
    mov     al, 2
    mov     [telnetstate], al
    ret
 
state2:
    mov     al, 0
    mov     [telnetstate], al
    mov     [telnetrep+2], bl
 
    mov     edx, 3
    mov     eax,53
    mov     ebx,7
    mov     ecx,[socket]
    mov     esi, telnetrep
    mcall
    ret
 
hd001:
    cmp  bl,13                          ; BEGINNING OF LINE
    jne  nobol
    mov  ecx,[pos]
    add  ecx,1
  boll1:
    sub  ecx,1
    mov  eax,ecx
    xor  edx,edx
    mov  ebx,80
    div  ebx
    cmp  edx,0
    jne  boll1
    mov  [pos],ecx
    jmp  newdata
  nobol:
 
    cmp  bl,10                            ; LINE DOWN
    jne  nolf
   addx1:
    add  [pos],dword 1
    mov  eax,[pos]
    xor  edx,edx
    mov  ecx,80
    div  ecx
    cmp  edx,0
    jnz  addx1
    mov  eax,[pos]
    jmp  cm1
  nolf:
 
    cmp  bl,8                            ; BACKSPACE
    jne  nobasp
    mov  eax,[pos]
    dec  eax
    mov  [pos],eax
    mov  [eax+text],byte 32
    mov  [eax+text+60*80],byte 0
    jmp  newdata
   nobasp:
 
    cmp  bl,15                           ; CHARACTER
    jbe  newdata
    mov  eax,[pos]
    mov  [eax+text],bl
    mov  eax,[pos]
    add  eax,1
  cm1:
    mov  ebx,[scroll+4]
    imul ebx,80
    cmp  eax,ebx
    jb   noeaxz
    mov  esi,text+80
    mov  edi,text
    mov  ecx,ebx
    cld
    rep  movsb
    mov  eax,ebx
    sub  eax,80
  noeaxz:
    mov  [pos],eax
  newdata:
    ret
 
  key:                          ; KEY
    mov  eax,2                  ; send to modem
    mcall
 
    mov     ebx, [socket_status]
    cmp     ebx, 4              ; connection open?
    jne     still               ; no, so ignore key
 
    shr  eax,8
    cmp  eax,178                ; ARROW KEYS
    jne  noaup
    mov  al,'A'
    call arrow
    jmp  still
  noaup:
    cmp  eax,177
    jne  noadown
    mov  al,'B'
    call arrow
    jmp  still
  noadown:
    cmp  eax,179
    jne  noaright
    mov  al,'C'
    call arrow
    jmp  still
  noaright:
    cmp  eax,176
    jne  noaleft
    mov  al,'D'
    call arrow
    jmp  still
  noaleft:
  modem_out:
 
    call    to_modem
 
    jmp  still
 
  button:                       ; BUTTON
    mov  eax,17
    mcall
    cmp  ah,1                   ; CLOSE PROGRAM
    jne  noclose
 
    mov  eax,53
    mov  ebx,8
    mov  ecx,[socket]
    mcall
 
     or   eax,-1
     mcall
  noclose:
    cmp     ah, 2               ; Set IP
    jne     notip
 
    mov  [string_x], dword 78
    mov  [string_y], dword 276
    mov  [string_length], dword 15
    call read_string
    mov   esi,string-1
    mov   edi,ip_address
    xor   eax,eax
   ip1:
    inc   esi
    cmp   [esi],byte '0'
    jb    ip2
    cmp   [esi],byte '9'
    jg    ip2
    imul  eax,10
    movzx ebx,byte [esi]
    sub   ebx,48
    add   eax,ebx
    jmp   ip1
   ip2:
    mov   [edi],al
    xor   eax,eax
    inc   edi
    cmp   edi,ip_address+3
    jbe   ip1
    call draw_window
 
 
    jmp     still
 
notip:
    cmp     ah, 3               ; set port
    jne     notport
 
    mov  [string_x], dword 215
    mov  [string_y], dword 276
    mov  [string_length], dword 4
    call read_string
    mov   esi,string-1
    mov   edi,port
    xor   eax,eax
   ip11:
    inc   esi
    cmp   [esi],byte '0'
    jb    ip21
    cmp   [esi],byte '9'
    jg    ip21
    imul  eax,10
    movzx ebx,byte [esi]
    sub   ebx,48
    add   eax,ebx
    jmp   ip11
   ip21:
    mov   [edi],al
    inc   edi
    mov   [edi],ah
    call draw_window
 
 
    jmp     still
 
notport:
    cmp     ah, 4               ; connect
    jne     notcon
 
    mov     eax, [socket_status]
    cmp     eax, 4
    je     still
    call    connect
 
    jmp     still
 
notcon:
    cmp     ah,5                ; disconnect
    jne     notdiscon
 
    call    disconnect
    jmp  still
 
notdiscon:                      ; Echo Toggle
    cmp     ah, 6
    jne     still
 
    mov     al, [echo]
    not     al
    mov     [echo], al
 
    call    draw_window
    jmp     still
 
arrow:
 
    push eax
    mov  al,27
    call to_modem
    mov  al,'['
    call to_modem
    pop  eax
    call to_modem
 
    ret
 
 
to_modem:
    pusha
    push    ax
    mov     [tx_buff], al
    mov     edx, 1
    cmp     al, 13
    jne     tm_000
    mov     edx, 2
tm_000:
    mov     eax,53
    mov     ebx,7
    mov     ecx,[socket]
    mov     esi, tx_buff
    mcall
    pop     bx
    mov     al, [echo]
    cmp     al, 0
    je      tm_001
 
    push    bx
    call    handle_data
    pop     bx
 
    cmp     bl, 13
    jne     tm_002
 
    mov     bl, 10
    call    handle_data
 
tm_002:
    call    draw_text
 
tm_001:
    popa
    ret
 
 
 
disconnect:
    mov  eax,53
    mov  ebx,8
    mov  ecx,[socket]
    mcall
    ret
 
 
 
connect:
    pusha
 
 mov     ecx, 1000  ; local port starting at 1000
 
getlp:
 inc     ecx
 push ecx
 mov     eax, 53
 mov     ebx, 9
 mcall
 pop     ecx
 cmp     eax, 0   ; is this local port in use?
 jz  getlp      ; yes - so try next
 
    mov     eax,53
    mov     ebx,5
    mov     dl, [ip_address + 3]
    shl     edx, 8
    mov     dl, [ip_address + 2]
    shl     edx, 8
    mov     dl, [ip_address + 1]
    shl     edx, 8
    mov     dl, [ip_address]
    mov     esi, edx
    movzx   edx, word [port]      ; telnet port id
    mov     edi,1      ; active open
    mcall
    mov     [socket], eax
 
    popa
 
    ret
 
 
 
;   *********************************************
;   *******  WINDOW DEFINITIONS AND DRAW ********
;   *********************************************
 
 
draw_window:
 
    pusha
 
    mov  eax,12
    mov  ebx,1
    mcall
 
    xor  eax,eax                     ; DRAW WINDOW
    mov  ebx,100*65536+491 + 8 +15
    mov  ecx,100*65536+270 + 20     ; 20 for status bar
    mov  edx,0x14000000
    mov  edi,title
    mcall
 
    ; draw status bar
    mov     eax, 13
    mov     ebx, 4*65536+484 + 8 +15
    mov     ecx, 270*65536 + 3
    mov     edx, 0x00557799
    mcall
 
    mov  eax,8                     ; BUTTON 2: SET IP
    mov  ebx,4*65536+70
    mov  ecx,273*65536+12
    mov     esi, 0x00557799
    mov  edx,2
    mcall
 
    mov  eax,4                     ; Button text
    mov  ebx,6*65536+276
    mov  ecx,0x00ffffff
    mov  edx,setipt
    mov  esi,setiplen-setipt
    mcall
 
 
    mov  eax,47
    mov  edi,ip_address             ; display IP address
    mov  edx,78*65536+276
    mov  esi,0x00ffffff
    mov  ebx,3*65536
  ipdisplay:
    movzx ecx,byte [edi]
    mcall
    add  edx,6*4*65536
    inc  edi
    cmp  edi,ip_address+4
    jb   ipdisplay
 
    mov  eax,8                     ; BUTTON 3: SET PORT
    mov  ebx,173*65536+38
    mov  ecx,273*65536+12
    mov  edx,3
    mov     esi, 0x00557799
    mcall
 
    mov  eax,4                     ; Button text
    mov  ebx,178*65536+276
    mov  ecx,0x00ffffff
    mov  edx,setportt
    mov  esi,setportlen-setportt
    mcall
 
 
    mov  edx,216*65536+276           ; display port
    mov  esi,0x00ffffff
    mov  ebx,4*65536
    mov  eax,47
    movzx  ecx,word [port]
    mcall
 
    mov  eax,8                     ; BUTTON 4: Connect
    mov  ebx,250*65536+50
    mov  ecx,273*65536+12
    mov     esi, 0x00557799
    mov  edx,4
    mcall
 
    mov  eax,4                     ; Button text
    mov  ebx,255*65536+276
    mov  ecx,0x00ffffff
    mov  edx,cont
    mov  esi,conlen-cont
    mcall
 
 
    mov  eax,8                     ; BUTTON 5: disconnect
    mov  ebx,303*65536+70
    mov  ecx,273*65536+12
    mov  edx,5
    mov     esi, 0x00557799
    mcall
 
 
    mov  eax,4                     ; Button text
    mov  ebx,307*65536+276
    mov  ecx,0x00ffffff
    mov  edx,dist
    mov  esi,dislen-dist
    mcall
 
 
    mov  esi,contlen-contt          ; display connected status
    mov     edx, contt
    mov     eax, [socket_status]
    cmp     eax, 4                  ; 4 is connected
    je      pcon
    mov     esi,discontlen-discontt
    mov     edx, discontt
pcon:
 
    mov  eax,4                     ; status text
    mov  ebx,380*65536+276
    mov  ecx,0x00ffffff
    mcall
 
 
    mov  eax,8                     ; BUTTON 6: echo
    mov  ebx,460*65536+50
    mov  ecx,273*65536+12
    mov  edx,6
    mov     esi, 0x00557799
    mcall
 
    mov  edx,echot
    mov  esi,echolen-echot
    mov     al, [echo]
    cmp     al, 0
    jne     peo
    mov  edx,echoot
    mov  esi,echoolen-echoot
 
peo:
    mov  eax,4                     ; Button text
    mov  ebx,463*65536+276
    mov  ecx,0x00ffffff
    mcall
 
 
    xor  eax,eax
    mov  edi,text+80*30
    mov  ecx,80*30 /4
    cld
    rep  stosd
 
    call draw_text
 
    mov  eax,12
    mov  ebx,2
    mcall
 
    popa
 
    ret
 
 
draw_text:
 
    pusha
 
    mov  esi,text
    mov  eax,0
    mov  ebx,0
  newletter:
    mov  cl,[esi]
    cmp  cl,[esi+30*80]
    jne  yesletter
    jmp  noletter
  yesletter:
    mov  [esi+30*80],cl
 
    ; erase character
 
    pusha
    mov     edx, 0                  ; bg colour
    mov     ecx, ebx
    add     ecx, 26
    shl     ecx, 16
    mov     cx, 9
    mov     ebx, eax
    add     ebx, 6
    shl     ebx, 16
    mov     bx, 6
    mov     eax, 13
    mcall
    popa
 
    ; draw character
 
    pusha
    mov     ecx, 0x00ffffff
    push bx
    mov  ebx,eax
    add  ebx,6
    shl  ebx,16
    pop  bx
    add  bx,26
    mov  eax,4
    mov  edx,esi
    mov  esi,1
    mcall
    popa
 
  noletter:
 
    add  esi,1
    add  eax,6
    cmp  eax,80*6
    jb   newletter
    mov  eax,0
    add  ebx,10
    cmp  ebx,24*10
    jb   newletter
 
    popa
    ret
 
 
read_string:
 
    mov  edi,string
    mov  eax,'_'
    mov  ecx,[string_length]
    inc     ecx
    cld
    rep  stosb
    call print_text
 
    mov  edi,string
  f11:
    mov  eax,10
    mcall
    cmp  eax,2
    jne  read_done
    mov  eax,2
    mcall
    shr  eax,8
    cmp  eax,13
    je   read_done
    cmp  eax,8
    jnz  nobsl
    cmp  edi,string
    jz   f11
    sub  edi,1
    mov  [edi],byte '_'
    call print_text
    jmp  f11
  nobsl:
    cmp  eax,dword 31
    jbe  f11
    cmp  eax,dword 95
    jb   keyok
    sub  eax,32
  keyok:
    mov  [edi],al
    call print_text
 
    inc  edi
    mov  esi,string
    add  esi,[string_length]
    cmp  esi,edi
    jnz  f11
 
  read_done:
 
    call print_text
 
    ret
 
 
print_text:
 
    pusha
 
    mov  eax,13
    mov  ebx,[string_x]
    shl  ebx,16
    add  ebx,[string_length]
    imul bx,6
    mov  ecx,[string_y]
    shl  ecx,16
    mov  cx,8
    mov  edx,0x00000000
    mcall
 
    mov  eax,4
    mov  ebx,[string_x]
    shl  ebx,16
    add  ebx,[string_y]
    mov  ecx,0x00ffffff
    mov  edx,string
    mov  esi,[string_length]
    mcall
 
    popa
    ret
 
 
 
 
; DATA AREA
 
telnetrep       db 0xff,0xfc,0x00
telnetstate     db 0
 
string_length  dd    16
string_x       dd    200
string_y       dd    60
 
string         db    '________________'
 
tx_buff         db  0, 10
ip_address      db  001,002,003,004
port            db  0,0
echo            db  0
socket          dd  0x0
socket_status   dd  0x0
pos             dd  80 * 1
scroll          dd  1
                dd  24
wcolor          dd  0x000000
title           db  'Telnet v0.1',0
setipt          db  'IP Address:    .   .   .'
setiplen:
setportt        db  'Port:'
setportlen:
cont            db  'Connect'
conlen:
dist            db  'Disconnect'
dislen:
contt           db  'Connected'
contlen:
discontt        db  'Disconnected'
discontlen:
echot        db  'Echo On'
echolen:
echoot        db  'Echo Off'
echoolen:
 
 
 
text:
I_END:

Rev 485	Rev 661
1	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;	1	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
2	;	2	;
3	; TERMINAL	3	; TERMINAL
4	;	4	;
5	; Compile with FASM for Menuet	5	; Compile with FASM for Menuet
6	;	6	;
7		7
8	use32	8	use32
9	org 0x0	9	org 0x0
10	db 'MENUET01' ; header	10	db 'MENUET01' ; header
11	dd 0x01 ; header version	11	dd 0x01 ; header version
12	dd START ; entry point	12	dd START ; entry point
13	dd I_END ; image size	13	dd I_END ; image size
14	dd I_END+0x10000 ; required memory	14	dd I_END+0x10000 ; required memory
15	dd I_END+0x10000 ; esp	15	dd I_END+0x10000 ; esp
16	dd 0x0 , 0x0 ; I_Param , I_Path	16	dd 0x0 , 0x0 ; I_Param , I_Path
17		17
18		18
19	include 'lang.inc'	19	include 'lang.inc'
20	include '..\..\..\macros.inc'	20	include 'macros.inc'
21		21
22	START: ; start of execution	22	START: ; start of execution
23		23
24	; Clear the screen memory	24	; Clear the screen memory
25	mov eax, ' '	25	mov eax, ' '
26	mov edi,text	26	mov edi,text
27	mov ecx,80*30 /4	27	mov ecx,80*30 /4
28	cld	28	cld
29	rep stosd	29	rep stosd
30		30
31		31
32	call draw_window	32	call draw_window
33		33
34		34
35	still:	35	still:
36	; check connection status	36	; check connection status
37	mov eax,53	37	mov eax,53
38	mov ebx,6	38	mov ebx,6
39	mov ecx,[socket]	39	mov ecx,[socket]
40	mcall	40	mcall
41		41
42	mov ebx, [socket_status]	42	mov ebx, [socket_status]
43	mov [socket_status], eax	43	mov [socket_status], eax
44		44
45	cmp eax, ebx	45	cmp eax, ebx
46	je waitev	46	je waitev
47		47
48	red:	48	red:
49	call draw_window	49	call draw_window
50		50
51	waitev:	51	waitev:
52	mov eax,23 ; wait here for event	52	mov eax,23 ; wait here for event
53	mov ebx,20	53	mov ebx,20
54	mcall	54	mcall
55		55
56	cmp eax,1 ; redraw request ?	56	cmp eax,1 ; redraw request ?
57	je red	57	je red
58	cmp eax,2 ; key in buffer ?	58	cmp eax,2 ; key in buffer ?
59	je key	59	je key
60	cmp eax,3 ; button in buffer ?	60	cmp eax,3 ; button in buffer ?
61	je button	61	je button
62		62
63	; any data from the socket?	63	; any data from the socket?
64		64
65	mov eax, 53	65	mov eax, 53
66	mov ebx, 2	66	mov ebx, 2
67	mov ecx, [socket]	67	mov ecx, [socket]
68	mcall	68	mcall
69	cmp eax, 0	69	cmp eax, 0
70	jne read_input	70	jne read_input
71		71
72	jmp still	72	jmp still
73		73
74		74
75	read_input:	75	read_input:
76		76
77	push ecx	77	push ecx
78	mov eax, 53	78	mov eax, 53
79	mov ebx, 3	79	mov ebx, 3
80	mov ecx, [socket]	80	mov ecx, [socket]
81	mcall	81	mcall
82	pop ecx	82	pop ecx
83		83
84	call handle_data	84	call handle_data
85		85
86	push ecx	86	push ecx
87	mov eax, 53	87	mov eax, 53
88	mov ebx, 2	88	mov ebx, 2
89	mov ecx, [socket]	89	mov ecx, [socket]
90	mcall	90	mcall
91	pop ecx	91	pop ecx
92	cmp eax, 0	92	cmp eax, 0
93		93
94		94
95	jne read_input	95	jne read_input
96	call draw_text	96	call draw_text
97	jmp still	97	jmp still
98		98
99		99
100		100
101	handle_data:	101	handle_data:
102	; Telnet servers will want to negotiate options about our terminal window	102	; Telnet servers will want to negotiate options about our terminal window
103	; just reject them all.	103	; just reject them all.
104	; Telnet options start with the byte 0xff and are 3 bytes long.	104	; Telnet options start with the byte 0xff and are 3 bytes long.
105		105
106	mov al, [telnetstate]	106	mov al, [telnetstate]
107	cmp al, 0	107	cmp al, 0
108	je state0	108	je state0
109	cmp al, 1	109	cmp al, 1
110	je state1	110	je state1
111	cmp al, 2	111	cmp al, 2
112	je state2	112	je state2
113	jmp hd001	113	jmp hd001
114		114
115	state0:	115	state0:
116	cmp bl, 255	116	cmp bl, 255
117	jne hd001	117	jne hd001
118	mov al, 1	118	mov al, 1
119	mov [telnetstate], al	119	mov [telnetstate], al
120	ret	120	ret
121		121
122	state1:	122	state1:
123	mov al, 2	123	mov al, 2
124	mov [telnetstate], al	124	mov [telnetstate], al
125	ret	125	ret
126		126
127	state2:	127	state2:
128	mov al, 0	128	mov al, 0
129	mov [telnetstate], al	129	mov [telnetstate], al
130	mov [telnetrep+2], bl	130	mov [telnetrep+2], bl
131		131
132	mov edx, 3	132	mov edx, 3
133	mov eax,53	133	mov eax,53
134	mov ebx,7	134	mov ebx,7
135	mov ecx,[socket]	135	mov ecx,[socket]
136	mov esi, telnetrep	136	mov esi, telnetrep
137	mcall	137	mcall
138	ret	138	ret
139		139
140	hd001:	140	hd001:
141	cmp bl,13 ; BEGINNING OF LINE	141	cmp bl,13 ; BEGINNING OF LINE
142	jne nobol	142	jne nobol
143	mov ecx,[pos]	143	mov ecx,[pos]
144	add ecx,1	144	add ecx,1
145	boll1:	145	boll1:
146	sub ecx,1	146	sub ecx,1
147	mov eax,ecx	147	mov eax,ecx
148	xor edx,edx	148	xor edx,edx
149	mov ebx,80	149	mov ebx,80
150	div ebx	150	div ebx
151	cmp edx,0	151	cmp edx,0
152	jne boll1	152	jne boll1
153	mov [pos],ecx	153	mov [pos],ecx
154	jmp newdata	154	jmp newdata
155	nobol:	155	nobol:
156		156
157	cmp bl,10 ; LINE DOWN	157	cmp bl,10 ; LINE DOWN
158	jne nolf	158	jne nolf
159	addx1:	159	addx1:
160	add [pos],dword 1	160	add [pos],dword 1
161	mov eax,[pos]	161	mov eax,[pos]
162	xor edx,edx	162	xor edx,edx
163	mov ecx,80	163	mov ecx,80
164	div ecx	164	div ecx
165	cmp edx,0	165	cmp edx,0
166	jnz addx1	166	jnz addx1
167	mov eax,[pos]	167	mov eax,[pos]
168	jmp cm1	168	jmp cm1
169	nolf:	169	nolf:
170		170
171	cmp bl,8 ; BACKSPACE	171	cmp bl,8 ; BACKSPACE
172	jne nobasp	172	jne nobasp
173	mov eax,[pos]	173	mov eax,[pos]
174	dec eax	174	dec eax
175	mov [pos],eax	175	mov [pos],eax
176	mov [eax+text],byte 32	176	mov [eax+text],byte 32
177	mov [eax+text+60*80],byte 0	177	mov [eax+text+60*80],byte 0
178	jmp newdata	178	jmp newdata
179	nobasp:	179	nobasp:
180		180
181	cmp bl,15 ; CHARACTER	181	cmp bl,15 ; CHARACTER
182	jbe newdata	182	jbe newdata
183	mov eax,[pos]	183	mov eax,[pos]
184	mov [eax+text],bl	184	mov [eax+text],bl
185	mov eax,[pos]	185	mov eax,[pos]
186	add eax,1	186	add eax,1
187	cm1:	187	cm1:
188	mov ebx,[scroll+4]	188	mov ebx,[scroll+4]
189	imul ebx,80	189	imul ebx,80
190	cmp eax,ebx	190	cmp eax,ebx
191	jb noeaxz	191	jb noeaxz
192	mov esi,text+80	192	mov esi,text+80
193	mov edi,text	193	mov edi,text
194	mov ecx,ebx	194	mov ecx,ebx
195	cld	195	cld
196	rep movsb	196	rep movsb
197	mov eax,ebx	197	mov eax,ebx
198	sub eax,80	198	sub eax,80
199	noeaxz:	199	noeaxz:
200	mov [pos],eax	200	mov [pos],eax
201	newdata:	201	newdata:
202	ret	202	ret
203		203
204	key: ; KEY	204	key: ; KEY
205	mov eax,2 ; send to modem	205	mov eax,2 ; send to modem
206	mcall	206	mcall
207		207
208	mov ebx, [socket_status]	208	mov ebx, [socket_status]
209	cmp ebx, 4 ; connection open?	209	cmp ebx, 4 ; connection open?
210	jne still ; no, so ignore key	210	jne still ; no, so ignore key
211		211
212	shr eax,8	212	shr eax,8
213	cmp eax,178 ; ARROW KEYS	213	cmp eax,178 ; ARROW KEYS
214	jne noaup	214	jne noaup
215	mov al,'A'	215	mov al,'A'
216	call arrow	216	call arrow
217	jmp still	217	jmp still
218	noaup:	218	noaup:
219	cmp eax,177	219	cmp eax,177
220	jne noadown	220	jne noadown
221	mov al,'B'	221	mov al,'B'
222	call arrow	222	call arrow
223	jmp still	223	jmp still
224	noadown:	224	noadown:
225	cmp eax,179	225	cmp eax,179
226	jne noaright	226	jne noaright
227	mov al,'C'	227	mov al,'C'
228	call arrow	228	call arrow
229	jmp still	229	jmp still
230	noaright:	230	noaright:
231	cmp eax,176	231	cmp eax,176
232	jne noaleft	232	jne noaleft
233	mov al,'D'	233	mov al,'D'
234	call arrow	234	call arrow
235	jmp still	235	jmp still
236	noaleft:	236	noaleft:
237	modem_out:	237	modem_out:
238		238
239	call to_modem	239	call to_modem
240		240
241	jmp still	241	jmp still
242		242
243	button: ; BUTTON	243	button: ; BUTTON
244	mov eax,17	244	mov eax,17
245	mcall	245	mcall
246	cmp ah,1 ; CLOSE PROGRAM	246	cmp ah,1 ; CLOSE PROGRAM
247	jne noclose	247	jne noclose
248		248
249	mov eax,53	249	mov eax,53
250	mov ebx,8	250	mov ebx,8
251	mov ecx,[socket]	251	mov ecx,[socket]
252	mcall	252	mcall
253		253
254	or eax,-1	254	or eax,-1
255	mcall	255	mcall
256	noclose:	256	noclose:
257	cmp ah, 2 ; Set IP	257	cmp ah, 2 ; Set IP
258	jne notip	258	jne notip
259		259
260	mov [string_x], dword 78	260	mov [string_x], dword 78
261	mov [string_y], dword 276	261	mov [string_y], dword 276
262	mov [string_length], dword 15	262	mov [string_length], dword 15
263	call read_string	263	call read_string
264	mov esi,string-1	264	mov esi,string-1
265	mov edi,ip_address	265	mov edi,ip_address
266	xor eax,eax	266	xor eax,eax
267	ip1:	267	ip1:
268	inc esi	268	inc esi
269	cmp [esi],byte '0'	269	cmp [esi],byte '0'
270	jb ip2	270	jb ip2
271	cmp [esi],byte '9'	271	cmp [esi],byte '9'
272	jg ip2	272	jg ip2
273	imul eax,10	273	imul eax,10
274	movzx ebx,byte [esi]	274	movzx ebx,byte [esi]
275	sub ebx,48	275	sub ebx,48
276	add eax,ebx	276	add eax,ebx
277	jmp ip1	277	jmp ip1
278	ip2:	278	ip2:
279	mov [edi],al	279	mov [edi],al
280	xor eax,eax	280	xor eax,eax
281	inc edi	281	inc edi
282	cmp edi,ip_address+3	282	cmp edi,ip_address+3
283	jbe ip1	283	jbe ip1
284	call draw_window	284	call draw_window
285		285
286		286
287	jmp still	287	jmp still
288		288
289	notip:	289	notip:
290	cmp ah, 3 ; set port	290	cmp ah, 3 ; set port
291	jne notport	291	jne notport
292		292
293	mov [string_x], dword 215	293	mov [string_x], dword 215
294	mov [string_y], dword 276	294	mov [string_y], dword 276
295	mov [string_length], dword 4	295	mov [string_length], dword 4
296	call read_string	296	call read_string
297	mov esi,string-1	297	mov esi,string-1
298	mov edi,port	298	mov edi,port
299	xor eax,eax	299	xor eax,eax
300	ip11:	300	ip11:
301	inc esi	301	inc esi
302	cmp [esi],byte '0'	302	cmp [esi],byte '0'
303	jb ip21	303	jb ip21
304	cmp [esi],byte '9'	304	cmp [esi],byte '9'
305	jg ip21	305	jg ip21
306	imul eax,10	306	imul eax,10
307	movzx ebx,byte [esi]	307	movzx ebx,byte [esi]
308	sub ebx,48	308	sub ebx,48
309	add eax,ebx	309	add eax,ebx
310	jmp ip11	310	jmp ip11
311	ip21:	311	ip21:
312	mov [edi],al	312	mov [edi],al
313	inc edi	313	inc edi
314	mov [edi],ah	314	mov [edi],ah
315	call draw_window	315	call draw_window
316		316
317		317
318	jmp still	318	jmp still
319		319
320	notport:	320	notport:
321	cmp ah, 4 ; connect	321	cmp ah, 4 ; connect
322	jne notcon	322	jne notcon
323		323
324	mov eax, [socket_status]	324	mov eax, [socket_status]
325	cmp eax, 4	325	cmp eax, 4
326	je still	326	je still
327	call connect	327	call connect
328		328
329	jmp still	329	jmp still
330		330
331	notcon:	331	notcon:
332	cmp ah,5 ; disconnect	332	cmp ah,5 ; disconnect
333	jne notdiscon	333	jne notdiscon
334		334
335	call disconnect	335	call disconnect
336	jmp still	336	jmp still
337		337
338	notdiscon: ; Echo Toggle	338	notdiscon: ; Echo Toggle
339	cmp ah, 6	339	cmp ah, 6
340	jne still	340	jne still
341		341
342	mov al, [echo]	342	mov al, [echo]
343	not al	343	not al
344	mov [echo], al	344	mov [echo], al
345		345
346	call draw_window	346	call draw_window
347	jmp still	347	jmp still
348		348
349	arrow:	349	arrow:
350		350
351	push eax	351	push eax
352	mov al,27	352	mov al,27
353	call to_modem	353	call to_modem
354	mov al,'['	354	mov al,'['
355	call to_modem	355	call to_modem
356	pop eax	356	pop eax
357	call to_modem	357	call to_modem
358		358
359	ret	359	ret
360		360
361		361
362	to_modem:	362	to_modem:
363	pusha	363	pusha
364	push ax	364	push ax
365	mov [tx_buff], al	365	mov [tx_buff], al
366	mov edx, 1	366	mov edx, 1
367	cmp al, 13	367	cmp al, 13
368	jne tm_000	368	jne tm_000
369	mov edx, 2	369	mov edx, 2
370	tm_000:	370	tm_000:
371	mov eax,53	371	mov eax,53
372	mov ebx,7	372	mov ebx,7
373	mov ecx,[socket]	373	mov ecx,[socket]
374	mov esi, tx_buff	374	mov esi, tx_buff
375	mcall	375	mcall
376	pop bx	376	pop bx
377	mov al, [echo]	377	mov al, [echo]
378	cmp al, 0	378	cmp al, 0
379	je tm_001	379	je tm_001
380		380
381	push bx	381	push bx
382	call handle_data	382	call handle_data
383	pop bx	383	pop bx
384		384
385	cmp bl, 13	385	cmp bl, 13
386	jne tm_002	386	jne tm_002
387		387
388	mov bl, 10	388	mov bl, 10
389	call handle_data	389	call handle_data
390		390
391	tm_002:	391	tm_002:
392	call draw_text	392	call draw_text
393		393
394	tm_001:	394	tm_001:
395	popa	395	popa
396	ret	396	ret
397		397
398		398
399		399
400	disconnect:	400	disconnect:
401	mov eax,53	401	mov eax,53
402	mov ebx,8	402	mov ebx,8
403	mov ecx,[socket]	403	mov ecx,[socket]
404	mcall	404	mcall
405	ret	405	ret
406		406
407		407
408		408
409	connect:	409	connect:
410	pusha	410	pusha
411		411
412	mov ecx, 1000 ; local port starting at 1000	412	mov ecx, 1000 ; local port starting at 1000
413		413
414	getlp:	414	getlp:
415	inc ecx	415	inc ecx
416	push ecx	416	push ecx
417	mov eax, 53	417	mov eax, 53
418	mov ebx, 9	418	mov ebx, 9
419	mcall	419	mcall
420	pop ecx	420	pop ecx
421	cmp eax, 0 ; is this local port in use?	421	cmp eax, 0 ; is this local port in use?
422	jz getlp ; yes - so try next	422	jz getlp ; yes - so try next
423		423
424	mov eax,53	424	mov eax,53
425	mov ebx,5	425	mov ebx,5
426	mov dl, [ip_address + 3]	426	mov dl, [ip_address + 3]
427	shl edx, 8	427	shl edx, 8
428	mov dl, [ip_address + 2]	428	mov dl, [ip_address + 2]
429	shl edx, 8	429	shl edx, 8
430	mov dl, [ip_address + 1]	430	mov dl, [ip_address + 1]
431	shl edx, 8	431	shl edx, 8
432	mov dl, [ip_address]	432	mov dl, [ip_address]
433	mov esi, edx	433	mov esi, edx
434	movzx edx, word [port] ; telnet port id	434	movzx edx, word [port] ; telnet port id
435	mov edi,1 ; active open	435	mov edi,1 ; active open
436	mcall	436	mcall
437	mov [socket], eax	437	mov [socket], eax
438		438
439	popa	439	popa
440		440
441	ret	441	ret
442		442
443		443
444		444
445	; *********************************************	445	; *********************************************
446	; ***** WINDOW DEFINITIONS AND DRAW ******	446	; ***** WINDOW DEFINITIONS AND DRAW ******
447	; *********************************************	447	; *********************************************
448		448
449		449
450	draw_window:	450	draw_window:
451		451
452	pusha	452	pusha
453		453
454	mov eax,12	454	mov eax,12
455	mov ebx,1	455	mov ebx,1
456	mcall	456	mcall
457		457
458	xor eax,eax ; DRAW WINDOW	458	xor eax,eax ; DRAW WINDOW
459	mov ebx,100*65536+491 + 8 +15	459	mov ebx,100*65536+491 + 8 +15
460	mov ecx,100*65536+270 + 20 ; 20 for status bar	460	mov ecx,100*65536+270 + 20 ; 20 for status bar
461	mov edx,0x13000000	461	mov edx,0x14000000
462	mov edi,title	462	mov edi,title
463	mcall	463	mcall
464		464
465	; draw status bar	465	; draw status bar
466	mov eax, 13	466	mov eax, 13
467	mov ebx, 4*65536+484 + 8 +15	467	mov ebx, 4*65536+484 + 8 +15
468	mov ecx, 270*65536 + 3	468	mov ecx, 270*65536 + 3
469	mov edx, 0x00557799	469	mov edx, 0x00557799
470	mcall	470	mcall
471		471
472	mov eax,8 ; BUTTON 2: SET IP	472	mov eax,8 ; BUTTON 2: SET IP
473	mov ebx,4*65536+70	473	mov ebx,4*65536+70
474	mov ecx,273*65536+12	474	mov ecx,273*65536+12
475	mov esi, 0x00557799	475	mov esi, 0x00557799
476	mov edx,2	476	mov edx,2
477	mcall	477	mcall
478		478
479	mov eax,4 ; Button text	479	mov eax,4 ; Button text
480	mov ebx,6*65536+276	480	mov ebx,6*65536+276
481	mov ecx,0x00ffffff	481	mov ecx,0x00ffffff
482	mov edx,setipt	482	mov edx,setipt
483	mov esi,setiplen-setipt	483	mov esi,setiplen-setipt
484	mcall	484	mcall
485		485
486		486
487	mov eax,47	487	mov eax,47
488	mov edi,ip_address ; display IP address	488	mov edi,ip_address ; display IP address
489	mov edx,78*65536+276	489	mov edx,78*65536+276
490	mov esi,0x00ffffff	490	mov esi,0x00ffffff
491	mov ebx,3*65536	491	mov ebx,3*65536
492	ipdisplay:	492	ipdisplay:
493	movzx ecx,byte [edi]	493	movzx ecx,byte [edi]
494	mcall	494	mcall
495	add edx,6465536	495	add edx,6465536
496	inc edi	496	inc edi
497	cmp edi,ip_address+4	497	cmp edi,ip_address+4
498	jb ipdisplay	498	jb ipdisplay
499		499
500	mov eax,8 ; BUTTON 3: SET PORT	500	mov eax,8 ; BUTTON 3: SET PORT

Subversion Repositories Kolibri OS

(root)/programs/network/telnet/trunk/telnet.asm – Rev 485 → 661