mirror of
https://github.com/marketideas/qasm.git
synced 2026-10-24 22:02:28 +00:00
Shawn Quick
dfcaae62dd
Move the assembler to src/qasm. qlink links OMF 1.0 and 2.0 from a script. makeBin flattens a load file, qomf dumps OMF, and qpro builds ProDOS volumes. APW and MPW assemble through the ORCA front end. Relocatable modules emit OMF objects. Listings stay off unless -l is set. make boot assembles the GS/OS 6.0.1 ProDOS 8 kernel and BASIC.SYSTEM into an 800K volume. BASIC.SYSTEM accepts ls and pfx, and its splash reports PRODOS BASIC 2.0, copyright 1983-2026. IIGS.601.SRC is the source and the BASIC.SYSTEM oracle that image is built from.
1 line
3.0 KiB
R
1 line
3.0 KiB
R
/*------------------------------*/
|
|
/* Mount Image resources */
|
|
/* by Steve Stephenson */
|
|
/*------------------------------*/
|
|
|
|
#include "TypesIIGS.r"
|
|
|
|
#define MainWindowTmp $00001000
|
|
#define MainWindColor $00001000
|
|
#define MainWindTitle $00001000
|
|
#define MainCtlList $00001000
|
|
|
|
#define MountBtn $00000001
|
|
#define EjectBtn $00000002
|
|
#define MainList $00000003
|
|
#define VersionStr $00000004
|
|
|
|
#define SFPromptStr $00002001
|
|
|
|
#define AboutBox $00000001
|
|
|
|
|
|
resource rWindParam1 (MainWindowTmp) {
|
|
fTitle+fClose+fMove, // plFrame (frame bits)
|
|
MainWindTitle, // plTitle (title ID)
|
|
$00000000, // plRefCon
|
|
{ 0, 0, 0, 0}, // plZoomRect
|
|
MainWindColor, // plColorTable
|
|
{$0000, $0000}, // plYOrigin, plXOrigin
|
|
{$0000, $0000}, // plDataHeight, plDataWidth
|
|
{$0000, $0000}, // plMaxHeight, plMaxWidth
|
|
{$0000, $0000}, // plVerScroll, plHorScroll
|
|
{$0000, $0000}, // plVerPage, plHorPage
|
|
$00000000, // plInfoText (info RefCon)
|
|
$0000, // plInfoHeight
|
|
{ 53,160,172,478}, // plPosition
|
|
infront, // plPlane
|
|
MainCtlList, // plControlList
|
|
$0A09 // plInDesc
|
|
};
|
|
|
|
resource rWindColor (MainWindColor) {
|
|
$0000, // frameColor
|
|
$0F00, // titleColor
|
|
$020E, // tBarColor
|
|
$F0FF, // growColor
|
|
$00F0 // infoColor
|
|
};
|
|
|
|
resource rPString (MainWindTitle) {
|
|
" Mount Image GS "
|
|
};
|
|
|
|
resource rControlList (MainCtlList) {
|
|
{
|
|
MountBtn,
|
|
EjectBtn,
|
|
// MainList,
|
|
VersionStr,
|
|
};
|
|
};
|
|
|
|
resource rControlTemplate (MountBtn) {
|
|
MountBtn, // ID
|
|
{ 93,172,106,262}, // rect
|
|
simpleButtonControl {{
|
|
$0000, // flag
|
|
fCtlProcNotPtr+fCtlWantsEvents+refIsResource, // moreFlags
|
|
$00000000, // refCon
|
|
MountBtn, // titleRef
|
|
0, // colorTableRef
|
|
{"M", "m",$0100,$0100} // key equivalents
|
|
}};
|
|
};
|
|
|
|
resource rPString (MountBtn) {
|
|
"Mount"
|
|
};
|
|
|
|
resource rControlTemplate (EjectBtn) {
|
|
EjectBtn, // ID
|
|
{ 93, 46,106,136}, // rect
|
|
simpleButtonControl {{
|
|
$0000, // flag
|
|
fCtlProcNotPtr+fCtlWantsEvents+refIsResource, // moreFlags
|
|
$00000000, // refCon
|
|
EjectBtn, // titleRef
|
|
0, // colorTableRef
|
|
{"E", "e",$0100,$0100} // key equivalents
|
|
}};
|
|
};
|
|
|
|
resource rPString (EjectBtn) {
|
|
"Eject"
|
|
};
|
|
|
|
resource rControlTemplate (MainList) {
|
|
MainList, // ID
|
|
{ 4, 10, 86,284}, // rect
|
|
listControl {{
|
|
$0000, // flag
|
|
fCtlProcNotPtr+fCtlIsMultiPart+refIsPointer, // moreFlags
|
|
$00000000, // refCon
|
|
$0000, // listSize
|
|
$0008, // listView
|
|
$0000, // listType
|
|
$0000, // listStart
|
|
$000A, // listMemHeight
|
|
$0008, // listMemSize
|
|
$00000000 // listRef
|
|
}};
|
|
};
|
|
|
|
resource rControlTemplate (VersionStr) {
|
|
VersionStr, // ID
|
|
{107,270,116,315}, // rect
|
|
statTextControl {{
|
|
$0000, // flag
|
|
fCtlProcNotPtr+refIsPointer, // moreFlags
|
|
$00000000, // refCon
|
|
0, // textRef
|
|
0, // textSize
|
|
$0000 // just
|
|
}};
|
|
};
|
|
|
|
resource rPString (SFPromptStr) {
|
|
"Select an Image file"
|
|
};
|
|
|
|
resource rAlertString (AboutBox) {
|
|
"35~Mount Image GS"
|
|
"\$0D"
|
|
"by Steve Stephenson~^Cool"
|
|
"\$00"
|
|
};
|
|
|
|
resource rVersion (1) {
|
|
{ 1, 0, 0, development, 1},
|
|
verUS,
|
|
"Mount Image GS",
|
|
"Copyright 1993 Apple Computer, Inc."
|
|
};
|
|
|
|
|
|
// need rComment (1)
|
|
// need rComment (2)
|
|
// need rIcon
|
|
// need rBundle |