Many fixes and improvements to the BIOS Extension ROM. (#33)
* Revert "Uploaded_2_9_2025"
This reverts commit ec79bbdbc9.
* Fixing DEBUG_IO builds.
* Make the IO port base a define.
* Fix CPU test to properly handle 808x vs V20.
* Improve timeout management logic.
* Improve SD Card initialization logic.
* Implement INT18h bootstrapping.
* Implementing a different test for processor type.
* Allow use with another fixed drive (eg: ESDI drive).
* Allow swapping driver ID between the BIOS disk and XTMax.
* Fix address of the ROM segment.
* Fixing missing STI at the top of the handler.
* Major rework of IO to use MOVSW.
* More code reorg and auto-detecting second drive.
* Update XTSD to use MOVSW.
* Add diagnostics program.
* Workaround for MS-DOS strange handling of interrupts.
* Use a lookup table for the memory map.
* Make the BootROM relocatable.
* Some more refactor of the Teensy code.
This commit is contained in:
Matthieu Bucchianeri
committed by
GitHub
GitHub
parent
ec79bbdbc9
commit
fe8385da08
@@ -11,14 +11,31 @@ cpu 8086 ; ensure we remain compatible with 8086
|
||||
;%define DEBUG_IO
|
||||
;%define EXTRA_DEBUG
|
||||
|
||||
|
||||
%define FIXED_DISK_0 (0)
|
||||
%define FIXED_DISK_1 (1)
|
||||
;
|
||||
; The base I/O port for the XTMAX SD Card.
|
||||
;
|
||||
%define XTMAX_IO_BASE (0x280)
|
||||
%define REG_DATA (XTMAX_IO_BASE+0)
|
||||
%define REG_CS (XTMAX_IO_BASE+1) ; write-only
|
||||
%define REG_CONFIG (XTMAX_IO_BASE+1) ; read-only
|
||||
%define REG_SCRATCH_0 (XTMAX_IO_BASE+2) ; fixed disk id
|
||||
%define REG_SCRATCH_1 (XTMAX_IO_BASE+3) ; BIOS INT13h segment
|
||||
%define REG_SCRATCH_2 (XTMAX_IO_BASE+4) ; BIOS INT13h segment
|
||||
%define REG_SCRATCH_3 (XTMAX_IO_BASE+5) ; BIOS INT13h offset
|
||||
%define REG_SCRATCH_4 (XTMAX_IO_BASE+6) ; BIOS INT13h offset
|
||||
%define REG_TIMEOUT (XTMAX_IO_BASE+7)
|
||||
|
||||
;
|
||||
; Whether we will emulate the 1st or 2nd disk.
|
||||
; Whether we will try/force using our own bootstrap code instead of falling back to BASIC.
|
||||
;
|
||||
%define DISK_NUMBER FIXED_DISK_0
|
||||
%define USE_BOOTSTRAP
|
||||
;%define FORCE_OWN_BOOTSTRAP
|
||||
|
||||
;
|
||||
; Whether we are going to rename the BIOS's 1st disk to be the second disk.
|
||||
; This is useful to allow booting from the second disk.
|
||||
;
|
||||
;%define TAKE_OVER_FIXED_DISK_0
|
||||
|
||||
;
|
||||
; The properties of our emulated disk.
|
||||
@@ -30,22 +47,26 @@ cpu 8086 ; ensure we remain compatible with 8086
|
||||
%define NUM_SECTORS (NUM_HEADS * (NUM_CYLINDERS - 1) * SECTORS_PER_TRACK)
|
||||
|
||||
%if NUM_HEADS > 255
|
||||
%error NUM_HEADS is too large
|
||||
%error NUM_HEADS_ is too large
|
||||
%endif
|
||||
%if NUM_HEADS > 16
|
||||
%warning NUM_HEADS_ above 16 can cause compatibility issues
|
||||
%endif
|
||||
%if SECTORS_PER_TRACK > 63
|
||||
%error SECTORS_PER_TRACK is too large
|
||||
%error SECTORS_PER_TRACK_ is too large
|
||||
%endif
|
||||
%if NUM_CYLINDERS > 1024
|
||||
%error NUM_CYLINDERS is too large
|
||||
%error NUM_CYLINDERS_ is too large
|
||||
%endif
|
||||
|
||||
beginning_of_rom:
|
||||
%ifndef AS_COM_PROGRAM
|
||||
;
|
||||
; BIOS will look for the AA55 signature between C8000-DFFFF in 2KB increments.
|
||||
; We choose an address in that range.
|
||||
;
|
||||
%define ROM_SEGMENT (0xc000)
|
||||
org (ROM_SEGMENT << 4 | 0xe000)
|
||||
%define ROM_SEGMENT (0xce00)
|
||||
org 0
|
||||
dw 0AA55h ; signature
|
||||
db 4 ; size in blocks of 512 bytes
|
||||
|
||||
@@ -61,6 +82,7 @@ entry:
|
||||
%ifndef AS_COM_PROGRAM
|
||||
push es
|
||||
push ax
|
||||
push cx
|
||||
push dx
|
||||
cli
|
||||
%endif
|
||||
@@ -68,6 +90,17 @@ entry:
|
||||
mov ax, welcome_msg
|
||||
call print_string
|
||||
|
||||
mov ax, rom_base_msg
|
||||
call print_string
|
||||
mov ax, cs
|
||||
call print_hex
|
||||
mov ax, colon
|
||||
call print_string
|
||||
mov ax, beginning_of_rom
|
||||
call print_hex
|
||||
mov ax, newline
|
||||
call print_string
|
||||
|
||||
;
|
||||
; Initialize the SD Card.
|
||||
;
|
||||
@@ -76,76 +109,66 @@ entry:
|
||||
jc .skip
|
||||
%endif
|
||||
|
||||
;
|
||||
; Detecting 80186-compatible so we can use REP INSW/OUTSW.
|
||||
; Based on https://www.rcollins.org/ftp/source/cpuid/cpuid.asm
|
||||
;
|
||||
.cpuid:
|
||||
push sp
|
||||
pop ax
|
||||
cmp ax, sp ; if below 80286, these values will differ
|
||||
jz .support_string_io ; nope, 80286 or higher
|
||||
mov ax, ds:[0xffff] ; get original data
|
||||
mov word ds:[0xffff], 0xaaaa ; write signature at test location
|
||||
cmp byte ds:[0], 0xaa ; 8086 will write the 2nd byte at offset 0
|
||||
mov ds:[0xffff], ax
|
||||
je .test_v20
|
||||
jmp .support_string_io ; we have an 80186/80188
|
||||
.test_v20:
|
||||
push ax ; save results
|
||||
xor al, al ; force ZF
|
||||
mov al, 0x40 ; multiplicand
|
||||
mul al ; V20 doesn't affect ZF
|
||||
pop ax ; restore results
|
||||
jz .support_string_io ; we have an V20
|
||||
xor dl, dl
|
||||
jmp .store_string_io
|
||||
.support_string_io:
|
||||
mov dl, 1
|
||||
mov ax, string_io_msg
|
||||
call print_string
|
||||
.store_string_io:
|
||||
mov ax, 0x283 ; scratch register 0
|
||||
xchg ax, dx
|
||||
out dx, al ; save capability
|
||||
|
||||
%ifndef AS_COM_PROGRAM
|
||||
;
|
||||
; Install our BIOS INT13h hook into the interrupt vector table.
|
||||
;
|
||||
.install_13h_vector:
|
||||
mov ax, old_13h_msg
|
||||
call print_string
|
||||
|
||||
xor ax, ax ; INT vector segment
|
||||
mov es, ax
|
||||
|
||||
mov ax, es:[0x13*4+2]
|
||||
mov dx, 0x284 ; scratch register 1-2
|
||||
mov dx, REG_SCRATCH_1
|
||||
out dx, ax ; save segment
|
||||
call print_hex
|
||||
mov ax, colon
|
||||
call print_string
|
||||
mov ax, es:[0x13*4]
|
||||
mov dx, 0x286 ; scratch register 3-4
|
||||
mov dx, REG_SCRATCH_3
|
||||
out dx, ax ; save offset
|
||||
call print_hex
|
||||
mov ax, newline
|
||||
call print_string
|
||||
|
||||
mov ax, new_13h_msg
|
||||
call print_string
|
||||
|
||||
mov ax, ROM_SEGMENT
|
||||
mov ax, cs
|
||||
mov es:[0x13*4+2], ax ; store segment
|
||||
call print_hex
|
||||
mov ax, colon
|
||||
call print_string
|
||||
mov ax, int13h_entry
|
||||
mov es:[0x13*4], ax ; store offset
|
||||
|
||||
;
|
||||
; Move fixed disk 0 to fixed disk 1.
|
||||
;
|
||||
%ifdef TAKE_OVER_FIXED_DISK_0
|
||||
call swap_fixed_disk_parameters_tables
|
||||
%endif
|
||||
|
||||
;
|
||||
; Determine our fixed disk ID.
|
||||
;
|
||||
.identify_fixed_disk:
|
||||
mov ax, disk_id_msg
|
||||
call print_string
|
||||
mov ax, 0x40 ; BIOS data area
|
||||
mov es, ax
|
||||
%ifndef TAKE_OVER_FIXED_DISK_0
|
||||
mov al, es:[0x75] ; HDNUM
|
||||
add al, 0x80
|
||||
%else
|
||||
mov al, 0x80
|
||||
%endif
|
||||
mov dx, REG_SCRATCH_0 ; save fixed disk id
|
||||
out dx, al
|
||||
push ax
|
||||
call print_hex
|
||||
mov ax, newline
|
||||
call print_string
|
||||
%if !(%isdef(USE_BOOTSTRAP) && %isdef(FORCE_OWN_BOOTSTRAP))
|
||||
.update_bda:
|
||||
;
|
||||
; Increment the number of fixed disks in the BIOS Data Area.
|
||||
;
|
||||
mov ax, num_drives_msg
|
||||
call print_string
|
||||
inc byte es:[0x75] ; HDNUM
|
||||
mov al, es:[0x75]
|
||||
xor ah, ah
|
||||
call print_hex
|
||||
mov ax, newline
|
||||
call print_string
|
||||
%endif
|
||||
pop ax
|
||||
|
||||
;
|
||||
; Install our fixed disk parameter table.
|
||||
@@ -153,30 +176,37 @@ entry:
|
||||
; For the 2nd disk, it is stored in the interrupt vector table, at vector 46h.
|
||||
;
|
||||
.install_fixed_disk_parameters_table:
|
||||
mov ax, new_fdpt_msg
|
||||
call print_string
|
||||
|
||||
mov ax, ROM_SEGMENT
|
||||
mov es:[(0x41+DISK_NUMBER*5)*4+2], ax ; store segment
|
||||
call print_hex
|
||||
mov ax, colon
|
||||
call print_string
|
||||
xor cx, cx ; INT vector segment
|
||||
mov es, cx
|
||||
cmp al, 0x80
|
||||
jne .second_disk
|
||||
mov ax, cs
|
||||
mov es:[0x41*4+2], ax ; store segment
|
||||
mov ax, fixed_disk_parameters_table
|
||||
mov es:[(0x41+DISK_NUMBER*5)*4], ax ; store offset
|
||||
call print_hex
|
||||
mov ax, newline
|
||||
call print_string
|
||||
mov es:[0x41*4+0], ax ; store offset
|
||||
jmp .end_fdpt
|
||||
.second_disk:
|
||||
mov ax, cs
|
||||
mov es:[0x46*4+2], ax ; store segment
|
||||
mov ax, fixed_disk_parameters_table
|
||||
mov es:[0x46*4+0], ax ; store offset
|
||||
.end_fdpt:
|
||||
|
||||
%ifdef USE_BOOTSTRAP
|
||||
;
|
||||
; Increment the number of fixed disks in the BIOS Data Area.
|
||||
; Install our BIOS INT18h hook into the interrupt vector table.
|
||||
;
|
||||
mov ax, 0x40 ; BIOS data area
|
||||
mov es, ax
|
||||
inc byte es:[0x75] ; HDNUM
|
||||
.install_18h_vector:
|
||||
mov ax, cs
|
||||
mov es:[0x18*4+2], ax ; store segment
|
||||
mov ax, int18h_entry
|
||||
mov es:[0x18*4], ax ; store offset
|
||||
%endif
|
||||
|
||||
.skip:
|
||||
sti
|
||||
pop dx
|
||||
pop cx
|
||||
pop ax
|
||||
pop es
|
||||
retf
|
||||
@@ -210,52 +240,94 @@ entry:
|
||||
;
|
||||
int13h_entry:
|
||||
%ifdef EXTRA_DEBUG
|
||||
push TEMP0
|
||||
mov TEMP0, sp
|
||||
mov TEMP0, [TEMP0+6] ; grab the flags for iret
|
||||
push TEMP0
|
||||
popf
|
||||
pop TEMP0
|
||||
call dump_regs
|
||||
%endif
|
||||
sti
|
||||
push TEMP0
|
||||
push TEMP1
|
||||
cmp dl, 0x80+DISK_NUMBER ; is this our drive?
|
||||
push ax
|
||||
push dx
|
||||
mov dx, REG_SCRATCH_0
|
||||
in al, dx
|
||||
pop dx
|
||||
cmp dl, al ; is this our drive?
|
||||
pop ax
|
||||
je .check_function
|
||||
|
||||
;
|
||||
; This is not an operation for the SD Card. Forward to the BIOS INT 13h handler.
|
||||
;
|
||||
.forward_to_bios:
|
||||
%ifdef TAKE_OVER_FIXED_DISK_0
|
||||
cmp dl, 0x81 ; is this the other fixed drive?
|
||||
jne .no_fixed_disk_take_over
|
||||
mov dl, 0x80
|
||||
call swap_fixed_disk_parameters_tables
|
||||
.no_fixed_disk_take_over:
|
||||
%endif
|
||||
mov TEMP0, ax ; save ax
|
||||
mov TEMP1, dx ; save dx
|
||||
pushf ; setup for iret from INT 13h handler
|
||||
push cs ; setup for iret from INT 13h handler
|
||||
mov ax, .return_common
|
||||
mov ax, .return_from_int13h
|
||||
push ax ; setup for iret from INT 13h handler
|
||||
.simulate_int13h:
|
||||
;
|
||||
; Simulate INT 13h with the original vector.
|
||||
;
|
||||
pushf ; setup for iret below
|
||||
mov dx, 0x284 ; scratch register 1-2
|
||||
mov dx, REG_SCRATCH_1
|
||||
%ifndef AS_COM_PROGRAM
|
||||
in ax, dx
|
||||
%else
|
||||
mov ax, cs
|
||||
%endif
|
||||
push ax ; setup for iret below
|
||||
mov dx, 0x286 ; scratch register 3-4
|
||||
push ax ; setup for retf below
|
||||
mov dx, REG_SCRATCH_3
|
||||
%ifndef AS_COM_PROGRAM
|
||||
in ax, dx
|
||||
%else
|
||||
mov ax, fake_int13h_entry
|
||||
%endif
|
||||
push ax ; setup for iret below
|
||||
push ax ; setup for retf below
|
||||
mov ax, TEMP0 ; restore ax
|
||||
mov dx, TEMP1 ; restore dx
|
||||
iret ; call the INT 13h handler
|
||||
; will return at .return_common
|
||||
cli ; INT inhibits interrupts
|
||||
retf ; call the INT 13h handler
|
||||
.return_from_int13h:
|
||||
sti ; just in case
|
||||
pushf
|
||||
push ax
|
||||
mov ax, TEMP1 ; original dx
|
||||
cmp al, 0x80 ; is fixed fixed?
|
||||
jb .skip_update_hdnum
|
||||
%ifdef TAKE_OVER_FIXED_DISK_0
|
||||
mov dl, 0x81
|
||||
call swap_fixed_disk_parameters_tables
|
||||
%endif
|
||||
mov ax, TEMP0 ; original ax
|
||||
cmp ah, 0x08 ; is read parameters?
|
||||
jne .skip_update_hdnum
|
||||
push es
|
||||
mov ax, 0x40 ; BIOS data area
|
||||
mov es, ax
|
||||
mov dl, es:[0x75] ; HDNUM
|
||||
pop es
|
||||
.skip_update_hdnum:
|
||||
pop ax
|
||||
popf
|
||||
jmp .return_common
|
||||
|
||||
;
|
||||
; This is an operation for the SD Card. Use our own INT 13h logic.
|
||||
;
|
||||
.check_function:
|
||||
cmp ah, 0x15 ; is valid function?
|
||||
cmp ah, 0x19 ; is valid function?
|
||||
jle .prepare_call
|
||||
call func_unsupported
|
||||
jmp .update_bda
|
||||
@@ -319,6 +391,7 @@ int13h_entry:
|
||||
.return_with_flags:
|
||||
pop TEMP1
|
||||
pop TEMP0
|
||||
sti ; workaround - MS-DOS does not properly propagate IF
|
||||
%ifdef EXTRA_DEBUG
|
||||
call dump_regs
|
||||
%endif
|
||||
@@ -350,6 +423,10 @@ func_table:
|
||||
dw func_unsupported ; diagnostics
|
||||
dw func_10_is_ready ; diagnostics
|
||||
dw func_15_read_size
|
||||
dw func_unsupported ; detect_change
|
||||
dw func_unsupported ; set_media_type
|
||||
dw func_unsupported ; set_media_type
|
||||
dw func_10_is_ready ; park_heads
|
||||
|
||||
func_unsupported:
|
||||
%ifdef DEBUG
|
||||
@@ -440,6 +517,7 @@ func_02_read_sector:
|
||||
jc error_sector_not_found
|
||||
; TODO: (robustness) check buffer boundaries
|
||||
.setup:
|
||||
push ds
|
||||
push bx
|
||||
push cx
|
||||
push dx
|
||||
@@ -447,9 +525,11 @@ func_02_read_sector:
|
||||
push ax
|
||||
mov cx, ax ; number of sectors to read
|
||||
xor ch, ch
|
||||
mov di, bx ; setup use of stosw
|
||||
mov ax, cs
|
||||
mov ds, ax
|
||||
mov di, bx ; setup use of movsw
|
||||
.assert_cs:
|
||||
mov dx, 0x282 ; chip select port
|
||||
mov dx, REG_CS
|
||||
mov al, 0 ; assert chip select
|
||||
out dx, al
|
||||
.cmd17:
|
||||
@@ -468,46 +548,40 @@ func_02_read_sector:
|
||||
mov ax, wait_msg
|
||||
call print_string
|
||||
%endif
|
||||
mov dx, 0x280 ; data port
|
||||
mov cx, 50000 ; timeout (50ms)
|
||||
jmp .receive_token_no_delay
|
||||
mov dx, REG_TIMEOUT
|
||||
mov al, 10 ; 100 ms
|
||||
out dx, al
|
||||
.receive_token:
|
||||
call delay_us
|
||||
.receive_token_no_delay:
|
||||
mov dx, REG_DATA
|
||||
in al, dx
|
||||
cmp al, 0xfe
|
||||
loopne .receive_token
|
||||
jne .error
|
||||
je .got_token
|
||||
mov dx, REG_TIMEOUT
|
||||
in al, dx
|
||||
test al, al
|
||||
jnz .error
|
||||
jmp .receive_token
|
||||
.got_token:
|
||||
%ifdef DEBUG_IO
|
||||
mov ax, sd_token_msg
|
||||
call print_string
|
||||
%endif
|
||||
mov cx, 256 ; block size (in words)
|
||||
push dx
|
||||
mov dx, 0x283 ; scratch register 0
|
||||
in al, dx
|
||||
pop dx
|
||||
test al, al ; supports insw?
|
||||
push si
|
||||
mov si, end_of_rom ; virtual buffer
|
||||
cld
|
||||
jz .receive_block
|
||||
.receive_block_fast:
|
||||
cpu 186
|
||||
rep insw
|
||||
cpu 8086
|
||||
jmp .receive_crc
|
||||
.receive_block:
|
||||
in ax, dx
|
||||
stosw
|
||||
loop .receive_block
|
||||
rep movsw
|
||||
.receive_crc:
|
||||
in ax, dx ; discard CRC
|
||||
lodsw ; discard CRC
|
||||
pop si
|
||||
add TEMP_LO, 1 ; next block
|
||||
adc TEMP_HI, 0 ; carry
|
||||
pop cx ; number of sectors left to read
|
||||
loop .cmd17
|
||||
.success:
|
||||
.deassert_cs1:
|
||||
mov dx, 0x282 ; chip select port
|
||||
mov dx, REG_CS
|
||||
mov al, 1 ; deassert chip select
|
||||
out dx, al
|
||||
.return1:
|
||||
@@ -516,10 +590,11 @@ cpu 8086
|
||||
pop dx
|
||||
pop cx
|
||||
pop bx
|
||||
pop ds
|
||||
jmp succeeded
|
||||
.error:
|
||||
.deassert_cs2:
|
||||
mov dx, 0x282 ; chip select port
|
||||
mov dx, REG_CS
|
||||
mov al, 1 ; deassert chip select
|
||||
out dx, al
|
||||
.return2:
|
||||
@@ -530,6 +605,7 @@ cpu 8086
|
||||
pop dx
|
||||
pop cx
|
||||
pop bx
|
||||
pop ds
|
||||
jmp error_drive_not_ready
|
||||
|
||||
;
|
||||
@@ -576,9 +652,11 @@ func_03_write_sector:
|
||||
xor ch, ch
|
||||
mov di, bx ; destination address
|
||||
mov ax, es
|
||||
mov ds, ax
|
||||
mov ds, ax ; save es and setup for movsw
|
||||
mov ax, cs
|
||||
mov es, ax
|
||||
.assert_cs:
|
||||
mov dx, 0x282 ; chip select port
|
||||
mov dx, REG_CS
|
||||
mov al, 0 ; assert chip select
|
||||
out dx, al
|
||||
.cmd24:
|
||||
@@ -593,41 +671,36 @@ func_03_write_sector:
|
||||
mov cl, 0x58 ; CMD24
|
||||
call send_sd_read_write_cmd
|
||||
jc .error
|
||||
mov dx, 0x280 ; data port
|
||||
mov dx, REG_DATA
|
||||
mov al, 0xfe ; send token
|
||||
out dx, al
|
||||
mov cx, 256 ; block size (in words)
|
||||
xchg di, si ; save si (aka TEMP1)
|
||||
push dx
|
||||
mov dx, 0x283 ; scratch register 0
|
||||
in al, dx
|
||||
pop dx
|
||||
test al, al ; supports outsw?
|
||||
push si ; save si (aka TEMP1)
|
||||
mov si, di
|
||||
mov di, end_of_rom ; virtual buffer
|
||||
cld
|
||||
jz .send_block
|
||||
.send_block_fast:
|
||||
cpu 186
|
||||
rep outsw
|
||||
cpu 8086
|
||||
jmp .end_send_block
|
||||
.send_block:
|
||||
lodsw
|
||||
out dx, ax
|
||||
loop .send_block
|
||||
.end_send_block:
|
||||
xchg si, di ; restore si (aka TEMP1)
|
||||
rep movsw
|
||||
mov di, si
|
||||
pop si ; restore si (aka TEMP1)
|
||||
%ifdef DEBUG_IO
|
||||
mov ax, wait_msg
|
||||
call print_string
|
||||
%endif
|
||||
mov cx, 50000 ; timeout (50ms)
|
||||
jmp .receive_status_no_delay
|
||||
mov dx, REG_TIMEOUT
|
||||
mov al, 25 ; 250 ms
|
||||
out dx, al
|
||||
.receive_status:
|
||||
call delay_us
|
||||
.receive_status_no_delay:
|
||||
mov dx, REG_DATA
|
||||
in al, dx
|
||||
cmp al, 0xff
|
||||
loope .receive_status
|
||||
jne .got_status
|
||||
mov dx, REG_TIMEOUT
|
||||
in al, dx
|
||||
test al, al
|
||||
jnz .error
|
||||
jmp .receive_status
|
||||
.got_status:
|
||||
%ifdef DEBUG_IO
|
||||
push ax
|
||||
mov ax, sd_status_msg
|
||||
@@ -647,15 +720,20 @@ cpu 8086
|
||||
mov ax, wait_msg
|
||||
call print_string
|
||||
%endif
|
||||
mov cx, 50000 ; timeout (50ms)
|
||||
jmp .receive_finish_no_delay
|
||||
mov dx, REG_TIMEOUT
|
||||
mov al, 25 ; 250 ms
|
||||
out dx, al
|
||||
.receive_finish:
|
||||
call delay_us
|
||||
.receive_finish_no_delay:
|
||||
mov dx, REG_DATA
|
||||
in al, dx
|
||||
test al, al
|
||||
loope .receive_finish
|
||||
jz .error
|
||||
jnz .got_finish
|
||||
mov dx, REG_TIMEOUT
|
||||
in al, dx
|
||||
test al, al
|
||||
jnz .error
|
||||
jmp .receive_finish
|
||||
.got_finish:
|
||||
%ifdef DEBUG_IO
|
||||
mov ax, sd_idle_msg
|
||||
call print_string
|
||||
@@ -663,13 +741,20 @@ cpu 8086
|
||||
add TEMP_LO, 1 ; next block
|
||||
adc TEMP_HI, 0 ; carry
|
||||
pop cx ; number of sectors left to write
|
||||
%ifndef DEBUG_IO
|
||||
loop .cmd24
|
||||
%else
|
||||
dec cx
|
||||
jnz .cmd24
|
||||
%endif
|
||||
.success:
|
||||
.deassert_cs1:
|
||||
mov dx, 0x282 ; chip select port
|
||||
mov dx, REG_CS
|
||||
mov al, 1 ; deassert chip select
|
||||
out dx, al
|
||||
.return1:
|
||||
mov ax, ds
|
||||
mov es, ax ; restore es
|
||||
pop ax
|
||||
pop di
|
||||
pop dx
|
||||
@@ -679,11 +764,13 @@ cpu 8086
|
||||
jmp succeeded
|
||||
.error:
|
||||
.deassert_cs2:
|
||||
mov dx, 0x282 ; chip select port
|
||||
mov dx, REG_CS
|
||||
mov al, 1 ; deassert chip select
|
||||
out dx, al
|
||||
.return2:
|
||||
pop cx ; number of sectors not written successfully
|
||||
mov ax, ds
|
||||
mov es, ax ; restore es
|
||||
pop ax
|
||||
sub al, cl ; number of sectors written successfully
|
||||
pop di
|
||||
@@ -749,6 +836,7 @@ func_08_read_params:
|
||||
mov es, ax
|
||||
mov dl, es:[0x75] ; HDNUM
|
||||
pop es
|
||||
|
||||
; the last cylinder is reserved on fixed disks
|
||||
mov ch, ((NUM_CYLINDERS - 2) & 0xff)
|
||||
mov cl, (((NUM_CYLINDERS - 2) & 0x300) >> 2) | SECTORS_PER_TRACK
|
||||
@@ -836,10 +924,83 @@ succeeded:
|
||||
clc
|
||||
ret
|
||||
|
||||
%ifdef USE_BOOTSTRAP
|
||||
;
|
||||
; INT 18h entry point.
|
||||
;
|
||||
int18h_entry:
|
||||
xor ax, ax
|
||||
mov ds, ax
|
||||
mov es, ax
|
||||
.clear_memory:
|
||||
mov cx, 256
|
||||
mov di, 0x7c00
|
||||
rep stosw
|
||||
.read_boot_sector:
|
||||
mov dx, REG_SCRATCH_0
|
||||
in al, dx
|
||||
mov dl, al
|
||||
xor dh, dh
|
||||
mov ax, 0x201 ; read 1 sector
|
||||
mov cx, 1 ; sector 1
|
||||
mov bx, 0x7c00
|
||||
int 0x13
|
||||
.test_signature:
|
||||
cmp word [0x7c00+510], 0xaa55
|
||||
jne .no_boot
|
||||
%if %isdef(USE_BOOTSTRAP) && %isdef(FORCE_OWN_BOOTSTRAP)
|
||||
.update_bda:
|
||||
;
|
||||
; Increment the number of fixed disks in the BIOS Data Area, since we did not do it earlier.
|
||||
;
|
||||
mov ax, num_drives_msg
|
||||
call print_string
|
||||
mov ax, 0x40 ; BIOS data area
|
||||
mov es, ax
|
||||
inc byte es:[0x75] ; HDNUM
|
||||
mov al, es:[0x75]
|
||||
call print_hex
|
||||
mov ax, newline
|
||||
call print_string
|
||||
%endif
|
||||
.jump_to_boot:
|
||||
mov ax, boot_msg
|
||||
call print_string
|
||||
xor ax, ax
|
||||
mov es, ax
|
||||
jmp 0:0x7c00
|
||||
.no_boot:
|
||||
mov ax, no_boot_msg
|
||||
call print_string
|
||||
sti
|
||||
.loop:
|
||||
hlt
|
||||
jmp .loop
|
||||
%endif
|
||||
|
||||
;
|
||||
; Disk utilities
|
||||
;
|
||||
|
||||
%ifdef TAKE_OVER_FIXED_DISK_0
|
||||
swap_fixed_disk_parameters_tables:
|
||||
push es
|
||||
push ax
|
||||
push bx
|
||||
xor ax, ax ; INT vector segment
|
||||
mov es, ax
|
||||
mov ax, es:[0x41*4+2]
|
||||
xchg es:[0x46*4+2], ax
|
||||
mov es:[0x41*4+2], ax
|
||||
mov ax, es:[0x41*4+0]
|
||||
xchg es:[0x46*4+0], ax
|
||||
mov es:[0x41*4+0], ax
|
||||
pop bx
|
||||
pop ax
|
||||
pop es
|
||||
ret
|
||||
%endif
|
||||
|
||||
;
|
||||
; Compute LBA address based on CHS address
|
||||
; in: CH = cylinder number (low 8 bits)
|
||||
@@ -931,28 +1092,30 @@ init_sd:
|
||||
push cx
|
||||
push dx
|
||||
push si
|
||||
%ifndef AS_COM_PROGRAM
|
||||
mov ax, ROM_SEGMENT
|
||||
mov ax, cs
|
||||
mov ds, ax
|
||||
%endif
|
||||
mov dx, 0x282 ; chip select port
|
||||
mov dx, REG_CS
|
||||
mov al, 1 ; deassert chip select
|
||||
.power_up_delay:
|
||||
out dx, al
|
||||
xor cx, cx
|
||||
mov dx, 1000 ; microseconds
|
||||
mov cx, 0x0001
|
||||
mov dx, 0x86a0 ; 0x186a0 = 100 ms
|
||||
mov ah, 0x86 ; wait
|
||||
int 0x15
|
||||
mov dx, 0x280 ; data port
|
||||
.dummy_cycles:
|
||||
mov dx, REG_DATA
|
||||
mov al, 0xff
|
||||
mov cx, 80 ; send 80 clock cycles
|
||||
mov cx, 10 ; send 80 clock cycles
|
||||
.synchronize:
|
||||
out dx, al
|
||||
loop .synchronize
|
||||
.assert_cs:
|
||||
mov dx, 0x282 ; chip select port
|
||||
mov dx, REG_CS
|
||||
mov al, 0 ; assert chip select
|
||||
out dx, al
|
||||
.cmd0:
|
||||
mov bx, 10 ; retries
|
||||
.retry_cmd0:
|
||||
%ifdef DEBUG_IO
|
||||
mov ax, send_cmd0_msg
|
||||
call print_string
|
||||
@@ -961,7 +1124,16 @@ init_sd:
|
||||
mov cx, 1 ; response is 1 byte
|
||||
mov ah, 1 ; expect idle state
|
||||
call send_sd_init_cmd
|
||||
jc .exit
|
||||
jnc .cmd8
|
||||
.delay_retry_cmd0:
|
||||
xor cx, cx
|
||||
mov dx, 20000 ; microseconds
|
||||
mov ah, 0x86 ; wait
|
||||
int 0x15
|
||||
dec bx
|
||||
jnz .retry_cmd0
|
||||
stc
|
||||
jmp .exit
|
||||
.cmd8:
|
||||
%ifdef DEBUG_IO
|
||||
mov ax, send_cmd8_msg
|
||||
@@ -973,7 +1145,9 @@ init_sd:
|
||||
call send_sd_init_cmd
|
||||
jc .exit
|
||||
.acmd41:
|
||||
mov bx, 100 ; retries
|
||||
mov dx, REG_TIMEOUT
|
||||
mov al, 250 ; 2.5 s
|
||||
out dx, al
|
||||
.retry_acmd41:
|
||||
%ifdef DEBUG_IO
|
||||
mov ax, send_acmd41_msg
|
||||
@@ -983,22 +1157,19 @@ init_sd:
|
||||
mov cx, 1 ; response is 1 byte
|
||||
mov ah, 1 ; expect idle state
|
||||
call send_sd_init_cmd
|
||||
; TODO: (older cards) on error, try CMD1
|
||||
; TODO: (older cards): handle v1 vs v2
|
||||
mov si, acmd41
|
||||
mov cx, 1 ; response is 1 byte
|
||||
mov ah, 0 ; expect ready state
|
||||
call send_sd_init_cmd
|
||||
jnc .exit
|
||||
pushf
|
||||
xor cx, cx
|
||||
mov dx, 1000 ; microseconds
|
||||
mov ah, 0x86 ; wait
|
||||
int 0x15
|
||||
popf
|
||||
dec bx
|
||||
jnz .retry_acmd41
|
||||
; TODO: (older cards) send CMD16 to set block size
|
||||
mov dx, REG_TIMEOUT
|
||||
in al, dx
|
||||
test al, al
|
||||
jz .retry_acmd41
|
||||
stc
|
||||
.exit:
|
||||
; TODO: (older cards): retrieve SDHC flag
|
||||
pop si
|
||||
pop dx
|
||||
pop cx
|
||||
@@ -1029,7 +1200,7 @@ init_sd:
|
||||
; FL = <TRASH>
|
||||
;
|
||||
send_sd_init_cmd:
|
||||
mov dx, 0x280 ; data port
|
||||
mov dx, REG_DATA
|
||||
.settle_before:
|
||||
mov al, 0xff
|
||||
out dx, al
|
||||
@@ -1078,21 +1249,25 @@ acmd41 db 0x69, 0x40, 0x00, 0x00, 0x00, 0x01
|
||||
; FL = <TRASH>
|
||||
;
|
||||
send_sd_read_write_cmd:
|
||||
mov dx, 0x280 ; data port
|
||||
mov dx, XTMAX_IO_BASE+0 ; data port
|
||||
push ax
|
||||
.settle_before:
|
||||
mov al, 0xff
|
||||
out dx, al
|
||||
.send_cmd:
|
||||
mov al, cl ; command byte
|
||||
mov ah, bh ; address byte 1
|
||||
out dx, ax
|
||||
pop ax ; address byte 3
|
||||
xchg al, bl ; address byte 2
|
||||
out dx, ax
|
||||
xchg al, bl ; address byte 4
|
||||
mov ah, 0x1 ; crc (dummy)
|
||||
out dx, ax
|
||||
out dx, al
|
||||
mov al, bh ; address byte 1
|
||||
out dx, al
|
||||
mov al, bl ; address byte 2
|
||||
out dx, al
|
||||
pop ax
|
||||
xchg al, ah ; address byte 3
|
||||
out dx, al
|
||||
xchg al, ah ; address byte 4
|
||||
out dx, al
|
||||
mov al, 0x1 ; crc (dummy)
|
||||
out dx, al
|
||||
mov cx, 8 ; retries
|
||||
.receive_r1:
|
||||
in al, dx
|
||||
@@ -1108,21 +1283,6 @@ send_sd_read_write_cmd:
|
||||
; General utilities
|
||||
;
|
||||
|
||||
;
|
||||
; Wait 1 microseconds.
|
||||
; out: AX = <TRASH>
|
||||
; FL = <TRASH>
|
||||
delay_us:
|
||||
push cx
|
||||
push dx
|
||||
xor cx, cx
|
||||
mov dx, 1 ; microseconds
|
||||
mov ah, 0x86 ; wait
|
||||
int 0x15
|
||||
pop dx
|
||||
pop cx
|
||||
ret
|
||||
|
||||
%include "utils.inc"
|
||||
|
||||
%ifdef DEBUG
|
||||
@@ -1147,16 +1307,16 @@ debug_handler:
|
||||
|
||||
welcome_msg db 'BootROM for XTMax v1.0', 0xD, 0xA
|
||||
db 'Copyright (c) 2025 Matthieu Bucchianeri', 0xD, 0xA, 0
|
||||
string_io_msg db 'CPU supports INS/OUTS instructions', 0xD, 0xA, 0
|
||||
old_13h_msg db 'Old INT13h Vector = ', 0
|
||||
new_13h_msg db 'New INT13h Vector = ', 0
|
||||
new_fdpt_msg db 'New Fixed Disk Parameter Table = ', 0
|
||||
rom_base_msg db 'ROM Base Address = ', 0
|
||||
init_ok_msg db 'SD Card initialized successfully', 0xD, 0xA, 0
|
||||
init_error_msg db 'SD Card failed to initialize', 0xD, 0xA, 0
|
||||
disk_id_msg db 'Fixed Disk ID = ', 0
|
||||
num_drives_msg db 'Total Fixed Disk Drives = ', 0
|
||||
unsupported_msg db 'Unsupported INT13h Function ', 0
|
||||
colon db ':', 0
|
||||
space db ' ', 0
|
||||
newline db 0xD, 0xA, 0
|
||||
%ifdef USE_BOOTSTRAP
|
||||
boot_msg db 'Booting from SD Card...', 0xD, 0xA, 0
|
||||
no_boot_msg db 'Not bootable', 0xD, 0xA, 0
|
||||
%endif
|
||||
|
||||
%ifdef DEBUG
|
||||
handler_msg db 'INT13h Function ', 0
|
||||
@@ -1182,3 +1342,8 @@ sd_idle_msg db 'Received idle', 0xD, 0xA, 0
|
||||
times 2047-($-$$) db 0
|
||||
db 0 ; will be used to complete the checksum.
|
||||
%endif
|
||||
|
||||
;
|
||||
; The virtual buffer for I/O follows the ROM immediately.
|
||||
;
|
||||
end_of_rom:
|
||||
|
||||
@@ -1,2 +1,3 @@
|
||||
..\Driver_Build_Tools\NASM\nasm.exe -f bin -o bootrom.com -DAS_COM_PROGRAM .\bootrom.asm
|
||||
..\Driver_Build_Tools\NASM\nasm.exe -f bin -o bootrom .\bootrom.asm & python checksum.py
|
||||
..\Driver_Build_Tools\NASM\nasm.exe -f bin -o bootrom .\bootrom.asm & python checksum.py & python generate_header.py
|
||||
..\Driver_Build_Tools\NASM\nasm.exe -f bin -o xtmdiags.com .\diags.asm
|
||||
|
||||
@@ -1,23 +1,6 @@
|
||||
# https://stackoverflow.com/questions/53808694/how-do-i-format-a-python-list-as-an-initialized-c-array
|
||||
def to_c_array(values, ctype="float", name="table", formatter=str, colcount=8):
|
||||
# apply formatting to each element
|
||||
values = [formatter(v) for v in values]
|
||||
|
||||
# split into rows with up to `colcount` elements per row
|
||||
rows = [values[i:i+colcount] for i in range(0, len(values), colcount)]
|
||||
|
||||
# separate elements with commas, separate rows with newlines
|
||||
body = ',\n '.join([', '.join(r) for r in rows])
|
||||
|
||||
# assemble components into the complete string
|
||||
return '{} {}[] = {{\n {}}};'.format(ctype, name, body)
|
||||
|
||||
with open("bootrom", "rb") as f:
|
||||
b = bytearray(f.read())
|
||||
# compute the checksum and store a byte to
|
||||
b[-1] = 256 - sum(b[0:-1]) & 0xff
|
||||
with open("bootrom", "wb") as f:
|
||||
f.write(b)
|
||||
with open("../../Code/XTMax/bootrom.h", "w") as f:
|
||||
f.write("#define BOOTROM_ADDR 0xCE000\n")
|
||||
f.write(to_c_array(b, ctype="unsigned char", name="BOOTROM", colcount=16))
|
||||
|
||||
352
XTMax/Drivers/BootROM/diags.asm
Normal file
352
XTMax/Drivers/BootROM/diags.asm
Normal file
@@ -0,0 +1,352 @@
|
||||
org 0x100
|
||||
|
||||
;
|
||||
; The base I/O port for the XTMAX SD Card.
|
||||
;
|
||||
%define XTMAX_IO_BASE (0x280)
|
||||
%define REG_SCRATCH_0 (XTMAX_IO_BASE+2) ; fixed disk id
|
||||
%define REG_SCRATCH_1 (XTMAX_IO_BASE+3) ; BIOS INT13h segment
|
||||
%define REG_SCRATCH_2 (XTMAX_IO_BASE+4) ; BIOS INT13h segment
|
||||
%define REG_SCRATCH_3 (XTMAX_IO_BASE+5) ; BIOS INT13h offset
|
||||
%define REG_SCRATCH_4 (XTMAX_IO_BASE+6) ; BIOS INT13h offset
|
||||
|
||||
entry:
|
||||
mov ax, welcome_msg
|
||||
call print_string
|
||||
|
||||
;
|
||||
; Inspect the INT13h and the HDNUM
|
||||
;
|
||||
mov ax, current_13h_msg
|
||||
call print_string
|
||||
xor ax, ax ; INT vector segment
|
||||
mov es, ax
|
||||
mov ax, es:[0x13*4+2]
|
||||
call print_hex
|
||||
mov ax, colon
|
||||
call print_string
|
||||
mov ax, es:[0x13*4]
|
||||
call print_hex
|
||||
mov ax, newline
|
||||
call print_string
|
||||
|
||||
mov ax, saved_13h_msg
|
||||
call print_string
|
||||
mov dx, REG_SCRATCH_1
|
||||
in ax, dx
|
||||
call print_hex
|
||||
mov ax, colon
|
||||
call print_string
|
||||
mov dx, REG_SCRATCH_3
|
||||
in ax, dx
|
||||
call print_hex
|
||||
mov ax, newline
|
||||
call print_string
|
||||
|
||||
mov ax, hdnum_msg
|
||||
call print_string
|
||||
mov ax, 0x40 ; BIOS data area
|
||||
mov es, ax
|
||||
mov al, es:[0x75] ; HDNUM
|
||||
call print_hex_byte
|
||||
mov ax, newline
|
||||
call print_string
|
||||
|
||||
mov ax, disk_id_msg
|
||||
call print_string
|
||||
mov dx, REG_SCRATCH_0
|
||||
in al, dx
|
||||
xor ah, ah
|
||||
call print_hex_byte
|
||||
mov ax, newline
|
||||
call print_string
|
||||
mov ax, newline
|
||||
call print_string
|
||||
|
||||
;
|
||||
; Inspect the Fixed Disk Parameters Tables
|
||||
;
|
||||
mov ax, disk80_fdpt_msg
|
||||
call print_string
|
||||
xor ax, ax ; INT vector segment
|
||||
mov es, ax
|
||||
mov ax, es:[0x41*4+2]
|
||||
mov bx, ax
|
||||
call print_hex
|
||||
mov ax, colon
|
||||
call print_string
|
||||
mov ax, es:[0x41*4]
|
||||
mov si, ax
|
||||
call print_hex
|
||||
mov ax, newline
|
||||
call print_string
|
||||
|
||||
mov ax, space
|
||||
call print_string
|
||||
mov ax, space
|
||||
call print_string
|
||||
mov es, bx
|
||||
mov cx, 18
|
||||
.dump_disk80_fdpt:
|
||||
mov al, es:[si]
|
||||
inc si
|
||||
call print_hex_byte
|
||||
mov ax, space
|
||||
call print_string
|
||||
loop .dump_disk80_fdpt
|
||||
mov ax, newline
|
||||
call print_string
|
||||
|
||||
mov ax, disk81_fdpt_msg
|
||||
call print_string
|
||||
xor ax, ax ; INT vector segment
|
||||
mov es, ax
|
||||
mov ax, es:[0x46*4+2]
|
||||
mov bx, ax
|
||||
call print_hex
|
||||
mov ax, colon
|
||||
call print_string
|
||||
mov ax, es:[0x46*4]
|
||||
mov si, ax
|
||||
call print_hex
|
||||
mov ax, newline
|
||||
call print_string
|
||||
|
||||
mov ax, space
|
||||
call print_string
|
||||
mov ax, space
|
||||
call print_string
|
||||
mov es, bx
|
||||
mov cx, 18
|
||||
.dump_disk81_fdpt:
|
||||
mov al, es:[si]
|
||||
inc si
|
||||
call print_hex_byte
|
||||
mov ax, space
|
||||
call print_string
|
||||
loop .dump_disk81_fdpt
|
||||
mov ax, newline
|
||||
call print_string
|
||||
mov ax, newline
|
||||
call print_string
|
||||
|
||||
;
|
||||
; Invoke Read Parameters on the fixed disks.
|
||||
;
|
||||
mov ax, parm_disk80_msg
|
||||
call print_string
|
||||
xor ax, ax
|
||||
xor bx, bx
|
||||
xor cx, cx
|
||||
xor dx, dx
|
||||
xor si, si
|
||||
xor di, di
|
||||
xor bp, bp
|
||||
mov dl, 0x80
|
||||
mov ah, 0x08
|
||||
call dump_regs
|
||||
int 0x13
|
||||
call dump_regs
|
||||
mov ax, newline
|
||||
|
||||
call print_string
|
||||
mov ax, parm_disk81_msg
|
||||
call print_string
|
||||
xor ax, ax
|
||||
xor bx, bx
|
||||
xor cx, cx
|
||||
xor dx, dx
|
||||
xor si, si
|
||||
xor di, di
|
||||
xor bp, bp
|
||||
mov dl, 0x81
|
||||
mov ah, 0x08
|
||||
call dump_regs
|
||||
int 0x13
|
||||
call dump_regs
|
||||
|
||||
; wait for kbd
|
||||
mov ah, 0x01
|
||||
int 0x21
|
||||
mov ax, newline
|
||||
call print_string
|
||||
|
||||
;
|
||||
; Read First Sector on the fixed disks.
|
||||
;
|
||||
xor ax, ax
|
||||
mov cx, 256
|
||||
mov di, buf_read
|
||||
rep stosw
|
||||
mov ax, read_disk80_msg
|
||||
call print_string
|
||||
xor ax, ax
|
||||
xor bx, bx
|
||||
xor cx, cx
|
||||
xor dx, dx
|
||||
xor si, si
|
||||
xor di, di
|
||||
xor bp, bp
|
||||
mov dl, 0x80
|
||||
mov ah, 0x02
|
||||
mov bx, ds
|
||||
mov es, bx
|
||||
mov bx, buf_read
|
||||
mov ch, 0
|
||||
mov cl, 1
|
||||
mov dh, 0
|
||||
mov al, 1
|
||||
call dump_regs
|
||||
int 0x13
|
||||
call dump_regs
|
||||
mov ax, newline
|
||||
call print_string
|
||||
|
||||
mov cx, 16
|
||||
mov si, buf_read
|
||||
.dump_disk80_sector_1:
|
||||
lodsb
|
||||
call print_hex_byte
|
||||
mov ax, space
|
||||
call print_string
|
||||
loop .dump_disk80_sector_1
|
||||
mov ax, newline
|
||||
call print_string
|
||||
mov ax, dotdotdot
|
||||
call print_string
|
||||
mov cx, 16
|
||||
add si, 512-16-16
|
||||
.dump_disk80_sector_2:
|
||||
lodsb
|
||||
call print_hex_byte
|
||||
mov ax, space
|
||||
call print_string
|
||||
loop .dump_disk80_sector_2
|
||||
mov ax, newline
|
||||
call print_string
|
||||
mov ax, newline
|
||||
call print_string
|
||||
|
||||
xor ax, ax
|
||||
mov cx, 256
|
||||
mov di, buf_read
|
||||
rep stosw
|
||||
mov ax, read_disk81_msg
|
||||
call print_string
|
||||
xor ax, ax
|
||||
xor bx, bx
|
||||
xor cx, cx
|
||||
xor dx, dx
|
||||
xor si, si
|
||||
xor di, di
|
||||
xor bp, bp
|
||||
mov dl, 0x81
|
||||
mov ah, 0x02
|
||||
mov bx, ds
|
||||
mov es, bx
|
||||
mov bx, buf_read
|
||||
mov ch, 0
|
||||
mov cl, 1
|
||||
mov dh, 0
|
||||
mov al, 1
|
||||
call dump_regs
|
||||
int 0x13
|
||||
call dump_regs
|
||||
mov ax, newline
|
||||
call print_string
|
||||
|
||||
mov cx, 16
|
||||
mov si, buf_read
|
||||
.dump_disk81_sector_1:
|
||||
lodsb
|
||||
call print_hex_byte
|
||||
mov ax, space
|
||||
call print_string
|
||||
loop .dump_disk81_sector_1
|
||||
mov ax, newline
|
||||
call print_string
|
||||
mov ax, dotdotdot
|
||||
call print_string
|
||||
mov cx, 16
|
||||
add si, 512-16-16
|
||||
.dump_disk81_sector_2:
|
||||
lodsb
|
||||
call print_hex_byte
|
||||
mov ax, space
|
||||
call print_string
|
||||
loop .dump_disk81_sector_2
|
||||
mov ax, newline
|
||||
call print_string
|
||||
|
||||
;
|
||||
; DOS exit program.
|
||||
;
|
||||
mov ah, 0x4c
|
||||
xor al, al
|
||||
int 0x21
|
||||
|
||||
buf_read times 512 db 0
|
||||
|
||||
;
|
||||
; General utilities
|
||||
;
|
||||
|
||||
%define AS_COM_PROGRAM
|
||||
%include "utils.inc"
|
||||
|
||||
;
|
||||
; Display an 8-bit value in hex.
|
||||
; in: AL = value
|
||||
; out: AX = <TRASH>
|
||||
;
|
||||
print_hex_byte:
|
||||
pushf
|
||||
push ds
|
||||
push bx
|
||||
push cx
|
||||
push dx
|
||||
push si
|
||||
mov dl, al
|
||||
xor ah, ah
|
||||
mov ax, cs
|
||||
mov ds, ax
|
||||
xor bx, bx
|
||||
cld
|
||||
.nibble1:
|
||||
mov si, dx
|
||||
mov cl, 4
|
||||
shr si, cl
|
||||
and si, 0xf
|
||||
mov al, [hex_map+si]
|
||||
mov ah, 0xe
|
||||
int 0x10
|
||||
.nibble2:
|
||||
mov si, dx
|
||||
and si, 0xf
|
||||
mov al, [hex_map+si]
|
||||
mov ah, 0xe
|
||||
int 0x10
|
||||
pop si
|
||||
pop dx
|
||||
pop cx
|
||||
pop bx
|
||||
pop ds
|
||||
popf
|
||||
ret
|
||||
|
||||
;
|
||||
; Strings
|
||||
;
|
||||
|
||||
welcome_msg db 'XTMax BootROM diagnostics', 0xD, 0xA, 0xD, 0xA, 0
|
||||
current_13h_msg db 'Current INT13h Vector = ', 0
|
||||
saved_13h_msg db 'Saved INT13h Vector = ', 0
|
||||
hdnum_msg db 'BIOS Data Area HDNUM = ', 0
|
||||
disk_id_msg db 'XTMax Fixed Disk ID = ', 0
|
||||
disk80_fdpt_msg db 'Fixed Disk 80h Parameters Table = ', 0
|
||||
disk81_fdpt_msg db 'Fixed Disk 81h Parameters Table = ', 0
|
||||
parm_disk80_msg db 'Call Fixed Disk 80h Read Parameters', 0xD, 0xA, 0
|
||||
parm_disk81_msg db 'Call Fixed Disk 81h Read Parameters', 0xD, 0xA, 0
|
||||
read_disk80_msg db 'Read First Sector on Fixed Disk 80h', 0xD, 0xA, 0
|
||||
read_disk81_msg db 'Read First Sector on Fixed Disk 81h', 0xD, 0xA, 0
|
||||
dotdotdot db '[...]', 0xD, 0xA, 0
|
||||
27
XTMax/Drivers/BootROM/generate_header.py
Normal file
27
XTMax/Drivers/BootROM/generate_header.py
Normal file
@@ -0,0 +1,27 @@
|
||||
segment = None
|
||||
with open("bootrom.asm", "r") as f:
|
||||
for line in f:
|
||||
if line.startswith('%define ROM_SEGMENT'):
|
||||
segment = int(line[19:].strip('() \n'), 16)
|
||||
break
|
||||
|
||||
with open("bootrom", "rb") as f:
|
||||
bitstream = bytearray(f.read())
|
||||
|
||||
# https://stackoverflow.com/questions/53808694/how-do-i-format-a-python-list-as-an-initialized-c-array
|
||||
def to_c_array(values, ctype="float", name="table", formatter=str, colcount=8):
|
||||
# apply formatting to each element
|
||||
values = [formatter(v) for v in values]
|
||||
|
||||
# split into rows with up to `colcount` elements per row
|
||||
rows = [values[i:i+colcount] for i in range(0, len(values), colcount)]
|
||||
|
||||
# separate elements with commas, separate rows with newlines
|
||||
body = ',\n '.join([', '.join(r) for r in rows])
|
||||
|
||||
# assemble components into the complete string
|
||||
return '{} {}[] = {{\n {}}};'.format(ctype, name, body)
|
||||
|
||||
with open("../../Code/XTMax/bootrom.h", "w") as f:
|
||||
f.write("#define BOOTROM_ADDR {}\n".format(hex(segment << 4)))
|
||||
f.write(to_c_array(bitstream, ctype="unsigned char", name="BOOTROM", colcount=16))
|
||||
@@ -8,6 +8,7 @@
|
||||
|
||||
xor ax, ax
|
||||
lahf
|
||||
sti
|
||||
mov ax, 0x1122
|
||||
mov bx, 0x3344
|
||||
mov cx, 0x5566
|
||||
@@ -114,6 +115,8 @@ do_int13h:
|
||||
|
||||
; dump registers
|
||||
%ifdef DUMP_REGS
|
||||
popf
|
||||
pushf
|
||||
call dump_regs
|
||||
pop ax
|
||||
call print_hex
|
||||
@@ -145,6 +148,11 @@ fake_int13h_entry:
|
||||
mov al, ah
|
||||
xor ah, ah
|
||||
call print_hex
|
||||
mov ax, drive_msg
|
||||
call print_string
|
||||
mov ax, dx
|
||||
xor ah, ah
|
||||
call print_hex
|
||||
mov ax, newline
|
||||
call print_string
|
||||
pop ax
|
||||
@@ -162,6 +170,7 @@ buf_write db 1, 2, 3, 4, 5, 6, 7, 8
|
||||
buf_read times 1024 db 0
|
||||
|
||||
fake_handler_msg db 'BIOS INT13h Function ', 0
|
||||
drive_msg db ' Drive ', 0
|
||||
test_success_msg db 'Call succeeded ', 0
|
||||
test_failed_msg db 'Call failed ', 0
|
||||
|
||||
|
||||
@@ -9,10 +9,8 @@ print_string:
|
||||
push bx
|
||||
push si
|
||||
mov si, ax
|
||||
%ifndef AS_COM_PROGRAM
|
||||
mov ax, ROM_SEGMENT
|
||||
mov ax, cs
|
||||
mov ds, ax
|
||||
%endif
|
||||
mov ah, 0xe
|
||||
xor bx, bx
|
||||
cld
|
||||
@@ -42,10 +40,8 @@ print_hex:
|
||||
push dx
|
||||
push si
|
||||
mov dx, ax
|
||||
%ifndef AS_COM_PROGRAM
|
||||
mov ax, ROM_SEGMENT
|
||||
mov ax, cs
|
||||
mov ds, ax
|
||||
%endif
|
||||
xor bx, bx
|
||||
cld
|
||||
.nibble1:
|
||||
@@ -130,10 +126,19 @@ dump_regs:
|
||||
call print_hex
|
||||
mov ax, space
|
||||
call print_string
|
||||
pushf
|
||||
pop ax
|
||||
call print_hex
|
||||
mov ax, space
|
||||
call print_string
|
||||
mov ax, newline
|
||||
call print_string
|
||||
pop ax
|
||||
ret
|
||||
|
||||
registers_msg db ' AX BX CX DX DS SI ES DI BP', 0xD, 0xA, 0
|
||||
registers_msg db ' AX BX CX DX DS SI ES DI BP FLAGS', 0xD, 0xA, 0
|
||||
%endif
|
||||
|
||||
colon db ':', 0
|
||||
space db ' ', 0
|
||||
newline db 0xD, 0xA, 0
|
||||
|
||||
Reference in New Issue
Block a user