GET "LIBHDR"
GET "IOHDR"
GET "FH2HDR"


MANIFEST
    $(

    dddevid    = -2
    ndrives    = 2
    MAXCYL     = 77-1
    NCYLS      = 77
    NBLOCKS    = NCYLS*1*13
    escbit = #X100
    filenameupb = 29
    $)


GLOBAL
    $(
    lbn              : ug + 0
    cyl              : ug + 1
    sur              : ug + 2
    sec              : ug + 3
    blockbuff        : ug + 5
    blockwrittenback : ug + 6
    ch               : ug + 7
    style            : ug + 8
    stringstyle      : ug + 9
    mask             : ug + 10
    pattern          : ug + 11
    charstyle        : ug + 12
    lbnbase          : ug + 13
    drive            : ug + 14
    nullnumber       : ug + 15
    cylbase          : ug + 16
    block.read       : ug + 17
    write.protected  : ug + 18
    readvalue       : ug + 19
    check.block.read: ug + 20
    readdiscaddr    : ug + 21
    discaction      : ug + 22
    convertdiscaddr : ug + 23
    skiplayout      : ug + 24
    readchar        : ug + 25
    block.checksum  : ug + 26
    printloc        : ug + 27
    $)