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

Rev	Author	Line No.	Line
2288	clevermous	1	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
		2	;; ;;
2455	mario79	3	;; Copyright (C) KolibriOS team 2004-2011. All rights reserved. ;;
2288	clevermous	4	;; Copyright (C) MenuetOS 2000-2004 Ville Mikael Turjanmaa ;;
		5	;; Distributed under terms of the GNU General Public License ;;
		6	;; ;;
		7	;; BOOTCODE.INC ;;
		8	;; ;;
		9	;; KolibriOS 16-bit loader, ;;
		10	;; based on bootcode for MenuetOS ;;
		11	;; ;;
		12	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
		13
		14	$Revision: 3274 $
		15
		16
		17	;==========================================================================
		18	;
		19	; 16 BIT FUNCTIONS
		20	;
		21	;==========================================================================
		22
		23
		24	putchar:
		25	; in: al=character
		26	mov ah, 0Eh
		27	mov bh, 0
		28	int 10h
		29	ret
		30
		31	print:
		32	; in: si->string
		33	mov al, 186
		34	call putchar
		35	mov al, ' '
		36	call putchar
		37
		38	printplain:
		39	; in: si->string
		40	pusha
		41	lodsb
		42	@@:
		43	call putchar
		44	lodsb
		45	test al, al
		46	jnz @b
		47	popa
		48	ret
		49
		50	getkey:
		51	; get number in range [bl,bh] (bl,bh in ['0'..'9'])
		52	; in: bx=range
		53	; out: ax=digit (1..9, 10 for 0)
		54	mov ah, 0
		55	int 16h
		56	cmp al, bl
		57	jb getkey
		58	cmp al, bh
		59	ja getkey
		60	push ax
		61	call putchar
		62	pop ax
		63	and ax, 0Fh
		64	jnz @f
		65	mov al, 10
		66	@@:
		67	ret
		68
		69	setcursor:
		70	; in: dl=column, dh=row
		71	mov ah, 2
		72	mov bh, 0
		73	int 10h
		74	ret
		75
		76	macro _setcursor row,column
		77	{
		78	mov dx, row*256 + column
		79	call setcursor
		80	}
		81
		82	boot_read_floppy:
		83	push si
		84	xor si, si
		85	mov ah, 2 ; read
		86	@@:
		87	push ax
		88	int 0x13
		89	pop ax
		90	jnc @f
		91	inc si
		92	cmp si, 10
		93	jb @b
		94	sayerr_badsect:
		95	mov si, badsect
		96	sayerr_plain:
		97	call printplain
		98	jmp $
		99	@@:
		100	pop si
		101	ret
		102
		103	; convert abs. sector number (AX) to BIOS T:H:S
		104	; sector number = (abs.sector%BPB_SecPerTrk)+1
		105	; pre.track number = (abs.sector/BPB_SecPerTrk)
		106	; head number = pre.track number%BPB_NumHeads
		107	; track number = pre.track number/BPB_NumHeads
		108	; Return: cl - sector number
		109	; ch - track number
		110	; dl - drive number (0 = a:)
		111	; dh - head number
		112	conv_abs_to_THS:
		113	push bx
		114	mov bx, word [BPB_SecPerTrk]
		115	xor dx, dx
		116	div bx
		117	inc dx
		118	mov cl, dl ; cl = sector number
		119	mov bx, word [BPB_NumHeads]
		120	xor dx, dx
		121	div bx
		122	; !!!!!!! ax = track number, dx = head number
		123	mov ch, al ; ch=track number
		124	xchg dh, dl ; dh=head number
		125	mov dl, 0 ; dl=0 (drive 0 (a:))
		126	pop bx
		127	retn
		128	; needed variables
		129	BPB_SecPerTrk dw 0 ; sectors per track
		130	BPB_NumHeads dw 0 ; number of heads
		131	BPB_FATSz16 dw 0 ; size of FAT
		132	BPB_RootEntCnt dw 0 ; count of root dir. entries
		133	BPB_BytsPerSec dw 0 ; bytes per sector
		134	BPB_RsvdSecCnt dw 0 ; number of reserved sectors
		135	BPB_TotSec16 dw 0 ; count of the sectors on the volume
		136	BPB_SecPerClus db 0 ; number of sectors per cluster
		137	BPB_NumFATs db 0 ; number of FAT tables
		138	abs_sector_adj dw 0 ; adjustment to make abs. sector number
		139	end_of_FAT dw 0 ; end of FAT table
		140	FirstDataSector dw 0 ; begin of data
		141
		142	;=========================================================================
		143	;
		144	; 16 BIT CODE
		145	;
		146	;=========================================================================
		147
		148	include 'bootvesa.inc' ;Include source for boot vesa
		149	if defined extended_primary_loader
		150	include 'parsers.inc'
		151	end if
		152
		153	start_of_code:
		154
		155	if defined extended_primary_loader
		156	; save data from primary loader
		157	mov word [cs:bootcallback], si
		158	mov word [cs:bootcallback+2], ds
		159	push cs
		160	pop ds
		161	mov [bootdevice], ax
		162	mov [bootfs], bx
		163
		164	; set up stack
		165	mov ax, 3000h
		166	mov ss, ax
		167	mov sp, 0EC00h
		168
		169	; try to load configuration file
		170	mov ax, 1
		171	mov di, config_file_struct
		172	call [bootcallback]
		173	cld
		174	push cs
		175	pop es
		176	; bx=0 - ok, bx=1 - part of file loaded, assume this is ok
		177	cmp bx, 1
		178	ja .config_bad
		179	; configuration file was loaded, parse
		180	; if length is too big, use first 0FFFFh bytes
		181	test dx, dx
		182	jz @f
		183	mov ax, 0FFFFh
		184	@@:
		185	; ds:si will be pointer to current data, dx = limit
		186	xchg ax, dx
		187	push 4000h
		188	pop ds
		189	xor si, si
		190	.parse_loop:
		191	; skip spaces
		192	cmp si, dx
		193	jae .parse_done
		194	lodsb
		195	cmp al, ' '
		196	jbe .parse_loop
		197	dec si
		198	; loop over all possible configuration values
		199	mov bx, config_file_variables
		200	.find_variant:
		201	; get length
		202	mov cx, [es:bx]
		203	; zero length = end of list
		204	jecxz .find_newline
		205	; skip over length
		206	inc bx
		207	inc bx
		208	mov di, bx
		209	; skip over string
		210	add bx, cx
		211	; test whether we have at least cx symbols left
		212	mov ax, cx
		213	add ax, si
		214	jc .next_variant1
		215	cmp ax, dx
		216	jae .next_variant1
		217	; save current position
		218	push si
		219	; compare strings
		220	repz cmpsb
		221	jnz .next_variant2
		222	; strings are equal; look for "=" with possible spaces before and after
		223	@@:
		224	cmp si, dx
		225	jae .next_variant2
		226	lodsb
		227	cmp al, ' '
		228	jbe @b
		229	cmp al, '='
		230	jnz .next_variant2
		231	; ok, we found the true variant
		232	; ignore saved position on the stack
		233	pop ax
		234	; call the parser
		235	call word [es:bx]
		236	; line parsed, find next
		237	.find_newline:
		238	cmp si, dx
		239	jae .parse_done
		240	lodsb
		241	cmp al, 13
		242	jz .parse_loop
		243	cmp al, 10
		244	jz .parse_loop
		245	jmp .find_newline
		246	.next_variant2:
		247	; continue to the next variant, restoring current position
		248	pop si
		249	.next_variant1:
		250	; continue to the next variant
		251	; skip over the parser
		252	inc bx
		253	inc bx
		254	jmp .find_variant
		255	.parse_done:
		256	.config_bad:
		257
		258	; set up segment registers
		259	push cs
		260	pop ds
		261	else
		262	cld
		263	; \begin{diamond}[02.12.2005]
		264	; if bootloader sets ax = 'KL', then ds:si points to loader block
		265	cmp ax, 'KL'
		266	jnz @f
		267	mov word [cs:cfgmanager.loader_block], si
		268	mov word [cs:cfgmanager.loader_block+2], ds
		269	@@:
		270	; \end{diamond}[02.12.2005]
		271
		272	; if bootloader sets cx = 'HA' and dx = 'RD', then bx contains identifier of source hard disk
		273	; (see comment to bx_from_load)
		274	cmp cx, 'HA'
		275	jnz no_hd_load
		276	cmp dx, 'RD'
		277	jnz no_hd_load
		278	mov word [cs:bx_from_load], bx ; {SPraid}[13.03.2007]
		279	no_hd_load:
		280
		281	; set up stack
		282	mov ax, 3000h
		283	mov ss, ax
		284	mov sp, 0EC00h
		285	; set up segment registers
		286	push cs
		287	pop ds
		288	push cs
		289	pop es
		290	end if
		291
		292	; set videomode
		293	mov ax, 3
		294	int 0x10
		295
		296	if lang eq ru
		297	; Load & set russian VGA font (RU.INC)
		298	mov bp, RU_FNT1 ; RU_FNT1 - First part
		299	mov bx, 1000h ; 768 bytes
		300	mov cx, 30h ; 48 symbols
		301	mov dx, 80h ; 128 - position of first symbol
		302	mov ax, 1100h
		303	int 10h
		304
		305	mov bp, RU_FNT2 ; RU_FNT2 -Second part
		306	mov bx, 1000h ; 512 bytes
		307	mov cx, 20h ; 32 symbols
		308	mov dx, 0E0h ; 224 - position of first symbol
		309	mov ax, 1100h
		310	int 10h
		311	; End set VGA russian font
		312	else if lang eq et
		313	mov bp, ET_FNT ; ET_FNT1
		314	mov bx, 1000h ;
		315	mov cx, 255 ; 256 symbols
		316	xor dx, dx ; 0 - position of first symbol
		317	mov ax, 1100h
		318	int 10h
		319	end if
		320
		321	; draw frames
		322	push 0xb800
		323	pop es
		324	xor di, di
		325	mov ah, 1*16+15
		326
		327	; draw top
		328	mov si, d80x25_top
		329	mov cx, d80x25_top_num * 80
		330	@@:
		331	lodsb
		332	stosw
		333	loop @b
		334	; draw spaces
		335	mov si, space_msg
		336	mov dx, 25 - d80x25_top_num - d80x25_bottom_num
		337	dfl1:
		338	push si
		339	mov cx, 80
		340	@@:
		341	lodsb
		342	stosw
		343	loop @b
		344	pop si
		345	dec dx
		346	jnz dfl1
		347	; draw bottom
		348	mov si, d80x25_bottom
		349	mov cx, d80x25_bottom_num * 80
		350	@@:
		351	lodsb
		352	stosw
		353	loop @b
		354
		355	mov byte [space_msg+80], 0 ; now space_msg is null terminated
		356
		357	_setcursor d80x25_top_num,0
		358
		359
		360	; TEST FOR 386+
		361
		362	mov bx, 0x4000
		363	pushf
		364	pop ax
		365	mov dx, ax
		366	xor ax, bx
		367	push ax
		368	popf
		369	pushf
		370	pop ax
		371	and ax, bx
		372	and dx, bx
		373	cmp ax, dx
		374	jnz cpugood
		375	mov si, not386
		376	sayerr:
		377	call print
		378	jmp $
		379	cpugood:
		380
		381	push 0
		382	popf
		383	sti
		384
		385	; set up esp
		386	movzx esp, sp
		387
		388	push 0
		389	pop es
2466	Serge	390	and word [es:BOOT_IDE_BASE_ADDR], 0
2288	clevermous	391	; \begin{Mario79}
		392	; find HDD IDE DMA PCI device
		393	; check for PCI BIOS
		394	mov ax, 0xB101
		395	int 0x1A
		396	jc .nopci
		397	cmp edx, 'PCI '
		398	jnz .nopci
		399	; find PCI class code
		400	; class 1 = mass storage
		401	; subclass 1 = IDE controller
		402	; a) class 1, subclass 1, programming interface 0x80
		403	mov ax, 0xB103
		404	mov ecx, 110000h + 1100h + 0x80
		405	xor si, si ; device index = 0
		406	int 0x1A
		407	jnc .found
		408	; b) class 1, subclass 1, programming interface 0x8A
		409	mov ax, 0xB103
		410	mov ecx, 110000h + 1100h + 0x8A
		411	xor si, si ; device index = 0
		412	int 0x1A
		413	jnc .found
		414	; c) class 1, subclass 1, programming interface 0x85
		415	mov ax, 0xB103
		416	mov ecx, 110000h + 1100h + 0x85
		417	xor si, si
		418	int 0x1A
		419	jc .nopci
		420	.found:
		421	; get memory base
		422	mov ax, 0xB10A
		423	mov di, 0x20 ; memory base is config register at 0x20
		424	int 0x1A
		425	jc .nopci
		426	and cx, 0xFFF0 ; clear address decode type
2466	Serge	427	mov [es:BOOT_IDE_BASE_ADDR], cx
2288	clevermous	428	.nopci:
		429	; \end{Mario79}
		430
		431	mov al, 0xf6 ; �� , ��
		432	out 0x60, al
		433	xor cx, cx
		434	wait_loop: ; variant 2
		435	; reading state of port of 8042 controller
		436	in al, 64h
		437	and al, 00000010b ; ready flag
		438	; wait until 8042 controller is ready
		439	loopnz wait_loop
		440
		441	;;;/diamond today 5.02.2008
		442	; set keyboard typematic rate & delay
		443	mov al, 0xf3
		444	out 0x60, al
		445	xor cx, cx
		446	@@:
		447	in al, 64h
		448	test al, 2
		449	loopnz @b
		450	mov al, 0
		451	out 0x60, al
		452	xor cx, cx
		453	@@:
		454	in al, 64h
		455	test al, 2
		456	loopnz @b
		457	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
		458	; --------------- APM ---------------------
2466	Serge	459	and word [es:BOOT_APM_VERSION], 0 ; ver = 0.0 (APM not found)
2288	clevermous	460	mov ax, 0x5300
		461	xor bx, bx
		462	int 0x15
		463	jc apm_end ; APM not found
		464	test cx, 2
		465	jz apm_end ; APM 32-bit protected-mode interface not supported
2466	Serge	466	mov [es:BOOT_APM_VERSION], ax ; Save APM Version
		467	mov [es:BOOT_APM_FLAGS], cx ; Save APM flags
2288	clevermous	468
		469	; Write APM ver ----
		470	and ax, 0xf0f
		471	add ax, '00'
		472	mov si, msg_apm
		473	mov [si + 5], ah
		474	mov [si + 7], al
		475	_setcursor 0, 3
		476	call printplain
		477	; ------------------
		478
		479	mov ax, 0x5304 ; Disconnect interface
		480	xor bx, bx
		481	int 0x15
		482	mov ax, 0x5303 ; Connect 32 bit mode interface
		483	xor bx, bx
		484	int 0x15
		485
2466	Serge	486	mov [es:BOOT_APM_ENTRY], ebx
		487	mov [es:BOOT_APM_CODE_32], ax
		488	mov [es:BOOT_APM_CODE_16], cx
		489	mov [es:BOOT_APM_DATA_16], dx
