3 \ ######################## BRANDING
4 HERE @ " rrq's UEFI boot using jonasforth." S@ TELL NEWLINE HERE !
6 \ Report Firmware Vendor and version
7 UTF16" Firmware vendor: " ConOut.OutputString()
8 FirmwareVendor ConOut.OutputString() NEWLINE
10 UTF16" Firmware version: " ConOut.OutputString()
11 FirmwareRevision @32 .U NEWLINE
13 BootServices.LocateHandleBuffer(AllHandles)
17 ." Handles: " H.count . NEWLINE
19 ( handle -- ; Tell about handle )
21 DUP S" Handle: " TELL .U
22 BootServices.ProtocolsPerHandle()
24 DUP S" count: " TELL . NEWLINE
29 DUP @ GUID.Tell NEWLINE
35 BootServices.FreePool()
43 S" [" TELL DUP . S" ]: " TELL
53 0 INPUT-LENGTH ! \ Stop loading here