mirror of
https://gitlab.com/qemu-project/openbios.git
synced 2024-02-13 08:34:06 +08:00
16 lines
247 B
Forth
16 lines
247 B
Forth
|
[IFDEF] CONFIG_DRIVER_PCI
|
||
|
|
|
||
|
|
: pci-addr-encode ( addr.lo addr.mi addr.hi )
|
||
|
|
rot >r swap >r
|
||
|
|
encode-int
|
||
|
|
r> encode-int encode+
|
||
|
|
r> encode-int encode+
|
||
|
|
;
|
||
|
|
|
||
|
|
: pci-len-encode ( len.lo len.hi )
|
||
|
|
encode-int
|
||
|
|
rot encode-int encode+
|
||
|
|
;
|
||
|
|
|
||
|
|
[THEN]
|