1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-11-10 03:08:06 +11:00
collapseos/apps/zasm/emul/glue.asm
2019-05-01 14:07:01 -04:00

29 lines
424 B
NASM

#include "user.inc"
; Glue code for the emulated environment
ZASM_INPUT .equ 0xa000
ZASM_OUTPUT .equ 0xd000
jr init ; 2 bytes
; *** JUMP TABLE ***
jp strncmp
jp addDE
jp upcase
jp unsetZ
jp intoDE
init:
di
ld hl, RAMEND
ld sp, hl
ld hl, ZASM_INPUT
ld de, ZASM_OUTPUT
call USER_CODE
; signal the emulator we're done
; BC contains the number of written bytes
ld a, c
ld c, b
out (c), a
halt
#include "core.asm"