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

+;
 ;    Compile with FASM for Menuet
+;
 use32
- org	0x0
+ org    0x0
- db	'MENUET01'    ; header
+ db     'MENUET01'    ; header
- dd	0x01	      ; header version
+ dd     0x01          ; header version
- dd	START	      ; entry point
+ dd     START         ; entry point
- dd	I_END	      ; image size
+ dd     I_END         ; image size
- dd	I_END+0x10000 ; required memory
+ dd     I_END+0x10000 ; required memory
- dd	I_END+0x10000 ; esp
+ dd     I_END+0x10000 ; esp
- dd	0x0 , 0x0     ; I_Param , I_Path
+ dd     0x0 , 0x0     ; I_Param , I_Path
 include 'lang.inc'
-include '..\..\..\macros.inc'
+include 'macros.inc'
-START:				; start of execution
+START:                          ; start of execution
     mov     ebx, [socket_status]
     mov     [socket_status], eax
     cmp     eax, ebx
-    je	    waitev
+    je      waitev
 red:
     call    draw_window
 waitev:
-    mov  eax,23 		; wait here for event
+    mov  eax,23                 ; wait here for event
     mov  ebx,20
     mcall
-    cmp  eax,1			; redraw request ?
+    cmp  eax,1                  ; redraw request ?
-    je	 red
+    je   red
-    cmp  eax,2			; key in buffer ?
+    cmp  eax,2                  ; key in buffer ?
-    je	 key
+    je   key
     ; just reject them all.
     ; Telnet options start with the byte 0xff and are 3 bytes long.
     mov     al, [telnetstate]
     cmp     al, 0
-    je	    state0
+    je      state0
     cmp     al, 1
-    je	    state1
+    je      state1
     cmp     al, 2
-    je	    state2
+    je      state2
     jmp     hd001
 state0:
     mov     esi, telnetrep
     mcall
     ret
 hd001:
-    cmp  bl,13				; BEGINNING OF LINE
+    cmp  bl,13                          ; BEGINNING OF LINE
     jne  nobol
     mov  ecx,[pos]
     add  ecx,1
   boll1:
     jne  boll1
     mov  [pos],ecx
     jmp  newdata
   nobol:
-    cmp  bl,10				  ; LINE DOWN
+    cmp  bl,10                            ; LINE DOWN
     jne  nolf
    addx1:
     add  [pos],dword 1
     mov  eax,[pos]
     jnz  addx1
     mov  eax,[pos]
     jmp  cm1
   nolf:
-    cmp  bl,8				 ; BACKSPACE
+    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
+    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
+    jb   noeaxz
     mov  esi,text+80
     mov  edi,text
     mov  ecx,ebx
   noeaxz:
     mov  [pos],eax
   newdata:
     ret
-  key:				; KEY
+  key:                          ; KEY
-    mov  eax,2			; send to modem
+    mov  eax,2                  ; send to modem
     mcall
     mov     ebx, [socket_status]
-    cmp     ebx, 4		; connection open?
+    cmp     ebx, 4              ; connection open?
-    jne     still		; no, so ignore key
+    jne     still               ; no, so ignore key
     shr  eax,8
-    cmp  eax,178		; ARROW KEYS
+    cmp  eax,178                ; ARROW KEYS
     jne  noaup
     mov  al,'A'
     call    to_modem
     jmp  still
-  button:			; BUTTON
+  button:                       ; BUTTON
     mov  eax,17
     mcall
-    cmp  ah,1			; CLOSE PROGRAM
+    cmp  ah,1                   ; CLOSE PROGRAM
     jne  noclose
     mov  eax,53
     mov  ebx,8
     mov  ecx,[socket]
     mcall
      or   eax,-1
      mcall
   noclose:
     mov   edi,ip_address
     xor   eax,eax
    ip1:
     inc   esi
     cmp   [esi],byte '0'
-    jb	  ip2
+    jb    ip2
     cmp   [esi],byte '9'
-    jg	  ip2
+    jg    ip2
     imul  eax,10
     movzx ebx,byte [esi]
     sub   ebx,48
     add   eax,ebx
     jmp   ip1
     jmp     still
 notip:
-    cmp     ah, 3		; set port
+    cmp     ah, 3               ; set port
     jne     notport
     mov   edi,port
     xor   eax,eax
    ip11:
     inc   esi
     cmp   [esi],byte '0'
-    jb	  ip21
+    jb    ip21
     cmp   [esi],byte '9'
-    jg	  ip21
+    jg    ip21
     imul  eax,10
     movzx ebx,byte [esi]
     sub   ebx,48
     add   eax,ebx
     jmp   ip11
     jmp     still
 notport:
