recipes/rc2014/eeprom/glue.asm

@@ -33,56 +33,47 @@ jp	aciaInt
 .equ	STDIO_PUTC	aciaPutC
 .inc "stdio.asm"
 
-.inc "lib/args.asm"
 .equ	AT28W_RAMSTART	STDIO_RAMEND
 .inc "at28w/main.asm"
 
-; *** BASIC ***
+; *** Shell ***
-
-; RAM space used in different routines for short term processing.
-.equ	SCRATCHPAD_SIZE	0x20
-.equ	SCRATCHPAD	AT28W_RAMEND
 .inc "lib/util.asm"
-.inc "lib/ari.asm"
 .inc "lib/parse.asm"
-.inc "lib/fmt.asm"
+.inc "lib/args.asm"
-.equ	EXPR_PARSE	parseLiteralOrVar
+.inc "lib/stdio.asm"
-.inc "lib/expr.asm"
+.equ	SHELL_RAMSTART	AT28W_RAMEND
-.inc "basic/util.asm"
+.equ	SHELL_EXTRA_CMD_COUNT 5
-.inc "basic/parse.asm"
+.inc "shell/main.asm"
-.inc "basic/tok.asm"
+; Extra cmds
-.equ	VAR_RAMSTART	SCRATCHPAD+SCRATCHPAD_SIZE
+.dw	a28wCmd
-.inc "basic/var.asm"
+.dw	blkBselCmd, blkSeekCmd, blkLoadCmd, blkSaveCmd
-.equ	BUF_RAMSTART	VAR_RAMEND
+
-.inc "basic/buf.asm"
+.inc "shell/blkdev.asm"
-.inc "basic/blk.asm"
-.equ	BAS_RAMSTART	BUF_RAMEND
-.inc "basic/main.asm"
 
 init:
 	di
 	; setup stack
-	ld	sp, RAMEND
+	ld	hl, RAMEND
+	ld	sp, hl
 	im 1
 
 	call	aciaInit
+	call	shellInit
+
 	xor	a
 	ld	de, BLOCKDEV_SEL
 	call	blkSel
 
-	call	basInit
-	ld	hl, basFindCmdExtra
-	ld	(BAS_FINDHOOK), hl
 	ei
-	jp	basStart
+	jp	shellLoop
+
+a28wCmd:
+	.db	"a28w", 0b011, 0b001, 0
+	ld	a, (hl)
+	ld	(AT28W_MAXBYTES), a
+	inc	hl
+	ld	a, (hl)
+	ld	(AT28W_MAXBYTES+1), a
+	jp	at28wInner
+
 
-basFindCmdExtra:
-	ld	hl, basBLKCmds
-	call	basFindCmd
-	ret	z
-	ld	hl, .mycmds
-	jp	basFindCmd
-.mycmds:
-	.db "at28w", 0
-	.dw at28wMain
-	.db 0xff

recipes/sms/README.md

@@ -37,7 +37,7 @@ thing!
 
 ## Usage
 
-On boot, you will get a regular Collapse OS BASIC shell. See the rest of the
+On boot, you will get a regular Collapse OS shell. See the rest of the
 documentation for shell usage instructions.
 
 The particularity here is that, unlike with the RC2014, we don't access Collapse

recipes/sms/glue.asm

@@ -24,26 +24,14 @@
 .equ	STDIO_PUTC	vdpPutC
 .inc "stdio.asm"
 
-; *** BASIC ***
+; *** Shell ***
-
-; RAM space used in different routines for short term processing.
-.equ	SCRATCHPAD_SIZE	0x20
-.equ	SCRATCHPAD	STDIO_RAMEND
 .inc "lib/util.asm"
-.inc "lib/ari.asm"
 .inc "lib/parse.asm"
-.inc "lib/fmt.asm"
+.inc "lib/args.asm"
-.equ	EXPR_PARSE	parseLiteralOrVar
+.inc "lib/stdio.asm"
-.inc "lib/expr.asm"
+.equ	SHELL_RAMSTART	STDIO_RAMEND
-.inc "basic/util.asm"
+.equ	SHELL_EXTRA_CMD_COUNT 0
-.inc "basic/parse.asm"
+.inc "shell/main.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:
 	di
@@ -53,8 +41,8 @@ init:
 
 	call	padInit
 	call	vdpInit
