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

157 lines
2.4 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 upcase
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 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 "str.asm"
.inc "err.h"
.inc "ascii.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