1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
|
\ Another test of conditionals and multiple FCode blocks.
\ This is the "Wrapper" file.
\ Updated Wed, 10 Aug 2005 at 10:57 by David L. Paktor
[ifndef] moogoo
f[
.( Y'gotta define MooGoo on the command-line.)
#message Use -D moogoo=true or -D moogoo=false
f]
[else]
tokenizer[
h# 5afe \ Bogus Rev-Level
SET-REV-LEVEL
h# beef \ Vendor
h# c0de \ Bogus Device ID
h# 90210 \ Beverly Hills ZIP Code. Now that's a _Class_ Code!
pci-header
]tokenizer
f[
[defined] moogoo
constant boobalah?
f]
fcode-version2
fload MulFCimg_01_Body.fth
fcode-end
f[
reset-symbols
[defined] moogoo
0=
constant boobalah?
f]
fcode-version2
fload MulFCimg_01_Body.fth
fcode-end
pci-header-end
[then]
|
