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

jr	init	; 2 bytes
; *** JUMP TABLE ***
jp	strncmp
jp	addDE
jp	addHL
jp	upcase
jp	unsetZ
jp	intoDE
jp	intoHL
jp	findchar
jp	parseHexPair
jp	blkSel

init:
	di
	; We put the stack at the end of the kernel memory
	ld	hl, USER_CODE-1
	ld	sp, hl
	ld	h, 0	; input blkdev
	ld	l, 1	; output blkdev
	call	USER_CODE
	; signal the emulator we're done
	halt

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

#include "core.asm"
.equ	BLOCKDEV_RAMSTART	RAMSTART
.equ	BLOCKDEV_COUNT		2
#include "blockdev.asm"
; List of devices
.dw	emulGetC, 0, emulSeek, 0
.dw	0, emulPutC, 0, 0
Move apps/zasm/emul to tools/emul 2019-05-10 04:09:40 +10: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-11 08:20:43 +10:00			`.equ RAMSTART 0x4000`
			`.equ USER_CODE 0x4800`
Move apps/zasm/emul to tools/emul 2019-05-10 04:09:40 +10:00			`.equ STDIO_PORT 0x00`
zasm: change ioRewind to ioSeek Will need it soon. 2019-05-16 03:41:56 +10:00			`.equ STDIN_SEEK 0x01`
Move apps/zasm/emul to tools/emul 2019-05-10 04:09:40 +10:00
			`jr init ; 2 bytes`
			`; * JUMP TABLE *`
			`jp strncmp`
			`jp addDE`
zasm: add support for labels! 2019-05-10 11:21:08 +10:00			`jp addHL`
Move apps/zasm/emul to tools/emul 2019-05-10 04:09:40 +10:00			`jp upcase`
			`jp unsetZ`
			`jp intoDE`
zasm: add support for relative labels 2019-05-13 12:07:21 +10:00			`jp intoHL`
zasm: add support for labels! 2019-05-10 11:21:08 +10:00			`jp findchar`
zasm: add support for hex literals 2019-05-10 12:14:11 +10:00			`jp parseHexPair`
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-11 08:20:43 +10:00			`jp blkSel`
Move apps/zasm/emul to tools/emul 2019-05-10 04:09:40 +10:00
			`init:`
			`di`
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-11 08:20:43 +10:00			`; We put the stack at the end of the kernel memory`
			`ld hl, USER_CODE-1`
Move apps/zasm/emul to tools/emul 2019-05-10 04:09:40 +10:00			`ld sp, hl`
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-11 08:20:43 +10:00			`ld h, 0 ; input blkdev`
			`ld l, 1 ; output blkdev`
Move apps/zasm/emul to tools/emul 2019-05-10 04:09:40 +10:00			`call USER_CODE`
			`; signal the emulator we're done`
			`halt`

zasm: Read from and write to streams instead of memory 2019-05-10 05:36:03 +10: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-11 10:32:05 +10:00			`emulSeek:`
zasm: change ioRewind to ioSeek Will need it soon. 2019-05-16 03:41:56 +10: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-11 10:32:05 +10:00			`ret`

Move apps/zasm/emul to tools/emul 2019-05-10 04:09:40 +10:00			`#include "core.asm"`
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-11 08:20:43 +10:00			`.equ BLOCKDEV_RAMSTART RAMSTART`
			`.equ BLOCKDEV_COUNT 2`
			`#include "blockdev.asm"`
			`; List of devices`
zasm: read input in two passes 2019-05-11 10:32:05 +10:00			`.dw emulGetC, 0, emulSeek, 0`
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-11 08:20:43 +10:00			`.dw 0, emulPutC, 0, 0`