.z80
	.phase	4000h

c4000:	jp	c4F00

	db	7Fh,7Fh,'R11TERM',1

c400D:	di
	ld	a,(bB7A3)
	ld	(b0207),a
	call	c44D9
	sub	a
	ld	(b2FF4),a
	ld	hl,x1000
	ld	(w020D),hl
	ld	a,1
	ld	l,8
	call	cF003
	ld	h,7Ch	;'|'
	cp	0EEh
	jp	z,c42A8
	ld	a,1
	ld	l,0Ch
	call	cF003
	ld	h,7Ch	;'|'
	cp	0EEh
	jp	z,c42C2
	jp	c4272

c4040:	ld	b,0
	ld	hl,(w0209)
	ld	a,h
c4046:	cp	8
	jr	z,c404F
	inc	b
	sub	0Ah
	jr	c4046

c404F:	ld	a,b
	ld	h,0
	or	a
	jr	z,c405B
	ld	de,x0050
c4058:	add	hl,de
	djnz	c4058
c405B:	ld	de,x1000
	add	hl,de
	ld	(w020D),hl
	ret

c4063:	push	af
	ld	hl,(w0209)
	ld	a,4Fh	;'O'
	sub	l
	ld	(b020B),a
	ld	hl,(w020D)
	inc	hl
	ld	de,(w020D)
	ld	c,a
	ld	b,0
	ldir
	dec	hl
	ld	(hl),20h	;' '
	ld	a,(b020B)
	ld	b,a
	ld	hl,(w0209)
	ld	de,(w020D)
c4088:	ld	a,(de)
	push	hl
	push	de
	push	bc
	ld	e,a
	call	c46CD
	pop	bc
	pop	de
	pop	hl
	inc	de
	inc	hl
	djnz	c4088
	ld	e,20h	;' '
	call	c46CD
	pop	af
	ret

c409E:	push	af
	ld	hl,(w0209)
	ld	a,h
	cp	8
	jr	z,c40B9
	sub	0Ah
	ld	h,a
	ld	(w0209),hl
	ld	hl,(w020D)
	ld	de,x0050
	or	a
	sbc	hl,de
	ld	(w020D),hl
c40B9:	pop	af
	ret

c40BB:	push	af
	ld	hl,(w0209)
	ld	a,h
	cp	0F8h
	jr	z,c40D4
	add	a,0Ah
	ld	h,a
	ld	(w0209),hl
	ld	hl,(w020D)
	ld	de,x0050
	add	hl,de
	ld	(w020D),hl
c40D4:	pop	af
	ret

c40D6:	push	af
	ld	hl,(w0209)
	ld	l,0
	ld	b,50h	;'P'
c40DE:	push	hl
	push	bc
	ld	e,20h	;' '
	call	c46CD
	pop	bc
	pop	hl
	inc	hl
	djnz	c40DE
	ld	hl,(w0209)
	ld	l,0
	ld	(w0209),hl
	call	c4040
	push	hl
	pop	de
	inc	de
	ld	(hl),20h	;' '
	ld	bc,x004F
	ldir
	pop	af
	ret

c4101:	push	af
	ld	hl,(w0209)
	inc	hl
	ld	(w0209),hl
	ld	hl,(w020D)
	inc	hl
	ld	(w020D),hl
	pop	af
	ret

c4112:	push	af
	ld	hl,(w0209)
	ld	a,l
	cp	0
	jp	z,c4127
	dec	l
	ld	(w0209),hl
	ld	hl,(w020D)
	dec	hl
	ld	(w020D),hl
c4127:	pop	af
	ret

c4129:	push	af
	ld	hl,(w0209)
	ld	l,0
	ld	(w0209),hl
	call	c4040
	pop	af
	ret

c4137:	push	af
	ld	hl,(w0209)
	push	hl
	ld	l,0
	ld	a,h
	add	a,0Ah
	ld	h,a
	ld	(w0209),hl
	ld	hl,(w020D)
	pop	de
	ld	a,50h	;'P'
	sub	e
	ld	e,a
	ld	d,0
	add	hl,de
	ld	(w020D),hl
	pop	af
	ret

