| 0,0 → 1,491 |
|---|
| ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
| ;; ;; |
| ;; Copyright (C) KolibriOS team 2014. All rights reserved. ;; |
| ;; Distributed under terms of the GNU General Public License ;; |
| ;; ;; |
| ;; terminal for KolibriOS ;; |
| ;; ;; |
| ;; Written by hidnplayr@kolibrios.org ;; |
| ;; ;; |
| ;; GNU GENERAL PUBLIC LICENSE ;; |
| ;; Version 2, June 1991 ;; |
| ;; ;; |
| ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
| |
| format binary as "" |
| |
| use32 |
| org 0x0 |
| |
| db 'MENUET01' |
| dd 0x1 |
| dd START |
| dd I_END |
| dd IM_END+0x1000 |
| dd IM_END+0x1000 |
| dd 0, 0 |
| |
| include '../../proc32.inc' |
| include '../../macros.inc' |
| include '../../dll.inc' |
| include '../../develop/libraries/box_lib/trunk/box_lib.mac' |
| |
| |
| START: |
| |
| mcall 68, 11 |
| |
| stdcall dll.Load, @IMPORT |
| or eax, eax |
| jnz exit |
| |
| mcall 40, EVM_MOUSE + EVM_MOUSE_FILTER + EVM_REDRAW + EVM_BUTTON + EVM_KEY |
| |
| invoke init_checkbox, ch1 |
| |
| red_win: |
| call draw_window |
| |
| mainloop: |
| mcall 10 |
| |
| dec eax |
| jz red_win |
| |
| dec eax |
| jz key |
| |
| dec eax |
| jz button |
| |
| invoke edit_box_mouse, edit1 |
| invoke edit_box_mouse, edit2 |
| invoke edit_box_mouse, edit3 |
| invoke edit_box_mouse, edit4 |
| |
| invoke option_box_mouse, Option_boxs1 |
| invoke option_box_mouse, Option_boxs2 |
| |
| invoke check_box_mouse, ch1 |
| |
| jmp mainloop |
| |
| button: |
| mcall 17 |
| |
| cmp ah, 0x10 ; connect button |
| je open_connection |
| |
| test ah , ah |
| jz mainloop |
| exit: |
| mcall -1 |
| |
| key: |
| mcall 2 |
| |
| cmp ah, 13 ; enter key |
| je open_connection |
| |
| invoke edit_box_key, edit1 |
| invoke edit_box_key, edit2 |
| invoke edit_box_key, edit3 |
| invoke edit_box_key, edit4 |
| |
| jmp mainloop |
| |
| |
| |
| draw_window: |
| ; get system colors |
| mcall 48, 3, sc, 40 |
| |
| mcall 12,1 |
| mov edx, [sc.work] |
| or edx, 0x34000000 |
| xor esi, esi |
| mov edi, str_title |
| mcall 0, 50 shl 16 + 400, 30 shl 16 + 180 |
| |
| mov ebx, 5 shl 16 + 15 |
| mov ecx, 0x80000000 |
| or ecx, [sc.work_text] |
| mov edx, str_port |
| mcall 4 |
| mov ebx, 5 shl 16 + 35 |
| mov edx, str_speed |
| mcall |
| mov ebx, 5 shl 16 + 55 |
| mov edx, str_data |
| mcall |
| mov ebx, 5 shl 16 + 75 |
| mov edx, str_stop |
| mcall |
| |
| mov ebx, 180 shl 16 + 10 |
| mov edx, str_parity |
| mcall |
| mov ebx, 270 shl 16 + 10 |
| mov edx, str_flow |
| mcall |
| |
| invoke edit_box_draw, edit1 |
| invoke edit_box_draw, edit2 |
| invoke edit_box_draw, edit3 |
| invoke edit_box_draw, edit4 |
| |
| invoke option_box_draw, Option_boxs1 |
| invoke option_box_draw, Option_boxs2 |
| |
| invoke check_box_draw, ch1 |
| |
| mov esi, [sc.work_button] |
| mcall 8, 270 shl 16 + 100, 105 shl 16 + 16, 0x10 |
| |
| mov ecx, 0x80000000 |
| or ecx, [sc.work_button_text] |
| mcall 4, 300 shl 16 + 110, , str_open |
| |
| |
| mov edx, [sc.work_graph] |
| mcall 38, 0 shl 16 + 390, 135 shl 16 + 135 |
| |
| mov ecx, 0x80000000 |
| or ecx, [sc.work_text] |
| mcall 4, 5 shl 16 + 142, , [errormsg] |
| |
| mcall 12, 2 |
| ret |
| |
| |
| open_connection: |
| |
| mov [errormsg], err_none ; clear previous error message |
| |
| ; Read the serial port name, and convert it to a port number |
| cmp byte[ed_port+4], 0 |
| jne .port_error |
| mov eax, dword[ed_port] |
| or eax, 0x20202020 ; convert to lowercase |
| cmp eax, 'com1' |
| je .com1 |
| cmp eax, 'com2' |
| je .com2 |
| cmp eax, 'com3' |
| je .com3 |
| cmp eax, 'com4' |
| je .com4 |
| .port_error: |
| mov [errormsg], err_port |
| jmp red_win |
| |
| .com1: |
| mov [port], 0x3f8 |
| jmp .port_ok |
| .com2: |
| mov [port], 0x2f8 |
| jmp .port_ok |
| .com3: |
| mov [port], 0x3e8 |
| jmp .port_ok |
| .com4: |
| mov [port], 0x2e8 |
| .port_ok: |
| |
| ; reserve the com port so we can work with it |
| xor ebx, ebx |
| movzx ecx, [port] |
| mov edx, ecx |
| add edx, 7 |
| mcall 46 |
| test eax, eax |
| jz .port_reserved |
| mov [errormsg], err_reserve |
| jmp red_win |
| .port_reserved: |
| |
| ; disable com interrupts |
| ; (We cannot receive them on the application level :( ) |
| mov dx, [port] |
| inc dx |
| mov al, 0 |
| out dx, al |
| |
| ; Set speed: |
| ; Convert the ascii decimal number that user entered |
| ; So we can do some math with it |
| mov esi, ed_speed |
| xor eax, eax |
| xor ebx, ebx |
| .convert_loop: |
| lodsb |
| test al, al |
| jz .convert_done |
| sub al, '0' |
| jb .invalid_speed |
| cmp al, 9 |
| ja .invalid_speed |
| lea ebx, [ebx + 4*ebx] |
| shl ebx, 1 |
| add ebx, eax |
| jmp .convert_loop |
| .invalid_speed: |
| call free_port |
| mov [errormsg], err_speed |
| jmp red_win |
| .convert_done: |
| test ebx, ebx |
| jz .invalid_speed |
| |
| ; We now have the speed setting in ebx |
| ; calculate the divisor latch value as 115200/ebx |
| xor edx, edx |
| mov eax, 115200 |
| div ebx |
| test edx, edx |
| jnz .invalid_speed |
| cmp eax, 0xffff |
| ja .invalid_speed |
| mov bx, ax |
| |
| ; enable Divisor latch |
| mov dx, [port] |
| add dx, 3 |
| mov al, 1 shl 7 ; dlab bit |
| out dx, al |
| |
| ; Set divisor latch value |
| mov dx, [port] |
| mov al, bl |
| out dx, al |
| inc dx |
| mov al, bh |
| out dx, al |
| |
| ; Check the parity type |
| xor bl, bl |
| cmp [option_group1], op1 ; none |
| je .parity_ok |
| |
| mov bl, 001b shl 3 |
| cmp [option_group1], op2 ; odd |
| je .parity_ok |
| |
| mov bl, 011b shl 3 |
| cmp [option_group1], op3 ; even |
| je .parity_ok |
| |
| mov bl, 101b shl 3 |
| cmp [option_group1], op4 ; mark |
| je .parity_ok |
| |
| mov bl, 111b shl 3 |
| cmp [option_group1], op5 ; space |
| je .parity_ok |
| jmp exit2 ; something went terribly wrong |
| .parity_ok: |
| |
| ; Check number of stop bits |
| cmp [ed_stop], '1' |
| je .stop_ok |
| cmp [ed_stop], '2' |
| jne .invalid_stop |
| or bl, 1 shl 2 ; number of stop bits |
| jmp .stop_ok |
| .invalid_stop: |
| call free_port |
| mov [errormsg], err_stopbits |
| jmp red_win |
| .stop_ok: |
| |
| ; Check number of data bits |
| mov al, [ed_data] |
| cmp al, '8' |
| ja .invalid_data |
| sub al, '5' |
| jae .data_ok |
| .invalid_data: |
| call free_port |
| mov [errormsg], err_databits |
| jmp red_win |
| .data_ok: |
| or al, bl |
| ; Program data bits, stop bits and parity in the UART |
| mov dx, [port] |
| add dx, 3 ; Line Control Register |
| out dx, al |
| |
| ; clear + enable fifo (64 bytes), 1 byte trigger level |
| mov dx, [port] |
| inc dx |
| inc dx |
| mov al, 0x7 + 1 shl 5 |
| out dx, al |
| |
| ; flow control |
| mov dx, [port] |
| add dx, 4 |
| mov al, 0xb |
| out dx, al |
| |
| ; Hide our GUI window and open the console |
| mcall 40, 0 ; disable all events |
| mcall 67, 0, 0, 0, 0 ; hide window |
| mcall 12, 1 |
| mcall 12, 2 |
| |
| invoke con_start, 1 |
| invoke con_init, 80, 25, 80, 25, str_title |
| |
| console_loop: |
| mcall 5, 1 ; wait 10 ms |
| |
| invoke con_get_flags |
| test eax, 0x200 ; con window closed? |
| jnz exit2 |
| |
| .tx_loop: |
| invoke con_kbhit |
| test eax, eax ; did user press a key? |
| jz .rx_loop |
| |
| invoke con_getch2 ; get the pressed key from buffer |
| mov dx, [port] |
| out dx, al |
| |
| test [ch1.flags], ch_flag_en ; does user want us to echo locally? |
| je .tx_loop |
| |
| and eax, 0xff |
| push eax |
| invoke con_write_asciiz, esp ; print the character |
| pop eax |
| jmp .tx_loop |
| |
| .rx_loop: |
| mov dx, [port] |
| add dx, 5 ; Line status register |
| in al, dx |
| test al, 1 ; Data ready? |
| jz console_loop |
| |
| mov dx, [port] ; Read character from buffer |
| in al, dx |
| |
| and eax, 0xff |
| push eax |
| invoke con_write_asciiz, esp ; print the character |
| pop eax |
| |
| jmp .rx_loop |
| |
| |
| exit2: |
| |
| call free_port |
| mcall -1 ; exit |
| |
| free_port: |
| |
| xor ebx, ebx |
| inc ebx |
| movzx ecx, [port] |
| mov edx, ecx |
| add edx, 7 |
| mcall 46 |
| |
| ret |
| |
| ;------------------------- |
| ; DATA |
| |
| align 16 |
| @IMPORT: |
| |
| library box_lib, 'box_lib.obj',\ |
| console, 'console.obj' |
| |
| import box_lib,\ |
| edit_box_draw, 'edit_box',\ |
| edit_box_key, 'edit_box_key',\ |
| edit_box_mouse, 'edit_box_mouse',\ |
| init_checkbox, 'init_checkbox2',\ |
| check_box_draw, 'check_box_draw2',\ |
| check_box_mouse, 'check_box_mouse2',\ |
| option_box_draw, 'option_box_draw',\ |
| option_box_mouse, 'option_box_mouse' |
| |
| import console,\ |
| con_start, 'START',\ |
| con_init, 'con_init',\ |
| con_exit, 'con_exit',\ |
| con_getch2, 'con_getch2',\ |
| con_write_asciiz, 'con_write_asciiz',\ |
| con_get_flags, 'con_get_flags',\ |
| con_kbhit, 'con_kbhit' |
| |
| edit1 edit_box 60, 90, 10, 0xffffff, 0x6f9480, 0, 0, 0, 8, ed_port, mouse_dd, ed_focus, 4, 4 |
| edit2 edit_box 60, 90, 30, 0xffffff, 0x6a9480, 0, 0, 0, 7, ed_speed, mouse_dd, ed_figure_only, 4, 4 |
| edit3 edit_box 60, 90, 50, 0xffffff, 0x6a9480, 0, 0, 0, 1, ed_data, mouse_dd, ed_figure_only, 1, 1 |
| edit4 edit_box 60, 90, 70, 0xffffff, 0x6a9480, 0, 0, 0, 1, ed_stop, mouse_dd, ed_figure_only, 1, 1 |
| |
| ed_port db "COM1",0,0,0,0,0,0 |
| ed_speed db "9600",0,0,0 |
| ed_data db "8",0 |
| ed_stop db "1",0 |
| |
| option_group1 dd op1 |
| op1 option_box option_group1, 180, 27, 6, 12, 0xffffff, 0, 0, str_none, 4 |
| op2 option_box option_group1, 180, 44, 6, 12, 0xffffff, 0, 0, str_odd, 3 |
| op3 option_box option_group1, 180, 61, 6, 12, 0xffffff, 0, 0, str_even, 4 |
| op4 option_box option_group1, 180, 78, 6, 12, 0xffffff, 0, 0, str_mark, 4 |
| op5 option_box option_group1, 180, 95, 6, 12, 0xffffff, 0, 0, str_space, 5 |
| |
| option_group2 dd op6 |
| op6 option_box option_group2, 270, 27, 6, 12, 0xffffff, 0, 0, str_none, 4 |
| ;op7 option_box option_group2, 270, 44, 6, 12, 0xffffff, 0, 0, str_xon, 8, 10b |
| ;op8 option_box option_group2, 270, 61, 6, 12, 0xffffff, 0, 0, str_rts, 7, 1b |
| ;op9 option_box option_group2, 270, 78, 6, 12, 0xffffff, 0, 0, str_dsr, 7 |
| |
| ch1 check_box2 5 shl 16 + 12, 105 shl 16 + 12, 5, 0xffffff, 0x000000, 0x000000, str_echo, ch_flag_middle |
| |
| Option_boxs1 dd op1, op2, op3, op4, op5, 0 |
| Option_boxs2 dd op6, 0 ;op7, op8, op9, 0 |
| |
| str_title db 'Terminal', 0 |
| str_port db 'Serial port:', 0 |
| str_speed db 'Speed (baud):', 0 |
| str_data db 'Data bits:', 0 |
| str_parity db 'Parity:', 0 |
| str_flow db 'Flow control:', 0 |
| str_stop db 'Stop bits:', 0 |
| |
| str_open db 'Open', 0 |
| |
| str_none db 'None' |
| str_odd db 'Odd' |
| str_even db 'Even' |
| str_mark db 'Mark' |
| str_space db 'Space' |
| ;str_xon db 'XON/XOFF' |
| ;str_rts db 'RTS/CTS' |
| ;str_dsr db 'DSR/DTR' |
| |
| str_echo db 'Local echo', 0 |
| |
| errormsg dd err_none |
| err_none db 0 |
| err_port db 'Invalid serial port.', 0 |
| err_reserve db 'The port is already in use.', 0 |
| err_speed db 'Incorrect speed setting.', 0 |
| err_stopbits db 'Invalid number of stop bits. Must be 1 or 2.', 0 |
| err_databits db 'Invalid number of data bits. Must be between 5 and 8.', 0 |
| |
| I_END: |
| |
| mouse_dd dd ? |
| echo db ? |
| port dw ? |
| sc system_colors |
| |
| IM_END: |