1 files changed, 75 insertions, 0 deletions

diff --git a/apps/plugins/zxbox/spect.c b/apps/plugins/zxbox/spect.c
new file mode 100644
index 0000000000..8e9291f704
--- /dev/null
+++ b/apps/plugins/zxbox/spect.c
@@ -0,0 +1,75 @@
+/* 
+ * Copyright (C) 1996-1998 Szeredi Miklos
+ * Email: mszeredi@inf.bme.hu
+ *
+ * This program is free software; you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License as published by
+ * the Free Software Foundation; either version 2 of the License, or
+ * (at your option) any later version. See the file COPYING. 
+ *
+ * This program is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with this program; if not, write to the Free Software
+ * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+ *
+ */
+
+#include "z80.h"
+#include "spperif.h"
+#include "spscr.h"
+
+#define SOUNDPORT 0x10
+
+int SPNM(halfframe)(int firsttick, int numlines)
+{
+
+  int tc, linesleft;
+  int feport, scline, border;
+  byte *scrptr;
+  qbyte cmark = 0;
+
+  scrptr = (byte *) SPNM(image);
+
+  tc = firsttick - CHKTICK;
+
+  for(linesleft = numlines; linesleft; linesleft--) {
+    DANM(next_scri) = SPNM(scri)[SPNM(scline)];
+    tc += CHKTICK;
+
+    tc = PRNM(step)(tc);
+
+    scline = SPNM(scline);
+
+    /* store sound */
+    SPNM(sound_buf)[scline] = DANM(sound_sam);
+    feport = DANM(ula_outport);
+
+    if(feport & SOUNDPORT) DANM(sound_sam) = 240;
+    else DANM(sound_sam) = 16;
+
+    /* change EAR bit, store MIC bit*/
+
+    SPNM(fe_outport_time)[scline] = feport;
+    if(DANM(imp_change)) DANM(ula_inport) ^= 0x40;
+    DANM(imp_change) = SPNM(tape_impinfo)[scline];
+
+    /* Check if updating screen */
+
+    if(SPNM(updating)) {
+      border = SPNM(lastborder);
+      if((feport & 0x07) != border) {
+    SPNM(border_update) = 2;
+    SPNM(lastborder) = feport & 0x07;
+      }
+      scrptr = update_screen_line(scrptr, SPNM(coli)[scline], DANM(next_scri),
+                  border, &cmark);
+
+    }
+    SPNM(scline)++;
+  }
+  return tc;
+}