about summary refs log tree commit diff stats
diff options
context:
space:
mode:
-rw-r--r--boot.subx2
-rw-r--r--ex1.subx20
-rw-r--r--ex2.subx32
3 files changed, 0 insertions, 54 deletions
diff --git a/boot.subx b/boot.subx
index 14b54480..6982fccb 100644
--- a/boot.subx
+++ b/boot.subx
@@ -838,8 +838,6 @@ Font:
   00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00
 # }}}
 
-== code
-
 ## Controlling IDE (ATA) hard disks
 # Uses 28-bit PIO mode.
 # Inspired by https://colorforth.github.io/ide.html
diff --git a/ex1.subx b/ex1.subx
deleted file mode 100644
index bf6b5486..00000000
--- a/ex1.subx
+++ /dev/null
@@ -1,20 +0,0 @@
-# The simplest possible program: just an infinite loop.
-# All is well if your computer clears screen and hangs without restarting.
-# On an emulator the window may get bigger to accomodate the higher-resolution
-# graphics mode.
-#
-# To build a disk image:
-#   ./translate_subx boot.subx ex1.subx   # emits disk.img
-# To run:
-#   qemu-system-i386 disk.img
-# Or:
-#   bochs -f bochsrc                      # bochsrc loads disk.img
-
-== code
-
-Entry:
-  {
-    eb/jump loop/disp8
-  }
-
-# vim:ft=subx
diff --git a/ex2.subx b/ex2.subx
deleted file mode 100644
index 3a1f770e..00000000
--- a/ex2.subx
+++ /dev/null
@@ -1,32 +0,0 @@
-# Test out the video mode by filling in the screen with pixels.
-#
-# To build a disk image:
-#   ./translate_subx boot.subx ex2.subx   # emits disk.img
-# To run:
-#   qemu-system-i386 disk.img
-# Or:
-#   bochs -f bochsrc                      # bochsrc loads disk.img
-
-== code
-
-Entry:
-  # ecx <- start of video memory
-  8b/-> *Video-memory-addr 1/r32/ecx
-
-  # eax <- final pixel of video memory
-  8d/copy-address *(ecx + 0x0bffff) 0/r32/eax  # 0xbffff = 1024*768 - 1
-
-  # for each pixel in video memory
-  {
-    39/compare %eax 1/r32/ecx
-    7c/jump-if-< break/disp8
-    # write its column number to it
-    88/byte<- *eax 0/r32/AL
-    48/decrement-eax
-    eb/jump loop/disp8
-  }
-
-  # hang indefinitely
-  {
-    eb/jump loop/disp8
-  }