view emu/main.c @ 28:6d32e54e5c16

emulator overhauled really, new a better memory structure
also cleaned up the file system some what.

#include <stdio.h>
#include <stdlib.h>

#define MAIN
#include "mem.h"
#include "iset.h"

/* fill instruction table 
 * MCS-51 - this needs to be stored in code memory */
void (*iset[256])(void) = {
    NOP, NOP, NOP, NOP, NOP, NOP, NOP, NOP,
    SET, CLR, SET, CLR, SET, CLR, CPL, CPL,
    XCSD, SFA, LAF, MOV, MOV, MOV, MOV, MOV,
    MOV, MOV, MOV, MOV, MOV, MOV, MOV, MOV,
    MOV, MOV, MOV, MOV, MOV, MOV, MOV, MOV,
    MOV, MOV, MOV, MOV, MOV, MOV, MOV, MOV,
    MOV, MOV, MOV, MOV, MOV, MOV, MOV, MOV,
    MOV, MOV, MOV, MOV, MOV, MOV, MOV, MOV,
    MOV, MOV, MOV, MOV, MOV, MOV, MOV, MOV,
    MOV, MOV, MOV, MOV, MOV, MOV, MOV, MOV,
    MOV, MOV, MOV, MOV, MOV, MOV, MOV, MOV,
    MOV, MOV, MOV, MOV, MOV, MOV, MOV, MOV,
    MOV, MOV, MOV, MOV, MOV, MOV, MOV, MOV,
    MOV, MOV, MOV, MOV, MOV, MOV, MOV, MOV,
    MOV, MOV, MOV, MOV, MOV, MOV, MOV, MOV,
    MOV, MOV, MOV, MOV, MOV, MOV, MOV, MOV,
    ANL, ANL, ANL, ANL, ANL, ANL, ANL, ANL,
    ORL, ORL, ORL, ORL, ORL, ORL, ORL, ORL,
    XRL, XRL, XRL, XRL, XRL, XRL, XRL, XRL,
    RL, RLC, RR, RRC, INC, DEC, INC, DEC,
    ADD, ADD, ADD, ADD, ADD, ADD, ADD, ADD,
    ADDC, ADDC, ADDC, ADDC, ADDC, ADDC, ADDC, ADDC,
    SUB, SUB, SUB, SUB, SUB, SUB, SUB, SUB,
    SUBB, SUBB, SUBB, SUBB, SUBB, SUBB, SUBB, SUBB,
    PJMP, PJMP, PJMP, PJMP, PJMP, PJMP, PJMP, PJMP,
    PCALL, PCALL, PCALL, PCALL, PCALL, PCALL, PCALL, PCALL,
    DJNZ, DJNZ, DJNZ, DJNZ, CJNE, CJNE, CJNE, CJNE,
    LJMP, LCALL, RET, RETI, SJMP, JMP, JMP, CJNE,
    JZ, JNZ, JC, JNC, JPO, JPE, JS, JNS,
    PUSH, PUSH, PUSH, PUSH, PUSH, PUSH, PUSH, PUSH,
    POP, POP, POP, POP, POP, POP, POP, POP,
    MUL, DIV, DA, NOP, IN, OUT, INT, HLT
};

BYTE run;
WIDE ac;
BYTE args[4];

/* don't need the file on the MCS-51 version */
FILE *fp;
void
snd(BYTE c) {
    /* putchar(c); */
    fp = fopen("out", "a");
    fputc(c, fp);
    fclose(fp);
}

BYTE
rcv(void) {
    return getchar();
}

void
step(void) {
    IR = fetch();
    (*iset[IR])();
}

void
boot(void) {
    run = 0;
}


void dbgi() {
    if (run == 0) {
        switch (rcv()) {

            /* step */
            case 0x00:
                step();
                break;

            /* run */
            case 0x01:
                run = 1;
                break;

            /* set reg */
            case 0x02:
                args[0] = rcv(); /* reg */
                args[1] = rcv(); /* val */
                regs[args[0]] = args[1];
                break;

            /* get reg */
            case 0x03:
                args[0] = rcv(); /* reg */
                snd(regs[args[0]]);
                break;

            /* set flag */
            case 0x04:
                args[0] = rcv(); /* flag */
                args[1] = rcv(); /* on? */
                set_flag(args[0], args[1]);
                break;
    
            /* get flag */
            case 0x05:
                args[0] = rcv(); /* flag */
                snd(get_flag(args[0]));
                break;

            /* write mem block */
            case 0x06:
                args[0] = rcv(); /* addr high */
                args[1] = rcv(); /* addr low */
                args[2] = rcv(); /* length high */
                args[3] = rcv(); /* length low */
                tmpw = args[1] | (args[0] << 8);           
                for (ac = tmpw; ac < (tmpw + (args[3] | (args[2] << 8))); ac++) {
                    if (ac >= 0xFFFF) {
                        break;
                    }
                    mem[ac] = rcv();
                }
                break;

            /* read mem block */
            case 0x07:
                args[0] = rcv(); /* addr high */
                args[1] = rcv(); /* addr low */
                args[2] = rcv(); /* length high */
                args[3] = rcv(); /* length low */
                tmpw = args[1] | (args[0] << 8);
                for (ac = tmpw; ac < (tmpw + (args[3] | (args[2] << 8))); ac++) {
                    if (ac >= 0xFFFF) {
                        break;
                    }
                    snd(mem[ac]);
                }
                break;

            /* get A */
            case 0x09:
                snd(A);
            
            /* get flags */
            case 0x0F:
                snd(flags);
            
            /* get instruction register */
            case 0x10:
                snd(IR);
       }
    }
}

void 
main(void) {
    
    A = 0xAA;
    IR = 0x12;
    
    unsigned char i;
    for (i = 0 ; i < 8 ; i++) {
        set_flag(i, 1);
    }
    
    set_wide(DPTR, 0xDE1D);
    set_wide(PC, 0xBEFA);
    set_wide(SP, 0xADEA);
    set_wide(TMP, 0xEFC3);
    
    for (i = 0; i < 4; i++) {
        regs[i] = i; 
    }

    for (i = 8; i < 0x0C; i++) {
        regs[i] = 0x10 | (i - 8);
    }
    
    /* 0xAA 0x12 0xFF 
     * 0x00 0x01 0x02 0x03
     * 0xDE 0xAD 0xBE 0xFF
     * 0x10 0x11 0x12 0x13
     * 0x1D 0xEA 0xFA 0xC3 */
    
    putchar(A);
    putchar(IR);
    putchar(flags);

    for (i = 0; i < 0x10; i++) {
        putchar(regs[i]);
    }

    unsigned short int data_pointer = get_wide(DPTR);
    unsigned short int program_counter = get_wide(PC);
    unsigned short int stack_pointer = get_wide(SP);
    unsigned short int temp = get_wide(tmp);
    



}