; z80dasm 1.1.0
; command line: z80dasm -a -g 0xa000 -o VIOv20.asm -l -t VIOv20.bin

	org	0a000h
	defb	CRT_ADDR	0f0h
	defb	CRT_REG		0f1h

	and l			;a000	a5 	. 
	jp la01ch		;a001	c3 1c a0 	. . . 
sub_a004h:                      ; init 6845, clear screen, cursor at top left
	jp la19eh		;a004	c3 9e a1 	. . . init call/ret
	jp la1c0h		;a007	c3 c0 a1 	. . . init & jp 0000h
sub_a00ah:
	jp la1fch		;a00a	c3 fc a1 	(JCRTCO) print character in C, interpret control codes
sub_a00dh:
	jp la24fh		;a00d	c3 4f a2 	(JCRTOU) print character in C, print characters at 00h-31h too
	jp la433h		;a010	c3 33 a4 	(JTEXCO) print 00h terminated string (start in IY)
	jp la441h		;a013	c3 41 a4 	(JTEX??) print 00h terminated string (start in IY) CR = LF
	jp la1d7h		;a016	c3 d7 a1 	. . . disp char set

sub_a019h:
	jp la1c6h		;a019	c3 c6 a1 	

la01ch:
	pop af			;a01c	f1 	. 
	push af			;a01d	f5 	. 
	cp 062h		;a01e	fe 62 	. b 
	jp nz,la032h		;a020	c2 32 a0 	. 2 . 
	ld a,(0ffcch)		;a023	3a cc ff 	: . . 
	cp 030h		;a026	fe 30 	. 0 
	jr nz,la032h		;a028	20 08 	  . 
	push hl			;a02a	e5 	. 
	ld hl,0ff14h		;a02b	21 14 ff 	! . . 
	ld (0ff82h),hl		;a02e	22 82 ff 	" . . 
	pop hl			;a031	e1 	. 
la032h:
	push hl			;a032	e5 	. 
	ld hl,04601h		;a033	21 01 46 	! . F 
	ld a,(hl)			;a036	7e 	~ 
	cp 0a5h		;a037	fe a5 	. . 
	call nz,sub_a004h		;a039	c4 04 a0 	. . . 
	ld hl,04600h		;a03c	21 00 46 	! . F 
la03fh:
	in a,(0f0h)		;a03f	db f0 	. .   CRT_ADDR
	rlca			;a041	07 	. 
	jr nc,la03fh		;a042	30 fb 	0 . 
	ld a,(hl)			;a044	7e 	~ 
	cp 0a5h		;a045	fe a5 	. . 
	jp z,la04ch		;a047	ca 4c a0 	. L . 
	pop hl			;a04a	e1 	. 
	ret			;a04b	c9 	. 

la04ch:
	pop hl			;a04c	e1 	. 
	push bc			;a04d	c5 	. 
	push de			;a04e	d5 	. 
	push hl			;a04f	e5 	. 
	push ix		;a050	dd e5 	. . 
	push iy		;a052	fd e5 	. . 
	call sub_a08ah		;a054	cd 8a a0 	. . . 
	ld hl,0ff81h		;a057	21 81 ff 	! . . 
	ld (hl),013h		;a05a	36 13 	6 . 
	call sub_a111h		;a05c	cd 11 a1 	. . . 
	call sub_a0b3h		;a05f	cd b3 a0 	. . . 
	call sub_a0d2h		;a062	cd d2 a0 	. . . 
	pop iy		;a065	fd e1 	. . 
	pop ix		;a067	dd e1 	. . 
	pop hl			;a069	e1 	. 
	pop de			;a06a	d1 	. 
	pop bc			;a06b	c1 	. 
	ret			;a06c	c9 	. 

	push iy		;a06d	fd e5 	. . 
	push bc			;a06f	c5 	. 
	push hl			;a070	e5 	. 
	ld hl,0ff04h		;a071	21 04 ff 	! . . 
