test: add a simple boot test using qemu, ldosboot, bootimg
This commit is contained in:
C. Masloch
E. C. Masloch
parent
014111dc39
commit
26607e9297
23
test/cfg.sh
Executable file
23
test/cfg.sh
Executable file
@ -0,0 +1,23 @@
|
|||||||
|
#! /bin/bash
|
||||||
|
|
||||||
|
# Usage of the works is permitted provided that this
|
||||||
|
# instrument is retained with the works, so that any entity
|
||||||
|
# that uses the works is notified of this instrument.
|
||||||
|
#
|
||||||
|
# DISCLAIMER: THE WORKS ARE WITHOUT WARRANTY.
|
||||||
|
|
||||||
|
# If you want to override configuration without the
|
||||||
|
# hassle of having to exclude differences in this file
|
||||||
|
# (cfg.sh) from the SCM, you may provide ovr.sh.
|
||||||
|
# The meaning of this line allows you to copy cfg.sh
|
||||||
|
# to serve as a template for ovr.sh without changes.
|
||||||
|
[ -f ovr.sh ] && [[ "${BASH_SOURCE[0]##*/}" != ovr.sh ]] && . ovr.sh
|
||||||
|
|
||||||
|
# As the below only are set if no value is provided
|
||||||
|
# yet, any value can be overridden from the shell.
|
||||||
|
[ -z "$LMACROS_DIR" ] && LMACROS_DIR=lmacros/
|
||||||
|
[ -z "$LDOSBOOT_DIR" ] && LDOSBOOT_DIR=ldosboot/
|
||||||
|
[ -z "$BOOTIMG_DIR" ] && BOOTIMG_DIR=bootimg/
|
||||||
|
|
||||||
|
[ -z "$QEMU" ] && QEMU=qemu-system-i386
|
||||||
|
[ -z "$NASM" ] && NASM=nasm
|
||||||
164
test/test.asm
Normal file
164
test/test.asm
Normal file
@ -0,0 +1,164 @@
|
|||||||
|
|
||||||
|
%if 0
|
||||||
|
|
||||||
|
Usage of the works is permitted provided that this
|
||||||
|
instrument is retained with the works, so that any entity
|
||||||
|
that uses the works is notified of this instrument.
|
||||||
|
|
||||||
|
DISCLAIMER: THE WORKS ARE WITHOUT WARRANTY.
|
||||||
|
|
||||||
|
%endif
|
||||||
|
|
||||||
|
%include "lmacros3.mac"
|
||||||
|
|
||||||
|
cpu 8086
|
||||||
|
org 256
|
||||||
|
start:
|
||||||
|
mov ah, 3Ch
|
||||||
|
xor cx, cx
|
||||||
|
mov dx, filename
|
||||||
|
int 21h
|
||||||
|
mov dx, msg.creating
|
||||||
|
jc error.nofile
|
||||||
|
xchg bx, ax
|
||||||
|
mov ah, 40h
|
||||||
|
mov dx, buffer
|
||||||
|
mov cx, buffer.size
|
||||||
|
int 21h
|
||||||
|
mov dx, msg.writing
|
||||||
|
jc error
|
||||||
|
cmp ax, cx
|
||||||
|
mov dx, msg.full
|
||||||
|
jne error
|
||||||
|
mov ah, 3Eh
|
||||||
|
int 21h
|
||||||
|
xor ax, ax
|
||||||
|
jmp quit
|
||||||
|
|
||||||
|
error:
|
||||||
|
mov ah, 3Eh
|
||||||
|
int 21h
|
||||||
|
.nofile:
|
||||||
|
push ax
|
||||||
|
mov ah, 09h
|
||||||
|
int 21h
|
||||||
|
pop ax
|
||||||
|
call disp_ax_hex
|
||||||
|
mov al, 13
|
||||||
|
call disp_al
|
||||||
|
mov al, 10
|
||||||
|
call disp_al
|
||||||
|
mov ax, -1
|
||||||
|
jmp quit
|
||||||
|
|
||||||
|
|
||||||
|
; INP: al = character to display
|
||||||
|
; CHG: -
|
||||||
|
; STT: ds, es don't care
|
||||||
|
disp_al:
|
||||||
|
push ax
|
||||||
|
push dx
|
||||||
|
xchg ax, dx
|
||||||
|
mov ah, 02h
|
||||||
|
int 21h
|
||||||
|
pop dx
|
||||||
|
pop ax
|
||||||
|
retn
|
||||||
|
|
||||||
|
|
||||||
|
; Display number in ax hexadecimal, always 4 digits
|
||||||
|
;
|
||||||
|
; INP: ax = number
|
||||||
|
; OUT: displayed using disp_al
|
||||||
|
; CHG: none
|
||||||
|
disp_ax_hex:
|
||||||
|
xchg al, ah
|
||||||
|
call disp_al_hex
|
||||||
|
xchg al, ah
|
||||||
|
disp_al_hex:
|
||||||
|
push cx
|
||||||
|
mov cl, 4
|
||||||
|
rol al, cl
|
||||||
|
call disp_al_nybble_hex
|
||||||
|
rol al, cl
|
||||||
|
pop cx
|
||||||
|
disp_al_nybble_hex:
|
||||||
|
push ax
|
||||||
|
and al, 0Fh
|
||||||
|
add al, '0'
|
||||||
|
cmp al, '9'
|
||||||
|
jbe @F
|
||||||
|
add al, -'9' -1 +'A'
|
||||||
|
@@:
|
||||||
|
call disp_al
|
||||||
|
pop ax
|
||||||
|
retn
|
||||||
|
|
||||||
|
|
||||||
|
%if 0
|
||||||
|
|
||||||
|
Shut down machine
|
||||||
|
by C. Masloch, 2020
|
||||||
|
|
||||||
|
Usage of the works is permitted provided that this
|
||||||
|
instrument is retained with the works, so that any entity
|
||||||
|
that uses the works is notified of this instrument.
|
||||||
|
|
||||||
|
DISCLAIMER: THE WORKS ARE WITHOUT WARRANTY.
|
||||||
|
|
||||||
|
%endif
|
||||||
|
|
||||||
|
|
||||||
|
cpu 8086
|
||||||
|
; org 256
|
||||||
|
quit:
|
||||||
|
int3
|
||||||
|
|
||||||
|
mov ax, 0F000h
|
||||||
|
mov es, ax
|
||||||
|
mov di, 0FFF5h
|
||||||
|
mov si, msg.dosemudate
|
||||||
|
mov cx, 4
|
||||||
|
repe cmpsw ; running in DosEmu?
|
||||||
|
jne .quit_not_dosemu
|
||||||
|
|
||||||
|
xor bx, bx
|
||||||
|
mov ax, -1
|
||||||
|
int 0E6h ; dosemu quit
|
||||||
|
|
||||||
|
.quit_not_dosemu:
|
||||||
|
|
||||||
|
; from https://stackoverflow.com/a/5240330/738287
|
||||||
|
mov ax, 5301h
|
||||||
|
xor bx, bx
|
||||||
|
int 15h ; connect to APM API
|
||||||
|
|
||||||
|
mov ax, 530Eh
|
||||||
|
xor bx, bx
|
||||||
|
mov cx, 0102h
|
||||||
|
int 15h ; set APM version to 1.02
|
||||||
|
|
||||||
|
mov ax, 5307h
|
||||||
|
mov bx, 1
|
||||||
|
mov cx, 3
|
||||||
|
int 15h ; shut down system
|
||||||
|
|
||||||
|
mov dx, msg.failed
|
||||||
|
mov ah, 09h
|
||||||
|
int 21h
|
||||||
|
mov ax, 4C00h
|
||||||
|
int 21h
|
||||||
|
|
||||||
|
|
||||||
|
align 4
|
||||||
|
msg:
|
||||||
|
.dosemudate: db "02/25/93"
|
||||||
|
.failed: db "Quit failed.",13,10,36
|
||||||
|
.creating: ascic "Creating failed, code="
|
||||||
|
.writing: ascic "Writing failed, code="
|
||||||
|
.full: ascic "Writing failed, full. AX="
|
||||||
|
filename:
|
||||||
|
asciz "result.txt"
|
||||||
|
buffer:
|
||||||
|
.: db "success"
|
||||||
|
.size: equ $ - .
|
||||||
154
test/test.sh
Executable file
154
test/test.sh
Executable file
@ -0,0 +1,154 @@
|
|||||||
|
#! /bin/bash
|
||||||
|
|
||||||
|
# Usage of the works is permitted provided that this
|
||||||
|
# instrument is retained with the works, so that any entity
|
||||||
|
# that uses the works is notified of this instrument.
|
||||||
|
#
|
||||||
|
# DISCLAIMER: THE WORKS ARE WITHOUT WARRANTY.
|
||||||
|
|
||||||
|
if [[ "$1" != selfcall ]]
|
||||||
|
then
|
||||||
|
setsid -w "$0" selfcall "$@"
|
||||||
|
exit $?
|
||||||
|
fi
|
||||||
|
shift
|
||||||
|
|
||||||
|
. cfg.sh
|
||||||
|
|
||||||
|
if [ -n "$LMACROS_DIR" ]; then {
|
||||||
|
options_i_lmacros=-I"${LMACROS_DIR%/}"/
|
||||||
|
} fi
|
||||||
|
|
||||||
|
if [ -n "$LDOSBOOT_DIR" ]; then {
|
||||||
|
options_i_ldosboot=-I"${LDOSBOOT_DIR%/}"/
|
||||||
|
} fi
|
||||||
|
|
||||||
|
if [ -n "$SCANPTAB_DIR" ]; then {
|
||||||
|
options_i_scanptab=-I"${SCANPTAB_DIR%/}"/
|
||||||
|
} fi
|
||||||
|
|
||||||
|
if [ -n "$BOOTIMG_DIR" ]; then {
|
||||||
|
options_i_bootimg=-I"${BOOTIMG_DIR%/}"/
|
||||||
|
} fi
|
||||||
|
|
||||||
|
if [ -n "$LDEBUG_DIR" ]; then {
|
||||||
|
options_i_ldebug=-I"${LDEBUG_DIR%/}"/
|
||||||
|
} fi
|
||||||
|
|
||||||
|
if [ -n "$LDOSMBR_DIR" ]; then {
|
||||||
|
options_i_ldosmbr=-I"${LDOSMBR_DIR%/}"/
|
||||||
|
} fi
|
||||||
|
|
||||||
|
if [ -n "$INSTSECT_DIR" ]; then {
|
||||||
|
options_i_instsect=-I"${INSTSECT_DIR%/}"/
|
||||||
|
} fi
|
||||||
|
|
||||||
|
direct=1
|
||||||
|
bpe=12
|
||||||
|
spc=1
|
||||||
|
spi=2880
|
||||||
|
nr=224
|
||||||
|
pitype=""
|
||||||
|
|
||||||
|
machine="qemu"
|
||||||
|
qemu=1
|
||||||
|
|
||||||
|
options_hdimage=""
|
||||||
|
options_mcopy_offset=""
|
||||||
|
diskette=1
|
||||||
|
qemu_switch="-fda"
|
||||||
|
unit=00h
|
||||||
|
direct=1
|
||||||
|
if [[ -z "$pitype" ]]
|
||||||
|
then
|
||||||
|
if [[ "$bpe" == 16 ]]
|
||||||
|
then
|
||||||
|
pitype=ptFAT16
|
||||||
|
else
|
||||||
|
pitype=ptFAT12
|
||||||
|
fi
|
||||||
|
fi
|
||||||
|
|
||||||
|
echo -ne 'shell=test.com\r\n' > fdconfig.sys
|
||||||
|
echo -ne 'failure\r\n' > result.txt
|
||||||
|
if [[ -z "$1" || -z "$2" || -z "$3" ]]
|
||||||
|
then
|
||||||
|
echo Error, missing parameters. 1=KERNELPATHNAME, 2=DISKETTE, 3=BOOT
|
||||||
|
exit 1
|
||||||
|
fi
|
||||||
|
KERNELPATHNAME="$1"
|
||||||
|
DISKETTE="$2"
|
||||||
|
BOOT="$3"
|
||||||
|
testrunname="$4"
|
||||||
|
shift
|
||||||
|
shift
|
||||||
|
shift
|
||||||
|
shift
|
||||||
|
|
||||||
|
"$NASM" "test.asm" \
|
||||||
|
"$options_i_lmacros" \
|
||||||
|
-o test.com &&
|
||||||
|
"$NASM" "${LDOSBOOT_DIR%/}"/boot.asm -w-user \
|
||||||
|
"$options_i_lmacros" \
|
||||||
|
-D_COMPAT_FREEDOS=1 \
|
||||||
|
-D_LBA=0 -D_USE_PART_INFO=0 -D_QUERY_GEOMETRY=0 \
|
||||||
|
-D_MAP=boot.map \
|
||||||
|
-D_FAT$bpe -D_UNIT=$unit \
|
||||||
|
"$@" \
|
||||||
|
-l "$BOOT".lst \
|
||||||
|
-o "$BOOT".bin &&
|
||||||
|
"$NASM" "${BOOTIMG_DIR%/}"/bootimg.asm \
|
||||||
|
-I ./ \
|
||||||
|
"$options_i_bootimg" \
|
||||||
|
"$options_i_lmacros" \
|
||||||
|
-D_PAYLOADFILE="::rename,'$KERNELPATHNAME',KERNEL.SYS,fdconfig.sys,test.com,result.txt" \
|
||||||
|
-D_BOOTFILE="'$BOOT.bin'" \
|
||||||
|
-D_WARN_DEFAULT_OFF=1 \
|
||||||
|
-D_WARN_TOOMANYFAT=0 -D_WARN_ALIGNDATA=0 \
|
||||||
|
$options_hdimage -D_MBR_PART_TYPE="$pitype" \
|
||||||
|
-D_BPE="$bpe" -D_SPC="$spc" -D_SPI="$spi" \
|
||||||
|
-D_SPF="$(( (spi / spc * bpe / 8 + 511) / 512 ))" \
|
||||||
|
-D_NUMROOT="$nr" \
|
||||||
|
-o "$DISKETTE".img -l "$DISKETTE".lst \
|
||||||
|
-D_UNIT=$unit \
|
||||||
|
"$@"
|
||||||
|
(($?)) && exit $?
|
||||||
|
|
||||||
|
pgid="$(ps -o pgid= $$)"
|
||||||
|
function handle_timeout_process() {
|
||||||
|
stty sane 2> /dev/null > /dev/null
|
||||||
|
# The stty sane command in the CI environment shows:
|
||||||
|
#
|
||||||
|
# 'standard input': Inappropriate ioctl for device
|
||||||
|
#
|
||||||
|
# It is probably safe to ignore.
|
||||||
|
((debug)) && ps -e -o pgid=,comm=,pid= | grep -E "^\s*$pgid "
|
||||||
|
pidlist="$(ps -e -o pgid=,comm=,pid= |
|
||||||
|
grep -E "^\s*$pgid " |
|
||||||
|
grep -Ev " (bash|test.sh|ps|grep) ")"
|
||||||
|
pidlist="$(echo "$pidlist" |
|
||||||
|
sed -re 's/^\s+//g' |
|
||||||
|
tr -s " " | cut -d" " -f 3)"
|
||||||
|
if [[ -n "$pidlist" ]]
|
||||||
|
then
|
||||||
|
((debug)) && ps $pidlist
|
||||||
|
kill $pidlist
|
||||||
|
fi
|
||||||
|
}
|
||||||
|
timeout --foreground 10 "$QEMU" "$qemu_switch" "$DISKETTE".img -display none 2> /dev/null
|
||||||
|
|
||||||
|
rc=$?
|
||||||
|
handle_timeout_process
|
||||||
|
if ((rc == 124))
|
||||||
|
then
|
||||||
|
echo "${testrunname}timeout"
|
||||||
|
exit 124
|
||||||
|
fi
|
||||||
|
if [[ "$(mtype -t -i $DISKETTE.img$options_mcopy_offset ::RESULT.TXT 2> /dev/null)" == success ]]
|
||||||
|
then
|
||||||
|
echo "${testrunname}success"
|
||||||
|
exit 0
|
||||||
|
else
|
||||||
|
echo "${testrunname}failure"
|
||||||
|
exit 1
|
||||||
|
fi
|
||||||
Loading…
Reference in New Issue
Block a user