/* ReC98
 * -----
 * 1st part of code segment #2 of TH02's OP.EXE
 */

#include "th02/th02.h"
#include "th02/initexit.h"
#include "th02/formats/pi.h"

#pragma codeseg op_02_TEXT
#pragma option -3

resident_t *resident;
char unused_op_2_3;
char lives;
char bombs;
long unused_4;
long unused_5;

#include "th02/exit_dos.c"
#include "th02/zunerror.c"
#include "th02/hardware/grppsafx.c"
#include "th01/hardware/vplanset.c"
#include "th02/formats/pi_load.c"

void pascal graph_copy_rect_1_to_0(int x, int y, int w, int h)
{
	int row_p = VRAM_OFFSET(x, y);
	int row;
	for(row = 0; row < h; row++) {
		int col;
		int p;
		for(col = 0, p = row_p; col < (w >> 4); col++, p += 2) {
			if(row_p >= 0) {
				planar16_t p16;
				graph_accesspage(1);	VRAM_SNAP_PLANAR(p16, p, 16);
				graph_accesspage(0);	VRAM_PUT_PLANAR(p, p16, 16);
			}
		}
		row_p += ROW_SIZE;
	}
}

#include "th02/hardware/frmdely2.c"