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


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
;    TERMINAL
  
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
   
    call draw_window
   
    call set_variables
   
still:
   
    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
    cmp  eax,16+4
    je	 read_input
   
    jmp  still
   
   
read_input:
    mcall 42,4,text+120*80
    test eax, eax
    jle  still
 
read_input_loop:
    mov  bl,[ecx]
    inc  ecx
 
    push eax ecx
 
    cmp  bl,27				; ESCAPE COMMAND
    jne  no_esc
    call esc_command
    jmp  newdata
  no_esc:
   
    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]
    call draw_data
    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  esi,text+80+60*80
    mov  edi,text+60*80
    mov  ecx,ebx
    cld
    rep  movsb
    mov  eax,ebx
    sub  eax,80
  noeaxz:
    mov  [pos],eax
  newdata:
    pop  ecx eax
 
    dec  eax
    jnz  read_input_loop
    call draw_text
    jmp  still
   
   
  red:				; REDRAW WINDOW
    call draw_window
    jmp  still
   
  key:				; KEY
    mov  eax,2			; send to modem
    mcall
    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:
    mov  dx,0x3f8
    out  dx,al
 
 
    jmp  still
   
  button:			; BUTTON
    mov  eax,17
    mcall
    cmp  ah,1			; CLOSE PROGRAM
    jne  noclose
    mov  eax,45 		; FREE IRQ
    mov  ebx,1
    mov  ecx,4
    mcall
    mov  eax,46
    mov  ebx,1
    mov  ecx,0x3f0
    mov  edx,0x3ff
    mcall
     or  eax,-1
     mcall
  noclose:
   
    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
   
    mov  dx,0x3f8
 
 
    out  dx,al
    mov  eax,5
    mov  ebx,5
    mcall
   
    popa
    ret
   
   
draw_data:
   
    pusha
   
    cmp  bl,0xe4   ; Á
    jne  noe4
    mov  bl,0xc1
  noe4:
    cmp  bl,0xc4   ; É
    jne  noc4
    mov  bl,0xc9
  noc4:
    mov  [eax+text],bl
    mov  bl,byte [attribute]
    mov  [eax+text+60*80],bl
   
    popa
    ret
   
   
irqtable:
   
    dd	0x3f8  + 0x01000000  ; read port 0x3f8, byte
    dd	0
    dd	0
    dd	0
    dd	0
    dd	0
    dd	0
    dd	0
    dd	0
    dd	0
    dd	0
    dd	0
    dd	0
    dd	0
    dd	0
    dd	0
   
   
   
   
set_variables:
   
    pusha
   
    mov  eax,46
    mov  ebx,0
    mov  ecx,0x3f0
    mov  edx,0x3ff
    mcall
   
    mov  eax,45 	 ; reserve irq 4
    mov  ebx,0
    mov  ecx,4
    mcall
   
    mov  eax,44
    mov  ebx,irqtable
    mov  ecx,4
    mcall
   
;    jmp  noportint
   
    mov  dx,0x3f8+3
    mov  al,0x80
 
    out  dx,al
   
    mov  dx,0x3f8+1
    mov  al,0
 
    out  dx,al
   
    mov  dx,0x3f8+0
    mov  al,0x30 / 16
 
    out  dx,al
   
    mov  dx,0x3f8+3
    mov  al,3
 
    out  dx,al
   
    mov  dx,0x3f8+4
    mov  al,0xB
 
    out  dx,al
   
    mov  dx,0x3f8+1
    mov  al,1
 
    out  dx,al
   
  noportint:
   
     mov  eax,40
     mov  ebx,0000000000010000b shl 16 + 111b
    mcall
   
    popa
   
    ret
   
   
   
;   *********************************************
;   *******  WINDOW DEFINITIONS AND DRAW ********
;   *********************************************
   
   
draw_window:
   
    pusha
   
    mov  eax,12
    mov  ebx,1
    mcall
   
    mov  eax,0			   ; DRAW WINDOW
    mov  ebx,100*65536+491
    mov  ecx,100*65536+270
    mov  edx,0x13000000
    mov  edi,title
    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
   
   
bgc  dd  0x000000
     dd  0x000000
     dd  0x00ff00
     dd  0x0000ff
     dd  0x005500
     dd  0xff00ff
     dd  0x00ffff
     dd  0x770077
   
