diff --git a/PDP10/ka10_dkb.c b/PDP10/ka10_dkb.c index a631d86..7e1b904 100644 --- a/PDP10/ka10_dkb.c +++ b/PDP10/ka10_dkb.c @@ -169,63 +169,63 @@ int dkb_keys (SIM_KEY_EVENT *kev, UNIT *uptr) return 0; switch (kev->key) { - case SIM_KEY_0: - if ((dkb_kmod & SHFT) == 0) - uptr->DATA = (META|CTRL|TOP|SHFT) | 051; /* ( */ + case SIM_KEY_0: /* ok */ + if ((dkb_kmod & (TOP|SHFT)) == TOP) + uptr->DATA = dkb_kmod | 051; /* ) */ else uptr->DATA = dkb_kmod | 060; return 1; case SIM_KEY_1: - if ((dkb_kmod & SHFT) == 0) - uptr->DATA = (META|CTRL|SHFT) | 054; /* ! */ + if ((dkb_kmod & (TOP|SHFT)) == TOP) + uptr->DATA = (dkb_kmod | 054) & ~TOP; /* ! */ else uptr->DATA = dkb_kmod | 061; return 1; case SIM_KEY_2: - if ((dkb_kmod & SHFT) == 0) - uptr->DATA = (META|CTRL|SHFT) | 052; /* Circle Star */ + if ((dkb_kmod & (TOP|SHFT)) == TOP) + uptr->DATA = (dkb_kmod | 052) & ~TOP; /* Circle Star */ else uptr->DATA = dkb_kmod | 062; return 1; case SIM_KEY_3: - if ((dkb_kmod & SHFT) == 0) - uptr->DATA = (META|CTRL|SHFT) | 022; /* # */ + if ((dkb_kmod & (TOP|SHFT)) == TOP) + uptr->DATA = (dkb_kmod | 022) & ~TOP; /* # */ else uptr->DATA = dkb_kmod | 063; return 1; case SIM_KEY_4: - if ((dkb_kmod & SHFT) == 0) - uptr->DATA = (META|CTRL|SHFT) | 066; /* $ */ + if ((dkb_kmod & (TOP|SHFT)) == TOP) + uptr->DATA = (dkb_kmod | 066) & ~TOP; /* $ */ else uptr->DATA = dkb_kmod | 064; return 1; case SIM_KEY_5: - if ((dkb_kmod & SHFT) == 0) - uptr->DATA = (META|CTRL|SHFT) | 067; /* % */ + if ((dkb_kmod & (TOP|SHFT)) == TOP) + uptr->DATA = (dkb_kmod | 067) & ~TOP; /* % */ else uptr->DATA = dkb_kmod | 065; return 1; case SIM_KEY_6: - if ((dkb_kmod & SHFT) == 0) - uptr->DATA = (META|CTRL|SHFT) | 021; /* ^ */ + if ((dkb_kmod & (TOP|SHFT)) == TOP) + uptr->DATA = (dkb_kmod | 073) & ~TOP; /* ^ */ else uptr->DATA = dkb_kmod | 066; return 1; case SIM_KEY_7: - if ((dkb_kmod & SHFT) == 0) - uptr->DATA = (META|CTRL|SHFT) | 024 ; /* & */ + if ((dkb_kmod & (TOP|SHFT)) == TOP) + uptr->DATA = (dkb_kmod | 024) & ~TOP; /* & */ else uptr->DATA = dkb_kmod | 067; return 1; - case SIM_KEY_8: - if ((dkb_kmod & SHFT) == 0) - uptr->DATA = (META|CTRL|TOP|SHFT) | 052; + case SIM_KEY_8: /* ok */ + if ((dkb_kmod & (TOP|SHFT)) == TOP) + uptr->DATA = (dkb_kmod | 052) & ~TOP; /* * */ else uptr->DATA = dkb_kmod | 070; return 1; - case SIM_KEY_9: - if ((dkb_kmod & SHFT) == 0) - uptr->DATA = (META|CTRL|TOP|SHFT) | 050; + case SIM_KEY_9: /* ok */ + if ((dkb_kmod & (TOP|SHFT)) == TOP) + uptr->DATA = dkb_kmod | 050; /* ( */ else uptr->DATA = dkb_kmod | 071; return 1; @@ -236,7 +236,10 @@ int dkb_keys (SIM_KEY_EVENT *kev, UNIT *uptr) uptr->DATA = dkb_kmod | 002; return 1; case SIM_KEY_C: - uptr->DATA = dkb_kmod | 003; + if (dkb_kmod == (META|TOP|SHFT)) /* Control C */ + uptr->DATA = dkb_kmod | 043; + else + uptr->DATA = dkb_kmod | 003; return 1; case SIM_KEY_D: uptr->DATA = dkb_kmod | 004; @@ -307,78 +310,73 @@ int dkb_keys (SIM_KEY_EVENT *kev, UNIT *uptr) case SIM_KEY_Z: uptr->DATA = dkb_kmod | 032; return 1; - case SIM_KEY_BACKQUOTE: - if ((dkb_kmod & SHFT) == 0) - uptr->DATA = (META|CTRL|TOP|SHFT) |043 ; + case SIM_KEY_BACKQUOTE: /* ` ~ */ + if ((dkb_kmod & (TOP|SHFT)) == TOP) + uptr->DATA = dkb_kmod | 043; else - uptr->DATA = (META|CTRL|SHFT) | 00; + uptr->DATA = dkb_kmod | 00; return 1; - case SIM_KEY_MINUS: - if ((dkb_kmod & SHFT) == 0) - uptr->DATA = (META|CTRL|SHFT) | 055 ; - else - uptr->DATA = (META|CTRL|TOP) | 055; + case SIM_KEY_MINUS: /* - not */ + uptr->DATA = dkb_kmod | 055; return 1; - case SIM_KEY_EQUALS: - if ((dkb_kmod & SHFT) == 0) - uptr->DATA = (META|CTRL|SHFT) | 053; + case SIM_KEY_EQUALS: /* = + */ + if ((dkb_kmod & (TOP|SHFT)) == TOP) + uptr->DATA = dkb_kmod | 053; else - uptr->DATA = (META|CTRL|SHFT) | 010; + uptr->DATA = (dkb_kmod | 010) & ~TOP; return 1; - case SIM_KEY_LEFT_BRACKET: - if ((dkb_kmod & SHFT) == 0) - uptr->DATA = (META|CTRL|SHFT) | 017; + case SIM_KEY_LEFT_BRACKET: /* [ { */ + if ((dkb_kmod & (TOP|SHFT)) == TOP) + uptr->DATA = (dkb_kmod | 017) & ~TOP; else - uptr->DATA = (META|CTRL|SHFT) | 050; + uptr->DATA = (dkb_kmod | 050) & ~TOP;; return 1; - case SIM_KEY_RIGHT_BRACKET: - if ((dkb_kmod & SHFT) == 0) - uptr->DATA = (META|CTRL|SHFT)| 020; + case SIM_KEY_RIGHT_BRACKET: /* ] } */ + if ((dkb_kmod & (TOP|SHFT)) == TOP) + uptr->DATA = (dkb_kmod | 020) & ~TOP; else - uptr->DATA = (META|CTRL|SHFT) | 051; + uptr->DATA = (dkb_kmod | 051) & ~TOP;; return 1; - case SIM_KEY_SEMICOLON: - if ((dkb_kmod & SHFT) == 0) - uptr->DATA = (META|CTRL|TOP|SHFT) | 072; + case SIM_KEY_SEMICOLON: /* ; : */ + if ((dkb_kmod & (TOP|SHFT)) == TOP) + uptr->DATA = dkb_kmod | 072 | TOP; else - uptr->DATA = (META|CTRL|TOP|SHFT) | 073; + uptr->DATA = dkb_kmod | 073 | TOP; return 1; - case SIM_KEY_SINGLE_QUOTE: - if ((dkb_kmod & SHFT) == 0) - uptr->DATA = (META|CTRL|SHFT) | 031; + case SIM_KEY_SINGLE_QUOTE: /* ok */ /* ' " */ + if ((dkb_kmod & (TOP|SHFT)) == TOP) + uptr->DATA = (dkb_kmod | 031) & ~TOP; else - uptr->DATA = (META|CTRL|SHFT) | 011; + uptr->DATA = (dkb_kmod | 011) & ~TOP; return 1; - case SIM_KEY_BACKSLASH: - if ((dkb_kmod & TOP) == 0) - uptr->DATA = (META|CTRL|SHFT) | 034; - else if ((dkb_kmod & SHFT) == 0) - uptr->DATA = (META|CTRL|SHFT) | 056; + case SIM_KEY_BACKSLASH: /* Ok */ + if ((dkb_kmod & (TOP|SHFT)) == TOP) /* \ | */ + uptr->DATA = (dkb_kmod | 053) & ~TOP; + else if ((dkb_kmod & (TOP|SHFT)) == SHFT) + uptr->DATA = (dkb_kmod | 034) & ~TOP; else - uptr->DATA = (META|CTRL|TOP|SHFT) | 034; + uptr->DATA = dkb_kmod | 034 | TOP; return 1; case SIM_KEY_LEFT_BACKSLASH: - if ((dkb_kmod & TOP) == 0) - uptr->DATA = (META|CTRL|SHFT) | 034; - else if ((dkb_kmod & SHFT) == 0) - uptr->DATA = (META|CTRL|TOP|SHFT) | 034; - else - uptr->DATA = (META|CTRL|SHFT) | 011; + uptr->DATA = dkb_kmod | 034; return 1; - case SIM_KEY_COMMA: - if ((dkb_kmod & SHFT) == 0) - uptr->DATA = (META|CTRL|TOP|SHFT) | 034; + case SIM_KEY_COMMA: /* ok */ + if ((dkb_kmod & (TOP|SHFT)) == TOP) /* , < */ + uptr->DATA = (dkb_kmod | 04) & ~TOP; else - uptr->DATA = (META|CTRL|TOP|SHFT) | 054; + uptr->DATA = dkb_kmod | 054 | TOP; return 1; - case SIM_KEY_PERIOD: - if ((dkb_kmod & SHFT) == 0) - uptr->DATA = (META|CTRL|TOP|SHFT) | 034; + case SIM_KEY_PERIOD: /* Ok */ + if ((dkb_kmod & (TOP|SHFT)) == TOP) /* . > */ + uptr->DATA = (dkb_kmod | 06) & ~TOP; else - uptr->DATA = (META|CTRL|TOP|SHFT) | 056; + uptr->DATA = dkb_kmod | 056; return 1; - case SIM_KEY_SLASH: - uptr->DATA = dkb_kmod | 057; + case SIM_KEY_SLASH: /* Ok */ + if ((dkb_kmod & (TOP|SHFT)) == TOP) /* / ? */ + uptr->DATA = (dkb_kmod | 056) & ~TOP; + else + uptr->DATA = dkb_kmod | 057; return 1; case SIM_KEY_ESC: uptr->DATA = dkb_kmod | 042; diff --git a/PDP10/ka10_iii.c b/PDP10/ka10_iii.c index 6611b92..f6c6675 100644 --- a/PDP10/ka10_iii.c +++ b/PDP10/ka10_iii.c @@ -236,44 +236,50 @@ uint8 map[128][18] = { /* [ */ { M(3,5), V(0,5), V(0,15), V(3,15) }, /* \ */ { M(0,12), V(6,6) }, /* ] */ { M(0,5), V(3,5), V(3,15), V(0,15) }, - { M(0,11), V(3,14), V(6,11), M(3,14), V(3,6) }, - { M(3,7), V(0,10), V(3,13), M(0,10), V(6,10) }, - { M(2,14), V(4,12) }, - { M(0,9), V(1,10), V(3,10), V(4,9), V(4,6), M(4,8), V(3,9), V(1,9), V(0,8), V(0,7), - V(1,6), V(3,6), V(4,7) }, - { V(0,13), M(0,9), V(1,10), V(3,10), V(4,9), V(4,7), V(3,6), V(1,6), V(0,7) }, - { M(4,9), V(3,10), V(1,10), V(0,9), V(0,7), V(1,6), V(3,6), V(4,7) }, - { M(0,7), V(0,9), V(1,10), V(3,10), V(4,9), V(4,7), V(3,6), V(1,6), V(0,7), M(4,6), - V(4,13) }, - { M(4,7), V(3,6), V(1,6), V(0,7), V(0,9), V(1,10), V(3,10), V(4,9), V(4,8), V(0,8) }, - { M(2,6), V(2,12), V(3,13), V(4,13), V(5,12), M(0,11), V(4,11) }, - { M(4,9), V(3,10), V(1,10), V(0,9), V(0,7), V(1,6), V(3,6), V(4,7), M(4,10), V(4,5), - V(3,4), V(1,4), V(0,5) }, - { V(0,13), M(0,9), V(1,10), V(3,10), V(4,9), V(4,6) }, - { M(3,12), V(3,11), M(3,10), V(3,7), V(4,6), V(5,6) }, - { M(3,12), V(3,11), M(3,10), V(3,5), V(2,4), V(1,3) }, - { V(0,13), M(0,8), V(2,10), M(0,8), V(2,6) }, - { M(2,6), V(2,13) }, - { V(0,10), M(0,9), V(1,10), V(2,10), V(3,9), V(3,6), M(3,9), V(4,10), V(5,10), V(6,9), - V(6,6) }, - { V(0,10), M(0,9), V(1,10), V(2,10), V(3,9), V(3,6) }, - { M(0,7), V(0,9), V(1,10), V(3,10), V(4,9), V(4,7), V(3,6), V(1,6), V(0,7) }, - { M(0,4), V(0,10), M(0,9), V(1,10), V(3,10), V(4,9), V(4,7), V(3,6), V(1,6), V(0,7) }, - { M(4,9), V(3,10), V(1,10), V(0,9), V(0,7), V(1,6), V(3,6), V(4,7), M(4,10), V(4,4) }, - { V(0,10), M(0,9), V(1,10), V(3,10), V(4,9) }, - { M(0,7), V(1,6), V(3,6), V(4,7), V(3,8), V(1,8), V(0,9), V(1,10), V(3,10), V(4,9) }, - { M(2,13), V(2,7), V(3,6), V(4,6), V(5,7), M(1,11), V(3,11) }, - { M(0,10), V(0,7), V(1,6), V(3,6), V(4,7), V(4,10), V(4,6) }, - { M(0,9), V(3,6), V(6,9) }, - { M(0,10), V(0,6), V(2,8), V(4,6), V(4,10) }, - { V(4,10), M(0,10), V(4,6) }, - { M(0,9), V(3,6), M(6,9), V(1,4), V(0,4) }, - { M(0,10), V(4,10), V(0,6), V(4,6) }, - { M(3,15), V(2,14), V(2,12), V(0,10), V(2,8), V(2,6), V(3,5) }, - { M(2,4), V(2,14) }, - { M(3,6), V(0,9), V(3,12), V(6,9), V(3,6) }, - { M(0,15), V(1,14), V(1,12), V(3,10), V(1,8), V(1,6), V(0,5) }, - { M(0,12), V(6,6) }, + /* up arrow */ { M(0,11), V(3,14), V(6,11), M(3,14), V(3,6) }, + /* left arrow*/{ M(3,7), V(0,10), V(3,13), M(0,10), V(6,10) }, + /* ` */ { M(2,14), V(4,12) }, + /* a */ { M(0,9), V(1,10), V(3,10), V(4,9), V(4,6), M(4,8), V(3,9), V(1,9), + V(0,8), V(0,7), V(1,6), V(3,6), V(4,7) }, + /* b */ { V(0,13), M(0,9), V(1,10), V(3,10), V(4,9), V(4,7), V(3,6), V(1,6), + V(0,7) }, + /* c */ { M(4,9), V(3,10), V(1,10), V(0,9), V(0,7), V(1,6), V(3,6), V(4,7) }, + /* d */ { M(0,7), V(0,9), V(1,10), V(3,10), V(4,9), V(4,7), V(3,6), V(1,6), + V(0,7), M(4,6), V(4,13) }, + /* e */ { M(4,7), V(3,6), V(1,6), V(0,7), V(0,9), V(1,10), V(3,10), V(4,9), + V(4,8), V(0,8) }, + /* f */ { M(2,6), V(2,12), V(3,13), V(4,13), V(5,12), M(0,11), V(4,11) }, + /* g */ { M(4,9), V(3,10), V(1,10), V(0,9), V(0,7), V(1,6), V(3,6), V(4,7), + M(4,10), V(4,5), V(3,4), V(1,4), V(0,5) }, + /* h */ { V(0,13), M(0,9), V(1,10), V(3,10), V(4,9), V(4,6) }, + /* i */ { M(3,12), V(3,11), M(3,10), V(3,7), V(4,6), V(5,6) }, + /* k */ { M(3,12), V(3,11), M(3,10), V(3,5), V(2,4), V(1,3) }, + /* j */ { V(0,13), M(0,8), V(2,10), M(0,8), V(2,6) }, + /* l */ { M(2,6), V(2,13) }, + /* m */ { V(0,10), M(0,9), V(1,10), V(2,10), V(3,9), V(3,6), M(3,9), V(4,10), + V(5,10), V(6,9), V(6,6) }, + /* n */ { V(0,10), M(0,9), V(1,10), V(2,10), V(3,9), V(3,6) }, + /* o */ { M(0,7), V(0,9), V(1,10), V(3,10), V(4,9), V(4,7), V(3,6), V(1,6), + V(0,7) }, + /* p */ { M(0,4), V(0,10), M(0,9), V(1,10), V(3,10), V(4,9), V(4,7), V(3,6), + V(1,6), V(0,7) }, + /* q */ { M(4,9), V(3,10), V(1,10), V(0,9), V(0,7), V(1,6), V(3,6), V(4,7), + M(4,10), V(4,4) }, + /* r */ { V(0,10), M(0,9), V(1,10), V(3,10), V(4,9) }, + /* s */ { M(0,7), V(1,6), V(3,6), V(4,7), V(3,8), V(1,8), V(0,9), V(1,10), + V(3,10), V(4,9) }, + /* t */ { M(2,13), V(2,7), V(3,6), V(4,6), V(5,7), M(1,11), V(3,11) }, + /* u */ { M(0,10), V(0,7), V(1,6), V(3,6), V(4,7), V(4,10), V(4,6) }, + /* v */ { M(0,9), V(3,6), V(6,9) }, + /* w */ { M(0,10), V(0,6), V(2,8), V(4,6), V(4,10) }, + /* x */ { V(4,10), M(0,10), V(4,6) }, + /* y */ { M(0,9), V(3,6), M(6,9), V(1,4), V(0,4) }, + /* z */ { M(0,10), V(4,10), V(0,6), V(4,6) }, + /* { */ { M(3,15), V(2,14), V(2,12), V(0,10), V(2,8), V(2,6), V(3,5) }, + /* | */ { M(2,4), V(2,14) }, + /* diamon */ { M(3,6), V(0,9), V(3,12), V(6,9), V(3,6) }, + /* } */ { M(0,15), V(1,14), V(1,12), V(3,10), V(1,8), V(1,6), V(0,5) }, + /* \ */ { M(0,12), V(6,6) }, }; float scale[] = { 1.0F, @@ -341,7 +347,8 @@ t_stat iii_devio(uint32 dev, uint64 *data) { *data |= EDGE_FLG; if (uptr->STATUS & LIT_FBIT) *data |= LIGHT_FLG; - sim_debug(DEBUG_CONI, &iii_dev, "III %03o CONI %06o %06o\n", dev, (uint32)*data, PC); + sim_debug(DEBUG_CONI, &iii_dev, "III %03o CONI %06o %06o\n", dev, (uint32)*data, + PC); break; case CONO: clr_interrupt(III_DEVNUM); @@ -362,7 +369,8 @@ t_stat iii_devio(uint32 dev, uint64 *data) { set_interrupt(III_DEVNUM, uptr->PIA); if (uptr->STATUS & HLT_MSK) set_interrupt(III_DEVNUM, uptr->PIA); - sim_debug(DEBUG_CONO, &iii_dev, "III %03o CONO %06o %06o\n", dev, (uint32)*data, PC); + sim_debug(DEBUG_CONO, &iii_dev, "III %03o CONO %06o %06o\n", dev, + (uint32)*data, PC); break; case DATAI: sim_debug(DEBUG_DATAIO, &iii_dev, "III %03o DATAI %06o\n", dev, (uint32)*data); @@ -389,7 +397,8 @@ iii_svc (UNIT *uptr) int i, j, ch; float ch_sz; - iii_cycle(10,0); + iii_cycle(10, 0); + /* Extract X,Y,Bright and Size */ sz = (uptr->POS & CSIZE) >> CSIZE_V; br = (uptr->POS & CBRT) >> CBRT_V; @@ -399,7 +408,8 @@ iii_svc (UNIT *uptr) ny = oy = (oy ^ 02000) - 02000; ch_sz = scale[sz]; - sim_debug(DEBUG_DETAIL, &iii_dev, "III: pos %d %d %d %d %o\n", ox, oy, br, sz, uptr->STATUS ); + sim_debug(DEBUG_DETAIL, &iii_dev, "III: pos %d %d %d %d %o\n", ox, oy, br, sz, + uptr->STATUS ); switch(iii_instr & 017) { case 000: /* JMP and HLT */ if (iii_instr & 020) { @@ -428,8 +438,8 @@ iii_svc (UNIT *uptr) cy = (int)(6.0 * ch_sz); lx = ox; ly = oy + cy; - sim_debug(DEBUG_DETAIL, &iii_dev, "III: ch %d %d %o '%c' %o %o\n", lx, ly, ch, - (ch < ' ')? '.' : ch, sz, br); + sim_debug(DEBUG_DETAIL, &iii_dev, "III: ch %d %d %o '%c' %o %o\n", + lx, ly, ch, (ch < ' ')? '.' : ch, sz, br); if (ch == '\t' || ch == 0) continue; if (ch == '\r') { @@ -450,7 +460,8 @@ iii_svc (UNIT *uptr) cy = (int)((float)(v & 017) * ch_sz); nx = ox + cx; ny = oy + cy; - sim_debug(DEBUG_DATA, &iii_dev, "III: map %d %d %d %d %02x\n", lx, ly, nx, ny, v); + sim_debug(DEBUG_DATA, &iii_dev, "III: map %d %d %d %d %02x\n", + lx, ly, nx, ny, v); if (v & 0200) draw_line(lx, ly, nx, ny, br, uptr); lx = nx; @@ -473,7 +484,8 @@ iii_svc (UNIT *uptr) nx = (nx ^ 040) - 040; ny = (ny ^ 040) - 040; /* Compute relative position. */ - sim_debug(DEBUG_DETAIL, &iii_dev, "III: short %d %d %o %d\n", nx, ny, sz, br); + sim_debug(DEBUG_DETAIL, &iii_dev, "III: short %d %d %o %d\n", + nx, ny, sz, br); nx += ox; ny += oy; if (nx < -512 || nx > 512 || ny < -512 || ny > 512) @@ -494,13 +506,15 @@ iii_svc (UNIT *uptr) /* Sign extend */ nx = (nx ^ 040) - 040; ny = (ny ^ 040) - 040; - sim_debug(DEBUG_DETAIL, &iii_dev, "III: short2 %d %d %o %d\n", nx, ny, sz, br); + sim_debug(DEBUG_DETAIL, &iii_dev, "III: short2 %d %d %o %d\n", + nx, ny, sz, br); /* Compute relative position. */ nx += ox; ny += oy; if (nx < -512 || nx > 512 || ny < -512 || ny > 512) uptr->STATUS |= EDG_FBIT; - if ((iii_instr & 040) == 0 && (iii_sel & 04000) != 0) { /* Check if visible */ + /* Check if visible */ + if ((iii_instr & 040) == 0 && (iii_sel & 04000) != 0) { if ((iii_instr & 020) == 0) { /* Draw a line */ draw_line(ox, oy, nx, ny, br, uptr); } else { @@ -537,14 +551,16 @@ iii_svc (UNIT *uptr) ny = (iii_instr >> 14) & 03777; nx = (nx ^ 02000) - 02000; ny = (ny ^ 02000) - 02000; - sim_debug(DEBUG_DETAIL, &iii_dev, "III: long %d %d %o %o\n", nx, ny, sz, br); + sim_debug(DEBUG_DETAIL, &iii_dev, "III: long %d %d %o %o\n", + nx, ny, sz, br); if ((iii_instr & 0100) == 0) { /* Relative mode */ nx += ox; ny += oy; if (nx < -512 || nx > 512 || ny < -512 || ny > 512) uptr->STATUS |= EDG_FBIT; } - if ((iii_instr & 040) == 0 && (iii_sel & 04000) != 0) { /* Check if visible */ + /* Check if visible */ + if ((iii_instr & 040) == 0 && (iii_sel & 04000) != 0) { if ((iii_instr & 020) == 0) /* Draw a line */ draw_line(ox, oy, nx, ny, br, uptr); else @@ -596,7 +612,8 @@ iii_svc (UNIT *uptr) skip_up: if (uptr->STATUS & RUN_FLG) { iii_instr = M[uptr->MAR]; - sim_debug(DEBUG_DETAIL, &iii_dev, "III: fetch %06o %012llo\n", uptr->MAR, iii_instr); + sim_debug(DEBUG_DETAIL, &iii_dev, "III: fetch %06o %012llo\n", + uptr->MAR, iii_instr); uptr->MAR++; uptr->MAR &= RMASK; sim_activate(uptr, 50);