Runge-Kutta-Simulation/AppleX/SYSIO/AUX2MAIN.C

32 lines
647 B
C++
Raw Normal View History

2015-02-11 18:34:08 +00:00
/* move a block of data from auxiliary to main memory */
/* do an absolute ml call */
#define A1L 0x3c
#define A1H 0x3d
#define A2L 0x3e
#define A2H 0x3f
#define A4L 0x42
#define A4H 0x43
auxtomain(src1,src2,dest)
unsigned int src1,src2,dest;
{
/* load the registers and do the call */
unsigned char *ptr=(unsigned char *)A1L;
*ptr++=(unsigned char)(src1&0xff);
*ptr++=(unsigned char)(src1>>8);
*ptr++=(unsigned char)(src2&0xff);
*ptr =(unsigned char)(src2>>8);
ptr=(unsigned char *)A4L;
*ptr++=(unsigned char)(dest&0xff);
*ptr =(unsigned char)(dest>>8);
#asm
clc
jsr $c311
#endasm
}