collapseos/apps/zasm/emul/zasm.c

#include <stdint.h>
#include <stdio.h>
#include "libz80/z80.h"
#include "wrapper.h"
#include "zasm.h"

/* zasm is a "pure memory" application. It starts up being told memory location
 * to read and memory location to write.
 *
 * This program works be writing stdin in a specific location in memory, run
 * zasm in a special wrapper, wait until we receive the stop signal, then
 * spit the contents of the dest memory to stdout.
 */

// in sync with wrapper.asm
#define READFROM 0x9000
#define WRITETO 0xc000

static Z80Context cpu;
static uint8_t mem[0xffff];
static int running;
// Number of bytes written to WRITETO
// We receive that result from an OUT (C), A call. C contains LSB, A is MSB.
static uint16_t written;


static uint8_t io_read(int unused, uint16_t addr)
{
    return 0;
}

static void io_write(int unused, uint16_t addr, uint8_t val)
{
    written = (val << 8) + (addr & 0xff);
    running = 0;
}

static uint8_t mem_read(int unused, uint16_t addr)
{
    return mem[addr];
}

static void mem_write(int unused, uint16_t addr, uint8_t val)
{
    mem[addr] = val;
}

int main()
{
    // initialize memory
    int wrapperlen = sizeof(WRAPPER);
    for (int i=0; i<wrapperlen; i++) {
        mem[i] = WRAPPER[i];
    }
    int zasm = sizeof(ZASM);
    for (int i=0; i<zasm; i++) {
        mem[i+wrapperlen] = ZASM[i];
    }
    int ptr = READFROM;
    int c = getchar();
    while (c != EOF) {
        mem[ptr] = c;
        ptr++;
        c = getchar();
    }
    // Run!
    running = 1;
    Z80RESET(&cpu);
    cpu.ioRead = io_read;
    cpu.ioWrite = io_write;
    cpu.memRead = mem_read;
    cpu.memWrite = mem_write;

    while (running) {
        Z80Execute(&cpu);
    }

    for (int i=0; i<written; i++) {
        putchar(mem[WRITETO+i]);
    }
    return 0;
}