Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Path: utzoo!mnetor!uunet!seismo!ut-sally!im4u!rutgers!ames!elroy!mahendo!jplgodo!wlbr!etn-rad!jru
From: jru@etn-rad.UUCP (John Unekis)
Newsgroups: comp.sys.ibm.pc
Subject: waiting for astrotitII, something different
Message-ID: <277@etn-rad.UUCP>
Date: Wed, 9-Sep-87 21:09:03 EDT
Article-I.D.: etn-rad.277
Posted: Wed Sep  9 21:09:03 1987
Date-Received: Sat, 12-Sep-87 06:24:18 EDT
Reply-To: jru@etn-rad.UUCP (0000-John Unekis)
Distribution: comp.sys.ibm.pc
Organization: Eaton Inc. IMSD, Westlake Village, CA
Lines: 138

Since there seems to be an interest out there, I have ported the 
rotor code to a cga/ega compatible form. This is part 1 of 2.
compile rotcga.c with the large model, then assemble dismode.asm.
link them together.  The next posting has the image files aspect
ratio corrected for cga.
***************WARNING,WARNING, DANGER WILL ROBINSON! *********
this animation is mildly obscene
---------------------------------------------------------------
disclaimer: don't even think of bothering to set this up just to
complain about it

------------------------ cut here -----------------------------

#include<stdio.h>
struct cgabuf {
char c1[102][80];
char cp1[32];
};
struct cbuf {
struct cgabuf cbf[2];
} *cb;
struct cbuf c1;
struct cbuf c2;
struct cbuf c3;
struct cbuf c4;
main()
{
FILE *fp;
int i,j,k,l,m,n;
printf("How many rotations>");
scanf("%d",&n);
cb = (struct cbuf *) 0xb8000000;
fp = fopen("n1c.img","rb");
fread(&c1.cbf[0].c1[0][0],1,16380,fp);
fclose(fp);
fp = fopen("n2c.img","rb");
fread(&c2.cbf[0].c1[0][0],1,16380,fp);
fclose(fp);
fp = fopen("n3c.img","rb");
fread(&c3.cbf[0].c1[0][0],1,16380,fp);
fclose(fp);
fp = fopen("n4c.img","rb");
fread(&c4.cbf[0].c1[0][0],1,16380,fp);
fclose(fp);
dismode(6);
fp = fopen("n1c.img","rb");
fread(cb,1,16380,fp);
fclose(fp);
for(i=0;i<n;i++)
 {
 for(j=40;j<90;j++)
 mv80(&(*cb).cbf[0].c1[j][0],&c1.cbf[0].c1[j][0]);
 for(j=40;j<90;j++)
 mv80(&(*cb).cbf[1].c1[j][0],&c1.cbf[1].c1[j][0]);
 for(j=40;j<90;j++)
 mv80(&(*cb).cbf[0].c1[j][0],&c2.cbf[0].c1[j][0]);
 for(j=40;j<90;j++)
 mv80(&(*cb).cbf[1].c1[j][0],&c2.cbf[1].c1[j][0]);
 for(j=40;j<90;j++)
 mv80(&(*cb).cbf[0].c1[j][0],&c3.cbf[0].c1[j][0]);
 for(j=40;j<90;j++)
 mv80(&(*cb).cbf[1].c1[j][0],&c3.cbf[1].c1[j][0]);
 for(j=40;j<90;j++)
 mv80(&(*cb).cbf[0].c1[j][0],&c4.cbf[0].c1[j][0]);
 for(j=40;j<90;j++)
 mv80(&(*cb).cbf[1].c1[j][0],&c4.cbf[1].c1[j][0]);
 }
scanf("%d",&k);
dismode(3);
}




mv80(a,b)
register char *a;
register char *b;
{
register int i;
for(i=0;i<8;i++)
 {
 *a++=*b++;
 *a++=*b++;
 *a++=*b++;
 *a++=*b++;
 *a++=*b++;
 *a++=*b++;
 *a++=*b++;
 *a++=*b++;
 *a++=*b++;
 *a++=*b++;
 }
}

------------------------ cut again -------------------------

;
;   This routine will call BIOS to change the display mode of the 
;   cga or ega controller
; 
; it is called as  dismode(mode)
;
; any IBM manual should give a complete description of the display
; modes
; for now      hex 6 is mono graphics 640 x 200
;              hex 3 is 80 column text in color

	TITLE   dismode

	.287
DISMODE_TEXT	SEGMENT  BYTE PUBLIC 'CODE'
DISMODE_TEXT	ENDS
_DATA	SEGMENT  WORD PUBLIC 'DATA'
_DATA	ENDS
CONST	SEGMENT  WORD PUBLIC 'CONST'
CONST	ENDS
_BSS	SEGMENT  WORD PUBLIC 'BSS'
_BSS	ENDS
DGROUP	GROUP	CONST,	_BSS,	_DATA
	ASSUME  CS: DISMODE_TEXT, DS: DGROUP, SS: DGROUP, ES: DGROUP
EXTRN	__chkstk:FAR
DISMODE_TEXT      SEGMENT
	PUBLIC	_dismode
_dismode	PROC FAR
	push	bp
	mov	bp,sp
	xor	ax,ax
	call	FAR PTR __chkstk
	mov	ax,[bp+6]	
     mov  ah,00h
     int  10h
	mov	sp,bp
	pop	bp
	ret	

_dismode	ENDP
DISMODE_TEXT	ENDS
END