Beispiel #1
0
zysil()

{
    register struct fcblk *fcb = WA (struct fcblk *);

    SET_WA( fcb->rsz );
    SET_WC( fcb->mode );

    // normal return
    return NORMAL_RETURN;
}
Beispiel #2
0
zyspp()
{
    /*
       /   Set default case flag here; cannot set before starting up
       /   compiler because of its clearing of its local data.
     */
    /*
       /   Set page width, lines per page, and compiler flags.
     */
    SET_WA(pagewdth);
    SET_WB(lnsppage);
    SET_WC(spitflag);

    return EXI_0;
}