Hash :
ed679850
Author :
Date :
2006-10-30T17:01:46
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