=========================================================================

INFO-ATARI16 Digest         Mon, 30 Apr 90       Volume 90 : Issue  495
 
Today's Topics:
                  Anyone installed GNU Emacs on ST?
                              IMG files
        Patches #1 and #2 for Sozobon C, release 1.2 (repost)
                  setting the color of points in GEM
                           Virus questions
----------------------------------------------------------------------
 
Date: 30 Apr 90 15:36:20 GMT
From: swrinde!zaphod.mps.ohio-state.edu!mips!wyse!vsi1!teda!ditka!rcb@ucsd.edu
 (Roy Bixler)
Subject: Anyone installed GNU Emacs on ST?
Message-ID: <24302@ditka.UUCP>
 
I am having a problem installing the TOS port GNU Emacs 18.55 which is found
on panarthea.  All that's described below happens when I attempt to 'dump'
the executable version by loading lisp files into it with temacs (the first
step.)
 
The first (minor) thing was that 'loadup.el' seemed to want filenames with
-'s (dashes), but the filenames in the distribution had _'s (underscores).
I fixed that and a similar quirk in the site-initialization file.
 
Now, after the site-initialization file has been loaded, the whole process
bombs with "End of file in parsing".  Has anyone had this problem before and
found a work-around?  (or even a 'word-around'?  erasing the problem in a
puff of logic ...)
 
Thanks!
 
Roy Bixler
ditka!rcb
 
------------------------------
 
Date: Mon, 30 Apr 90 15:39:26 BST
From: n-waters%NIMR.MRC.AC.UK@Forsythe.Stanford.EDU (Nick Waterson)
Subject: IMG files
Message-ID: <9004301439.AA04193@nimsn41.>
 
        It has been well documented on how .IMG files are constructed in
various magazines and listings on the net, however no one seems to explain
how they are set up in the ST whwn they are loaded.
 
eg. You have an IMG file 1000x1000 pixels you want to load into high res.
So you start decoding your first line and get to pixel 641, where does it go?
Presumably you set up another screen area further along in memory ie at
1000 lines hence (to allow for the 1000 vertical lines), and continue with the
remaining 320 pixels here. Is this true or am I totally up the wrong tree.
Then to scroll around the picture the same technique is used as for scrolling
long Degas pictures.
 
        All help gratefully recieved and summerised for the list.
 
                                thanks in advance,
 
                                        Nick.
 
 
------------------------------
 
Date: 30 Apr 90 17:42:08 GMT
From: ubc-cs!alberta!myrias!mj@beaver.cs.washington.edu  (Michal Jaegermann)
Subject: Patches #1 and #2 for Sozobon C, release 1.2 (repost)
Message-ID: <65729j2a@myrias.com>
 
About old fixes for Sozobon C.  For all of you who missed older
patches posting for version 1.2 here are context diffs which show
effect of patches #1 and #4 together on a released version of 'top'.
Feed this message to 'patch -l' (experience indicates).  At the bottom
you will find out also attached a contents of a patch number #2, for
'hcc'. 'jas' was not re-released in a version 1.2, but patch for 'jas'
(#0, I guess :-)) was reposted fairly recently.  Together with #3,
'hcc' once again, this would be like it.
 
        Happy hacking
        Michal Jaegermann
        Myrias Research Corporation
        Edmonton, Alberta, CANADA
        mj@myrias.COM
        ...
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
 
*** old\peep2.c
--- peep2.c
**************
*** 304,310
         */
        if ((op1 == MOVE) && (op2 == MOVE) && (i2->dst.amode == REG) &&
            opeq(&i1->dst, &i2->src) && ((i1->dst.amode & (INC|DEC)) == 0) &&
!           (i1->flags == i2->flags) && (i1->dst.amode != REG)) 
 
                freeop(&i1->dst);
                i1->dst = i2->dst;
--- 304,311 -----
         */
        if ((op1 == MOVE) && (op2 == MOVE) && (i2->dst.amode == REG) &&
            opeq(&i1->dst, &i2->src) && ((i1->dst.amode & (INC|DEC)) == 0) &&
!           (i1->flags == i2->flags) && (i1->dst.amode != REG) &&
!           !uses(i1, i2->dst.areg)) 
 
                freeop(&i1->dst);
                i1->dst = i2->dst;
**************
*** 684,691
                                DBG(printf("%d ", __LINE__))
                                return TRUE;
                        
!
!                       if (uses(i2, RM(dr1)))
                                goto end24;
 
                        if (i2->next == NULL)
--- 685,691 -----
                                DBG(printf("%d ", __LINE__))
                                return TRUE;
                        
!                       if (uses(i2, dr1))
                                goto end24;
 
                        if (i2->next == NULL)
**************
*** 733,739
                                return TRUE;
                        
 
!                       if (uses(i2, RM(dr1)))
                                goto end26;
 
                        if (i2->next == NULL)
--- 733,739 -----
                                return TRUE;
                        
 
!                       if (uses(i2, dr1))
                                goto end26;
 
                        if (i2->next == NULL)
**************
*** 781,787
                                return TRUE;
                        
 
!                       if (uses(i2, RM(dr1)))
                                goto end28;
 
                        if (i2->next == NULL)
--- 781,787 -----
                                return TRUE;
                        
 
!                       if (uses(i2, dr1))
                                goto end28;
 
                        if (i2->next == NULL)
*** old\peep3.c
--- peep3.c
**************
*** 296,302
            (i1->dst.amode == REG) && ISD(i1->dst.areg) &&
            (i3->src.amode == REG) && (i1->dst.areg == i3->src.areg) &&
            (i3->dst.amode == REG) && ISA(i3->dst.areg) &&
!           !sets(i3, RM(i3->src.areg))) 
 
                if ((i3->live & i3->src.areg) == 0) 
                        i1->dst.areg = i3->dst.areg;
--- 296,302 -----
            (i1->dst.amode == REG) && ISD(i1->dst.areg) &&
            (i3->src.amode == REG) && (i1->dst.areg == i3->src.areg) &&
            (i3->dst.amode == REG) && ISA(i3->dst.areg) &&
!           !uses(i2, i3->src.areg)) 
 
                if ((i3->live & i3->src.areg) == 0) 
                        i1->dst.areg = i3->dst.areg;
**************
*** 330,336
                    (i2->dst.areg == rm)) 
 
                        while (i3 != NULL) 
!                               if (sets(i3, RM(rm)))
                                        goto end7;
 
                                if (i3->src.amode==REGI && i3->src.areg==rn) 
--- 330,336 -----
                    (i2->dst.areg == rm)) 
 
                        while (i3 != NULL) 
!                               if (sets(i3, rm))
                                        goto end7;
 
                                if (i3->src.amode==REGI && i3->src.areg==rn) 
**************
*** 397,403
                    (i2->dst.areg == rm)) 
 
                        while (i3 != NULL) 
!                               if (sets(i3, RM(rm)))
                                        goto end9;
 
                                if (i3->src.amode==REGI && i3->src.areg==rn) 
--- 397,403 -----
                    (i2->dst.areg == rm)) 
 
                        while (i3 != NULL) 
!                               if (sets(i3, rm))
                                        goto end9;
 
                                if (i3->src.amode==REGI && i3->src.areg==rn) 
**************
*** 464,470
                    (i2->dst.areg == rm)) 
 
                        while (i3 != NULL) 
!                               if (sets(i3, RM(rm)))
                                        goto end11;
 
                                if (i3->src.amode==REGI && i3->src.areg==rn) 
--- 464,470 -----
                    (i2->dst.areg == rm)) 
 
                        while (i3 != NULL) 
!                               if (sets(i3, rm))
                                        goto end11;
 
                                if (i3->src.amode==REGI && i3->src.areg==rn) 
 
 
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
Date: Wed, 13 Dec 89 09:59:33 MST
From: uunet!dunike!onecom!hans (Johann Ruegg)
 
There is a bug in all versions of 'hcc' that can occur when register
variables are declared in nested blocks.  Because of it, 'jas' cannot
be re-compiled with the 1.2 release with the optimizer (-O) turned on.
 
In the file "fun.c", in the function "block()", change these 2 lines:
 
                if (blktab->b_regs > maxregs)
                        maxregs = blktab->b_regs;
 
to this 1 line:
 
                maxregs |= blktab->b_regs;
 
         Johann Ruegg                       *
         Sozobon Ltd                        |
         uunet!dunike!onecom!wldrdg!hans    |
                                            |
    * - *      * - *  * - - - *  * - - - *  * - *      * - *      *       *
  /          /     |        /    |       |  |     \    |     \    | \     |
* - *      *       *  * - *      *       |  |       *  |       *  |   *   *
      \    |       |    \          \     |  |       |  |       |  |   | /
* - - - *  * - - - *      * - *      * - *  * - - - *  * - - - *  *   *
 
------------------------------
 
Date: 30 Apr 90 15:45:48 GMT
From:
 sdd.hp.com!zaphod.mps.ohio-state.edu!mips!wyse!vsi1!teda!ditka!rcb@ucsd.edu
 (Roy Bixler)
Subject: setting the color of points in GEM
Message-ID: <24303@ditka.UUCP>
 
I am a rank beginner at GEM programming, equipped only with Abacus' GEM
programmer's reference as a guide.  Currently, I want to start simple and
simply write a program to plot a bunch of points (polymarkers) to the
screen.  However, all my points come out black, which the reference manual
says happens when the color index passed to vsm_color is invalid.  I even
use vs_color first to define my own color indices and use only those I've
defined.  I'm stuck, so I'm wondering if anyone knows of any errors in the
manual, dumbnesses on my part, etc.  I am using version 1.3 of the GEMFast
library and version 1.1 of Sozobon C.
 
Thanks!
 
Roy Bixler

 
------------------------------
 
Date: 30 Apr 90 15:07:30 GMT
From: eagle.wesleyan.edu!ncastellano@CS.YALE.EDU
Subject: Virus questions
Message-ID: <20047@eagle.wesleyan.edu>
 
In article <CMM.0.88.641433664.larserio@gille.uio.no>, larserio@gille.uio.no
(LarsErikOsterud) writes:
> Yes, there are link-viruses on the ST
> Over here in Europe there are several.
> The AVK or VDU virus killer checks for link-viruses too...
> They can destory/conteminate ALL the files on a hard-disk in a few secs !!
> Nasty things !!!!
>
 
OK, so where can we get these AVK and VDU programs?  Are they
available in the US?  are they PD?  If so, why not post them to the
binaries group and/or the terminator archives?  Personally I'd like to
get them up and running in my system BEFORE a virus hits.
 
                nick
 
>  Lars-Erik  /  ABK-BBS +47 2132659  /   ____ ______ ________________________
>   Osterud  /  larserio@ifi.uio.no  /   /___    /            The norwegian ST
> __________/ ______________________/   ____/   /   Klubben,  user association
--
        ncastellano@eagle.wesleyan.edu    ncastellano@wesleyan.bitnet
                Sinkhole!dEADHEAd@mast.citadel.moundst.mn.org
   "We are happy.  (_silence._)  What do we do now, now that we are happy?"
               -Estragon, _waiting for godot_ by samuel beckett
 
------------------------------
 
End of INFO-ATARI16 Digest V90 Issue #495
*****************************************
