WebSVN – Kolibri OS – Blame – /kernel/trunk/boot/bootcode.inc

Rev	Author	Line No.	Line
1	ha	1	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
		2	;; ;;
		3	;; BOOTCODE.INC ;;
		4	;; ;;
29	halyavin	5	;; KolibriOS 16-bit loader, ;;
		6	;; based on bootcode for MenuetOS ;;
1	ha	7	;; ;;
		8	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
		9
		10
		11
		12	;==========================================================================
		13	;
		14	; 16 BIT FUNCTIONS
		15	;
		16	;==========================================================================
		17
183	diamond	18	; 16-bit data
		19	org $+0x10000
		20
		21	old_ints_h:
		22	dw 0x400
		23	dd 0
		24	dw 0
		25
		26	kernel_restart_bootblock:
		27	db 1 ; version
		28	dw 1 ; floppy image is in memory
		29	dd 0 ; cannot save parameters
		30
		31
		32	align 32
		33
		34	; GDT TABLE
		35
		36	gdts:
		37
		38	dw gdte-$-1
		39	dd gdts
		40	dw 0
		41
375	Ghost	42	; Attention! The order first four selectors not to change, is used in Fast System Call
		43	; must be : os_code, os_data, app_code, app_data, ....
		44
183	diamond	45	int_code_l:
		46	os_code_l:
		47	dw 0xffff
		48	dw 0x0000
		49	db 0x00
		50	dw 11011111b *256 +10011010b
		51	db 0x00
		52
		53	int_data_l:
		54	os_data_l:
		55	dw 0xffff
		56	dw 0x0000
		57	db 0x00
		58	dw 11011111b *256 +10010010b
		59	db 0x00
		60
375	Ghost	61	app_code_l:
		62	dw 0xFFFF;((0x80000000-std_application_base_address) shr 12) and 0xffff
		63	dw 0
		64	db 0x40
		65	db cpl3
		66	dw G32+D32+0x6000+0x7;
		67
		68	app_data_l:
		69	dw 0xFFFF;(0x80000000-std_application_base_address) shr 12 and 0xffff
		70	dw 0
		71	db 0x40
		72	db drw3
		73	dw G32+D32+0x6000+0x7;
		74
183	diamond	75	; --------------- APM ---------------------
		76	apm_code_32:
223	Ghost	77	dw 0x0f ; limit 64kb
183	diamond	78	db 0, 0, 0
189	Ghost	79	dw 11010000b *256 +10011010b
183	diamond	80	db 0x00
		81	apm_code_16:
223	Ghost	82	dw 0x0f
183	diamond	83	db 0, 0, 0
189	Ghost	84	dw 10010000b *256 +10011010b
183	diamond	85	db 0x00
		86	apm_data_16:
223	Ghost	87	dw 0x0f
183	diamond	88	db 0, 0, 0
189	Ghost	89	dw 10010000b *256 +10010010b
183	diamond	90	db 0x00
		91	; -----------------------------------------
		92
		93	graph_data_l:
		94
321	diamond	95	dw 0x7ff
183	diamond	96	dw 0x0000
		97	db 0x00
		98	dw 11010000b *256 +11110010b
		99	db 0x00
		100
		101	tss0_l:
		102	; times (max_processes+10) dd 0,0
		103	gdte = $ + (max_processes+10)*8
		104
		105	; videomodes table
		106	gr_table:
		107	dw 0x112+0100000000000000b , 640 , 480 ; 1
		108	dw 0x115+0100000000000000b , 800 , 600 ; 2
		109	dw 0x118+0100000000000000b , 1024 , 768 ; 3
		110	dw 0x11B+0100000000000000b , 1280 , 1024 ; 4
		111	dw 0x112 , 640 , 480 ; 5
		112	dw 0x115 , 800 , 600 ; 6
		113	dw 0x118 , 1024 , 768 ; 7
		114	dw 0x11B , 1280 ,1024 ; 8
		115	dw 0x13, 640, 480 ; 9
		116	dw 0x12, 640, 480 ; 0
		117
		118	; table for move to extended memory (int 15h, ah=87h)
		119	movedesc:
		120	db 0x00,0x00,0x0,0x00,0x00,0x00,0x0,0x0
		121	db 0x00,0x00,0x0,0x00,0x00,0x00,0x0,0x0
		122
		123	db 0xff,0xff,0x0,0xa0,0x00,0x93,0x0,0x0
		124	db 0xff,0xff,0x0,0x00,0x10,0x93,0x0,0x0
		125
		126	db 0x00,0x00,0x0,0x00,0x00,0x00,0x0,0x0
		127	db 0x00,0x00,0x0,0x00,0x00,0x00,0x0,0x0
		128	db 0x00,0x00,0x0,0x00,0x00,0x00,0x0,0x0
		129	db 0x00,0x00,0x0,0x00,0x00,0x00,0x0,0x0
		130	org $-0x10000
		131
29	halyavin	132	putchar:
		133	; in: al=character
76	mario79	134	mov ah, 0Eh
		135	mov bh, 0
		136	int 10h
		137	ret
1	ha	138
29	halyavin	139	print:
		140	; in: si->string
76	mario79	141	mov al, 186
		142	call putchar
		143	mov al, ' '
		144	call putchar
1	ha	145
29	halyavin	146	printplain:
		147	; in: si->string
76	mario79	148	pusha
		149	lodsb
29	halyavin	150	@@:
76	mario79	151	call putchar
		152	lodsb
		153	cmp al, 0
		154	jnz @b
		155	popa
		156	ret
1	ha	157
29	halyavin	158	; Now int 16 is used for keyboard support.
		159	; This is shorter, simpler and more reliable.
		160	if 0
