From 50570477dc1cffecc597dda663ab4738fe2660e9 Mon Sep 17 00:00:00 2001
From: Nikita Orlov <nikitf-97@mail.ru>
Date: Sat, 3 Apr 2021 15:53:49 +0300
Subject: Flags, Bcc added

---
 src/Instructions.hs | 34 +++++++++++++++++++++++++++++++++-
 1 file changed, 33 insertions(+), 1 deletion(-)

(limited to 'src/Instructions.hs')

diff --git a/src/Instructions.hs b/src/Instructions.hs
index fb9695b..ccd12f6 100644
--- a/src/Instructions.hs
+++ b/src/Instructions.hs
@@ -68,6 +68,11 @@ doMOVE size dst_reg dst_mode src_mode src_reg = do
     (dst_get, dst_set) <- getOp dst_mode dst_reg (getMoveSize size)
     src_val <- src_get
     dst_set src_val
+    sv <- isSupervisor
+    setNegative (checkNegative src_val (getMoveSize size))
+    setZero (checkZero src_val)
+    setOverflow False
+    setCarry False
 
 doSRMOVE :: Int -> Int -> Emulator ()
 doSRMOVE _ _ = error "SRMOVE"
@@ -197,7 +202,34 @@ doBSR :: Int -> Emulator ()
 doBSR _ = error "BSR"
 
 doBcc :: Int -> Int -> Emulator ()
-doBcc _ _ = error "Bcc"
+-- NE
+doBcc 6 0 = do
+    incPC
+    pc <- readPC
+    zf <- isZero
+    disp <- getMemory pc 2
+    let real_disp = if not zf then disp else 2
+    writePC (pc + (fromIntegral real_disp))
+doBcc 6 disp = do
+    incPC
+    pc <- readPC
+    zf <- isZero
+    let real_disp = if not zf then disp else 0
+    writePC (pc + (fromIntegral real_disp))
+-- EQ
+doBcc 7 0 = do
+    incPC
+    pc <- readPC
+    zf <- isZero
+    disp <- getMemory pc 2
+    let real_disp = if zf then disp else 2
+    writePC (pc + (fromIntegral real_disp))
+doBcc 7 disp = do
+    incPC
+    pc <- readPC
+    zf <- isZero
+    let real_disp = if zf then disp else 0
+    writePC (pc + (fromIntegral real_disp))
 
 doMOVEQ :: Int -> Int -> Emulator ()
 doMOVEQ _ _ = error "MOVEQ"
-- 
cgit v1.2.3