4 * [Generated from warning, 25 September 1996]
7 #if !defined(__CC_NORCROFT) || !defined(__arm)
8 #error You must use the Norcroft ARM Compiler for Sapphire programs
11 #pragma include_only_once
12 #pragma force_top_level
21 /*----- Overview ----------------------------------------------------------*
31 * On entry: R0 == pointer to warning text to display
32 * R1 == pointer to buttons block
34 * On exit: R0 == button that was clicked
35 * CS if this was default, CC otherwise
37 * Use: Displays a warning to the user. The warning box can have up
38 * to five buttons (because it's too small for any more than
39 * that). These are placed in a column on the right hand side
40 * of the dialogue. The buttons are numbered from 0 up to 4
41 * from the bottom upwards, 0 being the default. You can
42 * choose one button to be `Cancel', in which case pressing
43 * escape will activate it.
46 extern routine warning;
48 /* --- warn_init --- *
50 * On entry: R0 == program name
54 * Use: Sets up the Warning dialogue box for use.
57 extern routine warn_init;
59 /*----- That's all, folks -------------------------------------------------*/