2288	clevermous	490
		491	apm_end:
		492	_setcursor d80x25_top_num, 0
		493
		494	if ~ defined extended_primary_loader
		495	;CHECK current of code
		496	cmp [cfgmanager.loader_block], -1
		497	jz noloaderblock
		498	les bx, [cfgmanager.loader_block]
		499	cmp byte [es:bx], 1
		500	mov si, loader_block_error
		501	jnz sayerr
		502	push 0
		503	pop es
		504	end if
		505
		506	noloaderblock:
		507	; DISPLAY VESA INFORMATION
		508	call print_vesa_info
		509	call calc_vmodes_table
		510	call check_first_parm ;check and enable cursor_pos
		511
		512	; \begin{diamond}[30.11.2005]
		513	cfgmanager:
		514	; settings:
		515	; a) preboot_graph = graphical mode
		516	; preboot_gprobe = probe this mode?
		517	; b) preboot_dma = use DMA access?
		518	; c) preboot_vrrm = use VRR?
		519	; d) preboot_device = from what boot?
		520
		521	; determine default settings
		522	if ~ defined extended_primary_loader
		523	mov [.bSettingsChanged], 0
		524	end if
		525
		526	;.preboot_gr_end:
		527	mov di, preboot_device
		528	; if image in memory is present and [preboot_device] is uninitialized,
		529	; set it to use this preloaded image
		530	cmp byte [di], 0
		531	jnz .preboot_device_inited
		532	if defined extended_primary_loader
		533	inc byte [di]
		534	cmp byte [bootdevice], 'f' ; floppy?
		535	jz .preboot_device_inited
		536	inc byte [di]
		537	else
		538	cmp [.loader_block], -1
		539	jz @f
		540	les bx, [.loader_block]
		541	test byte [es:bx+1], 1
		542	jz @f
		543	mov byte [di], 3
		544	jmp .preboot_device_inited
		545	@@:
		546	; otherwise, set [preboot_device] to 1 (default value - boot from floppy)
		547	mov byte [di], 1
		548	end if
		549	.preboot_device_inited:
		550	; following 4 lines set variables to 1 if its current value is 0
		551	cmp byte [di+preboot_dma-preboot_device], 1
		552	adc byte [di+preboot_dma-preboot_device], 0
		553	cmp byte [di+preboot_biosdisk-preboot_device], 1
		554	adc byte [di+preboot_biosdisk-preboot_device], 0
		555	;; default value for VRR is OFF
		556	; cmp byte [di+preboot_vrrm-preboot_device], 0
		557	; jnz @f
		558	; mov byte [di+preboot_vrrm-preboot_device], 2
		559	;@@:
		560	; notify user
		561	_setcursor 5,2
		562
		563	mov si, linef
		564	call printplain
		565	mov si, start_msg
		566	call print
		567	mov si, time_msg
		568	call print
		569	; get start time
		570	call .gettime
		571	mov [.starttime], eax
		572	mov word [.timer], .newtimer
		573	mov word [.timer+2], cs
		574	.printcfg:
		575
		576	_setcursor 9,0
		577	mov si, current_cfg_msg
		578	call print
		579	mov si, curvideo_msg
		580	call print
		581
		582	call draw_current_vmode
		583
		584	mov si, usebd_msg
		585	cmp [preboot_biosdisk], 1
		586	call .say_on_off
		587	; mov si, vrrm_msg
		588	; cmp [preboot_vrrm], 1
		589	; call .say_on_off
		590	mov si, preboot_device_msg
		591	call print
		592	mov al, [preboot_device]
		593	if defined extended_primary_loader
		594	and eax, 3
		595	else
		596	and eax, 7
		597	end if
		598	mov si, [preboot_device_msgs+eax*2]
		599	call printplain
		600	.show_remarks:
		601	; show remarks in gray color
		602	mov di, ((21-num_remarks)80 + 2)2
		603	push 0xB800
		604	pop es
		605	mov cx, num_remarks
		606	mov si, remarks
		607	.write_remarks:
		608	lodsw
		609	push si
		610	xchg ax, si
		611	mov ah, 1*16+7 ; background: blue (1), foreground: gray (7)
		612	push di
		613	.write_remark:
		614	lodsb
		615	test al, al
		616	jz @f
		617	stosw
		618	jmp .write_remark
		619	@@:
		620	pop di
		621	pop si
		622	add di, 80*2
		623	loop .write_remarks
		624	.wait:
		625	_setcursor 25,0 ; out of screen
		626	; set timer interrupt handler
		627	cli
		628	push 0
		629	pop es
		630	push dword [es:8*4]
		631	pop dword [.oldtimer]
		632	push dword [.timer]
		633	pop dword [es:8*4]
		634	; mov eax, [es:8*4]
		635	; mov [.oldtimer], eax
		636	; mov eax, [.timer]
		637	; mov [es:8*4], eax
		638	sti
		639	; wait for keypressed
		640	xor ax, ax
		641	int 16h
		642	push ax
		643	; restore timer interrupt
		644	; push 0
		645	; pop es
		646	mov eax, [.oldtimer]
		647	mov [es:8*4], eax
		648	mov [.timer], eax
		649
		650	_setcursor 7,0
		651	mov si, space_msg
		652	call printplain
		653	; clear remarks and restore normal attributes
		654	push es
		655	mov di, ((21-num_remarks)80 + 2)2
		656	push 0xB800
		657	pop es
		658	mov cx, num_remarks
		659	mov ax, ' ' + (116 + 15)100h
		660	@@:
		661	push cx
		662	mov cx, 76
		663	rep stosw
		664	pop cx
		665	add di, 4*2
		666	loop @b
		667	pop es
		668	pop ax
		669	; switch on key
		670	cmp al, 13
		671	jz .continue
		672	or al, 20h
		673	cmp al, 'a'
		674	jz .change_a
		675	cmp al, 'b'
		676	jz .change_b
		677	; cmp al, 'c'
		678	; jz .change_c
		679	cmp al, 'c' ; 'd'
		680	jnz .show_remarks
		681	_setcursor 15,0
		682	mov si, bdev
		683	call print
		684	if defined extended_primary_loader
		685	mov bx, '12'
		686	else
		687	mov bx, '14'
		688	end if
		689	call getkey
		690	mov [preboot_device], al
		691	_setcursor 13,0
		692	.d:
		693	if ~ defined extended_primary_loader
		694	mov [.bSettingsChanged], 1
		695	end if
		696	call clear_vmodes_table ;clear vmodes_table
		697	jmp .printcfg
		698	.change_a:
		699	.loops:
		700	call draw_vmodes_table
		701	_setcursor 25,0 ; out of screen
		702	xor ax, ax
		703	int 0x16
		704	; call clear_table_cursor ;clear current position of cursor
		705
		706	mov si, word [cursor_pos]
		707
		708	cmp ah, 0x48;x,0x48E0 ; up
		709	jne .down
		710	cmp si, modes_table
		711	jbe .loops
		712	sub word [cursor_pos], size_of_step
		713	jmp .loops
		714
		715	.down:
		716	cmp ah, 0x50;x,0x50E0 ; down
		717	jne .pgup
		718	cmp word[es:si+10], -1
		719	je .loops
		720	add word [cursor_pos], size_of_step
		721	jmp .loops
		722
		723	.pgup:
		724	cmp ah, 0x49 ; page up
		725	jne .pgdn
		726	sub si, size_of_step*long_v_table
		727	cmp si, modes_table
		728	jae @f
		729	mov si, modes_table
		730	@@:
		731	mov word [cursor_pos], si
		732	mov si, word [home_cursor]
		733	sub si, size_of_step*long_v_table
		734	cmp si, modes_table
		735	jae @f
		736	mov si, modes_table
		737	@@:
		738	mov word [home_cursor], si
		739	jmp .loops
		740
		741	.pgdn:
		742	cmp ah, 0x51 ; page down
		743	jne .enter
		744	mov ax, [end_cursor]
		745	add si, size_of_step*long_v_table
		746	cmp si, ax
		747	jb @f
		748	mov si, ax
		749	sub si, size_of_step
		750	@@:
		751	mov word [cursor_pos], si
		752	mov si, word [home_cursor]
		753	sub ax, size_of_step*long_v_table
		754	add si, size_of_step*long_v_table
		755	cmp si, ax
		756	jb @f
		757	mov si, ax
		758	@@:
		759	mov word [home_cursor], si
		760	jmp .loops
		761
		762	.enter:
		763	cmp al, 0x0D;x,0x1C0D ; enter
		764	jne .loops
		765	push word [cursor_pos]
		766	pop bp
		767	push word [es:bp]
		768	pop word [x_save]
		769	push word [es:bp+2]
		770	pop word [y_save]
		771	push word [es:bp+6]
		772	pop word [number_vm]
		773	mov word [preboot_graph], bp ;save choose
		774
		775	jmp .d
		776
		777	.change_b:
		778	_setcursor 15,0
		779	; mov si, ask_dma
		780	; call print
		781	; mov bx, '13'
		782	; call getkey
		783	; mov [preboot_dma], al
		784	mov si, ask_bd
		785	call print
		786	mov bx, '12'
		787	call getkey
		788	mov [preboot_biosdisk], al
		789	_setcursor 11,0
		790	jmp .d
		791	;.change_c:
		792	; _setcursor 15,0
		793	; mov si, vrrmprint
		794	; call print
		795	; mov bx, '12'
		796	; call getkey
		797	; mov [preboot_vrrm], al
		798	; _setcursor 12,0
		799	; jmp .d
		800	;;;;;;;;;;;;;;;;;;;;;;;;;;;;
		801	.say_on_off:
		802	pushf
		803	call print
		804	mov si, on_msg
		805	popf
		806	jz @f
		807	mov si, off_msg
		808	@@:
		809	jmp printplain
		810	; novesa and vervesa strings are not used at the moment of executing this code
		811	virtual at novesa
		812	.oldtimer dd ?
		813	.starttime dd ?
		814	if ~ defined extended_primary_loader
		815	.bSettingsChanged db ?
		816	end if
		817	.timer dd ?
		818	end virtual
		819	if ~ defined extended_primary_loader
		820	.loader_block dd -1
		821	end if
		822	.gettime:
		823	mov ah, 0
		824	int 1Ah
		825	xchg ax, cx
		826	shl eax, 10h
		827	xchg ax, dx
		828	ret
		829	.newtimer:
		830	push ds
		831	push cs
		832	pop ds
		833	pushf
		834	call [.oldtimer]
		835	pushad
		836	call .gettime
		837	sub eax, [.starttime]
		838	if defined extended_primary_loader
		839	sub ax, [preboot_timeout]
		840	else
		841	sub ax, 18*5
		842	end if
		843	jae .timergo
		844	neg ax
		845	add ax, 18-1
		846	mov bx, 18
		847	xor dx, dx
		848	div bx
		849	if lang eq ru
		850	; �� 5 ᥪ㭤, 4/3/2 ᥪ㭤�, 1 ᥪ㭤�
		851	cmp al, 5
		852	mov cl, ' '
		853	jae @f
		854	cmp al, 1
		855	mov cl, '�'
		856	jz @f
		857	mov cl, '�'
		858	@@:
		859	mov [time_str+9], cl
		860	else if lang eq et
		861	cmp al, 1
		862	ja @f
		863	mov [time_str+9], ' '
		864	mov [time_str+10], ' '
		865	@@:
