Subversion Repositories Kolibri OS

Rev

Rev 485 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 485 Rev 1247
Line 39... Line 39...
39
39
Line 40... Line 40...
40 
    jmp  still
 40 
    jmp  still
- 
 
 41
- 
 
 42
- 
 
 43 
read_input:
41
44 
    mcall 42,4,text+120*80
42
45 
    test eax, eax
43 
read_input:
 46 
    jle  still
44
47 
 
45 
    push ecx
 - 
 
46 
    mov  eax,42
 48 
read_input_loop:
47 
    mov  ebx,4
 - 
 
48 
    mcall
 49 
    mov  bl,[ecx]
49 
    pop  ecx
 50 
    inc  ecx
50
51 
    push eax ecx
51 
    cmp  bl,27				; ESCAPE COMMAND
 52 
    cmp  bl,27				; ESCAPE COMMAND
52 
    jne  no_esc
 53 
    jne  no_esc
Line 118... Line 119...
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
Line 129... Line 129...
129
129
Line 159... Line 159...
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
Line 169... Line 167...
169
167
170 
  button:			; BUTTON
 168 
  button:			; BUTTON
171 
    mov  eax,17
 169 
    mov  eax,17
Line 203... Line 201...
203
201
Line 204... Line 202...
204 
to_modem:
 202 
to_modem:
Line 205... Line 203...
205
203
206 
    pusha
 204 
    pusha
207
- 
 
208 
    mov  ecx,0x3f8
 - 
 
209 
    mov  ebx,eax
 205
210 
    mov  eax,43
 206 
    mov  dx,0x3f8
211 
    mcall
 207 
    out  dx,al
Line 212... Line 208...
212 
    mov  eax,5
 208 
    mov  eax,5
Line 279... Line 275...
279 
    mov  ecx,4
 275 
    mov  ecx,4
280 
    mcall
 276 
    mcall
Line 281... Line 277...
281
277
Line 282... Line 278...
282 
;    jmp  noportint
 278 
;    jmp  noportint
283
279
284 
    mov  cx,0x3f8+3
 280 
    mov  dx,0x3f8+3
285 
    mov  bl,0x80
 - 
 
286 
    mov  eax,43
 281 
    mov  al,0x80
287 
    mcall
 282 
    out  dx,al
288
283
289 
    mov  cx,0x3f8+1
 284 
    mov  dx,0x3f8+1
290 
    mov  bl,0
 - 
 
291 
    mov  eax,43
 285 
    mov  al,0
292 
    mcall
 286 
    out  dx,al
293
287
294 
    mov  cx,0x3f8+0
 288 
    mov  dx,0x3f8+0
295 
    mov  bl,0x30 / 16
 - 
 
296 
    mov  eax,43
 289 
    mov  al,0x30 / 16
297 
    mcall
 290 
    out  dx,al
298
291
299 
    mov  cx,0x3f8+3
 292 
    mov  dx,0x3f8+3
300 
    mov  bl,3
 - 
 
301 
    mov  eax,43
 293 
    mov  al,3
302 
    mcall
 294 
    out  dx,al
303
295
304 
    mov  cx,0x3f8+4
 296 
    mov  dx,0x3f8+4
305 
    mov  bl,0xB
 - 
 
306 
    mov  eax,43
 297 
    mov  al,0xB
307 
    mcall
 298 
    out  dx,al
308
299
309 
    mov  cx,0x3f8+1
 300 
    mov  dx,0x3f8+1
310 
    mov  bl,1
 - 
 
Line 311... Line 301...
311 
    mov  eax,43
 301 
    mov  al,1
Line 312... Line 302...
312 
    mcall
 302 
    out  dx,al
313
303
Line 733... Line 723...
733 
db '             '
 723 
db '             '
734 
db '                                                                   '
 724 
db '                                                                   '
735 
db '             '
 725 
db '             '
Line 736... Line 726...
736
726
737 
I_END:
 - 
 
738 

            727
            
I_END: