Skip to content

Commit c45eda6

Browse files
basvoddebasvodde
committed
Watcom version 1
1 parent a9732c4 commit c45eda6

File tree

1,554 files changed

+483392
-0
lines changed

Some content is hidden

Large Commits have some content hidden by default. Use the searchbox below for content that may be hidden.

1,554 files changed

+483392
-0
lines changed

‎binl/1250.uni

796 Bytes
Binary file not shown.

‎binl/1251.uni

796 Bytes
Binary file not shown.

‎binl/1252.uni

796 Bytes
Binary file not shown.

‎binl/936.uni

63.8 KB
Binary file not shown.

‎binl/949.uni

63.8 KB
Binary file not shown.

‎binl/950.uni

63.8 KB
Binary file not shown.

‎binl/addsrc.dbg

+5
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,5 @@
1+
* Syntax: addsrc <path1> <path2> ...
2+
*
3+
* Synopsis: Adds the specified source path (including wild card).
4+
*
5+
set source/add <1> <2> <3> <4> <5> <6> <7> <8> <9>

‎binl/animate.dbg

+5
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,5 @@
1+
* Syntax: animate
2+
*
3+
* Synopsis: Do a slow-motion animation of code execution.
4+
*
5+
invoke slow 1

‎binl/bcnt.dbg

+8
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,8 @@
1+
* Syntax: bcnt <count> <address>
2+
*
3+
* Synopsis: Break execution after "count" iterations at the specified
4+
* "address". The break point is cleared afterwards.
5+
*
6+
* Example: bcnt 1000 StageD
7+
*
8+
break/set <2> {} {} <1>

‎binl/bif.dbg

+8
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,8 @@
1+
* Syntax: bif <expr> <address>
2+
*
3+
* Synopsis: Break execution at the specified "address" when "expr"
4+
* is true (non-zero result).
5+
*
6+
* Example: bif {ax == 0} malloc
7+
*
8+
break/set <2> {} {<1>}

‎binl/bp.dbg

+5
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,5 @@
1+
* Syntax: bp
2+
*
3+
* Synopsis: Simulate the Codeview "bp" command.
4+
*
5+
b <1>

‎binl/c.prs

3.22 KB
Binary file not shown.

‎binl/cntbrks.dbg

+13
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,13 @@
1+
* Syntax: cntbrks <address>
2+
*
3+
* Synopsis: Count the number of times <address> is executed.
4+
*
5+
* Example: cntbrks StageD
6+
*
7+
/_dbg@cnt$<0>=0
8+
break/set <1> {
9+
/_dbg@cnt$<0>=_dbg@cnt$<0>+1;
10+
print/program {cnt$<0> = %u} _dbg@cnt$<0>;
11+
go/keep
12+
}
13+
? {The count variable is "_dbg@cnt$<0>"}

‎binl/codeview.dip

46.5 KB
Binary file not shown.

‎binl/colour.dbg

+48
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,48 @@
1+
rem ****** Colour DV colours ********
2+
3+
if _dbg@dbg$monitor == 7 {
4+
paint all plain menu white on black;
5+
paint all standout menu brown on black;
6+
paint all disabled menu blue on black;
7+
paint all active menu brown on white;
8+
paint all active standout menu brown on white;
9+
paint all frame menu white on black;
10+
paint all disabled title white on white;
11+
paint all active frame cyan on white;
12+
paint all disabled frame white on white;
13+
paint all icon red on white;
14+
paint all active disabled menu blue on white;
15+
paint all plain white on white;
16+
paint all active white on black;
17+
paint all selected green on white;
18+
paint all standout red on white;
19+
paint all button white on white;
20+
paint all active standout white on black;
21+
paint status white on white
22+
} else {
23+
paint all plain menu white on blue;
24+
paint all standout menu bright white on blue;
25+
paint all disabled menu grey on blue;
26+
paint all active menu bright white on black;
27+
paint all active standout menu yellow on black;
28+
paint all frame menu yellow on blue;
29+
paint all disabled title grey on bright white;
30+
paint all active frame yellow on cyan;
31+
paint all disabled frame grey on bright white;
32+
paint all icon bright white on red;
33+
paint all active disabled menu grey on black;
34+
paint all plain black on bright white;
35+
paint all active bright white on black;
36+
paint all selected bright white on red;
37+
paint all standout red on bright white;
38+
paint all button red on bright white;
39+
paint all active standout bright red on black;
40+
paint status bright white on blue;
41+
paint dialog plain white on blue;
42+
paint dialog frame blue on cyan;
43+
paint dialog shadow black on blue;
44+
paint dialog plain button blue on white;
45+
paint dialog standout button bright white on white;
46+
paint dialog active button blue on cyan;
47+
paint dialog active standout button bright white on cyan
48+
}

‎binl/cpp.prs

3.42 KB
Binary file not shown.

‎binl/ctags

37.5 KB
Binary file not shown.

‎binl/cvkeys.dbg

+57
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,57 @@
1+
set macro all F1 {help}
2+
set macro all F2 {accel main {&Data} {&Register}}
3+
set macro all F3 {
4+
if ( dbg$src ) {
5+
display source/close;
6+
display locals/close;
7+
display register;
8+
display assembly
9+
} else {
10+
display assembly/close;
11+
display register/close;
12+
display locals;
13+
display source
14+
}
15+
}
16+
set macro all F4 {accel main {&Window} {A&pplication}}
17+
set macro all F5 {accel main {&Run} {&Go}}
18+
set macro all F6 {accel main {&Window} {Next}}
19+
set macro all F7 {accel main {&Run} {Run to &Cursor}}
20+
set macro all F8 {accel main {&Run} {&Trace Into}}
21+
set macro all F9 {accel main {&Break} {&Toggle}}
22+
set macro all F10 {accel main {&Run} {&Step Over}}
23+
24+
set macro all ALT-1 {accel main {&Data} {&Locals}}
25+
set macro all ALT-2 {accel main {&Data} {&Watch}}
26+
set macro all ALT-3 {accel main {&Code} {&Source}}
27+
set macro all ALT-4 {accel main {&File} {&View}}
28+
set macro all ALT-5 {accel main {&Data} {&Memory at}}
29+
set macro all ALT-6 {accel main {&Data} {&Memory at}}
30+
set macro all ALT-7 {accel main {&Data} {&Register}}
31+
set macro all ALT-8 {accel main {&Data} {&FPU Registers}}
32+
set macro all ALT-9 {accel main {&File} {&Command}}
33+
34+
set macro all CTRL-F4 {Window Close}
35+
set macro all CTRL-F5 {Window Restore}
36+
set macro all CTRL-F7 {print {Window Move HotKey not implemented}}
37+
set macro all CTRL-F8 {print {Window Size HotKey not implemented}}
38+
set macro all CTRL-F9 {Window Minimize}
39+
set macro all CTRL-F10 {Window Maximize}
40+
41+
set macro all ALT-F5 {print {Window Cascade HotKey not implemented}}
42+
43+
set macro all / {accel main {&Search} {&Find}}
44+
set macro source CTRL-\ {accel main {&Search} {&Next}}
45+
set macro all ALT-/ {accel main {&Search} {&Next}}
46+
rem macro all CTRL-R {accel main {&Search} {&Next}}
47+
48+
set macro watch DELETE {accel {&Delete}}
49+
set macro watch INSERT {accel {&New}}
50+
51+
rem set macro all CTRL-W {accel {&Watch}} // already done
52+
rem not quite - CV has delete watch dialog
53+
rem macro all CTRL-U {display watch}
54+
55+
set macro all SHIFT-F5 {print {Window Tile HotKey not implemented}}
56+
set macro all SHIFT-F6 {Window Previous}
57+
set macro all SHIFT-F9 {display watch; accel {&New}}

‎binl/default.dbg