3274	esevece	866	else if lang eq sp
		867	; esperar 5/4/3/2 segundos, 1 segundo
		868	cmp al, 1
		869	mov cl, 's'
		870	ja @f
		871	mov cl, ' '
		872	@@:
		873	mov [time_str+10], cl
2288	clevermous	874	else
		875	; wait 5/4/3/2 seconds, 1 second
		876	cmp al, 1
		877	mov cl, 's'
		878	ja @f
		879	mov cl, ' '
		880	@@:
		881	mov [time_str+9], cl
		882	end if
		883	add al, '0'
		884	mov [time_str+1], al
		885	mov si, time_msg
		886	_setcursor 7,0
		887	call print
		888	_setcursor 25,0
		889	popad
		890	pop ds
		891	iret
		892	.timergo:
		893	push 0
		894	pop es
		895	mov eax, [.oldtimer]
		896	mov [es:8*4], eax
		897	mov sp, 0EC00h
		898	.continue:
		899	sti
		900	_setcursor 6,0
		901	mov si, space_msg
		902	call printplain
		903	call printplain
		904	_setcursor 6,0
		905	mov si, loading_msg
		906	call print
		907	_setcursor 15,0
		908	if ~ defined extended_primary_loader
		909	cmp [.bSettingsChanged], 0
		910	jz .load
		911	cmp [.loader_block], -1
		912	jz .load
		913	les bx, [.loader_block]
		914	mov eax, [es:bx+3]
		915	push ds
		916	pop es
		917	test eax, eax
		918	jz .load
		919	push eax
		920	mov si, save_quest
		921	call print
		922	.waityn:
		923	mov ah, 0
		924	int 16h
		925	or al, 20h
		926	cmp al, 'n'
		927	jz .loadc
		928	cmp al, 'y'
		929	jnz .waityn
		930	call putchar
		931	mov byte [space_msg+80], 186
		932
		933	pop eax
		934	push cs
		935	push .cont
		936	push eax
		937	retf ;call back
		938	.loadc:
		939	pop eax
		940	.cont:
		941	push cs
		942	pop ds
		943	mov si, space_msg
		944	mov byte [si+80], 0
		945	_setcursor 15,0
		946	call printplain
		947	_setcursor 15,0
		948	.load:
		949	end if
		950	; \end{diamond}[02.12.2005]
		951
		952	; ASK GRAPHICS MODE
		953
		954	call set_vmode
		955
		956	; GRAPHICS ACCELERATION
		957	; force yes
