Remove remnants from earlier kernel attempts
This commit is contained in:
parent
f7d7f48026
commit
0bd59dd252
2
Makefile
2
Makefile
@ -40,8 +40,6 @@ host/%.elf: host/%.c
|
|||||||
%.bs: boot/%.asm
|
%.bs: boot/%.asm
|
||||||
$(NASM) $(NASM_ARGS) -o $@ $<
|
$(NASM) $(NASM_ARGS) -o $@ $<
|
||||||
|
|
||||||
@rdos.com: kernel/*.asm
|
|
||||||
|
|
||||||
# Special case: variations of FAT vbr
|
# Special case: variations of FAT vbr
|
||||||
fat1.bs: boot/fat.asm
|
fat1.bs: boot/fat.asm
|
||||||
$(NASM) $(NASM_ARGS) -DFAT12 -DCHS -o $@ $<
|
$(NASM) $(NASM_ARGS) -DFAT12 -DCHS -o $@ $<
|
||||||
|
|||||||
@ -1,95 +0,0 @@
|
|||||||
; read/write data from FAT clusters
|
|
||||||
; requires defines from fcb.asm
|
|
||||||
|
|
||||||
section .rodata
|
|
||||||
|
|
||||||
; sector sizes for fast lookup
|
|
||||||
sstab dw 0x800,0x400,0x200,0x100,0x80
|
|
||||||
|
|
||||||
section .text
|
|
||||||
|
|
||||||
; Map part of cluster into dskbuf
|
|
||||||
; IN DX:AX sector number within cluster area
|
|
||||||
mapclus mov bx, [cs:bpb+BPBRDE]
|
|
||||||
mov cl, 4
|
|
||||||
shr bx, cl ; 32 bytes per entry
|
|
||||||
add ax, bx
|
|
||||||
adc dx, 0
|
|
||||||
; counting from beginning of dir
|
|
||||||
; add fat table sizes
|
|
||||||
maprde xor ch, ch
|
|
||||||
mov cl, byte [cs:bpb+BPBFN]
|
|
||||||
.loop add ax, [cs:bpb+BPBFS]
|
|
||||||
adc dx, 0
|
|
||||||
loop .loop
|
|
||||||
; counting from beginning of FAT
|
|
||||||
; add reserved sector count
|
|
||||||
mapfat add ax, [cs:bpb+BPBRSC]
|
|
||||||
adc dx, 0
|
|
||||||
|
|
||||||
jmp maprel
|
|
||||||
|
|
||||||
; split AX at a bit boundary
|
|
||||||
; basically a DIV 2^CX
|
|
||||||
; IN ax divident
|
|
||||||
; cx integer log2(divisor)
|
|
||||||
; OUT ax quotient
|
|
||||||
; dx remainder (lower CX bits)
|
|
||||||
split mov dx, 1
|
|
||||||
shl dx, cl
|
|
||||||
dec dx
|
|
||||||
and dx, ax
|
|
||||||
shr ax, cl
|
|
||||||
ret
|
|
||||||
|
|
||||||
filesec call fcbdrv
|
|
||||||
mov bx, dx
|
|
||||||
|
|
||||||
; find sector size scale factor
|
|
||||||
mov ax, cs
|
|
||||||
mov es, ax
|
|
||||||
mov ax, [cs:bpb+BPBSS]
|
|
||||||
mov di, sstab
|
|
||||||
mov cx, 5
|
|
||||||
repne scasw
|
|
||||||
; CX is now sector size div 128
|
|
||||||
; same format as in DPT
|
|
||||||
mov ah, 0
|
|
||||||
mov al, [ds:bx+FCBRN]
|
|
||||||
call split
|
|
||||||
; ax = sector within current cluster
|
|
||||||
; dx = record number
|
|
||||||
push dx
|
|
||||||
mov di, ax
|
|
||||||
|
|
||||||
mov ax, [ds:bx+FCBCLUS]
|
|
||||||
sub ax, 2
|
|
||||||
mov ch, 0
|
|
||||||
mov cl, [cs:bpb+BPBSC]
|
|
||||||
mul cx
|
|
||||||
add ax, di
|
|
||||||
call mapclus
|
|
||||||
|
|
||||||
pop bx
|
|
||||||
mov cl, 7
|
|
||||||
shl bx, cl
|
|
||||||
add bx, dskbuf
|
|
||||||
mov dx, bx
|
|
||||||
mov ax, cs
|
|
||||||
mov ds, ax
|
|
||||||
ret
|
|
||||||
|
|
||||||
read mov bp, sp
|
|
||||||
call filesec
|
|
||||||
call getdta
|
|
||||||
mov cx, 0x80
|
|
||||||
call stofar
|
|
||||||
ret
|
|
||||||
|
|
||||||
write mov bp, sp
|
|
||||||
call filesec
|
|
||||||
call getdta
|
|
||||||
mov cx, 0x80
|
|
||||||
call lodfar
|
|
||||||
call dirty
|
|
||||||
ret
|
|
||||||
125
kernel/fat.asm
125
kernel/fat.asm
@ -1,125 +0,0 @@
|
|||||||
section .bss
|
|
||||||
|
|
||||||
clus resw 1
|
|
||||||
|
|
||||||
section .text
|
|
||||||
|
|
||||||
; Set cluster for next operations
|
|
||||||
; IN dx cluster number
|
|
||||||
setclus mov [clus], dx
|
|
||||||
ret
|
|
||||||
|
|
||||||
; get ptr to single byte in fat table
|
|
||||||
; IN dx position byte in fat table
|
|
||||||
; OUT bx ptr to byte in dskbuf
|
|
||||||
_fat1 push dx
|
|
||||||
mov ax, dx
|
|
||||||
xor dx, dx
|
|
||||||
mov cl, 9
|
|
||||||
shr ax, cl
|
|
||||||
add ax, [bpb+BPBRSC]
|
|
||||||
adc dx, 0
|
|
||||||
call map
|
|
||||||
pop dx
|
|
||||||
mov bx, dx
|
|
||||||
and bx, 0x1FF
|
|
||||||
add bx, dskbuf
|
|
||||||
ret
|
|
||||||
|
|
||||||
; get ptr to word in fat table
|
|
||||||
_fat2 push dx
|
|
||||||
mov ax, dx
|
|
||||||
xor dx, dx
|
|
||||||
mov cl, 8
|
|
||||||
shr ax, cl
|
|
||||||
add ax, [bpb+BPBRSC]
|
|
||||||
adc dx, 0
|
|
||||||
call map
|
|
||||||
pop dx
|
|
||||||
mov bl, dl
|
|
||||||
mov bh, 0
|
|
||||||
add bx, bx
|
|
||||||
add bx, dskbuf
|
|
||||||
ret
|
|
||||||
|
|
||||||
; read value from fat table
|
|
||||||
; index given with setclus
|
|
||||||
; OUT bx value
|
|
||||||
; carry set if EOF marker
|
|
||||||
rdfat mov dx, [clus]
|
|
||||||
mov ax, dx
|
|
||||||
shr ax, 1
|
|
||||||
add dx, ax
|
|
||||||
call _fat1
|
|
||||||
push word [bx]
|
|
||||||
inc dx
|
|
||||||
call _fat1
|
|
||||||
mov si, bx
|
|
||||||
pop bx
|
|
||||||
mov bh, [si]
|
|
||||||
test word [clus], 1
|
|
||||||
jz l001
|
|
||||||
mov cl, 4
|
|
||||||
shr bx, cl
|
|
||||||
l001 and bx, 0xFFF
|
|
||||||
cmp bx, 0xFF0
|
|
||||||
cmc
|
|
||||||
ret
|
|
||||||
|
|
||||||
; set value in FAT table
|
|
||||||
; IN dx value
|
|
||||||
wrfat and dh, 0x0F
|
|
||||||
push dx
|
|
||||||
; DX = index * 1.5
|
|
||||||
mov dx, [clus]
|
|
||||||
mov ax, dx
|
|
||||||
shr dx, 1
|
|
||||||
add dx, ax
|
|
||||||
call _fat1
|
|
||||||
pop ax
|
|
||||||
test [clus], 1
|
|
||||||
jnz l004
|
|
||||||
; even, first byte full
|
|
||||||
mov [bx], al
|
|
||||||
push ax
|
|
||||||
call dirty
|
|
||||||
; DX = index * 1.5
|
|
||||||
mov dx, [clus]
|
|
||||||
mov ax, dx
|
|
||||||
shr dx, 1
|
|
||||||
add dx, ax
|
|
||||||
inc dx
|
|
||||||
call _fat1
|
|
||||||
pop ax
|
|
||||||
mov al, [bx]
|
|
||||||
and al, 0xF0
|
|
||||||
or al, ah
|
|
||||||
mov [bx], al
|
|
||||||
call dirty
|
|
||||||
jmp l005
|
|
||||||
; odd, second byte full
|
|
||||||
l004: mov ch, [bx]
|
|
||||||
; concat existing and our nib
|
|
||||||
and ch, 0x0F
|
|
||||||
mov cl, 4
|
|
||||||
shl ax, cl
|
|
||||||
or al, ch
|
|
||||||
; write back lower 4 bits
|
|
||||||
mov [bx], al
|
|
||||||
call dirty
|
|
||||||
push ax
|
|
||||||
; re-calculate offset
|
|
||||||
mov ax, dx
|
|
||||||
shr dx, 1
|
|
||||||
add dx, ax
|
|
||||||
inc dx
|
|
||||||
; map second byte
|
|
||||||
call _fat1
|
|
||||||
pop ax
|
|
||||||
; write higher 8 bits
|
|
||||||
mov [bx], ah
|
|
||||||
call dirty
|
|
||||||
l005: ret
|
|
||||||
|
|
||||||
; wrfat from above, FAT16 flavour
|
|
||||||
wf16: ret
|
|
||||||
@ -1,59 +0,0 @@
|
|||||||
; FCB layout
|
|
||||||
|
|
||||||
struc FCB
|
|
||||||
|
|
||||||
FCBDRV resb 1 ; BYTE drive (0=default, 1=A:, 2=B:, ...)
|
|
||||||
FCBFN resb 11 ; 11 BYTES filename
|
|
||||||
FCBCLUS resw 1 ; DWORD current cluster
|
|
||||||
FCBRN resb 1 ; BYTE record in cluster
|
|
||||||
|
|
||||||
endstruc
|
|
||||||
|
|
||||||
FCBSIZ equ FCB_size
|
|
||||||
|
|
||||||
section .data
|
|
||||||
|
|
||||||
defdrv db 0
|
|
||||||
dta dd 0
|
|
||||||
|
|
||||||
section .text
|
|
||||||
|
|
||||||
; auto-complete drive field in fcb
|
|
||||||
; also logs in the drive
|
|
||||||
; IN ds:dx far ptr FCB
|
|
||||||
fcbdrv push ds
|
|
||||||
push dx
|
|
||||||
mov si, dx
|
|
||||||
; if currently zero, ...
|
|
||||||
mov dl, [si] ; 1-based
|
|
||||||
test dl, dl
|
|
||||||
jnz .log
|
|
||||||
; replace with current drive
|
|
||||||
mov dl, [cs:defdrv] ; 0-based
|
|
||||||
inc dl
|
|
||||||
mov [si], dl ; 1-based
|
|
||||||
.log dec dl
|
|
||||||
mov ax, cs
|
|
||||||
mov ds, ax
|
|
||||||
call logdrv ; 0-based
|
|
||||||
pop dx
|
|
||||||
pop ds
|
|
||||||
; if carry flag set, resume stack at bp
|
|
||||||
; this instant-returns some higher level procs
|
|
||||||
jnc .ret
|
|
||||||
mov sp, bp
|
|
||||||
; duplicate carry bit into all 8 AL bits
|
|
||||||
; similar to SALC instruction
|
|
||||||
.ret sbb al, al
|
|
||||||
ret
|
|
||||||
|
|
||||||
; set disk transfer address
|
|
||||||
; IN DS:DX dta ptr
|
|
||||||
setdta mov [cs:dta], dx
|
|
||||||
mov [cs:dta+2], ds
|
|
||||||
ret
|
|
||||||
|
|
||||||
; get disk transfer address
|
|
||||||
; OUT ES:BX dta ptr
|
|
||||||
getdta les bx, [cs:dta]
|
|
||||||
ret
|
|
||||||
@ -1,8 +0,0 @@
|
|||||||
org 0
|
|
||||||
jmp init
|
|
||||||
|
|
||||||
init: mov ax, 0x0e37
|
|
||||||
int 0x10
|
|
||||||
|
|
||||||
hlt: hlt
|
|
||||||
jmp hlt
|
|
||||||
@ -1,66 +0,0 @@
|
|||||||
section .bss
|
|
||||||
|
|
||||||
printr:
|
|
||||||
.ax: resw 1
|
|
||||||
.cx: resw 1
|
|
||||||
.dx: resw 1
|
|
||||||
.bx: resw 1
|
|
||||||
|
|
||||||
section .text
|
|
||||||
|
|
||||||
; Stack contents
|
|
||||||
; ret-addr arg1 arg2 arg3 ...
|
|
||||||
|
|
||||||
printf: mov [printr.ax], ax
|
|
||||||
mov [printr.cx], cx
|
|
||||||
mov [printr.dx], dx
|
|
||||||
mov [printr.bx], bx
|
|
||||||
pop bx
|
|
||||||
|
|
||||||
.loop: mov al, [cs:bx]
|
|
||||||
inc bx
|
|
||||||
|
|
||||||
cmp al, 0
|
|
||||||
je .end
|
|
||||||
cmp al, 2
|
|
||||||
je .word
|
|
||||||
|
|
||||||
call pputc
|
|
||||||
|
|
||||||
jmp .loop
|
|
||||||
|
|
||||||
.end: push bx
|
|
||||||
mov ax, [printr.ax]
|
|
||||||
mov cx, [printr.cx]
|
|
||||||
mov dx, [printr.dx]
|
|
||||||
mov bx, [printr.bx]
|
|
||||||
ret
|
|
||||||
|
|
||||||
.word: pop dx
|
|
||||||
call pdx
|
|
||||||
jmp printf.loop
|
|
||||||
|
|
||||||
pdx: ; this double-call is essentially a 4 times repeating loop
|
|
||||||
call .l1
|
|
||||||
.l1: call .l2
|
|
||||||
.l2: ; set up cl for bit shifts
|
|
||||||
mov cl, 4
|
|
||||||
; grab highest nibble from dx
|
|
||||||
mov al, dh
|
|
||||||
; remove highest nibble from dx
|
|
||||||
shl dx, cl
|
|
||||||
; shift away second-highest nibble that we accidentally copied
|
|
||||||
shr al, cl
|
|
||||||
; map 0-9 to ascii codes for '0' to '9'
|
|
||||||
add al, 0x30
|
|
||||||
; if result is larger than '9', ...
|
|
||||||
cmp al, 0x3a
|
|
||||||
jl pputc
|
|
||||||
; ... add 7 so we continue at 'A'
|
|
||||||
add al, 7
|
|
||||||
pputc: push bx
|
|
||||||
mov ah, 0x0e
|
|
||||||
xor bx, bx
|
|
||||||
int 0x10
|
|
||||||
pop bx
|
|
||||||
ret
|
|
||||||
@ -1,62 +0,0 @@
|
|||||||
; Program segment prefix headers and constants
|
|
||||||
|
|
||||||
section .bss
|
|
||||||
|
|
||||||
curpsp: resw 1
|
|
||||||
|
|
||||||
absolute 0
|
|
||||||
|
|
||||||
resb 2 ; ret 0 exit
|
|
||||||
resb 2 ; next unusable segment
|
|
||||||
PSPDD: resb 1 ; BYTE default drive
|
|
||||||
; CP/M entry point
|
|
||||||
resb 1 ; instruction byte
|
|
||||||
resw 1 ; usable length of segment (needs to be here for compata)
|
|
||||||
resb 4 ; opcodes to call us
|
|
||||||
|
|
||||||
; saved userdata
|
|
||||||
PSPAX: resw 1
|
|
||||||
PSPCX: resw 1
|
|
||||||
; SS:SP
|
|
||||||
PSPSP: resw 1
|
|
||||||
PSPSS: resw 1
|
|
||||||
; DS:DX
|
|
||||||
PSPDX: resw 1
|
|
||||||
PSPDS: resw 1
|
|
||||||
; ES:BX
|
|
||||||
PSPBX: resw 1
|
|
||||||
PSPES: resw 1
|
|
||||||
|
|
||||||
PSPDTA: resd 1 ; DWORD ptr to disk transfer area
|
|
||||||
|
|
||||||
section .text
|
|
||||||
|
|
||||||
; set default drive for current process
|
|
||||||
; IN dl drive number
|
|
||||||
setdd: push es
|
|
||||||
mov es, [curpsp]
|
|
||||||
mov [es:PSPDD], dl
|
|
||||||
pop es
|
|
||||||
ret
|
|
||||||
|
|
||||||
; get default drive for current process
|
|
||||||
; OUT al drive number
|
|
||||||
getdd: push es
|
|
||||||
mov es, [curpsp]
|
|
||||||
mov al, [es:PSPDD]
|
|
||||||
pop es
|
|
||||||
ret
|
|
||||||
|
|
||||||
; set DTA ptr
|
|
||||||
; IN es:bx far ptr
|
|
||||||
setdta: push ds
|
|
||||||
mov ds, [curpsp]
|
|
||||||
mov [PSPDTA], bx
|
|
||||||
mov [PSPDTA+2], es
|
|
||||||
pop ds
|
|
||||||
|
|
||||||
; get DTA ptr
|
|
||||||
; OUT es:bx far ptr
|
|
||||||
getdta: mov es, [curpsp]
|
|
||||||
les bx, [es:PSPDTA]
|
|
||||||
ret
|
|
||||||
@ -1,113 +0,0 @@
|
|||||||
; Load root directory entry into buffer
|
|
||||||
; IN ax number of directory entry
|
|
||||||
; OUT cs:di ptr to directory entry
|
|
||||||
lddir push ax
|
|
||||||
push ax
|
|
||||||
call rstseg
|
|
||||||
pop ax
|
|
||||||
mov cl, 4
|
|
||||||
shr ax, cl
|
|
||||||
xor dx, dx
|
|
||||||
; dx:ax = sector number in rootdir
|
|
||||||
; add sizes of FAT tables
|
|
||||||
xor ch, ch
|
|
||||||
mov cl, byte [bpb+BPBFN]
|
|
||||||
.loop: add ax, [bpb+BPBFS]
|
|
||||||
adc dx, 0
|
|
||||||
loop .loop
|
|
||||||
; add reserved sector count
|
|
||||||
add ax, [bpb+BPBRSC]
|
|
||||||
adc dx, 0
|
|
||||||
; fetch sector (relative to partition)
|
|
||||||
call maprel
|
|
||||||
; get di to point to entry
|
|
||||||
pop di
|
|
||||||
mov cl, 5
|
|
||||||
shl di, cl
|
|
||||||
and di, 0x1FF
|
|
||||||
add di, dskbuf
|
|
||||||
ret
|
|
||||||
|
|
||||||
; find first matching file
|
|
||||||
; IN DS:DX input fcb
|
|
||||||
fndfst mov bp, sp
|
|
||||||
call fcbdrv
|
|
||||||
; set search state to zero
|
|
||||||
les di, [cs:dta]
|
|
||||||
xor ax, ax
|
|
||||||
mov [es:di+FCBSIZ], ax
|
|
||||||
; find next matching file
|
|
||||||
; state is kept in DTA
|
|
||||||
fndnxt mov bp, sp
|
|
||||||
call fcbdrv
|
|
||||||
; get next direntry to fetch
|
|
||||||
; get number of current entry from DTA
|
|
||||||
.loop les di, [cs:dta]
|
|
||||||
mov ax, [es:di+FCBSIZ]
|
|
||||||
inc word [es:di+FCBSIZ]
|
|
||||||
; bail out if we are at end of dir
|
|
||||||
cmp ax, [cs:bpb+BPBRDE]
|
|
||||||
jnc .err
|
|
||||||
; load entry and first byte
|
|
||||||
push ds
|
|
||||||
push dx
|
|
||||||
call lddir
|
|
||||||
pop dx
|
|
||||||
pop ds
|
|
||||||
; next if hidden, dir or vol label
|
|
||||||
test byte [cs:di+0x0B], 0xDA
|
|
||||||
jnz .loop
|
|
||||||
; bail out if end of dir
|
|
||||||
mov al, [cs:di]
|
|
||||||
cmp al, 0
|
|
||||||
je .err
|
|
||||||
; next if deleted entry
|
|
||||||
cmp al, 0xE5
|
|
||||||
je .loop
|
|
||||||
; DS:SI := FCB+1
|
|
||||||
; ES:DI := CS:dirent
|
|
||||||
mov si, dx
|
|
||||||
push si
|
|
||||||
inc si
|
|
||||||
mov ax, cs
|
|
||||||
mov es, ax
|
|
||||||
; compare and ; try next if mismatch
|
|
||||||
mov cx, 11
|
|
||||||
push di
|
|
||||||
rep cmpsb
|
|
||||||
pop di
|
|
||||||
pop si
|
|
||||||
jne .loop
|
|
||||||
; create FCB in DTA
|
|
||||||
call getdta
|
|
||||||
xchg bx, di
|
|
||||||
; copy over drive byte
|
|
||||||
movsb
|
|
||||||
; copy filename
|
|
||||||
push ds
|
|
||||||
push si
|
|
||||||
mov ax, cs
|
|
||||||
mov ds, ax
|
|
||||||
mov si, bx
|
|
||||||
mov cx, 11
|
|
||||||
rep movsb
|
|
||||||
pop si
|
|
||||||
pop ds
|
|
||||||
; done!
|
|
||||||
xor ax, ax
|
|
||||||
ret
|
|
||||||
|
|
||||||
.err: stc
|
|
||||||
.ret: sbb al, al
|
|
||||||
ret
|
|
||||||
|
|
||||||
open call fndfst
|
|
||||||
test al, al
|
|
||||||
jnz .ret
|
|
||||||
; read start cluster
|
|
||||||
mov ax, [cs:bx+0x1A]
|
|
||||||
mov bx, dx
|
|
||||||
mov [ds:bx+FCBCLUS], ax
|
|
||||||
; reset record number
|
|
||||||
mov byte [ds:bx+FCBRN], 0
|
|
||||||
.ret ret
|
|
||||||
@ -1,102 +0,0 @@
|
|||||||
; This is the syscall gateway:
|
|
||||||
; - backs up the data from user space (kernel funcs trash many regs)
|
|
||||||
; - sets up the kernel stack
|
|
||||||
; - calls kernel funcs
|
|
||||||
; - exports a specified set of registers back to userspace
|
|
||||||
;
|
|
||||||
; The syscall table acts as a "export"-list for kernel near funcs.
|
|
||||||
; Kernel code can expect CS = DS
|
|
||||||
|
|
||||||
section .rodata
|
|
||||||
|
|
||||||
stab: ; syscall table
|
|
||||||
; cells: ptr to handler, ptr to sysret
|
|
||||||
; 0-7
|
|
||||||
dw restart, sret
|
|
||||||
dw getc, sretb
|
|
||||||
dw putc, sret
|
|
||||||
dw err, sret ; reader input
|
|
||||||
dw err, sret ; punch outout
|
|
||||||
dw err, sret ; list output
|
|
||||||
dw conio, sret ; direct console i/o
|
|
||||||
dw err, sret
|
|
||||||
; 8-f
|
|
||||||
dw err, sret
|
|
||||||
dw err, sret ; print string
|
|
||||||
dw err, sret ; read into buffer
|
|
||||||
dw err, sret ; console status
|
|
||||||
dw err, sret ; return version num
|
|
||||||
dw err, sret ; reset disks
|
|
||||||
dw setdd, sret ; select disk
|
|
||||||
dw open, sretb ; open file
|
|
||||||
.end:
|
|
||||||
|
|
||||||
section .text
|
|
||||||
|
|
||||||
; WARNING: BP, SI and DI are not saved
|
|
||||||
; If kernel code uses them, they need to be saved to the stack
|
|
||||||
int21: push ds
|
|
||||||
; load program PSP and save userdata
|
|
||||||
mov ds, [cs:curpsp]
|
|
||||||
pop word [PSPDS]
|
|
||||||
mov [PSPES], es
|
|
||||||
|
|
||||||
mov [PSPAX], ax
|
|
||||||
mov [PSPCX], cx
|
|
||||||
mov [PSPDX], dx
|
|
||||||
mov [PSPBX], bx
|
|
||||||
|
|
||||||
mov [PSPSS], ss
|
|
||||||
mov [PSPSP], sp
|
|
||||||
|
|
||||||
xor bx, bx
|
|
||||||
mov ss, bx
|
|
||||||
mov sp, stack
|
|
||||||
; get ptr into syscall table
|
|
||||||
mov bl, [PSPAX+1] ; bh is still 0
|
|
||||||
shl bx, 1
|
|
||||||
shl bx, 1
|
|
||||||
add bx, stab
|
|
||||||
; load sysret and handler ptr
|
|
||||||
push word [cs:bx+2]
|
|
||||||
push word [cs:bx]
|
|
||||||
; DS is always our segment
|
|
||||||
push cs
|
|
||||||
pop ds
|
|
||||||
; ES:BX is syscall argument
|
|
||||||
mov bx, [PSPDX]
|
|
||||||
mov es, [PSPDS]
|
|
||||||
ret
|
|
||||||
|
|
||||||
err: mov ah, 0xFF
|
|
||||||
ret
|
|
||||||
|
|
||||||
; sysret handlers
|
|
||||||
; return ES:BX to user
|
|
||||||
sretd: mov ds, [cs:curpsp]
|
|
||||||
jmp sret.l02
|
|
||||||
|
|
||||||
; return BX to user
|
|
||||||
sretw: mov ds, [cs:curpsp]
|
|
||||||
mov es, [PSPES]
|
|
||||||
jmp sret.l02
|
|
||||||
|
|
||||||
; return carry flag in AL
|
|
||||||
sretc: mov ds, [cs:curpsp]
|
|
||||||
sbb al, al
|
|
||||||
|
|
||||||
; return AL to user
|
|
||||||
sretb: mov ds, [cs:curpsp]
|
|
||||||
mov ah, [PSPAX+1]
|
|
||||||
les bx, [PSPBX]
|
|
||||||
jmp sret.l03
|
|
||||||
|
|
||||||
; return without result
|
|
||||||
sret: mov ds, [cs:curpsp]
|
|
||||||
les bx, [PSPBX]
|
|
||||||
.l02: mov ax, [PSPAX]
|
|
||||||
.l03: mov ss, [PSPSS]
|
|
||||||
mov sp, [PSPSP]
|
|
||||||
mov cx, [PSPCX]
|
|
||||||
lds dx, [PSPDX] ; DS last
|
|
||||||
iret
|
|
||||||
Loading…
Reference in New Issue
Block a user