[simh.git] / I1401 / i1401_dp.c

/* i1401_dp.c: IBM 1311 disk simulator\r
\r
   Copyright (c) 2002-2005, Robert M. Supnik\r
\r
   Permission is hereby granted, free of charge, to any person obtaining a\r
   copy of this software and associated documentation files (the "Software"),\r
   to deal in the Software without restriction, including without limitation\r
   the rights to use, copy, modify, merge, publish, distribute, sublicense,\r
   and/or sell copies of the Software, and to permit persons to whom the\r
   Software is furnished to do so, subject to the following conditions:\r
\r
   The above copyright notice and this permission notice shall be included in\r
   all copies or substantial portions of the Software.\r
\r
   THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR\r
   IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,\r
   FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.  IN NO EVENT SHALL\r
   ROBERT M SUPNIK BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER\r
   IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN\r
   CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.\r
\r
   Except as contained in this notice, the name of Robert M Supnik shall not be\r
   used in advertising or otherwise to promote the sale, use or other dealings\r
   in this Software without prior written authorization from Robert M Supnik.\r
\r
   dp           1311 disk pack\r
\r
   18-Oct-02    RMS     Fixed bug in address comparison logic\r
   19-Sep-02    RMS     Minor edit for consistency with 1620\r
   15-Jun-02    RMS     Reworked address comparison logic\r
\r
   The 1311 disk pack has 100 cylinders, 10 tracks/cylinder, 20 sectors/track.\r
   Each sector contains 106 characters of information:\r
\r
   6c           sector address\r
   100c         sector data\r
\r
   By default, a sector's address field will be '000000', which is illegal.\r
   This is interpreted to mean the implied sector number that would be in\r
   place if the disk pack had been formatted with sequential sector numbers.\r
\r
   The sector data can be 100 characters without word marks, or 90 characters\r
   with word marks.  Load mode transfers 90 characters per sector with\r
   word marks, move mode transfers 100 characters per sector without word\r
   marks.  No attempt is made to catch incompatible writes (eg, load mode\r
   write followed by move mode read).\r
*/\r
\r
#include "i1401_defs.h"\r
\r
#define DP_NUMDR        5                               /* #drives */\r
#define UNIT_V_WAE      (UNIT_V_UF + 0)                 /* write addr enab */\r
#define UNIT_WAE        (1 << UNIT_V_WAE)\r
\r
/* Disk format */\r
\r
#define DP_ADDR         6                               /* address */\r
#define DP_DATA         100                             /* data */\r
#define DP_NUMCH        (DP_ADDR + DP_DATA)\r
\r
#define DP_NUMSC        20                              /* #sectors */\r
#define DP_NUMSF        10                              /* #surfaces */\r
#define DP_NUMCY        100                             /* #cylinders */\r
#define DP_TOTSC        (DP_NUMCY*DP_NUMSF*DP_NUMSC)\r
#define DP_SIZE         (DP_TOTSC*DP_NUMCH)\r
\r
/* Disk control field */\r
\r
#define DCF_DRV         0                               /* drive select */\r
#define DCF_SEC         1                               /* sector addr */\r
#define DCF_SEC_LEN     6\r
#define DCF_CNT         (DCF_SEC + DCF_SEC_LEN)         /* sector count */\r
#define DCF_CNT_LEN     3\r
#define DCF_LEN         (DCF_CNT + DCF_CNT_LEN)\r
#define DCF_DIR         1                               /* direct seek */\r
#define DCF_DIR_LEN     4\r
#define DCF_DIR_FL      (DCF_DIR + DCF_DIR_LEN)         /* direct seek flag */\r
#define DCF_DSEEK       0xB\r
\r
/* Functions */\r
\r
#define FNC_SEEK        0                               /* seek */\r
#define FNC_CHECK       3                               /* check */\r
#define FNC_READ        1                               /* read sectors */\r
#define FNC_RSCO        5                               /* read sec cnt overlay */\r
#define FNC_RTRK        6                               /* read track */\r
#define FNC_WOFF        10                              /* offset for write */\r
#define FNC_WRITE       11                              /* write sectors */\r
#define FNC_WRSCO       15                              /* write sec cnt overlay */\r
#define FNC_WRTRK       16                              /* write track */\r
\r
#define CYL             u3                              /* current cylinder */\r
\r
extern uint8 M[];                                       /* memory */\r
extern int32 ind[64];\r
extern int32 AS, BS, iochk;\r
extern int32 bcd_to_bin[16];\r
extern int32 bin_to_bcd[16];\r
extern UNIT cpu_unit;\r
\r
int32 dp_lastf = 0;                                     /* prior function */\r
int32 dp_time = 0;                                      /* seek time */\r
\r
t_stat dp_reset (DEVICE *dptr);\r
t_stat dp_rdadr (UNIT *uptr, int32 sec, int32 flg, int32 wchk);\r
t_stat dp_rdsec (UNIT *uptr, int32 sec, int32 flg, int32 wchk);\r
t_stat dp_wradr (UNIT *uptr, int32 sec, int32 flg);\r
t_stat dp_wrsec (UNIT *uptr, int32 sec, int32 flg);\r
int32 dp_fndsec (UNIT *uptr, int32 sec, int32 dcf);\r
t_stat dp_nexsec (UNIT *uptr, int32 psec, int32 dcf);\r
t_bool dp_zeroad (uint8 *ap);\r
t_bool dp_cmp_ad (uint8 *ap, int32 dcf);\r
int32 dp_trkop (int32 drv, int32 sec);\r
int32 dp_cvt_bcd (int32 ad, int32 len);\r
void dp_cvt_bin (int32 ad, int32 len, int32 val, int32 flg);\r
int32 dp_get_cnt (int32 dcf);\r
void dp_fill (UNIT *uptr, uint32 da, int32 cnt);\r
\r
/* DP data structures\r
\r
   dp_dev       DSK device descriptor\r
   dp_unit      DSK unit list\r
   dp_reg       DSK register list\r
   dp_mod       DSK modifier list\r
*/\r
\r
UNIT dp_unit[] = {\r
    { UDATA (NULL, UNIT_FIX + UNIT_DISABLE + UNIT_ATTABLE +\r
             UNIT_BUFABLE + UNIT_MUSTBUF + UNIT_BCD, DP_SIZE) },\r
    { UDATA (NULL, UNIT_FIX + UNIT_DISABLE + UNIT_ATTABLE +\r
             UNIT_BUFABLE + UNIT_MUSTBUF + UNIT_BCD, DP_SIZE) },\r
    { UDATA (NULL, UNIT_FIX + UNIT_DISABLE + UNIT_ATTABLE +\r
             UNIT_BUFABLE + UNIT_MUSTBUF + UNIT_BCD, DP_SIZE) },\r
    { UDATA (NULL, UNIT_FIX + UNIT_DISABLE + UNIT_ATTABLE +\r
             UNIT_BUFABLE + UNIT_MUSTBUF + UNIT_BCD, DP_SIZE) },\r
    { UDATA (NULL, UNIT_FIX + UNIT_DISABLE + UNIT_ATTABLE +\r
             UNIT_BUFABLE + UNIT_MUSTBUF + UNIT_BCD, DP_SIZE) }\r
    };\r
