home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / WPSDEM.ZIP / COMPUTER / CONSOLE.C next >
Text File  |  1992-08-06  |  798b  |  35 lines

  1. #include <stdio.h>
  2. #include <ctype.h>
  3. #include "micro.ph"
  4.  
  5. void main(int argc, char **argv)
  6. {
  7.    Microcomputer *Micro;
  8.    char ch;
  9.    int Reg;
  10.  
  11.    Micro = MicrocomputerNew();
  12.    SOM_TraceLevel = 2;
  13.  
  14.    while ((ch = getchar()) != 'x')
  15.    {
  16.       if (isalpha(ch))
  17.         _Push(Micro, (double) (toupper(ch) - 'A'));
  18.       else
  19.        switch (ch)
  20.        {
  21.          case '?':    _Input(Micro);    break;
  22.          case '!':    _Output(Micro);    break;
  23.          case '+':    _Add(Micro);    break;
  24.          case '-':    _Sub(Micro);    break;
  25.          case '*':    _Mul(Micro);    break;
  26.          case '/':    _Div(Micro);    break;
  27.          case '&':    Reg = (int) _Pop(Micro);
  28.             _Store(Micro, Reg);    
  29.             break;
  30.          case '@':    Reg = (int) _Pop(Micro);
  31.             _Fetch(Micro, Reg);    
  32.             break;
  33.        }
  34.    }
  35. }