;Transient BIOS v1.4, (c)2003 Zilogator
;export from MRS09 by Busy 01/2018
;sjasmplus adaptation by z00m 01/2018
;
;flasher
;	org	#5b00,0
;	di
;	call	8187
;	ld	a,#83
;	out	(#e3),a
;	ld	hl,#6000
;	ld	de,#2000
;	ld	bc,#2000
;	ldir
;	ld	a,#40
;	out	(#e3),a
;	ei
;	ret
;
;flash	di
;	call	8187
;	ld	a,#83
;	out	(#e3),a
;	ld	hl,#00
;	ld	de,#6000
;	ld	bc,#2000
;fla	ld	a,(de)
;	inc	de
;	ld	(hl),a
;	push	bc
;	ld	b,0
;flt	cp	(hl)
;	jr	z,flb
;	djnz	flt
;	pop	bc
;flr	xor	a
;	out	(#e3),a
;	ei
;	ret
;flb	pop	bc
;	inc	hl
;	dec	bc
;	ld	a,b
;	or	c
;	jr	nz,fla
;	jr	flr
;
;TBIOS starts here

	device	zxspectrum48

	org	#0000
p0000	di
p0000r	xor	a
	ld	sp,#4000
	jp	logoex

	org	#0008
p0008	ld	hl,(#5c5d)
p0008r	call	click
	push	hl
	ld	hl,p0008r
cont	ex	(sp),hl
	jp	offret

	org	#001f
l001f	ei
	ret

	org	#0038
p0038	db	24
p0038r	push	hl
	ld	hl,p0038r
	jr	cont

	org	#004d
l004d	push	af
	ld	a,(#2022)
	and	a
	call	z,click
	jr	z,ncnt
	push	hl
	ld	hl,(#2020)
	inc	hl
	ld	(#2020),hl
	pop	hl
ncnt	pop	af
	ret

	org	#0066
p0066	db	24
p0066r	push	hl
	push	de
	push	bc
	ld	a,#fd
	in	a,(#fe)
	push	af
	bit	3,a
	call	z,dset
	pop	af
	rra
	jr	c,nalt
	ld	a,167
	ld	(#8000+adispl),a
nalt	rra
	jr	c,nbck
	ld	bc,#7ffd
	ld	a,23
	out	(c),a
	xor	a
	ld	(#8001+sdispl),a
	im	1
	inc	a
nbck	rra
	call	nc,ident
	ld	a,#fe
	in	a,(#fe)
	rra
	push	af
	call	nc,rsect
	pop	af
	bit	3,a
	call	z,video
	ld	a,#7f
	in	a,(#fe)
	rra
	jr	c,ntest
	xor	a
	out	(#e3),a
	ld	sp,#4000
tlop	call	ramt
	ld	a,b
	or	c
	jp	z,0
	jr	tlop
ntest	rra
	push	af
	call	nc,wsect
	pop	af
	push	af
	and	2
	call	z,tread
	pop	af
	and	4
	call	z,begs
	ld	a,#fb
	in	a,(#fe)
	and	16
	call	z,taps
	pop	bc
	pop	de
	pop	hl
	pop	af
	jp	offrtn

click	push	bc
	push	af
	ld	a,8
	ld	c,#aa
ppp1	ld	b,32
pppo	push	bc
	xor	#10
	out	(#fe),a
	ld	b,c
del3	djnz	del3
	pop	bc
	djnz	pppo
	rlc	c
	jr	c,ppp1
	pop	af
	pop	bc
	ret

cls	ld	hl,#5aff
	ld	a,#47
clrscr	ld	(hl),a
	dec	hl
	bit	3,h
	jr	nz,clratr
	xor	a
clratr	bit	5,h
	jr	z,clrscr
	ret

logoex	out	(#fe),a
	out	(#e3),a
	ld	(#2014),a
	ld	a,#3f
	ld	i,a
	call	cls
	ld	hl,#1ff6
	ld	de,20404
	call	lea
	dec	hl
	ld	de,23030
	call	lea
	dec	hl
	ld	de,8639
	call	lea
	call	click
	dec	hl
	ld	de,20479
	im	1
	ei
	ld	a,#7f
	in	a,(#fe)
	and	16
	jr	nz,nb
	call	lea
	dec	hl
	ld	de,23039
	call	lea
	ld	b,0
lp	halt
	djnz	lp
nb	ld	de,#f000
	ld	hl,txtho
	call	twa
	ld	b,100
waitpx	halt
	ld	a,#7f
	in	a,(#fe)
	and	#1f
	cp	#1d
	jr	z,atest
ssc	djnz	waitpx
	di
rescon	ld	bc,#1ffd
	ld	a,#04
	out	(c),a
	ld	b,#7f
	ld	a,#10
	out	(c),a
	xor	a
	out	(#e3),a
	ld	(#2022),a
	ld	b,a
	ld	sp,#3d00
	ld	hl,#ffff
fillff	push	hl
	djnz	fillff
	ld	hl,p0000r
	jp	offjph

atest	ld	de,#4000
atc	ld	a,#fd
	in	a,(#fe)
	and	#1f
	cp	#1e
	jr	nz,ssc
	dec	de
	ld	a,d
	or	e
	jr	nz,atc
	di
	call	click
wfr	call	cls
	in	a,(#fe)
	cpl
	and	31
	jr	nz,wfr
	call	click
	ld	hl,txtmt
	ld	de,#00
	call	twa
	ld	de,#2000
	ld	hl,#2014
	ld	(hl),a
	ld	a,3
	out	(#e3),a
	xor	(hl)
	ld	(hl),a
	cp	(hl)
	jr	z,okblik
	xor	a
	out	(#e3),a
	ld	hl,txtnp
	call	twa
	jr	btcont
okblik	ld	a,#80
	out	(#e3),a
	ld	(#2022),a
	ld	hl,txthn
	call	twa
	call	waitk
	call	twa
	ld	hl,0
	ld	(#2020),hl
	ld	bc,50255
blik	call	offret
	dec	bc
	inc	b
	djnz	blik
	rst	#38
	di
	xor	a
	out	(#e3),a
	push	de
	call	cnp
	pop	de
	ld	hl,#200f
	call	twa
	ld	hl,txtrn
	call	twa
btcont	ld	hl,txtht
	ld	de,#4000
	call	twa
	ld	hl,#6000
	push	hl
	ld	hl,#c000
	ld	a,#9a
	out	(#7f),a
	ld	a,1
	out	(#7f),a
	ld	c,(hl)
	inc	c
	xor	a
	out	(#7f),a
	ld	(hl),c
	inc	a
	out	(#7f),a
	ld	a,(hl)
	cp	c
	jr	z,no80
	ld	hl,txt80
	call	twa
	pop	de
	ld	hl,txtab
	ld	bc,#8000
	ld	a,#80
	call	testcn
	out	(#7f),a
	jr	cont48
no80	ld	bc,#7ffd
	xor	a
	out	(c),a
	ld	a,(hl)
	inc	a
	ex	af,af
	ld	a,1
	out	(c),a
	ex	af,af
	ld	(hl),a
	ex	af,af
	dec	a
	out	(c),a
	ex	af,af
	cp	(hl)
	jr	z,no128
for128	ld	hl,txt128
	call	twa
	pop	de
	ld	a,8
tlp	dec	a
	cp	3
	jr	nz,nolf
	ld	de,#8000
nolf	ld	bc,#7ffd
	out	(c),a
	ld	hl,txtpg
	push	af
	add	a,"0"
	ld	(#2013),a
	call	twa
	ld	hl,#2013
	ld	bc,#c000
	ld	a,#40
	call	testcn
	pop	af
	and	a
	jr	nz,tlp
	jr	hostfn
no128	ld	hl,txt48
	call	twa
	pop	de
cont48	ld	hl,txtpm
	ld	bc,#8000
	ld	a,#80
	call	testcn
	ld	de,#8000
	ld	bc,#4000
	ld	a,#40
	ld	hl,txtvr
	call	testcn
hostfn	ld	hl,txtmm
	ld	de,#a000
	call	twa
	ld	a,3
	out	(#e3),a
	ld	hl,#2000
	xor	(hl)
	ld	(hl),a
	cp	(hl)
	ld	hl,txtai
	jr	nz,maprai
	ld	hl,0
	ld	de,#2000
	ld	b,d
	ld	c,e
	ldir
	ld	hl,txtin
maprai	ld	a,#40
	out	(#e3),a
	ld	de,#c000
	call	twa
	ld	de,#e000
	call	twa
	ld	hl,stepxc
	ld	de,#5b00
	ld	bc,txtho-stepxc
	ldir
	ld	hl,#5b00+rdispl
	ld	(#5b01+t1),hl
	ld	(#5b01+t2),hl
	ld	(#5b01+t3),hl
	ld	hl,#5b00+wdispl
	ld	(#5b01+t4),hl
	ld	(#5b01+t5),hl
	ld	(#5b01+t6),hl
	ld	(#5b01+t7),hl
	ld	de,#0800
	ld	a,"0"
dramt	push	af
	ld	(#2013),a
	ld	hl,txtdp
	call	twa
	ld	hl,#2013
	ld	bc,#2000
	ld	a,#20
	call	testcn
	pop	af
	inc	a
	cp	"4"
	jr	c,dramt
	ld	hl,txtee
	ld	de,#2800
	call	twa
	ld	de,#4800
	call	twa
	call	waitk
	ld	bc,#00
	ld	a,#20
	call	testcn
	ld	de,#6800
	ld	hl,txtdd
	call	twa
	ld	de,#8800
	ld	a,160
ddl	out	(#bb),a
	push	af
	push	hl
	ld	hl,txtdl
	call	twa
	pop	hl
	call	twa
	ld	a,#ec
	call	waitid
	jr	nz,nohd
	ld	hl,txthd
	ld	bc,proghd
	jr	dfou
nohd	ld	a,#a1
	call	waitid
	jr	nz,nocd
	ld	hl,txtcd
	ld	bc,prognl
dfou	push	bc
	call	twa
	ld	bc,#a3
	ld	hl,#2200
	inir
	inir
	ld	hl,progcd
	call	prgint
	pop	hl
	call	prgint
	jr	endl
nocd	ld	hl,txtno
	call	twa
endl	pop	af
	ld	hl,txtsl
	ld	de,#5000
	add	a,16
	cp	192
	jp	c,ddl
	call	waitk
	jp	rescon

xchvr	push	hl
	push	bc
	push	de
	ld	hl,#4000
	ld	de,#2200
	ld	bc,6912
	jr	nc,nchan
	ex	de,hl
nchan	ldir
	pop	de
	pop	bc
	pop	hl
	ret

testcn	push	bc
	push	af
	call	twa
	pop	bc
	pop	hl
	ld	c,0
	push	de
	ld	a,b
	cp	#20
	jr	z,outst
	xor	#40
	call	z,xchvr
	push	af
	call	stepxc
	pop	af
	scf
	call	z,xchvr
retto	ld	(#2020),bc
	call	cnp
	pop	de
	ld	hl,#200e
	ld	(hl)," "
	call	twa
	ld	hl,txbok
	jp	twa
outst	ld	(#5bfe),sp
	ld	sp,#5bfe
	ld	de,#5c00
	push	hl
	push	bc
	ld	a,(#2013)
	add	a,#80-"0"
	jp	#5b00+xdispl

prgint	ld	a,(hl)
	inc	hl
	cp	#ff
	ret	nc
	cp	#fe
	jr	nc,appen
	and	a
	ld	e,a
	jr	nz,appen
	ld	a,32
	add	a,d
	jr	nc,ldda
	add	a,8
ldda	ld	d,a
appen	call	twa
	ld	c,(hl)
	inc	hl
	ld	b,(hl)
	inc	hl
	push	bc
	ld	b,(hl)
	inc	hl
	or	(hl)
	inc	hl
	ex	(sp),hl
	jr	nz,numb
typp	ld	a,(hl)
	inc	hl
	ld	(#2013),a
	ld	a,(hl)
	inc	hl
	ld	(#2012),a
	push	hl
	ld	hl,#2012
	push	bc
	call	twa
	pop	bc
	pop	hl
	djnz	typp
	jr	pophlc
numb	ld	c,a
	push	de
	ex	de,hl
	call	cna
	pop	de
	ld	a,"0"
	ld	b,19
loops	inc	l
	cp	(hl)
	jr	nz,typit
	djnz	loops
typit	call	twa
pophlc	pop	hl
	jr	prgint

waitid	ei
	out	(#bf),a
	ld	b,250
waitil	in	a,(#bf)
	xor	#48
	and	#c8
	jr	z,waitrt
	halt
	djnz	waitil
waitrt	di
	ret

waitk	push	af
wk	xor	a
wtd	in	a,(#fe)
	cpl
	and	31
	jr	z,wtd
	pop	af
	ret

	org	#0580
ramt	ld	hl,16384
	ld	bc,#c000
stepxc	push	bc
	push	hl
wrtzrr	xor	a
wrtzer	call	wflash
	jr	nz,bugx
	dec	bc
	ld	a,b
	or	c
	jr	nz,wrtzrr
	pop	hl
	pop	bc
	push	bc
	push	hl
lokzer	xor	a
	or	(hl)
	jr	nz,bugx
	dec	a
wrtffs	call	wflash
	jr	nz,bugx
	dec	bc
	ld	a,b
	or	c
	jr	nz,lokzer
	pop	hl
	pop	bc
	push	bc
	push	hl
	ld	d,a
fillx	ld	a,(hl)
	inc	a
	jr	nz,bugx
filly	call	prand
wrtpos	call	wflash
	jr	z,donex
bugx	pop	hl
bugy	pop	bc
	xor	a
	ld	c,a
	ld	b,a
	ret
donex	dec	bc
	ld	a,b
	or	c
	jr	nz,fillx
	pop	hl
	pop	bc
	ld	d,a
	push	bc
	push	hl
checkx	call	prand
	cp	(hl)
	jr	nz,bugx
	cpl
wrtcpl	call	wflash
	jr	nz,bugx
	dec	bc
	ld	a,b
	or	c
	jr	nz,checkx
	pop	hl
	pop	bc
	ld	d,a
	push	bc
lastck	call	prand
	add	a,(hl)
	inc	a
	jr	nz,bugy
	inc	hl
	dec	bc
	ld	a,b
	or	c
	jr	nz,lastck
	pop	bc
	ret

prand	ld	a,d
	add	a,a
	add	a,a
	add	a,d
	inc	a
	ld	d,a
	xor	b
	ret

wflash	ld	(hl),a
	push	bc
	ld	b,0
rchck	cp	(hl)
	jr	z,retw
	djnz	rchck
retw	pop	bc
	inc	hl
	ret

ramts	out	(#e3),a
	ldir
	pop	bc
	pop	hl
	push	hl
	push	bc
	call	#5b00
	pop	de
	pop	hl
	push	bc
	ld	bc,#5c00
putbg	ld	a,(bc)
	call	#5b00+wdispl
	inc	bc
	dec	de
	ld	a,d
	or	e
	jr	nz,putbg
	pop	bc
	ld	sp,(#5bfe)
	out	(#e3),a
	jp	retto

txtho	db	"Transient BIOS v"
	db	"1.4 ",#7F," Zilogator "
	db	"2003 - Hold SS+A"
	db	" to run autotest"
	db	0
txthn	db	"Hold NMI, press "
	db	"key: "
	db	0
txtie	db	"Making 50000 "
	db	"edges, "
	db	0
txtrn	db	" done, "
	db	"release NMI"
	db	0
txtmt	db	"CLOCKING LOGIC "
	db	"TEST: "
	db	0
txtnp	db	"Skipped, turn off"
	db	" MAPRAM mode to "
	db	"get it work"
	db	0
txbok	db	" OK  "
	db	0
txtht	db	"HOST RAM TEST "
	db	"["
	db	0
txt48	db	"48KB]:"
	db	0
txt80	db	"80KB]:"
	db	0
txt128	db	"128KB]:"
	db	0
txtab	db	"Auxiliary 32k"
	db	0
txtpm	db	"Main 32k"
	db	0
txtvr	db	"Videoram 16k"
	db	0
txtpg	db	"Page"
	db	0
txtmm	db	"MAPRAM MODE TEST:"
	db	0
txtai	db	"Already "
txtin	db	"OK, installed"
	db	0
txtdm	db	"DIVIDE RAM TEST:"
	db	0
txtdp	db	"Bank"
	db	0
txtee	db	"DIVIDE EEPROM "
	db	"TEST:"
	db	0
txtrm	db	"Open EPROM jumper"
	db	" for testing, "
	db	"press key: "
	db	0
txtep	db	"Eeprom"
	db	0
txtdd	db	"DETECTING AT-IDE"
	db	" AND ATAPI "
	db	"DEVICES:"
	db	0
txtma	db	"0 [MASTER]: "
	db	0
txtdl	db	"DEVICE "
	db	0
txtsl	db	"1 [SLAVE]: "
	db	0
txthd	db	"Disk"
	db	0
txtcd	db	"CD-Rom"
	db	0
txtno	db	"None"
	db	0
progcd	db	0
	db	"Model: "
	db	0
	dw	#2236
	db	20
	db	0
	db	49
	db	"Rev: "
	db	0
	dw	#222e
	db	4
	db	0
prognl	db	#ff
proghd	db	0
	db	"SN: "
	db	0
	dw	#2214
	db	10
	db	0
	db	32
	db	"Buffer: "
	db	0
	dw	#222a
	db	2
	db	#80
	db	#fe
	db	" sectors"
	db	0
	dw	#2013
	db	1
	db	0
	db	0
	db	"Current CHS: "
	db	0
	dw	#226d
	db	2
	db	#80
	db	#fe
	db	"/"
	db	0
	dw	#226f
	db	2
	db	#80
	db	#fe
	db	"/"
	db	0
	dw	#2271
	db	2
	db	#80
	db	32
	db	"  Default CHS: "
	db	0
	dw	#2203
	db	2
	db	#80
	db	#fe
	db	"/"
	db	0
	dw	#2207
	db	2
	db	#80
	db	#fe
	db	"/"
	db	0
	dw	#220d
	db	2
	db	#80
	db	0
	db	"Current "
	db	" capacity: "
	db	0
	dw	#2275
	db	4
	db	#80
	db	#fe
	db	" sectors  "
	db	"Multiple "
	db	"sectors: "
	db	0
	dw	#225e
	db	1
	db	#80
	db	0
	db	"LBA addressable"
	db	" sectors: "
	db	0
	dw	#227b
	db	4
	db	#80
	db	#fe
	db	"  Multiple "
	db	"setting: "
	db	0
	dw	#2276
	db	1
	db	80
	db	#ff

lea	xor	a
	ld	b,a
	ld	a,(hl)
	dec	hl
	rra
	ld	c,a
	jr	c,leb
	or	(hl)
	ret	z
	ld	a,15
	and	c
	ld	b,4
lex	srl	c
	djnz	lex
	push	hl
	ld	l,(hl)
	ld	h,a
	add	hl,de
	inc	c
	inc	c
leb	inc	c
	lddr
	jr	c,lea
	pop	hl
	dec	hl
	jr	lea

wsect	ld	b,12
	ld	hl,#4000
	ld	a,(23296)
	and	31
	add	a,160
	out	(187),a
	ld	de,#c040
	call	wait
	ld	a,2
	out	(175),a
	ld	a,0
	out	(179),a
	ld	a,0
	out	(183),a
	ld	a,b
	out	(171),a
	ld	a,#30
	out	(191),a
sector	ld	de,#c848
	call	wait
	push	bc
	ld	bc,#a3
	otir
	otir
	pop	bc
	djnz	sector
	jr	frew

rsect	ld	b,12
	ld	hl,#4000
	ld	a,(23296)
	and	31
	add	a,160
	out	(187),a
	ld	de,#c040
	call	wait
	ld	a,2
	out	(175),a
	ld	a,0
	out	(179),a
	ld	a,0
	out	(183),a
	ld	a,b
	out	(171),a
	ld	a,#20
	out	(191),a
sektor	ld	de,#c848
	call	wait
	push	bc
	ld	bc,#a3
	inir
	inir
	pop	bc
	djnz	sektor
frew	in	a,(191)
	ret

wait	in	a,(191)
	xor	e
	and	d
	ret	z
	xor	a
	in	a,(254)
	and	31
	jr	nz,wait
	ret

twa	xor	a
	ld	b,a
	or	(hl)
	inc	hl
	ret	z
	push	hl
	push	de
	ld	h,4
	rra
	ld	l,a
	ld	c,a
	rla
	xor	e
	add	hl,hl
	add	hl,hl
	add	hl,hl
	sbc	hl,bc
	ld	bc,#800f
	rra
	rr	b
	srl	e
	jr	c,twb
	ld	c,#f0
twb	ex	de,hl
	ld	a,#e0
	and	h
	or	l
	ld	l,a
	ld	a,#18
	and	h
	add	a,#40
	ld	h,a
twc	ld	a,(de)
	bit	7,b
	jr	z,twd
	rrca
	rrca
	rrca
	rrca
twd	xor	(hl)
	and	c
	xor	(hl)
	ld	(hl),a
	inc	h
	inc	de
	sra	b
	jr	nc,twc
	ld	a,c
	cpl
	and	(hl)
	ld	(hl),a
	pop	de
	pop	hl
	inc	e
	jr	twa

cnp	ld	bc,#0280
	ld	de,#2021
cna	ld	hl,#2013
cnc	ld	(hl),"0"
	dec	l
	jr	nz,cnc
cnd	ld	l,#13
	ld	a,(de)
	and	c
	add	a,255
cne	ld	a,(hl)
	adc	a,a
	sub	"0"
	cp	"9"+1
	jr	c,cnf
	sub	#0a
cnf	ccf
	ld	(hl),a
	dec	l
	jr	nz,cne
	srl	c
	jr	nc,cnd
	ld	c,128
	dec	de
	djnz	cnd
	ret

video	ld	hl,#5b80
	and	4
	jr	z,cus
	ld	hl,matrdf
cus	ld	a,#f7
	in	a,(#fe)
	ld	de,16
	ld	b,5
msl	rra
	jr	nc,vva
	add	hl,de
	djnz	msl
vva	xor	a
	out	(#e3),a
	ld	d,#22
	call	gen
	ld	hl,dsc
	ld	de,#2600
	ld	bc,sen-dsc
	ld	a,31
crt	ldir
	ld	hl,sbg
	ld	c,sen-sbg
	dec	a
	jr	nz,crt
	ld	c,lar-sbg
	ldir
	ld	b,32
mla	dec	hl
	dec	hl
	ldi
	ldi
	djnz	mla
	ld	c,gen-lar
	ldir
	ld	a,i
	push	af
	push	ix
	ei
vlp	ld	ix,23296
	inc	(ix+8)
	ld	a,5
	out	(#ab),a
	ld	a,(ix+1)
	ld	e,(ix+5)
	inc	e
	cp	e
	jr	c,sok
	dec	e
	sub	e
	inc	(ix+2)
sok	out	(#af),a
	add	a,5
	ld	(ix+1),a
	ld	a,(ix+2)
	cp	(ix+6)
	jr	c,hok
	xor	a
	inc	(ix+3)
	jr	nz,hok
	inc	(ix+4)
hok	ld	(ix+2),a
	add	a,(ix+0)
	out	(#bb),a
	ld	a,(ix+3)
	out	(#b3),a
	ld	a,(ix+4)
	out	(#b7),a
	ld	de,#c040
	call	wait
	ld	a,#20
	out	(#bf),a
	halt
	ld	de,#c848
	ld	hl,#2800
	ld	b,2
rsx	call	wait
	push	bc
	ld	bc,#a3
	inir
	inir
	pop	bc
	djnz	rsx
	ld	a,(ix+8)
	and	1
	push	af
	add	a,#40
	ld	b,a
	ld	c,#1f
	pop	af
	rlca
	add	a,#22
	ld	h,a
	call	#2600
	ld	a,#fd
	in	a,(#fe)
	and	2
	jr	nz,nhl
	ld	b,(ix+7)
wff	halt
	djnz	wff
nhl	ld	a,#bf
	in	a,(#fe)
	rra
	jp	c,vlp
	pop	ix
	pop	af
	ret	pe
	di
	ret

dsc	ld	de,#c848
	call	wait
	ld	e,c
	ld	d,b
	inc	d
	inc	d
	push	bc
sbg	in	a,(#a3)
	ld	l,a
	ld	a,(hl)
	inc	h
	ld	(bc),a
	ldd
	res	0,h
sen	pop	bc
	ld	a,4
	xor	b
	ld	b,a
	and	4
	jp	nz,#2606
	ld	a,32
	add	a,c
	ld	c,a
	jp	nc,#2606
	push	hl
	push	bc
	ld	a,b
	rra
	rra
	rra
	and	3
	add	a,#28
	ld	h,a
	add	a,#58-#28
	ld	d,a
	ld	l,0
	ld	e,l
	ld	c,l
	ld	b,9
	ldi
lar	djnz	$-64
	pop	bc
	pop	hl
	ld	a,8
	add	a,b
	ld	b,a
	cp	#58
	jp	c,#2600
	in	a,(#bf)
	ret

gen	ld	e,0
	ld	b,#50
ged	push	bc
gec	ld	a,e
	ld	b,#11
geb	push	hl
gea	cp	(hl)
	rl	c
	inc	hl
	sla	b
	jr	nc,gea
	pop	hl
	rlca
	rlca
	rlca
	rlca
	jr	nz,geb
	ld	a,c
	cpl
	ld	(de),a
	inc	e
	jr	nz,gec
	ld	c,4
	add	hl,bc
	pop	bc
	sla	b
	ret	z
	dec	d
	jr	c,ged
	inc	d
	inc	d
	inc	d
	jr	ged

vrcp	ld	hl,#e000
	ld	de,#4000
	ld	bc,6912
	ldir
	ret

dset	push	af
	ld	a,#17
	ld	bc,#7ffd
	out	(c),a
	call	vrcp
	ld	c,ident-servcd
	ld	hl,servcd
	ld	de,#8000
	ldir
	ld	hl,#fff4
	ld	(hl),#c3
	ld	l,#ff
	ld	(hl),#18
	ld	hl,#8000
	ld	(#fff5),hl
	pop	af
	bit	4,a
	jr	nz,nogam
	ld	hl,#e810
	ld	(#8000+ndispl),hl
	ld	hl,#8001+bdispl
	dec	(hl)
	dec	(hl)
	xor	a
	ld	(#8002+ndispl),a
nogam	ld	a,#7f
	in	a,(#fe)
	and	4
	jr	nz,noem
	ld	a,10
	ld	(#8001+cdispl),a
	ld	a,74
	ld	(#8001+bdispl),a
noem	ld	hl,#be00
fllit	ld	(hl),#ff
	inc	l
	jr	nz,fllit
	ld	a,h
	inc	h
	ld	(hl),#ff
	ld	i,a
	im	2
	ret

servcd	push	af
	push	bc
frame	ld	a,#3f
	ld	bc,#7ffd
	and	a
	rra
	exx
	ex	af,af
	push	af
	push	bc
barg	ld	bc,870
wt	dec	bc
	inc	b
	djnz	wt
	jr	nop3
nop1	nop
nop2	nop
nop3	nop
nop4	nop
nop5	nop
	ld	b,192
qew	exx
	ex	af,af
swout	out	(c),a
altplc	ccf
	jr	c,noxor
	xor	8
noxor	jr	nc,conti
	ld	b,#7f
conti	exx
	ex	af,af
carg	ld	c,9
delln	dec	c
	jr	nz,delln
	ld	c,0
nopa	nop
	djnz	qew
	pop	bc
	pop	af
	exx
	ex	af,af
	ccf
	rla
	bit	0,a
	jr	z,stocr
	xor	16
stocr	ld	(#8001+fdispl),a
	pop	bc
	pop	af
	jp	#38

ident	ld	a,#f7
	in	a,(#fe)
	and	2
	ld	a,#a0
	jr	nz,idm
	ld	a,#b0
idm	ld	hl,#5b00
	ld	(hl),a
	out	(#bb),a
	xor	a
	ld	b,4
w	inc	l
	ld	(hl),a
	djnz	w
	ld	de,#c040
	call	wait
	ld	a,#ec
	out	(#bf),a
	ld	de,#c848
	call	wait
	ld	hl,#2200
	ld	bc,#a3
	inir
	inir
	ld	de,#c040
	call	wait
	ld	a,(#220c)
	ld	(23301),a
	out	(#ab),a
	ld	a,(#2206)
	ld	(23302),a
	dec	a
	ld	c,a
	ld	a,(23296)
	or	c
	out	(#bb),a
	ld	de,#c040
	call	wait
	ld	a,#91
	out	(#bf),a
	ld	de,#c040
	call	wait
cnow	jp	click

nrthl	ld	de,(23297)
	ld	bc,(23299)
	ld	a,(23301)
	xor	e
	jr	nz,chsok
	ld	e,a
	inc	d
	ld	a,(23302)
	xor	d
	jr	nz,chsok
	ld	d,a
	inc	bc
chsok	inc	e
	ld	a,(23296)
	or	d
	out	(#bb),a
	push	de
	ld	de,#c040
	call	wait
	pop	de
	inc	a
	out	(#ab),a
	ld	a,e
	out	(#af),a
	ld	a,c
	out	(#b3),a
	ld	a,b
	out	(#b7),a
	ld	a,#20
	out	(#bf),a
	push	bc
	push	de
	ld	de,#c848
	call	wait
	ld	hl,#2400
	ld	bc,#a3
	inir
	inir
	ld	de,#c040
	call	wait
	pop	de
	pop	bc
	ret

pushm	ld	(23297),de
	ld	(23299),bc
	ret

taps	ld	de,taptag
	ld	hl,#2400
	call	begc
	ld	hl,#2618
	ld	(23305),hl
	ret

begs	ld	de,pictag
	ld	hl,#2500
begc	ld	(23305),de
	ld	(23307),hl
begsl	ld	a,(23297)
	and	7
	out	(#fe),a
	xor	a
	in	a,(#fe)
	and	31
	ret	z
	call	nrthl
	push	bc
	push	de
	ld	b,12
	ld	hl,(23307)
	ld	de,(23305)
	call	swrap
	pop	de
	pop	bc
	jr	z,ckey
	call	pushm
	jr	begsl
ckey	xor	a
	out	(#fe),a
	in	a,(#fe)
	cpl
	and	31
	jr	nz,ckey
	jp	click

tread	ld	de,#c000
	call	fets
	ld	de,#e000
	call	fets
	call	vrcp
	jr	ckey

fets	ld	bc,#1b00
nexr	ld	hl,(23305)
pude	push	de
	bit	1,h
	jr	z,noren
	res	1,h
	push	hl
	push	bc
	call	nrthl
	call	pushm
	pop	bc
	pop	hl
noren	ex	de,hl
	ld	hl,-#2600
	add	hl,de
	add	hl,bc
	jr	c,hlpok
	ld	hl,0
hlpok	ex	(sp),hl
	jr	nc,bcok
	push	hl
	ld	hl,#2601
	sbc	hl,de
	ld	b,h
	ld	c,l
	pop	hl
bcok	ex	de,hl
	ldir
	pop	bc
	ld	a,b
	or	c
	jr	nz,pude
	ld	c,25
	add	hl,bc
	ld	(23305),hl
	ret

swrap	push	hl
read	ld	a,(de)
	cp	(hl)
	jr	nz,nosuc
	inc	de
	inc	hl
	djnz	read
nosuc	pop	hl
	ret

pictag	db	"00000001.png"

taptag	db	#13,0,0,3
	db	"DithvIDE"

matrdf	db	#3f,#1f,#2f,#0f
	db	#7f,#5f,#6f,#4f
	db	#bf,#9f,#af,#8f
	db	#ff,#df,#ef,#cf

chess	db	#0f,#cf,#3f,#ff
	db	#8f,#4f,#bf,#7f
	db	#2f,#ef,#1f,#df
	db	#af,#6f,#9f,#5f

matcdf	db	#0f,#4f,#8f,#1f
	db	#bf,#ff,#cf,#5f
	db	#7f,#cf,#df,#9f
	db	#3f,#af,#6f,#2f

matodf	db	#ff,#ef,#df,#cf
	db	#4f,#3f,#2f,#bf
	db	#5f,#0f,#1f,#af
	db	#6f,#7f,#8f,#9f

mattdf	db	#0f,#2f,#5f,#9f
	db	#1f,#4f,#8f,#cf
	db	#3f,#7f,#bf,#ef
	db	#6f,#af,#df,#ff

matzdf	db	#0f,#cf,#4f,#8f
	db	#1f,#df,#5f,#9f
	db	#2f,#ef,#6f,#af
	db	#3f,#ff,#7f,#bf

	org	#04c6
p04c6	ld	hl,#1f80
p04c6r	call	click
	push	hl
	ld	hl,p04c6r
	jp	cont

	org	#0562
p0562	in	a,(#fe)
p0562r	call	click
	push	hl
	ld	hl,p0562r
	jp	cont

	org	#15d0
	incbin	"tbios-logo.bin"

	org	#1ff7
offrtn	retn
offret	ret
offjph	jp	(hl)

adispl	equ	altplc-servcd
sdispl	equ	swout-servcd
rdispl	equ	prand-stepxc
t1	equ	filly-stepxc
t2	equ	checkx-stepxc
t3	equ	lastck-stepxc
wdispl	equ	wflash-stepxc
t4	equ	wrtpos-stepxc
t5	equ	wrtcpl-stepxc
t6	equ	wrtzer-stepxc
t7	equ	wrtffs-stepxc
xdispl	equ	ramts-stepxc
ndispl	equ	nopa-servcd
cdispl	equ	carg-servcd
bdispl	equ	barg-servcd
fdispl	equ	frame-servcd

	savebin "tbiosv14.bin",$0000,$2000

	end