tc   dd  0xffffff
     dd  0xff00ff
     dd  0xffffff
     dd  0xffffff
     dd  0xffffff
     dd  0xffffff
     dd  0xffffff
     dd  0xffffff
   
   
draw_text:
   
    pusha
   
    mov  esi,text
    mov  eax,0
    mov  ebx,0
  newletter:
    mov  cl,[esi]
    mov  dl,[esi+60*80]
    cmp  cl,[esi+30*80]
    jne  yesletter
    cmp  dl,[esi+90*80]
    jne  yesletter
    jmp  noletter
  yesletter:
    mov  [esi+30*80],cl
    mov  [esi+90*80],dl
   
    pusha
    and  edx,0xff
    shl  edx,2
    add  edx,bgc
    mov  edx,[edx]
    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
   
    pusha
    and  edx,0xff
    shl  edx,2
    add  edx,tc
    mov  ecx,[edx]
    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
   
   
esc_command:
   
     mov   eax,32
     mov   edi,esccmd
     mov   ecx,10
     cld
     rep   stosb
     mov   edi,esccmd
   newescc:
     mov   eax,42
     mov   ebx,4
     mcall
     cmp   ecx,0
     je    escok
     mov   eax,5
     mov   ebx,1
     mcall
     jmp   newescc
   escok:
     mov   [edi],bl
     add   edi,1
     cmp   edi,esccmd+20
     je    dontunderstand
     mov   esi,escend
   nec:
     cmp   bl,[esi]
     jz    com_ok
     add   esi,1
     cmp   [esi],byte 0
     je    newescc
     jmp   nec
   com_ok:
   
     call  get_numbers
   
     cmp   bl,'H'		      ; SET CURSOR POSITION
     jne   no_cursor_position
     cmp   [escnumbers],0
     jne   ncp1
     mov   [pos],dword 0
     jmp   cmd_done
    ncp1:
     mov    eax,[escnumbers]
     dec    eax
     imul   eax,80
     add    eax,[escnumbers+4]
     dec    eax
     mov    [pos],eax
     jmp    cmd_done
   no_cursor_position:
   
     cmp    bl,'K'			; ERASE LINE
     jne    no_erase_end_of_line
     cmp    [escnumbers],0
     jne    no_end_line
     mov    ecx,[pos]
   eeol:
     mov    [ecx+text],byte ' '
     mov    [ecx+text+60*80],byte 0
     add    ecx,1
     xor    edx,edx
     mov    eax,ecx
     mov    ebx,80
     div    ebx
     cmp    edx,0
     jne    eeol
     jmp    cmd_done
    no_end_line:
     cmp    [escnumbers],1		; BEGINNING OF LINE
     jne    no_beg_line
     mov    ecx,[pos]
   ebol:
     mov    [ecx+text],byte ' '
     mov    [ecx+text+60*80],byte 0
     sub    ecx,1
     xor    edx,edx
     mov    eax,ecx
     mov    ebx,80
     div    ebx
     cmp    edx,0
     jne    ebol
     mov    [pos],ecx
     jmp    cmd_done
    no_beg_line:
   no_erase_end_of_line:
   
     cmp    bl,'J'			    ; ERASE TO END OF SCREEN
     jne    no_erase_to_end_of_screen
     cmp    [escnumbers],dword 0
     jne    no_erase_to_end_of_screen
     mov    ecx,[pos]
   eteos:
     mov    [ecx+text],byte ' '
     mov    [ecx+text+60*80],byte 0
     add    ecx,1
     cmp    ecx,80*24+1
     jb     eteos
     jmp    cmd_done
   no_erase_to_end_of_screen:
   
     cmp    bl,'r'			     ; SET SCROLL REGION
     jne    no_scroll_region
     mov    eax,[escnumbers]
     dec    eax
     mov    [scroll+0],eax
     mov    eax,[escnumbers+4]
     mov    [scroll+4],eax
     jmp    cmd_done
   no_scroll_region:
   
     cmp    bl,'A'			      ; CURSOR UP
     jne    no_cursor_up
     mov    eax,[pos]
     sub    eax,80
     mov    [pos],eax
     jmp    cmd_done
   no_cursor_up:
   
     cmp    bl,'C'			      ; CURSOR LEFT
     jne    no_cursor_left
     mov    eax,[pos]
     mov    ebx,[escnumbers]
     sub    eax,ebx
     mov    [pos],eax
     call   cmd_done
   no_cursor_left:
   
     cmp    bl,'m'			     ; CHARACTER ATTRIBUTE
     jne    no_char_attribute
     mov    eax,[escnumbers]
     mov    [attribute],eax
     jmp    cmd_done
   no_char_attribute:
   
     cmp    bl,'Z'			      ; TERMINAL TYPE
     jne    no_terminal_type
     mov    al,27
     call   to_modem
     mov    al,'?'
     call   to_modem
     mov    al,'1'
     call   to_modem
     mov    al,';'
     call   to_modem
     mov    al,'0'
     call   to_modem
     mov    al,'c'
     call   to_modem
     jmp    cmd_done
   no_terminal_type:
   
   dontunderstand:
   
   cmd_done:
   
     ret
   
   
