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