home *** CD-ROM | disk | FTP | other *** search
/ World of A1200 / World_Of_A1200.iso / programs / monitors / perfmeter / perfmeter.c < prev    next >
C/C++ Source or Header  |  1995-02-27  |  20KB  |  728 lines
  1. ;/*    PerfMeter by Digital Design, Inc.
  2.  
  3. lc -j73 -v -y -ba perfmeter.c
  4. blink lib:cback.o+perfmeter.o to perfmeter lib lib:lc.lib+lib:amiga.lib
  5. quit
  6.  
  7.     Author:        Juha 'Comm' Tuominen / Digital Design
  8.     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  9.     Released:    15-Jul-91    v1.10
  10.     Revised:    07-Sep-91    v1.11
  11.     Revised:    08-Sep-91    v1.12
  12.     Revised:    18-Sep-91    v1.2    (needs KS2.0 now)
  13.     Revised:    19-Oct-91    v1.21    (uptime bug fixed)
  14.     Revised:    04-Nov-91    v2.0    (major bug fixing)
  15.     Revised:    25-Nov-92    v2.1    (small bug fix)
  16.     Revices:    03-Dec-92    v2.2    (extented font support)
  17.     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  18.     Compiler:    SAS/C v5.10->
  19.     ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  20. */
  21.  
  22. #include <exec/types.h>
  23. #include <exec/memory.h>
  24. #include <exec/execbase.h>
  25. #include <exec/tasks.h>
  26. #include <libraries/dos.h>
  27. #include <devices/timer.h>
  28. #include <intuition/intuitionbase.h>
  29. #include <libraries/diskfont.h>
  30. #include <graphics/rastport.h>
  31. #include <graphics/gfx.h>
  32. #include <graphics/gfxbase.h>
  33. #include <graphics/gfxmacros.h>
  34. #include <graphics/text.h>
  35. #include <proto/all.h>
  36. #include <string.h>
  37. #include <stdio.h>
  38. #include <stdlib.h>
  39.  
  40. #define STACK_SIZE 1000L    /* Arska's stack size */
  41.  
  42. #define NAME         "Perfmeter"
  43. #define VERSION        2
  44. #define REVISION    2
  45. #define DATE        "02.12.92"
  46. #define VERS        "Perfmeter 2.2"
  47. #define VSTRING        "PerfMeter 2.2 (03.12.92)\n\0"
  48. #define VERSTAG        "\0$VER: Perfmeter 2.2 (03.12.92)\0"
  49.  
  50. #define FONTSIZE 8
  51. #define FONTNAME "blob.font"
  52.  
  53. #define WINDOWWIDTH        172
  54. #define WINDOWHEIGTH    130
  55.  
  56. long _stack=16384;
  57. char *_procname=VSTRING;
  58. long _priority=5;
  59. long _BackGroundIO=FALSE;
  60.  
  61. void MemCleanup() {}
  62.  
  63. UBYTE    versiontag[]=VERSTAG;    /* for version command */
  64.  
  65. BOOL    task_added=FALSE,zipped=FALSE,oldzipped=FALSE,timeropen=FALSE,timeropen2=FALSE,
  66.         keepgoing=TRUE,time_requested=FALSE,time_requested2=FALSE;
  67. ULONG    maxchip, maxfast, freechip=0, freefast=0,maxpub,freepub,cputime=NULL,
  68.         cputemp=NULL,prevcpu=68,count=0,chipscale=0, fastscale=0, publicscale=0,
  69.         jakaja=0,cputemp2=0,tag1;
  70. char    processor[10]="68000",*taskname="Arska Väijy",itemname[10]="  Idle";
  71. int        cpuload=0,mode=0,oldmode=1,buffer[7][151],load=0,switchcount=0,upsecs=0,
  72.         upmins=0,uphours=0,updays=0,oldi=0,offset;
  73. UBYTE    xc[]={5,5,5,5,5,5,6,6,6,7,7,7,8,8,9,9,10,11,11,12,13,13,14,15,16,17,18,19,20,20,21,23,24,25,26,27,28,29,30,31,33,34,35,36,38,39,40,41,42,44,45,46,48,49,50,51,52,54,55,56,57,59,60,61,62,63,64,65,66,67,69,70,70,71,72,73,74,75,76,77,77,78,79,79,80,81,81,82,82,83,83,83,84,84,84,85,85,85,85,85,85},
  74.         yc[]={45,46,48,49,50,51,52,54,55,56,57,59,60,61,62,63,64,65,66,67,69,70,70,71,72,73,74,75,76,77,77,78,79,79,80,81,81,82,82,83,83,83,84,84,84,85,85,85,85,85,85,85,85,85,85,85,84,84,84,83,83,83,82,82,81,81,80,79,79,78,77,77,76,75,74,73,72,71,70,70,69,67,66,65,64,63,62,61,60,59,57,56,55,54,52,51,50,49,48,46,45},
  75.         xx[]={15,15,15,15,15,15,15,15,15,16,16,16,16,17,17,17,18,18,18,19,19,20,20,21,21,22,22,23,24,24,25,26,26,27,28,29,29,30,31,32,33,33,34,35,36,37,38,39,40,40,41,42,43,44,45,46,47,48,49,49,50,51,52,53,54,55,56,56,57,58,59,60,60,61,62,63,63,64,65,66,66,67,67,68,69,69,70,70,71,71,72,72,72,73,73,73,74,74,74,74,74,75,75,75,75,75,75,75,75,75},
  76.         yy[]={43,44,45,46,47,48,49,49,50,51,52,53,54,55,56,56,57,58,59,60,60,61,62,63,63,64,65,66,66,67,67,68,69,69,70,70,71,71,72,72,72,73,73,73,74,74,74,74,74,75,75,75,75,75,75,75,75,75,75,75,75,74,74,74,74,73,73,73,72,72,72,71,71,70,70,69,69,68,68,67,66,66,65,64,64,63,62,61,61,60,59,58,57,57,56,55,54,53,52,51,50,50,49,48,47,46,45,44,43,43};
  77. APTR    stack=NULL;
  78. WORD    cordinates[]={0,0,100,65};    /* zipped window cordinates and size */
  79.  
  80.                                                                                
  81. extern    struct ExecBase    *SysBase;
  82. struct    IntuitionBase *IntuitionBase=NULL;
  83. struct    Library *DiskfontBase=NULL;
  84. struct    Window *window=NULL;
  85. struct    IntuiText abouttext[];
  86. struct    IntuiText proceed;
  87. struct    GfxBase *GfxBase=NULL;
  88. struct    MsgPort *timerport=NULL;
  89. struct    timerequest *timermsg=NULL;
  90. struct    MsgPort *timerport2=NULL;
  91. struct    timerequest *timermsg2=NULL;
  92. struct    Task *task=NULL;
  93. struct    TextFont *textfont;
  94.  
  95. struct    NewWindow mywindow =
  96. {    420,
  97.     14,
  98.     WINDOWWIDTH,
  99.     WINDOWHEIGTH,
  100.     0,1,
  101.     CLOSEWINDOW | MENUPICK | NEWSIZE,
  102.     SMART_REFRESH | WINDOWDRAG | WINDOWCLOSE | WINDOWDEPTH,
  103.     NULL,
  104.     NULL,
  105.     "Perfmeter",
  106.     NULL,
  107.     NULL,
  108.     140,
  109.     90,
  110.     NULL,
  111.     NULL,
  112.     WBENCHSCREEN
  113.  
  114. };
  115.  
  116. struct TagItem tagitems[2]={
  117.     {WA_Zoom,&cordinates},
  118.     {0,}
  119. };
  120.  
  121.  
  122. struct TextAttr TOPAZ80 = {(STRPTR)"topaz.font",TOPAZ_EIGHTY,0,0};
  123.  
  124. struct IntuiText abouttext[9] =
  125. {
  126.     {2,1,JAM1,8, 4,(struct TextAttr *)&TOPAZ80,(UBYTE *)VERS,(struct IntuiText *)&abouttext[1]},
  127.     {2,1,JAM1,8,14,(struct TextAttr *)&TOPAZ80,(UBYTE *)"by Juha Tuominen",(struct IntuiText *)&abouttext[2]},
  128.     {2,1,JAM1,8,22,(struct TextAttr *)&TOPAZ80,(UBYTE *)"Copyright © 1992",(struct IntuiText *)&abouttext[3]},
  129.     {2,1,JAM1,8,30,(struct TextAttr *)&TOPAZ80,(UBYTE *)"Digital Design, Inc.",(struct IntuiText *)&abouttext[4]},
  130.     {2,1,JAM1,8,38,(struct TextAttr *)&TOPAZ80,(UBYTE *)" ",(struct IntuiText *)&abouttext[5]},
  131.     {2,1,JAM1,8,46,(struct TextAttr *)&TOPAZ80,(UBYTE *)"Average 88100 load: 0   %",(struct IntuiText *)&abouttext[6]},
  132.     {2,1,JAM1,8,54,(struct TextAttr *)&TOPAZ80,(UBYTE *)" ",(struct IntuiText *)&abouttext[7]},
  133.     {2,1,JAM1,8,62,(struct TextAttr *)&TOPAZ80,(UBYTE *)"Arska Väijy has found",(struct IntuiText *)&abouttext[8]},
  134.     {2,1,JAM1,8,70,(struct TextAttr *)&TOPAZ80,(UBYTE *)"0 perfect numbers.",(struct IntuiText *)NULL}
  135. };
  136.  
  137. struct IntuiText proceed=
  138. {
  139.     2,1,JAM1,5,3,(struct TextAttr *)&TOPAZ80,(UBYTE *)"Continue",(struct IntuiText *)NULL
  140. };
  141.  
  142. /* This menu isn't visually beatufull but do just fine for this program */
  143.  
  144. struct IntuiText IText1={0,1,JAM1,0,0,&TOPAZ80,"Quit",NULL};
  145. struct MenuItem MenuItem9={NULL,0,64,58,8,ITEMTEXT+ITEMENABLED+HIGHBOX,0,(APTR)&IText1,NULL,NULL,NULL,MENUNULL};
  146. struct IntuiText IText2={0,1,JAM1,0,0,&TOPAZ80,"Switch",NULL};
  147. struct MenuItem MenuItem8={&MenuItem9,0,56,58,8,ITEMTEXT+ITEMENABLED+HIGHCOMP,0,(APTR)&IText2,NULL,NULL,NULL,MENUNULL};
  148. struct IntuiText IText3={0,1,JAM1,0,0,&TOPAZ80,"Public",NULL};
  149. struct MenuItem MenuItem7={&MenuItem8,0,48,58,8,ITEMTEXT+ITEMENABLED+HIGHCOMP,0,(APTR)&IText3,NULL,NULL,NULL,MENUNULL};
  150. struct IntuiText IText4={0,1,JAM1,0,0,&TOPAZ80,"Fast",NULL};
  151. struct MenuItem MenuItem6={&MenuItem7,0,40,58,8,ITEMTEXT+ITEMENABLED+HIGHCOMP,0,(APTR)&IText4,NULL,NULL,NULL,MENUNULL};
  152. struct IntuiText IText5={0,1,JAM1,0,0,&TOPAZ80,"Chip",NULL};
  153. struct MenuItem MenuItem5={&MenuItem6,0,32,58,8,ITEMTEXT+ITEMENABLED+HIGHCOMP,0,(APTR)&IText5,NULL,NULL,NULL,MENUNULL};
  154. struct IntuiText IText6={0,1,JAM1,0,0,&TOPAZ80,"Load",NULL};
  155. struct MenuItem MenuItem4={&MenuItem5,0,24,58,8,ITEMTEXT+ITEMENABLED+HIGHCOMP,0,(APTR)&IText6,NULL,NULL,NULL,MENUNULL};
  156. struct IntuiText IText7={0,1,JAM1,0,0,&TOPAZ80,"CPU",NULL};
  157. struct MenuItem MenuItem3={&MenuItem4,0,16,58,8,ITEMTEXT+ITEMENABLED+HIGHCOMP,0,(APTR)&IText7,NULL,NULL,NULL,MENUNULL};
  158. struct IntuiText IText8={0,1,JAM1,0,0,&TOPAZ80,"Idle",NULL};
  159. struct MenuItem MenuItem2={&MenuItem3,0,8,58,8,ITEMTEXT+ITEMENABLED+HIGHCOMP,0,(APTR)&IText8,NULL,NULL,NULL,MENUNULL};
  160. struct IntuiText IText9={0,1,JAM1,0,0,&TOPAZ80,"About",NULL};
  161. struct MenuItem MenuItem1={&MenuItem2,0,0,58,8,ITEMTEXT+ITEMENABLED+HIGHCOMP,0,(APTR)&IText9,NULL,NULL,NULL,MENUNULL};
  162.  
  163. struct Menu Menu1={NULL,0,0,62,0,    MENUENABLED,"Project",&MenuItem1};
  164.  
  165.  
  166.  
  167. void cleanexit(int error);
  168. void openthings(void);
  169. void addtimerequest(long secs, long micros);
  170. void changefont(void);
  171. void addtimerequest2(long secs, long micros);
  172. void uptime(void);
  173. ULONG maxmemsize(long memtype);
  174. void updatewindow(void);
  175. void oddstuff(void);
  176. void idletask(void);
  177. void __saveds switchroutine(void);
  178. void updatezipped(int i);
  179.  
  180.  
  181. void CXBRK(void) 
  182. { 
  183.     cleanexit(0);
  184. }
  185.  
  186. void cleanexit(int error)
  187. {
  188.     if(task_added) RemTask(task);
  189.     if(task) FreeMem(task,sizeof(struct Task));
  190.     if(stack) FreeMem(stack,STACK_SIZE);
  191.     if(timeropen2)
  192.     {    if(time_requested2)
  193.         {
  194.             AbortIO((struct IORequest *)timermsg2);
  195.             WaitIO((struct IORequest *)timermsg2);
  196.         }
  197.         CloseDevice((struct IORequest *)timermsg2);
  198.     }
  199.     if(timermsg2) DeleteExtIO((struct IORequest *)timermsg2);
  200.     if(timerport2) DeletePort(timerport2);
  201.  
  202.     if(timeropen)
  203.     {    if(time_requested)
  204.         {
  205.             AbortIO((struct IORequest *)timermsg);
  206.             WaitIO((struct IORequest *)timermsg);
  207.         }
  208.         CloseDevice((struct IORequest *)timermsg);
  209.     }
  210.     if(timermsg) DeleteExtIO((struct IORequest *)timermsg);
  211.     if(timerport) DeletePort(timerport);
  212.     if(window->MenuStrip) ClearMenuStrip(window);
  213.     if(window) CloseWindow(window);
  214.     if(DiskfontBase) CloseLibrary(DiskfontBase);
  215.     if(GfxBase) CloseLibrary((struct Library *)GfxBase);
  216.     if(IntuitionBase) CloseLibrary((struct Library *)IntuitionBase);
  217.     XCEXIT(error);
  218. }
  219.  
  220.  
  221. void openthings(void)
  222. {
  223.     int i,j;
  224.  
  225.     if (SysBase->LibNode.lib_Version<36)
  226.         cleanexit(99);
  227.     if (!(GfxBase=(struct GfxBase *)OpenLibrary("graphics.library",36L)))
  228.         cleanexit(30);
  229.     if (!(IntuitionBase=(struct IntuitionBase*)OpenLibrary("intuition.library",36L)))
  230.         cleanexit(30);
  231.     if (!(DiskfontBase=(struct Library*)OpenLibrary("diskfont.library", 36L)))
  232.         cleanexit(30);
  233.     if(!(timerport=CreatePort(0,0)))
  234.         cleanexit(22);
  235.     if(!(timermsg=(struct timerequest *) CreateExtIO(timerport, sizeof(struct timerequest))))
  236.         cleanexit(22);
  237.     if(OpenDevice("timer.device", UNIT_VBLANK, ((struct IORequest *) timermsg), 0))
  238.         cleanexit(22);
  239.  
  240.     timeropen=TRUE;
  241.  
  242.     if(!(timerport2=CreatePort(0,0)))
  243.         cleanexit(22);
  244.     if(!(timermsg2=(struct timerequest *) CreateExtIO(timerport2, sizeof(struct timerequest))))
  245.         cleanexit(22);
  246.     if(OpenDevice("timer.device", UNIT_VBLANK, ((struct IORequest *) timermsg2), 0))
  247.         cleanexit(22);
  248.  
  249.     timeropen2=TRUE;
  250.  
  251.     if(!(window=OpenWindowTagList(&mywindow,(struct TagItem *)&tagitems)))
  252.         cleanexit(27);
  253.     SetMenuStrip(window,&Menu1);
  254.  
  255.     if(!(stack=AllocMem(STACK_SIZE, MEMF_CLEAR)))
  256.         cleanexit(10);
  257.     if(!(task=(struct Task*)AllocMem(sizeof(struct Task),MEMF_CLEAR|MEMF_PUBLIC)))
  258.         cleanexit(10);
  259.  
  260.     maxchip=maxmemsize(MEMF_CHIP);
  261.     maxfast=maxmemsize(MEMF_FAST);
  262.     maxpub=maxchip+maxfast;
  263.  
  264.     if(SysBase->AttnFlags & AFF_68010)    strcpy(processor,"68010");
  265.     if(SysBase->AttnFlags & AFF_68020)    strcpy(processor,"68020");
  266.     if(SysBase->AttnFlags & AFF_68030)    strcpy(processor,"68030");
  267.     if(SysBase->AttnFlags & AFF_68040)    strcpy(processor,"68040");
  268.  
  269.     /*    Because we run this part only once we just have to assume that user 
  270.         does not add memory cartiges or change the main processor while
  271.         this program is running :-)
  272.         Yeah really. All non-autoconfigurable boards should be added in the
  273.         memory before running Perfmeter. Some strange things might happen
  274.         if you don't do so.
  275.     */
  276.  
  277.     chipscale=maxchip/100;
  278.     fastscale=maxfast/100;
  279.     publicscale=maxpub/100;
  280.  
  281.     if(offset=window->WScreen->BarHeight-8)
  282.         SizeWindow(window,0,offset);
  283.  
  284.     /* init buffer */
  285.     for(i=0;i<6;i++)
  286.     {
  287.         for(j=0;j<150;j++)
  288.             buffer[i][j]=0;
  289.     }
  290.  
  291. }
  292.  
  293.  
  294. void changefont(void)
  295. {
  296.     struct    TextAttr    textattr;
  297.     struct    TextFont    *textfont;
  298.  
  299.     textattr.ta_Name=FONTNAME;;
  300.     textattr.ta_YSize=FONTSIZE;
  301.     textattr.ta_Style=FS_NORMAL;
  302.     textattr.ta_Flags=FPF_ROMFONT | FPF_DISKFONT;
  303.  
  304.     if(textfont=(struct TextFont *)OpenDiskFont(&textattr))
  305.     {    SetFont(window->RPort,textfont);
  306.         if(!window->RPort->TxHeight==8)
  307.         {    cleanexit(10);
  308.         }
  309.     }
  310.     else
  311.     {    cleanexit(10);
  312.     }
  313. }
  314.  
  315. void addtimerequest(long secs, long micros)
  316. {
  317.     time_requested=TRUE;
  318.     timermsg->tr_node.io_Command=TR_ADDREQUEST;
  319.     timermsg->tr_time.tv_secs=secs;
  320.     timermsg->tr_time.tv_micro=micros;
  321.     SendIO((struct IORequest *)timermsg);
  322. }
  323.  
  324. void addtimerequest2(long secs, long micros)
  325. {
  326.     time_requested2=TRUE;
  327.     timermsg2->tr_node.io_Command=TR_ADDREQUEST;
  328.     timermsg2->tr_time.tv_secs=secs;
  329.     timermsg2->tr_time.tv_micro=micros;
  330.     SendIO((struct IORequest *)timermsg2);
  331. }
  332.  
  333. void uptime(void)
  334. {    char temp[30];
  335.  
  336.     if(++upsecs>59)
  337.     {    upsecs=0;
  338.         if(++upmins>59)
  339.         {    upmins=0;
  340.             if(++uphours>23)
  341.             {    uphours=0;
  342.                 updays++;
  343.             }
  344.         }
  345.     }
  346.     if(!zipped)
  347.     {    SetDrMd(window->RPort,JAM2);
  348.         SetBPen(window->RPort,0);
  349.         SetAPen(window->RPort,1);
  350.         Move(window->RPort,10,123+offset);
  351.         sprintf(temp,"Uptime: %02d days  %02d:%02d:%02d",updays,uphours,upmins,upsecs);
  352.         Text(window->RPort,temp,25);
  353.     }
  354. }
  355.  
  356. ULONG maxmemsize(long memtype)
  357. {
  358.     ULONG blocksize=0;
  359.     struct MemHeader *MemHeader;
  360.  
  361.     Forbid();
  362.         for(MemHeader=(struct MemHeader *)SysBase->MemList.lh_Head;MemHeader->mh_Node.ln_Succ;MemHeader=(struct MemHeader *)MemHeader->mh_Node.ln_Succ)
  363.         {
  364.             if(MemHeader->mh_Attributes&memtype)
  365.                 blocksize+=((ULONG)MemHeader->mh_Upper-(ULONG)MemHeader->mh_Lower);
  366.         }
  367.     Permit();
  368.  
  369.     return(blocksize);
  370.  
  371.     /* MaxMemSize() by Louis A. Mamakos. */
  372. }
  373.  
  374.  
  375.  
  376. void updatezipped(int i)
  377. {
  378.     UBYTE    offset1=0,offset2=0;
  379.     char    temp[10];
  380.  
  381.     if(oldi<30)
  382.     {    offset1=1;
  383.         offset2=6;
  384.     }
  385.     else
  386.     {    offset1=3;
  387.         offset2=8;
  388.     }
  389.     SetAPen(window->RPort,0);
  390.     Move(window->RPort,53,58+offset);
  391.     Draw(window->RPort,6+xx[oldi+offset1],103-yy[oldi+offset1]+offset);
  392.     Draw(window->RPort,6+xc[oldi],103-yc[oldi]+offset);
  393.     Draw(window->RPort,6+xx[oldi+offset2],103-yy[oldi+offset2]+offset);
  394.     Draw(window->RPort,53,58+offset);
  395.     Move(window->RPort,14,60+offset);
  396.     sprintf(temp,"%d%%    ",oldi);
  397.     Text(window->RPort,temp,4);
  398.     if(i<30) {offset1=1;offset2=6;} else {offset1=3;offset2=8;}
  399.     SetAPen(window->RPort,1);
  400.     Move(window->RPort,53,58+offset);
  401.     Draw(window->RPort,6+xx[i+offset1],103-yy[i+offset1]+offset);
  402.     Draw(window->RPort,6+xc[i],103-yc[i]+offset);
  403.     Draw(window->RPort,6+xx[i+offset2],103-yy[i+offset2]+offset);
  404.     Draw(window->RPort,53,58+offset);
  405.     Move(window->RPort,14,60+offset);
  406.     sprintf(temp,"%d%%    ",i);
  407.     Text(window->RPort,temp,4);
  408.     for(i=0;i<101;i+=10)
  409.     {    Move(window->RPort,3+xc[i],103-yc[i]+offset);
  410.         Text(window->RPort,"+",1);
  411.     }
  412.     Move(window->RPort,56,60+offset);
  413.     Text(window->RPort,itemname,6);
  414. }
  415.  
  416. void updatewindow(void)
  417. {
  418.     int i,j;
  419.     ULONG    curchip, curfast, curpub;
  420.     struct    RastPort *rp=window->RPort;
  421.     char    temp[10],temp2[10];    /* two temps for double buffering */
  422.  
  423.     if(mode!=oldmode || oldzipped!=zipped)    /* User has decided to look some other item or window zip gadget is pressed*/
  424.     {    if(!zipped)
  425.         {    sprintf(temp,"%s",itemname);
  426.             strcpy(window->Title,temp);
  427.             RefreshWindowFrame(window);
  428.             SetAPen(rp,0);
  429.             RectFill(rp,8,12+offset,164,115+offset);
  430.  
  431.             /* 3D border */
  432.             SetAPen(rp,1);
  433.             Move(rp,10,111+offset);
  434.             Draw(rp,10,16+offset);
  435.             Draw(rp,161,16+offset);
  436.             SetAPen(rp,2);
  437.             Draw(rp,161,111+offset);
  438.             Draw(rp,11,111+offset);
  439.  
  440.             /* Scaling lines */
  441.             SetAPen(rp,3);
  442.             Move(rp,11,38+offset);
  443.             Draw(rp,160,38+offset);
  444.             Move(rp,11,64+offset);
  445.             Draw(rp,160,64+offset);
  446.             Move(rp,11,90+offset);
  447.             Draw(rp,160,90+offset);
  448.  
  449.             /* Draw existing GFX from buffer */
  450.             Move(rp,10,110-buffer[mode][0]+offset);
  451.             SetAPen(rp,1);
  452.             for(j=1;j<=150;j++)
  453.                 Draw(rp,j+10,110-buffer[mode][j]+offset);
  454.         }
  455.         else
  456.         {    SetAPen(window->RPort,0);
  457.             RectFill(window->RPort,10,15+offset,95,62+offset);
  458.             oldi=-1;
  459.             strcpy(window->Title,"");
  460.             RefreshWindowFrame(window);
  461.         }
  462.         oldmode=mode;
  463.         oldzipped=zipped;
  464.     }
  465.  
  466.     /* let's scroll a bit, OK? */
  467.     for(i=0;i<7;i++)
  468.     {
  469.         for(j=0;j<150;j++)
  470.             buffer[i][j]=buffer[i][j+1];
  471.     }
  472.     curchip=AvailMem(MEMF_CHIP);
  473.     curfast=AvailMem(MEMF_FAST);
  474.     curpub=AvailMem(MEMF_PUBLIC);
  475.  
  476.     buffer[0][150]=(UBYTE)(100*cputemp/60);
  477.     buffer[1][150]=load;
  478.     buffer[2][150]=(UBYTE)(curchip/chipscale);
  479.     if(fastscale)
  480.         buffer[3][150]=(UBYTE)(curfast/fastscale);
  481.     buffer[4][150]=(UBYTE)(curpub/publicscale);
  482.     buffer[5][150]=switchcount;
  483.     buffer[6][150]=(UBYTE)(83-(100*cputemp/60));
  484.     if(buffer[6][150]<0) buffer[6][150]=0;
  485.  
  486.  
  487.     for(i=0;i<7;i++)
  488.     {    if(buffer[i][150]>93)
  489.         {    buffer[i][150]=93;
  490.         }
  491.     }
  492.  
  493.     if(!zipped)
  494.     {    SetDrMd(rp,JAM1);
  495.         SetAPen(rp,0);
  496.         sprintf(temp,"%d%%  ",buffer[mode][149]);
  497.         sprintf(temp2,"%d%%  ",buffer[mode][150]);
  498.         Move(rp,140,24+offset);
  499.         Text(rp,temp,4);
  500.         ScrollRaster(rp,1,0,11,17+offset,160,110+offset);
  501.         SetAPen(rp,1);
  502.         Move(rp,140,24+offset);
  503.         Text(rp,temp2,4);
  504.         SetAPen(rp,3);
  505.         WritePixel(rp,160,38+offset);
  506.         WritePixel(rp,160,64+offset);
  507.         WritePixel(rp,160,90+offset);
  508.         SetAPen(rp,1);
  509.         Move(rp,159,110-buffer[mode][149]+offset);
  510.         Draw(rp,160,110-buffer[mode][150]+offset);
  511.     }
  512.     else
  513.     {    if(oldi!=buffer[mode][150])
  514.         {    updatezipped(buffer[mode][150]);
  515.             oldi=buffer[mode][150];
  516.         }
  517.     }
  518. }
  519.  
  520.  
  521.  
  522.  
  523. void idletask(void)    /*    This is Arska Väijy */
  524. {
  525.     ULONG suurinluku=1,taydellinenluku,luku;
  526.  
  527.     Disable();
  528.         task->tc_Switch=switchroutine;
  529.         task->tc_Flags|=TF_SWITCH;
  530.     Enable();
  531.  
  532.     while(1)
  533.     {    taydellinenluku=0;
  534.         for(luku=suurinluku;luku>1;luku--)
  535.         {
  536.             if(!(suurinluku%luku))
  537.                 taydellinenluku+=luku;
  538.         }
  539.         if(taydellinenluku==suurinluku)
  540.             count++;
  541.         suurinluku++;
  542.     }
  543.  
  544.     /* As you know, there may not be busy looped parts in multitasking
  545.        programs :-) */
  546. }
  547.  
  548. void __saveds switchroutine(void)
  549. {
  550.     /*    Thanks to Juhani Vehviläinen for sweatting with me because of
  551.         this idle counting routine */
  552.  
  553.     cputime+=SysBase->Quantum-SysBase->Elapsed;
  554.     switchcount++;
  555. }
  556.  
  557.  
  558. void _main(char *arguments)
  559. {
  560.     ULONG    timersignal, 
  561.             timersignal2,
  562.             idcmpsignal, 
  563.             signals, 
  564.             class;
  565.     UWORD    code, 
  566.             qualifier;
  567.     struct    IntuiMessage *msg=NULL;
  568.     char    temp1[80],temp2[80];
  569.     struct    Node *mynode;
  570.     ULONG    sum1=0;
  571.     int        pos1=0,pos=0,last[61],length=0,i,j=0,argumentcount=0;
  572.     
  573.  
  574.     /* handle arguments */
  575.     for(i=0;i<strlen(arguments);i++)
  576.     {    if(arguments[i]==32 || arguments[i]==13 || arguments[i]==10)
  577.         {    if(!strncmp(temp1,"-x",2))
  578.                 mywindow.LeftEdge=atoi(temp1+2);
  579.             if(!strncmp(temp1,"-y",2))
  580.                 mywindow.TopEdge=atoi(temp1+2);
  581.             argumentcount++;
  582.             j=0;
  583.         }
  584.         else
  585.         {    temp1[j++]=arguments[i];
  586.             temp1[j]=0;
  587.         }
  588.     }
  589.  
  590.     openthings();
  591.     changefont();
  592.  
  593.     for(i=0;i<60;i++)
  594.         last[i]=0;
  595.  
  596.     timersignal = 1L << timerport->mp_SigBit;
  597.     timersignal2= 1L << timerport2->mp_SigBit;
  598.     idcmpsignal = 1L << window->UserPort->mp_SigBit;
  599.  
  600.     addtimerequest(1,0);
  601.     addtimerequest2(0,10);
  602.  
  603.     task->tc_Node.ln_Type=NT_TASK;
  604.     task->tc_Node.ln_Name=taskname;
  605.     task->tc_Node.ln_Pri=-128;
  606.     task->tc_SPLower=(APTR)stack;
  607.     task->tc_SPUpper=(APTR)(STACK_SIZE+(ULONG)stack);
  608.     task->tc_SPReg=task->tc_SPUpper;
  609.  
  610.     AddTask(task,idletask,0L);
  611.     task_added=TRUE;
  612.  
  613.     while(keepgoing)
  614.     {    signals = Wait(timersignal | timersignal2 | idcmpsignal | SIGBREAKF_CTRL_C | SIGBREAKF_CTRL_D);
  615.  
  616.         if(signals & (SIGBREAKF_CTRL_C | SIGBREAKF_CTRL_D))
  617.             cleanexit(0);
  618.  
  619.         if(signals & idcmpsignal)
  620.         {
  621.             while(msg=(struct IntuiMessage *)GetMsg(window->UserPort))
  622.             {
  623.                 class=msg->Class;
  624.                 code=msg->Code;
  625.                 qualifier=msg->Qualifier;
  626.                 ReplyMsg((struct Message *) msg);
  627.  
  628.                 switch(class)
  629.                 {
  630.                     case CLOSEWINDOW:
  631.                         keepgoing=FALSE;
  632.                         break;
  633.                     case NEWSIZE:
  634.                         if(window->Width==WINDOWWIDTH && window->Height==WINDOWHEIGTH+offset)
  635.                             zipped=FALSE;
  636.                         else if(!zipped)
  637.                         {    zipped=TRUE;
  638.                             if(window->Height<65+offset)
  639.                                 SizeWindow(window,0,offset);
  640.                             SetAPen(window->RPort,0);
  641.                             RectFill(window->RPort,10,15+offset,95,62);
  642.                         }
  643.                         break;
  644.                     case MENUPICK:
  645.                         switch(ITEMNUM(code))
  646.                         {
  647.                             case 0:
  648.                                 cputime=100-cpuload;
  649.                                 if(cputime<1 || cputime>100)
  650.                                     cputime=20;
  651.                                 sprintf(temp1,"Average %s load: %d %% ",processor,cputime);
  652.                                 cputime=0;
  653.                                 abouttext[5].IText=(UBYTE *)temp1;
  654.                                 sprintf(temp2,"%d perfect numbers.",count);
  655.                                 abouttext[8].IText=(UBYTE *)temp2;
  656.                                 AutoRequest(NULL,&abouttext[0],NULL,&proceed,NULL,NULL,272,128);
  657.                                 break;
  658.                             case 1:
  659.                                 mode=0;
  660.                                 strcpy(itemname,"  Idle");
  661.                                 break;
  662.                             case 2:
  663.                                 mode=6;
  664.                                 strcpy(itemname,"   CPU");
  665.                                 break;
  666.                             case 3:
  667.                                 mode=1;
  668.                                 strcpy(itemname,"  Load");
  669.                                 break;
  670.                             case 4:
  671.                                 mode=2;
  672.                                 strcpy(itemname,"  Chip");
  673.                                 break;
  674.                             case 5:
  675.                                 mode=3;
  676.                                 strcpy(itemname,"  Fast");
  677.                                 break;
  678.                             case 6:
  679.                                 mode=4;
  680.                                 strcpy(itemname,"Public");
  681.                                 break;
  682.                             case 7:
  683.                                 mode=5;
  684.                                 strcpy(itemname,"Switch");
  685.                                 break;
  686.                             case 8:
  687.                                 cleanexit(0);
  688.                         }
  689.                         break;
  690.                 }
  691.             }
  692.         }
  693.  
  694.         if(signals & timersignal)
  695.         {
  696.             GetMsg(timerport);
  697.             addtimerequest(1,0);
  698.             uptime();
  699.             if(100*cputime/60<100)
  700.                 cputemp=cputime;
  701.             cputemp2+=100*cputime/60;
  702.             cputime=0;
  703.             cpuload=cputemp2/++jakaja;
  704.             length = 0;
  705.             Disable();
  706.                 for(mynode=(SysBase->TaskReady).lh_Head;mynode=mynode->ln_Succ;length++)
  707.                     ;
  708.             Enable();
  709.             sum1+=(length-last[pos1]);
  710.             last[pos]=length;
  711.             if(++pos1==60)    pos1=0;
  712.             if(++pos==60)    pos=0;
  713.             load=(sum1*100+50)/480;
  714.             if(load>100)
  715.  
  716.                 load=100;
  717.             updatewindow();
  718.             switchcount=0;
  719.         }
  720.         if(signals & timersignal2)
  721.         {
  722.             GetMsg(timerport2);
  723.             addtimerequest2(0,8);
  724.         }
  725.     }
  726.     cleanexit(0);
  727. }
  728.