draw_numbers:
   
     pusha
   
     mov  eax,13
     mov  ebx,250*65536+100
     mov  ecx,8*65536+8
     mov  edx,0x000000
     mcall
   
     mov  eax,[escnumbers]
     xor  edx,edx
     mov  ebx,10
     div  ebx
     add  eax,48
     add  edx,48
     mov  byte [numtext+0],al
     mov  byte [numtext+1],dl
   
     mov  eax,[escnumbers+4]
     xor  edx,edx
     mov  ebx,10
     div  ebx
     add  eax,48
     add  edx,48
     mov  [numtext+3],al
     mov  [numtext+4],dl
   
     mov  eax,4
     mov  ebx,250*65536+8
     mov  ecx,0xffffff
     mov  edx,numtext
     mov  esi,10
     mcall
   
     popa
   
     ret
   
draw_event:
   
     pusha
   
     mov  eax,13
     mov  ebx,150*65536+100
     mov  ecx,8*65536+8
     mov  edx,0xffffff
     mcall
   
     mov  eax,4
     mov  ebx,150*65536+8
     mov  ecx,0x000000
     mov  edx,esccmd
     mov  esi,20
     mcall
   
     popa
     ret
   
   
get_numbers:
   
     pusha
   
     mov   [escnumbers+0],0
     mov   [escnumbers+4],0
     mov   [escnumbers+8],0
     mov   ecx,esccmd
     cmp   [ecx+1],byte '0'
     jb    gn_over
     cmp   [ecx+1],byte '9'
     jg    gn_over
     mov   edi,escnumbers
   gn_new:
     add   ecx,1
     movzx eax,byte [ecx]
     sub   eax,48
     add   ecx,1
     cmp   [ecx],byte '0'
     jb    gnl1
     cmp   [ecx],byte '9'
     jg    gnl1
     mov   ebx,10
     xor   edx,edx
     mul   ebx
     movzx ebx,byte[ecx]
     add   eax,ebx
     sub   eax,48
     add   ecx,1
   gnl1:
     mov   [edi],eax
     add   edi,4
     cmp   [ecx],byte ';'
     je    gn_new
  gn_over:
     popa
     ret
   
   
   
   
; DATA AREA
   
   
pos	    dd	80*10
irc_data    dd	0x0
print	    db	0x0
attribute   dd	0
scroll	    dd	1
	    dd	24
numtext     db	'                     '
esccmd	    dd	0,0,0,0,0,0,0,0,0,0,0,0,0
escend	    db	'ZrhlABCDHfDME=>NmKJgincoyq',0
escnumbers  dd	0,0,0,0,0
wcolor	    dd	0x000000
title	    db	'TERMINAL FOR MODEM IN COM1  0.03',0
   
text:
db '                                                                   '
db '             '
db '*** A TELNET APPLICATION FOR HAYES COMPATIBLE MODEMS IN COM1       '
db '             '
db '*** USE HAYES COMMANDS TO CONNECT TO A SERVER                      '
db '             '
db '*** ATDT (PHONENUMBER)                                             '
db '             '
db '                                                                   '
db '             '
   
I_END:
 


