public _gt_tab
	public _pt_tab
	public _ch_tab
	public _setctc

_gt_tab:
	a = 6
	bc => sp
	de => sp
	hl => sp
	de = &_ch_tab
	call *&0xfe00

	hl -> H
	de -> hl
	hl -> D
	bc -> hl
	hl -> B
	sp => hl
	sp => de
	sp => bc
	ret

_pt_tab:
	a = 1
	bc => sp
	de => sp
	hl => sp
	B -> hl
	hl -> bc
	H -> hl
	hl -> de
	D -> hl
	call *&0xfe00
	sp => hl
	sp => de
	sp => bc
	ret

_setctc:
	a = 10
	bc => sp
	de => sp
	hl => sp
	call *&0xfe00
	sp => hl
	sp => de
	sp => bc
	ret

H:	&0
D:	&0
B:	&0

_ch_tab:	. := .[60]