From 433b2173acf1ed838733f58294c0a4286cdce122 Mon Sep 17 00:00:00 2001 From: Aleksey Veresov Date: Mon, 22 Mar 2021 12:57:05 +0300 Subject: fix of fix --- src/Machine.hs | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/src/Machine.hs b/src/Machine.hs index f28685f..6a09be9 100644 --- a/src/Machine.hs +++ b/src/Machine.hs @@ -215,34 +215,34 @@ setTracing b = with sr $ \sr -> do writeIORef sr $ (if b then setBit else clearBit) srval 0 setSupervisor :: Bool -> Emulator () -setSupervisor = with sr $ \sr -> do +setSupervisor b = with sr $ \sr -> do srval <- readIORef sr writeIORef sr $ (if b then setBit else clearBit) srval 2 -- setInterruptLevel :: Int -> Emulator () setExtend :: Bool -> Emulator () -setExtend = with sr $ \sr -> do +setExtend b = with sr $ \sr -> do srval <- readIORef sr writeIORef sr $ (if b then setBit else clearBit) srval 11 setNegative :: Bool -> Emulator () -setNegative = with sr $ \sr -> do +setNegative b = with sr $ \sr -> do srval <- readIORef sr writeIORef sr $ (if b then setBit else clearBit) srval 12 setZero :: Bool -> Emulator () -setZero = with sr $ \sr -> do +setZero b = with sr $ \sr -> do srval <- readIORef sr writeIORef sr $ (if b then setBit else clearBit) srval 13 setOverflow :: Bool -> Emulator () -setOverflow = with sr $ \sr -> do +setOverflow b = with sr $ \sr -> do srval <- readIORef sr writeIORef sr $ (if b then setBit else clearBit) srval 14 setCarry :: Bool -> Emulator () -setCarry = with sr $ \sr -> do +setCarry b = with sr $ \sr -> do srval <- readIORef sr writeIORef sr $ (if b then setBit else clearBit) srval 15 -- cgit v1.2.3