![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to UAEWB.rexx CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [UNIX Amiga Emulator] / uae / src / od-amiga|
Return to UAEWB.rexx CVS log | Up to [UNIX Amiga Emulator] / uae / src / od-amiga |
1.1 root 1: /*rx
2: * UAE.wb - A nice GUI for launching uae using MUIREXX
3: *
4: * (c) By Samuel Devulder, 01/98.
5: *
6: * $VER: UAEWB.rexx (01.05.98) � by Samuel Devulder
7: *
8: * History:
9: * v0.1 (14.01.98): first try
10: * v0.2 (26.01.98): adaptation to MUIRexx3.0 (too bad, scripts for
11: * MUIRexx2.0 are not fully compatible with MUIRexx3.0)
12: * v0.3 (28.02.98): added "quality" parameter for sound.
13: * v0.4 (01.05.98): added support for CPU selection.
14: */
15:
16: OPTIONS RESULTS
17: ADDRESS COMMAND
18:
19: /* Run MUIREXX */
20: IF ~show('p','UAEWB') THEN DO
21: 'run >nil: muirexx port UAEWB'
22: DO WHILE ~show('p','UAEWB')
23: 'wait 1'
24: END
25: END
26:
27: ADDRESS UAEWB
28:
29: WINDOW ID WAIT ATTRS 0x80421923 0 0x8042045d 0
30: LABEL "\033b\033cPlease wait\nwhile UAE is loading...\033n"
31: ENDWINDOW
32:
33: TRUE = 1
34: FALSE = 0
35: MUIA_Application_Title = 0x804281b8
36: MUIA_Application_Version = 0x8042b33f
37: MUIA_Application_Copyright = 0x8042ef4d
38: MUIA_Application_Author = 0x80424842
39: MUIA_Application_Base = 0x8042e07a
40: MUIA_Application_OpenConfigWindow = 0x804299ba
41: MUIA_Application_AboutMUI = 0x8042d21d
42: MUIA_Background = 0x8042545b
43: MUIA_Image_FreeHoriz = 0x8042da84
44: MUIA_Image_FontMatchWidth = 0x804239bf
45: MUIA_Image_FontMatchHeight = 0x804239c0
46: MUIA_Width = 0x8042b59c
47: MUIA_Image_FontMatch = 0x8042815d
48: MUIA_Image_FontMatchHeight = 0x80429f26
49: MUIA_FixWidthTxt = 0x8042d044
50: MUIA_Weight = 0x80421d1f
51: MUIA_Pressed = 0x80423535
52: MUIA_ShowMe = 0x80429ba8
53: MUIA_Slider_Horiz = 0x8042fad1
54: MUIA_Slider_Min = 0x8042e404
55: MUIA_Slider_Max = 0x8042d78a
56: MUIA_Slider_Level = 0x8042ae3a
57: MUIA_Frame = 0x8042ac64
58: MUIA_Screen_Accept = 0x8042e3e1
59: MUIA_Screen_MaxLen = 0x80424984
60: MUIA_List_Format = 0x80423c0a
61: MUIA_Cycle_Active = 0x80421788
62: MUIA_Menuitem_Shortcut = 0x80422030
63: MUIA_Menuitem_Title = 0x804218be
64: MUIA_Selected = 0x8042654b
65: MUIA_Disabled = 0x80423661
66: MUIA_Group_Columns = 0x8042f416
67: MUIA_ControlChar = 0x8042120b
68: ASLFR_DrawersOnly = 0x8008002F
69:
70: MUIV_Frame_Text = 3
71: MUIV_Frame_Group = 9
72:
73: MUII_BACKGROUND = 128
74: MUII_SHADOWFILL = 133
75: MUII_HSHADOWBACK = 140
76: MUII_HSHADOWSHADOW = 142
77: WINDOW ID MAIN COMMAND """QUIT""" PORT UAEWB TITLE """UAE Launcher"""
78:
79: MENU LABEL "Project"
80: MENU LABEL "About"
81: ITEM COMMAND '"UAEWB.aux about"',
82: ATTRS MUIA_Menuitem_Shortcut 'A',
83: LABEL "UAE"
84: ITEM COMMAND '"method 'MUIA_Application_AboutMUI' 0"',
85: ATTRS MUIA_Menuitem_Shortcut 'M',
86: PORT UAEWB LABEL "MUI"
87: ENDMENU
88: MENU LABEL "Settings"
89: ITEM COMMAND '"UAEWB.aux a500"' LABEL "Preset to A500"
90: ITEM COMMAND '"UAEWB.aux HAM"' LABEL "Set output to HAM6"
91: ITEM ATTRS MUIA_Menuitem_Title '-1'
92: ITEM COMMAND '"UAEWB.aux default"' LABEL "Reset to default"
93: ITEM COMMAND 'ENV:UAEWB' LABEL "Reset to last saved"
94: ITEM ATTRS MUIA_Menuitem_Title '-1'
95: ITEM COMMAND '"method 'MUIA_Application_OpenConfigWindow'"',
96: PORT UAEWB LABEL "MUI..."
97: ENDMENU
98: ITEM ATTRS MUIA_Menuitem_Title '-1'
99: ITEM COMMAND '"quit"' PORT UAEWB ATTRS MUIA_Menuitem_Shortcut 'Q',
100: LABEL "Quit"
101: ENDMENU
102:
103: /* Presentation txt */
104: TEXT ATTRS MUIA_Frame MUIV_Frame_Group MUIA_Background MUII_HSHADOWSHADOW,
105: LABEL "\0338\033c\033bUAE Launcher v0.4\033n",
106: "\n� by Samuel Devulder, 05/98."
107:
108: SPACE
109:
110: /* Main group */
111: GROUP REGISTER LABELS "Display,Memory,Disks,Sound,Misc"
112: /* DISPLAY */
113: GROUP FRAME LABEL "Gfx Setup"
114: GROUP HORIZ
115: LABEL "Size:"
116: CYCLE ID SIZE,
117: HELP """LORES makes UAE use a 320x256 window "||,
118: "(\033ifast and good for games\033n)\n"||,
119: "HIRES makes UAE use a 640x512 window "||,
120: "(\033igood for Workbench\033n)""",
121: LABELS "LORES,HIRES"
122: LABEL "Screen:"
123: CYCLE ID SCRN,
124: HELP """PUBLIC => Workbench output\n"||,
125: "ASLREQ => ASL-Requester selection\n"||,
126: "DEFSCR => Automatically Selected screen\n"||,
127: "ModeID => ModeID and Depth below define screen.""",
128: LABELS "PUBLIC,ASLREQ,DEFSCR,ModeID"
129: ENDGROUP
130: GROUP HORIZ
131: LABEL "ModeID:"
132: STRING ID SM,
133: HELP """Enter the screen mode you want UAE to use.\n"||,
134: "(format 0xNNNNNNNN).""",
135: PORT UAEWB COMMAND """CYCLE ID SCRN ATTRS 0x80421788 3"""
136: LABEL "Depth:"
137: CYCLE ID DEPTH,
138: HELP """Select the depth of UAE's screen. (\033iUse\n"||,
139: "this in conjunction with ModeID\033n)""",
140: PORT UAEWB COMMAND """CYCLE ID SCRN ATTRS 0x80421788 3""",
141: ATTRS MUIA_Weight 1,
142: LABELS "N/A,1,2,3,4,5,6,7,8,15,16,24,32"
143: ENDGROUP
144: GROUP HORIZ
145: LABEL "Frame Rate:"
146: SLIDER ID SLDR,
147: HELP """Use this slider gadget to select the frame rate\n"||,
148: "(\033ithe lower, the smoother the display will "||,
149: "be\033n).""",
150: MUIA_Slider_Horiz TRUE MUIA_Slider_Min 1 MUIA_Slider_Max 20
151: ENDGROUP
152: GROUP HORIZ
153: SPACE HORIZ
154: LABEL "Gray scale:"
155: CHECK ID GRAY,
156: HELP """Make UAE use a gray output\n(\033iusefull for WB with few"||,
157: " colors\033n)"""
158: SPACE HORIZ
159: LABEL "Dithering:";
160: CHECK ID DITH ATTRS MUIA_Selected TRUE,
161: HELP """If activated, UAE will use dithering to approximate "||,
162: "colors.\n(\033idisable this if you want to emulate "||,
163: "WB-based programs\nor to gain some speed\033n)"""
164: SPACE HORIZ
165: ENDGROUP
166: ENDGROUP
167: /* MEMORY */
168: GROUP
169: GROUP HORIZ FRAME ATTRS MUIA_Group_Columns 4 LABEL "RAM"
170: LABEL "ChipRam:"
171: CYCLE ID CHIP,
172: ATTRS MUIA_Cycle_Active 2,
173: HELP """Select the amount of ChipRam UAE will emulate\n"||,
174: "(\033i2Mb max if FASTRAM is used\033n).""",
175: LABELS "512 Kb,1 Mb,2 Mb,4 Mb,8 Mb"
176: LABEL "SlowFast:"
177: CYCLE ID SLOW,
178: HELP """Select the amount of FASTRAM size that UAE\n"||,
179: "will emulate at 0xC00000.""",
180: LABELS "None,512 Kb,1024 Kb"
181: LABEL "FastRam:"
182: CYCLE ID FAST,
183: HELP """Select the amount of 32bit FASTRAM that UAE\n"||,
184: "will emulate at 0x200000.""",
185: LABELS "None,1 Mb,2 Mb,3 Mb,4 Mb,5 Mb,6 Mb,7 Mb,8 Mb"
186: LABEL "ZorroIII: "
187: GROUP HORIZ
188: POPSLIDER ID Z3RAM,
189: ATTRS MUIA_Slider_Level 0 MUIA_Slider_Min 0 MUIA_Slider_Max 64,
190: HELP """Select the amount of 32bit Zorro-III\nram UAE will "||,
191: "emulate."""
192: LABEL "Mb"
193: SPACE HORIZ
194: ENDGROUP
195: ENDGROUP
196: GROUP HORIZ FRAME LABEL "ROM"
197: LABEL "Romfile:"
198: POPASL ID ROMF HELP """Enter the romfile UAE will use.""",
199: CONTENT "DEVS:Kickstarts/"
200: ENDGROUP
201: ENDGROUP
202: /* DISKS */
203: GROUP
204: GROUP HORIZ FRAME ATTRS MUIA_Group_Columns 4 LABEL "Diskfiles"
205: LABEL "DF0:"
206: POPASL ID DF0 HELP """Enter the diskfile for emulating DF0:"""
207: LABEL "DF1:"
208: POPASL ID DF1 HELP """Enter the diskfile for emulating DF1:"""
209: LABEL "DF2:"
210: POPASL ID DF2 HELP """Enter the diskfile for emulating DF2:"""
211: LABEL "DF3:"
212: POPASL ID DF3 HELP """Enter the diskfile for emulating DF3:"""
213: ENDGROUP
214: GROUP HORIZ ATTRS MUIA_Group_Columns 4
215: LABEL "HDisk 1:"
216: STRING ID VMOU1 HELP """Enter the name of the 1st hard-disk (or partition)\n"||,
217: "UAE will mount (\033iUse Misc/Extra param to mount "||,
218: "more\nthan 3 hard-disks\033n)."""
219: LABEL '"="'
220: POPASL ID VPAT1 ATTRS ASLFR_DrawersOnly 1 MUIA_Weight 300,
221: HELP """Enter the path to use for the 1st hard-disk (or partition)"""
222: LABEL "HDisk 2:"
223: STRING ID VMOU2 HELP """Enter the name of the 2nd hard-disk (or partition)\n"||,
224: "UAE will mount (\033iUse Misc/Extra param to mount "||,
225: "more\nthan 3 hard-disks\033n)."""
226: LABEL '"="'
227: POPASL ID VPAT2 ATTRS ASLFR_DrawersOnly 1 MUIA_Weight 300,
228: HELP """Enter the path to use for the 2nd hard-disk (or partition)"""
229: ENDGROUP
230: ENDGROUP
231: /* SOUND */
232: GROUP HORIZ FRAME LABEL "Audio Setup"
233: SPACE HORIZ
234: GROUP HORIZ ATTRS MUIA_Group_Columns 2 muia_weight 400
235: LABEL "Sound:"
236: CYCLE ID SOUND,
237: HELP """NONE => No sound\n"||,
238: "OFF => Emulated but no output\n"||,
239: "ON => Emulated\n"||,
240: "BEST => Accurate emulation (\033iCPU power "||,
241: "needed\033n).""",
242: LABELS "NONE,OFF,ON,BEST"
243: LABEL "Quality:"
244: GROUP HORIZ
245: CYCLE ID AUDBIT,
246: HELP """16 bits will only work if AHI is installed""",
247: LABELS "8 bits,16 bits"
248: CYCLE ID AUDMS,
249: HELP """Stereo will only work if AHI is installed""",
250: LABELS "mono,stereo"
251: ENDGROUP
252: LABEL "Frequency:"
253: GROUP HORIZ
254: POPSLIDER ID FREQ,
255: HELP """Select the frequency UAE will use to\n"||,
256: "mix output (the more, the better [\033ibut\n"||,
257: "the more CPU power is needed too\033n]).""",
258: ATTRS MUIA_Slider_Level 11 MUIA_Slider_Min 4 MUIA_Slider_Max 44
259: LABEL "KHz"
260: SPACE HORIZ
261: LABEL "Buffer:"
262: GROUP HORIZ
263: POPSLIDER ID BUFF,
264: HELP """Select the sound buffer size for UAE\n"||,
265: "(the more, the better).""",
266: ATTRS MUIA_Slider_Level 2 MUIA_Slider_Min 8 MUIA_Slider_Max 256
267: LABEL "Kb"
268: ENDGROUP
269: ENDGROUP
270: LABEL "Soundfile:"
271: POPASL ID SFILE,
272: HELP """\033bEXPERT OPTION\033n: Select the filename UAE\n"||,
273: "will use to output sound."""
274: ENDGROUP
275: SPACE HORIZ
276: ENDGROUP
277: /* MISC */
278: GROUP
279: GROUP HORIZ ATTRS MUIA_Group_Columns 4
280: LABEL "FastBlt:"
281: CYCLE ID FBLT,
282: HELP """When activated, UAE will emulate\na 32bit fast blitter.""",
283: LABELS "ON,OFF"
284: LABEL "GUI:"
285: CYCLE ID GUI,
286: HELP """If not enabled, UAE will run without GUI.""",
287: LABELS "Enabled,Disabled"
288: LABEL "Port 0:"
289: CYCLE ID JOY0,
290: ATTRS MUIA_Disabled FALSE,
291: LABELS "Mouse,Joystick,KeyPad,Arrows"
292: LABEL "Port 1:"
293: CYCLE ID JOY1,
294: ATTRS MUIA_Cycle_Active 1 MUIA_Disabled FALSE,
295: LABELS "Mouse,Joystick,KeyPad,Arrows"
296: LABEL "CPU:"
297: CYCLE ID CPUT,
298: HELP """Select the CPU you want to emulate:\n"||,
299: " - 680x0 => No need explain :-)\n"||,
300: " - 020/881 => 68020 (or 68EC030) with fpu\n"||,
301: " - mc68k => more compatible (but slower) 68000 mode""",
302: ATTRS MUIA_Cycle_Active 2,
303: LABELS "68000,68010,68020,020/881,mc68k"
304: LABEL "Power:"
305: SLIDER ID CPUR,
306: HELP """\033bEXPERT OPTION\033n:\n"||,
307: "1 => More time spent in CPU emulation "||,
308: "(good for Workbench)\n"||,
309: "4 => Normal CPU vs CHIPSET time ratio\n"||,
310: "8 => More time spent in CHIPSET emulation "||,
311: "(good for games/demos)""",
312: ATTRS MUIA_Slider_Horiz TRUE MUIA_Slider_Level 4,
313: MUIA_Slider_Min 1 MUIA_Slider_Max 16
314: ENDGROUP
315: GROUP HORIZ ATTRS MUIA_Group_Columns 2
316: LABEL "AutoGrap IFF:"
317: POPASL ID SIFF HELP """\033bEXPERT OPTION\033n: Enter here the "||,
318: "filename\nUAE will use to save frames."""
319: LABEL "Extra options:"
320: STRING ID EXTRA HELP """Write here the extra parameters (see README)\n"||,
321: "you want to pass to UAE."""
322: ENDGROUP
323: ENDGROUP
324: ENDGROUP
325:
326: SPACE
327:
328: /* SAVE | USE | CANCEL */
329: GROUP HORIZ
330: button PRESS HELP """Save current setup and launch UAE""",
331: COMMAND """UAEWB.aux save""" LABEL "Save"
332: button PRESS HELP """Launch UAE with current settings""",
333: COMMAND """UAEWB.aux use""" LABEL "Use"
334: button PRESS HELP """Exit without launching UAE""",
335: COMMAND "quit" PORT UAEWB LABEL "Cancel"
336: ENDGROUP
337: EndWindow
338:
339: WINDOW ID WAIT CLOSE
340:
341: ENV="ENV:UAEWB"
342: IF EXISTS(ENV) THEN ADDRESS COMMAND "rx " ENV
343:
344: exit 0
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.