# HG changeset patch
# User Robert McIntyre <rlm@mit.edu>
# Date 1334310961 18000
# Node ID 9b0d79cad6249eb450d0f410b3f49c175a284205
# Parent  c7a43f4ffd9d1a7321c8867f27cfa1660c86b167
use E as scratch instead of C

diff -r c7a43f4ffd9d -r 9b0d79cad624 clojure/com/aurellem/gb/rlm_assembly.clj
--- a/clojure/com/aurellem/gb/rlm_assembly.clj	Fri Apr 13 04:50:58 2012 -0500
+++ b/clojure/com/aurellem/gb/rlm_assembly.clj	Fri Apr 13 04:56:01 2012 -0500
@@ -213,10 +213,10 @@
         input
         [0xC1  ;; pop BC so it's not volatile
 
-         0x4F  ;; A->C
+         0x5F  ;; A->E
          0xAF  ;; test for output-mode (bytes-to-write > 0)
          0x00  ;; (cp A B)
-         0x79  ;; C->A
+         0x7B  ;; E->A
          
          0x20  ;; skip input section if
          :to-output ;; we're not in input mode 
@@ -224,7 +224,6 @@
          :to-be-executed
 
          ;; write mode to instruction-to-be-executed (pun)
-         
          0xEA
          :to-be-executed-address
          0x18           ;; return