penguin86/pato-z80-home-computer
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

First working interactive shell for memory monitor

Browse Source
This commit is contained in:
Daniele Verducci su MatissePenguin
2020-11-25 19:39:20 +01:00
parent 3d7610e113
commit 336f2fe181
6 changed files with 60 additions and 43 deletions
Download Patch File Download Diff File Expand all files Collapse all files

44
assembly/bios/monitor.asm
View File

@@ -9,38 +9,54 @@
; R (RUN) $pos Starts executing code from $pos
; The commands are entered with a single letter and the program completes the command
include 'libs/strings.asm'
; CONSTANTS
; All monitor commands are 3 chars long.
MON_WELCOME: DB "PAT80 MEmory MOnitor 0.1"
MON_WELCOME: DB "PAT80 MEMORY MONITOR 0.1",10,0
MON_COMMAND_HELP: DB "HELP",0 ; null terminated strings
MON_COMMAND_DUMP: DB "DUMP",0 ; null terminated strings
MON_COMMAND_DUMP: DB "DUMP",0
MON_COMMAND_SET: DB "SET",0
MON_COMMAND_LOAD: DB "LOAD",0
MON_COMMAND_RUN: DB "RUN",0
MON_ARG_HEX: DB "0x",0
MON_HELP: DB "Available commands: HELP, DUMP, SET, LOAD, RUN"
MON_HELP: DB 10,"Available commands: HELP, DUMP, SET, LOAD, RUN",0
MON_ERR_SYNTAX: DB " Syntax error",0
Monitor_main:
; Print welcome string
ld bc, MON_WELCOME
call Print
monitor_main_loop:
; Newline
ld a, 10
call Printc
; Draw prompt char
ld a, 62 ; >
call Printc
; Read char from command line
call Readc: ; blocking: returns when a character was read and placed in A reg
call Readc ; blocking: returns when a character was read and placed in A reg
call Strings_charToUpper ; user may enter lowercase char: transform to upper
call Printc ; Print back the character to provide user feedback
; Switch case
cp (MON_COMMAND_HELP) ; check incoming char is equal to command's first char
ld hl, MON_COMMAND_HELP
cp (hl) ; check incoming char is equal to command's first char
jp z, monitor_help
cp (MON_COMMAND_DUMP)
ld hl, MON_COMMAND_DUMP
cp (hl)
jp z, monitor_dump
cp (MON_COMMAND_SET)
ld hl, MON_COMMAND_SET
cp (hl)
jp z, monitor_set
cp (MON_COMMAND_LOAD)
ld hl, MON_COMMAND_LOAD
cp (hl)
jp z, monitor_load
cp (MON_COMMAND_RUN)
ld hl, MON_COMMAND_RUN
cp (hl)
jp z, monitor_run
; Unrecognized command: print error
ld bc, MON_ERR_SYNTAX
call Print
jp monitor_main_loop
monitor_help:
@@ -49,28 +65,28 @@ monitor_help:
ld bc, MON_HELP
call Print
ret
jp monitor_main_loop
monitor_dump:
ld bc, MON_COMMAND_DUMP + 1 ; autocomplete command
call Print
ret
jp monitor_main_loop
monitor_set:
ld bc, MON_COMMAND_SET + 1 ; autocomplete command
call Print
ret
jp monitor_main_loop
monitor_load:
ld bc, MON_COMMAND_LOAD + 1 ; autocomplete command
call Print
ret
jp monitor_main_loop
monitor_run:
ld bc, MON_COMMAND_RUN + 1 ; autocomplete command
call Print
jp APP_VAR_SPACE ; Start executing code
ret
jp monitor_main_loop