![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to UAEWB.aux 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.aux CVS log | Up to [UNIX Amiga Emulator] / uae / src / od-amiga |
1.1 root 1: /*rx
2: *
3: * UAEWB.aux - auxiliary rx script for UAEWB
4: *
5: * $VER: UAEWB.aux 0.2 (26.01.98) � by Samuel Devulder
6: *
7: * Usage: UAEWB.aux [a500|ham|default|about|use|save]
8: */
9:
10: Cycle_Active = 0x80421788
11: Selected = 0x8042654B
12: Slider_Level = 0x8042AE3A
13: MUIA_Background = 0x8042545b
14: MUIA_ControlChar = 0x8042120b
15: MUIA_Frame = 0x8042ac64
16: MUIA_Text_HiChar = 0x804218ff
17: MUIA_Window_DepthGadget = 0x80421923
18: MUIA_Window_DragBar = 0x8042045d
19: MUIA_Window_SizeGadget = 0x8042e33d
20:
21: MUII_WindowBack = 0
22: MUIV_Frame_None = 0
23: FALSE = 0
24:
25: OPTIONS RESULTS
26: PARSE ARG ACTION .
27: ACTION=upper(ACTION)
28:
29: ADDRESS UAEWB
30:
31: UAEPREFS = "ENV:UAEWB"
32:
33: /* if set prefs to default */
34: IF ACTION='DEFAULT' THEN DO
35: CYCLE ID SIZE LABEL "LORES"
36: CYCLE ID SCRN LABEL "PUBLIC"
37: STRING ID SM CONTENT ""
38: CYCLE ID DEPTH LABEL "N/A"
39: SLIDER ID SLDR ATTRS 0x8042AE3A "1"
40: CHECK ID GRAY ATTRS 0x8042654B "0"
41: CHECK ID DITH ATTRS 0x8042654B "1"
42: CYCLE ID CHIP LABEL "2 Mb"
43: CYCLE ID SLOW LABEL "None"
44: CYCLE ID FAST LABEL "None"
45: POPSLIDER ID Z3RAM ATTRS 0x8042AE3A "0"
46: POPASL ID ROMF CONTENT "DEVS:Kickstarts/"
47: POPASL ID DF0 CONTENT ""
48: POPASL ID DF1 CONTENT ""
49: POPASL ID DF2 CONTENT ""
50: POPASL ID DF3 CONTENT ""
51: STRING ID VMOU1 CONTENT ""
52: STRING ID VMOU2 CONTENT ""
53: POPASL ID VPAT1 CONTENT ""
54: POPASL ID VPAT2 CONTENT ""
55: CYCLE ID SOUND LABEL "NONE"
56: CYCLE ID AUDBIT LABEL "8 bits"
57: CYCLE ID AUDMS LABEL "mono"
58: POPSLIDER ID FREQ ATTRS 0x8042AE3A "11"
59: POPSLIDER ID BUFF ATTRS 0x8042AE3A "8"
60: POPASL ID SFILE CONTENT ""
61: CYCLE ID FBLT LABEL "ON"
62: CYCLE ID GUI LABEL "Enabled"
63: CYCLE ID JOY0 LABEL "Mouse"
64: CYCLE ID JOY1 LABEL "Joystick"
65: CYCLE ID CPUT LABEL "68020"
66: SLIDER ID CPUR ATTRS 0x8042AE3A "4"
67: POPASL ID SIFF CONTENT ""
68: STRING ID EXTRA CONTENT ""
69: EXIT 0
70: END; ELSE IF ACTION='A500' THEN DO
71: CYCLE ID CHIP LABEL "512 Kb"
72: CYCLE ID SLOW LABEL "512 Kb"
73: CYCLE ID FAST LABEL "None"
74: POPSLIDER ID Z3RAM ATTRS 0x8042AE3A "0"
75: CYCLE ID CPUT LABEL "68000"
76: SLIDER ID CPUR ATTRS 0x8042AE3A "4"
77: EXIT 0
78: END; ELSE IF ACTION='HAM' THEN DO
79: STRING ID SM CONTENT "0x21800"
80: CYCLE ID DEPTH LABEL "6"
81: CYCLE ID SCRN LABEL "ModeID"
82: EXIT 0
83: END; ELSE IF ACTION='ABOUT' THEN DO
84: WINDOW ID ABOUT ATTRS MUIA_Window_DepthGadget FALSE,
85: MUIA_Window_DragBar FALSE MUIA_Window_SizeGadget FALSE
86: GROUP HORIZ
87: BUTTON ICON "UAEWB" TRANS ATTRS MUIA_Background MUII_WindowBack,
88: MUIA_Frame MUIV_Frame_None
89: TEXT ATTRS MUIA_Background MUII_WindowBack MUIA_Frame MUIV_Frame_None,
90: LABEL "\033cUAE is the UAE Amiga Emulator\n"||,
91: "(\033irecursive definition\033n)\n"||,
92: "by Bernd Schmidt & contributors\n\n"||,
93: "Amiga Port by Samuel Devulder\n\n"||,
94: "This GUI uses MUIRexx\nby Russell Leighton"
95: ENDGROUP
96: GROUP HORIZ
97: SPACE HORIZ
98: BUTTON ID OK_BUTT COMMAND """WINDOW ID ABOUT CLOSE""" PORT UAEWB ATTRS MUIA_ControlChar 13 LABEL "Ok"
99: SPACE HORIZ
100: ENDGROUP
101: ENDWINDOW
102: EXIT 0
103: END
104:
105: /* ELSE use or save */
106: WINDOW ID WAIT ATTRS 0x80421923 0 0x8042045d 0
107: LABEL "\033b\033cPlease wait\nwhile UAE is booting...\033n"
108: ENDWINDOW
109:
110: IF ~OPEN(ENVFILE,UAEPREFS,"w") then exit(255)
111: call writeln(ENVFILE,"/*rx*/");
112: call writeln(ENVFILE,"ADDRESS UAEWB")
113:
114: /* DISPLAY */
115: UAE_SIZE = get_val("CYCLE ID SIZE",LABEL)
116: UAE_SCRN = get_val("CYCLE ID SCRN",LABEL)
117: UAE_SM = get_val("STRING ID SM",CONTENT)
118: UAE_DEPTH = get_val("CYCLE ID DEPTH",LABEL)
119: UAE_FRATE = get_val("SLIDER ID SLDR ATTRS" Slider_Level,"")
120: UAE_GRAY = get_val("CHECK ID GRAY ATTRS" Selected,"")
121: UAE_DITH = get_val("CHECK ID DITH ATTRS" Selected,"")
122:
123: /* MEMORY */
124: UAE_CHIP = get_val("CYCLE ID CHIP",LABEL)
125: UAE_SLOW = get_val("CYCLE ID SLOW",LABEL)
126: UAE_FAST = get_val("CYCLE ID FAST",LABEL)
127: UAE_Z3 = get_val("POPSLIDER ID Z3RAM ATTRS" Slider_Level,"")
128: UAE_ROM = get_val("POPASL ID ROMF",CONTENT)
129:
130: /* DISKS */
131: UAE_DF0 = get_val("POPASL ID DF0",CONTENT)
132: UAE_DF1 = get_val("POPASL ID DF1",CONTENT)
133: UAE_DF2 = get_val("POPASL ID DF2",CONTENT)
134: UAE_DF3 = get_val("POPASL ID DF3",CONTENT)
135: UAE_VMOU1 = get_val("STRING ID VMOU1",CONTENT)
136: UAE_VMOU2 = get_val("STRING ID VMOU2",CONTENT)
137: UAE_VPAT1 = get_val("POPASL ID VPAT1",CONTENT)
138: UAE_VPAT2 = get_val("POPASL ID VPAT2",CONTENT)
139:
140: /* SOUND */
141: UAE_SOUND = get_val("CYCLE ID SOUND",LABEL)
142: UAE_AUDMS = get_val("CYCLE ID AUDMS",LABEL)
143: UAE_AUDBI = get_val("CYCLE ID AUDBIT",LABEL)
144: UAE_FREQ = get_val("POPSLIDER ID FREQ ATTRS" Slider_Level,"")
145: UAE_BUFF = get_val("POPSLIDER ID BUFF ATTRS" Slider_Level,"")
146: UAE_SFILE = get_val("POPASL ID SFILE",CONTENT)
147:
148: /* MISC */
149: UAE_FBLT = get_val("CYCLE ID FBLT",LABEL)
150: UAE_GUI = get_val("CYCLE ID GUI",LABEL)
151: UAE_JOY0 = get_val("CYCLE ID JOY0",LABEL)
152: UAE_JOY1 = get_val("CYCLE ID JOY1",LABEL)
153: UAE_CPUT = get_val("CYCLE ID CPUT",LABEL)
154: UAE_CPUR = get_val("SLIDER ID CPUR ATTRS" Slider_Level,"")
155: UAE_SIFF = get_val("POPASL ID SIFF",CONTENT)
156: UAE_EXTRA = get_val("STRING ID EXTRA",CONTENT)
157:
158: call CLOSE(ENVFILE)
159:
160: /* IF SAVE prefs to envarc, do it */
161: IF ACTION='SAVE' THEN ADDRESS COMMAND "COPY "UAEPREFS" ENVARC: NOREQ QUIET"
162:
163: /* create UAE command line */
164: ADDRESS COMMAND
165: line = ""
166:
167: /* video options */
168: UAE_SIZE = upper(UAE_SIZE)
169: UAE_SCRN = upper(UAE_SCRN)
170: IF UAE_SIZE = 'LORES' then line = line "-O320:256:XYl"
171: IF UAE_SIZE = 'HIRES' then line = line "-O640:512:XYd"
172: IF UAE_SCRN = 'MODEID' then DO
173: IF (UAE_DEPTH = "N/A") | (UAE_SM=="") | (UAE_SM=0) THEN DO
174: 'RequestChoice "UAELauncher - Error" "Please set ModeID and Depth correctly" "Ok!"'
175: EXIT 0
176: END
177: line = line "-H2"
178: Delete "ENV:UAESM >NIL:"
179: Avail flush ">NIL:"
180: SetEnv UAESM UAE_SM":"UAE_DEPTH
181: END
182: IF UAE_SCRN = ASLREQ then line = line "-H2"
183: IF UAE_SCRN = PUBLIC then line = line "-H1"
184: IF UAE_SCRN = DEFSCR then line = line "-H0"
185: line = line "-f"UAE_FRATE
186: IF UAE_GRAY then line = line "-T"
187: IF ~UAE_DITH then line = line "-x"
188:
189: /* RAM options */
190: PARSE VAR UAE_CHIP NUM .;IF NUM<512 THEN NUM=NUM*1024;NUM=NUM/512;
191: IF NUM~=4 THEN line = line "-c"NUM
192: PARSE VAR UAE_SLOW NUM .;IF NUM=512 THEN line=line "-s2"
193: IF NUM=1024 THEN line=line "-s4"
194: PARSE VAR UAE_FAST NUM .;IF upper(NUM)~='NONE' THEN line=line "-F"NUM
195: PARSE VAR UAE_Z3 NUM .;IF NUM~=0 THEN line=line "-Z"NUM
196: IF OPEN(ROM,UAE_ROM,'R') THEN DO
197: line=line "-r"UAE_ROM;
198: call close(ROM);
199: end
200:
201: /* DISKS */
202: UAE_VMOU1=compress(UAE_VMOU1,":")
203: UAE_VMOU2=compress(UAE_VMOU2,":")
204: IF UAE_DF0~="" THEN line=line "-0"UAE_DF0
205: IF UAE_DF1~="" THEN line=line "-1"UAE_DF1
206: IF UAE_DF2~="" THEN line=line "-2"UAE_DF2
207: IF UAE_DF3~="" THEN line=line "-3"UAE_DF3
208: IF UAE_VMOU1~="" & UAE_VPAT1~="" THEN line=line "-m"UAE_VMOU1":"UAE_VPAT1
209: IF UAE_VMOU2~="" & UAE_VPAT2~="" THEN line=line "-m"UAE_VMOU2":"UAE_VPAT2
210:
211: /* SOUND */
212: UAE_SOUND=upper(UAE_SOUND)
213: UAE_AUDMS=upper(UAE_AUDMS)
214: UAE_AUDBI=upper(UAE_AUDBI)
215: IF UAE_SOUND="NONE" THEN line=line "-S0"
216: ELSE IF UAE_SOUND="OFF" THEN line=line "-S1"
217: ELSE DO
218: IF UAE_SOUND="ON" THEN line=line "-S2"; ELSE line=line "-S3"
219: IF UAE_AUDMS="MONO" THEN line=line":m"; ELSE line=line":s"
220: IF UAE_AUDBI="8 BITS" THEN line=line":8"; ELSE line=line":16"
221: line=line":"||trunc(UAE_FREQ*11025/11)||":"UAE_BUFF*1024
222: END
223: IF OPEN(ZZZ,UAE_SFILE,"w") THEN DO
224: CALL CLOSE(ZZZ)
225: ADDRESS COMMAND "Delete >NIL: ENV:AUDIONAME"
226: ADDRESS COMMAND 'Setenv AUDIONAME "'UAE_SFILE'"'
227: END
228:
229: /* MISC */
230: UAE_CPUT=upper(UAE_CPUT)
231: IF upper(UAE_FBLT)="ON" THEN line=line "-n3i"
232: IF UAE_CPUT="MC68K" THEN line=line "-C0c"
233: ELSE IF UAE_CPUT="68000" THEN line=line "-C0"
234: ELSE IF UAE_CPUT="68010" THEN line=line "-C1"
235: ELSE IF UAE_CPUT="68020" THEN line=line "-C2"
236: ELSE IF UAE_CPUT="020/881" THEN line=line "-C3"
237: IF UAE_CPUR~=4 THEN line=line "-w"||UAE_CPUR
238: IF UAE_SIFF~="" THEN DO
239: ADDRESS COMMAND 'Delete >NIL: ENV:UAEIFF'
240: ADDRESS COMMAND 'Setenv UAEIFF "'UAE_SIFF'"'
241: END
242: UAE_JOY0=upper(UAE_JOY0)
243: UAE_JOY1=upper(UAE_JOY1)
244: IF UAE_JOY0="MOUSE" THEN ZZZ="-JM"
245: IF UAE_JOY0="JOYSTICK" THEN ZZZ="-J0"
246: IF UAE_JOY0="KEYPAD" THEN ZZZ="-Ja"
247: IF UAE_JOY0="ARROWS" THEN ZZZ="-Jb"
248: IF UAE_JOY1="MOUSE" THEN ZZZ=ZZZ||"M"
249: IF UAE_JOY1="JOYSTICK" THEN ZZZ=ZZZ||"0"
250: IF UAE_JOY1="KEYPAD" THEN ZZZ=ZZZ||"a"
251: IF UAE_JOY1="ARROWS" THEN ZZZ=ZZZ||"b"
252: IF ZZZ~="-JM0" THEN line=line ZZZ
253:
254: IF UAE_EXTRA~="" THEN line=line UAE_EXTRA
255:
256: /* GUI ? */
257: IF upper(UAE_GUI)="ENABLED" THEN DO
258: IF EXISTS("src/UAEGUI.rexx") THEN
259: ADDRESS COMMAND "Run >NIL: rx src/UAEGUI.rexx"
260: ELSE IF EXISTS("amiga/UAEGUI.rexx") THEN
261: ADDRESS COMMAND "Run >NIL: rx amiga/UAEGUI.rexx"
262: ELSE ADDRESS COMMAND "Run >NIL: rx UAEGUI.rexx"
263: END
264:
265: /* and run UAE */
266: ADDRESS UAEWB 'QUIT'
267: ADDRESS COMMAND
268: TMP='t:UAEWB.'time('s')
269: 'echo >'TMP' "FailAt 21"'
270: 'echo >>'TMP' "version >NIL: ppc.library"'
271: 'echo >>'TMP' "IF NOT ERROR"'
272: 'echo >>'TMP' " Set UAE uae.elf"'
273: 'echo >>'TMP' "ELSE"'
274: 'echo >>'TMP' " Set UAE uae"'
275: 'echo >>'TMP' "ENDIF"'
276: 'echo >>'TMP' "echo Starting ''*E[1m$UAE'line'*E[0m''..."'
277: 'echo >>'TMP' "Stack 32000"'
278: 'echo >>'TMP' "$UAE'line'"'
279: 'echo >>'TMP' "echo Exiting..."'
280: 'echo >>'TMP' "Wait 10"'
281: 'echo >>'TMP' "run >NIL: WAIT 5 +"'
282: 'echo >>'TMP' "Delete 'TMP'"'
283: 'echo >>'TMP' "Endcli"'
284: 'Newcli "con:/160///UAE - Output window (Use GUI or CTRL-C to quit)/NOCLOSE" from 'TMP
285: exit(0)
286:
287: /* GET value and update prefs */
288: get_val: PROCEDURE
289: PARSE ARG CMD, SET
290: address UAEWB CMD
291: GVAL=RESULT
292: call writeln(ENVFILE,CMD SET '"'||GVAL'"')
293: return GVAL
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.