fe8385da08
* Revert "Uploaded_2_9_2025" This reverts commit ec79bbdbc9052617461a3c1b4952290a05a51adb. * 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.
352 lines
6.6 KiB
NASM
352 lines
6.6 KiB
NASM
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 |