+# pcboot - bootable PC demo/game kernel
+# Copyright (C) 2018 John Tsiombikas <nuclear@member.fsf.org>
+#
+# This program is free software: you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation, either version 3 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY, without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program. If not, see <https://www.gnu.org/licenses/>.
+
.code16
.section .boot,"a"
+ .set stack_top, 0x7be0
+ .set read_retries, 0x7be8
+ .set drive_number, 0x7bec
+ .set cursor_x, 0x7bee
.set scratchbuf, 0x7bf0
.set scratchbuf_size, 16
boot:
cli
- cld
# move stack to just below the code
xor %ax, %ax
mov %ax, %ss
- mov $0x7bf0, %sp
+ mov $stack_top, %sp
# use the code segment for data access
mov %cs, %ax
mov %ax, %ds
call setup_serial
+ call get_drive_chs
+
mov $loading_msg, %si
call print_str
# load the second stage boot loader and jump to it
mov $_boot2_size, %eax
call print_num
- mov $loading_msg2, %si
- call print_str
+ mov $_boot2_size, %eax
mov %eax, %ebx
shr $9, %eax
and $0x1ff, %ebx
call read_sectors
jmp boot2_addr
- .set SECT_PER_TRACK, 18
-
.set ARG_NSECT, 6
.set ARG_SIDX, 4
-loading_msg: .asciz "Loading "
-loading_msg2: .asciz " bytes\n"
+loading_msg: .asciz "\nLoad "
+driveno_msg: .asciz "Drv:"
sect_per_track: .short 18
num_cylinders: .short 80
heads_mask: .byte 1
get_drive_chs:
+ mov $driveno_msg, %si
+ call print_str
+ xor %eax, %eax
movb drive_number, %dl
+ mov %dl, %al
+ call print_num
+ mov $10, %al
+ call print_char
+
mov $8, %ah
int $0x13
jnc .Lok
ret
-.Lok: mov %ch, %al
+.Lok: xor %eax, %eax
+ mov %ch, %al
mov %cl, %ah
rol $2, %ah
+ inc %ax
and $0x3ff, %ax
mov %ax, num_cylinders
+ and $0x3f, %cx
mov %cx, sect_per_track
- andw $0x3f, sect_per_track
shr $8, %dx
- mov %dx, num_heads
- dec %dl
mov %dl, heads_mask
+ inc %dx
+ mov %dx, num_heads
+ call print_num
+ mov $47, %al
+ call print_char
+ mov %dx, %ax
+ call print_num
+ mov $47, %al
+ call print_char
+ mov %cx, %ax
+ call print_num
ret
# read_sectors(first, num)
pop %bp
ret
- .set VAR_ATTEMPTS, -2
-
# read_sector(sidx)
read_sector:
push %bp
mov %sp, %bp
- sub $2, %sp
push %cx
push %dx
- movw $3, VAR_ATTEMPTS(%bp)
+ movw $3, read_retries
.Lread_try:
# calculate the track (sidx / sectors_per_track)
jnc .Lread_ok
# abort after 3 attempts
- decw VAR_ATTEMPTS(%bp)
+ decw read_retries
jz .Lread_fail
# error detected, reset controller and retry
0: pop %dx
pop %cx
- add $2, %sp
pop %bp
ret
-str_read_error: .asciz "read error, sector: "
+str_read_error: .asciz "rderr:"
abort_read:
mov $str_read_error, %si
- call print_str_num16
- hlt
-
- # prints a string (ds:si) followed by a number (eax)
-print_str_num:
- push %eax
call print_str
- pop %eax
+ and $0xffff, %eax
call print_num
mov $10, %al
- call ser_putchar
- ret
-
-print_str_num16:
- push %eax
- and $0xffff, %eax
- call print_str_num
- pop %eax
- ret
+ call print_char
+ hlt
# expects string pointer in ds:si
print_str:
# expects character in al
print_char:
push %es
- pushw $0xb800
+
+ push %ax
+ cmp $10, %ax
+ jnz 0f
+ mov $32, %ax
+
+0: pushw $0xb800
pop %es
movw cursor_x, %di
shl $1, %di
movb $7, %es:1(%di)
incw cursor_x
+ pop %ax
call ser_putchar
pop %es
ret
-cursor_x: .short 0
-
# expects number in eax
.global print_num
print_num:
.set DIV_9600, 115200 / 9600
.set LCTL_8N1, 0x03
.set LCTL_DLAB, 0x80
- .set FIFO_ENABLE, 0x01
- .set FIFO_SEND_CLEAR, 0x04
- .set FIFO_RECV_CLEAR, 0x02
- .set MCTL_DTR, 0x01
- .set MCTL_RTS, 0x02
- .set MCTL_OUT2, 0x08
+ .set FIFO_ENABLE_CLEAR, 0x07
+ .set MCTL_DTR_RTS_OUT2, 0x0b
.set LST_TREG_EMPTY, 0x20
setup_serial:
mov $UART_LCTL, %dx
out %al, %dx
# clear and enable fifo
- mov $FIFO_ENABLE, %al
- or $FIFO_SEND_CLEAR, %al
- or $FIFO_RECV_CLEAR, %al
+ mov $FIFO_ENABLE_CLEAR, %al
mov $UART_FIFO, %dx
out %al, %dx
# assert RTS and DTR
- mov $MCTL_DTR, %al
- or $MCTL_RTS, %al
- or $MCTL_OUT2, %al
+ mov $MCTL_DTR_RTS_OUT2, %al
mov $UART_MCTL, %dx
out %al, %dx
ret
# expects a character in al
- .global ser_putchar
ser_putchar:
push %dx
pop %dx
ret
-
-drive_number: .byte 0
.org 510
.byte 0x55
.byte 0xaa
-
boot2_addr: