Inline SR
authorAlyssa Rosenzweig <alyssa@backtick.town>
Sat, 2 Jul 2016 17:58:09 +0000 (10:58 -0700)
committerAlyssa Rosenzweig <alyssa@backtick.town>
Sat, 2 Jul 2016 17:58:09 +0000 (10:58 -0700)
src/CPU/common.tosh
src/CPU/instructions/BRK
src/CPU/instructions/PHP

index d4b3f5e..276af55 100644 (file)
@@ -52,7 +52,7 @@ mapper write 256 + S (((PC - (PC mod 256)))/256)
 set S to (S - 1) mod 256
 mapper write 256 + S (PC mod 256)
 set S to (S - 1) mod 256
-compute SR
+set SR to (128*flagN) + (64*flagV) + (32) + (16*flagB) + (8*flagD) + (4*flagI) + (2*flagZ) + (1*flagC)
 mapper write 256 + S SR
 set S to (S - 1) mod 256
 set flagI to 1
@@ -61,9 +61,6 @@ set tmp to M
 mapper read vector+1
 set PC to (M*256) + tmp
 
-define-atomic compute SR
-set SR to (128*flagN) + (64*flagV) + (32) + (16*flagB) + (8*flagD) + (4*flagI) + (2*flagZ) + (1*flagC)
-
 when flag clicked
 set A to 0
 set X to 0
index 29febe1..f248303 100644 (file)
@@ -1,7 +1,7 @@
 IMPLIED
 mapper write (256 + S) (PC + 2)
 set S to (S - 1) mod 256
-compute SR
+set SR to (128*flagN) + (64*flagV) + (32) + (16*flagB) + (8*flagD) + (4*flagI) + (2*flagZ) + (1*flagC)
 mapper write (256 + S) SR
 set S to (S - 1) mod 256
 interrupt: vector "0xFFFE"
index 840916c..ab1a1bf 100644 (file)
@@ -1,4 +1,4 @@
 IMPLIED
-compute SR
+set SR to (128*flagN) + (64*flagV) + (32) + (16*flagB) + (8*flagD) + (4*flagI) + (2*flagZ) + (1*flagC)
 mapper write (256 + S) SR
 set S to (S - 1) mod 256
This page took 0.025789 seconds and 4 git commands to generate.