home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / sigm / vols000 / vol018 / areacode.asm < prev    next >
Encoding:
Assembly Source File  |  1984-04-29  |  13.0 KB  |  372 lines
  1. ; 
  2. ;                     AREACODE.ASM Ver 1.0
  3. ; 
  4. ;                            as of
  5. ; 
  6. ;                       January 2, 1981
  7. ; 
  8. ;  AREACODE is used to display the region and state, specified 
  9. ; by  the user...very handy,  when someone leaves a area  code 
  10. ; number  on a CBBS,  but no city or state  reference.  Simple 
  11. ; enough to use,  just type AREACODE nnn<cr> (where 'nnn' is a 
  12. ; three   digit  area  code),   and  in  return,   you  get  a 
  13. ; geographical  region by city(s),  and state.  Sorry if  your 
  14. ; particular city is not represented,  and feel free to add it 
  15. ; as required...
  16. ; 
  17. ;  This  is not the most 'elegant' search routine that I could 
  18. ; have   used  in  implementing  this  program,   but  it   is 
  19. ; fast...it's  best  described  as  a  "forward  scanning/side 
  20. ; checking  mess"...if  you  don't find it matching  on  first 
  21. ; character, drop to the next possible match...
  22. ; 
  23. ;                          Best regards,
  24. ; 
  25. ;                          Kelly Smith, CP/M-Net SYSOP
  26. ;                          805-527-9321 (Modem, 300 Baud)
  27. ;                          805-527-0518 (Verbal Abuse)
  28. ; 
  29.  
  30. base    equ    0    ; CP/M system base address
  31. bdos    equ    base+5    ; BDOS entry address
  32. tbuff    equ    base+80h; temporary (command) buffer
  33.  
  34. prnstg    equ    9    ; print string (ending in '$') function
  35.  
  36. lf    equ    0ah    ; ASCII line feed
  37. cr    equ    0dh    ; ASCII carriage return
  38.  
  39.     org    base+100h
  40.  
  41.     lxi    h,0    ; make local stack, so no warm boot
  42.     dad    sp
  43.     shld    oldstk
  44.     lxi    sp,stack; old stack saved, make new stack
  45.     lxi    d,msg1    ; "Area code"
  46.     call    print$message
  47.     lxi    h,tbuff    ; point to area code length
  48.     mvi    d,0    ; clear D Reg.
  49.     mov    a,m    ; get it...
  50.     adi    1    ; adjust buffer pointer +1
  51.     mov    e,a
  52.     dad    d    ; point 1 past area code number
  53.     mvi    m,'$'    ; tag with 'end of string'
  54.     lxi    d,tbuff+1    ; check for valid entry
  55.     ldax    d    ; must be ASCII space to be correct
  56.     cpi    ' '
  57.     jz    inputok
  58.     lxi    d,msg4    ; "NOT specified"
  59.     call    print$message
  60.     jmp    exit    ; exit to CP/M now
  61. inputok:call    print$message    ; o.k., so far...print whatver was input
  62.     lxi    d,msg2    ; ", is "
  63.     call    print$message
  64.     mvi    b,0    ; clear character position counter
  65.     lxi    d,tbuff+2    ; point to area code
  66.     lxi    h,area$code$table    ; point to area code table
  67. scan:    ldax    d    ; get first character of area code for match
  68.     cmp    m    ; does it match any first character in table?
  69.     jnz    scan3    ; if no match, advance 58 characters in table
  70. scan1:    inx    d    ; bump for next area code character
  71.     inx    h    ; bump to second character in area code table
  72.     inr    b    ; bump character position counter
  73.     mov    a,b    ; has character counter gone three positions?
  74.     cpi    3
  75.     jnz    scan2    ; match next character, if not at position 3
  76.     dcx    d    ; adjust character position for subsequent match
  77.     dcx    h
  78.     ldax    d    ; get last in entered area code
  79.     cmp    m    ; match to last character in area code table?
  80.     jz    match    ; if last character matches, display region, and state
  81.     inx    d    ; no match, bump both pointers
  82.     inx    h
  83. scan2:    ldax    d    ; get next character to match
  84.     cmp    m    ; any match yet?
  85.     jnz    backup    ; back-up, if no match on current position
  86.     mov    a,b    ; are we at final character position?
  87.     cpi    3
  88.     jz    match    ; if so, we have final match
  89.     jmp    scan    ; not final position, try again...
  90. backup:    dcx    d    ; back-up to start of entered area code
  91.     dcx    h    ; back-up to start of current area code in table
  92.     dcr    b    ; de-bump character position counter
  93.     jnz    backup    ; loop until we are at start of string
  94. scan3:    push    d    ; save pointer to entered area code
  95.     lxi    d,58    ; make 58 character bias
  96.     dad    d    ; add bias to area code table pointer
  97.     pop    d    ; recover pointer to entered area code
  98.     mov    a,m    ; have we hit "EOF" in area code table column?
  99.     cpi    'Z'-40h
  100.     jnz    scan    ; if not, try next string for a match...
  101. nomatch:lxi    d,msg3    ; "NOT a valid area code"
  102.     call    print$message
  103.     jmp    exit    ; exit to CP/M now...
  104. match:    inx    h    ; bump for region and state table location
  105.     xchg        ; swap to D&E Regs.
  106.     call    print$message
  107. exit:    lxi    d,crlf    ; keep it neat...
  108.     call    print$message
  109.     lhld    oldstk    ; get old CP/M stack
  110.     sphl        ; restore stack pointer, so no warm boot
  111.     ret        ; return to CP/M...
  112. ;
  113. print$message        ; print message string
  114. ;
  115.     mvi    c,prnstg; print string (until '$') function
  116.     call    bdos
  117.     ret
  118. ;
  119. area$code$table:    ; storage for area code, region, state
  120. ;
  121.     db    '205'
  122.     db    ' all regions, Alabama                                 $'
  123.     db    '907'
  124.     db    ' all regions, Alaska                                  $'
  125.     db    '602'
  126.     db    ' all regions, Arizona                                 $'
  127.     db    '213'
  128.     db    ' Los Angeles, California                              $'
  129.     db    '805'
  130.     db    ' Bakersfield, Ventura and Simi Valley, California     $'
  131.     db    '707'
  132.     db    ' Eureka, Napa and Santa Rosa, California              $'
  133.     db    '209'
  134.     db    ' Fresno and Stockton, California                      $'
  135.     db    '415'
  136.     db    ' Oakland and San Francisco, California                $'
  137.     db    '714'
  138.     db    ' Orange and San Diego, California                     $'
  139.     db    '916'
  140.     db    ' Sacramento and South Tahoe, California               $'
  141.     db    '408'
  142.     db    ' San Jose and Sunnyvale, California                   $'
  143.     db    '519'
  144.     db    ' Ontario, Canada                                      $'
  145.     db    '514'
  146.     db    ' Montreal, Canada                                     $'
  147.     db    '705'
  148.     db    ' North Bay, Ontario, Canada                           $'
  149.     db    '807'
  150.     db    ' Ontario, Canada                                      $'
  151.     db    '613'
  152.     db    ' Ottawa, Ontario, Canada                              $'
  153.     db    '418'
  154.     db    ' Quebec, Quebec, Canada                               $'
  155.     db    '819'
  156.     db    ' Quebec, Canada                                       $'
  157.     db    '416'
  158.     db    ' Toronto and Ontario, Canada                          $'
  159.     db    '204'
  160.     db    ' Manatoba, Canada                                     $'
  161.     db    '306'
  162.     db    ' Saskatchewan, Canada                                 $'
  163.     db    '403'
  164.     db    ' Alberta, Canada                                      $'
  165.     db    '804'
  166.     db    ' British Columbia, Canada                             $'
  167.     db    '303'
  168.     db    ' all regions, Colorado                                $'
  169.     db    '203'
  170.     db    ' all regions, Connecticut                             $'
  171.     db    '302'
  172.     db    ' all regions, Deleware                                $'
  173.     db    '202'
  174.     db    ' Washington, District of Columbia                     $'
  175.     db    '813'
  176.     db    ' Avon Park, Fort Myers and Winter Haven, Florida      $'
  177.     db    '305'
  178.     db    ' Fort Lauderdale, Key West, Miami and Florida         $'
  179.     db    '904'
  180.     db    ' Jacksonville, Florida                                $'
  181.     db    '404'
  182.     db    ' Atlanta, Rome, Georgia                               $'
  183.     db    '912'
  184.     db    ' Waycross, Georgia                                    $'
  185.     db    '808'
  186.     db    ' all regions, Hawaii                                  $'
  187.     db    '208'
  188.     db    ' all regions, Idaho                                   $'
  189.     db    '618'
  190.     db    ' Alton and Mount Vernon, Illinois                     $'
  191.     db    '312'
  192.     db    ' Aurora, Chicago, Elgin and Highland Park, Illinois   $'
  193.     db    '217'
  194.     db    ' Casey and Springfield, Illinois                      $'
  195.     db    '815'
  196.     db    ' La Salle, Joliet and Rockford, Illinois              $'
  197.     db    '812'
  198.     db    ' Evansville, Indiana                                  $'
  199.     db    '219'
  200.     db    ' Gary, Hammond, Michigan City and South Bend, Indiana $'
  201.     db    '317'
  202.     db    ' Indianapolis and Kokomo, Indiana                     $'
  203.     db    '712'
  204.     db    ' Council Bluffs, Iowa                                 $'
  205.     db    '515'
  206.     db    ' Des Moines and Mason City, Iowa                      $'
  207.     db    '319'
  208.     db    ' Dubuque, Iowa                                        $'
  209.     db    '316'
  210.     db    ' Dodge City and Wichita, Kansas                       $'
  211.     db    '913'
  212.     db    ' Ottawa and Topeka, Kansas                            $'
  213.     db    '606'
  214.     db    ' Ashland and Winchester, Kentuckey                    $'
  215.     db    '502'
  216.     db    ' Louiseville, Paducah and Shelbyville, Kentuckey      $'
  217.     db    '504'
  218.     db    ' Baton Rouge and New Orleans, Louisiana               $'
  219.     db    '318'
  220.     db    ' Lake Charles, Louisiana                              $'
  221.     db    '207'
  222.     db    ' all regions, Maine                                   $'
  223.     db    '301'
  224.     db    ' all regions, Maryland                                $'
  225.     db    '617'
  226.     db    ' Boston, Framingham and New Bedford, Massachusetts    $'
  227.     db    '413'
  228.     db    ' Springfield, Massachusetts                           $'
  229.     db    '905'
  230.     db    ' Mexico City, Mexico                                  $'
  231.     db    '903'
  232.     db    ' Northwest Mexico                                     $'
  233.     db    '313'
  234.     db    ' Adrian and Ann Arbor, Michigan                       $'
  235.     db    '616'
  236.     db    ' Battle Creek, Cadillac and Grand Rapids, Michigan    $'
  237.     db    '517'
  238.     db    ' Lancing and Saginaw, Michigan                        $'
  239.     db    '906'
  240.     db    ' Sault Ste. Marie, Michigan                           $'
  241.     db    '507'
  242.     db    ' Albert Lea and Rochester, Minnesota                  $'
  243.     db    '218'
  244.     db    ' Duluth, Minnesota                                    $'
  245.     db    '612'
  246.     db    ' Minneapolis and Saint Paul, Minnesota                $'
  247.     db    '601'
  248.     db    ' all regions, Mississippi                             $'
  249.     db    '417'
  250.     db    ' Joplin and Springfiled, Missouri                     $'
  251.     db    '816'
  252.     db    ' Kansas City and Saint Joseph, Missouri               $'
  253.     db    '314'
  254.     db    ' Saint Louis, Missouri                                $'
  255.     db    '406'
  256.     db    ' all regions, Montana                                 $'
  257.     db    '402'
  258.     db    ' Lincoln and Omaha, Nebraska                          $'
  259.     db    '308'
  260.     db    ' North Platte, Nebraska                               $'
  261.     db    '702'
  262.     db    ' all regions, Nevada                                  $'
  263.     db    '603'
  264.     db    ' all regions, New Hampshire                           $'
  265.     db    '609'
  266.     db    ' Atlantic City, Camden and Trenton, New Jersey        $'
  267.     db    '201'
  268.     db    ' Hackensack, Morristown and Newark, New Jersey        $'
  269.     db    '505'
  270.     db    ' all regions, New Mexico                              $'
  271.     db    '518'
  272.     db    ' Albany, Greenwich and Schenectady, New York          $'
  273.     db    '716'
  274.     db    ' Buffalo, Niagra Falls and Rochester, New York        $'
  275.     db    '607'
  276.     db    ' Elmira and Stamford, New York                        $'
  277.     db    '516'
  278.     db    ' Hempstead, New York                                  $'
  279.     db    '914'
  280.     db    ' Monroe, Mount Vernon and Poughkeepsie, New York      $'
  281.     db    '212'
  282.     db    ' New York City, New York                              $'
  283.     db    '315'
  284.     db    ' Syracuse and Utica, New York                         $'
  285.     db    '704'
  286.     db    ' Charlotte and Salisbury, North Carolina              $'
  287.     db    '919'
  288.     db    ' Greenville and Williamston, North Carolina           $'
  289.     db    '701'
  290.     db    ' all regions, North Dakota                            $'
  291.     db    '216'
  292.     db    ' Akron, Cleveland, Massilon and Youngstown, Ohio      $'
  293.     db    '513'
  294.     db    ' Cincinnati and Dayton, Ohio                          $'
  295.     db    '614'
  296.     db    ' Columbus, Marietta and Newark, Ohio                  $'
  297.     db    '419'
  298.     db    ' Toldeo, Ohio                                         $'
  299.     db    '918'
  300.     db    ' Muskogee and Tulsa, Oklahoma                         $'
  301.     db    '405'
  302.     db    ' Oklahoma City, Oklahoma                              $'
  303.     db    '503'
  304.     db    ' all regions, Oregon                                  $'
  305.     db    '215'
  306.     db    ' Allentown, Chester and Philadelphia, Pennsylvania    $'
  307.     db    '814'
  308.     db    ' Altoona, Erie and Punxsutawney, Pennsylvania         $'
  309.     db    '717'
  310.     db    ' Harrisburg, Scranton and Wilkes-Barre, Pennsylvania  $'
  311.     db    '809'
  312.     db    ' all regions, Puerto Rico                             $'
  313.     db    '401'
  314.     db    ' all regions, Rhode Island                            $'
  315.     db    '803'
  316.     db    ' all regions, South Carolina                          $'
  317.     db    '605'
  318.     db    ' all regions, South Dakota                            $'
  319.     db    '615'
  320.     db    ' Chattanooga and Nashville, Tennessee                 $'
  321.     db    '901'
  322.     db    ' Memphis, Tennesee                                    $'
  323.     db    '806'
  324.     db    ' Amarillo, Texas                                      $'
  325.     db    '512'
  326.     db    ' Austin, Corpus Christi and San Antonio, Texas        $'
  327.     db    '214'
  328.     db    ' Dallas, Texas                                        $'
  329.     db    '713'
  330.     db    ' Galveston and Houston, Texas                         $'
  331.     db    '817'
  332.     db    ' Temple, Texas                                        $'
  333.     db    '801'
  334.     db    ' all regions, Utah                                    $'
  335.     db    '802'
  336.     db    ' all regions, Vermont                                 $'
  337.     db    '809'
  338.     db    ' all regions, Virgin Islands                          $'
  339.     db    '804'
  340.     db    ' Charlottesville, Norfolk and Richmond, Virginia      $'
  341.     db    '703'
  342.     db    ' Fredericksburg, Roanoke and Winchester, Virginia     $'
  343.     db    '509'
  344.     db    ' Pullman, Walla Walla, Washington                     $'
  345.     db    '206'
  346.     db    ' Seattle and Vancouver, Washington                    $'
  347.     db    '304'
  348.     db    ' all regions, West Virginia                           $'
  349.     db    '608'
  350.     db    ' Beloit and Madison, Wisconsin                        $'
  351.     db    '715'
  352.     db    ' Eau Claire and Wausau, Wisconsin                     $'
  353.     db    '414'
  354.     db    ' Green Bay, Milwaukee and Racine, Wisconsin           $'
  355.     db    '307'
  356.     db    ' all regions, Wyoming                                 $'
  357.     db    'Z'-40h    ; "EOF"
  358.     db    'Z'-40h    ; "EOF"
  359.     db    'Z'-40h    ; "EOF"
  360. ;
  361. msg1:    db    cr,lf,' Area code$'
  362. msg2:    db    ', is$'
  363. msg3:    db    ' NOT a valid area code!$'
  364. msg4:    db    ' NOT specified!$'
  365. crlf:    db    cr,lf,'$'
  366. ;
  367. oldstk:    ds    2    ; storage for "old" CP/M stack pointer
  368.     ds    16    ; storage for "local" stack
  369. stack    equ    $    ; "local" stack pointer starts here
  370. ;
  371.     end
  372.