From dbd7082a0ed09ee06401d0af06ce24e89e87b189 Mon Sep 17 00:00:00 2001
From: Kartik Agaram <vc@akkartik.com>
Date: Sat, 9 Jan 2021 15:38:03 -0800
Subject: 7489 - include GNU Unifont

https://en.wikipedia.org/wiki/GNU_Unifont#The_.hex_font_format
http://unifoundry.com/unifont/index.html

Since GNU Unifont is covered under the GPL v2, so I believe is this repo.
---
 apps/survey_baremetal      | Bin 51155 -> 51155 bytes
 apps/survey_baremetal.subx |  34 +++++++++++++++++-----------------
 2 files changed, 17 insertions(+), 17 deletions(-)

(limited to 'apps')

diff --git a/apps/survey_baremetal b/apps/survey_baremetal
index 879889b7..6d1af44d 100755
Binary files a/apps/survey_baremetal and b/apps/survey_baremetal differ
diff --git a/apps/survey_baremetal.subx b/apps/survey_baremetal.subx
index fbb79b68..7b0815ba 100644
--- a/apps/survey_baremetal.subx
+++ b/apps/survey_baremetal.subx
@@ -7,7 +7,7 @@
 #
 # The expected input is a stream of bytes and some interspersed labels.
 # Comments and '==' segment headers are allowed, but ignored. The emitted code
-# will all lie in a single header, and start at address 0x8800.
+# will all lie in a single header, and start at address 0x9000.
 #   $ cat x
 #   == code
 #   l1:
@@ -197,7 +197,7 @@ test-subx-survey-computes-addresses:
     #     01
     #
     # trace contains (in any order):
-    #   label x is at address 0x8805
+    #   label x is at address 0x9005
     #
     # . prologue
     55/push-ebp
@@ -315,10 +315,10 @@ test-subx-survey-computes-addresses:
 #?     # . . discard args
 #?     81          0/subop/add         3/mod/direct    4/rm32/esp    .           .             .           .           .               8/imm32           # add to esp
 #?     # }}}
-    # . check-trace-contains("label 'x' is at address 0x00008805.", msg)
+    # . check-trace-contains("label 'x' is at address 0x00009005.", msg)
     # . . push args
     68/push  "F - test-subx-survey-computes-addresses/0"/imm32
-    68/push  "label 'x' is at address 0x00008805."/imm32
+    68/push  "label 'x' is at address 0x00009005."/imm32
     # . . call
     e8/call  check-trace-contains/disp32
     # . . discard args
@@ -330,7 +330,7 @@ test-subx-survey-computes-addresses:
 
 compute-offsets:  # in: (addr stream byte), labels: (addr stream {(handle array byte), address})
     # pseudocode:
-    #   var current-address = 0x8800
+    #   var current-address = 0x9000
     #   var line: (stream byte 512)
     #   while true                                  # line loop
     #     clear-stream(line)
@@ -362,8 +362,8 @@ compute-offsets:  # in: (addr stream byte), labels: (addr stream {(handle array
     53/push-ebx
     56/push-esi
     57/push-edi
-    # var current-address/esi: int = 0x8800
-    be/copy-to-esi  0x8800/imm32
+    # var current-address/esi: int = 0x9000
+    be/copy-to-esi  0x9000/imm32
     # var line/ecx: (stream byte 512)
     81          5/subop/subtract    3/mod/direct    4/rm32/esp    .           .             .           .           .               0x200/imm32       # subtract from esp
     68/push  0x200/imm32/size
@@ -595,7 +595,7 @@ test-compute-offsets:
     #     34
     #
     # trace contains (in any order):
-    #   label 'x' is at address 0x8806.
+    #   label 'x' is at address 0x9006.
     #
     # . prologue
     55/push-ebp
@@ -697,10 +697,10 @@ test-compute-offsets:
 #?     # . . discard args
 #?     81          0/subop/add         3/mod/direct    4/rm32/esp    .           .             .           .           .               8/imm32           # add to esp
 #?     # }}}
-    # . check-trace-contains("label 'x' is at address 0x00008806.", msg)
+    # . check-trace-contains("label 'x' is at address 0x00009006.", msg)
     # . . push args
     68/push  "F - test-compute-offsets"/imm32
-    68/push  "label 'x' is at address 0x00008806."/imm32
+    68/push  "label 'x' is at address 0x00009006."/imm32
     # . . call
     e8/call  check-trace-contains/disp32
     # . . discard args
@@ -732,7 +732,7 @@ emit-output:datum:  # slice
 
 emit-output:  # in: (addr stream byte), out: (addr buffered-file), labels: (addr stream {(handle array byte), address})
     # pseudocode:
-    #   var address-of-next-instruction = 0x8800
+    #   var address-of-next-instruction = 0x9000
     #   var line: (stream byte 512)
     #   line-loop:
     #   while true
@@ -803,8 +803,8 @@ emit-output:  # in: (addr stream byte), out: (addr buffered-file), labels: (addr
     68/push  0/imm32/end
     68/push  0/imm32/start
     89/copy                         3/mod/direct    2/rm32/edx    .           .             .           4/r32/esp   .               .                 # copy esp to edx
-    # var address-of-next-instruction/ebx = 0x8800
-    bb/copy-to-ebx  0x8800/imm32
+    # var address-of-next-instruction/ebx = 0x9000
+    bb/copy-to-ebx  0x9000/imm32
 $emit-output:line-loop:
     # clear-stream(line)
     # . . push args
@@ -1491,12 +1491,12 @@ test-emit-output-code-label:
     #     ef gh
     #     e8 l1/disp32
     #   labels:
-    #     - 'l1': 0x8810
+    #     - 'l1': 0x9010
     #
     # output:
     #   ab cd
     #   ef gh
-    #   e8 07 00 00 00  # 0x8810 - 0x8809 = 7
+    #   e8 07 00 00 00  # 0x9010 - 0x9009 = 7
     #
     # . prologue
     55/push-ebp
@@ -1566,8 +1566,8 @@ test-emit-output-code-label:
     e8/call  write/disp32
     # . . discard args
     81          0/subop/add         3/mod/direct    4/rm32/esp    .           .             .           .           .               8/imm32           # add to esp
-    # . stream-add2(labels, "l1", 0x8810)
-    68/push  0x8810/imm32/label-address
+    # . stream-add2(labels, "l1", 0x9010)
+    68/push  0x9010/imm32/label-address
     # . . push handle for "l1"
     53/push-ebx
     68/push  "l1"/imm32
-- 
cgit 1.4.1-2-gfad0