la074h:
	ld a,(hl)			;a074	7e 	~ 
	cp 00dh		;a075	fe 0d 	. . 
	jr z,la07ch		;a077	28 03 	( . 
	inc hl			;a079	23 	# 
	jr la074h		;a07a	18 f8 	. . 

la07ch:
	ld (hl),000h		;a07c	36 00 	6 . 
	ld iy,0ff04h		;a07e	fd 21 04 ff 	. ! . . 
	jp la441h		;a082	c3 41 a4 	. A . 

	pop hl			;a085	e1 	. 
	pop bc			;a086	c1 	. 
	pop iy		;a087	fd e1 	. . 
	ret			;a089	c9 	. 

sub_a08ah:
	ld bc,(0ff82h)		;a08a	ed 4b 82 ff 	. K . . 
	ld hl,0460ah		;a08e	21 0a 46 	! . F 
	call sub_a44dh		;a091	cd 4d a4 	. M . 
	ld a,b			;a094	78 	x 
	cp h			;a095	bc 	. 
	jr z,la0b2h		;a096	28 1a 	( . 
	cp 0ffh		;a098	fe ff 	. . 
	jr z,la0a4h		;a09a	28 08 	( . 
	ld de,0fe4bh		;a09c	11 4b fe 	. K . 
	ld bc,0fe72h		;a09f	01 72 fe 	. r . 
	jr la0aah		;a0a2	18 06 	. . 

la0a4h:
	ld de,0ff04h		;a0a4	11 04 ff 	. . . 
	ld bc,0ff2bh		;a0a7	01 2b ff 	. + . 
la0aah:
	ld (0460ah),de		;a0aa	ed 53 0a 46 	. S . F 
	ld (0460ch),bc		;a0ae	ed 43 0c 46 	. C . F 
la0b2h:
	ret			;a0b2	c9 	. 

sub_a0b3h:
	ld de,(0ff82h)		;a0b3	ed 5b 82 ff 	. [ . . 
	ld hl,0460ch		;a0b7	21 0c 46 	! . F 
	call sub_a44dh		;a0ba	cd 4d a4 	. M . 
	xor a			;a0bd	af 	. 
	sbc hl,de		;a0be	ed 52 	. R 
	dec l			;a0c0	2d 	- 
	cp l			;a0c1	bd 	. 
	ret z			;a0c2	c8 	. 
	ld b,l			;a0c3	45 	E 
	inc de			;a0c4	13 	. 
la0c5h:
	ld a,(de)			;a0c5	1a 	. 
	cp 00dh		;a0c6	fe 0d 	. . 
	jr z,la0ceh		;a0c8	28 04 	( . 
	inc de			;a0ca	13 	. 
	djnz la0c5h		;a0cb	10 f8 	. . 
	ret			;a0cd	c9 	. 

la0ceh:
	ex de,hl			;a0ce	eb 	. 
	ld (hl),000h		;a0cf	36 00 	6 . 
	ret			;a0d1	c9 	. 

sub_a0d2h:
	ld c,004h		;a0d2	0e 04 	. . 
	call sub_a00ah		;a0d4	cd 0a a0 	. . . 
	ld hl,0460ah		;a0d7	21 0a 46 	! . F 
	call sub_a44dh		;a0da	cd 4d a4 	. M . 
	ld de,(0ff82h)		;a0dd	ed 5b 82 ff 	. [ . . 
la0e1h:
	call sub_a0fdh		;a0e1	cd fd a0 	. . . 
	jr z,la0f6h		;a0e4	28 10 	( . 
	ld a,(hl)			;a0e6	7e 	~ 
	cp 00dh		;a0e7	fe 0d 	. . 
	jr z,la106h		;a0e9	28 1b 	( . 
	ld c,a			;a0eb	4f 	O 
	push de			;a0ec	d5 	. 
	push hl			;a0ed	e5 	. 
	call sub_a210h		;a0ee	cd 10 a2 	. . . 
	pop hl			;a0f1	e1 	. 
	pop de			;a0f2	d1 	. 
	inc hl			;a0f3	23 	# 
	jr la0e1h		;a0f4	18 eb 	. . 

la0f6h:
	ld a,(hl)			;a0f6	7e 	~ 
	cp 00dh		;a0f7	fe 0d 	. . 
	call z,la106h		;a0f9	cc 06 a1 	. . . 
	ret			;a0fc	c9 	. 

sub_a0fdh:
	push hl			;a0fd	e5 	. 
	push de			;a0fe	d5 	. 
	and a			;a0ff	a7 	. 
	ex de,hl			;a100	eb 	. 
	sbc hl,de		;a101	ed 52 	. R 
	pop de			;a103	d1 	. 
	pop hl			;a104	e1 	. 
	ret			;a105	c9 	. 

la106h:
	ld c,00dh		;a106	0e 0d 	. . 
	call sub_a00ah		;a108	cd 0a a0 	. . . 
	ld c,00ah		;a10b	0e 0a 	. . 
	call sub_a00ah		;a10d	cd 0a a0 	. . . 
	ret			;a110	c9 	. 

sub_a111h:
	ld hl,0460ah		;a111	21 0a 46 	! . F 
	call sub_a44dh		;a114	cd 4d a4 	. M . 
	ld bc,00015h		;a117	01 15 00 	. . . 
	ld a,02ah		;a11a	3e 2a 	> * 
	cpir		;a11c	ed b1 	. .   Search for 02h in 046oh to 0460h + 0015h
	jr z,la121h		;a11e	28 01 	( . 
la120h:
	ret			;a120	c9 	. 

la121h:
	dec hl			;a121	2b 	+ 
	ld bc,00c5dh		;a122	01 5d 0c 	. ] . 
la125h:
	ld a,(bc)			;a125	0a 	. 
	cp 00dh		;a126	fe 0d 	. . 
	jr z,la16ah		;a128	28 40 	( @ 
	cp (hl)			;a12a	be 	. 
	jr nz,la120h		;a12b	20 f3 	  . 
	inc bc			;a12d	03 	. 
	inc hl			;a12e	23 	# 
	jr la125h		;a12f	18 f4 	. . 

	ld b,e			;a131	43 	COPYRIGHTS BY BARDEHLE ELECTRONIC D-4796 SALZKOTTEN 06 85

la16ah:
	ld hl,0460ah		;a16a	21 0a 46 	! . F 
	call sub_a44dh		;a16d	cd 4d a4 	. M . 
	ld b,028h		;a170	06 28 	. ( 
la172h:
	ld (hl),020h		;a172	36 20 	6   
	inc hl			;a174	23 	# 
	djnz la172h		;a175	10 fb 	. . 
	call la106h		;a177	cd 06 a1 	. . . 
	ld hl,0460ah		;a17a	21 0a 46 	! . F 
	call sub_a44dh		;a17d	cd 4d a4 	. M . 
	ld (0ff82h),hl		;a180	22 82 ff 	" . . 
	call sub_a188h		;a183	cd 88 a1 	. . . 
	jr la120h		;a186	18 98 	. . 

sub_a188h:
	ld hl,00c5dh		;a188	21 5d 0c 	! ] . 
la18bh:
	ld c,(hl)			;a18b	4e 	N 
	ld a,c			;a18c	79 	y 
	cp 00dh		;a18d	fe 0d 	. . 
	jr z,la197h		;a18f	28 06 	( . 
	call sub_a00ah		;a191	cd 0a a0 	. . . 
	inc hl			;a194	23 	# 
	jr la18bh		;a195	18 f4 	. . 

la197h:
	call la106h		;a197	cd 06 a1 	. . . 
	call la106h		;a19a	cd 06 a1 	. . . 
	ret			;a19d	c9 	. 

la19eh:   ; init, cls, cursor, return
	ld de,0ff04h		;a19e	11 04 ff 	. . . 
	ld bc,0ff2bh		;a1a1	01 2b ff 	. + . 
	ld (0460ah),de		;a1a4	ed 53 0a 46 	. S . F 
	ld (0460ch),bc		;a1a8	ed 43 0c 46 	. C . F 
	ld hl,la49dh		;a1ac	21 9d a4 	! . . 
	call sub_a019h		;a1af	cd 19 a0 	. . .   config 6845
	ld c,00ch		;a1b2	0e 0c 	. . 
	call sub_a00ah		;a1b4	cd 0a a0 	. . . 
	ld a,0a5h		;a1b7	3e a5 	> . 
	ld (04601h),a		;a1b9	32 01 46 	2 . F 
	ld (04600h),a		;a1bc	32 00 46 	2 . F 
	ret			;a1bf	c9 	. 

la1c0h:	; init, cls, cursor, restart
	call la19eh		;a1c0	cd 9e a1 	. . . 
	jp 00000h		;a1c3	c3 00 00 	. . . 

la1c6h:                         ; load config into 6845
	ld c,0f0h		;a1c6	0e f0 	. .  CRT_ADDR
la1c8h:  ; read 6845 config table at (HL) and put it in the 6845 and return
	ld a,(hl)			;a1c8	7e 	~ 
	cp 0ffh		;a1c9	fe ff 	. . 
	ret z			;a1cb	c8 	. 
	out (c),a		;a1cc	ed 79 	. y 
	inc hl			;a1ce	23 	# 
	ld a,(hl)			;a1cf	7e 	~ 
	inc c			;a1d0	0c 	. 
	out (c),a		;a1d1	ed 79 	. y   CRT_REG
	dec c			;a1d3	0d 	. 
	inc hl			;a1d4	23 	# 
	jr la1c8h		;a1d5	18 f1 	. . 

la1d7h:
	ld c,00ch		;a1d7	0e 0c 	. . 
	call sub_a00ah		;a1d9	cd 0a a0 	. . . 
	ld c,000h		;a1dc	0e 00 	. . 
la1deh:
	call sub_a00dh		;a1de	cd 0d a0 	. . . 
	inc c			;a1e1	0c 	. 
	ld a,c			;a1e2	79 	y 
	cp 080h		;a1e3	fe 80 	. . 
	jr nz,la1deh		;a1e5	20 f7 	  . 
	ld c,00dh		;a1e7	0e 0d 	. . 
	call sub_a00ah		;a1e9	cd 0a a0 	. . . 
	ld c,00ah		;a1ec	0e 0a 	. . 
	call sub_a00ah		;a1ee	cd 0a a0 	. . . 
	ld c,080h		;a1f1	0e 80 	. . 
la1f3h:
	call sub_a00dh		;a1f3	cd 0d a0 	. . . 
	inc c			;a1f6	0c 	. 
	jr nz,la1f3h		;a1f7	20 fa 	  . 
	jp 00000h		;a1f9	c3 00 00 	. . . 

la1fch:
	push iy		;a1fc	fd e5 	. . 
	push ix		;a1fe	dd e5 	. . 
	push hl			;a200	e5 	. 
	push de			;a201	d5 	. 
	push bc			;a202	c5 	. 
	push af			;a203	f5 	. 
	call sub_a210h		;a204	cd 10 a2 	. . . 
	pop af			;a207	f1 	. 
	pop bc			;a208	c1 	. 
	pop de			;a209	d1 	. 
	pop hl			;a20a	e1 	. 
	pop ix		;a20b	dd e1 	. . 
	pop iy		;a20d	fd e1 	. . 
	ret			;a20f	c9 	. 

sub_a210h:
	ld a,c			;a210	79 	y 
	ld bc,0000ah		;a211	01 0a 00 	. . . 
	ld hl,la245h		;a214	21 45 a2 	! E . 
	cpir		;a217	ed b1 	. .  search a245h - a255h for (a)
	jr z,la21eh		;a219	28 03 	( . 
	jp la256h		;a21b	c3 56 a2 	. V . 

la21eh:
	ld hl,la22eh		;a21e	21 2e a2 	! . . 
	ld a,c			;a221	79 	y 
	and 00fh		;a222	e6 0f 	. . 
	add a,a			;a224	87 	. 
	ld c,a			;a225	4f 	O 
	ld b,000h		;a226	06 00 	. . 
	add hl,bc			;a228	09 	. 
	ld e,(hl)			;a229	5e 	^ 
	inc hl			;a22a	23 	# 
	ld d,(hl)			;a22b	56 	V 
	ex de,hl			;a22c	eb 	. 
	jp (hl)			;a22d	e9 	. 

la22eh: ; jump table used in la21e
	defw 99 a3		;a22e	 	. a399h 
	defw 7a a3		;a230	 	z a37ah
	defw 17 a3		;a232	 	. a317h
	defw 09 a3		;a234	 	.  a309h
	defw 36 a2		;a236	 	. .  a2feh
la238h: ; jump table used in la21e
	defw fo a2		;a238	 	.  a238h
	defw d1 a2		;a23a	 	.  a2d1h
	defw b8 a2		;a23c	 	.  a2b8h
	defw b3 a2		;a23e	 	.  a2b3h
	defw 9f a2		;a240	 	.  a29fh
	defw 56 a2		;a242	 	. V .  a256h

la245h:
	defb	0dh		;a245
	defb	0ah		;a246
	defb	0ch		;a247
	defb	5fh		;a248
	defb	00h		;a249
	defb	01h		;a24a
	defb	02h		;a24b
	defb	03h		;a24c
	defb	09h		;a24d
	defb	04h		;a24e
la24fh:
	push bc			;a24f	c5 	. 
	ld a,c			;a250	79 	y 
	call la256h		;a251	cd 56 a2 	. V . 
	pop bc			;a254	c1 	. 
	ret			;a255	c9 	. 

la256h: ; jump table used in la21e
	ld hl,la295h		;a256	21 95 a2 	! . . 
	ld bc,00005h		;a259	01 05 00 	. . . 
	cpir		;a25c	ed b1 	. . 
	call z,sub_a28eh		;a25e	cc 8e a2 	. . . 
	ld c,a			;a261	4f 	O 
	call sub_a46ah		;a262	cd 6a a4 	. j . 
la265h:
	in a,(0f0h)		;a265	db f0 	. .   CRT_ADDR
	rlca			;a267	07 	. 
	jr nc,la265h		;a268	30 fb 	0 . 
	ld (hl),c			;a26a	71 	q 
	call sub_a460h		;a26b	cd 60 a4 	. ` . 
	ld a,e			;a26e	7b 	{ 
	inc a			;a26f	3c 	< 
	cp 028h		;a270	fe 28 	. ( 
	jr z,la279h		;a272	28 05 	( . 
	ld e,a			;a274	5f 	_ 
la275h:
	call sub_a3cch		;a275	cd cc a3 	. . . 
	ret			;a278	c9 	. 

la279h:
	xor a			;a279	af 	. 
	ld e,a			;a27a	5f 	_ 
la27bh:
	ld a,d			;a27b	7a 	z 
	inc a			;a27c	3c 	< 
	ld b,014h		;a27d	06 14 	. . 
	cp b			;a27f	b8 	. 
	jr z,la285h		;a280	28 03 	( . 
	ld d,a			;a282	57 	W 
	jr la275h		;a283	18 f0 	. . 
la285h:
	dec a			;a285	3d 	= 
	ld d,a			;a286	57 	W 
	call sub_a3cch		;a287	cd cc a3 	. . . 
	call sub_a335h		;a28a	cd 35 a3 	. 5 . 
	ret			;a28d	c9 	. 

sub_a28eh:
	dec hl			;a28e	2b 	+ 
	ld bc,00005h		;a28f	01 05 00 	. . . 
	add hl,bc			;a292	09 	. 
	ld a,(hl)			;a293	7e 	~ 
	ret			;a294	c9 	. 

la295h:
	ld h,b			;a295	60 	` 
	ld h,c			;a296	61 	a 
	ld h,(hl)			;a297	66 	f 
	ld h,a			;a298	67 	g 
	ld e,e			;a299	5b 	[ 
	ld h,c			;a29a	61 	a 
	ld h,(hl)			;a29b	66 	f 
	ld l,b			;a29c	68 	h 
	ld l,h			;a29d	6c 	l 
	ld e,(hl)			;a29e	5e 	^ 
sub_a29fh: ; jump table used in la21e
	call sub_a460h		;a29f	cd 60 a4 	. ` . 
	xor a			;a2a2	af 	. 
	ld e,a			;a2a3	5f 	_ 
	ld hl,04606h		;a2a4	21 06 46 	! . F 
la2a7h:
	in a,(0f0h)		;a2a7	db f0 	. .   CRT_ADDR
	rlca			;a2a9	07 	. 
	jr nc,la2a7h		;a2aa	30 fb 	0 . 
	ld a,(hl)			;a2ac	7e 	~ 
	cp 0a5h		;a2ad	fe a5 	. . 
	jr z,la27bh		;a2af	28 ca 	( . 
	jr la275h		;a2b1	18 c2 	. . 
la2b3h: ; jump table used in la21e
	call sub_a460h		;a2b3	cd 60 a4 	. ` . 
	jr la27bh		;a2b6	18 c3 	. . 

la2b8: ; jump table used in la21e
        ; fill screen region with spaces: clear screen
	ld hl,04000h		;a2b8	21 00 40 	! . @ 
	ld de,04001h		;a2bb	11 01 40 	. . @ 
	ld bc,00320h		;a2be	01 20 03 	.   . 
	ld a,020h		;a2c1	3e 20 	>   
la2c3h: ; jump table used in la21e
	ld (hl),a			;a2c3	77 	w 
	cp (hl)			;a2c4	be 	. 
	jr nz,la2c3h		;a2c5	20 fc 	  . 
	call sub_a414h		;a2c7	cd 14 a4 	. . . 
	ld d,000h		;a2ca	16 00 	. . 
	ld e,d			;a2cc	5a 	Z 
	call sub_a3cch		;a2cd	cd cc a3 	. . . 
	ret			;a2d0	c9 	. 
la2d1h: ; jump table used in la21e
	call sub_a460h		;a2d1	cd 60 a4 	. ` . 
	ld a,e			;a2d4	7b 	{ 
	dec a			;a2d5	3d 	= 
	cp 0ffh		;a2d6	fe ff 	. . 
	jr z,la2ech		;a2d8	28 12 	( . 
	ld e,a			;a2da	5f 	_ 
	call sub_a3cch		;a2db	cd cc a3 	. . . 
	push af			;a2de	f5 	. 
	call sub_a46ah		;a2df	cd 6a a4 	. j . 
	ld d,020h		;a2e2	16 20 	.   
la2e4h:
	in a,(0f0h)		;a2e4	db f0 	. .   CRT_ADDR
	rlca			;a2e6	07 	. 
	jr nc,la2e4h		;a2e7	30 fb 	0 . 
	ld (hl),d			;a2e9	72 	r 
	pop af			;a2ea	f1 	. 
	ret			;a2eb	c9 	. 

la2ech:
	call sub_a32eh		;a2ec	cd 2e a3 	. . . 
	ret			;a2ef	c9 	. 

	call sub_a460h		;a2f0	cd 60 a4 	. ` . 
	ld a,e			;a2f3	7b 	{ 
	inc a			;a2f4	3c 	< 
	cp 028h		;a2f5	fe 28 	. ( 
	jr z,la2ech		;a2f7	28 f3 	( . 
la2f9h:
	ld e,a			;a2f9	5f 	_ 
	call sub_a3cch		;a2fa	cd cc a3 	. . . 
	ret			;a2fd	c9 	. 
la2fe: ; jump table used in la21e
	call sub_a460h		;a2fe	cd 60 a4 	. ` . 
	ld a,e			;a301	7b 	{ 
	dec a			;a302	3d 	= 
	cp 0ffh		;a303	fe ff 	. . 
	jr z,la2ech		;a305	28 e5 	( . 
	jr la2f9h		;a307	18 f0 	. . 
la309h: ; jump table used in la21e
	call sub_a460h		;a309	cd 60 a4 	. ` . 
	ld a,d			;a30c	7a 	z 
	dec a			;a30d	3d 	= 
	cp 0ffh		;a30e	fe ff 	. . 
	jr z,la2ech		;a310	28 da 	( . 
la312h:
	ld d,a			;a312	57 	W 
	call sub_a3cch		;a313	cd cc a3 	. . . 
	ret			;a316	c9 	. 
la317h: ; jump table used in la21e
	call sub_a460h		;a317	cd 60 a4 	. ` . 
	ld a,d			;a31a	7a 	z 
	inc a			;a31b	3c 	< 
	cp 014h		;a31c	fe 14 	. . 
	jr z,la2ech		;a31e	28 cc 	( . 
	jr la312h		;a320	18 f0 	. . 
sub_a322h:
	ld hl,la4beh		;a322	21 be a4 	! . . 
la325h:
	call la1c6h		;a325	cd c6 a1 	. . . 
	ret			;a328	c9 	. 

sub_a329h:
	ld hl,la4c1h		;a329	21 c1 a4 	! . . 
	jr la325h		;a32c	18 f7 	. . 

sub_a32eh:
	ld hl,00100h		;a32e	21 00 01 	! . . 
	call 0086eh		;a331	cd 6e 08 	. n . 
	ret			;a334	c9 	. 

sub_a335h:
	call sub_a322h		;a335	cd 22 a3 	. " . 
	ld b,013h		;a338	06 13 	. . 
	ld de,04000h		;a33a	11 00 40 	. . @ 
	ld hl,04028h		;a33d	21 28 40 	! ( @ 
la340h:
	push bc			;a340	c5 	. 
la341h:
	in a,(0f0h)		;a341	db f0 	. .   CRT_ADDR
	rlca			;a343	07 	. 
	jr nc,la341h		;a344	30 fb 	0 . 
	in a,(0f0h)		;a346	db f0 	. .   CRT_ADDR
	rlca			;a348	07 	. 
	jr nc,la341h		;a349	30 f6 	0 . 
	ld b,028h		;a34b	06 28 	. ( 
la34dh:
	ld a,(hl)			;a34d	7e 	~ 
	cp (hl)			;a34e	be 	. 
	jr nz,la34dh		;a34f	20 fc 	  . 
	ex de,hl			;a351	eb 	. 
la352h:
	ld (hl),a			;a352	77 	w 
	cp (hl)			;a353	be 	. 
	jr nz,la352h		;a354	20 fc 	  . 
	ex de,hl			;a356	eb 	. 
	inc hl			;a357	23 	# 
	inc de			;a358	13 	. 
	djnz la34dh		;a359	10 f2 	. . 
	pop bc			;a35b	c1 	. 
	djnz la340h		;a35c	10 e2 	. . 
	push de			;a35e	d5 	. 
	pop hl			;a35f	e1 	. 
	inc de			;a360	13 	. 
	ld bc,00028h		;a361	01 28 00 	. ( . 
	ld b,000h		;a364	06 00 	. . 
	dec c			;a366	0d 	. 
	push af			;a367	f5 	. 
	push bc			;a368	c5 	. 
	ld c,020h		;a369	0e 20 	.   
la36bh:
	in a,(0f0h)		;a36b	db f0 	. .   CRT_ADDR
	rlca			;a36d	07 	. 
	jr nc,la36bh		;a36e	30 fb 	0 . 
	ld (hl),c			;a370	71 	q 
	pop bc			;a371	c1 	. 
	pop af			;a372	f1 	. 
	call sub_a3f8h		;a373	cd f8 a3 	. . . 
	call sub_a329h		;a376	cd 29 a3 	. ) . 
	ret			;a379	c9 	. 
la37a: ; jump table used in la21e
	call sub_a460h		;a37a	cd 60 a4 	. ` . 
	ld a,e			;a37d	7b 	{ 
	cp 024h		;a37e	fe 24 	. $ 
	ret nc			;a380	d0 	. 
la381h:
	inc a			;a381	3c 	< 
	ld hl,la393h		;a382	21 93 a3 	! . . 
	ld bc,00006h		;a385	01 06 00 	. . . 
	cpir		;a388	ed b1 	. . 
	jr z,la38eh		;a38a	28 02 	( . 
	jr la381h		;a38c	18 f3 	. . 

la38eh:
	ld e,a			;a38e	5f 	_ 
	call sub_a3cch		;a38f	cd cc a3 	. . . 
	ret			;a392	c9 	. 

la393h:
	ld b,00ch		;a393	06 0c 	. . 
	ld (de),a			;a395	12 	. 
	jr la3b6h		;a396	18 1e 	. . 

	inc h			;a398	24 	$ 
la388h: ; jump table used in la21e
	ld hl,04606h		;a399	21 06 46 	! . F 
la39ch:
	in a,(0f0h)		;a39c	db f0 	. .   CRT_ADDR
	rlca			;a39e	07 	. 
	jr nc,la39ch		;a39f	30 fb 	0 . 
	ld a,(hl)			;a3a1	7e 	~ 
	push af			;a3a2	f5 	. 
	push hl			;a3a3	e5 	. 
	ld c,000h		;a3a4	0e 00 	. . 
la3a6h:
	in a,(0f0h)		;a3a6	db f0 	. .   CRT_ADDR
	rlca			;a3a8	07 	. 
	jr nc,la3a6h		;a3a9	30 fb 	0 . 
	ld (hl),c			;a3ab	71 	q 
	call sub_a29fh		;a3ac	cd 9f a2 	. . . 
	pop hl			;a3af	e1 	. 
	pop bc			;a3b0	c1 	. 
la3b1h:
	in a,(0f0h)		;a3b1	db f0 	. .   CRT_ADDR
	rlca			;a3b3	07 	. 
	jr nc,la3b1h		;a3b4	30 fb 	0 . 
la3b6h:
	ld (hl),b			;a3b6	70 	p 
	call sub_a46ah		;a3b7	cd 6a a4 	. j . 
	ld c,020h		;a3ba	0e 20 	.   
la3bch:
	in a,(0f0h)		;a3bc	db f0 	. .   CRT_ADDR
	rlca			;a3be	07 	. 
	jr nc,la3bch		;a3bf	30 fb 	0 . 
	ld (hl),c			;a3c1	71 	q 
	push hl			;a3c2	e5 	. 
	pop de			;a3c3	d1 	. 
	inc de			;a3c4	13 	. 
	ld bc,00027h		;a3c5	01 27 00 	. ' . 
	call sub_a3f8h		;a3c8	cd f8 a3 	. . . 
	ret			;a3cb	c9 	. 

sub_a3cch:
	call sub_a471h		;a3cc	cd 71 a4 	. q . 
	ld a,d			;a3cf	7a 	z 
	ld hl,00000h		;a3d0	21 00 00 	! . . 
	or a			;a3d3	b7 	. 
	jr z,la3dfh		;a3d4	28 09 	( . 
	ld bc,00028h		;a3d6	01 28 00 	. ( . 
	ld b,l			;a3d9	45 	E 
la3dah:
	add hl,bc			;a3da	09 	. 
	dec a			;a3db	3d 	= 
	jr nz,la3dah		;a3dc	20 fc 	  . 
	ld d,a			;a3de	57 	W 
la3dfh:
	add hl,de			;a3df	19 	. 
	ld c,0f0h		;a3e0	0e f0 	. .   CRT_ADDR
	ld a,00eh		;a3e2	3e 0e 	> . 
	out (c),a		;a3e4	ed 79 	. y 
	inc c			;a3e6	0c 	. 
	out (c),h		;a3e7	ed 61 	. a   CRT_REG
	dec c			;a3e9	0d 	. 
	inc a			;a3ea	3c 	< 
	out (c),a		;a3eb	ed 79 	. y   CRT_ADDR
	inc c			;a3ed	0c 	. 
	out (c),l		;a3ee	ed 69 	. i   CRT_REG
	ld de,04000h		;a3f0	11 00 40 	. . @ 
	add hl,de			;a3f3	19 	. 
	call sub_a486h		;a3f4	cd 86 a4 	. . . 
	ret			;a3f7	c9 	. 

sub_a3f8h:
	push af			;a3f8	f5 	. 
	ld b,c			;a3f9	41 	A 
la3fah:
	in a,(0f0h)		;a3fa	db f0 	. .   CRT_ADDR
	rlca			;a3fc	07 	. 
	jr nc,la3fah		;a3fd	30 fb 	0 . 
	in a,(0f0h)		;a3ff	db f0 	. .   CRT_ADDR
	rlca			;a401	07 	. 
	jr nc,la3fah		;a402	30 f6 	0 . 
la404h:
	ld a,(hl)			;a404	7e 	~ 
	cp (hl)			;a405	be 	. 
	jr nz,la404h		;a406	20 fc 	  . 
	ex de,hl			;a408	eb 	. 
la409h:
	ld (hl),a			;a409	77 	w 
	cp (hl)			;a40a	be 	. 
	jr nz,la409h		;a40b	20 fc 	  . 
	ex de,hl			;a40d	eb 	. 
	inc hl			;a40e	23 	# 
	inc de			;a40f	13 	. 
	djnz la404h		;a410	10 f2 	. . 
	pop af			;a412	f1 	. 
	ret			;a413	c9 	. 

sub_a414h:
	push af			;a414	f5 	. 
	ld a,b			;a415	78 	x 
	or c			;a416	b1 	. 
	jr z,la431h		;a417	28 18 	( . 
	ld a,b			;a419	78 	x 
	ld b,c			;a41a	41 	A 
	ld c,a			;a41b	4f 	O 
la41ch:
	ld a,(hl)			;a41c	7e 	~ 
	cp (hl)			;a41d	be 	. 
	jr nz,la41ch		;a41e	20 fc 	  . 
	ex de,hl			;a420	eb 	. 
la421h:
	ld (hl),a			;a421	77 	w 
	cp (hl)			;a422	be 	. 
	jr nz,la421h		;a423	20 fc 	  . 
	ex de,hl			;a425	eb 	. 
	inc hl			;a426	23 	# 
	inc de			;a427	13 	. 
	djnz la41ch		;a428	10 f2 	. . 
	ld a,c			;a42a	79 	y 
	or b			;a42b	b0 	. 
	jr z,la431h		;a42c	28 03 	( . 
	dec c			;a42e	0d 	. 
	jr la41ch		;a42f	18 eb 	. . 

la431h:
	pop af			;a431	f1 	. 
	ret			;a432	c9 	. 

la433h:	; fill screen with gray pattern continuously
	ld a,(iy+000h)		;a433	fd 7e 00 	. ~ . 
	cp 000h		;a436	fe 00 	. . 
	ret z			;a438	c8 	. 
	ld c,a			;a439	4f 	O 
	call sub_a00ah		;a43a	cd 0a a0 	. . . 
	inc iy		;a43d	fd 23 	. # 
	jr la433h		;a43f	18 f2 	. . 

la441h:	; fill screen with gray pattern continuously
	call la433h		;a441	cd 33 a4 	. 3 . 
	ld iy,la44ah		;a444	fd 21 4a a4 	. ! J . 
	jr la433h		;a448	18 e9 	. . 

la44ah:
	dec c			;a44a	0d 	. 
	ld a,(bc)			;a44b	0a 	. 
	nop			;a44c	00 	. 
sub_a44dh:
	push af			;a44d	f5 	. 
	push de			;a44e	d5 	. 
la44fh:
	in a,(0f0h)		;a44f	db f0 	. .   CRT_ADDR
	rlca			;a451	07 	. 
	jr nc,la44fh		;a452	30 fb 	0 . 
	ld e,(hl)			;a454	5e 	^ 
	inc hl			;a455	23 	# 
la456h:
	in a,(0f0h)		;a456	db f0 	. .   CRT_ADDR
	rlca			;a458	07 	. 
	jr nc,la456h		;a459	30 fb 	0 . 
	ld d,(hl)			;a45b	56 	V 
	ex de,hl			;a45c	eb 	. 
	pop de			;a45d	d1 	. 
	pop af			;a45e	f1 	. 
	ret			;a45f	c9 	. 

sub_a460h:
	push hl			;a460	e5 	. 
	ld hl,04604h		;a461	21 04 46 	! . F 
	call sub_a44dh		;a464	cd 4d a4 	. M . 
	ex de,hl			;a467	eb 	. 
	pop hl			;a468	e1 	. 
	ret			;a469	c9 	. 

sub_a46ah:
	ld hl,04602h		;a46a	21 02 46 	! . F 
	call sub_a44dh		;a46d	cd 4d a4 	. M . 
	ret			;a470	c9 	. 

sub_a471h:
	push af			;a471	f5 	. 
	push hl			;a472	e5 	. 
	ld hl,04604h		;a473	21 04 46 	! . F 
la476h:
	in a,(0f0h)		;a476	db f0 	. .   CRT_ADDR
	rlca			;a478	07 	. 
	jr nc,la476h		;a479	30 fb 	0 . 
	ld (hl),e			;a47b	73 	s 
	inc hl			;a47c	23 	# 
la47dh:
	in a,(0f0h)		;a47d	db f0 	. .   CRT_ADDR
	rlca			;a47f	07 	. 
	jr nc,la47dh		;a480	30 fb 	0 . 
	ld (hl),d			;a482	72 	r 
	pop hl			;a483	e1 	. 
	pop af			;a484	f1 	. 
	ret			;a485	c9 	. 

sub_a486h:
	push af			;a486	f5 	. 
	push de			;a487	d5 	. 
	ld de,04602h		;a488	11 02 46 	. . F 
	ex de,hl			;a48b	eb 	. 
la48ch:
	in a,(0f0h)		;a48c	db f0 	. .   CRT_ADDR
	rlca			;a48e	07 	. 
	jr nc,la48ch		;a48f	30 fb 	0 . 
	ld (hl),e			;a491	73 	s 
	inc hl			;a492	23 	# 
la493h:
	in a,(0f0h)		;a493	db f0 	. .   CRT_ADDR
	rlca			;a495	07 	. 
	jr nc,la493h		;a496	30 fb 	0 . 
	ld (hl),d			;a498	72 	r 
	ex de,hl			;a499	eb 	. 
	pop de			;a49a	d1 	. 
	pop af			;a49b	f1 	. 
	ret			;a49c	c9 	. 

la49dh:		; 6845 config data. alternating register and value
	defb	00h		;a49d  R0
	defb	3fh		;a49e
	defb	01h		;a49f  R1
	defb	28h		;a4a0
	defb	02h		;a4a1  R2
	defb	30h		;a4a2
	defb	03h		;a4a2  R3
	defb	05h		;a4a4
	defb	04h		;a4a5  R4
	defb	19h		;a4a6
la4a7h:
	defb	05h		;a4a7  R5
	defb	0eh		;a4a8
	defb	06h		;a4a9  R6
	defb	14h		;a4aa
	defb	07h		;a4ab  R7
	defb	17h		;a4ac
	defb	08h		;a4ad  R8
	defb	00h		;a4ae
	defb	09h		;a4af  R9
	defb	0bh		;a4b0
	defb	0ah		;a4b1  R10
	defb	60h		;a4b2
	defb	0bh		;a4b3  R11
	defb	0bh		;a4b4
	defb	0ch		;a4b5  R12
	defb	00h		;a4b6
	defb	0dh		;a4b7  R13
	defb	00h		;a4b8
	defb	0eh		;a4b9  R14
	defb	00h		;a4ba
	defb	0fh		;a4bb  R15
	defb	00h		;a4bc
	defb	ffh		;a4bd  end
la4beh:
	defb	0ah		;a4be	R10: Cursor start
	defb	20h		;a4bf
	defb	ffh		;a4c0
la4c1h:
	defb	0ah		;a4c1  R10 
	defb	60h		;a4c2  
	defb	ffh		;a4c3  end
	nop			;a4c4	00 	. 
	nop			;a4c5	00 	. 
	nop			;a4c6	00 	. 
	nop			;a4c7	00 	. 
	nop			;a4c8	00 	. 
	nop			;a4c9	00 	. 
	nop			;a4ca	00 	. 
	nop			;a4cb	00 	. 
	nop			;a4cc	00 	. 
	nop			;a4cd	00 	. 
	nop			;a4ce	00 	. 
	nop			;a4cf	00 	. 
	rst 38h			;a4d0	ff 	.