1
2	MODULE	generic_console_ioctl
3	PUBLIC	generic_console_ioctl
4
5	SECTION	code_clib
6
7	EXTERN	generic_console_cls
8	EXTERN	__console_h
9	EXTERN	__console_w
10	EXTERN	generic_console_font32
11	EXTERN	generic_console_udg32
12
13	INCLUDE	"ioctl.def"
14
15        PUBLIC          CLIB_GENCON_CAPS
16        defc            CLIB_GENCON_CAPS = CAP_GENCON_INVERSE | CAP_GENCON_CUSTOM_FONT | CAP_GENCON_UDGS | CAP_GENCON_FG_COLOUR | CAP_GENCON_BG_COLOUR
17
18; a = ioctl
19; de = arg
20generic_console_ioctl:
21	ex	de,hl
22	ld	c,(hl)	;bc = where we point to
23	inc	hl
24	ld	b,(hl)
25        cp      IOCTL_GENCON_SET_FONT32
26        jr      nz,check_set_udg
27        ld      (generic_console_font32),bc
28success:
29        and     a
30        ret
31check_set_udg:
32        cp      IOCTL_GENCON_SET_UDGS
33        jr      nz,failure
34        ld      (generic_console_udg32),bc
35        jr      success
36failure:
37	scf
38	ret
39