home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / mbug / mbug135.arc / I2NM-2.AZM / I2NM-2.ASM
Assembly Source File  |  1979-12-31  |  6KB  |  160 lines
  1.  
  2. ; I2NM-2.ASM  Telephone number overlay file for IMP2 - 08/20/85
  3. ;
  4. ;
  5. ; This file can be edited to make a new library of telephone numbers.
  6. ; Each entry must be 34 bytes long.  36 telephone numbers are allowed,
  7. ; (A-Z and 0-9).  Follow the format for the library entries already in
  8. ; the file.  (Be sure to use spaces, not tabs.)
  9. ;
  10. ; At least 1 period (.) must precede each phone number in the table.
  11. ;
  12. ; Room has been left if your phone system requires extra characters such
  13. ; as:  1-313-846-6127 rather than the 313-846-6127 used in some areas.
  14. ;
  15. ;
  16. ;    TO USE: First edit this file filling in answers for your own
  17. ;        equipment.  Then assemble with ASM.COM or equivalent
  18. ;        assembler.
  19. ;
  20. ;        A>MLOAD IMP2.COM=IMP240.COM,I2NM-1.HEX
  21. ;
  22. ; NOTE: For those revising the main program, check the location of
  23. ;       NUMBLIB to see if the ORG value used here is correct.  If
  24. ;       not, change as needed.
  25. ;
  26. ;=======================================================================
  27. ;
  28. ; 08/20/85 - Added optional delay for dial tone - Irv Hoff
  29. ; 06/01/85 - First version for IMP2        - Irv Hoff
  30. ;
  31. ;=======================================================================
  32. ;
  33. ;
  34. YES    EQU    0FFH
  35. NO    EQU    0
  36. ;
  37. WTDIAL    EQU    5    ; Tenths-seconds to wait for dial tone after
  38.             ;   busy signal, minimum size redials quicker.
  39.             ;   Use 10 for 1 second, 15 for 1-1/2, etc.
  40. XFRSIZ    EQU    16    ; File transfer buffer in Kbytes.  Do not make
  41.             ;   any larger than BUFSIZ.  16k works fine on
  42.             ;   but slowest systems.
  43. ;
  44.     ORG    0C00H-50  ;so 'NUMLIB' starts on even page
  45. ;
  46. ;=======================================================================
  47. ;
  48. ; Long distance alternate dialing such as MCI, SPRINT, etc.  Must end
  49. ; with a '$', use as many commas (2 seconds delay, each) as needed to
  50. ; let the alternate dialing code return with a new dial tone.  Fill in
  51. ; any character (periods are fine) after the $ to keep number of columns
  52. ; to 24, i.e.,    '1234567,,,,12345,,$.....'   --   the first group is the
  53. ; MCI or SPRINT access number, the second group is the user number.  A
  54. ; small delay is usually required after the billing number also.
  55. ;
  56. ALTDIAL1:DB    'xxxxxxx,,,,,,xxxxxxxx,,$'   ;accessed by a < character
  57. ALTDIAL2:DB    'xxxxxxx,,,,,,xxxxxxxx,,$'   ;accessed by a > character
  58. ;
  59. ;=======================================================================
  60. ;
  61. DIALWT:    DB    WTDIAL        ; Waits for dial tone after busy signal
  62. SAVSIZ:    DB    XFRSIZ*8    ; Can easily change buffer size for file
  63.                 ;   transfers with DDT for "NUMBLIB-1"
  64.                 ;   address.
  65. ;
  66. ;=======================================================================
  67. ;
  68. ; Phone number library table for auto-dialing.    Each number must be as
  69. ; long as"LIBLEN" (EQU at start of program).  Some areas require extra
  70. ; characters such as:    1-313-846-7127.  Room is left for those.  Use
  71. ; a (<) for alternate dialing system #1, and a (>) for alternate dialing
  72. ; System #2.  Either would preceed the actual number, for example:
  73. ;
  74. ;    DB    'A=Alan Alda..........<123-456-7890'    ;'A'
  75. ;
  76. ; -    -     -     -      -    -     -     -      -    -     -     -
  77. ;
  78. ; NOTE: At least one dot (.) MUST precede the actual phone number
  79. ;
  80. ;        '----5---10---15---20---25---30--34'
  81. NUMBLIB:DB    'A=Abel Iwaz.........1-818-956-6164' ; 'A'
  82.     DB    'B=Norman Beeler.....1-408-245-1420' ; 'B'
  83.     DB    'C=Bob Clyne.........1-313-759-6569' ; 'C'
  84.     DB    'D=Bob Dean..........1-215-623-4040' ; 'D'
  85.     DB    'E=Peter Essl........1-215-356-0860' ; 'E'
  86.     DB    'F=Bill Earnest......1-215-398-3937' ; 'F'
  87.     DB    'G=Norm Gregory......1-206-325-1325' ; 'G'
  88.     DB    'H=Dave Hardy TCBBS..1-313-846-6127' ; 'H'
  89.     DB    'I=Gary Inman........1-213-838-9229' ; 'I'
  90.     DB    'J=Al Jewer..........1-414-563-9932' ; 'J'
  91.     DB    'K=Kevin Murphy......1-415-949-1072' ; 'K'
  92.     DB    'L=Tim Linehan.......1-206-357-1325' ; 'L'
  93.     DB    'M=Trevor Marshall...1-805-492-5472' ; 'M'
  94.     DB    'N=Al Mehr...........1-408-238-9621' ; 'N'
  95.     DB    'O=Chuck Metz........1-408-354-5934' ; 'O'
  96.     DB    'P=PRACSA RCPM.......1-415-948-2513' ; 'P'
  97.     DB    'Q=Mitch Orysh.......1-408-559-8843' ; 'Q'
  98.     DB    'R=Ken Reid..........1-713-937-8886' ; 'R'
  99.     DB    'S=Ken Stritzel......1-312-983-5147' ; 'S'
  100.     DB    'T=Douglas Thom......1-408-253-1309' ; 'T'
  101.     DB    'U=..................1-xxx-xxx-xxxx' ; 'U'
  102.     DB    'V=..................1-xxx-xxx-xxxx' ; 'V'
  103.     DB    'W=Clay Walker.......1-408-733-4670' ; 'W'
  104.     DB    'X=..................1-xxx-xxx-xxxx' ; 'X'
  105.     DB    'Y=..................1-xxx-xxx-xxxx' ; 'Y'
  106.     DB    'Z=Znode Central.....1-415-948-6656' ; 'Z'
  107.     DB    '0=Ernest Dryden.....1-615-292-0710' ; '0'
  108.     DB    '1=Tom Ensminger.....1-513-879-6263' ; '1'
  109.     DB    '2=Ben Grey..........1-503-644-4621' ; '2'
  110.     DB    '3=Adam Heath........1-617-776-6029' ; '3'
  111.     DB    '4=Dave Holmes.......1-804-898-7493' ; '4'
  112.     DB    '5=Erwin Reyer.......1-802-393-7399' ; '5'
  113.     DB    '6=Larry Snyder......1-305-677-8086' ; '6'
  114.     DB    '7=Pete Zuroff.......1-201-942-2576' ; '7'
  115.     DB    '8=Spare.............1-xxx-xxx-xxxx' ; '8'
  116.     DB    '9=Spare.............1-xxx-xxx-xxxx' ; '9'
  117.     DB    0        ; End
  118. ;        '----5---10---15---20---25---30--34'
  119. ;
  120. ;;;;    END    ; (read the note just below this line)
  121. ;
  122. ; NOTE: IF YOU DO NOT (REPEAT DO NOT) WANT THE FUNCTION KEY ASSIGNMENTS
  123. ;    BELOW TO GO INTO THE PROGRAM AT THE SAME TIME, REMOVE THE SEMI-
  124. ;    COLONS SO THE WORD "END" IS ACTIVATED.    IF THE SEMICOLONS ARE
  125. ;    NOT THERE AT PRESENT, ADDING A FEW AHEAD OF THE "END" LINE WILL
  126. ;    ALLOW THE FUNCTION KEY ASSIGNMENTS TO BE ENTERED.
  127. ;
  128. ;
  129. ; IMP240 function key overlay
  130. ;
  131. CIRCUM    EQU    5EH        ; Circumflex character displays on CRT
  132. ESC    EQU    1BH        ; Escape character, if you prefer
  133. CR    EQU    0DH
  134. ;
  135. ;
  136. INTCPT:    DB    ESC        ; Intercept character (prefix)
  137. ;
  138. ;
  139. ; The total characters, indluding CR, 0, etc. is limited to 256.  Use
  140. ; I2FUNC.COM to make fast and easy changes of any or all function key
  141. ; assignments.    You can change any of them to suit your own purposes,
  142. ; using the ones below as an example.
  143. ;
  144. FNCTBL:
  145. KEY1:    DB    0,'DIR ',CR,0
  146. KEY2:    DB    1,'DIR *.* $U0AD ',CR,0
  147. KEY3:    DB    2,'KMD S ',0
  148. KEY4:    DB    3,'KMD R ',0
  149. KEY5:    DB    4,'BYE ',CR,0
  150. KEY6:    DB    5,'BBS ',CR,0
  151. KEY7:    DB    6,'(vacant)',0
  152. KEY8:    DB    7,'(vacant)',0
  153. KEY9:    DB    8,'(vacant)',0
  154. KEY0:    DB    9,'Nice chatting, see you again soon... ',CR,0
  155. ;
  156.     DS    256-($-FNCTBL)    ; Shows characters remaining to 11CA
  157. TBLEND    EQU    $        ; The table must terminate by 11CA
  158.  
  159.     END
  160.