\r
REG dp_reg[] = {\r
    { FLDATA (ACC, ind[IN_ACC], 0) },\r
    { FLDATA (PWC, ind[IN_DPW], 0) },\r
    { FLDATA (WLR, ind[IN_LNG], 0) },\r
    { FLDATA (UNA, ind[IN_UNA], 0) },\r
    { FLDATA (ERR, ind[IN_DSK], 0) },\r
    { FLDATA (BSY, ind[IN_DBY], 0) },\r
    { DRDATA (LASTF, dp_lastf, 3) },\r
    { DRDATA (TIME, dp_time, 24), PV_LEFT },\r
    { URDATA (CYL, dp_unit[0].CYL, 10, 8, 0,\r
              DP_NUMDR, PV_LEFT + REG_RO) },\r
    { NULL }\r
    };\r
\r
MTAB dp_mod[] = {\r
    { UNIT_WAE, 0, "write address disabled", "ADDROFF", NULL },\r
    { UNIT_WAE, UNIT_WAE, "write address enabled", "ADDRON", NULL }, \r
    { 0 }\r
    };\r
\r
DEVICE dp_dev = {\r
    "DP", dp_unit, dp_reg, dp_mod,\r
    DP_NUMDR, 10, 21, 1, 8, 7,\r
    NULL, NULL, &dp_reset,\r
    NULL, NULL, NULL\r
    };\r
