1 files changed, 146 insertions, 0 deletions
diff --git a/v4.0/src/CMD/FDISK/VIDEO.C b/v4.0/src/CMD/FDISK/VIDEO.C
new file mode 100644
index 0000000..750a94a
--- /dev/null
+++ b/v4.0/src/CMD/FDISK/VIDEO.C
@@ -0,0 +1,146 @@
+#include "dos.h"                                                        /* AN000 */
+#include "fdisk.h"                                                      /* AN000 */
+#include "extern.h"                                                     /* AN000 */
+#include "doscall.h"                                                    /* AN000 */
+#include "fdiskmsg.h"                                                   /* AN000 */
+#include "subtype.h"
+/*  */
+void clear_screen(TopRow,LeftCol,BotRow,RightCol)
+unsigned     TopRow;
+unsigned     LeftCol;
+unsigned     BotRow;
+unsigned     RightCol;
+BEGIN
+char    attribute;
+char    *attribute_ptr = &attribute;
+   if (mono_flag == TRUE)                                               /* AN006 */
+       attribute = GRAY_ON_BLACK;                                       /* AN006 */
+   else                                                                 /* AN006 */
+       attribute = WHITE_ON_BLUE;                                       /* AC000 */
+   VIOSCROLLUP(TopRow,LeftCol,BotRow,RightCol,u(0),attribute_ptr,u(0)); /* AC000 */
+   return;
+END
+/*  */
+/*                                                                          */
+/****************************************************************************/
+/* Initializes the screen and stores the lower right hand corner            */
+/* of the screen in the global variable LowerRightHandCorner.  This         */
+/* is which is used for screen clears.  If the screen is in grahpics mode,  */
+/* it is changed to BW 40x25.  This procedure is only called once at program*/
+/* start. Also saves the current screen                                     */
+/****************************************************************************/
+/*                                                                          */
+void init_video_information()
+BEGIN
+        mono_flag = FALSE;                                              /* AN006 */
+        /* Get the current video state */
+        regs.h.ah = uc(CURRENT_VIDEO_STATE);                            /* AC000 */
+        int86((int)VIDEO,&regs,&regs);                                  /* AC000 */
+        /* Save the mode and display page */
+        video_mode = regs.h.al;
+        display_page = regs.h.bh;
+        get_video_attribute();                                          /* AN006 */
+        BEGIN
+        /* assume color mode */
+        regs.h.al = uc(Color80_25);                                     /* AC000 */
+        /* See if we are in MONOCHROME mode */
+        if ((video_mode == uc(MONO80_25)) || (video_mode == uc(MONO80_25A))) /* AC000 AC006 */
+           BEGIN
+            /* Nope,set to BW80x25*/
+            regs.h.al = uc(BW80_25);                                    /* AC000 */
+            mono_flag = TRUE;                                           /* AN006 */
+           END
+        /* go set the new mode */
+        regs.h.ah = uc(SET_MODE);                                       /* AC000 */
+        int86((int)VIDEO,&regs,&regs);                                  /* AC000 */
+       END
+        /* Set the display page */
+        regs.h.ah = uc(SET_ACTIVE_DISPLAY_PAGE);                        /* AC000 */
+        regs.h.al = uc(0);                                              /* AC000 */
+        int86((int)VIDEO,&regs,&regs);                                  /* AC000 */
+        return;
+END
+/*  */
+/*                                             */
+/* Resets the video mode to the original value */
+/*                                             */
+void reset_video_information()
+BEGIN
+char    *attribute_ptr = &video_attribute;                              /* AN006 */
+        /* Clear display with colors that were present when FDISK was invoked */
+        VIOSCROLLUP(u(0),u(0),u(24),u(79),u(0),attribute_ptr,u(0));     /* AN006 */
+        /* Reset the video mode */
+        regs.h.ah = SET_MODE;
+        regs.h.al = video_mode;
+        int86((int)VIDEO,&regs,&regs);                                  /* AC000 */
+        /* Set the page */
+        regs.h.ah = SET_PAGE;
+        regs.h.al = display_page;
+        int86((int)VIDEO,&regs,&regs);                                  /* AC000 */
+        return;
+END
+/******************************************************************************/
+/*Routine name:  GET_VIDEO_ATTRIBUTE                                          */
+/******************************************************************************/
+/*                                                                            */
+/*Description:   This routine will invoke interrupt 10 function 08h to        */
+/*               get the current attributes at the cursor postition in order  */
+/*               to restore the correct colors when returning out of FDISK.   */
+/*                                                                            */
+/*Called Procedures:    none                                                  */
+/*                                                                            */
+/*                                                                            */
+/*Change History: Created        3/11/88         DRM                          */
+/*                                                                            */
+/*Input: None                                                                 */
+/*                                                                            */
+/*Output: None                                                                */
+/*                                                                            */
+/******************************************************************************/
+void get_video_attribute()                                              /* AN006 */
+BEGIN                                                                   /* AN006 */
+        /* Get current attributes */
+        regs.h.ah = CURRENT_VIDEO_ATTRIBUTE;                            /* AN006 */
+        regs.h.bh = display_page;                                       /* AN006 */
+        int86((int)VIDEO,&regs,&regs);                                  /* AN006 */
+        video_attribute = regs.h.ah;                                    /* AN006 */
+        return;                                                         /* AN006 */
+END                                                                     /* AN006 */

