collapseos/recipes/rc2014/eeprom/glue.asm

; 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.

jp	init

; interrupt hook
.fill	0x38-$
jp	aciaInt

.inc "err.h"
.inc "core.asm"
.inc "parse.asm"
.equ	ACIA_RAMSTART	RAMSTART
.inc "acia.asm"

.equ	MMAP_START	0xd000
.inc "mmap.asm"

.equ	BLOCKDEV_RAMSTART	ACIA_RAMEND
.equ	BLOCKDEV_COUNT		1
.inc "blockdev.asm"
; List of devices
.dw	mmapGetB, mmapPutB

.equ	STDIO_RAMSTART	BLOCKDEV_RAMEND
.equ	STDIO_GETC	aciaGetC
.equ	STDIO_PUTC	aciaPutC
.inc "stdio.asm"

.equ	AT28W_RAMSTART	STDIO_RAMEND
.inc "at28w/main.asm"

.equ	SHELL_RAMSTART	AT28W_RAMEND
.equ	SHELL_EXTRA_CMD_COUNT 5
.inc "shell.asm"
; Extra cmds
.dw	a28wCmd
.dw	blkBselCmd, blkSeekCmd, blkLoadCmd, blkSaveCmd

.inc "blockdev_cmds.asm"

init:
	di
	; setup stack
	ld	hl, RAMEND
	ld	sp, hl
	im 1

	call	aciaInit
	call	shellInit

	xor	a
	ld	de, BLOCKDEV_SEL
	call	blkSel

	ei
	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
Add at28w app and recipe This allows us to write to an AT28 EEPROM from within collapse os. 2019-06-15 04:15:30 +10:00			`; 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.`

			`jp init`

			`; interrupt hook`
			`.fill 0x38-$`
			`jp aciaInt`

zasm: rename #inc to .inc scas, it's not needed any more. 2019-10-07 05:32:23 +11:00			`.inc "err.h"`
			`.inc "core.asm"`
			`.inc "parse.asm"`
Add at28w app and recipe This allows us to write to an AT28 EEPROM from within collapse os. 2019-06-15 04:15:30 +10:00			`.equ ACIA_RAMSTART RAMSTART`
zasm: rename #inc to .inc scas, it's not needed any more. 2019-10-07 05:32:23 +11:00			`.inc "acia.asm"`
Add at28w app and recipe This allows us to write to an AT28 EEPROM from within collapse os. 2019-06-15 04:15:30 +10:00
			`.equ MMAP_START 0xd000`
zasm: rename #inc to .inc scas, it's not needed any more. 2019-10-07 05:32:23 +11:00			`.inc "mmap.asm"`
Add at28w app and recipe This allows us to write to an AT28 EEPROM from within collapse os. 2019-06-15 04:15:30 +10:00
			`.equ BLOCKDEV_RAMSTART ACIA_RAMEND`
			`.equ BLOCKDEV_COUNT 1`
zasm: rename #inc to .inc scas, it's not needed any more. 2019-10-07 05:32:23 +11:00			`.inc "blockdev.asm"`
Add at28w app and recipe This allows us to write to an AT28 EEPROM from within collapse os. 2019-06-15 04:15:30 +10:00			`; List of devices`
Rename blockdev's API routines to GetB/PutB The goal is to avoid mixing those routines with "character devices" (acia, vpd, kbd) which aren't block devices and have routines that have different expectations. This is a first step to fixing #64. 2019-10-31 07:59:35 +11:00			`.dw mmapGetB, mmapPutB`
Add at28w app and recipe This allows us to write to an AT28 EEPROM from within collapse os. 2019-06-15 04:15:30 +10:00
			`.equ STDIO_RAMSTART BLOCKDEV_RAMEND`
stdio: remove a layer of indirection in GetC/PutC We use zasm's ability to use labels in .equ directive. We didn't do it before because for a while, we were in between scas and zasm (scas was used in automated tests) so we needed to use the lowest common denominator: zasm doesn't have macros and scas can't use labels in .equ directives. This forced us to add this layer of indirection. But now that we are completely cut from scas' dependency, we can use this nice zasm's ability. 2019-11-05 01:55:12 +11:00			`.equ STDIO_GETC aciaGetC`
			`.equ STDIO_PUTC aciaPutC`
zasm: rename #inc to .inc scas, it's not needed any more. 2019-10-07 05:32:23 +11:00			`.inc "stdio.asm"`
Add at28w app and recipe This allows us to write to an AT28 EEPROM from within collapse os. 2019-06-15 04:15:30 +10:00
			`.equ AT28W_RAMSTART STDIO_RAMEND`
zasm: rename #inc to .inc scas, it's not needed any more. 2019-10-07 05:32:23 +11:00			`.inc "at28w/main.asm"`
Add at28w app and recipe This allows us to write to an AT28 EEPROM from within collapse os. 2019-06-15 04:15:30 +10:00
			`.equ SHELL_RAMSTART AT28W_RAMEND`
			`.equ SHELL_EXTRA_CMD_COUNT 5`
zasm: rename #inc to .inc scas, it's not needed any more. 2019-10-07 05:32:23 +11:00			`.inc "shell.asm"`
Add at28w app and recipe This allows us to write to an AT28 EEPROM from within collapse os. 2019-06-15 04:15:30 +10:00			`; Extra cmds`
			`.dw a28wCmd`
			`.dw blkBselCmd, blkSeekCmd, blkLoadCmd, blkSaveCmd`

zasm: rename #inc to .inc scas, it's not needed any more. 2019-10-07 05:32:23 +11:00			`.inc "blockdev_cmds.asm"`
Add at28w app and recipe This allows us to write to an AT28 EEPROM from within collapse os. 2019-06-15 04:15:30 +10:00
			`init:`
			`di`
			`; setup stack`
			`ld hl, RAMEND`
			`ld sp, hl`
			`im 1`

			`call aciaInit`
			`call shellInit`

			`xor a`
			`ld de, BLOCKDEV_SEL`
			`call blkSel`

			`ei`
			`jp shellLoop`

			`a28wCmd:`
recipes/rc2014/eeprom: fix broken a28w args passing That's why the command seemed slow! It's much faster than I thought. 2019-06-15 06:30:01 +10:00			`.db "a28w", 0b011, 0b001, 0`
Add at28w app and recipe This allows us to write to an AT28 EEPROM from within collapse os. 2019-06-15 04:15:30 +10:00			`ld a, (hl)`
apps/at28w: fix argument byte order 2019-06-15 11:11:45 +10:00			`ld (AT28W_MAXBYTES), a`
Add at28w app and recipe This allows us to write to an AT28 EEPROM from within collapse os. 2019-06-15 04:15:30 +10:00			`inc hl`
			`ld a, (hl)`
apps/at28w: fix argument byte order 2019-06-15 11:11:45 +10:00			`ld (AT28W_MAXBYTES+1), a`
Add at28w app and recipe This allows us to write to an AT28 EEPROM from within collapse os. 2019-06-15 04:15:30 +10:00			`jp at28wInner`