collapseos/tools/emul/zasm/glue.asm

120 lines
1.7 KiB
NASM
Raw Normal View History

2019-05-09 14:09:40 -04:00
; Glue code for the emulated environment
.equ RAMSTART 0x4000
.equ USER_CODE 0x4800
2019-05-09 14:09:40 -04:00
.equ STDIO_PORT 0x00
.equ STDIN_SEEK 0x01
2019-05-16 13:23:23 -04:00
.equ FS_DATA_PORT 0x02
.equ FS_SEEK_PORT 0x03
.equ STDERR_PORT 0x04
2019-05-09 14:09:40 -04:00
jp init ; 3 bytes
; *** JUMP TABLE ***
2019-05-31 11:12:29 -04:00
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
jp cpHLDE
jp parseArgs
jp _blkGetC
jp _blkPutC
jp _blkSeek
jp _blkTell
2019-05-09 14:09:40 -04:00
2019-05-16 13:23:23 -04:00
#include "core.asm"
#include "err.h"
#include "parse.asm"
2019-05-16 13:23:23 -04:00
.equ BLOCKDEV_RAMSTART RAMSTART
.equ BLOCKDEV_COUNT 3
#include "blockdev.asm"
; List of devices
.dw emulGetC, unsetZ
.dw unsetZ, emulPutC
.dw fsdevGetC, fsdevPutC
2019-05-16 13:23:23 -04:00
.equ FS_RAMSTART BLOCKDEV_RAMEND
.equ FS_HANDLE_COUNT 0
#include "fs.asm"
2019-05-09 14:09:40 -04:00
init:
di
ld hl, 0xffff
2019-05-09 14:09:40 -04:00
ld sp, hl
2019-05-16 13:23:23 -04:00
ld a, 2 ; select fsdev
ld de, BLOCKDEV_SEL
2019-05-16 13:23:23 -04:00
call blkSel
call fsOn
ld hl, .zasmArgs
call USER_CODE
2019-05-09 14:09:40 -04:00
; signal the emulator we're done
halt
.zasmArgs:
.db "0 1", 0
; *** I/O ***
emulGetC:
; 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
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
fsdevGetC:
ld a, e
out (FS_SEEK_PORT), a
ld a, h
out (FS_SEEK_PORT), a
ld a, l
out (FS_SEEK_PORT), a
in a, (FS_SEEK_PORT)
or a
ret nz
2019-05-16 13:23:23 -04:00
in a, (FS_DATA_PORT)
cp a ; ensure Z
ret
fsdevPutC:
push af
ld a, e
out (FS_SEEK_PORT), a
2019-05-16 13:23:23 -04:00
ld a, h
out (FS_SEEK_PORT), a
2019-05-16 21:15:00 -04:00
ld a, l
out (FS_SEEK_PORT), a
2019-05-16 13:23:23 -04:00
in a, (FS_SEEK_PORT)
or a
jr nz, .error
2019-05-16 13:23:23 -04:00
pop af
out (FS_DATA_PORT), a
2019-05-16 13:23:23 -04:00
ret
.error:
pop af
jp unsetZ ; returns
2019-05-16 13:23:23 -04:00