1	ha	161	getkey: push ecx
		162	push edx
		163	add ebx,0x0101
		164	xor eax,eax
		165
		166	gk1:
		167	in al,0x60
		168	mov cl,al
		169	gk0:
		170	in al,0x60
		171	cmp al,cl
		172	je gk0
		173	cmp ax,11
		174	jg gk0
		175	gk0_1:
		176	mov cl,al
		177
		178	; add al,47
		179	; mov [ds:keyinbs-0x10000],al
		180	; mov si,keyinbs-0x10000
		181	; call printplain
		182
		183	gk12:
		184	in al,0x60
		185	cmp al,cl
		186	je gk12
		187	cmp ax,240
		188	jne gk13
		189	mov al,cl
		190	jmp gk14
		191	gk13:
		192	add cl,128
		193	cmp al,cl
		194	jne gk1
		195	sub al,128
		196	gk14:
		197
		198	movzx edx,bl
		199	cmp eax,edx
		200	jb gk1
		201	movzx edx,bh
		202	cmp eax,edx
		203	jg gk1
		204	test ebx,0x010000
		205	jnz gk3
		206	mov cx,0x1000
		207	mov dx,cx
		208	add eax,47
		209	mov cx,ax
		210	cmp cx,58
		211	jb gk_nozero
		212	sub cx,10
		213	gk_nozero:
		214	mov [ds:keyin-0x10000],cl
		215	mov si,keyin-0x10000
		216	call printplain
		217	gk3:
		218	sub eax,48
		219	pop edx
		220	pop ecx
		221	ret
29	halyavin	222	end if
1	ha	223
29	halyavin	224	getkey:
		225	; get number in range [bl,bh] (bl,bh in ['0'..'9'])
		226	; in: bx=range
		227	; out: ax=digit (1..9, 10 for 0)
76	mario79	228	mov ah, 0
		229	int 16h
		230	cmp al, bl
		231	jb getkey
		232	cmp al, bh
		233	ja getkey
		234	push ax
		235	call putchar
		236	pop ax
		237	and ax, 0Fh
		238	jnz @f
		239	mov al, 10
29	halyavin	240	@@:
76	mario79	241	ret
1	ha	242
29	halyavin	243	setcursor:
		244	; in: dl=column, dh=row
76	mario79	245	mov ah, 2
		246	mov bh, 0
		247	int 10h
		248	ret
29	halyavin	249
		250	macro _setcursor row,column
		251	{
76	mario79	252	mov dx, row*256 + column
		253	call setcursor
29	halyavin	254	}
		255
183	diamond	256	;pagetable_set:
103	halyavin	257	;eax - physical address
		258	;es:di - page table
		259	;ecx - number of pages to map
183	diamond	260	; or al, 7
		261	;@@:
		262	; stosd
		263	; add eax, 1000h
		264	; loop @b
		265	; ret
40	halyavin	266
134	diamond	267	boot_read_floppy:
		268	push si
		269	xor si, si
		270	mov ah, 2 ; read
		271	@@:
		272	push ax
		273	int 0x13
		274	pop ax
		275	jnc @f
		276	inc si
		277	cmp si, 10
		278	jb @b
		279	mov si, badsect-0x10000
		280	sayerr_plain:
		281	call printplain
		282	jmp $
		283	@@:
		284	pop si
		285	ret
		286
1	ha	287	;=========================================================================
		288	;
		289	; 16 BIT CODE
		290	;
		291	;=========================================================================
		292
		293
		294	start_of_code:
76	mario79	295	cld
29	halyavin	296	; \begin{diamond}[02.12.2005]
76	mario79	297	cmp ax, 'KL'
		298	jnz @f
		299	mov word [cs:cfgmanager.loader_block-0x10000], si
		300	mov word [cs:cfgmanager.loader_block+2-0x10000], ds
29	halyavin	301	@@:
		302	; \end{diamond}[02.12.2005]
1	ha	303
29	halyavin	304	; set up stack
76	mario79	305	mov ax, 3000h
		306	mov ss, ax
		307	mov sp, 0EC00h
29	halyavin	308	; set up segment registers
76	mario79	309	push cs
		310	pop ds
		311	push cs
		312	pop es
1	ha	313
29	halyavin	314	; set videomode
76	mario79	315	mov ax, 3
1	ha	316	int 0x10
		317
134	diamond	318	if lang eq ru
1	ha	319	; Load & set russian VGA font (RU.INC)
		320	mov bp,RU_FNT1-10000h ; RU_FNT1 - First part
		321	mov bx,1000h ; 768 bytes
		322	mov cx,30h ; 48 symbols
		323	mov dx,80h ; 128 - position of first symbol
		324	mov ax,1100h
		325	int 10h
		326
		327	mov bp,RU_FNT2-10000h ; RU_FNT2 -Second part
		328	mov bx,1000h ; 512 bytes
		329	mov cx,20h ; 32 symbols
		330	mov dx,0E0h ; 224 - position of first symbol
		331	mov ax,1100h
		332	int 10h
		333	; End set VGA russian font
274	kaitz	334	else if lang eq et
		335	mov bp,ET_FNT-10000h ; ET_FNT1
		336	mov bx,1000h ;
		337	mov cx,255 ; 256 symbols
		338	mov dx,0h ; 0 - position of first symbol
		339	mov ax,1100h
		340	int 10h
134	diamond	341	end if
1	ha	342
29	halyavin	343	; draw frames
76	mario79	344	push 0xb800
		345	pop es
		346	xor di, di
29	halyavin	347	; mov si,d80x25-0x10000
		348	; mov cx,80*25
		349	; mov ah,1*16+15
		350	; dfl1:
		351	; lodsb
		352	; stosw
		353	; loop dfl1
76	mario79	354	mov ah, 1*16+15
29	halyavin	355	; draw top
76	mario79	356	mov si, d80x25_top - 0x10000
		357	mov cx, d80x25_top_num * 80
29	halyavin	358	@@:
76	mario79	359	lodsb
		360	stosw
		361	loop @b
29	halyavin	362	; draw spaces
76	mario79	363	mov si, space_msg - 0x10000
		364	mov cx, 25 - d80x25_top_num - d80x25_bottom_num
29	halyavin	365	dfl1:
76	mario79	366	push cx
		367	push si
		368	mov cx, 80
29	halyavin	369	@@:
76	mario79	370	lodsb
		371	stosw
		372	loop @b
		373	pop si
		374	pop cx
		375	loop dfl1
29	halyavin	376	; draw bottom
76	mario79	377	mov si, d80x25_bottom - 0x10000
		378	mov cx, d80x25_bottom_num * 80
