recipes/rc2014/ps2: Use BASIC shell

This commit is contained in:
Virgil Dupras 2019-12-06 20:00:29 -05:00
parent 3a68807cd4
commit b9292eb8d0

View File

@ -21,25 +21,37 @@ jp init
.equ STDIO_PUTC aciaPutC .equ STDIO_PUTC aciaPutC
.inc "stdio.asm" .inc "stdio.asm"
; *** Shell *** ; *** BASIC ***
; RAM space used in different routines for short term processing.
.equ SCRATCHPAD_SIZE 0x20
.equ SCRATCHPAD STDIO_RAMEND
.inc "lib/util.asm" .inc "lib/util.asm"
.inc "lib/ari.asm"
.inc "lib/parse.asm" .inc "lib/parse.asm"
.inc "lib/args.asm" .inc "lib/fmt.asm"
.inc "lib/stdio.asm" .equ EXPR_PARSE parseLiteralOrVar
.equ SHELL_RAMSTART STDIO_RAMEND .inc "lib/expr.asm"
.equ SHELL_EXTRA_CMD_COUNT 0 .inc "basic/util.asm"
.inc "shell/main.asm" .inc "basic/parse.asm"
.inc "basic/tok.asm"
.equ VAR_RAMSTART SCRATCHPAD+SCRATCHPAD_SIZE
.inc "basic/var.asm"
.equ BUF_RAMSTART VAR_RAMEND
.inc "basic/buf.asm"
.equ BAS_RAMSTART BUF_RAMEND
.inc "basic/main.asm"
init: init:
di di
; setup stack ld sp, RAMEND
ld hl, RAMEND im 1
ld sp, hl
call aciaInit call aciaInit
call kbdInit call kbdInit
call shellInit call basInit
jp shellLoop ei
jp basStart
KBD_FETCHKC: KBD_FETCHKC:
in a, (KBD_PORT) in a, (KBD_PORT)