mirror of
https://github.com/rigreco/Runge-Kutta-Simulation.git
synced 2025-01-14 05:31:35 +00:00
87 lines
2.2 KiB
C
87 lines
2.2 KiB
C
/* ------------------------------------------------------------------------
|
|
System : Manx Aztec C65 Version 3.2b
|
|
MS-DOS cross-development environment
|
|
Platform : Apple IIe 128K PRODOS 8
|
|
Program : emsrag.c
|
|
Description : G2 Library Routine
|
|
|
|
Written by : Bill Buckels
|
|
Revision Date: June 20, 2008
|
|
|
|
Licence : You may use this code for whatever you wish as long
|
|
as you agree that Bill Buckels has no warranty or
|
|
liability obligations whatsoever from said use.
|
|
------------------------------------------------------------------------ */
|
|
|
|
|
|
/* loads a rag from disk to himem */
|
|
/* emsputimage can then be used to display the image */
|
|
|
|
|
|
/* the ems buffer start is set to 0x0C00 in aux memory */
|
|
|
|
/* this is the area directly above the secondary page of video ram */
|
|
/* the auxilliary memory map for the apple 2C indicates that areas */
|
|
/* below this have memory "holes" which are reserved or assigned even */
|
|
/* though zero page and the hardware stack finish at 0x200 */
|
|
|
|
/* in Main Memory... */
|
|
/* a 4000 byte buffer is used above where we store the font */
|
|
/* at 0x0C00+1096+24 =4192 as a temporary IO buffer */
|
|
/* to transfer the data to the upper ram banks */
|
|
/* this avoids text screen page 2 and is below the prodos load address */
|
|
|
|
|
|
#include <stdio.h>
|
|
#include <fcntl.h>
|
|
#include <prodos.h>
|
|
#include <sgtty.h>
|
|
#include <device.h>
|
|
#include <sysfunc.h>
|
|
|
|
|
|
emsrag(name,emsarraybase)
|
|
char *name;
|
|
unsigned emsarraybase;
|
|
{
|
|
int fh;
|
|
unsigned packet, straggler, lomem, himem, ragsize, i;
|
|
char height, width;
|
|
|
|
if((fh = open(name,O_RDONLY,0xC3))==-1)return -1;
|
|
|
|
read(fh,&width,1);
|
|
read(fh,&height,1);
|
|
|
|
ragsize = width;
|
|
ragsize *= height;
|
|
|
|
packet= ragsize/4000; /* primary number of reads */
|
|
straggler= ragsize%4000; /* remainder of reads */
|
|
|
|
lomem = 0x0C00+1096+24;
|
|
himem=emsarraybase+0x0C00;
|
|
|
|
/* do the bulk of the work and then the remainder */
|
|
i=0;
|
|
while(i<packet)
|
|
{
|
|
read(fh,(char *)lomem,4000);
|
|
maintoaux(lomem,lomem+4000-1,himem);
|
|
himem+=4000;
|
|
i++;
|
|
}
|
|
|
|
if(straggler>0)
|
|
{
|
|
read(fh,(char *)lomem,straggler);
|
|
maintoaux(lomem,lomem+straggler-1,himem);
|
|
}
|
|
close(fh);
|
|
|
|
return 0;
|
|
|
|
}
|
|
|
|
|