Return to UAEWB.rexx CVS log

Up to [UNIX Amiga Emulator] / uae / src / od-amiga

Annotation of uae/src/od-amiga/UAEWB.rexx, revision 1.1

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.