collapseos/tools/emul/shell/shell_.asm

142 lines
2.1 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
.equ KERNEL_RAMEND 0x5000
.equ USERCODE 0x9000
.equ STDIO_PORT 0x00
.equ FS_DATA_PORT 0x01
.equ FS_SEEKL_PORT 0x02
.equ FS_SEEKH_PORT 0x03
.equ FS_SEEKE_PORT 0x04
2019-05-10 02:58:41 +10:00
jp init
2019-05-10 02:58:41 +10:00
; *** JUMP TABLE ***
jp printstr
2019-05-10 02:58:41 +10:00
#include "core.asm"
#include "err.h"
#include "parse.asm"
2019-05-10 02:58:41 +10:00
.equ BLOCKDEV_RAMSTART RAMSTART
.equ BLOCKDEV_COUNT 3
2019-05-10 02:58:41 +10:00
#include "blockdev.asm"
; List of devices
.dw fsdevGetC, fsdevPutC, fsdevSeek, fsdevTell
2019-05-13 05:38:58 +10:00
.dw stdoutGetC, stdoutPutC, stdoutSeek, stdoutTell
.dw stdinGetC, stdinPutC, stdinSeek, stdinTell
2019-05-10 02:58:41 +10:00
#include "blockdev_cmds.asm"
.equ STDIO_RAMSTART BLOCKDEV_RAMEND
2019-05-17 22:14:19 +10:00
#include "stdio.asm"
.equ FS_RAMSTART STDIO_RAMEND
.equ FS_HANDLE_COUNT 2
#include "fs.asm"
2019-05-17 03:13:46 +10:00
#include "fs_cmds.asm"
.equ SHELL_RAMSTART FS_RAMEND
.equ SHELL_EXTRA_CMD_COUNT 9
2019-05-10 02:58:41 +10:00
#include "shell.asm"
.dw blkBselCmd, blkSeekCmd, blkLoadCmd, blkSaveCmd
.dw fsOnCmd, flsCmd, fnewCmd, fdelCmd, fopnCmd
.equ PGM_CODEADDR USERCODE
#include "pgm.asm"
init:
di
; setup stack
ld hl, KERNEL_RAMEND
ld sp, hl
ld hl, emulGetC
ld de, emulPutC
2019-05-17 22:14:19 +10:00
call stdioInit
call fsInit
ld a, 0 ; select fsdev
ld de, BLOCKDEV_GETC
call blkSel
call fsOn
call shellInit
ld hl, pgmShellHook
ld (SHELL_CMDHOOK), hl
jp shellLoop
2019-05-10 02:58:41 +10:00
emulGetC:
; Blocks until a char is returned
in a, (STDIO_PORT)
cp a ; ensure Z
ret
emulPutC:
out (STDIO_PORT), a
ret
fsdevGetC:
in a, (FS_DATA_PORT)
2019-05-13 05:38:58 +10:00
cp a ; ensure Z
ret
fsdevPutC:
out (FS_DATA_PORT), a
ret
fsdevSeek:
2019-05-13 05:38:58 +10:00
push af
ld a, l
out (FS_SEEKL_PORT), a
ld a, h
out (FS_SEEKH_PORT), a
ld a, e
out (FS_SEEKE_PORT), a
2019-05-13 05:38:58 +10:00
pop af
ret
fsdevTell:
2019-05-13 05:38:58 +10:00
push af
in a, (FS_SEEKL_PORT)
ld l, a
in a, (FS_SEEKH_PORT)
ld h, a
in a, (FS_SEEKE_PORT)
ld e, a
2019-05-13 05:38:58 +10:00
pop af
ret
2019-05-13 05:38:58 +10:00
.equ STDOUT_HANDLE FS_HANDLES
stdoutGetC:
ld ix, STDOUT_HANDLE
2019-05-13 05:38:58 +10:00
jp fsGetC
stdoutPutC:
ld ix, STDOUT_HANDLE
2019-05-13 05:38:58 +10:00
jp fsPutC
stdoutSeek:
ld ix, STDOUT_HANDLE
2019-05-13 05:38:58 +10:00
jp fsSeek
stdoutTell:
ld ix, STDOUT_HANDLE
2019-05-13 05:38:58 +10:00
jp fsTell
.equ STDIN_HANDLE FS_HANDLES+FS_HANDLE_SIZE
stdinGetC:
ld ix, STDIN_HANDLE
2019-05-13 05:38:58 +10:00
jp fsGetC
stdinPutC:
ld ix, STDIN_HANDLE
2019-05-13 05:38:58 +10:00
jp fsPutC
stdinSeek:
ld ix, STDIN_HANDLE
2019-05-13 05:38:58 +10:00
jp fsSeek
stdinTell:
ld ix, STDIN_HANDLE
2019-05-13 05:38:58 +10:00
jp fsTell