Subversion Repositories Kolibri OS

(root)/programs/system/keybi/keybi.asm – Rev 1918

Rev 1919 | Go to most recent revision | Details | Last modification | View Log | RSS feed

Rev	Author	Line No.	Line
1918	Albom	1
		2	; by Albom
		3
		4
		5	org 0
		6	db 'MENUET01'
		7	dd 1
		8	dd _start
		9	dd _end
		10	dd _memory
		11	dd _stack
		12	dd _param
		13	dd 0
		14
		15
		16
		17
		18
		19	call _wnd_draw
		20
		21
		22
		23
		24	int 0x40
		25
		26
		27	jne @f
		28	call _wnd_draw
		29
		30
		31	cmp eax, 2
		32	jne @f
		33	call _key_check
		34
		35
		36	cmp eax, 3
		37	jne @f
		38	call _btn_check
		39
		40
		41
		42
		43
		44
		45
		46	mov eax, 66
		47	mov edx, 0
		48	mov ebx, 4
		49	mov cl, 69
		50	int 0x40
		51
		52
		53	mov edx, 0
		54	mov ebx, 4
		55	mov cl, 58
		56	int 0x40
		57
		58
		59	mov edx, 0
		60	mov ebx, 4
		61	mov cl, 70
		62	int 0x40
		63
		64
		65
		66
		67
		68	pusha
		69
		70
		71	mov ebx, 1
		72	int 0x40
		73
		74
		75	mov ebx, 10*65536+100
		76	mov ecx, 10*65536+30
		77	mov edx, 0x34ffffff
		78	mov edi, _ind
		79	int 0x40
		80
		81
		82
		83
		84	mov ebx, 2
		85	int 0x40
		86
		87
		88	ret
		89
		90
		91	pusha
		92	mov eax, 2
		93	int 0x40
		94
		95
		96
		97
		98	ret
		99
		100
		101	pusha
		102	mov eax, 17
		103	int 0x40
		104	cmp ah, 1
		105	jne @f
		106	mov eax, -1
		107	int 0x40
		108	@@:
		109	popa
		110	ret
		111
		112
		113
		114	pusha
		115	mov eax, 66
		116	mov ebx, 3
		117	int 40h
		118
		119
		120	test eax, 0x80
		121	jz @f
		122	mov [_ind], '*'
		123	jmp test_caps
		124	@@:
		125	mov [_ind], 'o'
		126
		127
		128	test eax, 0x40
		129	jz @f
		130	mov [_ind+1], '*'
		131	jmp test_scroll
		132	@@:
		133	mov [_ind+1], 'o'
		134
		135
		136	test eax, 0x100
		137	jz @f
		138	mov [_ind+2], '*'
		139	jmp test_ok
		140	@@:
		141	mov [_ind+2], 'o'
		142
		143
		144	mov eax, 71
		145	mov ebx, 1
		146	mov ecx, _ind
		147	int 0x40
		148	popa
		149	ret
		150
		151
		152
		153
		154	rb 256
		155
		156
		157
		158
		159	rb 2048
		160	_stack:
		161	_memory:
		162