-    cmp     ah, 4		; connect
+    cmp     ah, 4               ; connect
     jne     notcon
     mov     eax, [socket_status]
     cmp     eax, 4
-    je	   still
+    je     still
     call    connect
     jmp     still
 notcon:
-    cmp     ah,5		; disconnect
+    cmp     ah,5                ; disconnect
     jne     notdiscon
     mov     esi, tx_buff
     mcall
     pop     bx
     mov     al, [echo]
     cmp     al, 0
-    je	    tm_001
+    je      tm_001
     push    bx
     call    handle_data
 connect:
     pusha
- mov	 ecx, 1000  ; local port starting at 1000
+ mov     ecx, 1000  ; local port starting at 1000
 getlp:
- inc	 ecx
+ inc     ecx
  push ecx
- mov	 eax, 53
+ mov     eax, 53
- mov	 ebx, 9
+ mov     ebx, 9
  mcall
- pop	 ecx
+ pop     ecx
- cmp	 eax, 0   ; is this local port in use?
+ cmp     eax, 0   ; is this local port in use?
- jz  getlp	; yes - so try next
+ jz  getlp      ; yes - so try next
     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
+    movzx   edx, word [port]      ; telnet port id
     mov     edi,1      ; active open
     mcall
     mov     [socket], eax
     mov  eax,12
     mov  ebx,1
     mcall
-    xor  eax,eax		     ; DRAW WINDOW
+    xor  eax,eax                     ; DRAW WINDOW
     mov  ebx,100*65536+491 + 8 +15
     mov  ecx,100*65536+270 + 20     ; 20 for status bar
-    mov  edx,0x13000000
+    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  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  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  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
+    jb   ipdisplay
-    mov  eax,8			   ; BUTTON 3: SET PORT
+    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  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  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  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  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  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  eax,4                     ; Button text
     mov  ebx,307*65536+276
     mov  ecx,0x00ffffff
     mov  edx,dist
     mov  esi,dislen-dist
     mcall
     jne     peo
     mov  edx,echoot
     mov  esi,echoolen-echoot
 peo:
-    mov  eax,4			   ; Button text
+    mov  eax,4                     ; Button text
     mov  ebx,463*65536+276
     mov  ecx,0x00ffffff
     mov  [esi+30*80],cl
     ; erase character
     pusha
-    mov     edx, 0		    ; bg colour
+    mov     edx, 0                  ; bg colour
     mov     ecx, ebx
     add     ecx, 26
     shl     ecx, 16
   noletter:
     add  esi,1
     add  eax,6
     cmp  eax,80*6
-    jb	 newletter
+    jb   newletter
     mov  eax,0
     add  ebx,10
     cmp  ebx,24*10
-    jb	 newletter
+    jb   newletter
     jne  read_done
     mov  eax,2
     mcall
     shr  eax,8
     cmp  eax,13
-    je	 read_done
+    je   read_done
     cmp  eax,8
     jnz  nobsl
     cmp  edi,string
-    jz	 f11
+    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
+    jb   keyok
     sub  eax,32
   keyok:
     mov  [edi],al
     call print_text
 ; DATA AREA
-telnetrep	db 0xff,0xfc,0x00
+telnetrep       db 0xff,0xfc,0x00
-telnetstate	db 0
+telnetstate     db 0
 string_length  dd    16
 string_x       dd    200
 string_y       dd    60
-string	       db    '________________'
+string         db    '________________'
-tx_buff 	db  0, 10
+tx_buff         db  0, 10
-ip_address	db  001,002,003,004
+ip_address      db  001,002,003,004
-port		db  0,0
+port            db  0,0
-echo		db  0
+echo            db  0
-socket		dd  0x0
+socket          dd  0x0
-socket_status	dd  0x0
+socket_status   dd  0x0
-pos		dd  80 * 1
+pos             dd  80 * 1
-scroll		dd  1
+scroll          dd  1
-		dd  24
+                dd  24
-wcolor		dd  0x000000
+wcolor          dd  0x000000
-title		db  'Telnet v0.1',0
+title           db  'Telnet v0.1',0
-setipt		db  'IP Address:    .   .   .'
+setipt          db  'IP Address:    .   .   .'
 setiplen:
-setportt	db  'Port:'
+setportt        db  'Port:'
 setportlen:
-cont		db  'Connect'
+cont            db  'Connect'
 conlen:
-dist		db  'Disconnect'
+dist            db  'Disconnect'
 dislen:
-contt		db  'Connected'
+contt           db  'Connected'
 contlen:

Subversion Repositories Kolibri OS

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