_MODEM.asm

	JP	LF8B6
	DEFB	#00,#00
LF61D	DEFB	"T","R","A"
	DEFB	"N","S","M"
	DEFB	"I","T"," "
	DEFB	#01
LF627	DEFB	"R","E","C"
	DEFB	"E","I","V"
	DEFB	"E"," ",#01
	DEFB	#00
LF631	DEFB	" ","C","o"
	DEFB	"p","y","r"
	DEFB	"i","g","h"
	DEFB	"t"," "," "
	DEFB	"D",".","J"
	DEFB	"o","v","a"
	DEFB	"n","o","v"
	DEFB	"i","c"," "
	DEFB	" ","1","9"
	DEFB	"8","5"," "
	DEFB	" "," "," "
	DEFB	" "," "," "
	DEFB	" "," ","A"
	DEFB	"l","l"," "
	DEFB	"r","i","g"
	DEFB	"h","t","s"
	DEFB	" ","r","e"
	DEFB	"s","e","r"
	DEFB	"v","e","d"
	DEFB	" "," "," "
	DEFB	" "," "," "
	DEFB	" "," "," "
	DEFB	#84,#8C,#8C
	DEFB	" ",#88," "
	DEFB	#88," "," "
	DEFB	" "," ",#88
	DEFB	" ",#88," "
	DEFB	#8C,#88," "
	DEFB	#8C,#8C," "
	DEFB	#84,#8C,#8C
	DEFB	" ",#88," "
	DEFB	#88," "," "
	DEFB	" "," "," "
	DEFB	#84,#82," "
	DEFB	#81,#89," "
	DEFB	" "," "," "
	DEFB	" ",#8B,#89
	DEFB	#8A,#85," "
	DEFB	#85," ",#8A
	DEFB	" ",#8A,#85
	DEFB	#8C,#88," "
	DEFB	#8B,#89,#8A
	DEFB	" "," "," "
	DEFB	" ",#84,#8E
	DEFB	#8C," ",#89
	DEFB	#81,#88," "
	DEFB	" "," "," "
	DEFB	#8A," ",#8A
	DEFB	#81,#8C,#89
	DEFB	" ",#8E,#8C
	DEFB	#82,#85,#8C
	DEFB	#8C," ",#8A
	DEFB	" ",#8A," "
	DEFB	" "," "," "
	DEFB	" "," "," "
	DEFB	" "," "," "
	DEFB	" "," "," "
	DEFB	" "," "," "
	DEFB	" "," "," "
	DEFB	" "," "," "
	DEFB	" "," "," "
	DEFB	" "," "," "
	DEFB	" "," "," "
	DEFB	" "," "," "
	DEFB	"C","C","I"
	DEFB	"T","T","-"
	DEFB	"V","2","4"
	DEFB	" ","s","t"
	DEFB	"a","n","d"
	DEFB	"a","r","d"
	DEFB	" "," "," "
	DEFB	" "," "," "
	DEFB	" "," "," "
	DEFB	" "," "," "
	DEFB	" "," ","N"
	DEFB	"O"," ","s"
	DEFB	"t","o","p"
	DEFB	" ","b","i"
	DEFB	"t","s"," "
	DEFB	";","1"," "
	DEFB	"s","t","a"
	DEFB	"r","t"," "
	DEFB	"b","i","t"
	DEFB	" "," "," "
	DEFB	" "," "," "
	DEFB	" ","P","a"
	DEFB	"r","i","t"
	DEFB	"y",":"," "
	DEFB	" "," ","O"
	DEFB	"D","D",";"
	DEFB	"E","V","E"
	DEFB	"N"," ","("
	DEFB	"P"," ","t"
	DEFB	"o"," ","s"
	DEFB	"e","l","e"
	DEFB	"c","t",")"
	DEFB	"B","a","u"
	DEFB	"d"," ","r"
	DEFB	"a","t","e"
	DEFB	":","6","0"
	DEFB	"0",";","1"
	DEFB	"2","0","0"
	DEFB	" ","(","B"
	DEFB	" ","t","o"
	DEFB	" ","s","e"
	DEFB	"l","e","c"
	DEFB	"t",")","1"
	DEFB	"2","0","0"
	DEFB	" ","H","z"
	DEFB	" ","H","I"
	DEFB	"G","H"," "
	DEFB	"b","i","t"
	DEFB	";","2","4"
	DEFB	"0","0"," "
	DEFB	"H","z"," "
	DEFB	"L","O","W"
	DEFB	" ","b","i"
	DEFB	"t"," "," "
	DEFB	" "," "," "
	DEFB	" "," "," "
	DEFB	" "," "," "
	DEFB	" "," "," "
	DEFB	" "," "," "
	DEFB	" "," "," "
	DEFB	" "," "," "
	DEFB	" "," "," "
	DEFB	" "," "," "
	DEFB	" "," "," "
	DEFB	" "," "," "
	DEFB	" "," "," "
	DEFB	" "," "," "
	DEFB	" "," "," "
	DEFB	" "," ","P"
	DEFB	"r","e","s"
	DEFB	"s"," "," "
	DEFB	" "," "," "
	DEFB	" "," "," "
	DEFB	" "," "," "
	DEFB	" "," "," "
	DEFB	" "," "," "
	DEFB	" "," "," "
	DEFB	" "," "," "
	DEFB	" "," "," "
	DEFB	" "," "," "
	DEFB	" "," "," "
	DEFB	" "," "," "
	DEFB	" "," "," "
	DEFB	" "," "," "
	DEFB	" "," "," "
	DEFB	" "," ","T"
	DEFB	" ","f","o"
	DEFB	"r"," ","t"
	DEFB	"r","a","n"
	DEFB	"s","m","i"
	DEFB	"t"," ",";"
	DEFB	" ","R"," "
	DEFB	"f","o","r"
	DEFB	" ","r","e"
	DEFB	"c","e","i"
	DEFB	"v","e"," "
	DEFB	" ","(","T"
	DEFB	"r","a","n"
	DEFB	"s","m","i"
	DEFB	"t"," ","x"
	DEFB	",","y",")"
	DEFB	" ",";"," "
	DEFB	"(","R","e"
	DEFB	"c","e","i"
	DEFB	"v","e"," "
	DEFB	"x",")"," "
	DEFB	" "," "," "
	DEFB	" "," "," "
	DEFB	" "," "," "
	DEFB	" "," "," "
	DEFB	" "," "," "
	DEFB	" "," "," "
	DEFB	" "," "," "
	DEFB	" "," "," "
	DEFB	" "," "," "
	DEFB	" "," "," "
	DEFB	" "," "," "
	DEFB	" ","x"," "
	DEFB	"="," ","s"
	DEFB	"t","a","r"
	DEFB	"t"," ","a"
	DEFB	"d","d","r"
	DEFB	"e","s","s"
	DEFB	" "," "," "
	DEFB	" "," "," "
	DEFB	" "," "," "
	DEFB	" "," "," "
	DEFB	" "," "," "
	DEFB	"y"," ","="
	DEFB	" ","l","e"
	DEFB	"n","g","t"

	DEFB	"h"," "," "
	DEFB	" "," "," "
	DEFB	" "," "," "
	DEFB	" "," "," "
	DEFB	" "," "," "
	DEFB	" "," "," "
	DEFB	" "," "," "
	DEFB	" "," "," "
	DEFB	" "," "," "
	DEFB	" "," "," "
	DEFB	" "," "," "
	DEFB	" "," "," "
	DEFB	" "," "," "
	DEFB	" "," "," "
	DEFB	" "," "," "
	DEFB	" "," "," "
	DEFB	" "," "," "
	DEFB	" "," "," "
	DEFB	" ",#00," "
	DEFB	" "," "," "