29	halyavin	379	@@:
76	mario79	380	lodsb
		381	stosw
		382	loop @b
1	ha	383
76	mario79	384	mov byte [space_msg-0x10000+80], 0 ; now space_msg is null terminated
1	ha	385
76	mario79	386	_setcursor d80x25_top_num,0
1	ha	387
		388
		389	; TEST FOR 386+
		390
76	mario79	391	mov bx, 0x4000
1	ha	392	pushf
		393	pop ax
		394	mov dx,ax
29	halyavin	395	xor ax,bx
1	ha	396	push ax
		397	popf
		398	pushf
		399	pop ax
29	halyavin	400	and ax,bx
		401	and dx,bx
1	ha	402	cmp ax,dx
		403	jnz cpugood
		404	mov si,not386-0x10000
40	halyavin	405	sayerr:
1	ha	406	call print
		407	jmp $
		408	cpugood:
		409
29	halyavin	410	; set up esp
76	mario79	411	movzx esp, sp
1	ha	412
		413	; FLUSH 8042 KEYBOARD CONTROLLER
		414
		415	;// mike.dld [
		416	; mov al,0xED
		417	; out 0x60,al
		418	; or cx,-1
		419	; @@:
		420	; in al,0x64
		421	; test al,2
		422	; jz @f
		423	; loop @b
		424	; @@:
		425	; mov al,0
		426	; out 0x60,al
		427	; or cx,-1
		428	; @@:
		429	; in al,0x64
		430	; test al,2
		431	; jz @f
		432	; loop @b
		433	; @@:
		434	;// mike.dld ]
		435
		436	; mov ecx,10000
		437	; fl1:
		438	; in al,0x64
		439	; loop fl1
		440	; test al,1
		441	; jz fl2
		442	; in al,0x60
		443	; jmp fl1
		444	; fl2:
		445
		446	;****************************************************************
		447	; The function is modified Mario79
		448	;*****************************************************************
		449	; wait_kbd: ; variant 1
		450	; mov cx,2500h ;�� 10 ��
		451	; test_kbd:
		452	; in al,64h ;��
		453	; test al,2 ;��
		454	; loopnz test_kbd
		455
160	diamond	456	push 0
		457	pop es
		458	and word [es:0x9031], 0
164	serge	459	; \begin{Mario79}
		460	; find HDD IDE DMA PCI device
160	diamond	461	; check for PCI BIOS
		462	mov ax, 0xB101
		463	int 0x1A
		464	jc .nopci
		465	cmp edx, 'PCI '
		466	jnz .nopci
		467	; find PCI class code
		468	; class 1 = mass storage
		469	; subclass 1 = IDE controller
		470	; a) class 1, subclass 1, programming interface 0x80
		471	mov ax, 0xB103
		472	mov ecx, 110000h + 1100h + 0x80
		473	mov si, 0 ; device index = 0
		474	int 0x1A
		475	jnc .found
187	diamond	476	; b) class 1, subclass 1, programming interface 0x8A
160	diamond	477	mov ax, 0xB103
187	diamond	478	mov ecx, 110000h + 1100h + 0x8A
160	diamond	479	mov si, 0 ; device index = 0
		480	int 0x1A
		481	jnc .found
187	diamond	482	; c) class 1, subclass 1, programming interface 0x85
160	diamond	483	mov ax, 0xB103
187	diamond	484	mov ecx, 110000h + 1100h + 0x85
160	diamond	485	mov si, 0
		486	int 0x1A
		487	jc .nopci
		488	.found:
		489	; get memory base
		490	mov ax, 0xB10A
		491	mov di, 0x20 ; memory base is config register at 0x20
		492	int 0x1A
		493	jc .nopci
		494	and cx, 0xFFF0 ; clear address decode type
		495	mov [es:0x9031], cx
		496	.nopci:
164	serge	497	; \end{Mario79}
160	diamond	498
1	ha	499	mov al,0xf6 ; �� , ��
		500	out 0x60,al
29	halyavin	501	xor cx,cx
1	ha	502	wait_loop: ; variant 2
		503	; reading state of port of 8042 controller
164	serge	504	in al,64h
1	ha	505	and al,00000010b ; ready flag
164	serge	506	; wait until 8042 controller is ready
1	ha	507	loopnz wait_loop
		508
76	mario79	509	; --------------- APM ---------------------
		510	push 0
		511	pop es
		512	mov word [es : 0x9044], 0 ; ver = 0.0 (APM not found)
		513	mov ax, 0x5300
		514	xor bx, bx
		515	int 0x15
		516	jc apm_end ; APM not found
		517	test cx, 2
		518	jz apm_end ; APM 32-bit protected-mode interface not supported
		519	mov [es : 0x9044], ax ; Save APM Version
		520	mov [es : 0x9046], cx ; Save APM flags
164	serge	521
76	mario79	522	; Write APM ver ----
82	halyavin	523	and ax, 0xf0f
76	mario79	524	add ax, '00'
82	halyavin	525	mov si, msg_apm - 0x10000
		526	mov [si + 5], ah
		527	mov [si + 7], al
76	mario79	528	_setcursor 0, 3
		529	call printplain
		530	_setcursor d80x25_top_num,0
		531	; ------------------
164	serge	532
76	mario79	533	mov ax, 0x5304 ; Disconnect interface
		534	xor bx, bx
		535	int 0x15
		536	mov ax, 0x5303 ; Connect 32 bit mode interface
		537	xor bx, bx
		538	int 0x15
		539	; init selectors
		540	movzx eax, ax ; real-mode segment base address of protected-mode 32-bit code segment
		541	shl eax, 4
		542	mov [apm_code_32 - 0x10000 + 2], ax
		543	shr eax, 16
		544	mov [apm_code_32 - 0x10000 + 4], al
		545	movzx ecx, cx ; real-mode segment base address of protected-mode 16-bit code segment
		546	shl ecx, 4
		547	mov [apm_code_16 - 0x10000 + 2], cx
		548	shr ecx, 16
		549	mov [apm_code_16 - 0x10000 + 4], cl
		550	movzx edx, dx ; real-mode segment base address of protected-mode 16-bit data segment
		551	shl edx, 4
		552	mov [apm_data_16 - 0x10000 + 2], dx
		553	shr edx, 16
		554	mov [apm_data_16 - 0x10000 + 4], dl
		555	mov [es : 0x9040], ebx ; offset of APM entry point
		556	apm_end:
164	serge	557	; -----------------------------------------
76	mario79	558
1	ha	559	; DISPLAY VESA INFORMATION
		560
76	mario79	561	push 0
		562	pop es
1	ha	563	mov ax,0x4f00
		564	mov di,0xa000
		565	int 0x10
		566	cmp ax,0x004f
76	mario79	567	mov si, novesa-0x10000
		568	jnz @f
164	serge	569	mov bx, word [es:di+0x12]
		570	shl ebx,16
		571	mov [es:0x9050], ebx
1	ha	572	mov ax,[es:di+4]
		573	add ax,'0'*256+'0'
76	mario79	574	mov si,vervesa-0x10000
40	halyavin	575	mov [si+vervesa_off], ah
		576	mov [si+vervesa_off+2], al
29	halyavin	577	@@: call print
1	ha	578
29	halyavin	579	; \begin{diamond}[30.11.2005]
		580	cfgmanager:
		581	; settings:
		582	; a) preboot_graph = graphical mode
		583	; preboot_gprobe = probe this mode?
346	diamond	584	; b) preboot_dma_write = use DMA write?
29	halyavin	585	; c) preboot_vrrm = use VRR?
		586	; d) preboot_device = from what boot?
76	mario79	587	mov di, preboot_graph-0x10000
29	halyavin	588	; check bootloader block
143	diamond	589	cmp [.loader_block-0x10000], -1
164	serge	590	jz .noloaderblock
76	mario79	591	les bx, [.loader_block-0x10000]
		592	cmp byte [es:bx], 1
		593	mov si, loader_block_error-0x10000
		594	jnz sayerr
		595	test byte [es:bx+1], 1
		596	jz @f
29	halyavin	597	; image in memory present
76	mario79	598	cmp [di+preboot_device-preboot_graph], 0
		599	jnz @f
		600	mov [di+preboot_device-preboot_graph], 3
29	halyavin	601	@@:
		602	.noloaderblock:
		603	; determine default settings
76	mario79	604	mov [.bSettingsChanged-0x10000], 0
		605	cmp byte [di], 0
		606	jnz .preboot_gr_end
		607	mov [di+preboot_gprobe-preboot_graph], 0
		608	mov al, [vervesa+vervesa_off-0x10000]
		609	cmp al, 'x'
		610	jz .novesa
		611	cmp al, '1'
		612	jz .vesa12
		613	mov [di+preboot_gprobe-preboot_graph], 2
		614	mov al, 3
		615	jmp @f
29	halyavin	616	.vesa12:
76	mario79	617	mov al, 7
		618	jmp @f
29	halyavin	619	.novesa:
76	mario79	620	mov al, 10
29	halyavin	621	@@:
76	mario79	622	mov [di], al
29	halyavin	623	.preboot_gr_end:
346	diamond	624	cmp [di+preboot_dma_write-preboot_graph], 1
		625	adc [di+preboot_dma_write-preboot_graph], 0
76	mario79	626	cmp [di+preboot_vrrm-preboot_graph], 1
		627	adc [di+preboot_vrrm-preboot_graph], 0
		628	cmp [di+preboot_device-preboot_graph], 1
		629	adc [di+preboot_device-preboot_graph], 0
29	halyavin	630	; notify user
76	mario79	631	mov si, linef-0x10000
		632	call print
		633	mov si, start_msg-0x10000
		634	call print
		635	mov si, time_msg-0x10000
		636	call print
29	halyavin	637	; get start time
76	mario79	638	call .gettime
		639	mov [.starttime-0x10000], eax
82	halyavin	640	mov word [.timer-0x10000], .newtimer
76	mario79	641	mov word [.timer-0x10000+2], cs
29	halyavin	642	.printcfg:
76	mario79	643	_setcursor 9,0
		644	mov si, current_cfg_msg-0x10000
		645	call print
		646	mov si, curvideo_msg-0x10000
		647	call print
		648	mov al, [preboot_graph-0x10000]
		649	cmp al, 8
		650	ja .pnovesa
		651	mov dl, al
		652	and eax, 3
		653	mov si, [modes_msg-0x10000+eax*2]
		654	call printplain
		655	mov si, modevesa20-0x10000
		656	cmp dl, 4
		657	jbe @f
		658	mov si, modevesa12-0x10000
29	halyavin	659	@@:
76	mario79	660	call printplain
		661	cmp dl, 4
		662	ja .x
		663	mov si, probeno_msg-0x10000
		664	cmp [preboot_gprobe-0x10000], 2
		665	jnz @f
		666	mov si, probeok_msg-0x10000
29	halyavin	667	@@:
76	mario79	668	call printplain
29	halyavin	669	.x:
76	mario79	670	jmp .c
29	halyavin	671	.pnovesa:
76	mario79	672	cmp al, 9
		673	mov si, mode9-0x10000
		674	jz @b
		675	mov si, mode10-0x10000
		676	jmp @b
29	halyavin	677	.c:
76	mario79	678	mov si, linef-0x10000
		679	call printplain
346	diamond	680	mov si, dma_msg-0x10000
		681	cmp [preboot_dma_write-0x10000], 1
76	mario79	682	call .say_on_off
		683	mov si, vrrm_msg-0x10000
		684	cmp [preboot_vrrm-0x10000], 1
		685	call .say_on_off
		686	mov si, preboot_device_msg-0x10000
		687	call print
		688	mov al, [preboot_device-0x10000]
		689	and eax, 3
		690	mov si, [preboot_device_msgs-0x10000+eax*2]
		691	call printplain
29	halyavin	692	.wait:
76	mario79	693	_setcursor 25,0 ; out of screen
34	halyavin	694	; set timer interrupt handler
76	mario79	695	cli
		696	push 0
		697	pop es
		698	mov eax, [es:8*4]
		699	mov [.oldtimer-0x10000], eax
		700	mov eax, [.timer-0x10000]
		701	mov [es:8*4], eax
		702	sti
