]> git.sur5r.net Git - rgb2r-2017/blob - diskbench.c
Split out relfile routines
[rgb2r-2017] / diskbench.c
1
2 #include <conio.h>
3 #include <cbm.h>
4 #include <stdint.h>
5
6 #include "bcd2dec.h"
7
8 uint8_t buffer[256];
9
10 int main(void)
11 {
12     int c,i;
13
14     videomode(VIDEOMODE_80x25);
15     fast();
16
17     __asm__("jsr initsystime");
18
19     c = cbm_open((uint8_t)1, (uint8_t)8, (uint8_t)8, "data,s,a");
20     cprintf("[%2d] open\r\n", bcd2dec(CIA1.tod_sec));
21     if(c)
22     {
23         return 1;
24     }
25     for(i=0; i< 32; i++)
26     {
27         c = cbm_write((uint8_t)1, buffer, 256);
28         cprintf("[%2d] write\r\n", bcd2dec(CIA1.tod_sec));
29         if(c != 256)
30         {
31             return 1;
32         }
33     }
34     cbm_close(1);
35     cprintf("[%2d] close\r\n",bcd2dec(CIA1.tod_sec));
36     return 0;
37 }