PARCPhoneNumberMappings.mesa
Rules for converting telephone numbers to valid "back door" sequences from the PARC Centrex
Last modified by Swinehart, April 28, 1986 1:28:59 pm PDT
DIRECTORY
Atom,
Rope,
PhoneMappings
;
PARCPhoneNumberMappingsImpl: CEDAR PROGRAM
IMPORTS Atom = {
parcMap: PhoneMappings.PhoneMap ← LIST[
["x0xyyynnnn", "8x0xyyynnnn"], -- DDD numbers that don't have "level" code
["x1xyyynnnn", "8x1xyyynnnn"], -- DDD numbers that don't have "level" code
["yyynnnn", "9yyynnnn"],-- local numbers that don't have "level" code
["94966nnn", "6nnn"], -- Embarcadero numbers
["60nn", "949660nn"], -- Embarcadero numbers
["61nn", "949661nn"],
["62nn", "949662nn"],
["63nn", "949663nn"],
["64nn", "949664nn"],
["65nn", "949665nn"],
["66nn", "949666nn"],
["67nn", "949667nn"],
["68nn", "949668nn"],
["69nn", "892369nn"],
["9415yyynnnn", "9yyynnnn"], -- DDD numbers in local exchange.
["94944nnn", "4nnn"], -- Centrex numbers
["94945nnn", "5nnn"], -- Centrex numbers
["94946nnn", "6nnn"], -- Centrex numbers
["8415yyynnnn", "9yyynnnn"], -- Proposed Intelnet calls to own area code.
["8408yyynnnn", "9408yyynnnn"], -- DDD numbers blocked from Intelnet
["8916yyynnnn", "9916yyynnnn"],
["8707yyynnnn", "9707yyynnnn"],
["8800yyynnnn", "9800yyynnnn"], -- 800 and 900 INWats calls not handled by Intelnet
["8900yyynnnn", "9900yyynnnn"],
["8923nnnn", "nnnn"], -- Local Intelnet numbers
["8922nnnn", "9496nnnn"], -- Embarcadero numbers
["8943nnnn", "9408737nnnn"], -- ISD Sunnyvale
["8928nnnn", "9408982nnnn"], -- Versatec numbers
["8929nnnn", "9408982nnnn"], -- Other Versatec numbers; not sure this will work!
["8924nnnn", "96352020"], -- Oakland; no direct dial except via Intelnet, which is blocked!
["8925nnnn", "4473"], -- Walnut Creek. Maybe I can help.
["8926nnnn", "93931700"], -- San Francisco; no direct dial except via Intelnet!
["8927nnnn", "98732800"], -- South SFO; no direct dial except via Intelnet!
["8935nnnn", "94089882800"], -- More Versatec; no direct dial?
["8936nnnn", "94987000"], -- Diablo; no direct dial except via Intelnet!
["8937nnnn", "94089888800"], -- Santa Clara; no direct dial except via Intelnet!
["8938nnnn", "93498313"], -- San Mateo; no direct dial except via Intelnet!
["8962nnnn", "4473"], -- Sacramento. Maybe I can help.
["8yyynnnn", "8AyyynnnnAB"], -- Intelnet numbers require
["8x0xyyynnnn", "8Ax0xyyynnnnAB"], -- Charge code, supplied as param. 1 to MapNumber
["8x1xyyynnnn", "8Ax1xyyynnnnAB"],
["8xxx", "8Axxx"], -- No charge required, Intelnet information or trouble reporting number.
["zzzzzzzzzzzzzzzzzzz", "z"] -- Remove punctuation from otherwise unchanged number
];
Atom.PutProp[$PhoneMap, $map, parcMap];
}.