engines/avalanche/loading.cpp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23

#include "ptoc.h"


#include "graph.h"

integer gd,gm;
byte a /*absolute $A000:1200*/;
byte bit;
untyped_file f;

int main(int argc, const char* argv[])
{pio_initialize(argc, argv);
;
 gd=3; gm=0; initgraph(gd,gm,"");
 assign(f,"c:\\sleep\\test.ega"); reset(f,1);
 for( bit=0; bit <= 3; bit ++)
 {;
  port[0x3c4]=2; port[0x3ce]=4; port[0x3c5]=1 << bit; port[0x3cf]=bit;
  blockread(f,a,12000);
 }
 close(f);
return EXIT_SUCCESS;
}