koreth%panarthea.ebay@sun.com (Steven Grimm) (07/21/89)
Submitted-by: uunet!unido!sbsvax!roeder (Edgar Roeder)
Posting-number: Volume 2, Issue 57
Archive-name: gccgem/part02
#!/bin/sh
# this is part 2 of a multipart archive
# do not concatenate these parts, unpack them in order with /bin/sh
# file aes_113.c continued
#
CurArch=2
if test ! -r s2_seq_.tmp
then echo "Please unpack part 1 first!"
exit 1; fi
( read Scheck
if test "$Scheck" != $CurArch
then echo "Please unpack part $Scheck next!"
exit 1;
else exit 0; fi
) < s2_seq_.tmp || exit 1
echo "x - Continuing file aes_113.c"
sed 's/^X//' << 'SHAR_EOF' >> aes_113.c
X * Copyright (C) 1989 stefan brueck (sb)
X *
X * EMail: roeder@sbsvax.uucp
X *
X * This source is free software; you can redistribute it and/or modify
X * it under the terms of the GNU General Public License as published by
X * the Free Software Foundation; either version 1, or (at your option)
X * any later version.
X *
X * This source is distributed in the hope that it will be useful,
X * but WITHOUT ANY WARRANTY; without even the implied warranty of
X * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
X * GNU General Public License for more details.
X *
X * You should have received a copy of the GNU General Public License
X * along with this program; if not, write to the Free Software
X * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X */
X#include "gem-guts.h"
X
XWORD rsrc_saddr(WORD re_stype, WORD re_sindex, LONG re_saddr)
X{
X WORD *a_tmp = int_in;
X *a_tmp++ = re_stype;
X *a_tmp = re_sindex;
X addr_in[0] = re_saddr;
X CONTROL(113,2,1,1,0);
X AES_CALL();
X return int_out[0];
X}
SHAR_EOF
echo "File aes_113.c is complete"
chmod 0644 aes_113.c || echo "restore of aes_113.c fails"
echo "x - extracting aes_114.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > aes_114.c &&
X/*
X * GEM library for GNU CC on Atari ST
X * Copyright (C) 1989 stefan brueck (sb)
X *
X * EMail: roeder@sbsvax.uucp
X *
X * This source is free software; you can redistribute it and/or modify
X * it under the terms of the GNU General Public License as published by
X * the Free Software Foundation; either version 1, or (at your option)
X * any later version.
X *
X * This source is distributed in the hope that it will be useful,
X * but WITHOUT ANY WARRANTY; without even the implied warranty of
X * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
X * GNU General Public License for more details.
X *
X * You should have received a copy of the GNU General Public License
X * along with this program; if not, write to the Free Software
X * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X */
X#include "gem-guts.h"
X
XWORD rsrc_obfix(OBJECT *re_otree, WORD re_oobject)
X{
X addr_in[0] = (LONG) re_otree;
X int_in[0] = re_oobject;
X CONTROL(114,1,1,1,0);
X AES_CALL();
X return int_out[0];
X}
SHAR_EOF
chmod 0644 aes_114.c || echo "restore of aes_114.c fails"
echo "x - extracting aes_12.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > aes_12.c &&
X/*
X * GEM library for GNU CC on Atari ST
X * Copyright (C) 1989 stefan brueck (sb)
X *
X * EMail: roeder@sbsvax.uucp
X *
X * This source is free software; you can redistribute it and/or modify
X * it under the terms of the GNU General Public License as published by
X * the Free Software Foundation; either version 1, or (at your option)
X * any later version.
X *
X * This source is distributed in the hope that it will be useful,
X * but WITHOUT ANY WARRANTY; without even the implied warranty of
X * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
X * GNU General Public License for more details.
X *
X * You should have received a copy of the GNU General Public License
X * along with this program; if not, write to the Free Software
X * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X */
X#include "gem-guts.h"
X
XWORD appl_write(WORD ap_wid, WORD ap_wlength, char *ap_wbuff)
X{
X WORD *a_tmp = int_in;
X *a_tmp++ = ap_wid;
X *a_tmp = ap_wlength;
X addr_in[0]= (LONG) ap_wbuff;
X CONTROL(12,2,1,1,0);
X AES_CALL();
X return int_out[0];
X}
SHAR_EOF
chmod 0644 aes_12.c || echo "restore of aes_12.c fails"
echo "x - extracting aes_120.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > aes_120.c &&
X/*
X * GEM library for GNU CC on Atari ST
X * Copyright (C) 1989 stefan brueck (sb)
X *
X * EMail: roeder@sbsvax.uucp
X *
X * This source is free software; you can redistribute it and/or modify
X * it under the terms of the GNU General Public License as published by
X * the Free Software Foundation; either version 1, or (at your option)
X * any later version.
X *
X * This source is distributed in the hope that it will be useful,
X * but WITHOUT ANY WARRANTY; without even the implied warranty of
X * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
X * GNU General Public License for more details.
X *
X * You should have received a copy of the GNU General Public License
X * along with this program; if not, write to the Free Software
X * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X */
X#include "gem-guts.h"
X
XWORD shel_read(char *sh_rpcmd, char *sh_rptail)
X{
X LONG *a_tmp = addr_in;
X *a_tmp++ = (LONG) sh_rpcmd;
X *a_tmp = (LONG) sh_rptail;
X CONTROL(120,0,1,2,0);
X AES_CALL();
X return int_out[0];
X}
SHAR_EOF
chmod 0644 aes_120.c || echo "restore of aes_120.c fails"
echo "x - extracting aes_121.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > aes_121.c &&
X/*
X * GEM library for GNU CC on Atari ST
X * Copyright (C) 1989 stefan brueck (sb)
X *
X * EMail: roeder@sbsvax.uucp
X *
X * This source is free software; you can redistribute it and/or modify
X * it under the terms of the GNU General Public License as published by
X * the Free Software Foundation; either version 1, or (at your option)
X * any later version.
X *
X * This source is distributed in the hope that it will be useful,
X * but WITHOUT ANY WARRANTY; without even the implied warranty of
X * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
X * GNU General Public License for more details.
X *
X * You should have received a copy of the GNU General Public License
X * along with this program; if not, write to the Free Software
X * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X */
X#include "gem-guts.h"
X
XWORD shel_write(WORD sh_wdoex, WORD sh_wisgr, WORD sh_wiscr, char *sh_wpcmd, char *sh_wptail)
X{
X WORD *a_tmp = int_in;
X LONG *b_tmp = addr_in;
X *a_tmp++ = sh_wdoex;
X *a_tmp++ = sh_wisgr;
X *a_tmp = sh_wiscr;
X *b_tmp++ = (LONG) sh_wpcmd;
X *b_tmp = (LONG) sh_wptail;
X CONTROL(121,3,1,2,0);
X AES_CALL();
X return int_out[0];
X}
X
SHAR_EOF
chmod 0644 aes_121.c || echo "restore of aes_121.c fails"
echo "x - extracting aes_122.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > aes_122.c &&
X/*
X * GEM library for GNU CC on Atari ST
X * Copyright (C) 1989 stefan brueck (sb)
X *
X * EMail: roeder@sbsvax.uucp
X *
X * This source is free software; you can redistribute it and/or modify
X * it under the terms of the GNU General Public License as published by
X * the Free Software Foundation; either version 1, or (at your option)
X * any later version.
X *
X * This source is distributed in the hope that it will be useful,
X * but WITHOUT ANY WARRANTY; without even the implied warranty of
X * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
X * GNU General Public License for more details.
X *
X * You should have received a copy of the GNU General Public License
X * along with this program; if not, write to the Free Software
X * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X */
X#include "gem-guts.h"
X
XWORD shel_get(char *sh_gaddr, WORD sh_glen)
X{
X addr_in[0] = (LONG) sh_gaddr;
X int_in[0] = sh_glen;
X CONTROL(122,1,1,1,0);
X AES_CALL();
X return int_out[0];
X}
SHAR_EOF
chmod 0644 aes_122.c || echo "restore of aes_122.c fails"
echo "x - extracting aes_123.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > aes_123.c &&
X/*
X * GEM library for GNU CC on Atari ST
X * Copyright (C) 1989 stefan brueck (sb)
X *
X * EMail: roeder@sbsvax.uucp
X *
X * This source is free software; you can redistribute it and/or modify
X * it under the terms of the GNU General Public License as published by
X * the Free Software Foundation; either version 1, or (at your option)
X * any later version.
X *
X * This source is distributed in the hope that it will be useful,
X * but WITHOUT ANY WARRANTY; without even the implied warranty of
X * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
X * GNU General Public License for more details.
X *
X * You should have received a copy of the GNU General Public License
X * along with this program; if not, write to the Free Software
X * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X */
X#include "gem-guts.h"
X
XWORD shel_put(char *sh_paddr, WORD sh_plen)
X{
X addr_in[0] = (LONG) sh_paddr;
X int_in[0] = sh_plen;
X CONTROL(123,1,1,1,0);
X AES_CALL();
X return int_out[0];
X}
SHAR_EOF
chmod 0644 aes_123.c || echo "restore of aes_123.c fails"
echo "x - extracting aes_124.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > aes_124.c &&
X/*
X * GEM library for GNU CC on Atari ST
X * Copyright (C) 1989 stefan brueck (sb)
X *
X * EMail: roeder@sbsvax.uucp
X *
X * This source is free software; you can redistribute it and/or modify
X * it under the terms of the GNU General Public License as published by
X * the Free Software Foundation; either version 1, or (at your option)
X * any later version.
X *
X * This source is distributed in the hope that it will be useful,
X * but WITHOUT ANY WARRANTY; without even the implied warranty of
X * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
X * GNU General Public License for more details.
X *
X * You should have received a copy of the GNU General Public License
X * along with this program; if not, write to the Free Software
X * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X */
X#include "gem-guts.h"
X
XWORD shel_find(char *sh_fpbuff)
X{
X addr_in[0] = (LONG) sh_fpbuff;
X CONTROL(124,0,1,1,0);
X AES_CALL();
X return int_out[0];
X}
SHAR_EOF
chmod 0644 aes_124.c || echo "restore of aes_124.c fails"
echo "x - extracting aes_125.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > aes_125.c &&
X/*
X * GEM library for GNU CC on Atari ST
X * Copyright (C) 1989 stefan brueck (sb)
X *
X * EMail: roeder@sbsvax.uucp
X *
X * This source is free software; you can redistribute it and/or modify
X * it under the terms of the GNU General Public License as published by
X * the Free Software Foundation; either version 1, or (at your option)
X * any later version.
X *
X * This source is distributed in the hope that it will be useful,
X * but WITHOUT ANY WARRANTY; without even the implied warranty of
X * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
X * GNU General Public License for more details.
X *
X * You should have received a copy of the GNU General Public License
X * along with this program; if not, write to the Free Software
X * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X */
X#include "gem-guts.h"
X
XWORD shel_envrn(char *sh_epvalue, char *sh_eparm)
X{
X LONG *a_tmp = addr_in;
X *a_tmp++ = (LONG) sh_epvalue;
X *a_tmp = (LONG) sh_eparm;
X CONTROL(125,0,1,2,0);
X AES_CALL();
X return int_out[0];
X}
SHAR_EOF
chmod 0644 aes_125.c || echo "restore of aes_125.c fails"
echo "x - extracting aes_13.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > aes_13.c &&
X/*
X * GEM library for GNU CC on Atari ST
X * Copyright (C) 1989 stefan brueck (sb)
X *
X * EMail: roeder@sbsvax.uucp
X *
X * This source is free software; you can redistribute it and/or modify
X * it under the terms of the GNU General Public License as published by
X * the Free Software Foundation; either version 1, or (at your option)
X * any later version.
X *
X * This source is distributed in the hope that it will be useful,
X * but WITHOUT ANY WARRANTY; without even the implied warranty of
X * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
X * GNU General Public License for more details.
X *
X * You should have received a copy of the GNU General Public License
X * along with this program; if not, write to the Free Software
X * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X */
X#include "gem-guts.h"
X
XWORD appl_find( char *ap_fname)
X{
X addr_in[0] = (LONG) ap_fname;
X CONTROL(13,0,1,1,0);
X AES_CALL();
X return int_out[0];
X}
SHAR_EOF
chmod 0644 aes_13.c || echo "restore of aes_13.c fails"
echo "x - extracting aes_14.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > aes_14.c &&
X/*
X * GEM library for GNU CC on Atari ST
X * Copyright (C) 1989 stefan brueck (sb)
X *
X * EMail: roeder@sbsvax.uucp
X *
X * This source is free software; you can redistribute it and/or modify
X * it under the terms of the GNU General Public License as published by
X * the Free Software Foundation; either version 1, or (at your option)
X * any later version.
X *
X * This source is distributed in the hope that it will be useful,
X * but WITHOUT ANY WARRANTY; without even the implied warranty of
X * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
X * GNU General Public License for more details.
X *
X * You should have received a copy of the GNU General Public License
X * along with this program; if not, write to the Free Software
X * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X */
X#include "gem-guts.h"
X
XWORD appl_tplay(char *ap_tpname, WORD ap_tpnum, WORD ap_tpscale)
X{
X WORD *a_tmp = int_in;
X *a_tmp++ = ap_tpnum;
X *a_tmp = ap_tpscale;
X addr_in[0] = (LONG) ap_tpname;
X CONTROL(14,2,1,1,0);
X AES_CALL();
X return int_out[0];
X}
SHAR_EOF
chmod 0644 aes_14.c || echo "restore of aes_14.c fails"
echo "x - extracting aes_15.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > aes_15.c &&
X/*
X * GEM library for GNU CC on Atari ST
X * Copyright (C) 1989 stefan brueck (sb)
X *
X * EMail: roeder@sbsvax.uucp
X *
X * This source is free software; you can redistribute it and/or modify
X * it under the terms of the GNU General Public License as published by
X * the Free Software Foundation; either version 1, or (at your option)
X * any later version.
X *
X * This source is distributed in the hope that it will be useful,
X * but WITHOUT ANY WARRANTY; without even the implied warranty of
X * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
X * GNU General Public License for more details.
X *
X * You should have received a copy of the GNU General Public License
X * along with this program; if not, write to the Free Software
X * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X */
X#include "gem-guts.h"
X
XWORD appl_trecord(char *ap_trmem, WORD ap_trcount)
X{
X int_in[0] = ap_trcount;
X addr_in[0] = (LONG) ap_trmem;
X CONTROL(15,1,1,1,0);
X AES_CALL();
X return int_out[0];
X}
SHAR_EOF
chmod 0644 aes_15.c || echo "restore of aes_15.c fails"
echo "x - extracting aes_19.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > aes_19.c &&
X/*
X * GEM library for GNU CC on Atari ST
X * Copyright (C) 1989 stefan brueck (sb)
X *
X * EMail: roeder@sbsvax.uucp
X *
X * This source is free software; you can redistribute it and/or modify
X * it under the terms of the GNU General Public License as published by
X * the Free Software Foundation; either version 1, or (at your option)
X * any later version.
X *
X * This source is distributed in the hope that it will be useful,
X * but WITHOUT ANY WARRANTY; without even the implied warranty of
X * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
X * GNU General Public License for more details.
X *
X * You should have received a copy of the GNU General Public License
X * along with this program; if not, write to the Free Software
X * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X */
X#include "gem-guts.h"
X
XWORD appl_exit()
X{
X CONTROL(19,0,1,0,0);
X AES_CALL();
X return int_out[0];
X}
SHAR_EOF
chmod 0644 aes_19.c || echo "restore of aes_19.c fails"
echo "x - extracting aes_20.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > aes_20.c &&
X/*
X * GEM library for GNU CC on Atari ST
X * Copyright (C) 1989 stefan brueck (sb)
X *
X * EMail: roeder@sbsvax.uucp
X *
X * This source is free software; you can redistribute it and/or modify
X * it under the terms of the GNU General Public License as published by
X * the Free Software Foundation; either version 1, or (at your option)
X * any later version.
X *
X * This source is distributed in the hope that it will be useful,
X * but WITHOUT ANY WARRANTY; without even the implied warranty of
X * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
X * GNU General Public License for more details.
X *
X * You should have received a copy of the GNU General Public License
X * along with this program; if not, write to the Free Software
X * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X */
X#include "gem-guts.h"
X
XWORD evnt_keybd()
X{
X CONTROL(20,0,1,0,0);
X AES_CALL();
X return int_out[0];
X}
SHAR_EOF
chmod 0644 aes_20.c || echo "restore of aes_20.c fails"
echo "x - extracting aes_21.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > aes_21.c &&
X/*
X * GEM library for GNU CC on Atari ST
X * Copyright (C) 1989 stefan brueck (sb)
X *
X * EMail: roeder@sbsvax.uucp
X *
X * This source is free software; you can redistribute it and/or modify
X * it under the terms of the GNU General Public License as published by
X * the Free Software Foundation; either version 1, or (at your option)
X * any later version.
X *
X * This source is distributed in the hope that it will be useful,
X * but WITHOUT ANY WARRANTY; without even the implied warranty of
X * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
X * GNU General Public License for more details.
X *
X * You should have received a copy of the GNU General Public License
X * along with this program; if not, write to the Free Software
X * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X */
X#include "gem-guts.h"
X
XWORD evnt_button(WORD ev_bclicks, WORD ev_bmask, WORD ev_bstate, WORD *ev_bmx, WORD *ev_bmy, WORD *ev_bbutton, WORD *ev_bkstate)
X{
X WORD *a_tmp = int_in;
X *a_tmp++ = ev_bclicks;
X *a_tmp++ = ev_bmask;
X *a_tmp = ev_bstate;
X CONTROL(21,3,5,0,0);
X AES_CALL();
X a_tmp = int_out;
X *ev_bmx = *++a_tmp;
X *ev_bmy = *++a_tmp;
X *ev_bbutton = *++a_tmp;
X *ev_bkstate = *++a_tmp;
X return int_out[0];
X}
SHAR_EOF
chmod 0644 aes_21.c || echo "restore of aes_21.c fails"
echo "x - extracting aes_22.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > aes_22.c &&
X/*
X * GEM library for GNU CC on Atari ST
X * Copyright (C) 1989 stefan brueck (sb)
X *
X * EMail: roeder@sbsvax.uucp
X *
X * This source is free software; you can redistribute it and/or modify
X * it under the terms of the GNU General Public License as published by
X * the Free Software Foundation; either version 1, or (at your option)
X * any later version.
X *
X * This source is distributed in the hope that it will be useful,
X * but WITHOUT ANY WARRANTY; without even the implied warranty of
X * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
X * GNU General Public License for more details.
X *
X * You should have received a copy of the GNU General Public License
X * along with this program; if not, write to the Free Software
X * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X */
X#include "gem-guts.h"
X
XWORD evnt_mouse(WORD ev_moflags, WORD ev_mox, WORD ev_moy, WORD ev_mowidth, WORD ev_moheight, WORD *ev_momx, WORD *ev_momy, WORD *ev_mobutton, WORD *ev_mokstate)
X{
X WORD *a_tmp = int_in;
X *a_tmp++ = ev_moflags;
X *a_tmp++ = ev_mox;
X *a_tmp++ = ev_moy;
X *a_tmp++ = ev_mowidth;
X *a_tmp = ev_moheight;
X CONTROL(22,5,5,0,0);
X AES_CALL();
X a_tmp = int_out;
X *ev_momx = *++a_tmp;
X *ev_momy = *++a_tmp;
X *ev_mobutton = *++a_tmp;
X *ev_mokstate = *++a_tmp;
X return int_out[0];
X}
X
SHAR_EOF
chmod 0644 aes_22.c || echo "restore of aes_22.c fails"
echo "x - extracting aes_23.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > aes_23.c &&
X/*
X * GEM library for GNU CC on Atari ST
X * Copyright (C) 1989 stefan brueck (sb)
X *
X * EMail: roeder@sbsvax.uucp
X *
X * This source is free software; you can redistribute it and/or modify
X * it under the terms of the GNU General Public License as published by
X * the Free Software Foundation; either version 1, or (at your option)
X * any later version.
X *
X * This source is distributed in the hope that it will be useful,
X * but WITHOUT ANY WARRANTY; without even the implied warranty of
X * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
X * GNU General Public License for more details.
X *
X * You should have received a copy of the GNU General Public License
X * along with this program; if not, write to the Free Software
X * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X */
X#include "gem-guts.h"
X
XWORD evnt_mesag(char *ev_mgpbuff)
X{
X addr_in[0] = (LONG) ev_mgpbuff;
X CONTROL(23,0,1,1,0);
X AES_CALL();
X return int_out[0];
X}
X
SHAR_EOF
chmod 0644 aes_23.c || echo "restore of aes_23.c fails"
echo "x - extracting aes_24.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > aes_24.c &&
X/*
X * GEM library for GNU CC on Atari ST
X * Copyright (C) 1989 stefan brueck (sb)
X *
X * EMail: roeder@sbsvax.uucp
X *
X * This source is free software; you can redistribute it and/or modify
X * it under the terms of the GNU General Public License as published by
X * the Free Software Foundation; either version 1, or (at your option)
X * any later version.
X *
X * This source is distributed in the hope that it will be useful,
X * but WITHOUT ANY WARRANTY; without even the implied warranty of
X * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
X * GNU General Public License for more details.
X *
X * You should have received a copy of the GNU General Public License
X * along with this program; if not, write to the Free Software
X * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X */
X#include "gem-guts.h"
X
XWORD evnt_timer(unsigned WORD ev_tlocount, unsigned WORD ev_thicount)
X{
X WORD *a_tmp = int_in;
X *a_tmp++ = ev_tlocount;
X *a_tmp = ev_thicount;
X CONTROL(24,2,1,0,0);
X AES_CALL();
X return int_out[0];
X}
X
SHAR_EOF
chmod 0644 aes_24.c || echo "restore of aes_24.c fails"
echo "x - extracting aes_25.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > aes_25.c &&
X/*
X * GEM library for GNU CC on Atari ST
X * Copyright (C) 1989 stefan brueck (sb)
X *
X * EMail: roeder@sbsvax.uucp
X *
X * This source is free software; you can redistribute it and/or modify
X * it under the terms of the GNU General Public License as published by
X * the Free Software Foundation; either version 1, or (at your option)
X * any later version.
X *
X * This source is distributed in the hope that it will be useful,
X * but WITHOUT ANY WARRANTY; without even the implied warranty of
X * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
X * GNU General Public License for more details.
X *
X * You should have received a copy of the GNU General Public License
X * along with this program; if not, write to the Free Software
X * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X */
X#include "gem-guts.h"
X
XWORD evnt_multi( WORD a, WORD b, WORD c, WORD d, WORD e, WORD f, WORD g, WORD h, WORD i, WORD j, WORD k, WORD l, WORD m, WORD n, char *buff, WORD o, WORD p, WORD *q, WORD *r, WORD *s, WORD *t, WORD *u, WORD *v )
X{
X WORD *tmp = int_in;
X *tmp++ = a; *tmp++ = b; *tmp++ = c; *tmp++ = d; *tmp++ = e; *tmp++ = f;
X *tmp++ = g; *tmp++ = h; *tmp++ = i; *tmp++ = j; *tmp++ = k; *tmp++ = l;
X *tmp++ = m; *tmp++ = n; addr_in[0] = (LONG) buff; *tmp++ = o; *tmp = p;
X CONTROL(25,16,7,1,0);
X AES_CALL();
X tmp = int_out;
X *q = *++tmp; *r = *++tmp; *s = *++tmp; *t = *++tmp; *u = *++tmp; *v = *++tmp;
X return int_out[0];
X}
SHAR_EOF
chmod 0644 aes_25.c || echo "restore of aes_25.c fails"
echo "x - extracting aes_26.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > aes_26.c &&
X/*
X * GEM library for GNU CC on Atari ST
X * Copyright (C) 1989 stefan brueck (sb)
X *
X * EMail: roeder@sbsvax.uucp
X *
X * This source is free software; you can redistribute it and/or modify
X * it under the terms of the GNU General Public License as published by
X * the Free Software Foundation; either version 1, or (at your option)
X * any later version.
X *
X * This source is distributed in the hope that it will be useful,
X * but WITHOUT ANY WARRANTY; without even the implied warranty of
X * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
X * GNU General Public License for more details.
X *
X * You should have received a copy of the GNU General Public License
X * along with this program; if not, write to the Free Software
X * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X */
X#include "gem-guts.h"
X
XWORD evnt_dclick(WORD ev_dnew, WORD ev_dgetset)
X{
X WORD *a_tmp = int_in;
X *a_tmp++ = ev_dnew;
X *a_tmp = ev_dgetset;
X CONTROL(26,2,1,0,0);
X AES_CALL();
X return int_out[0];
X}
SHAR_EOF
chmod 0644 aes_26.c || echo "restore of aes_26.c fails"
echo "x - extracting aes_30.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > aes_30.c &&
X/*
X * GEM library for GNU CC on Atari ST
X * Copyright (C) 1989 stefan brueck (sb)
X *
X * EMail: roeder@sbsvax.uucp
X *
X * This source is free software; you can redistribute it and/or modify
X * it under the terms of the GNU General Public License as published by
X * the Free Software Foundation; either version 1, or (at your option)
X * any later version.
X *
X * This source is distributed in the hope that it will be useful,
X * but WITHOUT ANY WARRANTY; without even the implied warranty of
X * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
X * GNU General Public License for more details.
X *
X * You should have received a copy of the GNU General Public License
X * along with this program; if not, write to the Free Software
X * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X */
X#include "gem-guts.h"
X
XWORD menu_bar( OBJECT *me_btree, WORD me_bshow)
X{
X addr_in[0] = (LONG) me_btree;
X int_in[0] = me_bshow;
X CONTROL(30,1,1,1,0);
X AES_CALL();
X return int_out[0];
X}
SHAR_EOF
chmod 0644 aes_30.c || echo "restore of aes_30.c fails"
echo "x - extracting aes_31.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > aes_31.c &&
X/*
X * GEM library for GNU CC on Atari ST
X * Copyright (C) 1989 stefan brueck (sb)
X *
X * EMail: roeder@sbsvax.uucp
X *
X * This source is free software; you can redistribute it and/or modify
X * it under the terms of the GNU General Public License as published by
X * the Free Software Foundation; either version 1, or (at your option)
X * any later version.
X *
X * This source is distributed in the hope that it will be useful,
X * but WITHOUT ANY WARRANTY; without even the implied warranty of
X * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
X * GNU General Public License for more details.
X *
X * You should have received a copy of the GNU General Public License
X * along with this program; if not, write to the Free Software
X * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X */
X#include "gem-guts.h"
X
XWORD menu_icheck( OBJECT *me_ctree, WORD me_citem, WORD me_ccheck)
X{
X WORD *a_tmp = int_in;
X *a_tmp++ = me_citem;
X *a_tmp = me_ccheck;
X addr_in[0] = (LONG) me_ctree;
X CONTROL(31,2,1,1,0);
X AES_CALL();
X return int_out[0];
X}
SHAR_EOF
chmod 0644 aes_31.c || echo "restore of aes_31.c fails"
echo "x - extracting aes_32.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > aes_32.c &&
X/*
X * GEM library for GNU CC on Atari ST
X * Copyright (C) 1989 stefan brueck (sb)
X *
X * EMail: roeder@sbsvax.uucp
X *
X * This source is free software; you can redistribute it and/or modify
X * it under the terms of the GNU General Public License as published by
X * the Free Software Foundation; either version 1, or (at your option)
X * any later version.
X *
X * This source is distributed in the hope that it will be useful,
X * but WITHOUT ANY WARRANTY; without even the implied warranty of
X * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
X * GNU General Public License for more details.
X *
X * You should have received a copy of the GNU General Public License
X * along with this program; if not, write to the Free Software
X * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X */
X#include "gem-guts.h"
X
XWORD menu_ienable( OBJECT *me_etree, WORD me_eitem, WORD me_eenable)
X{
X WORD *a_tmp = int_in;
X *a_tmp++ = me_eitem;
X *a_tmp = me_eenable;
X addr_in[0] = (LONG) me_etree;
X CONTROL(32,2,1,1,0);
X AES_CALL();
X return int_out[0];
X}
X
SHAR_EOF
chmod 0644 aes_32.c || echo "restore of aes_32.c fails"
echo "x - extracting aes_33.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > aes_33.c &&
X/*
X * GEM library for GNU CC on Atari ST
X * Copyright (C) 1989 stefan brueck (sb)
X *
X * EMail: roeder@sbsvax.uucp
X *
X * This source is free software; you can redistribute it and/or modify
X * it under the terms of the GNU General Public License as published by
X * the Free Software Foundation; either version 1, or (at your option)
X * any later version.
X *
X * This source is distributed in the hope that it will be useful,
X * but WITHOUT ANY WARRANTY; without even the implied warranty of
X * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
X * GNU General Public License for more details.
X *
X * You should have received a copy of the GNU General Public License
X * along with this program; if not, write to the Free Software
X * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X */
X#include "gem-guts.h"
X
XWORD menu_tnormal( OBJECT *me_ntree, WORD me_ntitle, WORD me_nnormal)
X{
X WORD *a_tmp = int_in;
X *a_tmp++ = me_ntitle;
X *a_tmp = me_nnormal;
X addr_in[0] = (LONG) me_ntree;
X CONTROL(33,2,1,1,0);
X AES_CALL();
X return int_out[0];
X}
X
SHAR_EOF
chmod 0644 aes_33.c || echo "restore of aes_33.c fails"
echo "x - extracting aes_34.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > aes_34.c &&
X/*
X * GEM library for GNU CC on Atari ST
X * Copyright (C) 1989 stefan brueck (sb)
X *
X * EMail: roeder@sbsvax.uucp
X *
X * This source is free software; you can redistribute it and/or modify
X * it under the terms of the GNU General Public License as published by
X * the Free Software Foundation; either version 1, or (at your option)
X * any later version.
X *
X * This source is distributed in the hope that it will be useful,
X * but WITHOUT ANY WARRANTY; without even the implied warranty of
X * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
X * GNU General Public License for more details.
X *
X * You should have received a copy of the GNU General Public License
X * along with this program; if not, write to the Free Software
X * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X */
X#include "gem-guts.h"
X
XWORD menu_text( OBJECT *me_ttree, WORD me_titem, char *me_ttext)
X{
X addr_in[0] = (LONG) me_ttree;
X addr_in[1] = (LONG) me_ttext;
X int_in[0] = me_titem;
X CONTROL(34,1,1,2,0);
X AES_CALL();
X return int_out[0];
X}
X
SHAR_EOF
chmod 0644 aes_34.c || echo "restore of aes_34.c fails"
echo "x - extracting aes_35.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > aes_35.c &&
X/*
X * GEM library for GNU CC on Atari ST
X * Copyright (C) 1989 stefan brueck (sb)
X *
X * EMail: roeder@sbsvax.uucp
X *
X * This source is free software; you can redistribute it and/or modify
X * it under the terms of the GNU General Public License as published by
X * the Free Software Foundation; either version 1, or (at your option)
X * any later version.
X *
X * This source is distributed in the hope that it will be useful,
X * but WITHOUT ANY WARRANTY; without even the implied warranty of
X * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
X * GNU General Public License for more details.
X *
X * You should have received a copy of the GNU General Public License
X * along with this program; if not, write to the Free Software
X * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X */
X#include "gem-guts.h"
X
XWORD menu_register( WORD me_rapid, char *me_rpstring)
X{
X int_in[0] = me_rapid;
X addr_in[0] = (LONG) me_rpstring;
X CONTROL(35,1,1,1,0);
X AES_CALL();
X return int_out[0];
X}
X
SHAR_EOF
chmod 0644 aes_35.c || echo "restore of aes_35.c fails"
echo "x - extracting aes_40.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > aes_40.c &&
X/*
X * GEM library for GNU CC on Atari ST
X * Copyright (C) 1989 stefan brueck (sb)
X *
X * EMail: roeder@sbsvax.uucp
X *
X * This source is free software; you can redistribute it and/or modify
X * it under the terms of the GNU General Public License as published by
X * the Free Software Foundation; either version 1, or (at your option)
X * any later version.
X *
X * This source is distributed in the hope that it will be useful,
X * but WITHOUT ANY WARRANTY; without even the implied warranty of
X * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
X * GNU General Public License for more details.
X *
X * You should have received a copy of the GNU General Public License
X * along with this program; if not, write to the Free Software
X * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X */
X#include "gem-guts.h"
X
XWORD objc_add( OBJECT *ob_atree, WORD ob_aparent, WORD ob_achild)
X{
X WORD *a_tmp = int_in;
X *a_tmp++ = ob_aparent;
X *a_tmp = ob_achild;
X addr_in[0] = (LONG) ob_atree;
X CONTROL(40,2,1,1,0);
X AES_CALL();
X return int_out[0];
X}
X
SHAR_EOF
chmod 0644 aes_40.c || echo "restore of aes_40.c fails"
echo "x - extracting aes_41.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > aes_41.c &&
X/*
X * GEM library for GNU CC on Atari ST
X * Copyright (C) 1989 stefan brueck (sb)
X *
X * EMail: roeder@sbsvax.uucp
X *
X * This source is free software; you can redistribute it and/or modify
X * it under the terms of the GNU General Public License as published by
X * the Free Software Foundation; either version 1, or (at your option)
X * any later version.
X *
X * This source is distributed in the hope that it will be useful,
X * but WITHOUT ANY WARRANTY; without even the implied warranty of
X * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
X * GNU General Public License for more details.
X *
X * You should have received a copy of the GNU General Public License
X * along with this program; if not, write to the Free Software
X * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X */
X#include "gem-guts.h"
X
XWORD objc_delete( OBJECT *ob_dltree, WORD ob_dlobject)
X{
X addr_in[0] = (LONG) ob_dltree;
X int_in[0] = ob_dlobject;
X CONTROL(41,1,1,1,0);
X AES_CALL();
X return int_out[0];
X}
X
X
SHAR_EOF
chmod 0644 aes_41.c || echo "restore of aes_41.c fails"
echo "x - extracting aes_42.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > aes_42.c &&
X/*
X * GEM library for GNU CC on Atari ST
X * Copyright (C) 1989 stefan brueck (sb)
X *
X * EMail: roeder@sbsvax.uucp
X *
X * This source is free software; you can redistribute it and/or modify
X * it under the terms of the GNU General Public License as published by
X * the Free Software Foundation; either version 1, or (at your option)
X * any later version.
X *
X * This source is distributed in the hope that it will be useful,
X * but WITHOUT ANY WARRANTY; without even the implied warranty of
X * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
X * GNU General Public License for more details.
X *
X * You should have received a copy of the GNU General Public License
X * along with this program; if not, write to the Free Software
X * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X */
X#include "gem-guts.h"
X
XWORD objc_draw( OBJECT *ob_drtree, WORD ob_drstartob, WORD ob_drdepth, WORD ob_drxclip, WORD ob_dryclip, WORD ob_drwclip, WORD ob_drhclip)
X{
X WORD *a_tmp = int_in;
X *a_tmp++ = ob_drstartob;
X *a_tmp++ = ob_drdepth;
X *a_tmp++ = ob_drxclip;
X *a_tmp++ = ob_dryclip;
X *a_tmp++ = ob_drwclip;
X *a_tmp = ob_drhclip;
X addr_in[0] = (LONG) ob_drtree;
X CONTROL(42,6,1,1,0);
X AES_CALL();
X return int_out[0];
X}
X
X
SHAR_EOF
chmod 0644 aes_42.c || echo "restore of aes_42.c fails"
echo "x - extracting aes_43.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > aes_43.c &&
X/*
X * GEM library for GNU CC on Atari ST
X * Copyright (C) 1989 stefan brueck (sb)
X *
X * EMail: roeder@sbsvax.uucp
X *
X * This source is free software; you can redistribute it and/or modify
X * it under the terms of the GNU General Public License as published by
X * the Free Software Foundation; either version 1, or (at your option)
X * any later version.
X *
X * This source is distributed in the hope that it will be useful,
X * but WITHOUT ANY WARRANTY; without even the implied warranty of
X * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
X * GNU General Public License for more details.
X *
X * You should have received a copy of the GNU General Public License
X * along with this program; if not, write to the Free Software
X * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X */
X#include "gem-guts.h"
X
XWORD objc_find( OBJECT *ob_ftree, WORD ob_fstartob, WORD ob_fdepth, WORD ob_fmx, WORD ob_fmy)
X{
X WORD *a_tmp = int_in;
X *a_tmp++ = ob_fstartob;
X *a_tmp++ = ob_fdepth;
X *a_tmp++ = ob_fmx;
X *a_tmp = ob_fmy;
X addr_in[0] = (LONG) ob_ftree;
X CONTROL(43,4,1,1,0);
X AES_CALL();
X return int_out[0];
X}
X
X
X
SHAR_EOF
chmod 0644 aes_43.c || echo "restore of aes_43.c fails"
echo "x - extracting aes_44.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > aes_44.c &&
X/*
X * GEM library for GNU CC on Atari ST
X * Copyright (C) 1989 stefan brueck (sb)
X *
X * EMail: roeder@sbsvax.uucp
X *
X * This source is free software; you can redistribute it and/or modify
X * it under the terms of the GNU General Public License as published by
X * the Free Software Foundation; either version 1, or (at your option)
X * any later version.
X *
X * This source is distributed in the hope that it will be useful,
X * but WITHOUT ANY WARRANTY; without even the implied warranty of
X * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
X * GNU General Public License for more details.
X *
X * You should have received a copy of the GNU General Public License
X * along with this program; if not, write to the Free Software
X * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X */
X#include "gem-guts.h"
X
XWORD objc_offset(OBJECT *ob_oftree, WORD ob_ofobject, WORD *ob_ofxoff, WORD *ob_ofyoff)
X{
X WORD *a_tmp = int_out;
X addr_in[0] = (LONG) ob_oftree;
X int_in[0] = ob_ofobject;
X CONTROL(44,1,3,1,0);
X *ob_ofxoff = *++a_tmp;
X *ob_ofyoff = *++a_tmp;
X return int_out[0];
X}
SHAR_EOF
chmod 0644 aes_44.c || echo "restore of aes_44.c fails"
echo "x - extracting aes_45.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > aes_45.c &&
X/*
X * GEM library for GNU CC on Atari ST
X * Copyright (C) 1989 stefan brueck (sb)
X *
X * EMail: roeder@sbsvax.uucp
X *
X * This source is free software; you can redistribute it and/or modify
X * it under the terms of the GNU General Public License as published by
X * the Free Software Foundation; either version 1, or (at your option)
X * any later version.
X *
X * This source is distributed in the hope that it will be useful,
X * but WITHOUT ANY WARRANTY; without even the implied warranty of
X * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
X * GNU General Public License for more details.
X *
X * You should have received a copy of the GNU General Public License
X * along with this program; if not, write to the Free Software
X * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X */
X#include "gem-guts.h"
X
XWORD objc_order( OBJECT *ob_ortree, WORD ob_orobject, WORD ob_ornewpos)
X{
X WORD *a_tmp = int_in;
X *a_tmp++ = ob_orobject;
X *a_tmp = ob_ornewpos;
X addr_in[0] = (LONG) ob_ortree;
X CONTROL(45,2,1,1,0);
X AES_CALL();
X return int_out[0];
X}
X
X
X
SHAR_EOF
chmod 0644 aes_45.c || echo "restore of aes_45.c fails"
echo "x - extracting aes_46.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > aes_46.c &&
X/*
X * GEM library for GNU CC on Atari ST
X * Copyright (C) 1989 stefan brueck (sb)
X *
X * EMail: roeder@sbsvax.uucp
X *
X * This source is free software; you can redistribute it and/or modify
X * it under the terms of the GNU General Public License as published by
X * the Free Software Foundation; either version 1, or (at your option)
X * any later version.
X *
X * This source is distributed in the hope that it will be useful,
X * but WITHOUT ANY WARRANTY; without even the implied warranty of
X * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
X * GNU General Public License for more details.
X *
X * You should have received a copy of the GNU General Public License
X * along with this program; if not, write to the Free Software
X * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X */
X#include "gem-guts.h"
X
XWORD objc_edit( OBJECT *ob_edtree, WORD ob_edobject, WORD ob_edchar, WORD *ob_edidx, WORD ob_edkind)
X{
X WORD *a_tmp = int_in;
X *a_tmp++ = ob_edobject;
X *a_tmp++ = ob_edchar;
X *a_tmp++ = *ob_edidx;
X *a_tmp = ob_edkind;
X addr_in[0] = (LONG) ob_edtree;
X CONTROL(46,4,2,1,0);
X AES_CALL();
X *ob_edidx = int_out[1];
X return int_out[0];
X}
X
X
X
SHAR_EOF
chmod 0644 aes_46.c || echo "restore of aes_46.c fails"
echo "x - extracting aes_47.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > aes_47.c &&
X/*
X * GEM library for GNU CC on Atari ST
X * Copyright (C) 1989 stefan brueck (sb)
X *
X * EMail: roeder@sbsvax.uucp
X *
X * This source is free software; you can redistribute it and/or modify
X * it under the terms of the GNU General Public License as published by
X * the Free Software Foundation; either version 1, or (at your option)
X * any later version.
X *
X * This source is distributed in the hope that it will be useful,
X * but WITHOUT ANY WARRANTY; without even the implied warranty of
X * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
X * GNU General Public License for more details.
X *
X * You should have received a copy of the GNU General Public License
X * along with this program; if not, write to the Free Software
X * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X */
X#include "gem-guts.h"
X
XWORD objc_change( OBJECT *ob_ctree, WORD ob_cobject, WORD ob_cresvd, WORD ob_cxclip, WORD ob_cyclip, WORD ob_cwclip, WORD ob_chclip, WORD ob_cnewstate, WORD ob_credraw)
X{
X WORD *a_tmp = int_in;
X *a_tmp++ = ob_cobject;
X *a_tmp++ = ob_cresvd;
X *a_tmp++ = ob_cxclip;
X *a_tmp++ = ob_cyclip;
X *a_tmp++ = ob_cwclip;
X *a_tmp++ = ob_chclip;
X *a_tmp++ = ob_cnewstate;
X *a_tmp = ob_credraw;
X addr_in[0] = (LONG) ob_ctree;
X CONTROL(43,4,1,1,0);
X AES_CALL();
X return int_out[0];
X}
X
X
X
SHAR_EOF
chmod 0644 aes_47.c || echo "restore of aes_47.c fails"
echo "x - extracting aes_50.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > aes_50.c &&
X/*
X * GEM library for GNU CC on Atari ST
X * Copyright (C) 1989 stefan brueck (sb)
X *
X * EMail: roeder@sbsvax.uucp
X *
X * This source is free software; you can redistribute it and/or modify
X * it under the terms of the GNU General Public License as published by
X * the Free Software Foundation; either version 1, or (at your option)
X * any later version.
X *
X * This source is distributed in the hope that it will be useful,
X * but WITHOUT ANY WARRANTY; without even the implied warranty of
X * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
X * GNU General Public License for more details.
X *
X * You should have received a copy of the GNU General Public License
X * along with this program; if not, write to the Free Software
X * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
X */
X#include "gem-guts.h"
X
XWORD form_do(OBJECT *fo_dotree, WORD fo_dostartob)
X{
X addr_in[0] = (LONG) fo_dotree;
X int_in[0] = fo_dostartob;
X CONTROL(50,1,1,1,0);
X AES_CALL();
X return int_out[0];
X}
SHAR_EOF
chmod 0644 aes_50.c || echo "restore of aes_50.c fails"
echo "x - extracting aes_51.c (Text)"
sed 's/^X//' << 'SHAR_EOF' > aes_51.c &&
X/*
X * GEM library for GNU CC on Atari ST
X * Copyright (C) 1989 stefan brueck (sb)
X *
X * EMail: roeder@sbsvax.uucp
X *
X * This source is free software; you can redistribute it and/or modify
X * it under the terms of the GNU General Public License as published by
X * the Free Software Foundation; either version 1, or (at your option)
X * any later version.
X *
X * This source is distributed in the hope that it will be useful,
X * but WITHOUT ANY WARRANTY; without even the implied warranty of
X * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
X * GNU General Public License for more details.
X *
X * You should have received a copy of the GNU General Public License
X * along with this program; if not, write to the Free Software
SHAR_EOF
echo "End of part 2"
echo "File aes_51.c is continued in part 3"
echo "3" > s2_seq_.tmp
exit 0