2466	Serge	958	mov [es:BOOT_MTRR], byte 1
2288	clevermous	959
		960	; DMA ACCESS TO HD
		961
		962	mov al, [preboot_dma]
2466	Serge	963	mov [es:BOOT_DMA], al
2288	clevermous	964
		965	;; VRR_M USE
		966	;
		967	; mov al,[preboot_vrrm]
		968	; mov [es:0x9030], al
		969
		970	; BOOT DEVICE
		971
		972	mov al, [preboot_device]
		973	dec al
		974	mov [boot_dev], al
		975
		976	; GET MEMORY MAP
		977	include '../detect/biosmem.inc'
		978
		979	; READ DISKETTE TO MEMORY
		980
		981	cmp [boot_dev], 0
		982	jne no_sys_on_floppy
		983	mov si, diskload
		984	call print
		985	xor ax, ax ; reset drive
		986	xor dx, dx
		987	int 0x13
		988	; do we boot from CD-ROM?
		989	mov ah, 41h
		990	mov bx, 55AAh
		991	xor dx, dx
		992	int 0x13
		993	jc .nocd
		994	cmp bx, 0AA55h
		995	jnz .nocd
		996	mov ah, 48h
		997	push ds
		998	push es
		999	pop ds
		1000	mov si, 0xa000
		1001	mov word [si], 30
		1002	int 0x13
		1003	pop ds
		1004	jc .nocd
		1005	push ds
		1006	lds si, [es:si+26]
		1007	test byte [ds:si+10], 40h
		1008	pop ds
		1009	jz .nocd
		1010	; yes - read all floppy by 18 sectors
		1011
		1012	; TODO: !!!! read only first sector and set variables !!!!!
		1013	; ...
		1014	; TODO: !!! then read flippy image track by track
		1015
		1016	mov cx, 0x0001 ; startcyl,startsector
		1017	.a1:
		1018	push cx dx
		1019	mov al, 18
		1020	mov bx, 0xa000
		1021	call boot_read_floppy
		1022	mov si, movedesc
		1023	push es
		1024	push ds
		1025	pop es
		1026	mov cx, 256*18
		1027	mov ah, 0x87
		1028	int 0x15
		1029	pop es
		1030	pop dx cx
		1031	test ah, ah
		1032	jnz sayerr_floppy
		1033	add dword [si+83+2], 51218
		1034	inc dh
		1035	cmp dh, 2
		1036	jnz .a1
		1037	mov dh, 0
		1038	inc ch
		1039	cmp ch, 80
		1040	jae ok_sys_on_floppy
		1041	pusha
		1042	mov al, ch
		1043	shr ch, 2
		1044	add al, ch
		1045	aam
		1046	xchg al, ah
		1047	add ax, '00'
		1048	mov si, pros
		1049	mov [si], ax
		1050	call printplain
		1051	popa
		1052	jmp .a1
		1053	.nocd:
		1054	; no - read only used sectors from floppy
		1055	; now load floppy image to memory
		1056	; at first load boot sector and first FAT table
		1057
		1058	; read only first sector and fill variables
		1059	mov cx, 0x0001 ; first logical sector
		1060	xor dx, dx ; head = 0, drive = 0 (a:)
		1061	mov al, 1 ; read one sector
		1062	mov bx, 0xB000 ; es:bx -> data area
		1063	call boot_read_floppy
		1064	; fill the necessary parameters to work with a floppy
		1065	mov ax, word [es:bx+24]
		1066	mov word [BPB_SecPerTrk], ax
		1067	mov ax, word [es:bx+26]
		1068	mov word [BPB_NumHeads], ax
		1069	mov ax, word [es:bx+17]
		1070	mov word [BPB_RootEntCnt], ax
		1071	mov ax, word [es:bx+14]
		1072	mov word [BPB_RsvdSecCnt], ax
		1073	mov ax, word [es:bx+19]
		1074	mov word [BPB_TotSec16], ax
		1075	mov al, byte [es:bx+13]
		1076	mov byte [BPB_SecPerClus], al
		1077	mov al, byte [es:bx+16]
		1078	mov byte [BPB_NumFATs], al
		1079	; 18.11.2008
		1080	mov ax, word [es:bx+22]
		1081	mov word [BPB_FATSz16], ax
		1082	mov cx, word [es:bx+11]
		1083	mov word [BPB_BytsPerSec], cx
		1084
		1085	; count of clusters in FAT12 ((size_of_FAT*2)/3)
		1086	; mov ax, word [BPB_FATSz16]
		1087	; mov cx, word [BPB_BytsPerSec]
		1088	;end 18.11.2008
		1089	xor dx, dx
		1090	mul cx
		1091	shl ax, 1
		1092	mov cx, 3
		1093	div cx ; now ax - number of clusters in FAT12
		1094	mov word [end_of_FAT], ax
		1095
		1096	; load first FAT table
		1097	mov cx, 0x0002 ; startcyl,startsector ; TODO!!!!!
		1098	xor dx, dx ; starthead,drive
		1099	mov al, byte [BPB_FATSz16] ; no of sectors to read
		1100	add bx, word [BPB_BytsPerSec] ; es:bx -> data area
		1101	call boot_read_floppy
		1102	mov bx, 0xB000
		1103
		1104	; and copy them to extended memory
		1105	mov si, movedesc
		1106	mov [si+8*2+3], bh ; from
		1107
		1108	mov ax, word [BPB_BytsPerSec]
		1109	shr ax, 1 ; words per sector
		1110	mov cx, word [BPB_RsvdSecCnt]
		1111	add cx, word [BPB_FATSz16]
		1112	mul cx
		1113	push ax ; save to stack count of words in boot+FAT
		1114	xchg ax, cx
		1115
		1116	push es
		1117	push ds
		1118	pop es
		1119	mov ah, 0x87
		1120	int 0x15
		1121	pop es
		1122	test ah, ah
		1123	jz @f
		1124	sayerr_floppy:
		1125	mov dx, 0x3f2
		1126	mov al, 0
		1127	out dx, al
		1128	sayerr_memmove:
		1129	mov si, memmovefailed
		1130	jmp sayerr_plain
		1131	@@:
		1132	pop ax ; restore from stack count of words in boot+FAT
		1133	shl ax, 1 ; make bytes count from count of words
		1134	and eax, 0ffffh
		1135	add dword [si+8*3+2], eax
		1136
		1137	; copy first FAT to second copy
		1138	; TODO: BPB_NumFATs !!!!!
		1139	add bx, word [BPB_BytsPerSec] ; !!! TODO: may be need multiply by BPB_RsvdSecCnt !!!
		1140	mov byte [si+8*2+3], bh ; bx - begin of FAT
		1141
		1142	mov ax, word [BPB_BytsPerSec]
		1143	shr ax, 1 ; words per sector
		1144	mov cx, word [BPB_FATSz16]
		1145	mul cx
		1146	mov cx, ax ; cx - count of words in FAT
		1147
		1148	push es
		1149	push ds
		1150	pop es
		1151	mov ah, 0x87
		1152	int 0x15
		1153	pop es
		1154	test ah, ah
		1155	jnz sayerr_floppy
		1156
		1157	mov ax, cx
		1158	shl ax, 1
		1159	and eax, 0ffffh ; ax - count of bytes in FAT
		1160	add dword [si+8*3+2], eax
		1161
		1162	; reading RootDir
		1163	; TODO: BPB_NumFATs
		1164	add bx, ax
		1165	add bx, 100h
		1166	and bx, 0ff00h ; bx - place in buffer to write RootDir
		1167	push bx
		1168
		1169	mov bx, word [BPB_BytsPerSec]
		1170	shr bx, 5 ; divide bx by 32
		1171	mov ax, word [BPB_RootEntCnt]
		1172	xor dx, dx
		1173	div bx
		1174	push ax ; ax - count of RootDir sectors
		1175
		1176	mov ax, word [BPB_FATSz16]
		1177	xor cx, cx
		1178	mov cl, byte [BPB_NumFATs]
		1179	mul cx
		1180	add ax, word [BPB_RsvdSecCnt] ; ax - first sector of RootDir
		1181
		1182	mov word [FirstDataSector], ax
		1183	pop bx
		1184	push bx
		1185	add word [FirstDataSector], bx ; Begin of data region of floppy
		1186
		1187	; read RootDir
		1188	call conv_abs_to_THS
		1189	pop ax
		1190	pop bx ; place in buffer to write
		1191	push ax
		1192	call boot_read_floppy ; read RootDir into buffer
		1193	; copy RootDir
		1194	mov byte [si+8*2+3], bh ; from buffer
		1195	pop ax ; ax = count of RootDir sectors
		1196	mov cx, word [BPB_BytsPerSec]
		1197	mul cx
		1198	shr ax, 1
		1199	mov cx, ax ; count of words to copy
		1200	push es
		1201	push ds
		1202	pop es
		1203	mov ah, 0x87
		1204	int 0x15
		1205	pop es
		1206
		1207	mov ax, cx
		1208	shl ax, 1
		1209	and eax, 0ffffh ; ax - count of bytes in RootDir
		1210	add dword [si+8*3+2], eax ; add count of bytes copied
		1211
		1212	; Reading data clusters from floppy
		1213	mov byte [si+8*2+3], bh
		1214	push bx
		1215
		1216	mov di, 2 ; First data cluster
		1217	.read_loop:
		1218	mov bx, di
		1219	shr bx, 1 ; bx+di = di*1.5
		1220	jnc .even
		1221	test word [es:bx+di+0xB200], 0xFFF0 ; TODO: may not be 0xB200 !!!
		1222	jmp @f
		1223	.even:
		1224	test word [es:bx+di+0xB200], 0xFFF ; TODO: may not be 0xB200 !!!
		1225
		1226	@@:
		1227	jz .skip
		1228	; read cluster di
		1229	;.read:
		1230	;conv cluster di to abs. sector ax
		1231	; ax = (N-2) * BPB_SecPerClus + FirstDataSector
		1232	mov ax, di
		1233	sub ax, 2
		1234	xor bx, bx
		1235	mov bl, byte [BPB_SecPerClus]
		1236	mul bx
		1237	add ax, word [FirstDataSector]
		1238	call conv_abs_to_THS
		1239	pop bx
		1240	push bx
		1241	mov al, byte [BPB_SecPerClus] ; number of sectors in cluster
		1242	call boot_read_floppy
		1243	push es
		1244	push ds
		1245	pop es
		1246	pusha
		1247	;
		1248	mov ax, word [BPB_BytsPerSec]
		1249	xor cx, cx
		1250	mov cl, byte [BPB_SecPerClus]
		1251	mul cx
		1252	shr ax, 1 ; ax = (BPB_BytsPerSec * BPB_SecPerClus)/2
		1253	mov cx, ax ; number of words to copy (count words in cluster)
		1254	;
		1255	mov ah, 0x87
		1256	int 0x15 ; copy data
		1257	test ah, ah
		1258	popa
		1259	pop es
		1260	jnz sayerr_floppy
		1261	; skip cluster di
		1262	.skip:
		1263	mov ax, word [BPB_BytsPerSec]
		1264	xor cx, cx
		1265	mov cl, byte [BPB_SecPerClus]
		1266	mul cx
		1267	and eax, 0ffffh ; ax - count of bytes in cluster
		1268	add dword [si+8*3+2], eax
		1269
		1270	mov ax, word [end_of_FAT] ; max cluster number
		1271	pusha
		1272	; draw percentage
		1273	; total clusters: ax
		1274	; read clusters: di
		1275	xchg ax, di
		1276	mov cx, 100
		1277	mul cx
		1278	div di
		1279	aam
		1280	xchg al, ah
		1281	add ax, '00'
		1282	mov si, pros
		1283	cmp [si], ax
		1284	jz @f
		1285	mov [si], ax
		1286	call printplain
		1287	@@:
		1288	popa
		1289	inc di
		1290	cmp di, word [end_of_FAT] ; max number of cluster
		1291	jnz .read_loop
		1292	pop bx ; clear stack
		1293
		1294	ok_sys_on_floppy:
		1295	mov si, backspace2
		1296	call printplain
		1297	mov si, okt
		1298	call printplain
		1299	no_sys_on_floppy:
		1300	xor ax, ax ; reset drive
		1301	xor dx, dx
		1302	int 0x13
		1303	mov dx, 0x3f2 ; floppy motor off
		1304	mov al, 0
		1305	out dx, al
		1306
		1307	if defined extended_primary_loader
		1308	cmp [boot_dev], 1
		1309	jne no_sys_from_primary
		1310	; load kolibri.img using callback from primary loader
		1311	and word [movedesc + 24 + 2], 0
		1312	mov byte [movedesc + 24 + 4], 10h
		1313	; read in blocks of 64K until file is fully loaded
		1314	mov ax, 1
		1315	.repeat:
		1316	mov di, image_file_struct
		1317	call [bootcallback]
		1318	push cs
		1319	pop ds
		1320	push cs
		1321	pop es
		1322	cmp bx, 1
		1323	ja sayerr_badsect
		1324	push bx
		1325	mov si, movedesc
		1326	and word [si + 16 + 2], 0
		1327	mov byte [si + 16 + 4], 4
		1328	mov ah, 87h
		1329	mov cx, 8000h
		1330	int 15h
		1331	pop bx
		1332	test ah, ah
		1333	jnz sayerr_memmove
		1334	inc byte [si + 24 + 4]
		1335	test bx, bx
		1336	jz no_sys_from_primary
		1337	mov ax, 2
		1338	jmp .repeat
		1339	no_sys_from_primary:
		1340	end if
		1341
		1342	; SET GRAPHICS
		1343
		1344	xor ax, ax
		1345	mov es, ax
		1346
