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