/*      Header file to define all runtime routines     */
/*      ------------------------------------------     */

#define         OK              1
#define         NOT_OK          0
#define         TRUE            1
#define         FALSE           0

byte    IOCB0cmd    =   $342,
        IOCB0stat   =   $343,
        IOCB0aux1   =   $34A,
        IOCB0aux2   =   $34B,
        IOCB0aux3   =   $34C;
card    IOCB0buff   =   $344,
        IOCB0len    =   $348;

byte    IOCB1cmd    =   $352,
        IOCB1stat   =   $353,
        IOCB1aux1   =   $35A,
        IOCB1aux2   =   $35B,
        IOCB1aux3   =   $35C;
card    IOCB1buff   =   $354,
        IOCB1len    =   $358;

byte    IOCB2cmd    =   $362,
        IOCB2stat   =   $363,
        IOCB2aux1   =   $36A,
        IOCB2aux2   =   $36B,
        IOCB2aux3   =   $36C;
card    IOCB2buff   =   $364,
        IOCB2len    =   $368;

byte    IOCB3cmd    =   $372,
        IOCB3stat   =   $373,
        IOCB3aux1   =   $37A,
        IOCB3aux2   =   $37B,
        IOCB3aux3   =   $37C;
card    IOCB3buff   =   $374,
        IOCB3len    =   $378;

byte    IOCB4cmd    =   $382,
        IOCB4stat   =   $383,
        IOCB4aux1   =   $38A,
        IOCB4aux2   =   $38B,
        IOCB4aux3   =   $38C;
card    IOCB4buff   =   $384,
        IOCB4len    =   $388;

byte    IOCB5cmd    =   $392,
        IOCB5stat   =   $393,
        IOCB5aux1   =   $39A,
        IOCB5aux2   =   $39B,
        IOCB5aux3   =   $39C;
card    IOCB5buff   =   $394,
        IOCB5len    =   $398;

byte    IOCB6cmd    =   $3A2,
        IOCB6stat   =   $3A3,
        IOCB6aux1   =   $3AA,
        IOCB6aux2   =   $3AB,
        IOCB6aux3   =   $3AC;
card    IOCB6buff   =   $3A4,
        IOCB6len    =   $3A8;



external ( printf, fprintf, pute, put, putd, getd, open, blockread,
           blockwrite, close, inputs, inputsd, call, keypressed,
           scopy, strcpy, strcmp, strcmpi, strcat, valb, valc,
           action, isdigit, isalpha, islower, zero, setblock,
           moveblock, pos, isupper, eof, halt, upcase, locase, tolower,
           freeiocb, fdelete, flock, fprotect, funprotect, frename,
           funlock, fcredir, fdeldir, fcwd, fainit, strc, strb,
           ftoi, ftostr, strtof, itof, fadd, fsub, fmult, fdiv, fmove,
           fcompare, fzero, negative, point, write_ram, toupper, 
           call_cio, end_of_program );