freebsd-dev/sys/boot/i386/boot2/boot1.s
1999-08-28 01:08:13 +00:00

260 lines
6.6 KiB
ArmAsm

#
# Copyright (c) 1998 Robert Nordier
# All rights reserved.
#
# Redistribution and use in source and binary forms are freely
# permitted provided that the above copyright notice and this
# paragraph and the following disclaimer are duplicated in all
# such forms.
#
# This software is provided "AS IS" and without any express or
# implied warranties, including, without limitation, the implied
# warranties of merchantability and fitness for a particular
# purpose.
#
# $FreeBSD$
.set MEM_REL,0x700 # Relocation address
.set MEM_ARG,0x900 # Arguments
.set MEM_ORG,0x7c00 # Origin
.set MEM_BUF,0x8c00 # Load area
.set MEM_BTX,0x9000 # BTX start
.set MEM_JMP,0x9010 # BTX entry point
.set MEM_USR,0xa000 # Client start
.set PRT_OFF,0x1be # Partition offset
.set PRT_NUM,0x4 # Partitions
.set PRT_BSD,0xa5 # Partition type
.set SIZ_PAG,0x1000 # Page size
.set SIZ_SEC,0x200 # Sector size
.globl start
.globl xread
start: jmp main # Start recognizably
.org 0x4,0x90
# External read from disk
xread: pushl %ss # Address
popl %ds # data
xread.1: o16 # Starting
pushb $0x0 # absolute
pushl %ecx # block
pushl %eax # number
pushl %es # Address of
pushl %ebx # transfer buffer
xorl %eax,%eax # Number of
movb %dh,%al # blocks to
pushl %eax # transfer
pushb $0x10 # Size of packet
movl %esp,%ebp # Packet pointer
callwi(read) # Read from disk
leaw1r(0x10,_bp_,_sp) # Clear stack
lret # To far caller
# Bootstrap
main: cld # String ops inc
xorl %ecx,%ecx # Zero
movl %cx,%es # Address
movl %cx,%ds # data
movl %cx,%ss # Set up
movwir(start,_sp) # stack
movl %esp,%esi # Source
movwir(MEM_REL,_di) # Destination
incb %ch # Word count
rep # Copy
movsl # code
movwir(part4,_si) # Partition
cmpb $0x80,%dl # Hard drive?
jb main.4 # No
movb $0x1,%dh # Block count
callwi(nread) # Read MBR
movwir(0x1,_cx) # Two passes
main.1: movwir(MEM_BUF+PRT_OFF,_si) # Partition table
movb $0x1,%dh # Partition
main.2: cmpbi1(PRT_BSD,0x4,_si_) # Our partition type?
jne main.3 # No
jecxz main.5 # If second pass
tstbi0(0x80,_si_) # Active?
jnz main.5 # Yes
main.3: addl $0x10,%esi # Next entry
incb %dh # Partition
cmpb $0x1+PRT_NUM,%dh # In table?
jb main.2 # Yes
decl %ecx # Do two
jecxz main.1 # passes
movwir(msg_part,_si) # Message
jmp error # Error
main.4: xorl %edx,%edx # Partition:drive
main.5: movwrm(_dx,MEM_ARG) # Save args
movb $0x10,%dh # Sector count
callwi(nread) # Read disk
movwir(MEM_BTX,_bx) # BTX
movw1r(0xa,_bx_,_si) # Point past
addl %ebx,%esi # it
movwir(MEM_USR+SIZ_PAG,_di) # Client page 1
movwir(MEM_BTX+0xe*SIZ_SEC,_cx) # Byte
subl %esi,%ecx # count
rep # Relocate
movsb # client
subl %edi,%ecx # Byte count
xorb %al,%al # Zero
rep # assumed
stosb # bss
callwi(seta20) # Enable A20
jmpnwi(start+MEM_JMP-MEM_ORG) # Start BTX
# Enable A20
seta20: cli # Disable interrupts
seta20.1: inb $0x64,%al # Get status
testb $0x2,%al # Busy?
jnz seta20.1 # Yes
movb $0xd1,%al # Command: Write
outb %al,$0x64 # output port
seta20.2: inb $0x64,%al # Get status
testb $0x2,%al # Busy?
jnz seta20.2 # Yes
movb $0xdf,%al # Enable
outb %al,$0x60 # A20
sti # Enable interrupts
ret # To caller
# Local read from disk
nread: movwir(MEM_BUF,_bx) # Transfer buffer
movw1r(0x8,_si_,_ax) # Get
movw1r(0xa,_si_,_cx) # LBA
pushl %cs # Read from
callwi(xread.1) # disk
jnc return # If success
movwir(msg_read,_si) # Message
# Error exit
error: callwi(putstr) # Display message
movwir(prompt,_si) # Display
callwi(putstr) # prompt
xorb %ah,%ah # BIOS: Get
int $0x16 # keypress
int $0x19 # BIOS: Reboot
# Display string
putstr.0: movwir(0x7,_bx) # Page:attribute
movb $0xe,%ah # BIOS: Display
int $0x10 # character
putstr: lodsb # Get char
testb %al,%al # End of string?
jne putstr.0 # No
ereturn: movb $0x1,%ah # Invalid
stc # argument
return: ret # To caller
# Read from disk
read: cs_ # LBA support
tstbim(0x80,MEM_REL+flags-start)# enabled?
jz read.1 # No
movwir(0x55aa,_bx) # Magic
pushl %edx # Save
movb $0x41,%ah # BIOS: Check
int $0x13 # extensions present
popl %edx # Restore
jc read.1 # If error
cmpwir(0xaa55,_bx) # Magic?
jne read.1 # No
testb $0x1,%cl # Packet interface?
jz read.1 # No
movl %ebp,%esi # Disk packet
movb $0x42,%ah # BIOS: Extended
int $0x13 # read
ret # To caller
read.1: pushl %edx # Save
movb $0x8,%ah # BIOS: Get drive
int $0x13 # parameters
movb %dh,%ch # Max head number
popl %edx # Restore
jc return # If error
andb $0x3f,%cl # Sectors per track
jz ereturn # If zero
cli # Disable interrupts
o16 # Get
movw1r(0x8,_bp_,_ax) # LBA
pushl %edx # Save
movzbw %cl,%bx # Divide by
xorw %dx,%dx # sectors
divw %bx,%ax # per track
movb %ch,%bl # Max head number
movb %dl,%ch # Sector number
incl %ebx # Divide by
xorb %dl,%dl # number
divw %bx,%ax # of heads
movb %dl,%bh # Head number
popl %edx # Restore
o16 # Cylinder number
cmpl $0x3ff,%eax # supportable?
sti # Enable interrupts
ja ereturn # No
xchgb %al,%ah # Set up cylinder
rorb $0x2,%al # number
orb %ch,%al # Merge
incl %eax # sector
xchgl %eax,%ecx # number
movb %bh,%dh # Head number
subb %ah,%al # Sectors this track
movb1r(0x2,_bp_,_ah) # Blocks to read
cmpb %ah,%al # To read
jb read.2 # this
movb %ah,%al # track
read.2: movwir(0x5,_di) # Try count
read.3: lesw1r(0x4,_bp_,_bx) # Transfer buffer
pushl %eax # Save
movb $0x2,%ah # BIOS: Read
int $0x13 # from disk
popl %ebx # Restore
jnc read.4 # If success
decl %edi # Retry?
jz read.6 # No
xorb %ah,%ah # BIOS: Reset
int $0x13 # disk system
xchgl %ebx,%eax # Block count
jmp read.3 # Continue
read.4: movzbl %bl,%eax # Sectors read
addwr1(_ax,0x8,_bp_) # Adjust
jnc read.5 # LBA,
incw1(0xa,_bp_) # transfer
read.5: shlb %bl # buffer
addbr1(_bl,0x5,_bp_) # pointer,
subbr1(_al,0x2,_bp_) # block count
ja read.1 # If not done
read.6: ret # To caller
# Messages
msg_read: .asciz "Read"
msg_part: .asciz "Boot"
prompt: .asciz " error\r\n"
flags: .byte FLAGS # Flags
.org PRT_OFF,0x90
# Partition table
.fill 0x30,0x1,0x0
part4: .byte 0x80, 0x00, 0x01, 0x00
.byte 0xa5, 0xff, 0xff, 0xff
.byte 0x00, 0x00, 0x00, 0x00
.byte 0x50, 0xc3, 0x00, 0x00
.word 0xaa55 # Magic number