29	halyavin	703	; wait for keypressed
76	mario79	704	mov ah, 0
		705	int 16h
		706	push ax
29	halyavin	707	; restore timer interrupt
76	mario79	708	push 0
		709	pop es
		710	mov eax, [.oldtimer-0x10000]
		711	mov [es:8*4], eax
		712	mov [.timer-0x10000], eax
		713	_setcursor 7,0
		714	mov si, space_msg-0x10000
		715	call printplain
		716	pop ax
29	halyavin	717	; switch on key
76	mario79	718	cmp al, 13
		719	jz .continue
		720	or al, 20h
		721	cmp al, 'a'
		722	jz .change_a
		723	cmp al, 'b'
		724	jz .change_b
		725	cmp al, 'c'
		726	jz .change_c
		727	cmp al, 'd'
		728	jnz .wait
		729	_setcursor 15,0
		730	mov si,bdev-0x10000
		731	call print
		732	mov bx,'13'
		733	call getkey
		734	mov [preboot_device-0x10000], al
		735	_setcursor 13,0
29	halyavin	736	.d:
76	mario79	737	mov [.bSettingsChanged-0x10000], 1
		738	mov si, space_msg-0x10000
		739	call printplain
		740	_setcursor 15,0
		741	mov cx, 6
29	halyavin	742	@@:
76	mario79	743	call printplain
		744	loop @b
		745	jmp .printcfg
29	halyavin	746	.change_a:
76	mario79	747	_setcursor 15,0
		748	mov si, gr_mode-0x10000
		749	call printplain
		750	mov bx, '09'
		751	call getkey
		752	mov [preboot_graph-0x10000], al
		753	cmp al, 4
		754	ja @f
		755	mov si, probetext-0x10000
		756	call printplain
		757	mov bx, '12'
		758	call getkey
		759	mov [preboot_gprobe-0x10000], al
29	halyavin	760	@@:
76	mario79	761	_setcursor 10,0
		762	jmp .d
29	halyavin	763	.change_b:
76	mario79	764	_setcursor 15,0
346	diamond	765	mov si, ask_dma-0x10000
76	mario79	766	call print
		767	mov bx, '12'
		768	call getkey
346	diamond	769	mov [preboot_dma_write-0x10000], al
76	mario79	770	_setcursor 11,0
		771	jmp .d
29	halyavin	772	.change_c:
76	mario79	773	_setcursor 15,0
		774	mov si, vrrmprint-0x10000
		775	call print
		776	mov bx, '12'
		777	call getkey
		778	mov [preboot_vrrm-0x10000], al
		779	_setcursor 12,0
		780	jmp .d
40	halyavin	781	.say_on_off:
76	mario79	782	pushf
		783	call print
		784	mov si, on_msg-0x10000
		785	popf
		786	jz @f
		787	mov si, off_msg-0x10000
		788	@@: call printplain
		789	ret
40	halyavin	790	; novesa and vervesa strings are not used at the moment of executing this code
		791	virtual at novesa
29	halyavin	792	.oldtimer dd ?
		793	.starttime dd ?
		794	.bSettingsChanged db ?
34	halyavin	795	.timer dd ?
40	halyavin	796	end virtual
82	halyavin	797	org $+0x10000
143	diamond	798	.loader_block dd -1
82	halyavin	799	org $-0x10000
29	halyavin	800	.gettime:
76	mario79	801	mov ah, 0
		802	int 1Ah
		803	xchg ax, cx
		804	shl eax, 10h
		805	xchg ax, dx
		806	ret
29	halyavin	807	.newtimer:
76	mario79	808	push ds
		809	push cs
		810	pop ds
		811	pushf
		812	call [.oldtimer-0x10000]
		813	pushad
		814	call .gettime
		815	sub eax, [.starttime-0x10000]
		816	sub ax, 18*5
		817	jae .timergo
		818	neg ax
		819	add ax, 18-1
		820	mov bx, 18
		821	xor dx, dx
		822	div bx
29	halyavin	823	if lang eq ru
		824	; �� 5 ᥪ㭤, 4/3/2 ᥪ㭤�, 1 ᥪ㭤�
76	mario79	825	cmp al, 5
		826	mov cl, ' '
		827	jae @f
		828	cmp al, 1
		829	mov cl, '�'
		830	jz @f
		831	mov cl, '�'
		832	@@: mov [time_str+9-0x10000], cl
274	kaitz	833	else if lang eq et
		834	cmp al, 1
		835	ja @f
		836	mov [time_str+9-0x10000], ' '
		837	mov [time_str+10-0x10000],' '
		838	@@:
29	halyavin	839	else
		840	; wait 5/4/3/2 seconds, 1 second
76	mario79	841	cmp al, 1
		842	mov cl, 's'
		843	ja @f
		844	mov cl, ' '
		845	@@: mov [time_str+9-0x10000], cl
29	halyavin	846	end if
76	mario79	847	add al, '0'
		848	mov [time_str+1-0x10000], al
		849	mov si, time_msg-0x10000
		850	_setcursor 7,0
		851	call print
		852	_setcursor 25,0
		853	popad
		854	pop ds
		855	iret
29	halyavin	856	.timergo:
76	mario79	857	push 0
		858	pop es
		859	mov eax, [.oldtimer-0x10000]
		860	mov [es:8*4], eax
		861	mov sp, 0EC00h
29	halyavin	862	.continue:
76	mario79	863	sti
		864	_setcursor 6,0
		865	mov si, space_msg-0x10000
		866	call printplain
		867	call printplain
		868	_setcursor 6,0
		869	mov si, loading_msg-0x10000
		870	call print
		871	_setcursor 15,0
		872	cmp [.bSettingsChanged-0x10000], 0
		873	jz .load
143	diamond	874	cmp [.loader_block-0x10000], -1
76	mario79	875	jz .load
		876	les bx, [.loader_block-0x10000]
		877	mov eax, [es:bx+3]
		878	push ds
		879	pop es
		880	test eax, eax
		881	jz .load
		882	push eax
		883	mov si, save_quest-0x10000
		884	call print
