AVALANCHE: Reorganise source files.

1 files changed, 0 insertions, 348 deletions

diff --git a/engines/avalanche/hiz.cpp b/engines/avalanche/hiz.cpp
deleted file mode 100644
index af924a0600..0000000000
--- a/engines/avalanche/hiz.cpp
+++ /dev/null
@@ -1,348 +0,0 @@
-/* ScummVM - Graphic Adventure Engine
- *
- * ScummVM is the legal property of its developers, whose names
- * are too numerous to list here. Please refer to the COPYRIGHT
- * file distributed with this source distribution.
- *
- * 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.
-
- * 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., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
- *
- */
-
-/*
- * This code is based on the original source code of Lord Avalot d'Argent version 1.3.
- * Copyright (c) 1994-1995 Mike, Mark and Thomas Thurman.
- */
-
-/*$M 6000,600,600*/
-/*$V-,I-,R-,F+*/ /* Do not change these directives. */
-#include "graph.h"
-/*#include "Crt.h"*/
-/*#include "Dos.h"*/
-/*#include "Tsru.h"*/
-
-namespace Avalanche {
-
-/* program's signature */
-const varying_string<20> tsr_tmark = "FISH FISH FISH!!!";
-
-integer gd, gm;
-byte a /*absolute $A000:0*/;
-matrix<1, 800, 0, 3, byte> sv;
-byte bit;
-string nam;
-byte tsr_int;
-word tsr_ax;
-
-void grab() {
-	for (bit = 0; bit <= 3; bit ++) {
-		port[0x3c4] = 2;
-		port[0x3ce] = 4;
-		port[0x3c5] = 1 << bit;
-		port[0x3cf] = bit;
-		move(a, sv[1][bit], 800);
-	}
-}
-
-void drop() {
-	for (bit = 0; bit <= 3; bit ++) {
-		port[0x3c4] = 2;
-		port[0x3ce] = 4;
-		port[0x3c5] = 1 << bit;
-		port[0x3cf] = bit;
-		move(sv[1][bit], a, 800);
-	}
-}
-
-void say(string x) {
-	grab();
-	output << string('\15') + x;
-}
-
-void pak(string x) {
-	char r;
-	say(x + " (press any key...)");
-	r = readkey();
-	drop();
-}
-
-string typein() {
-	char r;
-	string x;
-	string typein_result;
-	x = "";
-	do {
-		r = readkey();
-		switch (r) {
-		case '\10':
-			if (x[0] > '\0')  {
-				output << string('\10') + '\40' + '\10';
-				x[0] -= 1;
-			}
-			break;
-		case '\15': {
-			typein_result = x;
-			return typein_result;
-		}
-		break;
-		case '\33': {
-			typein_result = "";
-			return typein_result;
-		}
-		break;
-		default:
-			if (x[0] < '\62')  {
-				x = x + r;
-				output << r;
-			}
-		}
-	} while (!false);
-	return typein_result;
-}
-
-void load() {
-	byte a /*absolute $A000:1200*/;
-	untyped_file f;
-	say("LOAD: filename?");
-	nam = typein();
-	drop();
-	if (nam == "")  return;
-	assign(f, nam);
-	reset(f, 1);
-	if (ioresult != 0) {
-		pak("LOAD: file not found.");
-		return;
-	}
-	seek(f, 177);
-	for (bit = 0; bit <= 3; bit ++) {
-		port[0x3c4] = 2;
-		port[0x3ce] = 4;
-		port[0x3c5] = 1 << bit;
-		port[0x3cf] = bit;
-		blockread(f, a, 12080);
-		if (ioresult != 0) {
-			pak("LOAD: error whilst loading.");
-			close(f);
-			return;
-		}
-	}
-	close(f);
-}
-
-void save() {
-	const string header =
-	    string("This is a file from an Avvy game, and its contents are subject to ") +
-	    "copyright." + '\15' + '\12' + '\15' + '\12' + "Have fun!" + '\32';
-	untyped_file f;
-	varying_string<30> screenname;
-	searchrec s;
-	char r;
-	byte a /*absolute $A000:1200*/;
-	say("SAVE: filename?");
-	nam = typein();
-	drop();
-	if (nam == "")  return;
-	findfirst(nam, anyfile, s);
-	if (doserror == 0) {
-		say("SAVE: That exists, are you sure\? (Y/N)");
-		do {
-			r = upcase(readkey());
-		} while (!(set::of('Y', 'N', eos).has(r)));
-		drop();
-		if (r == 'N')  return;
-	}
-	screenname = "Saved with HIZ.";
-	assign(f, nam);
-	rewrite(f, 1);
-	blockwrite(f, header[1], 146);
-	blockwrite(f, screenname, 31);
-	for (bit = 0; bit <= 3; bit ++) {
-		port[0x3c4] = 2;
-		port[0x3ce] = 4;
-		port[0x3c5] = 1 << bit;
-		port[0x3cf] = bit;
-		blockwrite(f, a, 12080);
-		if (ioresult != 0) {
-			pak("SAVE: error whilst saving.");
-			close(f);
-			return;
-		}
-	}
-}
-
-void hedges() {
-	for (bit = 0; bit <= 3; bit ++) {
-		port[0x3c4] = 2;
-		port[0x3ce] = 4;
-		port[0x3c5] = 1 << bit;
-		port[0x3cf] = bit;
-		fillchar(mem[0xa000 * 14 * 80], 80, '\377');
-		fillchar(mem[0xa000 * 166 * 80], 80, '\377');
-	}
-}
-
-void reset_() {
-	registers regs;
-	regs.ax = 14;
-	intr(0x10, regs);
-	directvideo = false;
-}
-
-void do_pop() {
-	char r;
-	do {
-		say("HIZ: Load Save Hedges Reset eXit?");
-		r = upcase(readkey());
-		drop();
-		switch (r) {
-		case 'L':
-			load();
-			break;
-		case 'S':
-			save();
-			break;
-		case 'H':
-			hedges();
-			break;
-		case 'R':
-			reset_();
-			break;
-		case 'X':
-			return;
-			break;
-		}
-	} while (!false);
-}
-
-/* Now for the TSR stuff */
-
-void mypoprtn() {
-	registers r;
-	beginpop;
-	do_pop();
-	endpop;
-}
-/**********************/
-void stop_tsr() {
-	if (tsrexit)
-		output << "HIZ stopped" << NL;
-	else
-		output << "Unable to stop HIZ - other TSR has been installed." << NL;
-}
-/**********************/
-/* This interrupt is called at program start-up. Its purpose is to provide
- a way to communicate with an installed copy of the TSR through cmdline
- params. The installation of the intrpt serves to prevent any attempt to
- install a 2nd copy of the TSR */
-void tsr_intrtn(word flags, word cs, word ip, word ax, word bx, word cx, word dx, word si, word di, word ds, word es, word bp)
-/*interrupt;*/
-{
-	tsr_ax = ax;
-	cli;
-	beginint;
-	sti;
-
-	switch (tsr_ax) {
-	case 1: {
-		stop_tsr(); /* Terminate TSR, if poss.*/
-	}
-	break;
-	case 2: {
-		tsroff = true; /* Suspend TSR */
-		output << "HIZ suspended." << NL;
-	}
-	break;
-	case 3: {
-		tsroff = false;
-		output << "HIZ restarted" << NL;
-	}
-	break;
-	}
-	cli;
-	endint;
-	sti;
-}
-/*******************/
-byte i;
-registers r;
-string st;
-boolean b;
-
-int main(int argc, const char *argv[]) {
-	pio_initialize(argc, argv);
-
-	/********************************************/
-	/* Check to see if TSR is already installed */
-	/********************************************/
-
-	tsr_int = dupcheck(tsr_tmark, &tsr_intrtn);
-
-	/*****************************************/
-	/* If it IS already installed, check for */
-	/* parameter.                            */
-	/*****************************************/
-
-	if (tsr_int > 0) {
-		if (paramcount > 0) {
-			st = paramstr(1);
-			for (i = 1; i <= length(st); i ++)
-				st[i] = upcase(st[i]);
-			if (st == "STOP")
-				r.ax = 1;
-			else if (st == "HOLD")  r.ax = 2;
-			else if (st == "RSTR")  r.ax = 3;
-			else r.ax = 4;
-
-			if (r.ax < 4) {
-				intr(tsr_int, r);
-				return 0;
-			} else {
-				output << "HIZ: invalid parameter " << paramstr(1) << NL;
-				output << "Syntax: HIZ stop/hold/rstr" << NL;
-				return 0;
-			}
-		} else {
-			output << "HIZ already installed." << NL;
-			output << "(If you're sure it isn't, try running BLANKINT /I." << NL;
-			output << "It's in the TURBO directory.)" << NL;
-		}
-		return 0;
-	}
-
-	output << string("Wait...") + '\15'; /* tell 'em to wait...! */
-
-	/* Call PopSetUp to point to PopUp routine. Include the
-	  scancode and the keymask to activate the program. In
-	  this example, the scancode is $23 (H) and the
-	  keymask is 08h (Alt.) */
-
-	popsetup(&mypoprtn, 0x23, 0x8);
-
-	directvideo = false;
-	output << "Û Û ßÛß ßßÛ v1.0, (c) 1992, Thomas Thurman." << NL;
-	output << "ÛßÛ  Û  Üß" << NL;
-	output << "ß ß ßßß ßßß The AVD saving/loading/hedging program." << NL;
-	output << "            Use with Dr. Genius. The Hot Key is Ctrl-Alt-H." << NL;
-
-	output << NL;
-	output << " Enter \"HIZ stop\" to remove Hiz from memory" << NL;
-	output << "       \"HIZ hold\" to temporarily halt Hiz" << NL;
-	output << "       \"HIZ rstr\" to restart Hiz" << NL;
-	stacksw = -1;
-	install_int;
-	keep(0);
-	return EXIT_SUCCESS;
-}
-
-} // End of namespace Avalanche.
\ No newline at end of file