LF8B6	LD	HL,#5CB2
	LD	A,#17
	LD	(HL),A
	INC	HL
	LD	A,#F6
	LD	(HL),A
LF8C0	CALL	LFA81
	XOR	A
	LD	(#5C8C),A
	LD	B,#16
LF8C9	LD	A,#0D
	RST	#10
	DJNZ	LF8C9
LF8CE	LD	BC,LFBFE
	IN	A,(C)
	BIT	4,A
	JR	Z,LF8C0
	BIT	3,A
	JR	Z,LF8C0
	CALL	LFB4B
	JR	NZ,LF8CE
	RET
LF8E1	LD	HL,#592A
	LD	A,(HL)
	CP	#78
	JR	Z,LF8FA
	CALL	LF913
	LD	A,#78
	CALL	LF90D
	LD	A,#38
	INC	HL
	INC	HL
	CALL	LF90B
	XOR	A
	RET
LF8FA	CALL	LF93F
	LD	A,#38
	CALL	LF90D
	LD	A,#78
	INC	HL
	INC	HL
	CALL	LF90B
	XOR	A
	RET
LF90B	LD	(HL),A
	INC	HL
LF90D	LD	(HL),A
	INC	HL
	LD	(HL),A
	INC	HL
	LD	(HL),A
	RET
LF913	LD	A,#02
	LD	(LFC8E),A
	LD	A,#04
	LD	(LFCA3),A
	LD	A,#02
	LD	(LFBED),A
	LD	A,#F5
	LD	(LFBF4),A
	LD	A,#81
	LD	(LFC00),A
	LD	A,#CD
	LD	(LFBFA),A
	LD	(LFC06),A
	LD	A,#B9
	LD	(LFC0C),A
	LD	A,#96
	LD	(LF9CA),A
	RET
LF93F	LD	A,#01
	LD	(LFC8E),A
	LD	A,#02
	LD	(LFCA3),A
	LD	A,#01
	LD	(LFBED),A
	LD	A,#14
	LD	(LFBF4),A
	LD	A,#46
	LD	(LFC00),A
	LD	A,#3A
	LD	(LFBFA),A
	LD	(LFC06),A
	LD	A,#7D
	LD	(LFC0C),A
	LD	A,#1E
	LD	(LF9CA),A
	RET
LF96B	LD	HL,#590A
	LD	A,(HL)
	CP	#78
	JR	Z,LF984
	CALL	LF995
	LD	A,#78
	CALL	LF90D
	LD	A,#38
	INC	HL
	INC	HL
	CALL	LF90B
	XOR	A
	RET
LF984	CALL	LF9AF
	LD	A,#38
	CALL	LF90D
	LD	A,#78
	INC	HL
	INC	HL
	CALL	LF90B
	XOR	A
	RET
LF995	LD	A,#E4
	LD	(LFC71),A
	LD	A,#EC
	LD	(LFC74),A
	LD	A,#EA
	LD	(LFBD6),A
	LD	A,#E2
	LD	(LFBDD),A
	LD	A,#0A
	LD	(LF9C9),A
	RET
LF9AF	LD	A,#E4
	LD	(LFC74),A
	LD	A,#EC
	LD	(LFC71),A
	LD	A,#EA
	LD	(LFBDD),A
	LD	A,#E2
	LD	(LFBD6),A
	LD	A,#09
	LD	(LF9C9),A
	RET
LF9C9	LD	A,(BC)
LF9CA	LD	E,#3E
	LD	(BC),A
	CALL	#1601
	LD	DE,LF631
LF9D3	LD	A,(DE)
	CP	#00
	JR	Z,LF9E0
	CP	#01
	JR	Z,LFA30
	RST	#10
	INC	DE
	JR	LF9D3
LF9E0	LD	A,(LF9CA)
	CP	#1E
	JR	Z,LF9EC
	CALL	LF8E1
	JR	LF9F2
LF9EC	LD	HL,#592A
	CALL	LF8FA
LF9F2	LD	A,(LF9C9)
	CP	#09
	JR	Z,LF9FE
	CALL	LF96B
	JR	LFA04
LF9FE	LD	HL,#590A
	CALL	LF984
LFA04	CALL	LFA87
	CP	#74
	JR	Z,LFA22
	CP	#62
	CALL	Z,LF8E1
	CP	#70
	CALL	Z,LF96B
	CP	#00
	JR	Z,LFA04
	CP	#72
	JR	Z,LFA29
	CP	#20
	RET	Z
	JR	LFA81
LFA22	LD	DE,LF61D
	LD	C,#00
	JR	LF9D3
LFA29	LD	DE,LF627
	LD	C,#01
	JR	LF9D3
LFA30	LD	HL,#0000
LFA33	CALL	LFA87
	CP	#0C
	JR	Z,LFA81
	CP	#0D
	JR	Z,LFA65
	PUSH	AF
	RST	#10
	POP	AF
	CP	#2C
	JR	Z,LFA59
	SUB	#30
	CP	#0A
	JP	P,LFA81
	PUSH	HL
	POP	DE
	LD	B,#09
LFA50	ADD	HL,DE
	DJNZ	LFA50
	LD	D,#00
	LD	E,A
	ADD	HL,DE
	JR	LFA33
LFA59	CALL	LFAE8
	LD	A,C
	CP	#00
	LD	C,#0A
	JR	Z,LFA30
	JR	LFA81
LFA65	PUSH	AF
	LD	DE,#5A80
	LD	B,#20
	LD	A,#78
LFA6D	LD	(DE),A
	INC	DE
	DJNZ	LFA6D
	POP	AF
	LD	A,C
	CP	#0A
	PUSH	AF
	CALL	Z,LFAF1
	POP	AF
	JP	Z,LFC17
	CP	#01
	JR	Z,LFA96
LFA81	CALL	#0DAF
	JP	LF9CB
LFA87	PUSH	HL
	LD	HL,#5C3B
LFA8B	BIT	5,(HL)
	JR	Z,LFA8B
	LD	A,(#5C08)
	RES	5,(HL)
	POP	HL
	RET
LFA96	DI
	LD	B,#00
	CALL	LFB55
	CALL	LFB64
	PUSH	BC
	LD	A,#2C
	RST	#10
	XOR	A
	CALL	LFABD
	LD	A,#20
	RST	#10
	LD	A,#45
	RST	#10
	LD	A,#52
	RST	#10
	LD	A,#52
	RST	#10
	LD	A,#4F
	RST	#10
	LD	A,#52
	RST	#10
	LD	A,#20
	RST	#10
	POP	HL
LFABD	LD	DE,#0001
	PUSH	DE
	LD	DE,#000A
	PUSH	DE
	LD	DE,#0064
	PUSH	DE
	LD	DE,#03E8
	PUSH	DE
	LD	DE,#2710
	PUSH	DE
	LD	B,#05
LFAD3	XOR	A
	POP	DE
LFAD5	PUSH	HL
	SBC	HL,DE
	JP	M,LFAE1
	INC	A
	EX	AF,AF'
	POP	AF
	EX	AF,AF'
	JR	LFAD5
LFAE1	ADD	A,#30
	POP	HL
	RST	#10

	DJNZ	LFAD3
	RET
LFAE8	LD	A,H
	LD	(LFC27),A
	LD	A,L
	LD	(LFC26),A
	RET
LFAF1	LD	A,(LFC27)
	LD	D,A
	LD	A,(LFC26)
	LD	E,A
	ADD	HL,DE
	LD	A,H
	LD	(LFC2D),A
	LD	A,L
	LD	(LFC2C),A
	RET
LFB03	LD	IX,(#5C0B)
	LD	L,(IX+4)
	LD	H,(IX+5)
	LD	E,(IX+12)
	LD	D,(IX+13)
	RET
	CALL	LFB03
	CALL	LFAE8
	PUSH	DE
	POP	HL
	CALL	LFAF1
LFB1F	LD	B,#00
	LD	E,A
LFB22	IN	A,(#FD)
	AND	#80
	CP	E
	JR	NZ,LFB1F
	DJNZ	LFB22
	LD	B,#0A
	JP	LFC17
	CALL	LFB03
	DI
	LD	B,#0A
	CALL	LFB55
	CALL	LFB64
	PUSH	BC
	PUSH	HL
	POP	BC
	POP	HL
	LD	DE,#0001
	AND	A
	SBC	HL,DE
	RET	M
	LD	BC,#0000
	RET
LFB4B	PUSH	BC
	LD	BC,#7FFE
	IN	A,(C)
	BIT	0,A
	POP	BC
	RET
LFB55	CALL	LFB4B
	RET	Z
	IN	A,(#FD)
	AND	#80
	CP	E
	JR	Z,LFB55
	LD	E,A
	DJNZ	LFB55
	RET
LFB64	PUSH	IX
	PUSH	IY
	PUSH	HL
	POP	IX
	LD	IY,#0000
LFB6F	PUSH	HL
	LD	HL,#0000
	LD	BC,#0000
LFB76	LD	D,#80
	IN	A,(#FD)
	AND	#80
LFB7C	LD	E,A
	LD	B,#00
LFB7F	IN	A,(#FD)
	AND	#80
	CP	E
	JR	NZ,LFB97
	DJNZ	LFB7F
	POP	HL
	PUSH	IY
	POP	BC
	PUSH	IX
	POP	DE
	POP	IY
	POP	IX
	SBC	HL,DE
	EI
	RET
LFB97	SLA	D
	JP	C,LFB7C
	LD	A,#E9
	CP	B
	JP	P,LFBAF
	XOR	A
	CP	C
	JP	NZ,LFBC4
	LD	C,#01
	CALL	LFBEC
	JP	LFB76
LFBAF	XOR	A
	CP	C
	JP	Z,LFB76
	INC	HL
	CALL	LFBF8
	LD	A,#09
	CP	L
	JP	Z,LFBD4
	SCF
	RR	H
	JP	LFB76
LFBC4	INC	HL
	CALL	LFC04
	LD	A,#09
	CP	L
	JP	Z,LFBDB
	AND	A
	RR	H
	JP	LFB76
LFBD4	XOR	A
	OR	H
LFBD6	JP	PE,LFBE2
	JR	LFBE8
LFBDB	XOR	A
	OR	H
LFBDD	JP	PO,LFBE2
	JR	LFBE8
LFBE2	POP	HL
	LD	(HL),A
	INC	HL
	JP	LFB6F
LFBE8	INC	IY
	JR	LFBE2
LFBEC	LD	B,#01
LFBEE	CALL	LFC10
	DJNZ	LFBEE
	LD	B,#14
LFBF5	DJNZ	LFBF5
	RET
LFBF8	LD	B,#01
LFBFA	LD	A,(LFC10)
	DJNZ	LFC06
	LD	B,#46
LFC01	DJNZ	LFC01
	RET
LFC04	LD	B,#01
LFC06	LD	A,(LFC10)
	DJNZ	LFC06
	LD	B,#7D
LFC0D	DJNZ	LFC0D
	RET
LFC10	PUSH	BC
	LD	B,#A0
LFC13	DJNZ	LFC13
	POP	BC
	RET
LFC17	DI
LFC18	PUSH	BC
	LD	B,#04
LFC1B	EXX
	CALL	LFC8D
	EXX
	DJNZ	LFC1B
	POP	BC
	DJNZ	LFC18
	LD	HL,#0000
LFC28	CALL	LFCA1
	LD	DE,#03E8
	XOR	A
	BIT	0,(HL)
	CALL	Z,LFCA1
	CALL	NZ,LFC8D
	BIT	1,(HL)
	CALL	Z,LFCA1
	CALL	NZ,LFC8D
	BIT	2,(HL)
	CALL	Z,LFCA1
	CALL	NZ,LFC8D
	BIT	3,(HL)
	CALL	Z,LFCA1
	CALL	NZ,LFC8D
	BIT	4,(HL)
	CALL	Z,LFCA1
	CALL	NZ,LFC8D
	BIT	5,(HL)
	CALL	Z,LFCA1
	CALL	NZ,LFC8D
	BIT	6,(HL)
	CALL	Z,LFCA1
	CALL	NZ,LFC8D
	BIT	7,(HL)
	CALL	Z,LFCA1
	CALL	NZ,LFC8D
	OR	(HL)
	EX	DE,HL
LFC71	CALL	PO,LFCA1
LFC74	CALL	PE,LFC8D
	INC	DE
	SBC	HL,DE
	CALL	LFC8D
	EX	DE,HL
	JP	NZ,LFC28
	CALL	LFC8D
	IN	A,(#FD)
	EI
	RET
LFC88	CALL	LFCD6
	JR	LFC8F
LFC8D	LD	B,#01
LFC8F	IN	A,(#FD)
	CALL	LFCB2
	OUT	(#FD),A
	CALL	LFCB9
	DJNZ	LFC88
	RET
LFC9C	CALL	LFCD4
	JR	LFCA4
LFCA1	PUSH	AF
	LD	B,#02
LFCA4	IN	A,(#FD)
	CALL	LFCC2
	OUT	(#FD),A
	CALL	LFCCA
	DJNZ	LFC9C
	POP	AF
	RET
LFCB2	PUSH	BC
	LD	B,#6B
LFCB5	DJNZ	LFCB5
	POP	BC
	RET
LFCB9	PUSH	BC
	LD	B,#69
LFCBC	DJNZ	LFCBC
	LD	A,#00
	POP	BC
	RET
LFCC2	PUSH	BC
	LD	B,#33
LFCC5	DJNZ	LFCC5
	POP	BC
	XOR	A
	RET
LFCCA	PUSH	BC
	LD	B,#2C
LFCCD	DJNZ	LFCCD
	POP	BC
	LD	A,#00
	NOP
	RET
LFCD4	PUSH	BC
	POP	BC
LFCD6	LD	A,#00
	LD	A,#00
	RET
	NOP