Rev 485	Rev 1247
1	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;	1	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
2	;	2	;
3	; TERMINAL	3	; TERMINAL
4		4
5	use32	5	use32
6	org 0x0	6	org 0x0
7	db 'MENUET01' ; header	7	db 'MENUET01' ; header
8	dd 0x01 ; header version	8	dd 0x01 ; header version
9	dd START ; entry point	9	dd START ; entry point
10	dd I_END ; image size	10	dd I_END ; image size
11	dd I_END+0x10000 ; required memory	11	dd I_END+0x10000 ; required memory
12	dd I_END+0x10000 ; esp	12	dd I_END+0x10000 ; esp
13	dd 0x0 , 0x0 ; I_Param , I_Path	13	dd 0x0 , 0x0 ; I_Param , I_Path
14		14
15	include 'lang.inc'	15	include 'lang.inc'
16	include '..\..\..\macros.inc'	16	include '..\..\..\macros.inc'
17		17
18		18
19	START: ; start of execution	19	START: ; start of execution
20		20
21	call draw_window	21	call draw_window
22		22
23	call set_variables	23	call set_variables
24		24
25	still:	25	still:
26		26
27	mov eax,23 ; wait here for event	27	mov eax,23 ; wait here for event
28	mov ebx,20	28	mov ebx,20
29	mcall	29	mcall
30		30
31	cmp eax,1 ; redraw request ?	31	cmp eax,1 ; redraw request ?
32	je red	32	je red
33	cmp eax,2 ; key in buffer ?	33	cmp eax,2 ; key in buffer ?
34	je key	34	je key
35	cmp eax,3 ; button in buffer ?	35	cmp eax,3 ; button in buffer ?
36	je button	36	je button
37	cmp eax,16+4	37	cmp eax,16+4
38	je read_input	38	je read_input
39		39
40	jmp still	40	jmp still
41		41
42		42
43	read_input:	43	read_input:
-		44	mcall 42,4,text+120*80
-		45	test eax, eax
-		46	jle still
44		47
45	push ecx	48	read_input_loop:
46	mov eax,42	49	mov bl,[ecx]
47	mov ebx,4	50	inc ecx
48	mcall	-
49	pop ecx	51	push eax ecx
50		-
51	cmp bl,27 ; ESCAPE COMMAND	52	cmp bl,27 ; ESCAPE COMMAND
52	jne no_esc	53	jne no_esc
53	call esc_command	54	call esc_command
54	jmp newdata	55	jmp newdata
55	no_esc:	56	no_esc:
56		57
57	cmp bl,13 ; BEGINNING OF LINE	58	cmp bl,13 ; BEGINNING OF LINE
58	jne nobol	59	jne nobol
59	mov ecx,[pos]	60	mov ecx,[pos]
60	add ecx,1	61	add ecx,1
61	boll1:	62	boll1:
62	sub ecx,1	63	sub ecx,1
63	mov eax,ecx	64	mov eax,ecx
64	xor edx,edx	65	xor edx,edx
65	mov ebx,80	66	mov ebx,80
66	div ebx	67	div ebx
67	cmp edx,0	68	cmp edx,0
68	jne boll1	69	jne boll1
69	mov [pos],ecx	70	mov [pos],ecx
70	jmp newdata	71	jmp newdata
71	nobol:	72	nobol:
72		73
73	cmp bl,10 ; LINE DOWN	74	cmp bl,10 ; LINE DOWN
74	jne nolf	75	jne nolf
75	addx1:	76	addx1:
76	add [pos],dword 1	77	add [pos],dword 1
77	mov eax,[pos]	78	mov eax,[pos]
78	xor edx,edx	79	xor edx,edx
79	mov ecx,80	80	mov ecx,80
80	div ecx	81	div ecx
81	cmp edx,0	82	cmp edx,0
82	jnz addx1	83	jnz addx1
83	mov eax,[pos]	84	mov eax,[pos]
84	jmp cm1	85	jmp cm1
85	nolf:	86	nolf:
86		87
87	cmp bl,8 ; BACKSPACE	88	cmp bl,8 ; BACKSPACE
88	jne nobasp	89	jne nobasp
89	mov eax,[pos]	90	mov eax,[pos]
90	dec eax	91	dec eax
91	mov [pos],eax	92	mov [pos],eax
92	mov [eax+text],byte 32	93	mov [eax+text],byte 32
93	mov [eax+text+60*80],byte 0	94	mov [eax+text+60*80],byte 0
94	jmp newdata	95	jmp newdata
95	nobasp:	96	nobasp:
96		97
97	cmp bl,15 ; CHARACTER	98	cmp bl,15 ; CHARACTER
98	jbe newdata	99	jbe newdata
99	mov eax,[pos]	100	mov eax,[pos]
100	call draw_data	101	call draw_data
101	mov eax,[pos]	102	mov eax,[pos]
102	add eax,1	103	add eax,1
103	cm1:	104	cm1:
104	mov ebx,[scroll+4]	105	mov ebx,[scroll+4]
105	imul ebx,80	106	imul ebx,80
106	cmp eax,ebx	107	cmp eax,ebx
107	jb noeaxz	108	jb noeaxz
108	mov esi,text+80	109	mov esi,text+80
109	mov edi,text	110	mov edi,text
110	mov ecx,ebx	111	mov ecx,ebx
111	cld	112	cld
112	rep movsb	113	rep movsb
113	mov esi,text+80+60*80	114	mov esi,text+80+60*80
114	mov edi,text+60*80	115	mov edi,text+60*80
115	mov ecx,ebx	116	mov ecx,ebx
116	cld	117	cld
117	rep movsb	118	rep movsb
118	mov eax,ebx	119	mov eax,ebx
119	sub eax,80	120	sub eax,80
120	noeaxz:	121	noeaxz:
121	mov [pos],eax	122	mov [pos],eax
122	newdata:	123	newdata:
123	mov eax,11	124	pop ecx eax
124	mcall	-
125	cmp eax,16+4	125	dec eax
126	je read_input	126	jnz read_input_loop
127	call draw_text	127	call draw_text
128	jmp still	128	jmp still
129		129
130		130
131	red: ; REDRAW WINDOW	131	red: ; REDRAW WINDOW
132	call draw_window	132	call draw_window
133	jmp still	133	jmp still
134		134
135	key: ; KEY	135	key: ; KEY
136	mov eax,2 ; send to modem	136	mov eax,2 ; send to modem
137	mcall	137	mcall
138	shr eax,8	138	shr eax,8
139	cmp eax,178 ; ARROW KEYS	139	cmp eax,178 ; ARROW KEYS
140	jne noaup	140	jne noaup
141	mov al,'A'	141	mov al,'A'
142	call arrow	142	call arrow
143	jmp still	143	jmp still
144	noaup:	144	noaup:
145	cmp eax,177	145	cmp eax,177
146	jne noadown	146	jne noadown
147	mov al,'B'	147	mov al,'B'
148	call arrow	148	call arrow
149	jmp still	149	jmp still
150	noadown:	150	noadown:
151	cmp eax,179	151	cmp eax,179
152	jne noaright	152	jne noaright
153	mov al,'C'	153	mov al,'C'
154	call arrow	154	call arrow
155	jmp still	155	jmp still
156	noaright:	156	noaright:
157	cmp eax,176	157	cmp eax,176
158	jne noaleft	158	jne noaleft
159	mov al,'D'	159	mov al,'D'
160	call arrow	160	call arrow
161	jmp still	161	jmp still
162	noaleft:	162	noaleft:
163	modem_out:	163	modem_out:
164	mov ecx,0x3f8	164	mov dx,0x3f8
165	mov bl,al	165	out dx,al
166	mov eax,43	-
167	mcall	-
168	jmp still	166	jmp still
169		167
170	button: ; BUTTON	168	button: ; BUTTON
171	mov eax,17	169	mov eax,17
172	mcall	170	mcall
173	cmp ah,1 ; CLOSE PROGRAM	171	cmp ah,1 ; CLOSE PROGRAM
174	jne noclose	172	jne noclose
175	mov eax,45 ; FREE IRQ	173	mov eax,45 ; FREE IRQ
176	mov ebx,1	174	mov ebx,1
177	mov ecx,4	175	mov ecx,4
178	mcall	176	mcall
179	mov eax,46	177	mov eax,46
180	mov ebx,1	178	mov ebx,1
181	mov ecx,0x3f0	179	mov ecx,0x3f0
182	mov edx,0x3ff	180	mov edx,0x3ff
183	mcall	181	mcall
184	or eax,-1	182	or eax,-1
185	mcall	183	mcall
186	noclose:	184	noclose:
187		185
188	jmp still	186	jmp still
189		187
190		188
191	arrow:	189	arrow:
192		190
193	push eax	191	push eax
194	mov al,27	192	mov al,27
195	call to_modem	193	call to_modem
196	mov al,'['	194	mov al,'['
197	call to_modem	195	call to_modem
198	pop eax	196	pop eax
199	call to_modem	197	call to_modem
200		198
201	ret	199	ret
202		200
203		201
204	to_modem:	202	to_modem:
205		203
206	pusha	204	pusha
207		205
208	mov ecx,0x3f8	206	mov dx,0x3f8
209	mov ebx,eax	-
210	mov eax,43	-
211	mcall	207	out dx,al
212	mov eax,5	208	mov eax,5
213	mov ebx,5	209	mov ebx,5
214	mcall	210	mcall
215		211
216	popa	212	popa
217	ret	213	ret
218		214
219		215
220	draw_data:	216	draw_data:
221		217
222	pusha	218	pusha
223		219
224	cmp bl,0xe4 ; Á	220	cmp bl,0xe4 ; Á
225	jne noe4	221	jne noe4
226	mov bl,0xc1	222	mov bl,0xc1
227	noe4:	223	noe4:
228	cmp bl,0xc4 ; É	224	cmp bl,0xc4 ; É
229	jne noc4	225	jne noc4
230	mov bl,0xc9	226	mov bl,0xc9
231	noc4:	227	noc4:
232	mov [eax+text],bl	228	mov [eax+text],bl
233	mov bl,byte [attribute]	229	mov bl,byte [attribute]
234	mov [eax+text+60*80],bl	230	mov [eax+text+60*80],bl
235		231
236	popa	232	popa
237	ret	233	ret
238		234
239		235
240	irqtable:	236	irqtable:
241		237
242	dd 0x3f8 + 0x01000000 ; read port 0x3f8, byte	238	dd 0x3f8 + 0x01000000 ; read port 0x3f8, byte
243	dd 0	239	dd 0
244	dd 0	240	dd 0
245	dd 0	241	dd 0
246	dd 0	242	dd 0
247	dd 0	243	dd 0
248	dd 0	244	dd 0
249	dd 0	245	dd 0
250	dd 0	246	dd 0
251	dd 0	247	dd 0
252	dd 0	248	dd 0
253	dd 0	249	dd 0
254	dd 0	250	dd 0
255	dd 0	251	dd 0
256	dd 0	252	dd 0
257	dd 0	253	dd 0
258		254
259		255
260		256
261		257
262	set_variables:	258	set_variables:
263		259
264	pusha	260	pusha
265		261
266	mov eax,46	262	mov eax,46
267	mov ebx,0	263	mov ebx,0
268	mov ecx,0x3f0	264	mov ecx,0x3f0
269	mov edx,0x3ff	265	mov edx,0x3ff
270	mcall	266	mcall
271		267
272	mov eax,45 ; reserve irq 4	268	mov eax,45 ; reserve irq 4
273	mov ebx,0	269	mov ebx,0
274	mov ecx,4	270	mov ecx,4
275	mcall	271	mcall
276		272
277	mov eax,44	273	mov eax,44
278	mov ebx,irqtable	274	mov ebx,irqtable
279	mov ecx,4	275	mov ecx,4
280	mcall	276	mcall
281		277
282	; jmp noportint	278	; jmp noportint
283		279
284	mov cx,0x3f8+3	280	mov dx,0x3f8+3
285	mov bl,0x80	281	mov al,0x80
286	mov eax,43	-
287	mcall	282	out dx,al
288		283
289	mov cx,0x3f8+1	284	mov dx,0x3f8+1
290	mov bl,0	285	mov al,0
291	mov eax,43	-
292	mcall	286	out dx,al
293		287
294	mov cx,0x3f8+0	288	mov dx,0x3f8+0
295	mov bl,0x30 / 16	289	mov al,0x30 / 16
296	mov eax,43	-
297	mcall	290	out dx,al
298		291
299	mov cx,0x3f8+3	292	mov dx,0x3f8+3
300	mov bl,3	293	mov al,3
301	mov eax,43	-
302	mcall	294	out dx,al
303		295
304	mov cx,0x3f8+4	296	mov dx,0x3f8+4
305	mov bl,0xB	297	mov al,0xB
306	mov eax,43	-
307	mcall	298	out dx,al
308		299
309	mov cx,0x3f8+1	300	mov dx,0x3f8+1
310	mov bl,1	301	mov al,1
311	mov eax,43	-
312	mcall	302	out dx,al
313		303
314	noportint:	304	noportint:
315		305
316	mov eax,40	306	mov eax,40
317	mov ebx,0000000000010000b shl 16 + 111b	307	mov ebx,0000000000010000b shl 16 + 111b
318	mcall	308	mcall
319		309
320	popa	310	popa
321		311
322	ret	312	ret
323		313
324		314
325		315
326	; *********************************************	316	; *********************************************
327	; ***** WINDOW DEFINITIONS AND DRAW ******	317	; ***** WINDOW DEFINITIONS AND DRAW ******
328	; *********************************************	318	; *********************************************
329		319
330		320
331	draw_window:	321	draw_window:
332		322
333	pusha	323	pusha
334		324
335	mov eax,12	325	mov eax,12
336	mov ebx,1	326	mov ebx,1
337	mcall	327	mcall
338		328
339	mov eax,0 ; DRAW WINDOW	329	mov eax,0 ; DRAW WINDOW
340	mov ebx,100*65536+491	330	mov ebx,100*65536+491
341	mov ecx,100*65536+270	331	mov ecx,100*65536+270
342	mov edx,0x13000000	332	mov edx,0x13000000
343	mov edi,title	333	mov edi,title
344	mcall	334	mcall
345		335
346	xor eax,eax	336	xor eax,eax
347	mov edi,text+80*30	337	mov edi,text+80*30
348	mov ecx,80*30 /4	338	mov ecx,80*30 /4
349	cld	339	cld
350	rep stosd	340	rep stosd
351		341
352	call draw_text	342	call draw_text
353		343
354	mov eax,12	344	mov eax,12
355	mov ebx,2	345	mov ebx,2
356	mcall	346	mcall
357		347
358	popa	348	popa
359		349
360	ret	350	ret
361		351
362		352
363	bgc dd 0x000000	353	bgc dd 0x000000
364	dd 0x000000	354	dd 0x000000
365	dd 0x00ff00	355	dd 0x00ff00
366	dd 0x0000ff	356	dd 0x0000ff
367	dd 0x005500	357	dd 0x005500
368	dd 0xff00ff	358	dd 0xff00ff
369	dd 0x00ffff	359	dd 0x00ffff
370	dd 0x770077	360	dd 0x770077
371		361
372	tc dd 0xffffff	362	tc dd 0xffffff
373	dd 0xff00ff	363	dd 0xff00ff
374	dd 0xffffff	364	dd 0xffffff
375	dd 0xffffff	365	dd 0xffffff
376	dd 0xffffff	366	dd 0xffffff
377	dd 0xffffff	367	dd 0xffffff
378	dd 0xffffff	368	dd 0xffffff
379	dd 0xffffff	369	dd 0xffffff
380		370
381		371
382	draw_text:	372	draw_text:
383		373
384	pusha	374	pusha
385		375
386	mov esi,text	376	mov esi,text
387	mov eax,0	377	mov eax,0
388	mov ebx,0	378	mov ebx,0
389	newletter:	379	newletter:
390	mov cl,[esi]	380	mov cl,[esi]
391	mov dl,[esi+60*80]	381	mov dl,[esi+60*80]
392	cmp cl,[esi+30*80]	382	cmp cl,[esi+30*80]
393	jne yesletter	383	jne yesletter
394	cmp dl,[esi+90*80]	384	cmp dl,[esi+90*80]
395	jne yesletter	385	jne yesletter
396	jmp noletter	386	jmp noletter
397	yesletter:	387	yesletter:
398	mov [esi+30*80],cl	388	mov [esi+30*80],cl
399	mov [esi+90*80],dl	389	mov [esi+90*80],dl
400		390
401	pusha	391	pusha
402	and edx,0xff	392	and edx,0xff
403	shl edx,2	393	shl edx,2
404	add edx,bgc	394	add edx,bgc
405	mov edx,[edx]	395	mov edx,[edx]
406	mov ecx,ebx	396	mov ecx,ebx
407	add ecx,26	397	add ecx,26
408	shl ecx,16	398	shl ecx,16
409	mov cx,9	399	mov cx,9
410	mov ebx,eax	400	mov ebx,eax
411	add ebx,6	401	add ebx,6
412	shl ebx,16	402	shl ebx,16
413	mov bx,6	403	mov bx,6
414	mov eax,13	404	mov eax,13
415	mcall	405	mcall
416	popa	406	popa
417		407
418	pusha	408	pusha
419	and edx,0xff	409	and edx,0xff
420	shl edx,2	410	shl edx,2
421	add edx,tc	411	add edx,tc
422	mov ecx,[edx]	412	mov ecx,[edx]
423	push bx	413	push bx
424	mov ebx,eax	414	mov ebx,eax
425	add ebx,6	415	add ebx,6
426	shl ebx,16	416	shl ebx,16
427	pop bx	417	pop bx
428	add bx,26	418	add bx,26
429	mov eax,4	419	mov eax,4
430	mov edx,esi	420	mov edx,esi
431	mov esi,1	421	mov esi,1
432	mcall	422	mcall
433	popa	423	popa
434		424
435	noletter:	425	noletter:
436		426
437	add esi,1	427	add esi,1
438	add eax,6	428	add eax,6
439	cmp eax,80*6	429	cmp eax,80*6
440	jb newletter	430	jb newletter
441	mov eax,0	431	mov eax,0
442	add ebx,10	432	add ebx,10
443	cmp ebx,24*10	433	cmp ebx,24*10
444	jb newletter	434	jb newletter
445		435
446	popa	436	popa
447	ret	437	ret
448		438
449		439
450	esc_command:	440	esc_command:
451		441
452	mov eax,32	442	mov eax,32
453	mov edi,esccmd	443	mov edi,esccmd
454	mov ecx,10	444	mov ecx,10
455	cld	445	cld
456	rep stosb	446	rep stosb
457	mov edi,esccmd	447	mov edi,esccmd
458	newescc:	448	newescc:
459	mov eax,42	449	mov eax,42
460	mov ebx,4	450	mov ebx,4
461	mcall	451	mcall
462	cmp ecx,0	452	cmp ecx,0
463	je escok	453	je escok
464	mov eax,5	454	mov eax,5
465	mov ebx,1	455	mov ebx,1
466	mcall	456	mcall
467	jmp newescc	457	jmp newescc
468	escok:	458	escok:
469	mov [edi],bl	459	mov [edi],bl
470	add edi,1	460	add edi,1
471	cmp edi,esccmd+20	461	cmp edi,esccmd+20
472	je dontunderstand	462	je dontunderstand
473	mov esi,escend	463	mov esi,escend
474	nec:	464	nec:
475	cmp bl,[esi]	465	cmp bl,[esi]
476	jz com_ok	466	jz com_ok
477	add esi,1	467	add esi,1
478	cmp [esi],byte 0	468	cmp [esi],byte 0
479	je newescc	469	je newescc
480	jmp nec	470	jmp nec
481	com_ok:	471	com_ok:
482		472
483	call get_numbers	473	call get_numbers
484		474
485	cmp bl,'H' ; SET CURSOR POSITION	475	cmp bl,'H' ; SET CURSOR POSITION
486	jne no_cursor_position	476	jne no_cursor_position
487	cmp [escnumbers],0	477	cmp [escnumbers],0
488	jne ncp1	478	jne ncp1
489	mov [pos],dword 0	479	mov [pos],dword 0
490	jmp cmd_done	480	jmp cmd_done
491	ncp1:	481	ncp1:
492	mov eax,[escnumbers]	482	mov eax,[escnumbers]
493	dec eax	483	dec eax
494	imul eax,80	484	imul eax,80
495	add eax,[escnumbers+4]	485	add eax,[escnumbers+4]
496	dec eax	486	dec eax
497	mov [pos],eax	487	mov [pos],eax

Subversion Repositories Kolibri OS

(root)/programs/network/terminal/trunk/terminal.asm – Rev 485 → 1247