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

Subversion Repositories Kolibri OS

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