From d49a6b22ff4bdffb8ddb505bf5a5a7c67687ba27 Mon Sep 17 00:00:00 2001 From: Andrew Date: Thu, 22 May 2025 11:36:12 +0100 Subject: [PATCH] develop/asciivju: Post-SVN tidy - Move source code from `trunk` into program root directory. - Update build files and ASM include paths. - Note: Line endings standardised from `CRLF` > `LF`, so best to view diffs with whitespace changes hidden. --- .../develop/asciivju/{trunk => }/Tupfile.lua | 0 .../develop/asciivju/{trunk => }/asciivju.asm | 654 +++++++++--------- 2 files changed, 329 insertions(+), 325 deletions(-) rename programs/develop/asciivju/{trunk => }/Tupfile.lua (100%) rename programs/develop/asciivju/{trunk => }/asciivju.asm (95%) diff --git a/programs/develop/asciivju/trunk/Tupfile.lua b/programs/develop/asciivju/Tupfile.lua similarity index 100% rename from programs/develop/asciivju/trunk/Tupfile.lua rename to programs/develop/asciivju/Tupfile.lua diff --git a/programs/develop/asciivju/trunk/asciivju.asm b/programs/develop/asciivju/asciivju.asm similarity index 95% rename from programs/develop/asciivju/trunk/asciivju.asm rename to programs/develop/asciivju/asciivju.asm index c66b232d6..72a535bca 100644 --- a/programs/develop/asciivju/trunk/asciivju.asm +++ b/programs/develop/asciivju/asciivju.asm @@ -1,325 +1,329 @@ -use32 - org 0x0 - db 'MENUET01' - dd 0x01,start,i_end,e_end,e_end,0,0 - -include '../../../proc32.inc' -include '../../../macros.inc' - -BUTTON_SIDE = 28 ; button are squares -BUTTON_SPACE = 34 ; space between cols and rows -BUTTON_ID_SHIFT = 2 ; button_id = character + BUTTON_ID_SHIFT -TABLE_BEGIN_X = 2 -TABLE_BEGIN_Y = 2 -PANEL_Y = BUTTON_SPACE*8+TABLE_BEGIN_Y+TABLE_BEGIN_Y - -FOCUS_SQUARE_COLOR = 0x000080FF -SWITCHER_BLINK_COLOR = 0x00808080 - -FONT_SMALL = 0x01000000 -FONT_BIG = 0x10000000 - - -start: -still: - mcall 10 - dec eax - jz redraw - dec eax - jz key - -button: - mcall 17 - shr eax, 8 - - cmp eax, 1 - je quit - cmp ax, 0xFFAA ; page switcher - je .switch_page ; any button with a character - cmp ax, 0xEEBB ; page switcher - je .switch_font - .change_focus: - mov bl, [symbol_focused] - mov [symbol_unfocused], bl - sub ax, BUTTON_ID_SHIFT ; get the corresponding character - mov [symbol_focused], al - stdcall draw_table, 0 - call draw_codes - jmp still - .switch_font: - cmp [font_type], FONT_SMALL - jne @f - mov [font_type], FONT_BIG - jmp redraw - @@: mov [font_type], FONT_SMALL - jmp redraw - .switch_page: - movzx bx, [symbol_start] - add bx, BUTTON_ID_SHIFT - mov cx, 128 ; half of page - mov edx, 0x80000000 - mov dx, bx - @@: mcall 8 - inc edx - dec cx - jnz @b - - @@: add [symbol_start], 128 ; change page - add [symbol_focused], 128 - stdcall draw_table, 1 ; 1 means redraw the whole table - call draw_codes - stdcall draw_page_switcher, 1 ; 1 means dark color, for blinking - mcall 5, 10 - stdcall draw_page_switcher, 0 ; 0 means usual light color - jmp still - -redraw: - mcall 9, proc_info, -1 - - mcall 12, 1 - - mcall 48, 4 ; get skin height - mov ecx, 200*0x10000+PANEL_Y+33 - add ecx, eax - mov ebx, 200*0x10000+BUTTON_SPACE*16+TABLE_BEGIN_X+TABLE_BEGIN_X+9 - mcall 0, , , 0x34AAAaaa, 0x80000000, window_title - test [proc_info.wnd_state], 0x04 - jnz @f - - stdcall draw_table, 1 - call draw_codes - stdcall draw_page_switcher, 0 - stdcall draw_font_switcher - - @@: - mcall 12, 2 - jmp still - -key: - mcall 2 - cmp ah, 0x09 ; TAB key - je button.switch_page - - cmp ah, 0xB0 ; left - jne @f - mov bl, [symbol_focused] - mov [symbol_unfocused], bl - dec bl - and bl, 0x0f - and [symbol_focused], 0xf0 - or [symbol_focused], bl - stdcall draw_table, 0 - call draw_codes - jmp still - - @@: cmp ah, 0xB1 ; down - jne @f - mov bl, [symbol_focused] - mov [symbol_unfocused], bl - add bl, 16 - and bl, 0x70 - and [symbol_focused], 0x8f - or [symbol_focused], bl - stdcall draw_table, 0 - call draw_codes - jmp still - - @@: cmp ah, 0xB2 ; up - jne @f - mov bl, [symbol_focused] - mov [symbol_unfocused], bl - sub bl, 16 - and bl, 0x70 - and [symbol_focused], 0x8f - or [symbol_focused], bl - stdcall draw_table, 0 - call draw_codes - jmp still - - @@: cmp ah, 0xB3 ; righ - jne @f - mov bl, [symbol_focused] - mov [symbol_unfocused], bl - inc bl - and bl, 0x0f - and [symbol_focused], 0xf0 - or [symbol_focused], bl - stdcall draw_table, 0 - call draw_codes - jmp still - jne @f - - @@: - jmp still - - - -proc draw_table _full_redraw - - mov al, [symbol_start] - mov [symbol_current], al - - .next_button: - - xor edi, edi ; character focus flag - mov al, [symbol_current] - cmp al, [symbol_focused] - jne @f - inc edi - @@: cmp [_full_redraw], 1 - je .draw - cmp al, [symbol_focused] - je .draw - cmp al, [symbol_unfocused] ; previously focused, should redraw to clear focus - je .draw - jmp .skip ; skip button if it isn't (un)focused - - .draw: - call draw_button - .skip: - mov bl, [symbol_start] - add bl, 127 ; end of current page - cmp [symbol_current], bl ; the last on page? - jne @f - mov [button_x], TABLE_BEGIN_X - mov [button_y], TABLE_BEGIN_Y - ret - @@: inc [symbol_current] - add [button_x], BUTTON_SPACE - cmp [button_x], BUTTON_SPACE*16+TABLE_BEGIN_X ; the last in row? - jne .next_button - add [button_y], BUTTON_SPACE ; next row - mov [button_x], TABLE_BEGIN_X - jmp .next_button - ret -endp - - -proc draw_button - mov edx, 0x80000000 - mov dl, [symbol_current] - add edx, BUTTON_ID_SHIFT - mov esi, 0xFFFfff - mcall 8, <[button_x],BUTTON_SIDE>, <[button_y],BUTTON_SIDE> - and edx, 0x7FFFFFFF - or edx, 0x20000000 - mcall - - test edi, edi ; is focused? - jz .symbol ; draw only character, not selection square - .focus_frame: ; draw a blue square (selection), 8 segments - mov esi, [button_x] - mov edi, [button_y] - - mov bx, si - shl ebx, 16 - mov bx, si - add bx, BUTTON_SIDE - mov cx, di - shl ecx, 16 - mov cx, di - mcall 38, , , FOCUS_SQUARE_COLOR - add ecx, 0x00010001 - mcall - add ecx, (BUTTON_SIDE-2)*0x10000+(BUTTON_SIDE-2) - mcall - add ecx, 0x00010001 - mcall - - mov bx, si - shl ebx, 16 - mov bx, si - mov cx, di - shl ecx, 16 - mov cx, di - add ecx, 2*0x10000+(BUTTON_SIDE-2) - mcall 38, , , - add ebx, 0x00010001 - mcall - add ebx, (BUTTON_SIDE-2)*0x10000+(BUTTON_SIDE-2) - mcall - add ebx, 0x00010001 - mcall - - .symbol: - mov ebx, [button_x] - add ebx, 9 - shl ebx, 16 - add ebx, [button_y] - add ebx, 7 - mov ecx, [font_type] - mcall 4, , , symbol_current, 1 - - ret -endp - - -proc draw_page_switcher _blinking - - mcall 8, , , 0x8000FFAA - mov esi, 0xCCCccc - cmp [_blinking], 1 ; blinking? - jne @f - mov esi, SWITCHER_BLINK_COLOR - @@: mcall , <2,98>, , 0x0000FFAA - - mov ecx, 0x81000000 - mov edx, string_000_127 - cmp [symbol_start], 0 ; first page? - je @f - mov edx, string_128_255 ; ok, the second one - @@: mcall 4, <10,PANEL_Y+6>, - mcall , <278,PANEL_Y+6>, 0x81000000, string_ASCII_CODE - - ret -endp - -proc draw_font_switcher - - mcall 8, <120,136>, , 0x0000EEBB - - mov edx, string_font_small - cmp [font_type], FONT_SMALL - je @f - mov edx, string_font_big - @@: mcall 4, <130,PANEL_Y+6>,,,10 - - ret -endp - - -proc draw_codes - - movzx ecx, [symbol_focused] - mcall 47, 0x00030000, , <339,PANEL_Y+6>, 0x41000000, 0xAAAaaa - mcall , 0x00020100, , <508,PANEL_Y+6>, - - ret -endp - - -quit: - mcall -1 - - -szZ window_title ,'ASCIIVju' -szZ string_000_127 ,'000-127' -szZ string_128_255 ,'128-255' -szZ string_font_small ,'Font1 6x9 ' -szZ string_font_big ,'Font2 8x14' -szZ string_ASCII_CODE ,'Code: Hex-Code:' - -button_x dd 2 -button_y dd 2 - -font_type dd FONT_SMALL - -symbol_current db 0 -symbol_start db 0 - -symbol_unfocused db 0 -symbol_focused db 0 -i_end: -proc_info process_information -rb 0x400 ;stack -e_end: +; SPDX-License-Identifier: NOASSERTION +; + + +use32 + org 0x0 + db 'MENUET01' + dd 0x01,start,i_end,e_end,e_end,0,0 + +include '../../proc32.inc' +include '../../macros.inc' + +BUTTON_SIDE = 28 ; button are squares +BUTTON_SPACE = 34 ; space between cols and rows +BUTTON_ID_SHIFT = 2 ; button_id = character + BUTTON_ID_SHIFT +TABLE_BEGIN_X = 2 +TABLE_BEGIN_Y = 2 +PANEL_Y = BUTTON_SPACE*8+TABLE_BEGIN_Y+TABLE_BEGIN_Y + +FOCUS_SQUARE_COLOR = 0x000080FF +SWITCHER_BLINK_COLOR = 0x00808080 + +FONT_SMALL = 0x01000000 +FONT_BIG = 0x10000000 + + +start: +still: + mcall 10 + dec eax + jz redraw + dec eax + jz key + +button: + mcall 17 + shr eax, 8 + + cmp eax, 1 + je quit + cmp ax, 0xFFAA ; page switcher + je .switch_page ; any button with a character + cmp ax, 0xEEBB ; page switcher + je .switch_font + .change_focus: + mov bl, [symbol_focused] + mov [symbol_unfocused], bl + sub ax, BUTTON_ID_SHIFT ; get the corresponding character + mov [symbol_focused], al + stdcall draw_table, 0 + call draw_codes + jmp still + .switch_font: + cmp [font_type], FONT_SMALL + jne @f + mov [font_type], FONT_BIG + jmp redraw + @@: mov [font_type], FONT_SMALL + jmp redraw + .switch_page: + movzx bx, [symbol_start] + add bx, BUTTON_ID_SHIFT + mov cx, 128 ; half of page + mov edx, 0x80000000 + mov dx, bx + @@: mcall 8 + inc edx + dec cx + jnz @b + + @@: add [symbol_start], 128 ; change page + add [symbol_focused], 128 + stdcall draw_table, 1 ; 1 means redraw the whole table + call draw_codes + stdcall draw_page_switcher, 1 ; 1 means dark color, for blinking + mcall 5, 10 + stdcall draw_page_switcher, 0 ; 0 means usual light color + jmp still + +redraw: + mcall 9, proc_info, -1 + + mcall 12, 1 + + mcall 48, 4 ; get skin height + mov ecx, 200*0x10000+PANEL_Y+33 + add ecx, eax + mov ebx, 200*0x10000+BUTTON_SPACE*16+TABLE_BEGIN_X+TABLE_BEGIN_X+9 + mcall 0, , , 0x34AAAaaa, 0x80000000, window_title + test [proc_info.wnd_state], 0x04 + jnz @f + + stdcall draw_table, 1 + call draw_codes + stdcall draw_page_switcher, 0 + stdcall draw_font_switcher + + @@: + mcall 12, 2 + jmp still + +key: + mcall 2 + cmp ah, 0x09 ; TAB key + je button.switch_page + + cmp ah, 0xB0 ; left + jne @f + mov bl, [symbol_focused] + mov [symbol_unfocused], bl + dec bl + and bl, 0x0f + and [symbol_focused], 0xf0 + or [symbol_focused], bl + stdcall draw_table, 0 + call draw_codes + jmp still + + @@: cmp ah, 0xB1 ; down + jne @f + mov bl, [symbol_focused] + mov [symbol_unfocused], bl + add bl, 16 + and bl, 0x70 + and [symbol_focused], 0x8f + or [symbol_focused], bl + stdcall draw_table, 0 + call draw_codes + jmp still + + @@: cmp ah, 0xB2 ; up + jne @f + mov bl, [symbol_focused] + mov [symbol_unfocused], bl + sub bl, 16 + and bl, 0x70 + and [symbol_focused], 0x8f + or [symbol_focused], bl + stdcall draw_table, 0 + call draw_codes + jmp still + + @@: cmp ah, 0xB3 ; righ + jne @f + mov bl, [symbol_focused] + mov [symbol_unfocused], bl + inc bl + and bl, 0x0f + and [symbol_focused], 0xf0 + or [symbol_focused], bl + stdcall draw_table, 0 + call draw_codes + jmp still + jne @f + + @@: + jmp still + + + +proc draw_table _full_redraw + + mov al, [symbol_start] + mov [symbol_current], al + + .next_button: + + xor edi, edi ; character focus flag + mov al, [symbol_current] + cmp al, [symbol_focused] + jne @f + inc edi + @@: cmp [_full_redraw], 1 + je .draw + cmp al, [symbol_focused] + je .draw + cmp al, [symbol_unfocused] ; previously focused, should redraw to clear focus + je .draw + jmp .skip ; skip button if it isn't (un)focused + + .draw: + call draw_button + .skip: + mov bl, [symbol_start] + add bl, 127 ; end of current page + cmp [symbol_current], bl ; the last on page? + jne @f + mov [button_x], TABLE_BEGIN_X + mov [button_y], TABLE_BEGIN_Y + ret + @@: inc [symbol_current] + add [button_x], BUTTON_SPACE + cmp [button_x], BUTTON_SPACE*16+TABLE_BEGIN_X ; the last in row? + jne .next_button + add [button_y], BUTTON_SPACE ; next row + mov [button_x], TABLE_BEGIN_X + jmp .next_button + ret +endp + + +proc draw_button + mov edx, 0x80000000 + mov dl, [symbol_current] + add edx, BUTTON_ID_SHIFT + mov esi, 0xFFFfff + mcall 8, <[button_x],BUTTON_SIDE>, <[button_y],BUTTON_SIDE> + and edx, 0x7FFFFFFF + or edx, 0x20000000 + mcall + + test edi, edi ; is focused? + jz .symbol ; draw only character, not selection square + .focus_frame: ; draw a blue square (selection), 8 segments + mov esi, [button_x] + mov edi, [button_y] + + mov bx, si + shl ebx, 16 + mov bx, si + add bx, BUTTON_SIDE + mov cx, di + shl ecx, 16 + mov cx, di + mcall 38, , , FOCUS_SQUARE_COLOR + add ecx, 0x00010001 + mcall + add ecx, (BUTTON_SIDE-2)*0x10000+(BUTTON_SIDE-2) + mcall + add ecx, 0x00010001 + mcall + + mov bx, si + shl ebx, 16 + mov bx, si + mov cx, di + shl ecx, 16 + mov cx, di + add ecx, 2*0x10000+(BUTTON_SIDE-2) + mcall 38, , , + add ebx, 0x00010001 + mcall + add ebx, (BUTTON_SIDE-2)*0x10000+(BUTTON_SIDE-2) + mcall + add ebx, 0x00010001 + mcall + + .symbol: + mov ebx, [button_x] + add ebx, 9 + shl ebx, 16 + add ebx, [button_y] + add ebx, 7 + mov ecx, [font_type] + mcall 4, , , symbol_current, 1 + + ret +endp + + +proc draw_page_switcher _blinking + + mcall 8, , , 0x8000FFAA + mov esi, 0xCCCccc + cmp [_blinking], 1 ; blinking? + jne @f + mov esi, SWITCHER_BLINK_COLOR + @@: mcall , <2,98>, , 0x0000FFAA + + mov ecx, 0x81000000 + mov edx, string_000_127 + cmp [symbol_start], 0 ; first page? + je @f + mov edx, string_128_255 ; ok, the second one + @@: mcall 4, <10,PANEL_Y+6>, + mcall , <278,PANEL_Y+6>, 0x81000000, string_ASCII_CODE + + ret +endp + +proc draw_font_switcher + + mcall 8, <120,136>, , 0x0000EEBB + + mov edx, string_font_small + cmp [font_type], FONT_SMALL + je @f + mov edx, string_font_big + @@: mcall 4, <130,PANEL_Y+6>,,,10 + + ret +endp + + +proc draw_codes + + movzx ecx, [symbol_focused] + mcall 47, 0x00030000, , <339,PANEL_Y+6>, 0x41000000, 0xAAAaaa + mcall , 0x00020100, , <508,PANEL_Y+6>, + + ret +endp + + +quit: + mcall -1 + + +szZ window_title ,'ASCIIVju' +szZ string_000_127 ,'000-127' +szZ string_128_255 ,'128-255' +szZ string_font_small ,'Font1 6x9 ' +szZ string_font_big ,'Font2 8x14' +szZ string_ASCII_CODE ,'Code: Hex-Code:' + +button_x dd 2 +button_y dd 2 + +font_type dd FONT_SMALL + +symbol_current db 0 +symbol_start db 0 + +symbol_unfocused db 0 +symbol_focused db 0 +i_end: +proc_info process_information +rb 0x400 ;stack +e_end: