X-Git-Url: https://git.rrq.au/?a=blobdiff_plain;f=uefi.f;h=91ea453b8f2fab82b970125f28902ee7ed4840c5;hb=fe5967a09f12cc09640d8284ac6f554ee3bf4357;hp=bc030d1f245fbe62a6131a41ded5d5dc623bea51;hpb=a391c86c2800f3b776bef167b7d43e33a03ec673;p=rrq%2Fjonasforth.git

diff --git a/uefi.f b/uefi.f
index bc030d1..91ea453 100644
--- a/uefi.f
+++ b/uefi.f
@@ -2,6 +2,39 @@
 : ConOut.OutputString ConOut 8 + @ ;
 : ConOut.OutputString() ConOut SWAP ConOut.OutputString EFICALL2 ;
 
-HERE @
-  97 C, 0 C, 98 C, 0 C, 99 C, 0 C, \ "ABC\0"
-ConOut.OutputString()
+: BootServices SystemTable 96 + @ ;
+: BootServices.LocateProtocol BootServices 320 + @ ;
+: BootServices.LocateProtocol(GOP)
+  HERE @ 5348063987722529246 , 7661046075708078998 , \ *Protocol = EFI_GRAPHICS_OUTPUT_PROTOCOL_GUID
+  0 \ *Registration
+  HERE @ 0 , \ **Interface
+  BootServices.LocateProtocol EFICALL3 DROP
+  HERE @ 8 - @ \ *Interface
+  ;
+: GOP.Blt BootServices.LocateProtocol(GOP) 16 + @ ;
+: GOP.SetMode BootServices.LocateProtocol(GOP) 8 + @ ;
+
+\ Store a null-terminated UTF-16 string HERE, and return a pointer to its buffer
+\ at runtime.
+: UTF16"
+  HERE @
+  BEGIN
+    KEY DUP C,
+    0 C,
+  34 = UNTIL
+  HERE @ 2 - HERE ! \ Remove final "
+  0 C, 0 C, \ Null terminator
+  ;
+
+  BootServices.LocateProtocol(GOP) \ *This
+  HERE @ 255 C, 0 C, 0 C, 0 C, \ *BltBuffer = single blue pixel
+  0 \ BltOperation = EfiBltVideoFill
+  0 \ SourceX
+  0 \ SourceY
+  100 \ DestinationX
+  200 \ DestinationY
+  400 \ Width
+  20 \ Height
+  0 \ Delta (unused)
+GOP.Blt EFICALL10
+.U NEWLINE