29	halyavin	885	.waityn:
76	mario79	886	mov ah, 0
		887	int 16h
		888	or al, 20h
		889	cmp al, 'n'
		890	jz .loadc
		891	cmp al, 'y'
		892	jnz .waityn
		893	call putchar
		894	mov byte [space_msg-0x10000+80], 186
		895	pop eax
		896	push cs
82	halyavin	897	push .cont
76	mario79	898	push eax
		899	retf
29	halyavin	900	.loadc:
76	mario79	901	pop eax
29	halyavin	902	.cont:
76	mario79	903	push cs
		904	pop ds
		905	mov si, space_msg-0x10000
		906	mov byte [si+80], 0
		907	_setcursor 15,0
		908	call printplain
		909	_setcursor 15,0
29	halyavin	910	.load:
		911	; \end{diamond}[02.12.2005]
1	ha	912
		913	; ASK GRAPHICS MODE
		914
76	mario79	915	movzx ax, [preboot_graph-0x10000]
		916	push 0
		917	pop es
29	halyavin	918	; address is gr_table+6*(ax-1)-0x10000
76	mario79	919	add ax, ax
		920	lea si, [gr_table-0x10000 + eax + eax*2 - 6]
29	halyavin	921	mov bx,[si+0]
		922	mov cx,[si+2]
		923	mov dx,[si+4]
76	mario79	924	cmp al, 9*2
		925	mov al, 32 ; BPP
		926	jb @f
		927	mov [es:0x9000], al
164	serge	928	mov dword [es:0x9018], 0xFFFFFFFF; 0x800000
29	halyavin	929	@@:
1	ha	930	mov [es:0x9008],bx
		931	mov [es:0x900A],cx
		932	mov [es:0x900C],dx
76	mario79	933	test bh, bh
		934	jz nov
1	ha	935
		936	; USE DEFAULTS OR PROBE
		937
		938	; bx - mode : cx - x size : dx - y size
76	mario79	939	cmp [preboot_gprobe-0x10000], 1
		940	jz noprobe
1	ha	941
		942	mov bx,0x100
		943	newprobe:
		944	inc bx
		945	cmp bx,0x17f
76	mario79	946	mov si,prnotfnd-0x10000
		947	jz sayerr
1	ha	948
		949	probemore:
76	mario79	950	push cx
1	ha	951	mov ax,0x4f01
		952	mov cx,bx
		953	and cx,0xfff
		954	mov di,0xa000
		955	int 0x10
76	mario79	956	pop cx
1	ha	957
76	mario79	958	test byte [es:di], 80h ; lfb?
		959	jz newprobe
		960	cmp [es:di+0x12], cx ; x size?
		961	jnz newprobe
		962	cmp [es:di+0x14], dx ; y size?
		963	jnz newprobe
		964	cmp byte [es:di+0x19], 32 ;24
		965	jb newprobe
1	ha	966
40	halyavin	967	; add bx,0100000000000000b
76	mario79	968	or bh, 40h
1	ha	969	mov [es:0x9008],bx
		970
		971	noprobe:
		972
		973
		974	; FIND VESA 2.0 LFB & BPP
		975
		976	mov ax,0x4f01
		977	mov cx,bx
		978	and cx,0xfff
		979	mov di,0xa000
		980	int 0x10
		981	; LFB
40	halyavin	982	mov eax,[es:di+0x28]
		983	mov [es:0x9018],eax
1	ha	984	; ---- vbe voodoo
		985	BytesPerScanLine equ 0x10
		986	mov ax, [es:di+BytesPerScanLine]
		987	mov [es:0x9001],ax
29	halyavin	988	; BPP
40	halyavin	989	mov al,byte [es:di+0x19]
29	halyavin	990	mov [es:0x9000],al
1	ha	991	nov:
40	halyavin	992	cmp al,24
76	mario79	993	mov si,bt24-0x10000
		994	jz bppl
40	halyavin	995	cmp al,32
1	ha	996	mov si,bt32-0x10000
29	halyavin	997	jz bppl
1	ha	998	mov si,btns-0x10000
76	mario79	999	jmp sayerr
40	halyavin	1000	bppl:
1	ha	1001	call print
		1002
		1003
		1004	; FIND VESA 1.2 PM BANK SWITCH ADDRESS
		1005
76	mario79	1006	push es
1	ha	1007	mov ax,0x4f0A
76	mario79	1008	xor bx, bx
1	ha	1009	int 0x10
		1010	xor eax,eax
		1011	mov ax,es
		1012	shl eax,4
29	halyavin	1013	movzx ebx,di
1	ha	1014	add eax,ebx
		1015	mov bx,[es:di]
		1016	add eax,ebx
		1017	pop es
		1018	mov [es:0x9014],eax
		1019
		1020
		1021	; GRAPHICS ACCELERATION
346	diamond	1022	; force yes
		1023	mov [es:0x901C], byte 1
1	ha	1024
346	diamond	1025	; DMA WRITE
1	ha	1026
346	diamond	1027	mov al, [preboot_dma_write-0x10000]
		1028	mov [es:0x901F],al
		1029
1	ha	1030	; VRR_M USE
		1031
