monistode-emulator 0.1.8

An emulator for the monistode set of ISA's
Documentation 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69

pub enum ProcessorFlags {
    CF = 0b0000000000000001,
    ZF = 0b0000000000000010,
    OF = 0b0000000000000100,
    SF = 0b0000000000001000,
}

pub trait FlagRegister {
    fn set(&mut self, flag: ProcessorFlags);
    fn get(&self, flag: ProcessorFlags) -> bool;
    fn clear(&mut self, flag: ProcessorFlags);
    fn is_set(&self, flag: ProcessorFlags) -> bool;
    fn is_clear(&self, flag: ProcessorFlags) -> bool;
    fn reset(&mut self);

    #[inline]
    fn set_if(&mut self, condition: bool, flag: ProcessorFlags) {
        if condition {
            self.set(flag);
        } else {
            self.clear(flag);
        }
    }
}

macro_rules! implement_flag_register {
    ($name:ident($type:ty)) => {
        pub struct $name(pub $type);

        impl $name {
            fn new() -> $name {
                $name(0)
            }
        }

        impl FlagRegister for $name {
            #[inline]
            fn set(&mut self, flag: ProcessorFlags) {
                self.0 |= flag as $type;
            }

            fn get(&self, flag: ProcessorFlags) -> bool {
                self.0 & (flag as $type) != 0
            }

            #[inline]
            fn clear(&mut self, flag: ProcessorFlags) {
                self.0 &= !(flag as $type);
            }

            #[inline]
            fn is_set(&self, flag: ProcessorFlags) -> bool {
                self.0 & (flag as $type) != 0
            }

            #[inline]
            fn is_clear(&self, flag: ProcessorFlags) -> bool {
                !self.is_set(flag)
            }

            #[inline]
            fn reset(&mut self) {
                self.0 = 0;
            }
        }
    };
}

pub(crate) use implement_flag_register;