collapseos/tools/emul/zasm/glue.asm

; Glue code for the emulated environment
.equ RAMSTART		0x4000
.equ USER_CODE		0x4800
.equ STDIO_PORT		0x00
.equ STDIN_SEEK		0x01
.equ FS_DATA_PORT	0x02
.equ FS_SEEK_PORT	0x03
.equ STDERR_PORT	0x04

jp     init    ; 3 bytes
; *** JUMP TABLE ***
jp     strncmp
jp     addDE
jp     addHL
jp     upcase
jp     unsetZ
jp     intoDE
jp     intoHL
jp     writeHLinDE
jp     findchar
jp     parseHex
jp     parseHexPair
jp     blkSel
jp     fsFindFN
jp     fsOpen
jp     fsGetC
jp     fsSeek
jp     fsTell

#include "core.asm"
#include "parse.asm"
.equ	BLOCKDEV_RAMSTART	RAMSTART
.equ	BLOCKDEV_COUNT		3
#include "blockdev.asm"
; List of devices
.dw	emulGetC, 0, emulSeek, emulTell
.dw	0, emulPutC, 0, 0
.dw	fsdevGetC, fsdevPutC, fsdevSeek, fsdevTell

.equ	FS_RAMSTART	BLOCKDEV_RAMEND
.equ	FS_HANDLE_COUNT	0
#include "fs.asm"

init:
	di
	ld	hl, 0xffff
	ld	sp, hl
	ld	a, 2	; select fsdev
	ld	de, BLOCKDEV_GETC
	call	blkSel
	call	fsOn
	ld	h, 0	; input blkdev
	ld	l, 1	; output blkdev
	call	USER_CODE
	; signal the emulator we're done
	halt

; *** I/O ***
emulGetC:
	in	a, (STDIO_PORT)
	or	a		; cp 0
	jr	z, .eof
	cp	a		; ensure z
	ret
.eof:
	call	unsetZ
	ret

emulPutC:
	out	(STDIO_PORT), a
	ret

emulSeek:
	; the STDIN_SEEK port works by poking it twice. First poke is for high
	; byte, second poke is for low one.
	ld	a, h
	out	(STDIN_SEEK), a
	ld	a, l
	out	(STDIN_SEEK), a
	ret

emulTell:
	; same principle as STDIN_SEEK
	in	a, (STDIN_SEEK)
	ld	h, a
	in	a, (STDIN_SEEK)
	ld	l, a
	ret

fsdevGetC:
	in	a, (FS_DATA_PORT)
	cp	a		; ensure Z
	ret

fsdevPutC:
	out	(FS_DATA_PORT), a
	ret

fsdevSeek:
	push	af
	ld	a, h
	out	(FS_SEEK_PORT), a
	ld	a, l
	out	(FS_SEEK_PORT), a
	pop	af
	ret

fsdevTell:
	push	af
	in	a, (FS_SEEK_PORT)
	ld	h, a
	in	a, (FS_SEEK_PORT)
	ld	l, a
	pop	af
	ret
Move apps/zasm/emul to tools/emul 2019-05-09 14:09:40 -04:00			`; Glue code for the emulated environment`
zasm: use blkdev IDs as input and output This will soon allow use to seek and tell on input, which is necessary for a second pass which is necessary for forward symbol references. This require making `blkSel` a bit more flexible. Rather than having one global selected blkdev, each app can select its own, in its own memory space. 2019-05-10 18:20:43 -04:00			`.equ RAMSTART 0x4000`
zasm now bootstraps itself without scas! 2019-05-19 15:03:34 -04:00			`.equ USER_CODE 0x4800`
Move apps/zasm/emul to tools/emul 2019-05-09 14:09:40 -04:00			`.equ STDIO_PORT 0x00`
zasm: change ioRewind to ioSeek Will need it soon. 2019-05-15 13:41:56 -04:00			`.equ STDIN_SEEK 0x01`
zasm emul: hook fsdev in glue code 2019-05-16 13:23:23 -04:00			`.equ FS_DATA_PORT 0x02`
			`.equ FS_SEEK_PORT 0x03`
zasm emul: add dumpSymbolTable debug routine Very helpful... 2019-05-17 13:22:45 -04:00			`.equ STDERR_PORT 0x04`
Move apps/zasm/emul to tools/emul 2019-05-09 14:09:40 -04:00
zasm emul: bring back kernel/user distinction It was a bad idea to remove it. Now that I'm introducing the concept of a per-app glue file, it becomes much easier to build emulated zasm as a userspace app. 2019-05-19 12:57:59 -04:00			`jp init ; 3 bytes`
			`; * JUMP TABLE *`
			`jp strncmp`
			`jp addDE`
			`jp addHL`
			`jp upcase`
			`jp unsetZ`
			`jp intoDE`
			`jp intoHL`
			`jp writeHLinDE`
			`jp findchar`
			`jp parseHex`
			`jp parseHexPair`
			`jp blkSel`
			`jp fsFindFN`
			`jp fsOpen`
			`jp fsGetC`
			`jp fsSeek`
			`jp fsTell`