c4155:	push	af
	ld	hl,(w0209)
	ld	l,0
	ld	(w0209),hl
	call	c4040
	ld	hl,(w0209)
	ld	a,h
	sub	8
c4167:	or	a
	jr	z,c416F
	sub	0Ah
	inc	l
	jr	c4167

c416F:	ld	a,17h
	sub	l
	ld	b,a
	push	bc
	dec	b
	ld	hl,(w020D)
	ld	de,x0050
c417B:	add	hl,de
	djnz	c417B
	push	hl
	add	hl,de
	ex	de,hl
	pop	hl
	pop	bc
	push	bc
c4184:	push	bc
	ld	bc,x0050
	ldir
	ld	bc,x0050
	or	a
	sbc	hl,bc
	push	hl
	ex	de,hl
	sbc	hl,bc
	ex	de,hl
	pop	hl
	pop	bc
	djnz	c4184
	ld	hl,(w020D)
	ld	(hl),20h	;' '
	ld	de,(w020D)
	inc	de
	ld	bc,x004F
	ldir
	call	c41D1
	pop	bc
	ld	hl,(w0209)
	ld	de,(w020D)
	inc	b
c41B4:	push	bc
	ld	b,50h	;'P'
c41B7:	ld	a,(de)
	push	hl
	push	de
	push	bc
	ld	e,a
	call	c46CD
	pop	bc
	pop	de
	pop	hl
	inc	de
	inc	hl
	djnz	c41B7
	ld	l,0
	ld	a,0Ah
	add	a,h
	ld	h,a
	pop	bc
	djnz	c41B4
	pop	af
	ret

c41D1:	ld	hl,(w0209)
	ld	a,l
	cp	50h	;'P'
	jr	nz,c41EE
	ld	l,0
	ld	a,h
	add	a,0Ah
	cp	0F8h
	jr	nz,c41EA
	call	c41FF
	ld	hl,(w0209)
	jr	c41EE

c41EA:	ld	h,a
	ld	(w0209),hl
c41EE:	ld	e,7Fh
	call	c46CD
	ret

c41F4:	ld	hl,(w020D)
	ld	e,(hl)
	ld	hl,(w0209)
	call	c46CD
	ret

c41FF:	push	af
	ld	hl,x1000
	ld	(w020D),hl
	ld	hl,x0000
	ld	(wbB7A0),hl
	call	c4492
	pop	af
	ret

c4211:	push	af
	ld	e,20h	;' '
	ld	hl,(w0209)
	push	hl
	call	c46CD
	pop	hl
	ld	a,4Fh	;'O'
	sub	l
	ld	(b020B),a
	ld	e,a
	ld	d,0
	ld	hl,(w020D)
	add	hl,de
	push	hl
	pop	de
	dec	hl
	ld	c,a
	ld	b,0
	lddr
	inc	hl
	ld	(hl),20h	;' '
	ld	hl,(w0209)
	ld	a,(b020B)
	inc	a
	ld	b,a
c423C:	push	de
	ld	a,(de)
	ld	e,a
	push	hl
	push	bc
	call	c46CD
	pop	bc
	pop	hl
	pop	de
	inc	hl
	inc	de
	djnz	c423C
	pop	af
	ret

c424D:	ld	(bB7A3),a
	ld	a,1Fh
	ld	(bB79D),a
	ld	a,1
	ld	(bB79F),a
	ld	a,0Ch
	call	cF003
	nop
	ret

c4261:	ld	a,0
	ld	(bB79D),a
	ld	a,1Fh
	ld	(bB79F),a
	ld	a,(b0207)
	ld	(bB7A3),a
	ret
