Rev 4943 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 4943 | Rev 6163 | ||
---|---|---|---|
Line 24... | Line 24... | ||
24 | LIST_ITEM_Y equ LIST_ITEM_SIZE / 2 - 3 |
24 | LIST_ITEM_Y equ LIST_ITEM_SIZE / 2 - 3 |
Line 25... | Line 25... | ||
25 | 25 | ||
Line 26... | Line 26... | ||
26 | KEYB_SIZE equ 140 |
26 | KEYB_SIZE equ 140 |
27 | 27 | ||
28 | sz_cont db "Keyboard ", 0x10 |
28 | sz_cont db "Keyboard ", 0x10 |
29 | sz_head db "Calc+ [v", VERSION, "]", 0 |
29 | sz_head db "Calc+ v", VERSION, 0 |
30 | btn_clr db "" |
30 | btn_clr db "" |
31 | buttons db "|%^*/-+)(=7894561230" |
31 | buttons db "|%^*/-+)(=7894561230" |
Line 43... | Line 43... | ||
43 | main: |
43 | main: |
44 | mov [ans.buffer], dword "= 0" |
44 | mov [ans.buffer], dword "= 0" |
45 | mov [ans.size], 3 * 6 + 9 |
45 | mov [ans.size], 3 * 6 + 9 |
Line 46... | Line 46... | ||
46 | 46 | ||
47 | mcall 40, 100111b |
47 | mcall 40, 100111b |
Line 48... | Line 48... | ||
48 | mcall 48, 3, scn, 192 |
48 | ; mcall 48, 3, scn, 192 |
49 | 49 | ||
50 | 50 | ||
Line 81... | Line 81... | ||
81 | mov edx, [scn.win_face] |
81 | mov edx, [scn.win_face] |
82 | or edx, 0x34 shl 24 |
82 | or edx, 0x34 shl 24 |
83 | mcall 0, <100, 236 + 100 - 50 - 25>, <100, 66 + LIST_SIZE>, , , sz_head |
83 | mcall 0, <100, 236 + 100 - 50 - 25>, <100, 66 + LIST_SIZE>, , , sz_head |
Line 84... | Line 84... | ||
84 | 84 | ||
85 | ; TOOLBAR |
85 | ; TOOLBAR |
86 | mov ebx, (275 - 50 - 25 - 50) shl 16 + 64 |
- | |
87 | cmp [keyb], byte 1 |
- | |
88 | jne @f |
- | |
89 | add ebx, KEYB_SIZE shl 16 |
- | |
90 | @@: |
86 | mov ebx, 120 shl 16 + 64 |
91 | mcall 8, , <-17, 12>, 2 + 1 shl 30 |
87 | mcall 8, , <-17, 12>, 2 + 1 shl 30 |
92 | add ebx, 4 shl 16 - (64 + 14) |
88 | add ebx, 4 shl 16 - (64 + 14) |
Line 93... | Line 89... | ||
93 | mcall 4, , [scn.win_title], sz_cont, 10 |
89 | mcall 4, , [scn.win_title], sz_cont, 10 |
Line 151... | Line 147... | ||
151 | jne .not_keyb |
147 | jne .not_keyb |
Line 152... | Line 148... | ||
152 | 148 | ||
153 | cmp [keyb], byte 0 |
149 | cmp [keyb], byte 0 |
Line 154... | Line -... | ||
154 | je .open |
- | |
155 | 150 | je .open |
|
156 | mcall 67, -1, -1, 286 - 25, -1 |
151 | |
- | 152 | mov [keyb], 0 |
|
157 | mov [keyb], 0 |
153 | mov [sz_cont + 9], byte 0x10 |
Line 158... | Line 154... | ||
158 | mov [sz_cont + 9], byte 0x10 |
154 | mcall 67, -1, -1, 286 - 25, -1 |
159 | jmp ev_redraw |
- | |
160 | 155 | jmp update |
|
161 | .open: |
156 | |
162 | mcall 67, -1, -1, 286 - 25 + KEYB_SIZE, -1 |
157 | .open: |
163 | mov [keyb], 1 |
- | |
164 | mov [sz_cont + 9], byte 0x11 |
158 | mov [keyb], 1 |
165 | jmp ev_redraw |
159 | mov [sz_cont + 9], byte 0x11 |
Line 166... | Line 160... | ||
166 | 160 | mcall 67, -1, -1, 286 - 25 + KEYB_SIZE, -1 |
|
167 | jmp update |
161 | jmp update |
Line 629... | Line 623... | ||
629 | 623 | ||
630 | ans.buffer:rb 480 |
624 | ans.buffer:rb 480 |
631 | ans.size rd 1 |
625 | ans.size rd 1 |
Line 632... | Line -... | ||
632 | error_n rd 1 |
- | |
633 | 626 | error_n rd 1 |
|
634 | scn sys_colors_new |
627 | |
635 | timer rd 1 |
628 | timer rd 1 |
636 | but_id rd 1 |
629 | but_id rd 1 |
637 | but_c rd 1 |
630 | but_c rd 1 |
Line 642... | Line 635... | ||
642 | 635 | ||
643 | his_even rb 1 |
636 | his_even rb 1 |
644 | history rb 512 * LIST_ITEM_COUNT |
637 | history rb 512 * LIST_ITEM_COUNT |
Line -... | Line 638... | ||
- | 638 | rb 512 |
|
- | 639 | ||
- | 640 | struc system_colors_internal { |
|
- | 641 | .3d_face dd 0xCED0D0 |
|
- | 642 | .3d_dark dd 0xD7D7D7 |
|
- | 643 | .3d_light dd 0xFEFEFE |
|
- | 644 | .win_title dd 0x2F2F2F |
|
- | 645 | .win_body dd 0xE4DFE1 |
|
- | 646 | .btn_face dd 0xEFEBEF |
|
- | 647 | .btn_text dd 0x373C42 |
|
- | 648 | .win_text dd 0x000000 |
|
- | 649 | .panel_frame dd 0x94AECE |
|
- | 650 | .win_face dd 0xE1E1E1 |
|
- | 651 | .win_inface dd 0xE1E1E1 |
|
- | 652 | .win_frame dd 0x204962 |
|
- | 653 | .btn_inface dd 0xEFEBEF |
|
- | 654 | .btn_intext dd 0xD0D9E8 |
|
- | 655 | .btn_fctext dd 0x2D3135 |
|
- | 656 | .gui_shadow dd 0xFFFFFF |
|
- | 657 | .gui_face dd 0xFAF8FA |
|
- | 658 | .gui_inface dd 0xF6F3F6 |
|
- | 659 | .gui_fcface dd 0xFAF8FA |
|
- | 660 | .gui_frame dd 0x7698C0 |
|
- | 661 | .gui_text dd 0x373C42 |
|
- | 662 | .gui_intext dd 0x5F5F5F |
|
- | 663 | .gui_select dd 0xC7C9C9 |
|
- | 664 | } |
|
- | 665 | ||
645 | rb 512 |
666 | scn system_colors_internal |