1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-11-28 05:38:05 +11:00
collapseos/tools/emul/shell/shell_.asm

162 lines
2.5 KiB
NASM
Raw Normal View History

2019-05-10 02:58:41 +10:00
; named shell_.asm to avoid infinite include loop.
.equ RAMSTART 0x4000
; kernel ram is well under 0x100 bytes. We're giving us 0x200 bytes so that we
; never worry about the stack.
.equ KERNEL_RAMEND 0x4200
.equ USERCODE KERNEL_RAMEND
.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 addDE
jp addHL
jp upcase
jp unsetZ
jp intoDE
jp intoHL
jp writeHLinDE
jp findchar
jp parseHex
jp parseHexPair
jp blkSel
jp blkSet
jp fsFindFN
jp fsOpen
jp fsGetB
jp fsPutB
2019-07-22 01:39:00 +10:00
jp fsSetSize
jp cpHLDE
jp parseArgs
jp printstr
jp _blkGetB
jp _blkPutB
jp _blkSeek
jp _blkTell
2019-07-13 23:57:37 +10:00
jp printcrlf
2019-07-14 04:01:20 +10:00
jp stdioPutC
2019-07-15 07:29:00 +10:00
jp stdioReadLine
.inc "core.asm"
.inc "err.h"
.inc "parse.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"
.equ SHELL_RAMSTART FS_RAMEND
.equ SHELL_EXTRA_CMD_COUNT 9
.inc "shell.asm"
.dw blkBselCmd, blkSeekCmd, blkLoadCmd, blkSaveCmd
.dw fsOnCmd, flsCmd, fnewCmd, fdelCmd, fopnCmd
.inc "blockdev_cmds.asm"
.inc "fs_cmds.asm"
2019-06-03 23:24:43 +10:00
.equ PGM_RAMSTART SHELL_RAMEND
.equ PGM_CODEADDR USERCODE
.inc "pgm.asm"
;.out PGM_RAMEND
init:
di
; setup stack
ld hl, KERNEL_RAMEND
ld sp, hl
call fsInit
ld a, 0 ; select fsdev
ld de, BLOCKDEV_SEL
call blkSel
call fsOn
call shellInit
ld hl, pgmShellHook
ld (SHELL_CMDHOOK), hl
jp shellLoop
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