29	halyavin	1032	mov al,[preboot_vrrm-0x10000]
1	ha	1033	mov [es:0x9030],al
		1034
		1035
		1036	; MEMORY MODEL
		1037
		1038	; movzx eax,byte [es:preboot_memory-0x10000]
		1039	; cmp eax,0
		1040	; jne pre_mem
		1041	;;;;;;;;;;;;;;;;;;;;;;;;;
		1042	; mario79 - memory size ;
		1043	;;;;;;;;;;;;;;;;;;;;;;;;;
		1044	; mov ax,0E801h
		1045	;;; xor bx,bx ; thanks to Alexei for bugfix [18.07.2004]
		1046	; xor cx, cx
		1047	; xor dx, dx
		1048	; int 0x15
		1049	; movzx ebx, dx ;bx
		1050	; movzx eax, cx ;ax
		1051	; shl ebx,6 ; �� (x64)
		1052	; add eax,ebx
		1053	; add eax, 1000h ;440h
		1054	; cmp eax,40000h ; 256?
		1055	; jge mem_256_z
		1056	; cmp eax,20000h ; 128?
		1057	; jge mem_128_z
		1058	; cmp eax,10000h ; 64?
		1059	; jge mem_64_z
		1060	; cmp eax,8000h ; 32?
		1061	; jge mem_32_z
		1062	; jmp mem_16_z
		1063	;
		1064	;mem_256_z: mov si,memokz256-0x10000
		1065	; call printplain
		1066	; mov eax,5
		1067	; jmp pre_mem
		1068	;mem_128_z: mov si,memokz128-0x10000
		1069	; call printplain
		1070	; mov eax,4
		1071	; jmp pre_mem
		1072	;mem_64_z: mov si,memokz64-0x10000
		1073	; call printplain
		1074	; mov eax,3
		1075	; jmp pre_mem
		1076	;mem_32_z: mov si,memokz32-0x10000
		1077	; call printplain
		1078	; mov eax,2
		1079	; jmp pre_mem
		1080	;mem_16_z: mov si,memokz16-0x10000
		1081	; call printplain
		1082	; mov eax,1
		1083	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
		1084	; pre_mem:
		1085	; push word 0x0000
		1086	; pop es
		1087	; mov [es:0x9030],al
		1088	; push word 0x1000
		1089	; pop es
		1090	; mov si,linef-0x10000
		1091	; call printplain
		1092
		1093
		1094
		1095
		1096	; DIRECT WRITE TO LFB, PAGING DISABLED
		1097
		1098	; movzx eax,byte [es:preboot_lfb-0x10000]
		1099	; mov eax,1 ; paging disabled
		1100	; cmp eax,0
		1101	; jne pre_lfb
		1102	; mov si,gr_direct-0x10000
		1103	; call printplain
29	halyavin	1104	; mov ebx,'12'
1	ha	1105	; call getkey
		1106	; pre_lfb:
		1107	; push word 0x0000
		1108	; pop es
		1109	; mov [es:0x901E],al
		1110	; mov ax,0x1000
		1111	; mov es,ax
		1112	; mov si,linef-0x10000
		1113	; call printplain
		1114	mov [es:0x901E],byte 1
		1115
		1116
		1117
		1118	; BOOT DEVICE
		1119
76	mario79	1120	mov al, [preboot_device-0x10000]
40	halyavin	1121	dec al
29	halyavin	1122	mov [boot_dev-0x10000],al
1	ha	1123
		1124	; READ DISKETTE TO MEMORY
		1125
40	halyavin	1126	; cmp [boot_dev-0x10000],0
1	ha	1127	jne no_sys_on_floppy
		1128	mov si,diskload-0x10000
		1129	call print
76	mario79	1130	xor ax, ax ; reset drive
		1131	xor dx, dx
1	ha	1132	int 0x13
134	diamond	1133	; now load floppy image to memory
		1134	; at first load boot sector and first FAT table
		1135	mov cx, 0x0001 ; startcyl,startsector
		1136	xor dx, dx ; starthead,drive
		1137	mov al, 1+9 ; no of sectors to read
		1138	mov bx, 0xB000 ; es:bx -> data area
		1139	call boot_read_floppy
		1140	; and copy them to extended memory
		1141	mov si, movedesc-0x10000
		1142	mov [si+8*2+3], bh
		1143	push es
		1144	push ds
		1145	pop es
		1146	mov cx, 256*10
		1147	mov ah, 0x87
		1148	int 0x15
76	mario79	1149	test ah, ah
134	diamond	1150	jz @f
		1151	sayerr_floppy:
		1152	mov dx, 0x3f2
		1153	mov al, 0
		1154	out dx, al
		1155	mov si, memmovefailed-0x10000
		1156	jmp sayerr_plain
		1157	@@:
		1158	add dword [si+83+2], 51210
		1159	; copy FAT to second copy
		1160	mov byte [si+8*2+3], 0xB2
		1161	mov cx, 256*9
		1162	mov ah, 0x87
		1163	int 0x15
		1164	pop es
		1165	test ah, ah
		1166	jnz sayerr_floppy
		1167	add dword [si+83+2], 5129
		1168	; calculate total number of sectors to read
		1169	mov ax, 1+9+14 ; boot+FAT+root
		1170	mov di, 0xB203
		1171	.calc_loop:
		1172	test word [es:di], 0xFFF
		1173	jz @f
		1174	inc ax
		1175	@@:
		1176	test word [es:di+1], 0xFFF0
		1177	jz @f
		1178	inc ax
		1179	@@:
		1180	add di, 3
		1181	cmp di, 0xB200+1440*3
		1182	jb .calc_loop
		1183	push ax
		1184	mov bp, 1+9 ; already read sectors
		1185	; now read rest
		1186	mov byte [si+8*2+3], 0xA0
		1187	mov di, 2-14 ; absolute sector-31
		1188	mov cx, 0x0002 ; cylinder=0, sector=2
		1189	mov dx, 0x0100 ; head=1, disk=0
		1190	.read_loop:
		1191	; determine whether sector must be read
		1192	cmp di, 2
		1193	jl .read
		1194	mov bx, di
		1195	shr bx, 1
		1196	jnc .even
		1197	test word [es:bx+di+0xB200], 0xFFF0
		1198	jmp @f
		1199	.even:
		1200	test word [es:bx+di+0xB200], 0xFFF
		1201	@@:
		1202	jz .skip
		1203	.read:
		1204	mov bx, 0xA000
		1205	mov al, 1 ; 1 sector
		1206	call boot_read_floppy
		1207	inc bp
76	mario79	1208	push es
		1209	push ds
1	ha	1210	pop es
134	diamond	1211	pusha
		1212	mov cx, 256
		1213	mov ah, 0x87
1	ha	1214	int 0x15
134	diamond	1215	test ah, ah
1	ha	1216	popa
134	diamond	1217	pop es
		1218	jnz sayerr_floppy
		1219	.skip:
		1220	add dword [si+8*3+2], 512
		1221	inc cx
		1222	cmp cl, 19
		1223	jnz @f
		1224	mov cl, 1
1	ha	1225	inc dh
134	diamond	1226	cmp dh, 2
		1227	jnz @f
		1228	mov dh, 0