2466	Serge	1347	mov ax, [es:BOOT_VESA_MODE] ; vga & 320x200
2288	clevermous	1348	mov bx, ax
		1349	cmp ax, 0x13
		1350	je setgr
		1351	cmp ax, 0x12
		1352	je setgr
		1353	mov ax, 0x4f02 ; Vesa
		1354	setgr:
		1355	int 0x10
		1356	test ah, ah
		1357	mov si, fatalsel
		1358	jnz v_mode_error
		1359	; set mode 0x12 graphics registers:
		1360	cmp bx, 0x12
		1361	jne gmok2
		1362
		1363	mov al, 0x05
		1364	mov dx, 0x03ce
		1365	push dx
		1366	out dx, al ; select GDC mode register
		1367	mov al, 0x02
		1368	inc dx
		1369	out dx, al ; set write mode 2
		1370
		1371	mov al, 0x02
		1372	mov dx, 0x03c4
		1373	out dx, al ; select VGA sequencer map mask register
		1374	mov al, 0x0f
		1375	inc dx
		1376	out dx, al ; set mask for all planes 0-3
		1377
		1378	mov al, 0x08
		1379	pop dx
		1380	out dx, al ; select GDC bit mask register
		1381	; for writes to 0x03cf
		1382	gmok2:
		1383	push ds
		1384	pop es

Subversion Repositories Kolibri OS

(root)/kernel/trunk/boot/bootcode.inc @ 8091 – Rev 3274