blob: 4e48cb50a0979121f5cfa7d9fd3aa6fe8be74171 (
plain)
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;
}
|