Guest User

Untitled

a guest
May 4th, 2021
15
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. subsystem-vendor-id,subsystem-id)vendor-id$name)pci16b8,1(firewire,AAPL,address*compatible ŽQprobe-all install-console banner : config-l! " config-l!" $call-parent ; : config-l@ " config-l@" $call-parent ; : check-node my-space " config-l@" $call-parent dup d# 16 >> swap h# 0000FFFF and my-space d# 8 + " config-l@" $call-parent d# 8 >> h# 60400 = swap h# 1668 = and swap h# 100 = and ; : my-make-properties make-properties 0 alloc-here 0 " pci" encode-cat my-space h# 2c + config-l@ -rot 2 pick h# FFFF and (u.) encode-cat " ," encode-cat rot d# 16 >> (u.) encode-cat 2dup swap 3 + swap bounds do i c@ h# 40 > if i c@ h# 20 + i c! then loop device-name 0 0 encode-2ints " power-consumption" property 0 0 my-space encode-3ints 0 0 encode-2ints encode+ 0 0 my-space 2 d# 24 << or h# 10 + encode-3ints 1000 0 encode-2ints encode+ encode+ " reg" property ; : make-nodes " assigned-addresses" delete-property my-space dup 18 + 10100 swap config-l! 4 + dup config-l@ h# FFFFFFF4 and 2 or swap config-l! new-device 0 0 " 0,0" set-args my-make-properties 0 100000 20 claim-real swap drop dup dup 100000 " map-range" $call-parent dup my-space h# 10 + config-l! dup 0 my-space h# 82 d# 24 << or h# 10 + encode-3ints 1000 0 encode-2ints encode+ " assigned-addresses" property finish-device new-device 0 0 " 1,0" set-args my-make-properties dup 1000 + my-space h# 10 + config-l! dup 1000 + 0 my-space h# 82 d# 24 << or h# 10 + encode-3ints 1000 0 encode-2ints encode+ " assigned-addresses" property finish-device dup dup h# 10 >> or my-space h# 20 + config-l! my-space h# 3c + dup config-l@ h# 800000 or swap config-l! " ranges" delete-property dup 0 h# 82000000 encode-3ints rot 0 h# 82000000 encode-3ints h# 100000 0 encode-2ints encode+ encode+ " ranges" property my-space h# 18 + config-l@ dup 8 >> h# ff and swap d# 16 >> h# ff and encode-2ints " bus-range" property ; : x ['] select-dev catch if 2drop else check-node if make-nodes then then ; " pci1/@d" x " pci1/@e" x$true
RAW Paste Data