-	call	basInit
+	call	shellInit
-	jp	basStart
+	jp	shellLoop
 
 .fill 0x7ff0-$
 .db "TMR SEGA", 0x00, 0x00, 0xfb, 0x68, 0x00, 0x00, 0x00, 0x4c

recipes/sms/kbd/glue.asm

@@ -26,26 +26,14 @@
 .equ	STDIO_PUTC	vdpPutC
 .inc "stdio.asm"
 
-; *** BASIC ***
+; *** Shell ***
-
-; RAM space used in different routines for short term processing.
-.equ	SCRATCHPAD_SIZE	0x20
-.equ	SCRATCHPAD	STDIO_RAMEND
 .inc "lib/util.asm"
-.inc "lib/ari.asm"
 .inc "lib/parse.asm"
-.inc "lib/fmt.asm"
+.inc "lib/args.asm"
-.equ	EXPR_PARSE	parseLiteralOrVar
+.inc "lib/stdio.asm"
-.inc "lib/expr.asm"
+.equ	SHELL_RAMSTART	STDIO_RAMEND
-.inc "basic/util.asm"
+.equ	SHELL_EXTRA_CMD_COUNT 0
-.inc "basic/parse.asm"
+.inc "shell/main.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:
 	di
@@ -65,8 +53,8 @@ init:
 
 	call	kbdInit
 	call	vdpInit
-	call	basInit
+	call	shellInit
-	jp	basStart
+	jp	shellLoop
 
 .fill 0x7ff0-$
 .db "TMR SEGA", 0x00, 0x00, 0xfb, 0x68, 0x00, 0x00, 0x00, 0x4c

recipes/sms/romasm/glue.asm

@@ -1,11 +1,6 @@
-; TODO: This recipe has not been tested since its conversion to the BASIC shell.
-; My PS/2 adapter has been acting up and probably has a loose wire. I need to
-; fix it beore I can test this recipe on real hardware.
-; But theoretically, it works...
-
 ; 8K of onboard RAM
 .equ	RAMSTART	0xc000
-.equ	USER_CODE	0xd500
+.equ	USER_RAMSTART	0xc200
 ; Memory register at the end of RAM. Must not overwrite
 .equ	RAMEND		0xddd0
 
@@ -24,6 +19,7 @@
 	jp	fsGetB
 	jp	fsPutB
 	jp	fsSetSize
+	jp	parseArgs
 	jp	printstr
 	jp	_blkGetB
 	jp	_blkPutB
@@ -74,32 +70,25 @@
 .equ	FS_HANDLE_COUNT	2
 .inc "fs.asm"
 
-; *** BASIC ***
+; *** Shell ***
-
-; RAM space used in different routines for short term processing.
-.equ	SCRATCHPAD_SIZE	0x20
-.equ	SCRATCHPAD	FS_RAMEND
 .inc "lib/util.asm"
-.inc "lib/ari.asm"
 .inc "lib/parse.asm"
-.inc "lib/fmt.asm"
+.inc "lib/args.asm"
-.equ	EXPR_PARSE	parseLiteralOrVar
+.inc "lib/stdio.asm"
-.inc "lib/expr.asm"
+.equ	SHELL_RAMSTART	FS_RAMEND
-.inc "basic/util.asm"
+.equ	SHELL_EXTRA_CMD_COUNT 10
-.inc "basic/parse.asm"
+.inc "shell/main.asm"
-.inc "basic/tok.asm"
+.dw	edCmd, zasmCmd, fnewCmd, fdelCmd, fopnCmd, flsCmd, blkBselCmd
-.equ	VAR_RAMSTART	SCRATCHPAD+SCRATCHPAD_SIZE
+.dw	blkSeekCmd, blkLoadCmd, blkSaveCmd
-.inc "basic/var.asm"
-.equ	BUF_RAMSTART	VAR_RAMEND
-.inc "basic/buf.asm"
-.equ	BFS_RAMSTART	BUF_RAMEND
-.inc "basic/fs.asm"
-.inc "basic/blk.asm"
-.equ	BAS_RAMSTART	BFS_RAMEND
-.inc "basic/main.asm"
 
-; USER_CODE is set according to this output below.
+.inc "shell/blkdev.asm"
-.out BAS_RAMEND
+.inc "shell/fs.asm"
+
+.equ	PGM_RAMSTART		SHELL_RAMEND
+.equ	PGM_CODEADDR		USER_RAMSTART
+.inc "shell/pgm.asm"
+
+.out	PGM_RAMEND
 
 init:
 	di
