mirror of
https://github.com/rigreco/Runge-Kutta-Simulation.git
synced 2025-01-14 05:31:35 +00:00
14 lines
294 B
C
14 lines
294 B
C
/* adjust HGR scanline array from page 2 to page 1
|
|
to use existing loaders for ProDOS SYS programs in
|
|
programs that use graphics page 1 (i.e. shell programs) */
|
|
extern unsigned HB[];
|
|
|
|
hbsh()
|
|
{
|
|
unsigned y;
|
|
|
|
if (HB[0] == 0x4000) {
|
|
for (y= 0; y < 192;y++) HB[y] = (HB[y] - 0x2000);
|
|
}
|
|
}
|