File: sys.c

package info (click to toggle)
cc65 2.19-2
  • links: PTS
  • area: main
  • in suites: forky, sid, trixie
  • size: 20,268 kB
  • sloc: ansic: 117,151; asm: 66,339; pascal: 4,248; makefile: 1,009; perl: 607
file content (37 lines) | stat: -rw-r--r-- 727 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
 
/*
** testprogram for _sys() function on Atari
**
** 17-Sep-2013, chris@groessler.org
**
** uses PUTCHR IOCB function to display a string
*/

#include <atari.h>
#include <6502.h>
#include <conio.h>

static struct regs regs;
static struct __iocb *iocb = &IOCB;  /* use IOCB #0 */

static char message[] = "I'm the sys test text\n";

int main(void)
{
    /* setup IOCB for CIO call */
    iocb->buffer = message;
    iocb->buflen = sizeof(message) - 1;
    iocb->command = IOCB_PUTCHR;

    /* setup input registers */
    regs.x = 0;         /* IOCB #0 */
    regs.pc = 0xe456;   /* CIOV */

    /* call CIO */
    _sys(&regs);

    if (regs.y != 1)
        cprintf("CIO error 0x%02\r\n", regs.y);

    cgetc();
    return 0;
}