diff --git a/v4.0/src/CMD/FDISK/VIDEO.C b/v4.0/src/CMD/FDISK/VIDEO.C new file mode 100644 index 0000000..750a94a --- /dev/null +++ b/v4.0/src/CMD/FDISK/VIDEO.C
@@ -0,0 +1,146 @@
	1
	2	#include "dos.h" /* AN000 */
	3	#include "fdisk.h" /* AN000 */
	4	#include "extern.h" /* AN000 */
	5	#include "doscall.h" /* AN000 */
	6	#include "fdiskmsg.h" /* AN000 */
	7	#include "subtype.h"
	8
	9	/* */
	10
	11	void clear_screen(TopRow,LeftCol,BotRow,RightCol)
	12
	13	unsigned TopRow;
	14	unsigned LeftCol;
	15	unsigned BotRow;
	16	unsigned RightCol;
	17
	18	BEGIN
	19
	20	char attribute;
	21	char *attribute_ptr = &attribute;
	22
	23	if (mono_flag == TRUE) /* AN006 */
	24	attribute = GRAY_ON_BLACK; /* AN006 */
	25	else /* AN006 */
	26	attribute = WHITE_ON_BLUE; /* AC000 */
	27	VIOSCROLLUP(TopRow,LeftCol,BotRow,RightCol,u(0),attribute_ptr,u(0)); /* AC000 */
	28	return;
	29	END
	30
	31
	32
	33
	34
	35	/* */
	36	/* */
	37	/****************************************************************************/
	38	/* Initializes the screen and stores the lower right hand corner */
	39	/* of the screen in the global variable LowerRightHandCorner. This */
	40	/* is which is used for screen clears. If the screen is in grahpics mode, */
	41	/* it is changed to BW 40x25. This procedure is only called once at program*/
	42	/* start. Also saves the current screen */
	43	/****************************************************************************/
	44	/* */
	45
	46
	47	void init_video_information()
	48
	49	BEGIN
	50	mono_flag = FALSE; /* AN006 */
	51
	52	/* Get the current video state */
	53	regs.h.ah = uc(CURRENT_VIDEO_STATE); /* AC000 */
	54	int86((int)VIDEO,&regs,&regs); /* AC000 */
	55
	56	/* Save the mode and display page */
	57	video_mode = regs.h.al;
	58	display_page = regs.h.bh;
	59
	60	get_video_attribute(); /* AN006 */
	61
	62	BEGIN
	63	/* assume color mode */
	64	regs.h.al = uc(Color80_25); /* AC000 */
	65
	66	/* See if we are in MONOCHROME mode */
	67	if ((video_mode == uc(MONO80_25)) \|\| (video_mode == uc(MONO80_25A))) /* AC000 AC006 */
	68	BEGIN
	69
	70	/* Nope,set to BW80x25*/
	71	regs.h.al = uc(BW80_25); /* AC000 */
	72	mono_flag = TRUE; /* AN006 */
	73	END
	74
	75	/* go set the new mode */
	76	regs.h.ah = uc(SET_MODE); /* AC000 */
	77	int86((int)VIDEO,&regs,&regs); /* AC000 */
	78	END
	79
	80	/* Set the display page */
	81	regs.h.ah = uc(SET_ACTIVE_DISPLAY_PAGE); /* AC000 */
	82	regs.h.al = uc(0); /* AC000 */
	83	int86((int)VIDEO,&regs,&regs); /* AC000 */
	84
	85	return;
	86	END
	87
	88	/* */
	89	/* */
	90	/* Resets the video mode to the original value */
	91	/* */
	92
	93	void reset_video_information()
	94
	95	BEGIN
	96
	97	char attribute_ptr = &video_attribute; / AN006 */
	98
	99	/* Clear display with colors that were present when FDISK was invoked */
	100	VIOSCROLLUP(u(0),u(0),u(24),u(79),u(0),attribute_ptr,u(0)); /* AN006 */
	101
	102	/* Reset the video mode */
	103	regs.h.ah = SET_MODE;
	104	regs.h.al = video_mode;
	105	int86((int)VIDEO,&regs,&regs); /* AC000 */
	106
	107	/* Set the page */
	108	regs.h.ah = SET_PAGE;
	109	regs.h.al = display_page;
	110	int86((int)VIDEO,&regs,&regs); /* AC000 */
	111	return;
	112
	113	END
	114
	115	/******************************************************************************/
	116	/Routine name: GET_VIDEO_ATTRIBUTE /
	117	/******************************************************************************/
	118	/* */
	119	/Description: This routine will invoke interrupt 10 function 08h to /
	120	/* get the current attributes at the cursor postition in order */
	121	/* to restore the correct colors when returning out of FDISK. */
	122	/* */
	123	/Called Procedures: none /
	124	/* */
	125	/* */
	126	/Change History: Created 3/11/88 DRM /
	127	/* */
	128	/Input: None /
	129	/* */
	130	/Output: None /
	131	/* */
	132	/******************************************************************************/
	133
	134	void get_video_attribute() /* AN006 */
	135
	136	BEGIN /* AN006 */
	137
	138	/* Get current attributes */
	139	regs.h.ah = CURRENT_VIDEO_ATTRIBUTE; /* AN006 */
	140	regs.h.bh = display_page; /* AN006 */
	141	int86((int)VIDEO,&regs,&regs); /* AN006 */
	142	video_attribute = regs.h.ah; /* AN006 */
	143	return; /* AN006 */
	144
	145	END /* AN006 */
	146