mirror of
https://github.com/rigreco/Runge-Kutta-Simulation.git
synced 2024-06-01 05:41:27 +00:00
155 lines
7.0 KiB
C
155 lines
7.0 KiB
C
/* ------------------------------------------------------------------------
|
|
System : Manx Aztec C65 Version 3.2b
|
|
MS-DOS cross-development environment
|
|
Platform : Apple IIe 128K PRODOS 8
|
|
Program : pchar.c
|
|
Description : G2 Library Routine
|
|
|
|
Written by : Bill Buckels
|
|
Revision Date: Dec 4, 2009
|
|
|
|
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.
|
|
------------------------------------------------------------------------ */
|
|
|
|
|
|
char __chr[1096] = {
|
|
0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
|
|
0x0C, 0x0C, 0x0C, 0x0C, 0x0C, 0x00, 0x0C, 0x00,
|
|
0x64, 0x66, 0x26, 0x00, 0x00, 0x00, 0x00, 0x00,
|
|
0x00, 0x66, 0x7E, 0x66, 0x7E, 0x66, 0x00, 0x00,
|
|
0x18, 0x7E, 0x06, 0x7E, 0x60, 0x7E, 0x18, 0x00,
|
|
0x4E, 0x66, 0x30, 0x18, 0x0C, 0x66, 0x66, 0x00,
|
|
0x3C, 0x66, 0x66, 0x1C, 0x7E, 0x66, 0x7C, 0x00,
|
|
0x18, 0x18, 0x0C, 0x00, 0x00, 0x00, 0x00, 0x00,
|
|
0x18, 0x0C, 0x06, 0x06, 0x06, 0x0C, 0x18, 0x00,
|
|
0x06, 0x0C, 0x18, 0x18, 0x18, 0x0C, 0x06, 0x00,
|
|
0x66, 0x7E, 0x18, 0x7E, 0x18, 0x7E, 0x66, 0x00,
|
|
0x00, 0x18, 0x18, 0x7E, 0x18, 0x18, 0x00, 0x00,
|
|
0x00, 0x00, 0x00, 0x00, 0x00, 0x0C, 0x0C, 0x06,
|
|
0x00, 0x00, 0x00, 0x3E, 0x00, 0x00, 0x00, 0x00,
|
|
0x00, 0x00, 0x00, 0x00, 0x00, 0x0C, 0x0C, 0x00,
|
|
0x40, 0x60, 0x30, 0x18, 0x0C, 0x06, 0x06, 0x00,
|
|
0x3C, 0x66, 0x66, 0x66, 0x66, 0x66, 0x3C, 0x00,
|
|
0x18, 0x1C, 0x18, 0x18, 0x18, 0x18, 0x3C, 0x00,
|
|
0x3C, 0x66, 0x66, 0x30, 0x18, 0x0C, 0x7E, 0x00,
|
|
0x7E, 0x20, 0x18, 0x30, 0x60, 0x66, 0x3E, 0x00,
|
|
0x60, 0x66, 0x66, 0x66, 0x7E, 0x60, 0x60, 0x00,
|
|
0x7E, 0x06, 0x06, 0x3E, 0x60, 0x66, 0x3E, 0x00,
|
|
0x30, 0x18, 0x0C, 0x1E, 0x66, 0x66, 0x3C, 0x00,
|
|
0x7E, 0x30, 0x18, 0x0C, 0x06, 0x06, 0x06, 0x00,
|
|
0x3C, 0x66, 0x66, 0x18, 0x66, 0x66, 0x3C, 0x00,
|
|
0x3C, 0x66, 0x66, 0x3C, 0x18, 0x0C, 0x06, 0x00,
|
|
0x00, 0x0C, 0x0C, 0x00, 0x00, 0x0C, 0x0C, 0x00,
|
|
0x00, 0x0C, 0x0C, 0x00, 0x00, 0x0C, 0x0C, 0x06,
|
|
0x30, 0x18, 0x0C, 0x06, 0x0C, 0x18, 0x30, 0x00,
|
|
0x00, 0x00, 0x3E, 0x00, 0x00, 0x3E, 0x00, 0x00,
|
|
0x06, 0x0C, 0x18, 0x30, 0x18, 0x0C, 0x06, 0x00,
|
|
0x3C, 0x66, 0x60, 0x30, 0x18, 0x00, 0x18, 0x00,
|
|
0x3C, 0x66, 0x66, 0x66, 0x66, 0x06, 0x3E, 0x00,
|
|
0x18, 0x3C, 0x66, 0x66, 0x7E, 0x66, 0x66, 0x00,
|
|
0x3E, 0x66, 0x66, 0x3E, 0x66, 0x66, 0x7E, 0x00,
|
|
0x3C, 0x66, 0x06, 0x06, 0x06, 0x66, 0x3C, 0x00,
|
|
0x1E, 0x26, 0x66, 0x66, 0x66, 0x26, 0x1E, 0x00,
|
|
0x7E, 0x06, 0x06, 0x1E, 0x06, 0x06, 0x7E, 0x00,
|
|
0x7E, 0x06, 0x06, 0x1E, 0x06, 0x06, 0x06, 0x00,
|
|
0x3C, 0x66, 0x06, 0x66, 0x66, 0x66, 0x3C, 0x00,
|
|
0x66, 0x66, 0x66, 0x7E, 0x66, 0x66, 0x66, 0x00,
|
|
0x3C, 0x18, 0x18, 0x18, 0x18, 0x18, 0x3C, 0x00,
|
|
0x78, 0x30, 0x30, 0x30, 0x30, 0x3E, 0x1C, 0x00,
|
|
0x66, 0x66, 0x1E, 0x1E, 0x66, 0x66, 0x66, 0x00,
|
|
0x06, 0x06, 0x06, 0x06, 0x06, 0x06, 0x7E, 0x00,
|
|
0x66, 0x76, 0x7E, 0x66, 0x66, 0x66, 0x66, 0x00,
|
|
0x66, 0x66, 0x6E, 0x7E, 0x76, 0x66, 0x66, 0x00,
|
|
0x3C, 0x66, 0x66, 0x66, 0x66, 0x66, 0x3C, 0x00,
|
|
0x3E, 0x66, 0x66, 0x3E, 0x06, 0x06, 0x06, 0x00,
|
|
0x3C, 0x66, 0x66, 0x66, 0x66, 0x3E, 0x7C, 0x00,
|
|
0x3E, 0x66, 0x66, 0x3E, 0x1E, 0x66, 0x66, 0x00,
|
|
0x3C, 0x66, 0x06, 0x3C, 0x60, 0x66, 0x3C, 0x00,
|
|
0x7E, 0x18, 0x18, 0x18, 0x18, 0x18, 0x18, 0x00,
|
|
0x66, 0x66, 0x66, 0x66, 0x66, 0x66, 0x3C, 0x00,
|
|
0x66, 0x66, 0x66, 0x66, 0x66, 0x3C, 0x18, 0x00,
|
|
0x66, 0x66, 0x66, 0x66, 0x6E, 0x7E, 0x66, 0x00,
|
|
0x66, 0x66, 0x3C, 0x18, 0x3C, 0x66, 0x66, 0x00,
|
|
0x66, 0x66, 0x3C, 0x18, 0x18, 0x18, 0x18, 0x00,
|
|
0x7E, 0x60, 0x30, 0x18, 0x0C, 0x06, 0x7E, 0x00,
|
|
0x3E, 0x06, 0x06, 0x06, 0x06, 0x06, 0x3E, 0x00,
|
|
0x02, 0x06, 0x0C, 0x18, 0x30, 0x60, 0x40, 0x00,
|
|
0x3E, 0x30, 0x30, 0x30, 0x30, 0x30, 0x3E, 0x00,
|
|
0x18, 0x18, 0x3C, 0x66, 0x00, 0x00, 0x00, 0x00,
|
|
0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x7F,
|
|
0x0C, 0x0C, 0x18, 0x00, 0x00, 0x00, 0x00, 0x00,
|
|
0x00, 0x00, 0x1E, 0x30, 0x3E, 0x32, 0x7E, 0x00,
|
|
0x06, 0x06, 0x06, 0x3E, 0x66, 0x66, 0x3C, 0x00,
|
|
0x00, 0x00, 0x3C, 0x66, 0x06, 0x66, 0x3C, 0x00,
|
|
0x60, 0x60, 0x60, 0x7C, 0x66, 0x66, 0x3C, 0x00,
|
|
0x00, 0x00, 0x3C, 0x66, 0x7E, 0x06, 0x3C, 0x00,
|
|
0x3C, 0x66, 0x06, 0x1E, 0x06, 0x06, 0x06, 0x00,
|
|
0x00, 0x00, 0x3C, 0x66, 0x66, 0x7C, 0x60, 0x3E,
|
|
0x06, 0x06, 0x06, 0x3E, 0x66, 0x66, 0x66, 0x00,
|
|
0x18, 0x00, 0x1C, 0x18, 0x18, 0x18, 0x3C, 0x00,
|
|
0x60, 0x00, 0x60, 0x60, 0x60, 0x66, 0x36, 0x1C,
|
|
0x06, 0x06, 0x66, 0x3E, 0x1E, 0x3E, 0x66, 0x00,
|
|
0x1C, 0x18, 0x18, 0x18, 0x18, 0x18, 0x3C, 0x00,
|
|
0x00, 0x00, 0x66, 0x7E, 0x6E, 0x66, 0x66, 0x00,
|
|
0x00, 0x00, 0x3C, 0x66, 0x66, 0x66, 0x66, 0x00,
|
|
0x00, 0x00, 0x3C, 0x66, 0x66, 0x66, 0x3C, 0x00,
|
|
0x00, 0x00, 0x3E, 0x66, 0x66, 0x3E, 0x06, 0x06,
|
|
0x00, 0x00, 0x3C, 0x66, 0x66, 0x7C, 0x60, 0x70,
|
|
0x00, 0x00, 0x3C, 0x66, 0x06, 0x06, 0x06, 0x00,
|
|
0x00, 0x00, 0x7C, 0x06, 0x3C, 0x60, 0x3E, 0x00,
|
|
0x18, 0x18, 0x7E, 0x18, 0x18, 0x18, 0x18, 0x00,
|
|
0x00, 0x00, 0x66, 0x66, 0x66, 0x66, 0x3C, 0x00,
|
|
0x00, 0x00, 0x66, 0x66, 0x66, 0x3C, 0x18, 0x00,
|
|
0x00, 0x00, 0x66, 0x66, 0x6E, 0x7E, 0x66, 0x00,
|
|
0x00, 0x00, 0x66, 0x3C, 0x18, 0x3C, 0x66, 0x00,
|
|
0x00, 0x00, 0x66, 0x66, 0x3C, 0x18, 0x0C, 0x06,
|
|
0x00, 0x00, 0x7E, 0x30, 0x18, 0x0C, 0x7E, 0x00,
|
|
0x30, 0x18, 0x18, 0x0C, 0x18, 0x18, 0x30, 0x00,
|
|
0x18, 0x18, 0x18, 0x00, 0x18, 0x18, 0x18, 0x00,
|
|
0x06, 0x0C, 0x0C, 0x18, 0x0C, 0x0C, 0x06, 0x00,
|
|
0x66, 0x3E, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
|
|
0x00, 0x18, 0x18, 0x3C, 0x42, 0x7E, 0x00, 0x00,
|
|
0x00, 0x3C, 0x66, 0x06, 0x66, 0x3C, 0x30, 0x18,
|
|
0x66, 0x00, 0x66, 0x66, 0x66, 0x66, 0x3C, 0x00,
|
|
0x30, 0x0C, 0x3C, 0x66, 0x7E, 0x06, 0x3C, 0x00,
|
|
0x18, 0x66, 0x1E, 0x30, 0x3E, 0x32, 0x7E, 0x00,
|
|
0x66, 0x00, 0x1E, 0x30, 0x3E, 0x32, 0x7E, 0x00,
|
|
0x06, 0x18, 0x1E, 0x30, 0x3E, 0x32, 0x7E, 0x00,
|
|
0x18, 0x06, 0x1E, 0x30, 0x3E, 0x32, 0x7E, 0x00,
|
|
0x00, 0x00, 0x7C, 0x06, 0x06, 0x3C, 0x60, 0x38,
|
|
0x18, 0x66, 0x3C, 0x66, 0x7E, 0x06, 0x3C, 0x00,
|
|
0x66, 0x00, 0x3C, 0x66, 0x7E, 0x06, 0x3C, 0x00,
|
|
0x0C, 0x30, 0x3C, 0x66, 0x7E, 0x06, 0x3C, 0x00,
|
|
0x66, 0x00, 0x1C, 0x18, 0x18, 0x18, 0x3C, 0x00,
|
|
0x3C, 0x66, 0x18, 0x18, 0x18, 0x18, 0x3C, 0x00,
|
|
0x0E, 0x00, 0x1C, 0x18, 0x18, 0x18, 0x3C, 0x00,
|
|
0x66, 0x18, 0x3C, 0x66, 0x7E, 0x66, 0x66, 0x00,
|
|
0x18, 0x18, 0x00, 0x3C, 0x66, 0x7E, 0x66, 0x00,
|
|
0x70, 0x00, 0x7E, 0x06, 0x1E, 0x06, 0x7E, 0x00,
|
|
0x00, 0x00, 0x36, 0x58, 0x7E, 0x1A, 0x7E, 0x00,
|
|
0x7E, 0x1A, 0x1A, 0x7E, 0x1A, 0x1A, 0x7A, 0x00,
|
|
0x18, 0x66, 0x00, 0x3C, 0x66, 0x66, 0x3C, 0x00,
|
|
0x66, 0x00, 0x3C, 0x66, 0x66, 0x66, 0x3C, 0x00,
|
|
0x0E, 0x00, 0x3C, 0x66, 0x66, 0x66, 0x3C, 0x00,
|
|
0x18, 0x66, 0x00, 0x66, 0x66, 0x66, 0x3C, 0x00,
|
|
0x0E, 0x00, 0x66, 0x66, 0x66, 0x66, 0x3C, 0x00,
|
|
0x66, 0x00, 0x66, 0x66, 0x3C, 0x18, 0x0C, 0x06,
|
|
0x66, 0x00, 0x3C, 0x66, 0x66, 0x66, 0x3C, 0x00,
|
|
0x66, 0x00, 0x66, 0x66, 0x66, 0x66, 0x3C, 0x00,
|
|
0x00, 0x18, 0x7E, 0x06, 0x06, 0x7E, 0x18, 0x00,
|
|
0x1C, 0x36, 0x06, 0x0E, 0x66, 0x6E, 0x36, 0x00,
|
|
0x66, 0x66, 0x3C, 0x7E, 0x18, 0x3C, 0x18, 0x00,
|
|
0x3E, 0x66, 0x3E, 0x06, 0x76, 0x26, 0x66, 0x00,
|
|
0x30, 0x78, 0x18, 0x7E, 0x18, 0x18, 0x1E, 0x0C,
|
|
0x70, 0x00, 0x1E, 0x30, 0x3E, 0x32, 0x7E, 0x00,
|
|
0x38, 0x00, 0x1C, 0x18, 0x18, 0x18, 0x3C, 0x00,
|
|
0x70, 0x00, 0x3C, 0x66, 0x66, 0x66, 0x3C, 0x00,
|
|
0x70, 0x00, 0x66, 0x66, 0x66, 0x66, 0x3C, 0x00,
|
|
0x3E, 0x00, 0x3C, 0x66, 0x66, 0x66, 0x66, 0x00,
|
|
0x7E, 0x00, 0x66, 0x6E, 0x7E, 0x76, 0x66, 0x00,
|
|
0x1C, 0x36, 0x7C, 0x00, 0x7E, 0x00, 0x00, 0x00,
|
|
0x3C, 0x66, 0x3C, 0x00, 0x7E, 0x00, 0x00, 0x00,
|
|
0x18, 0x00, 0x18, 0x0C, 0x06, 0x66, 0x3C, 0x00};
|