collapseos/tools/emul/shell/shell_.asm
Virgil Dupras 328f44814e Make blockdev pointers 32 bits
This allows us to break through the 64K limit for includes CFS in zasm,
a limit we were dangerously close to breaking. In fact, this commit
makes us go over that limit. Right in time!
2019-05-28 19:42:35 -04:00

136 lines
2.0 KiB
NASM

; named shell_.asm to avoid infinite include loop.
.equ RAMSTART 0x4000
.equ RAMEND 0x5000
.equ STDIO_PORT 0x00
.equ FS_DATA_PORT 0x01
.equ FS_SEEKL_PORT 0x02
.equ FS_SEEKH_PORT 0x03
.equ FS_SEEKE_PORT 0x04
jp init
#include "core.asm"
#include "parse.asm"
.equ BLOCKDEV_RAMSTART RAMSTART
.equ BLOCKDEV_COUNT 4
#include "blockdev.asm"
; List of devices
.dw emulGetC, emulPutC, 0, 0
.dw fsdevGetC, fsdevPutC, fsdevSeek, fsdevTell
.dw stdoutGetC, stdoutPutC, stdoutSeek, stdoutTell
.dw stdinGetC, stdinPutC, stdinSeek, stdinTell
#include "blockdev_cmds.asm"
.equ STDIO_RAMSTART BLOCKDEV_RAMEND
#include "stdio.asm"
.equ FS_RAMSTART STDIO_RAMEND
.equ FS_HANDLE_COUNT 2
#include "fs.asm"
#include "fs_cmds.asm"
.equ SHELL_RAMSTART FS_RAMEND
.equ SHELL_EXTRA_CMD_COUNT 7
#include "shell.asm"
.dw blkBselCmd, blkSeekCmd, fsOnCmd, flsCmd, fnewCmd, fdelCmd, fopnCmd
init:
di
; setup stack
ld hl, RAMEND
ld sp, hl
xor a
ld de, BLOCKDEV_GETC
call blkSel
call stdioInit
call fsInit
ld a, 1 ; select fsdev
ld de, BLOCKDEV_GETC
call blkSel
call fsOn
xor a ; select ACIA
ld de, BLOCKDEV_GETC
call blkSel
call shellInit
jp shellLoop
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)
cp a ; ensure Z
ret
fsdevPutC:
out (FS_DATA_PORT), a
ret
fsdevSeek:
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
pop af
ret
fsdevTell:
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
pop af
ret
.equ STDOUT_HANDLE FS_HANDLES
stdoutGetC:
ld de, STDOUT_HANDLE
jp fsGetC
stdoutPutC:
ld de, STDOUT_HANDLE
jp fsPutC
stdoutSeek:
ld de, STDOUT_HANDLE
jp fsSeek
stdoutTell:
ld de, STDOUT_HANDLE
jp fsTell
.equ STDIN_HANDLE FS_HANDLES+FS_HANDLE_SIZE
stdinGetC:
ld de, STDIN_HANDLE
jp fsGetC
stdinPutC:
ld de, STDIN_HANDLE
jp fsPutC
stdinSeek:
ld de, STDIN_HANDLE
jp fsSeek
stdinTell:
ld de, STDIN_HANDLE
jp fsTell