mirror of
https://github.com/rigreco/Runge-Kutta-Simulation.git
synced 2024-09-30 23:54:43 +00:00
32 lines
647 B
C
32 lines
647 B
C
/* 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
|
||
|
||
}
|
||
|