Mercurial > vba-clojure

comparison clojure/com/aurellem/assembly.clj @ 108:d3c0b990e163

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
fix typo
author Robert McIntyre <rlm@mit.edu>
date Thu, 15 Mar 2012 03:40:40 -0500
parents ad96e9464d6a
children c8b48102b17c
comparison
equal deleted inserted replaced
107:ad96e9464d6a 108:d3c0b990e163
90 0x1F ;D322 --] 90 0x1F ;D322 --]
91 0xD3 ;D323 --] DC1F ; data section 91 0xD3 ;D323 --] DC1F ; data section
92 0x01 ;D324 ; load 0xFF00 into BC 92 0x01 ;D324 ; load 0xFF00 into BC
93 0x00 ;D325 93 0x00 ;D325
94 0xFF ;D326 94 0xFF ;D326
95 0x02 ;D327 ; load (DC1F) into FF00 95 0x02 ;D327 ; load (00010000) into FF00
96 ; to select directional 96 ; to select directional
97 ; buttons 97 ; buttons
98 98
99 ] 99 ]
100 100
107 (view-register "Register A" A) 107 (view-register "Register A" A)
108 (tick) ;; load-data into A 108 (tick) ;; load-data into A
109 (view-register "Register A" A) 109 (view-register "Register A" A)
110 (info) 110 (info)
111 (view-register "Register BC" BC) 111 (view-register "Register BC" BC)
112 (tick) ;; store 0xFFOO into BC
113 (view-register "Register BC" BC)
114 (info)
115 (view-memory 0xFF00)
112 (tick) ;; load A into 0xFF00 116 (tick) ;; load A into 0xFF00
113 (view-register "Register BC" BC) 117 (view-memory 0xFF00)
114 ))) 118 )))
115 119
116 120
117 (defn trace [state] 121 (defn trace [state]
118 (loop [program-counters [] 122 (loop [program-counters []