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
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
|
\ Test case of overflowing the output buffer
\ and multiple PCI Headers and FCode blocks
\ Body generated by the "Verbal Bottles of Beer" script,
\ (Argument of 646 just does it.)
tokenizer[
c020
SET-REV-LEVEL
dec1 \ Vendor
c0ed \ Device ID
80201 \ Class Code (ISA system timer. Denver Colorado )
]tokenizer
pci-header
fcode-version2 \ Sixteen-bit offsets.
headers
: a-lot-of-beer
fload TooLargeBeerBuffer_body.fth
;
fcode-end
fcode-version2 \ Sixteen-bit offsets.
: and-a-lot-more-beer
fload TooLargeBeerBuffer_body.fth
;
fcode-end
not-last-image
pci-header-end
tokenizer[
b020
SET-REV-LEVEL
fece \ Vendor
d00d \ Device ID
90210 \ Class Code (Unknown. Beverly Hills )
]tokenizer
pci-header
fcode-version2 \ Sixteen-bit offsets.
: What?Still-more-beer?
fload TooLargeBeerBuffer_body.fth
;
: What-the-hey!More-beer
fload TooLargeBeerBuffer_body.fth
;
: Keep-the-beer-comin',-Mate!
fload TooLargeBeerBuffer_body.fth
;
: Let's-have-one-for-Cliffie
fload TooLargeBeerBuffer_body.fth
;
: And-TWO-for-Norm
fload TooLargeBeerBuffer_body.fth
fload TooLargeBeerBuffer_body.fth
;
: What-Does-Carla-Have-To-Say?
LET's-have-ONE-for-CLIFfie
and-Two-for-nORM
WHAT?Still-more-BEER?
Keep-the-BEER-Comin',-MATE!
;
fcode-end
last-image
pci-header-end
headers
|