;
c4272:	call	c44A8
	ld	a,0BAh
	call	c424D
	ld	hl,xF800
	ld	b,1Dh		;L{nge der Zeichenkette
	ld	de,x428B	;Anfang Zeichenkette	
	call	c46BD		;Zeichenausgabe
	call	c4261		;Fenster einstellen
	jp	cE000

x428B:	db	' V.24 MODUL IS NOT CONNECTED!'

c42A8:	ld	a,2
	ld	l,8
	ld	d,3
	call	cF003
	ld	h,3Eh	;'>'
	ld	bc,x082E
	call	cF003
	ld	h,7Ch	;'|'
	cp	0EEh
	jp	nz,c4272
	jr	c42DA

c42C2:	ld	a,2
	ld	l,0Ch
	ld	d,3
	call	cF003
	ld	h,3Eh	;'>'
	ld	bc,x0C2E
	call	cF003
	ld	h,7Ch	;'|'
	cp	0EEh
	jp	nz,c4272
c42DA:	sub	a
	ld	(b0200),a
	ld	(wb0201),a
	ld	(b0202),a
	ld	hl,x0210
	ld	(w0205),hl
	ld	(w0203),hl
	ld	hl,x4539
	ld	(w010C),hl
	ld	hl,x4568
	ld	(w010A),hl
	ld	hl,x45C9
	ld	(w010E),hl
	ld	hl,x4529
	ld	(w0108),hl
	ld	a,5Dh	;']'
	out	(0Ch),a
	ld	a,0Bh
	out	(0Ch),a
	ld	hl,x4519
	ld	c,0Bh
	ld	b,6
	otir
	ld	hl,x451F
	ld	c,0Ah
	ld	b,0Ah
	otir
	call	c44A8
c4322:	sub	a
	ld	(cb45C1),a
	ei
	in	a,(0Ah)
	bit	5,a
	jr	nz,c4342
	ld	a,0C9h
	ld	(cb45C1),a
	call	c457B
	ld	a,64h	;'d'
	call	cF003
	inc	d
	ld	a,10h
	out	(0Ah),a
	ei
	jr	c4322

c4342:	call	c44A8
	ld	a,3Ch	;'<'
	call	c424D
	ld	hl,xF800
	ld	b,1Eh
	ld	de,x435B
	call	c46BD
	call	c4261
	jp	c4379

x435B:	db	' TERMINAL READY  4800 BD 7-E-2'

c4379:	ei
	call	c41D1
c437D:	halt
	call	cF003
	inc	c
	jp	c,c4656
	ld	a,(b0202)
	or	a
	jr	nz,c4391
	ld	a,(wb0201)
	or	a
	jr	z,c437D
c4391:	ei
	call	c41D1
	call	c41F4
	ld	hl,(w0203)
	ld	a,(hl)
	cp	1
	jr	nz,c43AE
	push	af
	ld	a,(b0200)
	or	a
	jr	nz,c43B5
	inc	a
	ld	(b0200),a
	pop	af
	jr	c43C7

c43AE:	push	af
	ld	a,(b0200)
	or	a
	jr	z,c43FF
c43B5:	cp	1
	jr	nz,c43F2
	inc	a
	ld	(b0200),a
	pop	af
	cp	0Ch
	jr	c,c43C4
	sub	4
c43C4:	ld	(bB7A1),a
c43C7:	di
	ld	hl,(w0203)
	inc	hl
	ld	(w0203),hl
	ld	de,x0A0F
	or	a
	sbc	hl,de
	jr	nz,c43DD
	ld	hl,x0210
	ld	(w0203),hl
c43DD:	ld	bc,(wb0201)
	dec	bc
	ld	(wb0201),bc
	ld	a,b
	or	a
	jr	nz,c4391
	ld	a,c
	or	a
	jr	nz,c4391
	ei
	jp	c4379

c43F2:	pop	af
	ld	(wbB7A0),a
	sub	a
	ld	(b0200),a
	call	c4492
	jr	c43C7

c43FF:	pop	af
	cp	1Bh
	call	z,c44E9
	jr	z,c43C7
	cp	13h
	jr	nz,c4414
	ld	a,7
	call	cF003
	nop
	jp	c43C7

c4414:	cp	1Fh
	call	z,c44A8
	jr	z,c43C7
	cp	8
	call	z,c4112
	jr	z,c43C7
	cp	0Dh
	call	z,c4129
	jp	z,c43C7
	cp	18h
	call	z,c4101
	jp	z,c43C7
	cp	19h
	call	z,c409E
	jp	z,c43C7
	cp	1Ah
	call	z,c40BB
	jp	z,c43C7
	cp	0Ah
	call	z,c4137
	jp	z,c43C7
	cp	0Bh
	call	z,c4155
	jp	z,c43C7
	cp	0Ch
	call	z,c41FF
	jp	z,c43C7
	cp	1Ch
	call	z,c4211
	jp	z,c43C7
	cp	1Dh
	call	z,c4063
	jp	z,c43C7
	cp	1Eh
	call	z,c40D6
	jp	z,c43C7
	cp	20h	;' '
	jp	c,c43C7
	ld	e,a
	push	af
	ld	hl,(w0209)
	call	c46CD
	pop	af
	ld	hl,(w020D)
	ld	(hl),a
	inc	hl
	ld	(w020D),hl
	ld	hl,(w0209)
	inc	hl
	ld	(w0209),hl
	jp	c43C7

c4492:	ld	hl,(wbB7A0)
	sub	a
	cp	h
	jr	z,c449E
	ld	b,h
c449A:	add	a,0Ah
	djnz	c449A
c449E:	add	a,8
	ld	h,a
	ld	(w0209),hl
	call	c4040
	ret

c44A8:	push	af
	ld	hl,x8000
	ld	(hl),0
	ld	de,x8001
	ld	bc,x27FF
	ldir
	ld	a,(b0207)
	ld	(bA800),a
	ld	(bB000),a
	ld	hl,bA800
	ld	de,xA801
	ld	bc,x07BF
	ldir
	ld	hl,bB000
	ld	de,xB001
	ld	bc,x01FF
	ldir
	call	c41FF
	pop	af
c44D9:	push	af
	ld	hl,x1000
	ld	(hl),20h	;' '
	ld	de,x1001
	ld	bc,x077F
	ldir
	pop	af
	ret

c44E9:	push	af
	ld	b,0Bh
	ld	hl,x44FD
c44EF:	ld	a,(hl)
	out	(8),a
	inc	hl
c44F3:	in	a,(0Ah)
	and	4
	jr	z,c44F3
	djnz	c44EF
	pop	af
	ret

x44FD:	db	'eidis ready  MPM/87 MUE&KE  '
x4519:	db	8,18h,2,0,1,1Dh
x451F:	db	0,18h,14h,'O',3,'a',5,0AAh,11h,1Bh
x4529:	db	0F3h,8,0D9h,0DDh,0E5h,'>(',0D3h,0Ah,0DDh,0E1h,0D9h
	db	8,0FBh,0EDh,'M'
x4539:	db	0F3h,0D9h,8,0DDh,0E5h,0DBh,8,0E6h,7Fh,'*',5,2,'w#"'
	db	5,2,11h,0Fh,0Ah,0B7h,0EDh,'R ',6,'!',10h,2,'"',5,2
	db	0EDh,'[',1,2,13h,0EDh,'S',1,2,0DDh,0E1h,8,0D9h,0FBh
	db	0EDh,'M'
x4568:	db	0F3h,8,0D9h,0DDh,0E5h,97h,'2',0C1h,'E>',10h,0D3h,0Ah
	db	0DBh,0Ah,0CBh,'o 3'

c457B:	ld	a,0BAh
	call	c424D
	ld	hl,xF800
	ld	b,1Eh
	ld	de,x4590
	call	c46BD
	call	c4261
	jr	cb45C1

x4590:	db	' TERMINAL NOT READY   OFF LINE><',0CDh,'MB!',0,0F8h
	db	6,1Eh,11h,'[C',0CDh,0BDh,'F',0CDh,'aB'

cb45C1:	nop
	pop	ix
	exx
	ex	af,af'
	ei
	reti

x45C9:	db	0F3h,0D9h,8,0DDh,0E5h,'>',1,0D3h,0Ah,0DBh,0Ah,0CBh
	db	'o(M',0CBh,'g(',1Dh,'>0',0D3h,0Ah,0DDh,0E1h,8,0D9h
	db	0FBh,'>d',0CDh,3,0F0h,14h,'!',0,0F8h,'"',9,2,0CDh,'a'
	db	'B',0CDh,0D6h,'@',0EDh,'M>',0BAh,0CDh,'MB!',0,0F8h
	db	6,18h,11h,0Ch,'F',0CDh,0BDh,'F',0C3h,0DCh,'E ***  '
	db	'  PARITY-ERROR  ***>',0BAh,0CDh,'MB!',0,0F8h,6,1Eh
	db	11h,'8F',0CDh,0BDh,'F',0C3h,0DCh,'E ***    RECEIVE'
	db	'R OVERRUN   ***'

c4656:	di
	res	0,(ix+8)
	push	af
	call	c41D1
	call	c41F4
	pop	af
	ei
	cp	0F1h
	jr	nz,c466C
	ld	a,0Dh
	jr	c4698

c466C:	cp	0F2h
	jr	nz,c4674
	ld	a,15h
	jr	c4698

c4674:	cp	0F3h
	jr	nz,c467C
	ld	a,4
	jr	c4698

c467C:	cp	0F4h
	jr	nz,c4684
	ld	a,2
	jr	c4698

c4684:	cp	0F5h
	jr	nz,c468C
	ld	a,0Bh
	jr	c4698

c468C:	cp	20h	;' '
	jr	nc,c4698
	ld	hl,x469D
	ld	c,a
	ld	b,0
	add	hl,bc
	ld	a,(hl)
c4698:	out	(8),a
	jp	c4379

x469D:	db	0,1,1Eh,3,4,5,6,7,8,18h,1Ah,19h,1Fh,3,0Eh,0Fh,0Ch,11h
	db	12h,13h,14h,15h,16h,17h,18h,0Dh,1Ch,1Bh,1Ch,1Dh,1Eh
	db	1Dh
;Ausgabe von Zeichenkette auf Bildschirm
;b := L{nge Zeichenkette
;de:= Anfang Zeichenkette
;hl:= 0f800h
;
c46BD:	ld	a,(de)		;ASCII
	push	de
	ld	e,a		;nach E umlagern	
	push	bc
	push	hl
	call	c46CD
	pop	hl
	pop	bc
	pop	de
	inc	hl
	inc	de
	djnz	c46BD
	ret
;Berechnen Pixeladr./Farbadresse
c46CD:	ld	(w2FF2),hl
	ld	a,e		;ASII
	cp	26h	;'&'
	jr	nz,c46D8
	ld	a,3Eh	;'>'
	ld	e,a
c46D8:	ld	hl,x4B00	;Zeichentabellenanfang
	ld	b,0		;Maske
	sla	a
	rl	b
	sla	a
	rl	b
	sla	a
	rl	b
	ld	c,a
	add	hl,bc		;Platz bestimmen
	ld	(w2FF0),hl	;merken
	ld	b,8
c46F0:	ld	hl,(w2FF2)
	srl	l
	push	af
	ld	a,l
	cp	20h	;' '
	jr	nc,c471F
	ld	a,3
	and	h
	rlca
	rlca
	ld	d,a
	ld	a,0Ch
	and	h
	rrca
	rrca
	ld	e,a
	ld	a,h
	and	0F0h
	or	e
	or	d
	ld	h,a
	ld	de,x8000
	xor	a
c4711:	rr	h
	rra
	rr	h
	rra
	rr	h
	rra
	or	l
	ld	l,a
	add	hl,de
	jr	c473D

c471F:	sub	20h	;' '
	ld	l,a
	ld	a,33h	;'3'
	and	h
	rlca
	rlca
	rlca
	rlca
	ld	e,a
	ld	a,h
	and	0CCh
	or	e
	ld	h,a
	xor	a
	ld	de,xA000
	rr	h
	rra
	rr	h
	rra
	jr	c4711

c473B:	jr	c46F0

c473D:	ex	de,hl
	ld	hl,(w2FF0)
	ld	c,(hl)
	bit	0,b
	jr	c474E

	db	'y',1Fh,1Fh,1Fh,1Fh,'O',18h,1

c474E:	inc	hl
	ld	(w2FF0),hl
	ex	de,hl
	ld	a,(b2FF4)
	bit	0,a
	jr	z,c475D
	ld	a,c
	cpl
	ld	c,a
c475D:	pop	af
	jr	c,c4767
	rld
	ld	a,c
	rrd
	jr	c476C

c4767:	rrd
	ld	a,c
	rld
c476C:	ld	a,(b2FF3)
	inc	a
	ld	(b2FF3),a
	djnz	c473B
	sub	8
	ld	(b2FF3),a
	ret

	ds	5,7Fh
	db	0FEh,0FCh,0FCh,0FCh,0FCh,0FEh,0FCh,0FCh,0FCh,0FCh,0FCh
	ds	10h,0FCh
	db	0FEh,0FCh,0FCh,0FCh,0DCh,0FCh,0FEh,0FCh,0FEh,0FCh,0FEh
	db	0FCh,0FEh,0FCh,0FCh,0FCh,0FEh,0FCh,0FEh,0FCh,0FEh,0C0h
	ds	4,0FCh
	db	0FEh,0FCh,0FCh,0FCh,0FCh,0FCh,0FCh,0FCh,0FCh,0FCh,0FCh
	ds	1Fh,7Fh
	db	0FFh,'/',7Fh,7Fh,7Fh,7Fh,7Fh,7Fh,7Fh,7Fh,7Fh,7Fh,7Fh
	ds	14h,7Fh
	db	0CEh,0CCh,0C4h,0DEh,0C4h,0DEh,0CCh,0DEh,0CCh,0DEh,0CCh
	db	0DEh,0CCh,0DEh,0CCh,0DEh,0C0h,0CEh,0C4h,0CEh,0C4h,0DEh
	db	0CEh,0CEh,0C0h,0CEh,0C4h,0CEh,0C4h,0CEh,0CCh,0C0h,0CCh
	db	0DEh,0CCh,0DEh,0CCh,0DEh,0CEh,0DEh,0CCh,0DEh,0CCh,0DEh
	db	0CCh,0DEh,0CEh,0DEh,'@',0CEh,0CCh,0CEh,0C4h,0CEh,0CEh
	db	0DEh,0C4h,0CEh,0CCh,0CEh,0C4h,0DEh,0CCh,0CEh,'nnnn'
	ds	3,6Eh	;'n'
	db	'onnnnnnnonnnnnnnonnnonnn_nnnnnnnonnnnnnnonnnnnnno'
	ds	7,6Eh	;'n'
	db	'o',0FEh,0FEh,0FEh,0FEh,0FEh,0FEh,0FEh,0FEh,0FEh,0FEh
	ds	15h,0FEh
	db	0DEh,0FEh,0FEh,0FEh,0FEh,0FEh,0FEh,0FEh,0FEh,0FEh,0FEh
	ds	6,0FEh
	db	'F',0FEh,0FEh,0FEh,0FEh,0FEh,0FEh,0FEh,0FEh,0FEh,0FEh
	ds	5,0FEh
	db	7Fh,7Fh,'~',7Fh,'~',7Fh,7Fh,7Fh,'~',7Fh,7Fh,7Fh,'~'
	ds	3,7Fh
	db	'~',7Fh,7Fh,7Fh,'~',7Fh,7Fh,7Fh,7Fh,7Fh,7Fh,7Fh,'~'
	ds	3,7Fh
	db	'n',7Fh,'~',7Fh,'~',7Fh,7Fh,7Fh,'~',7Fh,'~',7Fh,'~'
	ds	7,7Fh
	db	'~',7Fh,'~',7Fh,'~',7Fh,7Fh,7Fh,'~',7Fh,7Fh,7Fh,0DEh
	db	0DEh,0DCh,0DEh,0DEh,0DEh,0DEh,0DEh,0DCh,0DEh,0DEh,0DEh
	db	0DCh,0DEh,0DEh,0DEh,'\',0DEh,0DEh,0DEh,'^',0DEh,0DEh
	db	0DEh,'\',0DEh,0DEh,0DEh,'\',0DEh,0DEh,'\',0DEh,0DEh
	ds	0Eh,0DEh
	db	'\',0DEh,0DEh,0DEh,'^',0DEh,0DEh,0DEh,'^',0DEh,0DEh
	ds	5,0DEh
	ds	40h,7Fh
	ds	30h,0FEh
	db	0C6h,0FEh,0FEh,0FEh,0FEh,0FEh,0FEh,0FEh,0FEh,0FEh,0FEh
	ds	5,0FEh
	ds	7,7Eh	;'~'
	db	0FEh,'~~~~~~~',0FFh,'~~~~~~~',0FFh,'~~~',0FFh,'~~~'
	db	0FFh,'~~~~~~~~~~~~~~~~~~~~~~~',0FFh,'~~~~~~~',0FFh
	db	'JH',0CAh,0FAh,'J',0DAh,0CAh,0FAh,'H',0DAh,0CAh,0DAh
	db	'J',0DAh,0CAh,0FAh,0Ah,0CAh,'J',0CAh,'J',0CAh,'J',0DAh
	db	'J',0CAh,'J',0DAh,'J',0DAh,'J',8,'J',0FAh,0CAh,0DAh
	db	'J',0FAh,0CAh,0FAh,0CAh,0DAh,0CAh,0FAh,0CAh,0FAh,0DAh
	db	0FAh,8,0CAh,'J',0CAh,'J',0DAh,0CAh,0DAh,0Ah,0CAh,'J'
	db	0DAh,'J',0DAh,0CAh,0DAh,'+++++++o+/+++++{+++++++k+'
	db	'++k+++',7Fh,'++++*++k+++++++kk++++++k+++++++k^^^',0DEh
	db	'^',0DEh,'^',0DEh,'^',0DEh,'^',0DEh,'^',0DEh,'^',0DEh
	ds	5,5Eh	;'^'
	db	0DEh,'^^^^^^^^^^^',0DEh,'^',0DEh,'^',0DEh,'^',0DEh
	db	'^',0DEh,'^',0DEh,'^',0DEh,'^',0DEh,'^^^^^',0DEh,'^'
	db	0DEh,'^^^^^',0DEh,'^^',7Fh,7Fh,7Fh,7Fh,'~',7Fh,7Fh
	db	7Fh,'~',7Fh,7Fh,7Fh,'~',7Fh,7Fh,7Fh,7Fh,7Fh,7Fh,7Fh
	db	'~',7Fh,7Fh,7Fh,7Fh,7Fh,7Fh,7Fh,7Fh,7Fh,7Fh,7Fh,'~'
	ds	3,7Fh
	db	'~',7Fh,7Fh,7Fh,'~',7Fh,7Fh,7Fh,'~',7Fh,7Fh,7Fh,7Fh
	ds	7,7Fh
	db	'~',7Fh,7Fh,7Fh,'~',7Fh,7Fh,7Fh
x4B00:	db	0,5,0,6,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
	ds	84h,0
	db	'( ',0,0,0,'9}',0F7h,0,0,'( ',0,0,0,'9}',0F7h,0,0,'('
	db	' ',0,0,0,'9}',0F7h,0,0,'( ',0,0,0,'9}',0F7h,0,0,'('
	db	' ',0,0,0,'9}',0F7h,0,0,'( ',0,0,0,'9}',0F7h,0,0,'('
	db	' ',0,0,0,'9}',0F7h,0,0,'( ',0,0,0,'9}',0F7h,0,0,'('
	db	' ',0,0,0,'9}',0F7h,0,0,'( ',0,0,0,'9}',0F7h,0,0,0
	ds	6,0
	ds	5,2
	db	0,2,0,5,5,0,0,0,0,0,0,0,0,5,7,5,7,5,0,0,0,0,0,0,0,0
	db	0,0,5,1,2,2,4,5,0,0,0,0,0,0,0,0,0,2,2,0,0,0,0,0,0,1
	ds	5,2
	db	1,0,4,2,2,2,2,2,4,0,0,0,5,2,5,0,0,0,0,2,2,7,2,2,0,0
	ds	5,0
	db	1,2,0,0,0,0,7,0,0,0,0,0,0,0,0,0,3,3,0,0,1,1,2,2,4,4
	db	0,2,5,5,5,5,5,2,0,1,3,5,1,1,1,1,0,2,5,1,2,4,4,7,0,2
	db	5,1,2,1,5,2,0,4,5,5,7,1,1,1,0,7,4,6,5,1,5,2,0,2,4,6
	ds	3,5
	db	2,0,7,1,1,2,2,2,2,0,2,5,5,2,5,5,2,0,2,5,5,3,1,5,2,0
	db	0,0,2,2,0,2,2,0,0,0,3,3,0,1,2,0,0,1,2,4,2,1,0,0,0,0
	db	7,0,7,0,0,0,0,4,2,1,2,4,0,0,2,5,1,2,2,0,2,0,0,2,7,7
	db	4,4,3,0,2,5,5,7,5,5,5,0,6,5,5,6,5,5,6,0,3,4,4,4,4,4
	db	3,0,6,5,5,5,5,5,6,0,7,4,4,7,4,4,7,0,7,4,4,7,4,4,4,0
	db	3,4,4,5,5,5,3,0,5,5,5,7,5,5,5,0,2,2,2,2,2,2,2,0,1,1
	ds	3,1
	db	5,2,0,5,5,5,6,5,5,5,0,4,4,4,4,4,4,7,0,5,7,7,5,5,5,5
	db	0,7,5,5,5,5,5,5,0,7,5,5,5,5,5,7,0,6,5,5,6,4,4,4,0,2
	ds	5,5
	db	3,0,6,5,5,6,5,5,5,0,2,5,4,2,1,5,2,0,7,2,2,2,2,2,2,0
	ds	6,5
	db	7,0,5,5,5,5,5,5,2,0,5,5,5,5,7,7,5,0,5,5,5,2,5,5,5,0
	ds	4,5
	ds	3,2
	db	0,7,1,1,2,4,4,7,0,5,2,5,5,7,5,5,0,5,2,5,5,5,5,2,0,5
	db	0,5,5,5,5,7,0,0,0,0,0,0,0,0,0Fh,0Fh,0,0,0,0,0,0,0,0
	ds	9,0
	db	3,5,5,5,3,0,4,4,6,5,5,5,6,0,0,0,3,4,4,4,3,0,1,1,3,5
	db	5,5,3,0,0,0,2,5,6,4,3,0,1,2,2,7,2,2,2,0,0,0,3,5,3,1
	db	2,0,4,4,6,5,5,5,5,0,2,0,2,2,2,2,2,0,1,0,1,1,1,1,2,0
	db	4,4,5,5,6,5,5,0,2,2,2,2,2,2,1,0,0,0,5,7,7,5,5,0,0,0
	db	7,5,5,5,5,0,0,0,2,5,5,5,2,0,0,0,6,5,6,4,4,0,0,0,3,5
	db	3,1,1,0,0,0,6,5,4,4,4,0,0,0,3,4,2,1,6,0,2,2,2,7,2,2
	db	1,0,0,0,5,5,5,5,3,0,0,0,5,5,5,5,2,0,0,0,5,5,7,7,5,0
	db	0,0,5,5,2,5,5,0,0,0,5,5,3,1,2,0,0,0,7,1,2,4,7,0,0,5
	db	0,3,5,5,3,0,0,5,0,2,5,5,2,0,0,5,0,0,5,5,3,0,2,5,6,5
	db	5,6,4,7,7,7,7,7,7,7,7

c4F00:	ld	hl,bB7A3
	ld	(hl),60h	;'`'
	jp	c400D

	ds	0F8h,0
x0000	equ	0
x004F	equ	4Fh
x0050	equ	50h
w0108	equ	108h
w010A	equ	10Ah
w010C	equ	10Ch
w010E	equ	10Eh
x01FF	equ	1FFh
b0200	equ	200h
wb0201	equ	201h
b0202	equ	202h
w0203	equ	203h
w0205	equ	205h
b0207	equ	207h
w0209	equ	209h
b020B	equ	20Bh
w020D	equ	20Dh
x0210	equ	210h
x077F	equ	77Fh
x07BF	equ	7BFh
x082E	equ	82Eh
x0A0F	equ	0A0Fh
x0C2E	equ	0C2Eh
x1000	equ	1000h
x1001	equ	1001h
x27FF	equ	27FFh
w2FF0	equ	2FF0h
w2FF2	equ	2FF2h
b2FF3	equ	2FF3h
b2FF4	equ	2FF4h
x5000	equ	5000h
x8000	equ	8000h
x8001	equ	8001h
xA000	equ	0A000h
bA800	equ	0A800h
xA801	equ	0A801h
bB000	equ	0B000h
xB001	equ	0B001h
bB79D	equ	0B79Dh
bB79F	equ	0B79Fh
wbB7A0	equ	0B7A0h
bB7A1	equ	0B7A1h
bB7A3	equ	0B7A3h
cE000	equ	0E000h
cF003	equ	0F003h
xF800	equ	0F800h
xFFFF	equ	0FFFFh
	end