tA/zybino
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Compare commits

base: tA:d784136e2b60e2f670529f124134db96a059488d
Branches Tags
tA:master
..
compare: tA:62ec6f516e922cd224fd5744b53b9d3256237c89
Branches Tags
tA:master

No commits in common. "d784136e2b60e2f670529f124134db96a059488d" and "62ec6f516e922cd224fd5744b53b9d3256237c89" have entirely different histories.
d784136e2b ... 62ec6f516e

1 changed files with 5 additions and 7 deletions
Show Stats Expand all files Collapse all files

12
vm.rkt
View File

@ -165,13 +165,11 @@
(lambda (m) (lambda (m)
(let ([c (get-carry m)] (let ([c (get-carry m)]
[z (get-zero m)]) [z (get-zero m)])
(if (case cc (case cc
[(NZ) (not z)] [(NZ) (if (not z) (set-pc addr m) m)]
[(Z) z] [(Z) (if z (set-pc addr) m)]
[(NC) (not c)] [(NC) (if (not c) (set-pc addr) m)]
[(C) c]) [(C) (if c (set-pc addr) m)]))))
(set-pc addr m)
m))))
(define (jp-uncond addr) (define (jp-uncond addr)
(lambda (m) (lambda (m)