.phase	0c000h

lc000::
	push	hl
	push	de
	push	bc
	push	ix
	ld	hl,(lc01b)
	ld	de,(lc019)
	call	lc01d
	ld	a,0ch
	out	(0f8h),a
	pop	ix
	pop	bc
	pop	de
	pop	hl
	ret
lc019:
	dw	0
lc01b:
	dw	0
;
;
;
lc01d:
	di
	ld	a,l
	srl	l
	srl	l
	cpl
	and	3
	ld	c,a
	ld	b,0
	ld	ix,lc031
	add	ix,bc
	ld	a,0bh
lc031:
	nop
	nop
	nop
	inc	b
	inc	c
lc036:
	dec	c
	jr	nz,lc036
	ld	c,'?'
	dec	b
	jr	nz,lc036
	inc	a
	cp	0dh
	jr	nz,lc045
	dec	a
	dec	a
lc045:
	out	(0f8h),a
	ld	b,h
	ld	c,a
	cp	0bh
	jr	nz,lc056
	ld	a,d
	or	e
	jr	z,lc05a
	ld	a,c
	ld	c,l
	dec	de
	jp	(ix)
lc056:
	ld	c,l
	inc	c
	jp	(ix)
lc05a:
	ei
	ret

	.dephase

	end