Apple-2gs-SW
/
morse-gs
mirror of https://github.com/ksherlock/morse-gs.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

now working.

This commit is contained in:
Kelvin Sherlock 2020-07-21 01:04:17 -04:00
parent 4a2d2155d4
commit 24221760e6
2 changed files with 61 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

53
morse16.rez
View File

@ -6,8 +6,9 @@
#define MENU_HEIGHT 12 #define MENU_HEIGHT 12
#define BUTTON_HEIGHT 13 #define BUTTON_HEIGHT 13
#define BUTTON_WIDTH 90 #define BUTTON_WIDTH 90
#define kPlayID 1 #define kTextEdit 1
#define kStopID 2 #define kPlayID 2
#define kStopID 3
resource rWindParam1 (0x1000) { resource rWindParam1 (0x1000) {
0x8020, 0x8020,
@ -46,14 +47,14 @@ resource rControlList (0x1000) {
}; };
resource rControlTemplate (0x1) { resource rControlTemplate (0x1) {
0x2, kTextEdit,
{4, 4, WIN_HEIGHT - 21, WIN_WIDTH - 4}, {4, 4, WIN_HEIGHT - 21, WIN_WIDTH - 4},
editTextControl { editTextControl {
{ /* optional Fields */ { /* optional Fields */
0x0, 0x0,
0x7400, 0x7400,
0x3, 0x3,
0x23A80000, fSingleStyle+fTabSwitch+fSmartCutPaste+fDrawBounds+fColorHilight+fDrawInactiveSelection,
{-1, -1, -1, -1}, {-1, -1, -1, -1},
0x0, 0x0,
0, 0,
@ -76,13 +77,13 @@ resource rControlTemplate (0x1) {
resource rControlTemplate (0x2) { resource rControlTemplate (0x2) {
0x4, kPlayID,
{WIN_HEIGHT - 4 - BUTTON_HEIGHT, 4, WIN_HEIGHT - 4, 4 + BUTTON_WIDTH}, {WIN_HEIGHT - 4 - BUTTON_HEIGHT, 4, WIN_HEIGHT - 4, 4 + BUTTON_WIDTH},
SimpleButtonControl { SimpleButtonControl {
{ /* optional Fields */ { /* optional Fields */
0x3, SquareShadowButton,
0x3002, 0x3002,
kPlayID, 0,
0x1000F, 0x1000F,
0x0, 0x0,
{ {
@ -96,13 +97,13 @@ resource rControlTemplate (0x2) {
}; };
resource rControlTemplate (0x3) { resource rControlTemplate (0x3) {
0x5, kStopID,
{WIN_HEIGHT - 4 - BUTTON_HEIGHT, WIN_WIDTH - 4 - BUTTON_WIDTH, WIN_HEIGHT - 4, WIN_WIDTH - 4}, {WIN_HEIGHT - 4 - BUTTON_HEIGHT, WIN_WIDTH - 4 - BUTTON_WIDTH, WIN_HEIGHT - 4, WIN_WIDTH - 4},
SimpleButtonControl { SimpleButtonControl {
{ /* optional Fields */ { /* optional Fields */
0x2, SquareButton+CtlInactive,
0x3002, 0x3002,
kStopID, 0,
0x10010, 0x10010,
0x0, 0x0,
{ {
@ -159,6 +160,14 @@ resource rPString (0x101, locked, fixed, nocrossbank, nospecialmemory) {
"Quit" "Quit"
}; };
resource rPString (0x102, locked, fixed, nocrossbank, nospecialmemory) {
"Select All"
};
resource rPString (0x103, locked, fixed, nocrossbank, nospecialmemory) {
"Preferences..."
};
/* /*
resource rPString (0x102, locked, fixed, nocrossbank, nospecialmemory) { resource rPString (0x102, locked, fixed, nocrossbank, nospecialmemory) {
"New" "New"
@ -209,6 +218,7 @@ resource rMenu (0x1, locked, fixed, nocrossbank, nospecialmemory) {
0x1, 0x1,
{ {
0x100, 0x100,
0x103,
} }
}; };
@ -232,6 +242,7 @@ resource rMenu (0x3, locked, fixed, nocrossbank, nospecialmemory) {
0xFC, 0xFC,
0xFD, 0xFD,
0xFE, 0xFE,
0x102
} }
}; };
@ -294,7 +305,7 @@ resource rMenuItem (0x100, nocrossbank, nospecialmemory) {
"", "",
"", "",
0x0, 0x0,
0x8040, 0x8000,
0x100 0x100
}; };
@ -307,6 +318,26 @@ resource rMenuItem (0x101, nocrossbank, nospecialmemory) {
0x101 0x101
}; };
resource rMenuItem (0x102, nocrossbank, nospecialmemory) {
0x102,
"A",
"a",
0x0,
0x8000,
0x102
};
resource rMenuItem (0x103, nocrossbank, nospecialmemory) {
0x103,
"",
"",
0x0,
0x8000+rMIDisabled+rMIDivider,
0x103
};
/* /*
resource rMenuItem (0x102, nocrossbank, nospecialmemory) { resource rMenuItem (0x102, nocrossbank, nospecialmemory) {
0x102, 0x102,

25
morse16.s
View File

@ -13,8 +13,9 @@
* lst on * lst on
kWindowID equ $1000 kWindowID equ $1000
kPlayID equ 1 kTextEdit equ 1
kStopID equ 2 kPlayID equ 2
kStopID equ 3
kAboutAlert equ 1 kAboutAlert equ 1
tbx on tbx on
@ -105,9 +106,9 @@ mainloop
_InitCursor _InitCursor
stz quit stz quit
lda #$0001ffff lda #$001fffff
sta event+owmTaskMask sta event+owmTaskMask
lda #^$0001ffff lda #^$001fffff
sta event+owmTaskMask+2 sta event+owmTaskMask+2
:loop :loop
@ -120,6 +121,7 @@ mainloop
bcs :loop bcs :loop
asl asl
tax
jsr (:table,x) jsr (:table,x)
lda quit lda quit
beq :loop beq :loop
@ -200,10 +202,20 @@ menu
dw :rts ; 253 paste dw :rts ; 253 paste
dw :rts ; 254 clear dw :rts ; 254 clear
dw :rts ; 255 close dw :rts ; 255 close
dw bye ; 256 - quit dw about ; 256 about
dw about dw bye ; 257 quit
dw :select ; 258 - select all
dw :rts ; 259 - preferences
:table_size = {*-:table}/2 :table_size = {*-:table}/2
:select
psl #0
psl #255
psl #0
_TESetSelection
rts
about about
pha pha
psw #awResource psw #awResource
@ -224,6 +236,7 @@ control
:table :table
dw :rts ; 0 - none dw :rts ; 0 - none
dw :rts ; text edit.
dw play dw play
dw stop dw stop
:table_size = {*-:table}/2 :table_size = {*-:table}/2