recipes/rc2014/sdcard: now works under Forth!
This commit is contained in:
Virgil Dupras
parent
dfaa1dc101
commit
98191d0b0d
@ -33,24 +33,17 @@ in write protection mode, but I preferred building my own module.
|
|||||||
|
|
||||||
I don't think you need a schematic. It's really simple.
|
I don't think you need a schematic. It's really simple.
|
||||||
|
|
||||||
## Using the at28 driver
|
## Building your stage 4
|
||||||
|
|
||||||
The AT28 driver is at `drv/at28.fs` and is a pure forth source file so it's
|
Using the same technique as you used for building your stage 3, you can append
|
||||||
rather easy to set up from the base Stage 3 binary:
|
required words to your boot binary. Required units are `forth/adev.fs` and
|
||||||
|
`drv/at28.fs`.
|
||||||
cat ../stage3.bin ../pre.fs ../../../drv/at28.fs ../run.fs > os.bin
|
|
||||||
../../../emul/hw/rc2014/classic os.bin
|
|
||||||
|
|
||||||
## Writing contents to the AT28
|
## Writing contents to the AT28
|
||||||
|
|
||||||
The driver provides `AT28!` which can be plugged in adev's `A!*`.
|
The driver provides `AT28!` which can be plugged in adev's `A!*`.
|
||||||
|
|
||||||
It's not in the Stage 3 binary, but because it's a small piece of Forth code,
|
First, upload your binary to some place in memory, for example `a000`. To do so,
|
||||||
let's just run its definition code:
|
|
||||||
|
|
||||||
cat ../../../drv/at28.fs | ./stripfc | ./exec <tty device>
|
|
||||||
|
|
||||||
Then, upload your binary to some place in memory, for example `a000`. To do so,
|
|
||||||
run this from your modern computer:
|
run this from your modern computer:
|
||||||
|
|
||||||
./upload <tty device> a000 <filename>
|
./upload <tty device> a000 <filename>
|
||||||
|
|||||||
@ -1,19 +0,0 @@
|
|||||||
TARGETS = os.bin cfsin/helo
|
|
||||||
BASEDIR = ../../..
|
|
||||||
ZASM = $(BASEDIR)/emul/zasm/zasm
|
|
||||||
KERNEL = $(BASEDIR)/kernel
|
|
||||||
APPS = $(BASEDIR)/apps
|
|
||||||
CFSPACK = $(BASEDIR)/tools/cfspack/cfspack
|
|
||||||
|
|
||||||
.PHONY: all
|
|
||||||
all: $(TARGETS) sdcard.cfs
|
|
||||||
os.bin: glue.asm
|
|
||||||
cfsin/helo: helo.asm
|
|
||||||
$(TARGETS):
|
|
||||||
$(ZASM) $(KERNEL) $(APPS) < glue.asm > $@
|
|
||||||
|
|
||||||
$(CFSPACK):
|
|
||||||
make -C $(BASEDIR)/tools/cfspack
|
|
||||||
|
|
||||||
sdcard.cfs: cfsin $(CFSPACK)
|
|
||||||
$(CFSPACK) cfsin > $@
|
|
||||||
@ -8,7 +8,7 @@ You can't really keep pins high and low on an IO line. You need some kind of
|
|||||||
intermediary between z80 IOs and SPI.
|
intermediary between z80 IOs and SPI.
|
||||||
|
|
||||||
There are many ways to achieve this. This recipe explains how to build your own
|
There are many ways to achieve this. This recipe explains how to build your own
|
||||||
hacked off SPI relay for the RC2014. It can then be used with `sdc.asm` to
|
hacked off SPI relay for the RC2014. It can then be used with `sdc.fs` to
|
||||||
drive a SD card.
|
drive a SD card.
|
||||||
|
|
||||||
## Goal
|
## Goal
|
||||||
@ -18,10 +18,8 @@ design.
|
|||||||
|
|
||||||
## Gathering parts
|
## Gathering parts
|
||||||
|
|
||||||
* A RC2014 with Collapse OS with these features:
|
* A RC2014 Classic
|
||||||
* shell
|
* `stage3.bin` from the base recipe
|
||||||
* blockdev
|
|
||||||
* sdc
|
|
||||||
* A MicroSD breakout board. I use Adafruit's.
|
* A MicroSD breakout board. I use Adafruit's.
|
||||||
* A proto board + header pins with 39 positions so we can make a RC2014 card.
|
* A proto board + header pins with 39 positions so we can make a RC2014 card.
|
||||||
* Diodes, resistors and stuff
|
* Diodes, resistors and stuff
|
||||||
@ -34,7 +32,7 @@ design.
|
|||||||
|
|
||||||
## Building the SPI relay
|
## Building the SPI relay
|
||||||
|
|
||||||
The [schematic][schematic] supplied with this recipe works well with `sdc.asm`.
|
The [schematic][schematic] supplied with this recipe works well with `sdc.fs`.
|
||||||
Of course, it's not the only possible design that works, but I think it's one
|
Of course, it's not the only possible design that works, but I think it's one
|
||||||
of the most straighforwards.
|
of the most straighforwards.
|
||||||
|
|
||||||
@ -71,95 +69,41 @@ matter. However, it *does* matter for the `SELECT` line, so I don't follow my
|
|||||||
own schematic with regards to the `M1` and `A2` lines and use two inverters
|
own schematic with regards to the `M1` and `A2` lines and use two inverters
|
||||||
instead.
|
instead.
|
||||||
|
|
||||||
## Building the kernel
|
## Building your stage 4
|
||||||
|
|
||||||
To be able to work with your SPI relay and communicate with the card, you
|
Using the same technique as you used for building your stage 3, you can append
|
||||||
should have [glue code that looks like this](glue.asm).
|
required words to your boot binary. Required units are `forth/blk.fs` and
|
||||||
|
`drv/sdc.fs`. You also need `drv/sdc.z80` but to save you the troubles of
|
||||||
|
rebuilding from stage 1 for this recipe, we took the liberty of already having
|
||||||
|
included it in the base recipe.
|
||||||
|
|
||||||
Initially, when you don't know if things work well yet, you should comment out
|
## Testing in the emulator
|
||||||
the block creation part.
|
|
||||||
|
|
||||||
## Reading from the SD card
|
The RC2014 emulator includes SDC emulation. You can attach a SD card image to
|
||||||
|
it by invoking it with a second argument:
|
||||||
|
|
||||||
The first thing we'll do is fill the SD card's first 12 bytes with "Hello
|
../../../emul/hw/rc2014/classic stage4.bin ../../../emul/blkfs
|
||||||
World!":
|
|
||||||
|
|
||||||
echo "Hello World!" > /dev/sdX
|
You will then run with a SD card having the contents from `/blk`.
|
||||||
|
|
||||||
Then, insert your SD card in your SPI relay and boot the RC2014.
|
## Usage
|
||||||
|
|
||||||
Run the `sdci` command which will initialize the card. The blockdev 0 is
|
First, the SD card needs to be initialized
|
||||||
already selected at initialization, but you could, to be sure, run `bsel 0` to
|
|
||||||
select the first blockdev, which is configured to be the sd card.
|
|
||||||
|
|
||||||
Set your memory pointer to somewhere you can write to with `mptr 9000` and then
|
SDC$
|
||||||
you're ready to load your contents with `load d` (load the 13 bytes that you
|
|
||||||
wrote to your sd card earlier. You can then `peek d` and see that your
|
|
||||||
"Hello World!\n" got loaded in memory!
|
|
||||||
|
|
||||||
## Mounting a filesystem from the SD card
|
If there is no error message, we're fine. Then, we need to hook `BLK@*` and
|
||||||
|
`BLK!*` into the SDC driver:
|
||||||
|
|
||||||
The Makefile compiles `helo.asm` in `cfsin` and then packs `cfsin` into a CFS
|
' SDC@ BLK@* !
|
||||||
filesystem into the `sdcard.cfs` file. That can be mounted by Collapse OS!
|
' SDC! BLK!* !
|
||||||
|
|
||||||
$ cat sdcard.cfs > /dev/sdX
|
And thats it! You have full access to disk block mechanism:
|
||||||
|
|
||||||
Then, you insert your SD card in your SPI relay and go:
|
102 LOAD
|
||||||
|
BROWSE
|
||||||
|
|
||||||
Collapse OS
|
(at this moment, the driver is a bit slow though...)
|
||||||
> sdci
|
|
||||||
> fson
|
|
||||||
> fls
|
|
||||||
helo
|
|
||||||
hello.txt
|
|
||||||
> helo
|
|
||||||
Hello!
|
|
||||||
>
|
|
||||||
|
|
||||||
The `helo` command is a bit magical and is due to the hook implemented in
|
|
||||||
`pgm.asm`: when an unknown command is typed, it looks in the currently mounted
|
|
||||||
filesystem for a file with the same name. If it finds it, it loads it in memory
|
|
||||||
at a predefined place (in our case, `0x9000`) and executes it.
|
|
||||||
|
|
||||||
Now let that sink in for a minute. You've just mounted a filesystem on a SD
|
|
||||||
card, loaded a file from it in memory and executed that file, all that on a
|
|
||||||
kernel that weights less than 3 kilobytes!
|
|
||||||
|
|
||||||
## Writing to a file in the SD card
|
|
||||||
|
|
||||||
Now what we're going to do is to write back to a file on the SD card. From a
|
|
||||||
system with the SD card initialized and the FS mounted, do:
|
|
||||||
|
|
||||||
> fopn 0 hello.txt
|
|
||||||
> bsel 1
|
|
||||||
> mptr 9000
|
|
||||||
9000
|
|
||||||
> load d
|
|
||||||
> peek d
|
|
||||||
48656C6C6F20576F726C64210A
|
|
||||||
|
|
||||||
Now that we have our "Hello World!\n" loaded in memory, let's modify it and make
|
|
||||||
it start with "XXX" and save it to the file. `sdcf` flushes the current SD card
|
|
||||||
buffer to the card. It's automatically ran whenever we change sector during a
|
|
||||||
read/write/seek, but was can also explicitly call it with `sdcf`.
|
|
||||||
|
|
||||||
> poke 3
|
|
||||||
[type "XXX"]
|
|
||||||
> peek d
|
|
||||||
5858586C6F20576F726C64210A
|
|
||||||
> seek 00 0000
|
|
||||||
0000
|
|
||||||
> save d
|
|
||||||
> sdcf
|
|
||||||
|
|
||||||
The new "XXXlo World!\n" is now written to the card, at its proper place in CFS!
|
|
||||||
You can verify this by pulling out the card (no need to unmount it from Collapse
|
|
||||||
OS, but if you insert it again, you'll need to run `sdci` again), insert it in
|
|
||||||
your modern system and run:
|
|
||||||
|
|
||||||
$ head -c 512 /dev/sdX | xxd
|
|
||||||
|
|
||||||
You'll see your "XXXlo World!\n" somewhere, normally at offset `0x120`!
|
|
||||||
|
|
||||||
[schematic]: spirelay/spirelay.pdf
|
[schematic]: spirelay/spirelay.pdf
|
||||||
[inspiration]: https://www.ecstaticlyrics.com/electronics/SPI/fast_z80_interface.html
|
[inspiration]: https://www.ecstaticlyrics.com/electronics/SPI/fast_z80_interface.html
|
||||||
|
|||||||
@ -1,114 +0,0 @@
|
|||||||
; classic RC2014 setup (8K ROM + 32K RAM) and a stock Serial I/O module
|
|
||||||
; The RAM module is selected on A15, so it has the range 0x8000-0xffff
|
|
||||||
.equ RAMSTART 0x8000
|
|
||||||
.equ RAMEND 0xffff
|
|
||||||
.equ ACIA_CTL 0x80 ; Control and status. RS off.
|
|
||||||
.equ ACIA_IO 0x81 ; Transmit. RS on.
|
|
||||||
.equ USER_CODE 0xa000
|
|
||||||
|
|
||||||
jp init ; 3 bytes
|
|
||||||
|
|
||||||
; *** Jump Table ***
|
|
||||||
jp printstr
|
|
||||||
jp sdcWaitResp
|
|
||||||
jp sdcCmd
|
|
||||||
jp sdcCmdR1
|
|
||||||
jp sdcCmdR7
|
|
||||||
jp sdcSendRecv
|
|
||||||
|
|
||||||
; interrupt hook
|
|
||||||
.fill 0x38-$
|
|
||||||
jp aciaInt
|
|
||||||
|
|
||||||
.inc "err.h"
|
|
||||||
.inc "ascii.h"
|
|
||||||
.inc "blkdev.h"
|
|
||||||
.inc "fs.h"
|
|
||||||
.inc "core.asm"
|
|
||||||
.inc "str.asm"
|
|
||||||
.equ ACIA_RAMSTART RAMSTART
|
|
||||||
.inc "acia.asm"
|
|
||||||
.equ BLOCKDEV_RAMSTART ACIA_RAMEND
|
|
||||||
.equ BLOCKDEV_COUNT 2
|
|
||||||
.inc "blockdev.asm"
|
|
||||||
; List of devices
|
|
||||||
.dw sdcGetB, sdcPutB
|
|
||||||
.dw blk2GetB, blk2PutB
|
|
||||||
|
|
||||||
|
|
||||||
.equ STDIO_RAMSTART BLOCKDEV_RAMEND
|
|
||||||
.equ STDIO_GETC aciaGetC
|
|
||||||
.equ STDIO_PUTC aciaPutC
|
|
||||||
.inc "stdio.asm"
|
|
||||||
|
|
||||||
.equ FS_RAMSTART STDIO_RAMEND
|
|
||||||
.equ FS_HANDLE_COUNT 1
|
|
||||||
.inc "fs.asm"
|
|
||||||
|
|
||||||
; *** BASIC ***
|
|
||||||
|
|
||||||
; RAM space used in different routines for short term processing.
|
|
||||||
.equ SCRATCHPAD_SIZE STDIO_BUFSIZE
|
|
||||||
.equ SCRATCHPAD FS_RAMEND
|
|
||||||
.inc "lib/util.asm"
|
|
||||||
.inc "lib/ari.asm"
|
|
||||||
.inc "lib/parse.asm"
|
|
||||||
.inc "lib/fmt.asm"
|
|
||||||
.equ EXPR_PARSE parseLiteralOrVar
|
|
||||||
.inc "lib/expr.asm"
|
|
||||||
.inc "basic/util.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"
|
|
||||||
.inc "basic/blk.asm"
|
|
||||||
.inc "basic/sdc.asm"
|
|
||||||
.equ BFS_RAMSTART BUF_RAMEND
|
|
||||||
.inc "basic/fs.asm"
|
|
||||||
.equ BAS_RAMSTART BFS_RAMEND
|
|
||||||
.inc "basic/main.asm"
|
|
||||||
|
|
||||||
.equ SDC_RAMSTART BAS_RAMEND
|
|
||||||
.equ SDC_PORT_CSHIGH 6
|
|
||||||
.equ SDC_PORT_CSLOW 5
|
|
||||||
.equ SDC_PORT_SPI 4
|
|
||||||
.inc "sdc.asm"
|
|
||||||
|
|
||||||
init:
|
|
||||||
di
|
|
||||||
ld sp, RAMEND
|
|
||||||
im 1
|
|
||||||
call aciaInit
|
|
||||||
call fsInit
|
|
||||||
call basInit
|
|
||||||
ld hl, basFindCmdExtra
|
|
||||||
ld (BAS_FINDHOOK), hl
|
|
||||||
|
|
||||||
xor a
|
|
||||||
ld de, BLOCKDEV_SEL
|
|
||||||
call blkSel
|
|
||||||
|
|
||||||
ei
|
|
||||||
jp basStart
|
|
||||||
|
|
||||||
basFindCmdExtra:
|
|
||||||
ld hl, basFSCmds
|
|
||||||
call basFindCmd
|
|
||||||
ret z
|
|
||||||
ld hl, basBLKCmds
|
|
||||||
call basFindCmd
|
|
||||||
ret z
|
|
||||||
ld hl, basSDCCmds
|
|
||||||
jp basFindCmd
|
|
||||||
|
|
||||||
; *** blkdev 2: file handle 0 ***
|
|
||||||
|
|
||||||
blk2GetB:
|
|
||||||
ld ix, FS_HANDLES
|
|
||||||
jp fsGetB
|
|
||||||
|
|
||||||
blk2PutB:
|
|
||||||
ld ix, FS_HANDLES
|
|
||||||
jp fsPutB
|
|
||||||
@ -1,12 +0,0 @@
|
|||||||
; prints "Hello!" on screen
|
|
||||||
.equ printstr 0x03
|
|
||||||
|
|
||||||
.org 0x9000
|
|
||||||
|
|
||||||
ld hl, sHello
|
|
||||||
call printstr
|
|
||||||
xor a ; success
|
|
||||||
ret
|
|
||||||
|
|
||||||
sHello:
|
|
||||||
.db "Hello!", 0x0d, 0x0a, 0
|
|
||||||
Loading…
Reference in New Issue
Block a user