@@ -127,28 +116,10 @@ init:
 	call	kbdInit
 	call	vdpInit
 
-	call	basInit
+	call	shellInit
-	ld	hl, basFindCmdExtra
+	ld	hl, pgmShellHook
-	ld	(BAS_FINDHOOK), hl
+	ld	(SHELL_CMDHOOK), hl
-	jp	basStart
+	jp	shellLoop
-
-basFindCmdExtra:
-	ld	hl, basFSCmds
-	call	basFindCmd
-	ret	z
-	ld	hl, basBLKCmds
-	call	basFindCmd
-	ret	z
-	ld	hl, .mycmds
-	call	basFindCmd
-	ret	z
-	jp	basPgmHook
-.mycmds:
-	.db "ed", 0
-	.dw 0x1e00
-	.db "zasm", 0
-	.dw 0x2300
-	.db 0xff
 
 f0GetB:
 	ld	ix, FS_HANDLES
@@ -166,14 +137,30 @@ f1PutB:
 	ld	ix, FS_HANDLES+FS_HANDLE_SIZE
 	jp	fsPutB
 
-; last time I checked, PC at this point was 0x1df8. Let's give us a nice margin
+edCmd:
+	.db	"ed", 0, 0, 0b1001, 0, 0
+	push	hl \ pop ix
+	ld	l, (ix)
+	ld	h, (ix+1)
+	jp	0x1900
+
+zasmCmd:
+	.db	"zasm", 0b1001, 0, 0
+	push	hl \ pop ix
+	ld	l, (ix)
+	ld	h, (ix+1)
+	jp	0x1d00
+
+; last time I checked, PC at this point was 0x183c. Let's give us a nice margin
 ; for the start of ed.
-.fill 0x1e00-$
+.fill 0x1900-$
 .bin "ed.bin"
 
-; Last check: 0x22dd
+; Last check: 0x1c4e
-.fill 0x2300-$
+.fill 0x1d00-$
 .bin "zasm.bin"
 
 .fill 0x7ff0-$
 .db "TMR SEGA", 0x00, 0x00, 0xfb, 0x68, 0x00, 0x00, 0x00, 0x4c
+
+

recipes/sms/romasm/user.h

@@ -1,4 +1,4 @@
-.equ    USER_CODE   0xc200
+.equ    USER_RAMSTART   0xc200
 ; Make ed fit in SMS's memory
 .equ    ED_BUF_MAXLINES 0x100
 .equ    ED_BUF_PADMAXLEN 0x800
@@ -22,6 +22,7 @@
 .equ	fsGetB			@+3
 .equ	fsPutB			@+3
 .equ	fsSetSize		@+3
+.equ	parseArgs		@+3
 .equ	printstr		@+3
 .equ	_blkGetB		@+3
 .equ	_blkPutB		@+3

tools/emul/zasm/zasm.c

@@ -54,7 +54,7 @@ static int inpt_size;
 static int inpt_ptr;
 static uint8_t middle_of_seek_tell = 0;
 
-static uint8_t fsdev[0x80000] = {0};
+static uint8_t fsdev[0x40000] = {0};
 static uint32_t fsdev_size = 0;
 static uint32_t fsdev_ptr = 0;
 static uint8_t fsdev_seek_tell_cnt = 0;

tools/uploadb.py

@@ -47,26 +47,14 @@ def main():
 
     for i, c in enumerate(fcontents):
         c = bytes([c])
-        print('.', end='', flush=True)
-        for _ in range(5): # try 5 times
         sendcmd(fd, 'getc')
         os.write(fd, c)
         os.read(fd, 2) # read prompt
-            sendcmd(fd, 'print a')
+        sendcmd(fd, 'putc a')
-            s = b''
-            while True:
         r = os.read(fd, 1) # putc result
-                if not r.isdigit():
+        os.read(fd, 2) # read prompt
-                    break
+        if r != c:
-                s += r
+            print(f"Mismatch at byte {i}! {c} != {r}")
-            os.read(fd, 3) # read prompt
-            if int(s) == c[0]:
-                break
-            else:
-                print(f"Mismatch at byte {i}! {c} != {r}. Retrying")
-        else:
-            print("Maximum retries reached, abort")
-            return 1
         sendcmd(fd, 'poke m a')
         os.read(fd, 2) # read prompt
         sendcmd(fd, 'm=m+1')