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

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

Subversion Repositories Kolibri OS

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