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