comparison emu/main.c @ 29:83e80c2c489c

seperated working emu code from broken emu code.
wrote dbg interface

     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];
+BYTE free_run;  /* free run if not 0 */
+WIDE ac;        /* address counter */
+BYTE args[4];   /* dbg args */
 
 /* don't need the file on the MCS-51 version */
 FILE *fp;
 void
 snd(BYTE c) {

 step(void) {
     IR = fetch();
     (*iset[IR])();
 }
 
-void
-boot(void) {
-    run = 0;
-}
-
-
 void dbgi() {
-    if (run == 0) {
+    if (free_run == 0) {
         switch (rcv()) {
 
             /* step */
             case 0x00:
                 step();
                 break;
 
             /* run */
             case 0x01:
-                run = 1;
+                args[0] = rcv(); /* length high */
+                args[1] = rcv(); /* length low */
+                tmpw = get_wide(PC);
+                for (ac = tmpw ; ac < tmpw + MWIDE(args[0], args[1]) ; ac++) {
+                    step();
+                }
                 break;
 
             /* set reg */
             case 0x02:
                 args[0] = rcv(); /* reg */

             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++) {
+                tmpw = MWIDE(args[0], args[1]);         
+                for (ac = tmpw; ac < tmpw + MWIDE(args[2], args[3]); ac++) { 
                     if (ac >= 0xFFFF) {
                         break;
                     }
                     mem[ac] = rcv();
                 }

             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++) {
+                tmpw = MWIDE(args[0], args[1]);         
+                for (ac = tmpw; ac < tmpw + MWIDE(args[2], args[3]); ac++) { 
                     if (ac >= 0xFFFF) {
                         break;
                     }
                     snd(mem[ac]);
                 }
                 break;
 
             /* get A */
             case 0x09:
                 snd(A);
+                break;
             
             /* get flags */
-            case 0x0F:
+            case 0x0A:
                 snd(flags);
+                break;
             
             /* get instruction register */
-            case 0x10:
+            case 0x0B:
                 snd(IR);
+                break;
        }
     }
 }
 
 void 
 main(void) {
-    
-    A = 0xAA;
-    IR = 0x12;
-    
-    unsigned char i;
-    for (i = 0 ; i < 8 ; i++) {
-        set_flag(i, 1);
+    /* dont go into free run on restart */
+    free_run = 0;
+    for (;;) {
+        dbgi();
     }
-    
-    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);
-    
-
-
-
 }