Skip to content

Commit eac41fb

Browse files
Merge pull request #1 from Ripjetski6502/dev
Dev
2 parents 52fc2de + 6cc3a91 commit eac41fb

14 files changed

+3004
-2730
lines changed
Binary file not shown.

README.md

Lines changed: 2 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -13,6 +13,8 @@ I ran into some limitations with the Action! version in a project regarding memo
1313

1414
Once the libraries were published and announced, Amarok on AtariAge kindly converted the C version source files of the library to Mad-Pascal. Subsequently I created an API document to match the others for the Mad-Pascal version. The Mad-Pascal version would not be here if it were not for Amarok! Thank you Amarok for the conversion!
1515

16+
In early 2023, MADRAFi converted the last few window functions over (WClr, and WDiv), and added several gadgets (GConfirm, GCombo, and GList), as well as createing another full application demo that demonstrates the new features in the form of a file picker form. Thank you MADRAFi for the contributions!
17+
1618
License: GNU General Public License v3.0
1719

1820
See the LICENSE file for full license information.

bin/fullappdemo.xex

5.73 KB
Binary file not shown.

src/a8defines.pas

Lines changed: 173 additions & 172 deletions
Original file line numberDiff line numberDiff line change
@@ -1,173 +1,174 @@
1-
// Library: a8defines.pas
2-
// Desc...: Atari 8 Bit Library Definitions
3-
// Author.: Wade Ripkowski, amarok, MADRAFi
4-
// Date...: 2023.03
5-
// License: GNU General Public License v3.0
6-
// Note...: Requires: a8defwin.pas
7-
// -Converted from C
8-
// Revised:
9-
// - Added CHDN_I definition
10-
11-
unit a8defines;
12-
13-
interface
14-
15-
const
16-
// Version
17-
LIB_VERSION = '1.1.0';
18-
19-
// Window Record and Memory Alloc
20-
WRECSZ = 10;
21-
WBUFSZ = 2068;
22-
23-
// Window flags
24-
WON = 1;
25-
WOFF = 0;
26-
27-
// Window Positioning
28-
WPABS = 128;
29-
WPTOP = 241;
30-
WPBOT = 242;
31-
WPLFT = 251;
32-
WPRGT = 252;
33-
WPCNT = 255;
34-
35-
// Window Error status
36-
WENONE = 100;
37-
WENOPN = 101;
38-
WEUSED = 102;
39-
40-
// Gadget flags
41-
GDISP = 0;
42-
GEDIT = 1;
43-
GHORZ = 1;
44-
GVERT = 2;
45-
GCON = 1;
46-
GCOFF = 2;
47-
GANY = 0;
48-
GALNUM = 1;
49-
GALPHA = 2;
50-
GNUMER = 3;
51-
52-
// Menu Exits
53-
XESC = 253;
54-
XTAB = 254;
55-
XNONE = 255;
56-
57-
// OS Registers
58-
DMACTL = 559;
59-
COLDST = 580;
60-
GPRIOR = 623;
61-
INVFLG = 694;
62-
SHFLOK = 702;
63-
HELPFG = 732;
64-
KEYPCH = 764;
65-
GRACTL = 53277;
66-
CONSOL = 53279;
67-
PMBASE = 54279;
68-
69-
// PM Registers
70-
HPOSP0 = 53248;
71-
HPOSP1 = 53249;
72-
HPOSP2 = 53250;
73-
74-
// Screen Bits
75-
ALMARG = 82;
76-
RSCRN = 88;
77-
PCOLR0 = 704;
78-
PCOLR1 = 705;
79-
PCOLR2 = 706;
80-
PCOLR3 = 707;
81-
AFOREG = 709;
82-
ABACKG = 710;
83-
ABORDR = 712;
84-
ACURIN = 752;
85-
86-
// Colors
87-
CBLACK = 0;
88-
CWHITE = 14;
89-
CGREEN = 210;
90-
CBLUE = 146;
91-
CRED = 50;
92-
CYELLOW = 222;
93-
94-
// Keystroke Values
95-
KNOMAP = 199;
96-
KNONE = 255;
97-
KENTER = 12;
98-
KDEL = 52;
99-
KDEL_S = 116;
100-
KDEL_C = 180;
101-
KINS = 183;
102-
KPLUS = 6;
103-
KASTER = 7;
104-
KMINUS = 14;
105-
KEQUAL = 15;
106-
KESC = 28;
107-
KSPACE = 33;
108-
KINV = 39;
109-
KTAB = 44;
110-
KTAB_S = 108;
111-
KCAP = 60;
112-
KLEFT = 134;
113-
KRIGHT = 135;
114-
KUP = 142;
115-
KDOWN = 143;
116-
KEYB = 21;
117-
KEYC = 18;
118-
KEYD = 58;
119-
KEYH = 57;
120-
KEYN = 35;
121-
KEYP = 10;
122-
KEYR = 40;
123-
KEYS = 62;
124-
KEYT = 45;
125-
126-
KB_C = 149;
127-
KE_C = 170;
128-
KX = 22;
129-
KX_S = 86;
130-
KE_CS = 234;
131-
KS_CS = 254;
132-
133-
// Console key value
134-
KCNON = 7;
135-
KCSTA = 262;
136-
KCSEL = 261;
137-
KCOPT = 259;
138-
139-
// Function Key Values
140-
KFHLP = 17;
141-
KF1 = 3;
142-
KF2 = 4;
143-
KF3 = 19;
144-
KF4 = 20;
145-
146-
// Character Codes
147-
CHBTRGT = #3;
148-
CHTPRGT = #5;
149-
CHTPLFT = #17;
150-
CHBTLFT = #26;
151-
CHBALL = #20;
152-
CHESC = #27;
153-
CHUP = #28;
154-
CHDN = #29;
155-
CHLFT = #30;
156-
CHRGT = #31;
157-
CHSPACE = #32;
158-
CHDMND = #96;
159-
CHCLS = #125;
160-
CHBACK = #126;
161-
CHTAB = #127;
162-
CHENT = #155;
163-
CHDELLN = #156;
164-
CHINVSP = #160;
165-
CHBUZ = #253;
166-
CHRGT_I = #159;
167-
CHO_L = #111;
168-
CHI_I = #201;
169-
CHDN_I = #157;
170-
171-
implementation
172-
1+
// Library: a8defines.pas
2+
// Desc...: Atari 8 Bit Library Definitions
3+
// Author.: Wade Ripkowski, amarok, MADRAFi
4+
// Date...: 2023.03
5+
// License: GNU General Public License v3.0
6+
// Note...: Requires: a8defwin.pas
7+
// -Converted from C
8+
// Revised:
9+
// - Added CHDN_I definition
10+
11+
unit a8defines;
12+
13+
interface
14+
15+
const
16+
// Version
17+
LIB_VERSION = '1.1.0';
18+
19+
// Window Record and Memory Alloc
20+
WRECSZ = 10;
21+
WBUFSZ = 2068;
22+
23+
// Window flags
24+
WON = 1;
25+
WOFF = 0;
26+
27+
// Window Positioning
28+
WPABS = 128;
29+
WPTOP = 241;
30+
WPBOT = 242;
31+
WPLFT = 251;
32+
WPRGT = 252;
33+
WPCNT = 255;
34+
35+
// Window Error status
36+
WENONE = 100;
37+
WENOPN = 101;
38+
WEUSED = 102;
39+
40+
// Gadget flags
41+
GDISP = 0;
42+
GEDIT = 1;
43+
GHORZ = 1;
44+
GVERT = 2;
45+
GCON = 1;
46+
GCOFF = 2;
47+
GANY = 0;
48+
GALNUM = 1;
49+
GALPHA = 2;
50+
GNUMER = 3;
51+
GFILE = 4;
52+
53+
// Menu Exits
54+
XESC = 253;
55+
XTAB = 254;
56+
XNONE = 255;
57+
58+
// OS Registers
59+
DMACTL = 559;
60+
COLDST = 580;
61+
GPRIOR = 623;
62+
INVFLG = 694;
63+
SHFLOK = 702;
64+
HELPFG = 732;
65+
KEYPCH = 764;
66+
GRACTL = 53277;
67+
CONSOL = 53279;
68+
PMBASE = 54279;
69+
70+
// PM Registers
71+
HPOSP0 = 53248;
72+
HPOSP1 = 53249;
73+
HPOSP2 = 53250;
74+
75+
// Screen Bits
76+
ALMARG = 82;
77+
RSCRN = 88;
78+
PCOLR0 = 704;
79+
PCOLR1 = 705;
80+
PCOLR2 = 706;
81+
PCOLR3 = 707;
82+
AFOREG = 709;
83+
ABACKG = 710;
84+
ABORDR = 712;
85+
ACURIN = 752;
86+
87+
// Colors
88+
CBLACK = 0;
89+
CWHITE = 14;
90+
CGREEN = 210;
91+
CBLUE = 146;
92+
CRED = 50;
93+
CYELLOW = 222;
94+
95+
// Keystroke Values
96+
KNOMAP = 199;
97+
KNONE = 255;
98+
KENTER = 12;
99+
KDEL = 52;
100+
KDEL_S = 116;
101+
KDEL_C = 180;
102+
KINS = 183;
103+
KPLUS = 6;
104+
KASTER = 7;
105+
KMINUS = 14;
106+
KEQUAL = 15;
107+
KESC = 28;
108+
KSPACE = 33;
109+
KINV = 39;
110+
KTAB = 44;
111+
KTAB_S = 108;
112+
KCAP = 60;
113+
KLEFT = 134;
114+
KRIGHT = 135;
115+
KUP = 142;
116+
KDOWN = 143;
117+
KEYB = 21;
118+
KEYC = 18;
119+
KEYD = 58;
120+
KEYH = 57;
121+
KEYN = 35;
122+
KEYP = 10;
123+
KEYR = 40;
124+
KEYS = 62;
125+
KEYT = 45;
126+
127+
KB_C = 149;
128+
KE_C = 170;
129+
KX = 22;
130+
KX_S = 86;
131+
KE_CS = 234;
132+
KS_CS = 254;
133+
134+
// Console key value
135+
KCNON = 7;
136+
KCSTA = 262;
137+
KCSEL = 261;
138+
KCOPT = 259;
139+
140+
// Function Key Values
141+
KFHLP = 17;
142+
KF1 = 3;
143+
KF2 = 4;
144+
KF3 = 19;
145+
KF4 = 20;
146+
147+
// Character Codes
148+
CHBTRGT = #3;
149+
CHTPRGT = #5;
150+
CHTPLFT = #17;
151+
CHBTLFT = #26;
152+
CHBALL = #20;
153+
CHESC = #27;
154+
CHUP = #28;
155+
CHDN = #29;
156+
CHLFT = #30;
157+
CHRGT = #31;
158+
CHSPACE = #32;
159+
CHDMND = #96;
160+
CHCLS = #125;
161+
CHBACK = #126;
162+
CHTAB = #127;
163+
CHENT = #155;
164+
CHDELLN = #156;
165+
CHINVSP = #160;
166+
CHBUZ = #253;
167+
CHRGT_I = #159;
168+
CHO_L = #111;
169+
CHI_I = #201;
170+
CHDN_I = #157;
171+
172+
implementation
173+
173174
end.

0 commit comments

Comments
 (0)