Mercurial > vba-clojure

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

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
set H for real
author Robert McIntyre <rlm@mit.edu>
date Fri, 13 Apr 2012 04:37:12 -0500
parents 5c0e12f0a833
children c7a43f4ffd9d
comparison
equal deleted inserted replaced
394:5c0e12f0a833 395:6ab872c5a7e7
211 [0xAF 0x5F 0x57 0x47] ;; 0->A; 0->E; 0->D; 0->B 211 [0xAF 0x5F 0x57 0x47] ;; 0->A; 0->E; 0->D; 0->B
212 212
213 input 213 input
214 [0xC1 ;; pop BC so it's not volatile 214 [0xC1 ;; pop BC so it's not volatile
215 215
216 0x4F ;; A->C 216 0x00 ;; A->C
217 217
218 0xAF ;; test for output-mode (bytes-to-write > 0) 218 0x00 ;; test for output-mode (bytes-to-write > 0)
219 0xB8 ;; (cp A B) 219 0x00 ;; (cp A B)
220 220
221 0x00 ;; skip input section if 221 0x00 ;; skip input section if
222 0x00;;:to-output ;; we're not in input mode 222 0x00 ;;:to-output ;; we're not in input mode
223 223
224 :to-be-executed 224 :to-be-executed
225 225
226 ;; write mode to instruction-to-be-executed (pun) 226 ;; write mode to instruction-to-be-executed (pun)
227 0x79 ;; C->A 227 0x00 ;; C->A
228 0xEA 228 0xEA
229 :to-be-executed-address 229 :to-be-executed-address
230 0x18 ;; return 230 0x18 ;; return
231 :to-beginning-1] 231 :to-beginning-1]
232 232
268 0x00 ;; put a no op (0x00) in to-be-executed 268 0x00 ;; put a no op (0x00) in to-be-executed
269 0x00 269 0x00
270 0x00 270 0x00
271 0x00 271 0x00
272 272
273 0x18 273 0x00
274 :to-beginning-2] 274 0x00]
275 275
276 276
277 277
278 symbols 278 symbols
279 {:to-be-executed-address 279 {:to-be-executed-address