home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / CPM / GENASM / AREA17.LBR / AREA17.AZM / AREA17.ASM
Assembly Source File  |  2000-06-30  |  19KB  |  863 lines
  1. ; Program:  AREA
  2. ; Author:   Joe Wright
  3. ; Date:     20 June 1987
  4. ; Version:  1.0
  5.  
  6. VERS    EQU    17        ; Latest Release
  7. ; 88/03/31 Added additional entries for Ontario; made some
  8. ; cosmetic changes; sorted area codes in ascending order...
  9. ; easier to modify existing areacodes or to add new ones.
  10. ;   v1.7             - Bill Christian
  11.  
  12. ; 88/03/12 Added three newly-announced revisions (A/C 407. 508, & 719).
  13. ;   v1.6             - John H. Johnson
  14. ; 88/02/12 Added PC-Pursuit information to appropriate records.
  15. ;   v1.5             - Lee D. Rimar
  16. ; 87/09/20 Satelite phone-service to ocean-going yachts (A/C 871 & 872).
  17. ;   v1.4             - John H. Johnson
  18. ; 87/08/20 Improved entries for Los Angeles County (A/C 213 and 818).
  19. ;   v1.3             - Paul Foote
  20. ; 87/08/10 Improved entries for Indiana, Ohio, Michigan
  21. ;   v1.2             - Jim Widner
  22. ; 87/07/29 Improved entries for Canada.
  23. ;   v1.1             - Ian Cottrell
  24. ;                   Sysop - Info Centre RCP/M
  25. ;                   (613) 952-2289
  26.  
  27. ; Inspired by AREACODE by Kelly Smith circa 1981...
  28.  
  29. ; Like AREACODE, AREA searches a simple database to find telephone area codes.
  30. ; Unlike AREACODE, AREA will search the database for any match and report
  31. ; the entire record for each match.
  32. ; You may use any part of an area code or name for the search.    All matches
  33. ; will be reported.
  34.  
  35. ; There may be any number of records of the following form:
  36. ;    db    '303'
  37. ;    db    'Denver, Boulder, Aspen, All of Colorado'
  38. ;    db    CR,LF,'  Pursuit - CODEN'
  39. ;    db    0
  40.  
  41. ; The form of the record is fairly free except that a three digit
  42. ; area code is expected as the first three characters of the record.
  43. ; Extra "Pursuit" line added only in applicable areas.
  44. ; Each record is terminated with a single null (db 0).
  45. ; The end of all records is terminated with a second null.
  46.  
  47. ; This Program is distributed as AREA10.ASM and you are heartily
  48. ; invited to add dialing areas to it or to modify it in any way.
  49. ; I only ask that you document any changes here at the top of the source
  50. ; file and in the code and change the version number.  Please make your
  51. ; changes available to the rest of us in source (.ASM) form.
  52. ; I hope you like this one, I certainly do.  Joe Wright, (408) 297-5583
  53.  
  54. LINES    EQU    22        ; Number of records before [More]
  55.  
  56. ; General System Equates
  57.  
  58. BDOS    EQU    5        ; BDOS entry point
  59. CONO    EQU    2        ; Console output function
  60. RCON    EQU    10        ; Read console function
  61.  
  62. CR    EQU    13        ; Carriage return
  63. LF    EQU    10        ; Line feed
  64. TAB    EQU    09        ; 8-Space Tab
  65. ESC    EQU    27        ; Escape character
  66.  
  67. BASE    EQU    0
  68. TBUF    EQU    BASE+80H    ; Default buffer
  69. TPA    EQU    BASE+100H
  70.  
  71.     ORG    TPA
  72.  
  73.     JMP    START
  74.  
  75. ;SIGN:    DB    ESC,'p',' AREA v17 ',ESC,'q'       ; Will highlight
  76. ; filename for terminals using H19 screen codes --  ESC p and ESC q.
  77. ; -> To use: 1- remove semicolon from in front of label SIGN: above.
  78. ;         2- comment out the following label SIGN: below.
  79.  
  80. SIGN:    DB    'AREA Ver ',VERS/10+'0','.',VERS MOD 10+'0'
  81.     DB    0
  82. ;    DB    ' by Joe Wright, June, 1987',0
  83.  
  84. START:    LXI    H,SIGN        ; Point to signon message
  85.     CALL    PSTR        ; Print string at (HL)
  86.     CALL    CRLF        ; New line
  87.     LDA    TBUF+2        ; First character of command string
  88.     CPI    '/'        ; Check for help
  89.     JZ    HELP        ; Report help and return to CCP
  90.     CPI    '?'
  91.     JZ    HELP
  92.     CALL    TERM        ; Terminate the input line (null)
  93.     JNZ    SEARCH        ; Search for user's string, return to CCP
  94. STRT:    CALL    HELP        ; Report help
  95. STRT1:    XRA    A
  96.     STA    FOUND        ; Show nothing found
  97.     MVI    A,LINES
  98.     STA    LINE        ; Restore line count to LINES
  99.     CALL    PRINT        ; Ask for target
  100.     DB    CR,LF,LF, ' Enter Area, City, State/Province or mnemonic: ',0
  101.     CALL    RDCON        ; Wait for it
  102.     RZ            ; No selection, quit
  103.     CALL    CRLF        ; Turn up a new line
  104.     LXI    H,TBUF+1    ; Point to user's string
  105.     CALL    CAPSTR        ; Capitalize it
  106.     CALL    SEARCH        ; This time, don't return to CCP but..
  107.     JMP    STRT1        ; Start over
  108.  
  109. ; Advance HL to first non-space
  110.  
  111. SKSP:    MOV    A,M        ; Get a character
  112.     CPI    0        ; Is it a null?
  113.     RZ            ; First non-space is a null
  114.     SUI    ' '        ; Is it a space?
  115.     RNZ            ; Return if not
  116.     INX    H        ; Next
  117.     JMP    SKSP        ; Try again
  118.  
  119. SEARCH:    LXI    H,TBUF+1    ; Point to user's string
  120.     CALL    SKSP        ; Skip leading spaces
  121.     JZ    STRT        ; First non-space was a null
  122.     XCHG            ; Target to DE
  123.     LXI    H,AREAS+1    ; Point to database
  124. SRCH0:    PUSH    D        ; Save pointer to target
  125.     JMP    SRCH2        ; Get the search underway
  126.  
  127. SRCH1:    POP    D        ; Get target address
  128.     PUSH    D        ; And save it again
  129.  
  130. SRCH2:    LDAX    D        ; Get next byte from target
  131.     ORA    A        ; Check for null
  132.     JZ    GOTONE        ; End of this compare
  133.     MOV    A,M        ; Get one from database
  134.     ORA    A        ; Is it a null?
  135.     JNZ    SRCH3        ; Nope..
  136.     INX    H        ; Point to the next one
  137.     MOV    A,M        ; Get it
  138.     ORA    A        ; Is it a null as well?
  139.     JZ    ENDLST        ; Finished if so, continue if not.
  140.  
  141. SRCH3:    CALL    CAPS        ; Capitalize character from database
  142.     XCHG            ; Point HL at target
  143.     CMP    M        ; Same as target byte?
  144.     XCHG
  145.     INX    H        ; Point to next byte in database
  146.     JNZ    SRCH1        ; Not the same, start over
  147.     INX    D        ; Point to next target byte
  148.     JMP    SRCH2        ; Try next character
  149.  
  150. ENDLST:    POP    H        ; Point to target
  151.     LDA    FOUND        ; Get found flag
  152.     ORA    A        ; Any found?
  153.     RNZ            ; Yes, normal end
  154.     CALL    PRINT
  155.     DB    ' Reference ',0
  156.     CALL    PSTR        ; Print the target string
  157.     CALL    PRINT
  158.     DB    ' Not Found.',0
  159.     RET
  160.  
  161. GOTONE:    LDA    FOUND
  162.     ORA    A
  163.     CNZ    CRLF
  164.     ORI    255
  165.     STA    FOUND        ; Leave message for endlst
  166.     CALL    PRINT
  167.     DB    ' Area ',0
  168.     CALL    LAST        ; Point HL to beginning of record
  169.  
  170.     MVI    B,3        ; Three digits for area code
  171. P3:    MOV    A,M        ; Get a digit
  172.     INX    H        ; Point to next
  173.     CALL    COUT        ; Ship it
  174.     DCR    B        ; Count down
  175.     JNZ    P3        ; Again
  176.  
  177.     CALL    PRINT
  178.     DB    ' - ',0
  179.     CALL    PSTR        ; Print the rest of the database record
  180.  
  181.     PUSH    H        ; Save pointer to next record
  182.     LXI    H,LINE        ; Point to line count
  183.     DCR    M        ; Count down
  184.     JNZ    GOT1        ; Not at limit
  185.     MVI    M,LINES        ; Limit was reached, LINES to LINE
  186.     CALL    SAK        ; Wait for, and echo, user's response
  187. GOT1:    POP    H        ; Get the pointer back
  188.     JMP    SRCH1        ; Try again
  189.  
  190.  
  191. HELP:    CALL    PRINT
  192.     DB    '  *  Telephone Dialing Area Database  *',CR,LF
  193.     DB    '     -------------------------------',CR,LF
  194.     DB    '    Search for Area Code, City, region,',CR,LF
  195.     DB    '   State/Province, or PC-Pursuit mnemonic. ',CR,LF
  196.     DB    '  Usage: AREA BOSTON,AREA 617,AREA MASS,etc.',CR,LF,0
  197.     RET
  198.  
  199. ; We have printed LINES lines, report and wait for any keypress
  200.  
  201. SAK:    CALL    PRINT
  202.     DB    CR,LF,' [More] ',0
  203.     MVI    C,1
  204.     JMP    BDOS        ; Go to bdos, return to caller
  205.  
  206. ; Capitalize the string at HL until a null is encountered
  207.  
  208. CAPSTR:    MOV    A,M        ; Get a character
  209.     ORA    A        ; Check for null
  210.     RZ            ; Finished if so
  211.     CALL    CAPS        ; Capitalize it
  212.     MOV    M,A        ; Put it back
  213.     INX    H        ; Point to the next one
  214.     JMP    CAPSTR        ; Again
  215.  
  216. ; Capitalize the character in A if necessary.
  217.  
  218. CAPS:    CPI    'a'
  219.     RC            ; Not lower case, ret
  220.     CPI    'z'+1
  221.     RNC            ; Also not lower case, ret
  222.     ANI    5FH        ; Force upper case
  223.     RET
  224.  
  225. RDCON:    LXI    D,TBUF-1    ; Max length position
  226.     MVI    A,40        ; Any city or state longer ?
  227.     STAX    D        ; Store it
  228.     MVI    C,RCON        ; Read console function
  229.     CALL    BDOS        ; Do it, wait for user input
  230.  
  231. TERM:    LXI    H,TBUF        ; Point to default buffer count
  232.     MOV    E,M        ; Count in E
  233.     MVI    D,0
  234.     INX    H        ; Point to first character
  235.     PUSH    H        ; Save the pointer
  236.     DAD    D        ; Point past last character
  237.     MVI    M,0        ; Terminate it with a null
  238.     POP    H        ; Restore pointer to first character
  239.     MOV    A,M        ; Get the first character
  240.     ORA    A        ; Return Z if no characters
  241.     RET
  242.  
  243. ; Back up to the first character of the record (area code)
  244.  
  245. LAST:    DCX    H        ; Back up
  246.     MOV    A,M        ; Get one
  247.     ORA    A        ; Null?
  248.     JNZ    LAST        ; Again if not
  249.     INX    H        ; Point to first character
  250.     RET
  251.  
  252. PRINT:    XTHL            ; Save HL on top of stack and point to string
  253.     CALL    PSTR        ; Print the string
  254.     XTHL            ; Restore HL, top of stack is next instruction
  255.     RET
  256.  
  257. PSTR:    MOV    A,M        ; Get a character
  258.     INX    H        ; Point to next
  259.     ORA    A        ; Is it a null?
  260.     RZ            ; Quit if so, else..
  261.     CALL    COUT        ; Ship it to the terminal
  262.     JMP    PSTR        ; Again
  263.  
  264. CRLF:    MVI    A,CR        ; Carriage return code
  265.     CALL    COUT        ; Ship it
  266.     MVI    A,LF        ; Line feed code, fall through to cout
  267.  
  268. COUT:    PUSH    H
  269.     PUSH    D
  270.     PUSH    B
  271.     PUSH    PSW        ; Save all the registers
  272.     MOV    E,A        ; Character to E
  273.     MVI    C,CONO        ; Console output function
  274.     CALL    BDOS        ; Do it
  275.     POP    PSW
  276.     POP    B
  277.     POP    D
  278.     POP    H        ; Restore all the registers
  279.     RET
  280.  
  281. FOUND:    DB    0        ; At least one match was found if NZ
  282. LINE:    DB    LINES        ; Lines per screen
  283.  
  284. ; The following database records are free form except that the three-digit
  285. ; area code is expected as the first three characters.    They may be of
  286. ; any length and may include CR and LF characters where appropriate.
  287. ; The main program indents the reported line one space.  If you would
  288. ; print a second line, you might consider indenting two spaces.
  289. ; Please note again that all records are terminated with a null and
  290. ; that the end of the records is terminated with a second null.
  291. ; Again, please feel free to make whatever changes or corrections and
  292. ; additions you like.
  293.  
  294. AREAS:    DB    0        ; Permits finding beginning of first record
  295.  
  296.     DB    '011'
  297.     DB    'The International Access Code',0
  298.  
  299.     DB    '170'
  300.     DB    'Northwest Mexico',0
  301.  
  302.     DB    '190'
  303.     DB    'Mexico City',0
  304.  
  305.     DB    '201'
  306.     DB    'Newark, Morristown, Hackensack, '
  307.     DB    'New Jersey'
  308.     DB    CR,LF,'  Pursuit - NJNEW',0
  309.  
  310.     DB    '202'
  311.     DB    'Washington, District of Columbia'
  312.     DB    CR,LF,'  Pursuit - DCWAS',0
  313.  
  314.     DB    '203'
  315.     DB    'Hartford, Bridgeport, All of '
  316.     DB    'Connecticut',0
  317.  
  318.     DB    '204'
  319.     DB    'Winnipeg, Brandon, All of Manitoba, '
  320.     DB    'Canada',0
  321.  
  322.     DB    '205'
  323.     DB    'Huntsville, Mobile, Tuscaloosa, All of '
  324.     DB    'Alabama',0
  325.  
  326.     DB    '206'
  327.     DB    'Seattle, Tacoma, Vancouver, Washington'
  328.     DB    CR,LF,'  Pursuit - WASEA',0
  329.  
  330.     DB    '207'
  331.     DB    'Portland, Bangor, All of '
  332.     DB    'Maine',0
  333.  
  334.     DB    '208'
  335.     DB    'Boise, All of '
  336.     DB    'Idaho',0
  337.  
  338.     DB    '209'
  339.     DB    'Fresno, Stockton, '
  340.     DB    'California',0
  341.  
  342.     DB    '212'
  343.     DB    'New York City (Manhattan, The Bronx), '
  344.     DB    'New York'
  345.     DB    CR,LF,'  Pursuit - NYNYO',0
  346.  
  347.     DB    '213'
  348.     DB    'Los Angeles, Hollywood, Long Beach, Santa Monica, '
  349.     DB    'California'
  350.     DB    CR,LF,'  Pursuit - CALAN',0
  351.  
  352.     DB    '214'
  353.     DB    'Dallas, Texas'
  354.     DB    CR,LF,'  Pursuit - TXDAL',0
  355.  
  356.     DB    '215'
  357.     DB    'Philadelphia, Chester, Allentown, '
  358.     DB    'Pennsylvania'
  359.     DB    CR,LF,'  Pursuit - PAPHI',0
  360.  
  361.     DB    '216'
  362.     DB    'Akron, Cleveland, Massillon, Youngstown, '
  363.     DB    'Ohio'
  364.     DB    CR,LF,'  Pursuit - OHCLV',0
  365.  
  366.     DB    '217'
  367.     DB    'Casey, Springfield, '
  368.     DB    'Illinois',0
  369.  
  370.     DB    '218'
  371.     DB    'Duluth, '
  372.     DB    'Minnesota',0
  373.  
  374.     DB    '219'
  375.     DB    'Gary, Hammond, Michigan City, South Bend, '
  376.     DB    'Indiana',0
  377.  
  378.     DB    '301'
  379.     DB    'Baltimore, Annapolis, All of '
  380.     DB    'Maryland'
  381.     DB    CR,LF,'  Pursuit - DCWAS (some areas)',0
  382.  
  383.     DB    '302'
  384.     DB    'Dover, All of '
  385.     DB    'Delaware',0
  386.  
  387.     DB    '303'
  388.     DB    'Denver, Aspen, Boulder, '
  389.     DB    CR,LF,'  Pursuit - CODEN',0
  390.  
  391.     DB    '304'
  392.     DB    'Charleston, All of West Virginia',0
  393.  
  394.     DB    '305'
  395.     DB    'Miami, Ft. Lauderdale, Key West, '
  396.     DB    'Florida'
  397.     DB    CR,LF,'  Pursuit - FLMIA',0
  398.  
  399.     DB    '306'
  400.     DB    'Regina, Saskatoon, All of Saskatchewan, '
  401.     DB    'Canada',0
  402.  
  403.     DB    '307'
  404.     DB    'Cheyenne, All of Wyoming',0
  405.  
  406.     DB    '308'
  407.     DB    'North Platte, Scottsbluff, '
  408.     DB    'Nebraska',0
  409.  
  410.     DB    '309'
  411.     DB    'Peoria, '
  412.     DB    'Illinois',0
  413.  
  414.     DB    '312'
  415.     DB    'Chicago, Libertyville, Lake Forest, Elgin, Highland Park, '
  416.     DB    CR,LF,TAB,'    Illinois'
  417.     DB    CR,LF,'  Pursuit - ILCHI',0
  418.  
  419.     DB    '313'
  420.     DB    'Detroit, Royal Oak, Adrian, Ann Arbor, '
  421.     DB    'Michigan'
  422.     DB    CR,LF,'  Pursuit - MIDET',0
  423.  
  424.     DB    '314'
  425.     DB    'Saint Louis, '
  426.     DB    'Missouri',0
  427.  
  428.     DB    '315'
  429.     DB    'Syracuse, Utica, '
  430.     DB    'New York',0
  431.  
  432.     DB    '316'
  433.     DB    'Dodge City, Wichita, '
  434.     DB    'Kansas',0
  435.  
  436.     DB    '317'
  437.     DB    'Indianapolis, Kokomo, '
  438.     DB    'Indiana',0
  439.  
  440.     DB    '318'
  441.     DB    'Lake Charles, Shreveport, '
  442.     DB    'Louisiana',0
  443.  
  444.     DB    '319'
  445.     DB    'Dubuque, '
  446.     DB    'Iowa',0
  447.  
  448.     DB    '401'
  449.     DB    'Providence, All of '
  450.     DB    'Rhode Island',0
  451.  
  452.     DB    '402'
  453.     DB    'Lincoln, Omaha, '
  454.     DB    'Nebraska',0
  455.  
  456.     DB    '403'
  457.     DB    'Calgary, Edmonton, Whitehorse, Yellowknife '
  458.     DB    CR,LF,TAB,'    All of Alberta, Yukon and NWT, '
  459.     DB    'Canada',0
  460.  
  461.     DB    '404'
  462.     DB    'Atlanta, Rome, '
  463.     DB    'Georgia'
  464.     DB    CR,LF,'  Pursuit - GAATL',0
  465.  
  466.     DB    '405'
  467.     DB    'Oklahoma City, '
  468.     DB    'Oklahoma',0
  469.  
  470.     DB    '406'
  471.     DB    'Billings, All of Montana',0
  472.  
  473.     DB    '407'
  474.     DB    'Southeast Florida, operational, April l6th, 1988',0
  475.  
  476.     DB    '408'
  477.     DB    'San Jose, Sunnyvale, Cupertino, Santa Clara, '
  478.     DB    'California'
  479.     DB    CR,LF,'  Pursuit - CASJO',0
  480.  
  481.     DB    '409'
  482.     DB    'Galveston, Texas',0
  483.  
  484.     DB    '412'
  485.     DB    'Pittsburgh, Indiana, Rochester, '
  486.     DB    'Pennsylvania',0
  487.  
  488.     DB    '413'
  489.     DB    'Springfield, '
  490.     DB    'Massachusetts',0
  491.  
  492.     DB    '414'
  493.     DB    'Milwaukee, Racine, Green Bay, Wisconsin'
  494.     DB    CR,LF,'  Pursuit - WIMIL',0
  495.  
  496.     DB    '415'
  497.     DB    'San Francisco, Oakland, Bay Area, '
  498.     DB    'California'
  499.     DB    CR,LF,'  Pursuit - CASFA',0
  500.  
  501.     DB    '415'
  502.     DB    'Palo Alto, Mountain View, Los Altos, '
  503.     DB    'California'
  504.     DB    CR,LF,'  Pursuit - CAPAL',0
  505.  
  506.     DB    '416'
  507.     DB    'Toronto, Hamilton, St Catherines, Niagara Falls, ',CR,LF
  508.     DB    TAB,'    All of the Niagara penninsula, Ontario, '
  509.     DB    'Canada',0
  510.  
  511.     DB    '417'
  512.     DB    'Joplin, Springfield, '
  513.     DB    'Missouri',0
  514.  
  515.     DB    '418'
  516.     DB    'Quebec City and Southeastern Quebec, '
  517.     DB    'Canada',0
  518.  
  519.     DB    '419'
  520.     DB    'Findlay, Sandusky, Toledo, '
  521.     DB    'Ohio',0
  522.  
  523.     DB    '501'
  524.     DB    'Little Rock, Texarkana, All of '
  525.     DB    'Arkansas',0
  526.  
  527.     DB    '502'
  528.     DB    'Louisville, Paducah, Shelbyville, '
  529.     DB    'Kentucky',0
  530.  
  531.     DB    '503'
  532.     DB    'Portland, Salem, All of '
  533.     DB    'Oregon'
  534.     DB    CR,LF,'  Pursuit - ORPOR',0
  535.  
  536.     DB    '504'
  537.     DB    'New Orleons, Baton Rouge, '
  538.     DB    'Louisiana',0
  539.  
  540.     DB    '505'
  541.     DB    'Albuquerque, Santa Fe, All of '
  542.     DB    'New Mexico',0
  543.  
  544.     DB    '506'
  545.     DB    'Frederickton, Moncton, All of New Brunswick, '
  546.     DB    'Canada',0
  547.  
  548.     DB    '507'
  549.     DB    'Albert Lea, Rochester, '
  550.     DB    'Minnesota',0
  551.  
  552.     DB    '508'
  553.     DB    'Eastern Massachusetts. operational July 16th, 1988',0
  554.  
  555.     DB    '509'
  556.     DB    'Spokane, Pullman, Walla Walla, Washington',0
  557.  
  558.     DB    '512'
  559.     DB    'Austin, Corpus Christi, San Antonio, '
  560.     DB    'Texas',0
  561.  
  562.     DB    '513'
  563.     DB    'Cincinnati, Dayton, Springfield, '
  564.     DB    'Ohio',0
  565.  
  566.     DB    '514'
  567.     DB    'Montreal, '
  568.     DB    'Canada',0
  569.  
  570.     DB    '515'
  571.     DB    'Des Moines, Mason City, '
  572.     DB    'Iowa',0
  573.  
  574.     DB    '516'
  575.     DB    'Hempstead, '
  576.     DB    'New York',0
  577.  
  578.     DB    '517'
  579.     DB    'Lansing, Saginaw, '
  580.     DB    'Michigan',0
  581.  
  582.     DB    '518'
  583.     DB    'Albany, Greenwich, Schenectady, '
  584.     DB    'New York',0
  585.  
  586.     DB    '519'
  587.     DB    'London, Windsor, Kitchener, Sarnia, ',CR,LF
  588.     DB    TAB,'    All of Southwestern Ontario, '
  589.     DB    'Canada',0
  590.  
  591.     DB    '601'
  592.     DB    'All of Mississippi',0
  593.  
  594.     DB    '602'
  595.     DB    'Phoenix, Tucson, Flagstaff, All of '
  596.     DB    'Arizona'
  597.     DB    CR,LF,'  Pursuit - ASPHO',0
  598.  
  599.     DB    '603'
  600.     DB    'All of '
  601.     DB    'New Hampshire',0
  602.  
  603.     DB    '604'
  604.     DB    'Vancouver, All of British Columbia, '
  605.     DB    'Canada',0
  606.  
  607.     DB    '605'
  608.     DB    'Rapid City, All of '
  609.     DB    'South Dakota',0
  610.  
  611.     DB    '606'
  612.     DB    'Ashland, Winchester, '
  613.     DB    'Kentucky',0
  614.  
  615.     DB    '607'
  616.     DB    'Elmira, Ithaca, Stamford, '
  617.     DB    'New York',0
  618.  
  619.     DB    '608'
  620.     DB    'Madison, Beloit, Wisconsin',0
  621.  
  622.     DB    '609'
  623.     DB    'Atlantic City, Trenton, Camden, '
  624.     DB    'New Jersey',0
  625.  
  626.     DB    '612'
  627.     DB    'Minneapolis, Saint Paul, '
  628.     DB    'Minnesota'
  629.     DB    CR,LF,'  Pursuit - MNMIN',0
  630.  
  631.     DB    '613'
  632.     DB    'Ottawa, Kingston, Belleville, All of eastern Ontario, '
  633.     DB    'Canada',0
  634.  
  635.     DB    '614'
  636.     DB    'Athens, Columbus, Marion, Marietta, Newark, '
  637.     DB    'Ohio',0
  638.  
  639.     DB    '615'
  640.     DB    'Chattanooga, Nashville, '
  641.     DB    'Tennessee',0
  642.  
  643.     DB    '616'
  644.     DB    'Battle Creek, Grand Rapids, Cadillac, Kalamazoo, '
  645.     DB    'Michigan',0
  646.  
  647.     DB    '617'
  648.     DB    'Boston, Framingham, New Bedford, '
  649.     DB    'Massachusetts'
  650.     DB    CR,LF,'  Pursuit - MABOS',0
  651.  
  652.     DB    '618'
  653.     DB    'Alton, Mount Vernon, Centralia, '
  654.     DB    'Illinois',0
  655.  
  656.     DB    '619'
  657.     DB    'San Diego and Imperial Valley, '
  658.     DB    'California',0
  659.  
  660.     DB    '701'
  661.     DB    'Fargo, All of '
  662.     DB    'North Dakota',0
  663.  
  664.     DB    '702'
  665.     DB    'Las Vegas, Reno, Carson City, All of '
  666.     DB    'Nevada',0
  667.  
  668.     DB    '703'
  669.     DB    'Alexandria, Fredericksburg, Winchester, Roanoke, '
  670.     DB    'Virginia'
  671.     DB    CR,LF,'  Pursuit - DCWAS',0
  672.  
  673.     DB    '704'
  674.     DB    'Charlotte, Salisbury, '
  675.     DB    'North Carolina',0
  676.  
  677.     DB    '705'
  678.     DB    'Sudbury, North Bay, Timmins, Kirkland Lake, ',CR,LF
  679.     DB    TAB,'    New Liskeard, All of northeastern Ontario, '
  680.     DB    'Canada',0
  681.  
  682.     DB    '706'
  683.     DB    'Northwest Mexico'
  684.     DB    'Mexico',0
  685.  
  686.     DB    '707'
  687.     DB    'Eureka, Napa, Santa Rosa, '
  688.     DB    'California',0
  689.  
  690.     DB    '709'
  691.     DB    'St. John''s, Gander, All of Newfoundland and Labrador, '
  692.     DB    'Canada',0
  693.  
  694.     DB    '712'
  695.     DB    'Council Bluffs, '
  696.     DB    'Iowa',0
  697.  
  698.     DB    '713'
  699.     DB    'Houston, Texas'
  700.     DB    CR,LF,'  Pursuit - TXHOU',0
  701.  
  702.     DB    '714'
  703.     DB    'Orange and San Bernardino Counties, '
  704.     DB    'California',0
  705.  
  706.     DB    '715'
  707.     DB    'Eau Claire, Wausau, Wisconsin',0
  708.  
  709.     DB    '716'
  710.     DB    'Buffalo, Niagara Falls, Rochester, '
  711.     DB    'New York',0
  712.  
  713.     DB    '717'
  714.     DB    'Harrisburg, Scranton, Wilkes-Barre, '
  715.     DB    'Pennsylvania',0
  716.  
  717.     DB    '718'
  718.     DB    'New York City (Queens, Brooklyn, Staten Island), '
  719.     DB    'New York'
  720.     DB    CR,LF,'  Pursuit - NYNYO (add 1+areacode to number)',0
  721.  
  722.     DB    '719'
  723.     DB    'Southern Colorado - Pueblo',0
  724.  
  725.     DB    '800'
  726.     DB    'Toll Free number',0
  727.  
  728.     DB    '801'
  729.     DB    'Salt Lake City, All of Utah'
  730.     DB    CR,LF,'  Pursuit - UTSLC',0
  731.  
  732.     DB    '802'
  733.     DB    'All of Vermont',0
  734.  
  735.     DB    '803'
  736.     DB    'Charleston, All of '
  737.     DB    'South Carolina',0
  738.  
  739.     DB    '804'
  740.     DB    'Norfolk, Richmond, Charlottesville, Virginia',0
  741.  
  742.     DB    '805'
  743.     DB    'Bakersfield, Ventura, Simi Valley, '
  744.     DB    'California',0
  745.  
  746.     DB    '806'
  747.     DB    'Amarillo, '
  748.     DB    'Texas',0
  749.  
  750.     DB    '807'
  751.     DB    'Thunder Bay, Kenora, All of northwestern Ontario, '
  752.     DB    'Canada',0
  753.  
  754.     DB    '808'
  755.     DB    'Honolulu, All of '
  756.     DB    'Hawaii',0
  757.  
  758.     DB    '809'
  759.     DB    'Bahamas, Bermuda, Puerto Rico, Virgin Islands',0
  760.  
  761.     DB    '812'
  762.     DB    'Bloomington, Evansville, '
  763.     DB    'Indiana',0
  764.  
  765.     DB    '813'
  766.     DB    'Tampa, St. Petersburg, Winter Haven, '
  767.     DB    'Florida'
  768.     DB    CR,LF,'  Pursuit - FLTAM',0
  769.  
  770.     DB    '814'
  771.     DB    'Altoona, Erie, '
  772.     DB    'Pennsylvania',0
  773.  
  774.     DB    '815'
  775.     DB    'La Salle, Joliet, Rockford, '
  776.     DB    'Illinois'
  777.     DB    CR,LF,'  Pursuit - ILCHI (add 1+areacode to number)',0
  778.  
  779.     DB    '816'
  780.     DB    'Kansas City, Saint Joseph, '
  781.     DB    'Missouri',0
  782.  
  783.     DB    '817'
  784.     DB    'Fort Worth, Temple, Waco, Texas'
  785.     DB    CR,LF,'  Pursuit - TXDAL '
  786.     DB    '(limited area; no extra prefix needed)',0
  787.  
  788.     DB    '818'
  789.     DB    'San Fernando Valley, Pasadena, Burbank, Glendale, '
  790.     DB    'California'
  791.     DB    CR,LF,'  Pursuit - CAGLE',0
  792.  
  793.     DB    '819'
  794.     DB    'Malartic and Western Quebec, '
  795.     DB    'Canada',0
  796.  
  797.     DB    '871'
  798.     DB    'Atlantic Ocean, satelite  phone-access to yachts '
  799.     DB    'Atlantic Ocean',0
  800.  
  801.     DB    '872'
  802.     DB    'Pacific Ocean, satelite phone-access to yachts '
  803.     DB    'Pacific Ocean',0
  804.  
  805.     DB    '900'
  806.     DB    'Toll Reduced number',0
  807.  
  808.     DB    '901'
  809.     DB    'Memphis, '
  810.     DB    'Tennessee',0
  811.  
  812.     DB    '902'
  813.     DB    'Charlottetown, Halifax, Sidney ',CR,LF
  814.     DB    TAB,'    All of Prince Edward Island and Nova Scotia, '
  815.     DB    'Canada',0
  816.  
  817.     DB    '904'
  818.     DB    'Jacksonville, '
  819.     DB    'Florida',0
  820.  
  821.     DB    '905'
  822.     DB    'Mexico DF',0
  823.  
  824.     DB    '906'
  825.     DB    'Sault Ste. Marie, '
  826.     DB    'Michigan',0
  827.  
  828.     DB    '907'
  829.     DB    'Anchorage, Fairbanks, Juneau, All of '
  830.     DB    'Alaska',0
  831.  
  832.     DB    '912'
  833.     DB    'Waycross, Savanah, '
  834.     DB    'Georgia',0
  835.  
  836.     DB    '913'
  837.     DB    'Ottawa, Topeka, '
  838.     DB    'Kansas',0
  839.  
  840.     DB    '914'
  841.     DB    'Monroe, Mount Vernon, Poughkeepsie, '
  842.     DB    'New York',0
  843.  
  844.     DB    '915'
  845.     DB    'El Paso, Texas',0
  846.  
  847.     DB    '916'
  848.     DB    'Sacramento, Marysville, Grass Valley, '
  849.     DB    'California',0
  850.  
  851.     DB    '918'
  852.     DB    'Tulsa, Muskogee, '
  853.     DB    'Oklahoma',0
  854.  
  855.     DB    '919'
  856.     DB    'Greenville, Raleigh, Williamston,'
  857.     DB    'Reserach Triangle Park, North Carolina'
  858.     DB    CR,LF,'  Pursuit - NCRTP',0
  859.  
  860.     DB    0        ; End of all entries
  861.  
  862.     END
  863.