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

slight refactor of single function

Browse Source
This commit is contained in:
Thorn Avery 2020-06-11 17:20:26 +12:00
parent a9c4660e11
commit 27cf7b6a57
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
vm.rkt
View File

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