forked from KolibriOS/kolibrios
176 lines
3.5 KiB
NASM
176 lines
3.5 KiB
NASM
; Text CodePage = cp1251
|
|
|
|
; <--- include all MeOS stuff --->
|
|
|
|
include "../../../../../macros.inc"
|
|
|
|
|
|
; <--- start of MenuetOS application --->
|
|
MEOS_APP_START
|
|
|
|
include "key_read.inc"
|
|
|
|
; <--- start of code --->
|
|
CODE
|
|
|
|
mov eax,48 ; get system colors
|
|
mov ebx,3
|
|
mov ecx,sc
|
|
mov edx,sizeof.system_colors
|
|
mcall
|
|
|
|
xor ecx, ecx
|
|
inc ecx
|
|
mcall 66,1 ; óñòàíîâêà ðåæèìà ââîäà ñêàíêîäîâ
|
|
|
|
|
|
|
|
redraw: ; redraw event handler
|
|
call draw_window ; at first create and draw the window
|
|
|
|
wait_event: ; main cycle
|
|
|
|
mcall 10 ; îæèäàòü ñîáûòèå
|
|
|
|
; mcall 23, 2 ; âàðèàíò ïîñòîÿííûé îïðîñ
|
|
; or eax, eax
|
|
; jz key.1
|
|
|
|
dec eax ; if event = 1
|
|
jz redraw ; jump to redraw handler
|
|
dec eax ; else if event = 2
|
|
jz key ; jump to key handler
|
|
|
|
|
|
button: ; button event handler
|
|
mov al, 17 ; get button identifier
|
|
mcall
|
|
|
|
cmp ah, 1
|
|
jne wait_event ; return if button id != 1
|
|
|
|
or eax, -1 ; exit application
|
|
mcall
|
|
|
|
key: ; key event handler
|
|
; get key code
|
|
call load_keys
|
|
; ïðåîáðàçîâàíèå
|
|
.1:
|
|
mov ah, 0xfe
|
|
mov edx, txt_data.fe
|
|
call load_ports
|
|
|
|
mov ah, 0xfd
|
|
mov edx, txt_data.fd
|
|
call load_ports
|
|
|
|
mov ah, 0xfb
|
|
mov edx, txt_data.fb
|
|
call load_ports
|
|
|
|
mov ah, 0xf7
|
|
mov edx, txt_data.f7
|
|
call load_ports
|
|
|
|
mov ah, 0xef
|
|
mov edx, txt_data.ef
|
|
call load_ports
|
|
|
|
mov ah, 0xdf
|
|
mov edx, txt_data.df
|
|
call load_ports
|
|
|
|
mov ah, 0xbf
|
|
mov edx, txt_data.bf
|
|
call load_ports
|
|
|
|
mov ah, 0x7f
|
|
mov edx, txt_data.7f
|
|
call load_ports
|
|
|
|
mov ah, 0x00
|
|
mov edx, txt_data.00
|
|
call load_ports
|
|
|
|
|
|
|
|
jmp redraw
|
|
|
|
draw_window:
|
|
mov eax, 12 ; start drawing
|
|
mov ebx, 1
|
|
mcall
|
|
|
|
xor eax, eax ; create and draw the window
|
|
mov ebx, 40*65536+560 ; (window_cx)*65536+(window_sx)
|
|
mov ecx, 40*65536+240 ; (window_cy)*65536+(window_sy)
|
|
mov edx, [sc.work] ; work area color
|
|
or edx, 0x33000000 ; & window type 3
|
|
mov edi, title ; window title
|
|
int 0x40
|
|
|
|
mov ecx, [sc.work_text]
|
|
or ecx, 0x80000000
|
|
mov edx, txt_data
|
|
mcall 4, 10*65536+40
|
|
mov edx, txt_data.2s
|
|
mcall 4, 10*65536+60
|
|
mov edx, txt_data.3s
|
|
mcall 4, 10*65536+80
|
|
|
|
|
|
mov eax, 12 ; finish drawing
|
|
mov ebx, 2
|
|
mcall
|
|
|
|
ret
|
|
|
|
|
|
load_ports: ; âõîä ah - ñòàðøèé áàéò ïîðòà
|
|
; edx - àäðåñ òåêñòà
|
|
mov al, 0xFE
|
|
call load_port_FE
|
|
|
|
rept 8
|
|
{
|
|
mov bl, '1'
|
|
shl al,1
|
|
jc @f
|
|
mov bl, '0'
|
|
@@:
|
|
mov byte [edx], bl
|
|
inc edx
|
|
}
|
|
|
|
ret
|
|
|
|
|
|
|
|
|
|
; <--- initialised data --->
|
|
DATA
|
|
|
|
|
|
title db 'Key ZX-Spectrum TEST',0
|
|
|
|
txt_data db '#FE: '
|
|
.fe db '******** #FD: '
|
|
.fd db '******** #FB: '
|
|
.fb db '******** #F7: '
|
|
.f7 db '******** ', 0
|
|
.2s db '#EF: '
|
|
.ef db '******** #DF: '
|
|
.df db '******** #BF: '
|
|
.bf db '******** #7F: '
|
|
.7f db '******** ', 0
|
|
.3s db '#00: '
|
|
.00 db '******** ', 0
|
|
|
|
|
|
; <--- uninitialised data --->
|
|
UDATA
|
|
sc system_colors
|
|
|
|
MEOS_APP_END
|
|
; <--- end of MenuetOS application ---> |