1	ha	1229	inc ch
29	halyavin	1230	@@:
134	diamond	1231	pop ax
		1232	push ax
		1233	pusha
		1234	; draw percentage
		1235	; total sectors: ax
		1236	; read sectors: bp
		1237	xchg ax, bp
		1238	mov cx, 100
		1239	mul cx
		1240	div bp
		1241	aam
		1242	xchg al, ah
		1243	add ax, '00'
		1244	mov si, pros-0x10000
		1245	cmp [si], ax
		1246	jz @f
		1247	mov [si], ax
1	ha	1248	call printplain
134	diamond	1249	@@:
1	ha	1250	popa
134	diamond	1251	inc di
		1252	cmp di, 2880-31
		1253	jnz .read_loop
		1254
		1255	; mov cx, 0x0001 ; startcyl,startsector
		1256	; xor dx, dx ; starthead,drive
		1257	; push word 80*2 ; read no of sect
		1258	; reads:
		1259	; pusha
		1260	; xor si,si
		1261	; newread:
		1262	; mov bx,0xa000 ; es:bx -> data area
		1263	; mov ax,0x0200+18 ; read, no of sectors to read
		1264	; int 0x13
		1265	; test ah, ah
		1266	; jz goodread
		1267	; inc si
		1268	; cmp si,10
		1269	; jnz newread
		1270	; mov si,badsect-0x10000
		1271	;sayerr_plain:
		1272	; call printplain
		1273	; jmp $
		1274	; goodread:
		1275	; ; move -> 1mb
		1276	; mov si,movedesc-0x10000
		1277	; push es
		1278	; push ds
		1279	; pop es
		1280	; mov cx,256*18
		1281	; mov ah,0x87
		1282	; int 0x15
		1283	; pop es
		1284	;
		1285	; test ah,ah ; was the move successfull ?
		1286	; je goodmove
		1287	; mov dx,0x3f2 ; floppy motor off
		1288	; mov al,0
		1289	; out dx,al
		1290	; mov si,memmovefailed-0x10000
		1291	; jmp sayerr_plain
		1292	; goodmove:
		1293	;
		1294	; add dword [movedesc-0x10000+0x18+2], 512*18
		1295	; popa
		1296	; inc dh
		1297	; cmp dh,2
		1298	; jnz bb2
		1299	; mov dh,0
		1300	; inc ch
		1301	; pusha ; print prosentage
		1302	; mov si,pros-0x10000
		1303	; shr ch, 2
		1304	; mov al, '5'
		1305	; test ch, 1
		1306	; jnz @f
		1307	; mov al, '0'
		1308	;@@:
		1309	; mov [si+1], al
		1310	; shr ch, 1
		1311	; add ch, '0'
		1312	; mov [si], ch
		1313	; call printplain
		1314	; popa
		1315	; bb2:
		1316	; pop ax
		1317	; dec ax
		1318	; push ax
		1319	; jnz reads
		1320	; readdone:
		1321	; pop ax
40	halyavin	1322	mov si,backspace2-0x10000
1	ha	1323	call printplain
		1324	mov si,okt-0x10000
		1325	call printplain
		1326	no_sys_on_floppy:
76	mario79	1327	xor ax, ax ; reset drive
		1328	xor dx, dx
1	ha	1329	int 0x13
		1330	mov dx,0x3f2 ; floppy motor off
		1331	mov al,0
29	halyavin	1332	out dx,al
1	ha	1333
76	mario79	1334	push es
1	ha	1335	; PAGE TABLE
		1336
76	mario79	1337	push dword [es:0x9018]
164	serge	1338	;
		1339	; mmap_mem equ 64 ; amount of memory to map
		1340	;
76	mario79	1341	push 0x6000
		1342	pop es ; es:di = 6000:0
164	serge	1343	; xor di,di
		1344	; mov cx,256*mmap_mem ; Map (mapmem) M
		1345	;; initialize as identity mapping
		1346	; xor eax, eax
		1347	; call pagetable_set
		1348	;
		1349	;
1	ha	1350	; 4 KB PAGE DIRECTORY
164	serge	1351	;
		1352	push 0x7F00
		1353	pop es ; es:di = 7F00:0
		1354	; xor di, di
		1355	; mov cx, 64 / 4
		1356	; mov eax, 0x60007 ; for 0 M
		1357	; call pagetable_set
		1358	; xor si,si
		1359	; mov di,second_base_address shr 20
		1360	; mov cx,64/2
		1361	; rep movs word [es:di], [es:si]
1	ha	1362
164	serge	1363	; mov eax, 0x7F000 +8+16 ; Page directory and enable caches
		1364	; mov cr3, eax
1	ha	1365
		1366	; SET GRAPHICS
		1367
76	mario79	1368	pop es
164	serge	1369
		1370	xor ax, ax
		1371	mov es, ax
		1372
		1373	mov ax,[es:0x9008] ; vga & 320x200
76	mario79	1374	mov bx, ax
1	ha	1375	cmp ax,0x13
		1376	je setgr
		1377	cmp ax,0x12
		1378	je setgr
		1379	mov ax,0x4f02 ; Vesa
		1380	setgr:
		1381	int 0x10
76	mario79	1382	test ah,ah
		1383	mov si, fatalsel-0x10000
		1384	jnz sayerr
1	ha	1385	; set mode 0x12 graphics registers:
		1386	cmp bx,0x12
		1387	jne gmok2
		1388
		1389	mov al,0x05
		1390	mov dx,0x03ce
40	halyavin	1391	push dx
1	ha	1392	out dx,al ; select GDC mode register
		1393	mov al,0x02
76	mario79	1394	inc dx
1	ha	1395	out dx,al ; set write mode 2
		1396
		1397	mov al,0x02
		1398	mov dx,0x03c4
		1399	out dx,al ; select VGA sequencer map mask register
		1400	mov al,0x0f
76	mario79	1401	inc dx
1	ha	1402	out dx,al ; set mask for all planes 0-3
		1403
		1404	mov al,0x08
76	mario79	1405	pop dx
1	ha	1406	out dx,al ; select GDC bit mask register
		1407	; for writes to 0x03cf
		1408
		1409	gmok2:
76	mario79	1410	push ds
		1411	pop es

Subversion Repositories Kolibri OS

(root)/kernel/trunk/boot/bootcode.inc – Rev 375