+102
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,102 @@
1+
in wdkeys.dbg
2+
display all /close
3+
display status
4+
display toolbar /fixed 0
5+
display stack /close 8000,4992,2000,4992
6+
display watch /open 4000,5408,4000,4576
7+
display modules /open 8000,5408,2000,4576
8+
display register /open 0,5408,4000,4576
9+
display assembly /open 0,0,10000,5408
10+
display source /open 0,0,10000,5408
11+
display locals /open 0,5408,4000,4576
12+
display file /close 0,0,10000,10000
13+
set source {.}
14+
if _dbg@dbg$kanji {
15+
font all {-16 0 0 0 400 0 0 0 128 3 2 1 17 "�l�r ����"}
16+
} else {
17+
font all {-13 0 0 0 400 0 0 0 0 1 2 1 49 "Courier"}
18+
}
19+
font memory {-12 0 0 0 400 0 0 0 0 1 2 1 49 "Fixedsys"}
20+
set autosave off
21+
set assembly lower source hexadecimal
22+
set variable partial nocode noinherit nocompiler members private protected
23+
set variable partial nocode noinherit nocompiler members private protected
24+
set functions all
25+
set globals all
26+
set register hexadecimal normal
27+
set fpu decimal
28+
set bell on
29+
set dclick 300
30+
set implicit on
31+
set radix 10
32+
set recursion on
33+
set search /caseignore/norx {^$\.[(|?+*~@}
34+
set symbol /ignore {*}
35+
set symbol /add /ignore {*_}
36+
set symbol /add /ignore {_*}
37+
set tab 8
38+
set supportroutine {__wcpp_*}{IF@*}{RT@*}{__CHK}{__CHP}{__EDA}{__EDC}{__EDD}
39+
set supportroutine {__EDM}{__EDS}{__EPI}{__Far16Cdecl2}{__Far16Func2}
40+
set supportroutine {__Far16Pascal2}{__Far16ToFlat}{__FDA}{__FDC}{__FDD}{__FDFS}
41+
set supportroutine {__FDI4}{__FDI8}{__FDM}{__FDN}{__FDS}{__FDU4}{__FDU8}
42+
set supportroutine {__FlatToFar16}{__FSA}{__FSC}{__FSD}{__FSFD}{__FSI4}{__FSI8}
43+
set supportroutine {__FSM}{__FSN}{__FSS}{__FSU4}{__FSU8}{__GETDS}{__GRO}{__I4D}
44+
set supportroutine {__I4FD}{__I4FS}{__I4M}{__I8DQE}{__I8DQ}{__I8DRE}{__I8DR}
45+
set supportroutine {__I8D}{__I8FD}{__I8FS}{__I8M}{__PIA}{__PIS}{__PRO}{__PTC}
46+
set supportroutine {__PTS}{__RDFS}{__RDI4}{__RDU4}{__RSI4}{__RSU4}{__SCN1}{__SCN2}
47+
set supportroutine {__SCN4}{__STK}{__TNC}{__TNK}{__U4D}{__U4FD}{__U4FS}{__U4M}
48+
set supportroutine {__U8DQE}{__U8DQ}{__U8DRE}{__U8DR}{__U8D}{__U8FD}{__U8FS}{__U8M}
49+
flip on
50+
hook progstart {
51+
if _dbg@dbg$loaded && !?_dbg@nogo {
52+
if ?@@fmain {
53+
if !?@@fwinmain {
54+
go/until/noflip @@fmain
55+
} else {
56+
go/until @@fmain
57+
}
58+
}
59+
elseif ?@@main {
60+
if !?@@winmain {
61+
go/until/noflip @@main
62+
} else {
63+
go/until @@main
64+
}
65+
}
66+
elseif ?@@fwinmain {
67+
go/until/noflip @@fwinmain
68+
}
69+
elseif ?@@winmain {
70+
go/until/noflip @@winmain
71+
}
72+
elseif _dbg@dbg$os == 12 && ?@main {
73+
go/until/noflip @main
74+
}
75+
76+
};
77+
78+
}
79+
hook progend {
80+
81+
}
82+
hook dllstart {
83+
84+
}
85+
hook dllend {
86+
87+
}
88+
hook execstart {
89+
90+
}
91+
hook execend {
92+
93+
}
94+
hook sourceinfo {
95+
display locals; display source
96+
}
97+
hook assemblyinfo {
98+
display register; display assembly
99+
}
100+
hook modulechange {
101+
102+
}

‎binl/dmpobj

65 KB
Binary file not shown.

‎binl/dwarf.dip

94.8 KB
Binary file not shown.

‎binl/edbind

31.3 KB
Binary file not shown.

‎binl/exe2bin

31 KB
Binary file not shown.

‎binl/export.dip

11 KB
Binary file not shown.

‎binl/fcenable

31.5 KB
Binary file not shown.

‎binl/fill.dbg

+12
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,12 @@
1+
* Syntax: fill <address> <value> <length>
2+
*
3+
* Synopsis: fill a region of memory with a value
4+
*
5+
* Example: fill es:0 ff 100
6+
*
7+
do dbg$fill=<3>
8+
modify/byte <1>,,
9+
while (dbg$fill!=0) {
10+
modify/byte ,<2>,,;
11+
/--dbg$fill
12+
}

‎binl/fortran.prs

2.93 KB
Binary file not shown.

‎binl/fox.dbg

+16
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,16 @@
1+
* Syntax: fox <symbol_file_name>
2+
*
3+
* Synopsis: Setup for debugging a FoxPro External Routine.
4+
* The symbolic information is in <symbol_file_name>.
5+
*
6+
* NOTE: Make sure that you have coded a call to BreakPoint()
7+
* in your external routine. This call should be in the
8+
* first segment. When debugging locally under DOS you
9+
* may have to use the /DYNAMIC option to increase the
10+
* amount of dynamic memory above 40K.
11+
*
12+
* Example: wd /dynamic=60k foxpro
13+
* (start external routine)
14+
* fox hello.plb
15+
*
16+
new/sym <1> CS

0 commit comments

Comments
 (0)