Initial commit. Harptool, some docs, and the initial logo attempt.

git-svn-id: http://www.cdkersey.com/harp/harptool@1 0246edb2-e076-4747-b392-db732a341fa2

src/test/boot.s

@@ -0,0 +1,52 @@
+/* Bootstrap program for HARP. */
+
+.perm x
+.entry
+
+boot: ldi   %r5, kernEnt;
+      skep  %r5;
+
+/*      ldi   %r0, #1;
+      ldi   %r1, #033;
+      ldi %r2, __WORD;
+      muli %r2, %r2, #8;
+      subi %r2, %r2, #1;
+      shl %r0, %r0, %r2;
+      tlbadd %r0, %r0, %r1; */
+
+      ei;
+
+      ldi   %r5, entry;
+      jmpru %r5;
+
+.perm x
+/* The Kernel Entry Point / Interrupt service routine. */
+kernEnt:  subi %r0, %r0, #1;
+          rtop @p0, %r0;
+    @p0 ? jmpi kernEnt1; /* If it's not page not found, try again. */
+
+          ldi %r0, #077; /* Just map virt to phys, any address. */
+          tlbadd %r1, %r1, %r0;
+          reti;
+    
+kernEnt1: subi %r0, %r0, #7; /* If it's not console input, halt.*/
+          rtop @p0, %r0;
+    @p0 ? halt;
+    
+          ldi %r8, #1;
+          ldi %r1, __WORD;
+          muli %r1, %r1, #8;
+          subi %r1, %r1, #1;
+          shl %r8, %r8, %r1;
+          
+          ld %r0, %r8, #0;
+          subi %r1, %r0, #0x71
+          rtop @p0, %r1
+          notp @p0, @p0
+    @p0 ? halt; /* If it's 'q', halt. */
+          st %r0, %r8, #0;
+          ldi %r0, #0xa;
+          st %r0, %r8, #0;
+          reti;
+
+