1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-11-17 09:28:06 +11:00
collapseos/tools/emul/shell/glue.asm

154 lines
2.2 KiB
NASM
Raw Normal View History

; Last check:
; Kernel size: 0x619
; Kernel RAM usage: 0x66
; Shell size: 0x411
; Shell RAM usage: 0x11
.inc "blkdev.h"
.inc "fs.h"
.inc "err.h"
.inc "ascii.h"
.equ RAMSTART 0x4000
; 0x100 - 0x66 gives us a nice space for the stack.
.equ KERNEL_RAMEND 0x4100
.equ SHELL_CODE 0x0700
.equ STDIO_PORT 0x00
.equ FS_DATA_PORT 0x01
.equ FS_ADDR_PORT 0x02
2019-05-10 02:58:41 +10:00
jp init
2019-05-10 02:58:41 +10:00
; *** JUMP TABLE ***
jp strncmp
jp upcase
jp findchar
jp blkSelPtr
jp blkSel
jp blkSet
jp blkSeek
jp blkTell
jp blkGetB
jp blkPutB
jp fsFindFN
jp fsOpen
jp fsGetB
jp fsPutB
2019-07-22 01:39:00 +10:00
jp fsSetSize
jp fsOn
jp fsIter
jp fsAlloc
jp fsDel
jp fsHandle
jp printstr
jp printnstr
jp _blkGetB
jp _blkPutB
jp _blkSeek
jp _blkTell
2019-07-13 23:57:37 +10:00
jp printcrlf
jp stdioGetC
2019-07-14 04:01:20 +10:00
jp stdioPutC
2019-07-15 07:29:00 +10:00
jp stdioReadLine
.inc "core.asm"
.inc "str.asm"
2019-05-10 02:58:41 +10:00
.equ BLOCKDEV_RAMSTART RAMSTART
.equ BLOCKDEV_COUNT 4
.inc "blockdev.asm"
2019-05-10 02:58:41 +10:00
; List of devices
.dw fsdevGetB, fsdevPutB
.dw stdoutGetB, stdoutPutB
.dw stdinGetB, stdinPutB
.dw mmapGetB, mmapPutB
2019-05-10 02:58:41 +10:00
.equ MMAP_START 0xe000
.inc "mmap.asm"
.equ STDIO_RAMSTART BLOCKDEV_RAMEND
.equ STDIO_GETC emulGetC
.equ STDIO_PUTC emulPutC
.inc "stdio.asm"
2019-05-17 22:14:19 +10:00
.equ FS_RAMSTART STDIO_RAMEND
.equ FS_HANDLE_COUNT 2
.inc "fs.asm"
init:
di
; setup stack
ld sp, KERNEL_RAMEND
call fsInit
ld a, 0 ; select fsdev
ld de, BLOCKDEV_SEL
call blkSel
call fsOn
call SHELL_CODE
2019-05-10 02:58:41 +10:00
2019-11-01 09:49:02 +11:00
emulGetC:
2019-05-10 02:58:41 +10:00
; Blocks until a char is returned
in a, (STDIO_PORT)
cp a ; ensure Z
ret
2019-11-01 09:49:02 +11:00
emulPutC:
2019-05-10 02:58:41 +10:00
out (STDIO_PORT), a
ret
fsdevGetB:
ld a, e
out (FS_ADDR_PORT), a
ld a, h
out (FS_ADDR_PORT), a
ld a, l
out (FS_ADDR_PORT), a
in a, (FS_ADDR_PORT)
or a
ret nz
in a, (FS_DATA_PORT)
2019-05-13 05:38:58 +10:00
cp a ; ensure Z
ret
fsdevPutB:
2019-05-13 05:38:58 +10:00
push af
ld a, e
out (FS_ADDR_PORT), a
ld a, h
out (FS_ADDR_PORT), a
ld a, l
out (FS_ADDR_PORT), a
in a, (FS_ADDR_PORT)
cp 2 ; only A > 1 means error
jr nc, .error ; A >= 2
2019-05-13 05:38:58 +10:00
pop af
out (FS_DATA_PORT), a
cp a ; ensure Z
ret
.error:
2019-05-13 05:38:58 +10:00
pop af
jp unsetZ ; returns
2019-05-13 05:38:58 +10:00
.equ STDOUT_HANDLE FS_HANDLES
stdoutGetB:
ld ix, STDOUT_HANDLE
jp fsGetB
2019-05-13 05:38:58 +10:00
stdoutPutB:
ld ix, STDOUT_HANDLE
jp fsPutB
2019-05-13 05:38:58 +10:00
.equ STDIN_HANDLE FS_HANDLES+FS_HANDLE_SIZE
stdinGetB:
ld ix, STDIN_HANDLE
jp fsGetB
2019-05-13 05:38:58 +10:00
stdinPutB:
ld ix, STDIN_HANDLE
jp fsPutB
2019-05-13 05:38:58 +10:00
.fill SHELL_CODE-$
.bin "shell.bin"