; I2NM-2.ASM Telephone number overlay file for IMP2 - 08/20/85 ; ; ; This file can be edited to make a new library of telephone numbers. ; Each entry must be 34 bytes long. 36 telephone numbers are allowed, ; (A-Z and 0-9). Follow the format for the library entries already in ; the file. (Be sure to use spaces, not tabs.) ; ; At least 1 period (.) must precede each phone number in the table. ; ; Room has been left if your phone system requires extra characters such ; as: 1-313-846-6127 rather than the 313-846-6127 used in some areas. ; ; ; TO USE: First edit this file filling in answers for your own ; equipment. Then assemble with ASM.COM or equivalent ; assembler. ; ; A>MLOAD IMP2.COM=IMP240.COM,I2NM-1.HEX ; ; NOTE: For those revising the main program, check the location of ; NUMBLIB to see if the ORG value used here is correct. If ; not, change as needed. ; ;======================================================================= ; ; 08/20/85 - Added optional delay for dial tone - Irv Hoff ; 06/01/85 - First version for IMP2 - Irv Hoff ; ;======================================================================= ; ; YES EQU 0FFH NO EQU 0 ; WTDIAL EQU 5 ; Tenths-seconds to wait for dial tone after ; busy signal, minimum size redials quicker. ; Use 10 for 1 second, 15 for 1-1/2, etc. XFRSIZ EQU 16 ; File transfer buffer in Kbytes. Do not make ; any larger than BUFSIZ. 16k works fine on ; but slowest systems. ; ORG 0C00H-50 ;so 'NUMLIB' starts on even page ; ;======================================================================= ; ; Long distance alternate dialing such as MCI, SPRINT, etc. Must end ; with a '$', use as many commas (2 seconds delay, each) as needed to ; let the alternate dialing code return with a new dial tone. Fill in ; any character (periods are fine) after the $ to keep number of columns ; to 24, i.e., '1234567,,,,12345,,$.....' -- the first group is the ; MCI or SPRINT access number, the second group is the user number. A ; small delay is usually required after the billing number also. ; ALTDIAL1:DB 'xxxxxxx,,,,,,xxxxxxxx,,$' ;accessed by a < character ALTDIAL2:DB 'xxxxxxx,,,,,,xxxxxxxx,,$' ;accessed by a > character ; ;======================================================================= ; DIALWT: DB WTDIAL ; Waits for dial tone after busy signal SAVSIZ: DB XFRSIZ*8 ; Can easily change buffer size for file ; transfers with DDT for "NUMBLIB-1" ; address. ; ;======================================================================= ; ; Phone number library table for auto-dialing. Each number must be as ; long as"LIBLEN" (EQU at start of program). Some areas require extra ; characters such as: 1-313-846-7127. Room is left for those. Use ; a (<) for alternate dialing system #1, and a (>) for alternate dialing ; System #2. Either would preceed the actual number, for example: ; ; DB 'A=Alan Alda..........<123-456-7890' ;'A' ; ; - - - - - - - - - - - - ; ; NOTE: At least one dot (.) MUST precede the actual phone number ; ; '----5---10---15---20---25---30--34' NUMBLIB:DB 'A=Abel Iwaz.........1-818-956-6164' ; 'A' DB 'B=Norman Beeler.....1-408-245-1420' ; 'B' DB 'C=Bob Clyne.........1-313-759-6569' ; 'C' DB 'D=Bob Dean..........1-215-623-4040' ; 'D' DB 'E=Peter Essl........1-215-356-0860' ; 'E' DB 'F=Bill Earnest......1-215-398-3937' ; 'F' DB 'G=Norm Gregory......1-206-325-1325' ; 'G' DB 'H=Dave Hardy TCBBS..1-313-846-6127' ; 'H' DB 'I=Gary Inman........1-213-838-9229' ; 'I' DB 'J=Al Jewer..........1-414-563-9932' ; 'J' DB 'K=Kevin Murphy......1-415-949-1072' ; 'K' DB 'L=Tim Linehan.......1-206-357-1325' ; 'L' DB 'M=Trevor Marshall...1-805-492-5472' ; 'M' DB 'N=Al Mehr...........1-408-238-9621' ; 'N' DB 'O=Chuck Metz........1-408-354-5934' ; 'O' DB 'P=PRACSA RCPM.......1-415-948-2513' ; 'P' DB 'Q=Mitch Orysh.......1-408-559-8843' ; 'Q' DB 'R=Ken Reid..........1-713-937-8886' ; 'R' DB 'S=Ken Stritzel......1-312-983-5147' ; 'S' DB 'T=Douglas Thom......1-408-253-1309' ; 'T' DB 'U=..................1-xxx-xxx-xxxx' ; 'U' DB 'V=..................1-xxx-xxx-xxxx' ; 'V' DB 'W=Clay Walker.......1-408-733-4670' ; 'W' DB 'X=..................1-xxx-xxx-xxxx' ; 'X' DB 'Y=..................1-xxx-xxx-xxxx' ; 'Y' DB 'Z=Znode Central.....1-415-948-6656' ; 'Z' DB '0=Ernest Dryden.....1-615-292-0710' ; '0' DB '1=Tom Ensminger.....1-513-879-6263' ; '1' DB '2=Ben Grey..........1-503-644-4621' ; '2' DB '3=Adam Heath........1-617-776-6029' ; '3' DB '4=Dave Holmes.......1-804-898-7493' ; '4' DB '5=Erwin Reyer.......1-802-393-7399' ; '5' DB '6=Larry Snyder......1-305-677-8086' ; '6' DB '7=Pete Zuroff.......1-201-942-2576' ; '7' DB '8=Spare.............1-xxx-xxx-xxxx' ; '8' DB '9=Spare.............1-xxx-xxx-xxxx' ; '9' DB 0 ; End ; '----5---10---15---20---25---30--34' ; ;;;; END ; (read the note just below this line) ; ; NOTE: IF YOU DO NOT (REPEAT DO NOT) WANT THE FUNCTION KEY ASSIGNMENTS ; BELOW TO GO INTO THE PROGRAM AT THE SAME TIME, REMOVE THE SEMI- ; COLONS SO THE WORD "END" IS ACTIVATED. IF THE SEMICOLONS ARE ; NOT THERE AT PRESENT, ADDING A FEW AHEAD OF THE "END" LINE WILL ; ALLOW THE FUNCTION KEY ASSIGNMENTS TO BE ENTERED. ; ; ; IMP240 function key overlay ; CIRCUM EQU 5EH ; Circumflex character displays on CRT ESC EQU 1BH ; Escape character, if you prefer CR EQU 0DH ; ; INTCPT: DB ESC ; Intercept character (prefix) ; ; ; The total characters, indluding CR, 0, etc. is limited to 256. Use ; I2FUNC.COM to make fast and easy changes of any or all function key ; assignments. You can change any of them to suit your own purposes, ; using the ones below as an example. ; FNCTBL: KEY1: DB 0,'DIR ',CR,0 KEY2: DB 1,'DIR *.* $U0AD ',CR,0 KEY3: DB 2,'KMD S ',0 KEY4: DB 3,'KMD R ',0 KEY5: DB 4,'BYE ',CR,0 KEY6: DB 5,'BBS ',CR,0 KEY7: DB 6,'(vacant)',0 KEY8: DB 7,'(vacant)',0 KEY9: DB 8,'(vacant)',0 KEY0: DB 9,'Nice chatting, see you again soon... ',CR,0 ; DS 256-($-FNCTBL) ; Shows characters remaining to 11CA TBLEND EQU $ ; The table must terminate by 11CA END