ConOut.ClearScreen()

\ ######################## BRANDING
HERE @ " rrq's UEFI boot using jonasforth." S@ TELL NEWLINE HERE !

\ Report Firmware Vendor and version
UTF16" Firmware vendor: " ConOut.OutputString()
FirmwareVendor ConOut.OutputString() NEWLINE

UTF16" Firmware version: " ConOut.OutputString()
FirmwareRevision @32 .U NEWLINE

BootServices.LocateHandleBuffer(AllHandles)
CONSTANT H.count
CONSTANT H.array

." Handles: " H.count . NEWLINE

( handle -- ; Tell about handle )
: TellHandle
  DUP S" Handle: " TELL .U
  BootServices.ProtocolsPerHandle()
  ( *buffer count )
  DUP S"  count: " TELL . NEWLINE
  DUP IF
    ( *buffer count )
    BEGIN
      SWAP
      DUP @ GUID.Tell NEWLINE
      8 +
      SWAP 1 -
      DUP 1 <
    UNTIL 
    DROP
    BootServices.FreePool()
  ELSE
    DROP DROP
  THEN
;

: TellHandles
  H.array 0 BEGIN
    S" [" TELL DUP . S" ]: " TELL
    SWAP DUP @
    TellHandle
    8 + SWAP
    1 + DUP 3 > 
  UNTIL
;

TellHandles

0 INPUT-LENGTH ! \ Stop loading here