Move apps/zasm/emul to tools/emul 2019-05-09 14:09:40 -04:00
zasm emul: hook fsdev in glue code 2019-05-16 13:23:23 -04:00			`#include "core.asm"`
Add the concept of unit tests Will be much much easier to tests new core routines without having to re-create their context first. Also, extract parse.asm from core.asm 2019-05-17 09:33:20 -04:00			`#include "parse.asm"`
zasm emul: hook fsdev in glue code 2019-05-16 13:23:23 -04:00			`.equ BLOCKDEV_RAMSTART RAMSTART`
			`.equ BLOCKDEV_COUNT 3`
			`#include "blockdev.asm"`
			`; List of devices`
			`.dw emulGetC, 0, emulSeek, emulTell`
			`.dw 0, emulPutC, 0, 0`
			`.dw fsdevGetC, fsdevPutC, fsdevSeek, fsdevTell`

			`.equ FS_RAMSTART BLOCKDEV_RAMEND`
			`.equ FS_HANDLE_COUNT 0`
			`#include "fs.asm"`

Move apps/zasm/emul to tools/emul 2019-05-09 14:09:40 -04:00			`init:`
			`di`
zasm emul: get rid of the kernel/user distinction Made things complicated for nothing. 2019-05-19 09:14:40 -04:00			`ld hl, 0xffff`
Move apps/zasm/emul to tools/emul 2019-05-09 14:09:40 -04:00			`ld sp, hl`
zasm emul: hook fsdev in glue code 2019-05-16 13:23:23 -04:00			`ld a, 2 ; select fsdev`
			`ld de, BLOCKDEV_GETC`
			`call blkSel`
			`call fsOn`
zasm: use blkdev IDs as input and output This will soon allow use to seek and tell on input, which is necessary for a second pass which is necessary for forward symbol references. This require making `blkSel` a bit more flexible. Rather than having one global selected blkdev, each app can select its own, in its own memory space. 2019-05-10 18:20:43 -04:00			`ld h, 0 ; input blkdev`
			`ld l, 1 ; output blkdev`
zasm emul: bring back kernel/user distinction It was a bad idea to remove it. Now that I'm introducing the concept of a per-app glue file, it becomes much easier to build emulated zasm as a userspace app. 2019-05-19 12:57:59 -04:00			`call USER_CODE`
Move apps/zasm/emul to tools/emul 2019-05-09 14:09:40 -04:00			`; signal the emulator we're done`
			`halt`

zasm emul: add dumpSymbolTable debug routine Very helpful... 2019-05-17 13:22:45 -04:00			`; * I/O *`
zasm: Read from and write to streams instead of memory 2019-05-09 15:36:03 -04:00			`emulGetC:`
			`in a, (STDIO_PORT)`
			`or a ; cp 0`
			`jr z, .eof`
			`cp a ; ensure z`
			`ret`
			`.eof:`
			`call unsetZ`
			`ret`

			`emulPutC:`
			`out (STDIO_PORT), a`
			`ret`

zasm: read input in two passes 2019-05-10 20:32:05 -04:00			`emulSeek:`
zasm: change ioRewind to ioSeek Will need it soon. 2019-05-15 13:41:56 -04:00			`; the STDIN_SEEK port works by poking it twice. First poke is for high`
			`; byte, second poke is for low one.`
			`ld a, h`
			`out (STDIN_SEEK), a`
			`ld a, l`
			`out (STDIN_SEEK), a`
zasm: read input in two passes 2019-05-10 20:32:05 -04:00			`ret`

zasm: big local symbols overhaul 2019-05-15 20:07:21 -04:00			`emulTell:`
			`; same principle as STDIN_SEEK`
			`in a, (STDIN_SEEK)`
			`ld h, a`
			`in a, (STDIN_SEEK)`
			`ld l, a`
			`ret`

zasm emul: hook fsdev in glue code 2019-05-16 13:23:23 -04:00			`fsdevGetC:`
			`in a, (FS_DATA_PORT)`
			`cp a ; ensure Z`
			`ret`

			`fsdevPutC:`
			`out (FS_DATA_PORT), a`
			`ret`

			`fsdevSeek:`
			`push af`
			`ld a, h`
			`out (FS_SEEK_PORT), a`
zasm: iiiiiiiincluuuuuuudes!!1! 2019-05-16 21:15:00 -04:00			`ld a, l`
			`out (FS_SEEK_PORT), a`
zasm emul: hook fsdev in glue code 2019-05-16 13:23:23 -04:00			`pop af`
			`ret`

			`fsdevTell:`
			`push af`
			`in a, (FS_SEEK_PORT)`
			`ld h, a`
zasm: iiiiiiiincluuuuuuudes!!1! 2019-05-16 21:15:00 -04:00			`in a, (FS_SEEK_PORT)`
			`ld l, a`
zasm emul: hook fsdev in glue code 2019-05-16 13:23:23 -04:00			`pop af`
			`ret`