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