collapseos/tools/emul/shell/shell_.asm

162 lines
2.4 KiB
NASM
Raw Normal View History

2019-05-09 12:58:41 -04: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-09 12:58:41 -04:00
jp init
2019-05-09 12:58:41 -04: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 fsFindFN
jp fsOpen
jp fsGetC
jp fsSeek
jp fsTell
jp cpHLDE
jp parseArgs
jp printstr
2019-05-09 12:58:41 -04:00
#include "core.asm"
#include "err.h"
#include "parse.asm"
2019-05-09 12:58:41 -04:00
.equ BLOCKDEV_RAMSTART RAMSTART
.equ BLOCKDEV_COUNT 3
2019-05-09 12:58:41 -04:00
#include "blockdev.asm"
; List of devices
.dw fsdevGetC, fsdevPutC, fsdevSeek, fsdevTell
2019-05-12 15:38:58 -04:00
.dw stdoutGetC, stdoutPutC, stdoutSeek, stdoutTell
.dw stdinGetC, stdinPutC, stdinSeek, stdinTell
2019-05-09 12:58:41 -04:00
#include "blockdev_cmds.asm"
.equ STDIO_RAMSTART BLOCKDEV_RAMEND
2019-05-17 08:14:19 -04:00
#include "stdio.asm"
.equ FS_RAMSTART STDIO_RAMEND
.equ FS_HANDLE_COUNT 2
#include "fs.asm"
2019-05-16 13:13:46 -04:00
#include "fs_cmds.asm"
.equ SHELL_RAMSTART FS_RAMEND
.equ SHELL_EXTRA_CMD_COUNT 9
2019-05-09 12:58:41 -04:00
#include "shell.asm"
.dw blkBselCmd, blkSeekCmd, blkLoadCmd, blkSaveCmd
.dw fsOnCmd, flsCmd, fnewCmd, fdelCmd, fopnCmd
2019-06-03 09:24:43 -04:00
.equ PGM_RAMSTART SHELL_RAMEND
.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 08:14:19 -04: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-09 12:58:41 -04: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-12 15:38:58 -04:00
cp a ; ensure Z
ret
fsdevPutC:
out (FS_DATA_PORT), a
ret
fsdevSeek:
2019-05-12 15:38:58 -04: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-12 15:38:58 -04:00
pop af
ret
fsdevTell:
2019-05-12 15:38:58 -04: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-12 15:38:58 -04:00
pop af
ret
2019-05-12 15:38:58 -04:00
.equ STDOUT_HANDLE FS_HANDLES
stdoutGetC:
ld ix, STDOUT_HANDLE
2019-05-12 15:38:58 -04:00
jp fsGetC
stdoutPutC:
ld ix, STDOUT_HANDLE
2019-05-12 15:38:58 -04:00
jp fsPutC
stdoutSeek:
ld ix, STDOUT_HANDLE
2019-05-12 15:38:58 -04:00
jp fsSeek
stdoutTell:
ld ix, STDOUT_HANDLE
2019-05-12 15:38:58 -04:00
jp fsTell
.equ STDIN_HANDLE FS_HANDLES+FS_HANDLE_SIZE
stdinGetC:
ld ix, STDIN_HANDLE
2019-05-12 15:38:58 -04:00
jp fsGetC
stdinPutC:
ld ix, STDIN_HANDLE
2019-05-12 15:38:58 -04:00
jp fsPutC
stdinSeek:
ld ix, STDIN_HANDLE
2019-05-12 15:38:58 -04:00
jp fsSeek
stdinTell:
ld ix, STDIN_HANDLE
2019-05-12 15:38:58 -04:00
jp fsTell