diff clojure/com/aurellem/gb/rlm_assembly.clj @ 395:6ab872c5a7e7

set H for real
author Robert McIntyre <rlm@mit.edu>
date Fri, 13 Apr 2012 04:37:12 -0500
parents 5c0e12f0a833
children c7a43f4ffd9d
line wrap: on
line diff
     1.1 --- a/clojure/com/aurellem/gb/rlm_assembly.clj	Fri Apr 13 04:13:12 2012 -0500
     1.2 +++ b/clojure/com/aurellem/gb/rlm_assembly.clj	Fri Apr 13 04:37:12 2012 -0500
     1.3 @@ -213,18 +213,18 @@
     1.4          input
     1.5          [0xC1  ;; pop BC so it's not volatile
     1.6  
     1.7 -         0x4F ;; A->C
     1.8 +         0x00  ;; A->C
     1.9           
    1.10 -         0xAF  ;; test for output-mode (bytes-to-write > 0)
    1.11 -         0xB8  ;; (cp A B)
    1.12 +         0x00  ;; test for output-mode (bytes-to-write > 0)
    1.13 +         0x00  ;; (cp A B)
    1.14  
    1.15 -         0x00       ;; skip input section if
    1.16 -         0x00;;:to-output ;; we're not in input mode 
    1.17 +         0x00  ;; skip input section if
    1.18 +         0x00  ;;:to-output ;; we're not in input mode 
    1.19                    
    1.20           :to-be-executed
    1.21  
    1.22           ;; write mode to instruction-to-be-executed (pun)
    1.23 -         0x79  ;; C->A
    1.24 +         0x00  ;; C->A
    1.25           0xEA
    1.26           :to-be-executed-address
    1.27           0x18           ;; return
    1.28 @@ -270,8 +270,8 @@
    1.29           0x00
    1.30           0x00
    1.31                    
    1.32 -         0x18
    1.33 -         :to-beginning-2]
    1.34 +         0x00
    1.35 +         0x00]
    1.36          
    1.37  
    1.38