\r
/* Disk IO routine\r
\r
   Inputs:\r
        fnc     =       function character\r
        flg     =       load vs move mode\r
        mod     =       modifier character\r
   Outputs:\r
        status  =       status\r
*/\r
\r
t_stat dp_io (int32 fnc, int32 flg, int32 mod)\r
{\r
int32 dcf, drv, sec, psec, cnt, qwc, qzr, diff;\r
UNIT *uptr;\r
t_stat r;\r
\r
dcf = BS;                                               /* save DCF addr */\r
qwc = 0;                                                /* not wcheck */\r
ind[IN_DPW] = ind[IN_LNG] = ind[IN_UNA] = 0;            /* clr indicators */\r
ind[IN_DSK] = ind[IN_ACC] = ind[IN_DBY] = 0;\r
if (sim_is_active (&dp_unit[0])) {                      /* ctlr busy? */\r
    ind[IN_DBY] = ind[IN_DSK] = 1;                      /* set indicators */\r
    return SCPE_OK;                                     /* done */\r
    }\r
\r
AS = dcf + 6;                                           /* AS for most ops */\r
BS = dcf + DCF_CNT - 1;                                 /* minimum DCF */\r
if (ADDR_ERR (BS)) return STOP_WRAP;                    /* DCF in memory? */\r
if (M[dcf] & BBIT) drv = M[dcf + DCF_SEC + 1] & 0xE;    /* impl sel? cyl 8-4-2 */\r
else drv = M[dcf] & DIGIT;                              /* get drive sel */\r
if ((drv == 0) || (drv & 1) || (drv > BCD_ZERO))        /* bad drive #? */\r
    return STOP_INVDSK;\r
drv = bcd_to_bin[drv] >> 1;                             /* convert */\r
uptr = dp_dev.units + drv;                              /* get unit ptr */\r
if ((uptr->flags & UNIT_ATT) == 0) {                    /* attached? */\r
    ind[IN_DSK] = ind[IN_ACC] = 1;                      /* no, error */\r
    CRETIOE (iochk, SCPE_UNATT);\r
    }\r
\r
if ((fnc == FNC_SEEK) &&                                /* seek and */\r
    (M[dcf + DCF_DIR_FL] & DCF_DSEEK) == DCF_DSEEK) {   /* direct flag? */\r
    diff = dp_cvt_bcd (dcf + DCF_DIR, DCF_DIR_LEN);     /* cvt diff */\r
    if (diff < 0) return STOP_INVDSC;                   /* error? */\r
    diff = diff >> 1;                                   /* diff is *2 */\r
    if ((M[dcf + DCF_DIR + DCF_DIR_LEN - 1] & ZONE) == BBIT)\r
        diff = -diff;                                   /* get sign */\r
    uptr->CYL = uptr->CYL + diff;                       /* bound seek */\r
    if (uptr->CYL < 0) uptr->CYL = 0;\r
    else if (uptr->CYL >= DP_NUMCY) {                   /* too big? */\r
        uptr->CYL = 0;                                  /* system hangs */\r
        return STOP_INVDCY;\r
        }\r
    sim_activate (&dp_unit[0], dp_time);                /* set ctlr busy */\r
    return SCPE_OK;                                     /* done! */\r
    }\r
\r
sec = dp_cvt_bcd (dcf + DCF_SEC, DCF_SEC_LEN);          /* cvt sector */\r
if ((sec < 0) || (sec >= (DP_NUMDR * DP_TOTSC)))        /* bad sector? */\r
    return STOP_INVDSC;\r
if (fnc == FNC_SEEK) {                                  /* seek? */\r
    uptr->CYL = (sec / (DP_NUMSF * DP_NUMSC)) %         /* set cyl # */\r
        DP_NUMCY;\r
    sim_activate (&dp_unit[0], dp_time);                /* set ctlr busy */\r
    return SCPE_OK;                                     /* done! */\r
    }\r
\r
BS = dcf + DCF_LEN;                                     /* full DCF */\r
if (ADDR_ERR (BS)) return STOP_WRAP;                    /* DCF in memory? */\r
cnt = dp_get_cnt (dcf);                                 /* get count */\r
if (cnt < 0) return STOP_INVDCN;                        /* bad count? */\r
\r
if (fnc >= FNC_WOFF) return STOP_INVDFN;                /* invalid func */\r
if (mod == BCD_W) {                                     /* write? */\r
    if (fnc == FNC_CHECK) {                             /* write check? */\r
        qwc = 1;                                        /* special read */\r
        fnc = dp_lastf;                                 /* use last func */\r
        }\r
    else {\r
        dp_lastf = fnc;                                 /* save func */         \r
        fnc = fnc + FNC_WOFF;                           /* change to write */\r
        }\r
    }\r
else if (mod == BCD_R) dp_lastf = fnc;                  /* read? save func */\r
else return STOP_INVM;                                  /* other? error */\r
\r
switch (fnc) {                                          /* case on function */\r
\r
    case FNC_RSCO:                                      /* read sec cnt ov */\r
        BS = dcf + DCF_CNT;                             /* set count back */\r
                                                        /* fall thru */\r
    case FNC_READ:                                      /* read */\r
        psec = dp_fndsec (uptr, sec, dcf);              /* find sector */\r
        if (psec < 0) CRETIOE (iochk, STOP_INVDAD);     /* addr cmp error? */\r
        for (;;) {                                      /* loop */\r
            qzr = (--cnt == 0);                         /* set zero latch */\r
            dp_cvt_bin (dcf + DCF_CNT, DCF_CNT_LEN, cnt, MD_WM); /* redo count */\r
            if (r = dp_rdsec (uptr, psec, flg, qwc))    /* read sector */\r
                break;\r
            cnt = dp_get_cnt (dcf);                     /* get new count */\r
            if (cnt < 0) return STOP_INVDCN;            /* bad count? */\r
            if (qzr) break;                             /* zero latch? done */\r
            sec++; psec++;                              /* next sector */\r
            dp_cvt_bin (dcf + DCF_SEC, DCF_SEC_LEN, sec, flg); /* rewr sec */\r
            if (r = dp_nexsec (uptr, psec, dcf)) break;   /* find next */\r
            }\r
        break;                                          /* done, clean up */\r
\r
    case FNC_RTRK:                                      /* read track */\r
        AS = dcf + 9;                                   /* special AS */\r
        psec = dp_trkop (drv, sec);                     /* start of track */\r
        for (;;) {                                      /* loop */\r
            qzr = (--cnt == 0);                         /* set zero latch */\r
            dp_cvt_bin (dcf + DCF_CNT, DCF_CNT_LEN, cnt, MD_WM); /* redo count */\r
            if (r = dp_rdadr (uptr, psec, flg, qwc))    /* read addr */\r
                break;                                  /* error? */\r
            if (r = dp_rdsec (uptr, psec, flg, qwc))    /* read data */\r
                break;                                  /* error? */\r
            cnt = dp_get_cnt (dcf);                     /* get new count */\r
            if (cnt < 0) return STOP_INVDCN;            /* bad count? */\r
            if (qzr) break;                             /* zero latch? done */\r
            psec = dp_trkop (drv, sec) + ((psec + 1) % DP_NUMSC);\r
            }\r
        break;                                          /* done, clean up */        \r
\r
    case FNC_WRSCO:                                     /* write sec cnt ov */\r
        BS = dcf + DCF_CNT;                             /* set count back */\r
                                                        /* fall through */\r
    case FNC_WRITE:                                     /* read */\r
        psec = dp_fndsec (uptr, sec, dcf);              /* find sector */\r
        if (psec < 0) CRETIOE (iochk, STOP_INVDAD);     /* addr cmp error? */\r
        for (;;) {                                      /* loop */\r
            qzr = (--cnt == 0);                         /* set zero latch */\r
            dp_cvt_bin (dcf + DCF_CNT, DCF_CNT_LEN, cnt, MD_WM); /* rewr cnt */\r
            if (r = dp_wrsec (uptr, psec, flg)) break;  /* write data */\r
            if (qzr) break;                             /* zero latch? done */\r
            sec++; psec++;                              /* next sector */\r
            dp_cvt_bin (dcf + DCF_SEC, DCF_SEC_LEN, sec, flg); /* rewr sec */\r
            if (r = dp_nexsec (uptr, psec, dcf)) break;   /* find next */\r
            }\r
        break;                                          /* done, clean up */\r
\r
    case FNC_WRTRK:                                     /* write track */\r
        if ((uptr->flags & UNIT_WAE) == 0)              /* enabled? */\r
                return STOP_WRADIS;\r
        AS = dcf + 9;                                   /* special AS */\r
        psec = dp_trkop (drv, sec);                     /* start of track */\r
        for (;;) {                                      /* loop */\r
            qzr = (--cnt == 0);                         /* set zero latch */\r
            dp_cvt_bin (dcf + DCF_CNT, DCF_CNT_LEN, cnt, MD_WM); /* redo count */\r
            if (r = dp_wradr (uptr, psec, flg)) break;  /* write addr */\r
            if (r = dp_wrsec (uptr, psec, flg)) break;  /* write data */\r
            if (qzr) break;                             /* zero latch? done */\r
            psec = dp_trkop (drv, sec) + ((psec + 1) % DP_NUMSC);\r
            }\r
        break;                                          /* done, clean up */\r
\r
    default:                                            /* unknown */\r
        return STOP_INVDFN;\r
        }\r
\r
if (r == SCPE_OK) {                                     /* normal so far? */\r
    BS++;                                               /* advance BS */\r
    if (ADDR_ERR (BS)) return STOP_WRAP;                /* address error? */\r
    if (M[BS - 1] != (WM + BCD_GRPMRK)) {               /* GM + WM at end? */\r
        ind[IN_LNG] = ind[IN_DSK] = 1;                  /* no, error */\r
        r = STOP_INVDLN;\r
        }\r
    }\r
CRETIOE (iochk || !ind[IN_DSK], r);                     /* return status */\r
}\r
\r
/* Read or compare address with memory */\r
\r
t_stat dp_rdadr (UNIT *uptr, int32 sec, int32 flg, int32 qwc)\r
{\r
int32 i;\r
uint8 ac;\r
int32 da = (sec % DP_TOTSC) * DP_NUMCH;                 /* char number */\r
uint8 *ap = ((uint8 *) uptr->filebuf) + da;             /* buf ptr */\r
t_bool zad = dp_zeroad (ap);                            /* zero address */\r
static const int32 dec_tab[DP_ADDR] = {                 /* powers of 10 */\r
    100000, 10000, 1000, 100, 10, 1\r
    } ;\r
\r
for (i = 0; i < DP_ADDR; i++) {                         /* copy address */\r
    if (M[BS] == (WM | BCD_GRPMRK)) {                   /* premature GWM? */\r
        ind[IN_LNG] = ind[IN_DSK] = 1;                  /* error */\r
        return STOP_INVDLN;\r
        }\r
    if (zad) {                                          /* addr zero? */\r
        ac = sec / dec_tab[i];                          /* get addr digit */\r
        sec = sec % dec_tab[i];                         /* get remainder */\r
        ac = bcd_to_bin[ac];                            /* cvt to BCD */\r
        }\r
    else ac = *ap;                                      /* addr char */\r
    if (qwc) {                                          /* wr chk? skip if zad */\r
        if (!zad && (flg? (M[BS] != ac):                /* L? cmp with WM */\r
            ((M[BS] & CHAR) != (ac & CHAR)))) {         /* M? cmp w/o WM */\r
            ind[IN_DPW] = ind[IN_DSK] = 1;\r
            return STOP_WRCHKE;\r
            }\r
        }\r
    else if (flg) M[BS] = ac & CHAR;                    /* load mode */\r
    else M[BS] = (M[BS] & WM) | (ac & CHAR);            /* move mode */\r
    ap++; BS++;                                         /* adv ptrs */\r
    if (ADDR_ERR (BS)) return STOP_WRAP;\r
    }\r
return SCPE_OK;\r
}\r
\r
/* Read or compare data with memory */\r
\r
t_stat dp_rdsec (UNIT *uptr, int32 sec, int32 flg, int32 qwc)\r
{\r
int32 i, lim;\r
int32 da = (sec % DP_TOTSC) * DP_NUMCH;                 /* char number */\r
uint8 *ap = ((uint8 *) uptr->filebuf) + da + DP_ADDR;   /* buf ptr */\r
\r
lim = flg? (DP_DATA - 10): DP_DATA;                     /* load vs move */\r
for (i = 0; i < lim; i++) {                             /* copy data */\r
    if (M[BS] == (WM | BCD_GRPMRK)) {                   /* premature GWM? */\r
        ind[IN_LNG] = ind[IN_DSK] = 1;                  /* error */\r
        return STOP_INVDLN;\r
        }\r
    if (qwc) {                                          /* write check? */\r
        if (flg? (M[BS] != *ap):                        /* load mode cmp */\r
            ((M[BS] & CHAR) != (*ap & CHAR))) {         /* move mode cmp */\r
            ind[IN_DPW] = ind[IN_DSK] = 1;              /* error */\r
            return STOP_WRCHKE;\r
            }\r
        }\r
    else if (flg) M[BS] = *ap & (WM | CHAR);            /* load mode */\r
    else M[BS] = (M[BS] & WM) | (*ap & CHAR);           /* word mode */\r
    ap++; BS++;                                         /* adv ptrs */\r
    if (ADDR_ERR (BS)) return STOP_WRAP;\r
    }\r
return SCPE_OK;\r
}\r
\r
/* Write address to disk */\r
\r
t_stat dp_wradr (UNIT *uptr, int32 sec, int32 flg)\r
{\r
int32 i;\r
uint32 da = (sec % DP_TOTSC) * DP_NUMCH;                /* char number */\r
uint8 *ap = ((uint8 *) uptr->filebuf) + da;             /* buf ptr */\r
\r
for (i = 0; i < DP_ADDR; i++) {                         /* copy address */\r
    if (M[BS] == (WM | BCD_GRPMRK)) {                   /* premature GWM? */\r
        dp_fill (uptr, da, DP_NUMCH - i);               /* fill, set err */ \r
        ind[IN_LNG] = ind[IN_DSK] = 1;                  /* error */\r
        return STOP_INVDLN;\r
        }\r
    if (flg) *ap = M[BS] & (WM | CHAR);                 /* L? copy WM */\r
    else *ap = M[BS] & CHAR;                            /* M? strip WM */\r
    if (da >= uptr->hwmark) uptr->hwmark = da + 1;\r
    da++; ap++; BS++;                                   /* adv ptrs */\r
    if (ADDR_ERR (BS)) return STOP_WRAP;\r
    }\r
return SCPE_OK;\r
}\r
\r
/* Write data to disk */\r
\r
t_stat dp_wrsec (UNIT *uptr, int32 sec, int32 flg)\r
{\r
int32 i, lim;\r
uint32 da = ((sec % DP_TOTSC) * DP_NUMCH) + DP_ADDR;    /* char number */\r
uint8 *ap = ((uint8 *) uptr->filebuf) + da;             /* buf ptr */\r
\r
lim = flg? (DP_DATA - 10): DP_DATA;                     /* load vs move */\r
for (i = 0; i < lim; i++) {                             /* copy data */\r
    if (M[BS] == (WM | BCD_GRPMRK)) {                   /* premature GWM? */\r
        dp_fill (uptr, da, DP_DATA - i);                /* fill, set err */\r
        ind[IN_LNG] = ind[IN_DSK] = 1;                  /* error */\r
        return STOP_INVDLN;\r
        }\r
    if (flg) *ap = M[BS] & (WM | CHAR);                 /* load, copy WM */\r
    else *ap = M[BS] & CHAR;                            /* move, strip WM */\r
    if (da >= uptr->hwmark) uptr->hwmark = da + 1;\r
    da++; ap++; BS++;                                   /* adv ptrs */\r
    if (ADDR_ERR (BS)) return STOP_WRAP;\r
    }\r
return SCPE_OK;\r
}\r
\r
/* Find sector */\r
\r
int32 dp_fndsec (UNIT *uptr, int32 sec, int32 dcf)\r
{\r
int32 ctrk = sec % (DP_NUMSF * DP_NUMSC);               /* curr trk-sec */\r
int32 psec = ((uptr->CYL) * (DP_NUMSF * DP_NUMSC)) + ctrk;\r
int32 da = psec * DP_NUMCH;                             /* char number */\r
uint8 *ap = ((uint8 *) uptr->filebuf) + da;             /* buf ptr */\r
int32 i;\r
\r
if (dp_zeroad (ap)) return psec;                        /* addr zero? ok */\r
if (dp_cmp_ad (ap, dcf)) return psec;                   /* addr comp? ok */\r
psec = psec - (psec % DP_NUMSC);                        /* sector 0 */\r
for (i = 0; i < DP_NUMSC; i++, psec++) {                /* check track */\r
    da = psec * DP_NUMCH;                               /* char number */\r
    ap = ((uint8 *) uptr->filebuf) + da;                /* word pointer */\r
    if (dp_zeroad (ap)) continue;                       /* no implicit match */\r
    if (dp_cmp_ad (ap, dcf)) return psec;               /* match? */\r
    }\r
ind[IN_UNA] = ind[IN_DSK] = 1;                          /* no match */\r
return -1;\r
}\r
\r
/* Find next sector - must be sequential, cannot cross cylinder boundary */\r
\r
t_stat dp_nexsec (UNIT *uptr, int32 psec, int32 dcf)\r
{\r
int32 ctrk = psec % (DP_NUMSF * DP_NUMSC);              /* curr trk-sec */\r
int32 da = psec * DP_NUMCH;                             /* word number */\r
uint8 *ap = ((uint8 *) uptr->filebuf) + da;             /* buf ptr */\r
\r
if (ctrk) {                                             /* not trk zero? */\r
    if (dp_zeroad (ap)) return SCPE_OK;                 /* addr zero? ok */\r
    if (dp_cmp_ad (ap, dcf)) return SCPE_OK;            /* addr comp? ok */\r
    }\r
ind[IN_UNA] = ind[IN_DSK] = 1;                          /* no, error */\r
return STOP_INVDAD;\r
}\r
\r
/* Test for zero address */\r
\r
t_bool dp_zeroad (uint8 *ap)\r
{\r
int32 i;\r
\r
for (i = 0; i < DP_ADDR; i++, ap++) {                   /* loop thru addr */\r
    if (*ap & CHAR) return FALSE;                       /* nonzero? lose */\r
    }\r
return TRUE;                                            /* all zeroes */\r
}\r
\r
/* Compare disk address to memory sector address - always omit word marks */\r
\r
t_bool dp_cmp_ad (uint8 *ap, int32 dcf)\r
{\r
int32 i;\r
uint8 c;\r
\r
for (i = 0; i < DP_ADDR; i++, ap++) {                   /* loop thru addr */\r
    c = M[dcf + DCF_SEC + i];                           /* sector addr char */\r
    if ((c & CHAR) != (*ap & CHAR))                     /* cmp w/o WM */\r
        return FALSE;\r
    }\r
return TRUE;                                            /* compare ok */\r
}\r
\r
/* Track operation setup */\r
\r
int32 dp_trkop (int32 drv, int32 sec)\r
{\r
int32 ctrk = (sec / DP_NUMSC) % DP_NUMSF;\r
\r
return ((drv * DP_TOTSC) + (dp_unit[drv].CYL * DP_NUMSF * DP_NUMSC) +\r
    (ctrk * DP_NUMSC));\r
}\r
\r
/* Convert DCF BCD field to binary */\r
\r
int32 dp_cvt_bcd (int32 ad, int32 len)\r
{\r
uint8 c;\r
int32 r;\r
\r
for (r = 0; len > 0; len--) {                           /* loop thru char */\r
    c = M[ad] & DIGIT;                                  /* get digit */\r
    if ((c == 0) || (c > BCD_ZERO)) return -1;          /* invalid? */\r
    r = (r * 10) + bcd_to_bin[c];                       /* cvt to bin */\r
    ad++;                                               /* next digit */\r
    }\r
return r;\r
}\r
\r
/* Convert binary to DCF BCD field */\r
\r
void dp_cvt_bin (int32 ad, int32 len, int32 val, int32 flg)\r
{\r
int32 r;\r
\r
for ( ; len > 0; len--) {                               /* loop thru char */\r
    r = val % 10;                                       /* get digit */\r
    if (flg) M[ad + len - 1] = bin_to_bcd[r];           /* load mode? */\r
    else M[ad + len - 1] = (M[ad + len - 1] & WM) | bin_to_bcd[r];\r
    val = val / 10;\r
    }\r
return;\r
}       \r
\r
/* Get and validate count */\r
\r
int32 dp_get_cnt (int32 dcf)\r
{\r
int32 cnt = dp_cvt_bcd (dcf + DCF_CNT, DCF_CNT_LEN);    /* get new count */\r
if (cnt < 0) return -1;                                 /* bad count? */\r
if (cnt == 0) return 1000;                              /* 0 => 1000 */\r
return cnt;\r
}\r
\r
/* Fill sector buffer with blanks */\r
\r
void dp_fill (UNIT *uptr, uint32 da, int32 cnt)\r
{\r
while (cnt-- > 0) {                                     /* fill with blanks */\r
    *(((uint8 *) uptr->filebuf) + da) = BCD_BLANK;\r
    if (da >= uptr->hwmark) uptr->hwmark = da + 1;\r
    da++;\r
    }\r
return;\r
}\r
\r
/* Reset routine */\r
\r
t_stat dp_reset (DEVICE *dptr)\r
{\r
int32 i;\r
\r
for (i = 0; i < DP_NUMDR; i++) dp_unit[i].CYL = 0;      /* reset cylinder */\r
dp_lastf = 0;                                           /* clear state */\r
ind[IN_DPW] = ind[IN_LNG] = ind[IN_UNA] = 0;            /* clr indicators */\r
ind[IN_DSK] = ind[IN_ACC] = ind[IN_DBY] = 0;\r
sim_cancel (&dp_unit[0]);                               /* cancel timer */\r
return SCPE_OK;\r
}\r