# HG changeset patch
# User Robert McIntyre <rlm@mit.edu>
# Date 1334309832 18000
# Node ID 6ab872c5a7e785ff46a1cefdea11530d38d17e26
# Parent  5c0e12f0a833a186d812e6ea1436bdc1a492d3db
set H for real

diff -r 5c0e12f0a833 -r 6ab872c5a7e7 clojure/com/aurellem/gb/rlm_assembly.clj
--- a/clojure/com/aurellem/gb/rlm_assembly.clj	Fri Apr 13 04:13:12 2012 -0500
+++ b/clojure/com/aurellem/gb/rlm_assembly.clj	Fri Apr 13 04:37:12 2012 -0500
@@ -213,18 +213,18 @@
         input
         [0xC1  ;; pop BC so it's not volatile
 
-         0x4F ;; A->C
+         0x00  ;; A->C
          
-         0xAF  ;; test for output-mode (bytes-to-write > 0)
-         0xB8  ;; (cp A B)
+         0x00  ;; test for output-mode (bytes-to-write > 0)
+         0x00  ;; (cp A B)
 
-         0x00       ;; skip input section if
-         0x00;;:to-output ;; we're not in input mode 
+         0x00  ;; skip input section if
+         0x00  ;;:to-output ;; we're not in input mode 
                   
          :to-be-executed
 
          ;; write mode to instruction-to-be-executed (pun)
-         0x79  ;; C->A
+         0x00  ;; C->A
          0xEA
          :to-be-executed-address
          0x18           ;; return
@@ -270,8 +270,8 @@
          0x00
          0x00
                   
-         0x18
-         :to-beginning-2]
+         0x00
+         0x00]