
; 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=Norman Beeler.....1-408-245-1420' ; 'A'
	DB	'B=Rich Berg.........1-618-359-4446' ; 'B'
	DB	'C=Robert Blacher....1-202-254-2008' ; 'C'
	DB	'D=Brian Callahan....1-718-625-5931' ; 'D'
	DB	'E=Bob Clyne.........1-313-759-6569' ; '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=Jeff King.........1-408-247-2853' ; 'I'
	DB	'J=Kim Levitt........1-213-653-6398' ; 'J'
	DB	'K=Tim Linehan.......1-206-357-1325' ; 'K'
	DB	'L=Jim Lopushinski...1-403-484-5981' ; 'L'
	DB	'M=Trevor Marshall...1-805-492-5472' ; 'M'
	DB	'N=Wayne Masters.....1-408-378-7474' ; 'N'
	DB	'O=Paul Matlin.......1-301-661-2175' ; 'O'
	DB	'P=Dave McCord ZCPR3.1-415-489-9005' ; 'P'
	DB	'Q=Byron McKary......1-408-965-4097' ; 'Q'
	DB	'R=Dick Mead.........1-818-799-1632' ; 'R'
	DB	'S=Chuck Metz........1-408-354-5934' ; 'S'
	DB	'T=Al Mehr...........1-408-238-9621' ; 'T'
	DB	'U=Jud Newell........1-416-232-0442' ; 'U'
	DB	'V=George Peace......1-717-657-8699' ; 'V'
	DB	'W=John Riehl........1-713-488-5619' ; 'W'
	DB	'X=Gary Shaffstall...1-303-985-1108' ; 'X'
	DB	'Y=Murray Simsolo....1-516-825-8465' ; 'Y'
	DB	'Z=Larry Snyder......1-305-677-8086' ; 'Z'
	DB	'0=John Sojak........1-312-941-0049' ; '0'
	DB	'1=Alex Soya.........1-305-727-0331' ; '1'
	DB	'2=Ken Stritzel......1-201-584-9227' ; '2'
	DB	'3=Henry Trujilio....1-207-443-4657' ; '3'
	DB	'4=Bill Wood.........1-619-256-3914' ; '4'
	DB	'5=Spare.............1-xxx-xxx-xxxx' ; '5'
	DB	'6=Spare.............1-xxx-xxx-xxxx' ; '6'
	DB	'7=Spare.............1-xxx-xxx-xxxx' ; '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
;
; 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,'RBBS ',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
