Refactor perl code to write file header

[emu8051.git] / src / psw.c

diff --git a/src/psw.c b/src/psw.c
index bf75854..4dd2a67 100644 (file)
--- a/src/psw.c
+++ b/src/psw.c
@@ -37,27 +37,83 @@ psw_write_cy(int cy)
 
 void
 psw_set_cy(void)
+{
+       psw_write_cy(1);
+}
+
+void
+psw_clr_cy(void)
+{
+       psw_write_cy(0);
+}
+
+/* Returns 0 or 1 */
+int
+psw_read_cy(void)
+{
+       return memory_read8(INT_MEM_ID, _PSW_) >> PSW_BIT_CY;
+}
+
+void
+psw_write_ac(int ac)
 {
        u_int8_t psw = memory_read8(INT_MEM_ID, _PSW_);
 
-       psw |= PSW_FLAG_CY;
+       if (ac)
+               psw |= PSW_FLAG_AC;  /* Set */
+       else
+               psw &= ~PSW_FLAG_AC; /* Clear */
 
        memory_write8(INT_MEM_ID, _PSW_, psw); /* Save updated value */
 }
 
 void
-psw_clr_cy(void)
+psw_set_ac(void)
+{
+       psw_write_ac(1);
+}
+
+void
+psw_clr_ac(void)
+{
+       psw_write_ac(0);
+}
+
+/* Returns 0 or 1 */
+int
+psw_read_ac(void)
+{
+       return memory_read8(INT_MEM_ID, _PSW_) >> PSW_BIT_AC;
+}
+
+void
+psw_write_ov(int ov)
 {
        u_int8_t psw = memory_read8(INT_MEM_ID, _PSW_);
 
-       psw &= ~PSW_FLAG_CY;
+       if (ov)
+               psw |= PSW_FLAG_OV;  /* Set */
+       else
+               psw &= ~PSW_FLAG_OV; /* Clear */
 
        memory_write8(INT_MEM_ID, _PSW_, psw); /* Save updated value */
 }
 
+void
+psw_set_ov(void)
+{
+       psw_write_ov(1);
+}
+
+void
+psw_clr_ov(void)
+{
+       psw_write_ov(0);
+}
+
 /* Returns 0 or 1 */
 int
-psw_read_cy(void)
+psw_read_ov(void)
 {
-       return memory_read8(INT_MEM_ID, _PSW_) >> PSW_BIT_CY;
+       return memory_read8(INT_MEM_ID, _PSW_) >> PSW_BIT_OV;
 }