home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128Toolkit / CASSM.SFX / assm4.c < prev    next >
Encoding:
C/C++ Source or Header  |  1992-11-27  |  7.1 KB  |  363 lines
  1. /*
  2.  * 6502 ┴SSEMBLER - ├ODE ╙EGMENT 4
  3.  * ╞ILENAME: ASSM4.C
  4.  *
  5.  */
  6.  
  7.  
  8. #INCLUDE "STDIO.H"
  9. #INCLUDE "ASSM.D1"
  10. #INCLUDE "ASSM.D2"
  11.  
  12. STATIC CHAR ERR;
  13.  
  14. /* EVALUATE EXPRESSION */
  15.  
  16. UNSIGNED EVALUATE()
  17. █
  18.    IF ( COLEXPR () )
  19.    █
  20.       ERROR ( ERR );
  21.       RETURN ERR;
  22.    ▌
  23.    IF ( UNDEF && PASS != ╞╔╥╙╘ñ╨┴╙╙ )
  24.    █
  25.       ERROR ( 12 );
  26.       RETURN 12;
  27.    ▌
  28.    RETURN 0;
  29. ▌
  30.  
  31. UNSIGNED COLEXPR ()
  32. /* CALCULATE THE VALUE AND TYPE OF AN
  33. EXPRESSION.  RETURNS 0 IF NO ERRORS;
  34. ELSE ERROR MESSAGE NUMBER.  SETS GLOBALS:
  35.    VALUE = VALUE OF EXPRESSION
  36.    EXPRTYP = TYPE OF EXPRESSION
  37.    EXPRSYM = PTR TO SYMBOL TABLE ENTRY FOR
  38.              EXPRESSIONS WHICH CONSIST OF A
  39.              SINGLE SYMBOLIC ENTRY
  40.    EXPRMC = 1 OR 2 IF HIGH BYTE OR LOW BYTE
  41.    UNDEF = 1 IF ANY TERM IS UNDEFINED.  IN
  42.            THAT CASE, VALUE, EXPRTYP, EXPRSYM
  43.            ARE MEANINGLESS.
  44. */
  45. █
  46.    CHAR FORCE;
  47.    STATIC CHAR TERMS[] = "\N ,;)"; /* \N WILL BE CHANGED TO \0 */
  48.  
  49.    *TERMS = '\0';
  50.  
  51. #IFDEF ┼╪╨╥╘╥┴├┼
  52.    IF (DFLAG) PRINTF ( ">>COLEXPR:\N" );
  53. #ENDIF
  54.  
  55.    UNDEF = 0;
  56.    ERR = 0;
  57.    EXPRMC = ╬╒╠╠;   /* BOTH BYTES OF OPERAND ASSUMED */
  58.    EXPRSYM = ╬╒╠╠;
  59.    EXPRTYP = ╬╒╠╠;
  60.    VALUE = 0;
  61.    CSKIP ();
  62.    IF ( INDEX ("!<>",CH) )
  63.    █
  64.       FORCE = CH;
  65.       NEXTCH ();
  66.    ▌
  67.    ELSE
  68.       FORCE = ' ';
  69.    ZPREF = 1;
  70.  
  71.    IF ( COLTERM (TERMS) ▀▀ UNDEF )
  72.    █
  73.       EXPRTYP = ╬╒╠╠;
  74.       VALUE = 0;
  75.    ▌
  76.  
  77.    FULLVALUE = VALUE;
  78.    IF ( ISABS ( EXPRTYP )
  79.       && VALUE < 256 )
  80.       ZPREF = 0;
  81.  
  82.    SWITCH (FORCE)
  83.    █
  84.    CASE '!': ZPREF = 1;
  85.              BREAK;
  86.    CASE '<': ZPREF = 0;
  87.              EXPRMC = 2;
  88.              VALUE &= 0XFF;
  89.              BREAK;
  90.    CASE '>': ZPREF = 0;
  91.              EXPRMC = 1;
  92.              VALUE >>= 8;
  93.              BREAK;
  94.    ▌
  95.  
  96. #IFDEF ┼╪╨╥╘╥┴├┼
  97.    IF (DFLAG) PRINTF ( "<< VALUE=%X(%X),UNDEF=%D,ZPREF=%D,ERR=%D,EXPRMC=%D\N",
  98.       VALUE, EXPRTYP, UNDEF, ZPREF, ERR, EXPRMC );
  99. #ENDIF
  100.  
  101.    IF (PASS != ╞╔╥╙╘ñ╨┴╙╙)
  102.       HALFCHK ();
  103.    RETURN ERR;
  104. ▌
  105.  
  106. UNSIGNED COLTERM ( TS )
  107. CHAR *TS;
  108. /*
  109. TS IS A STRING OF VALID TERMINATORS.  ╔F
  110. END OF LINE IS TO BE A TERMINATOR, \0 MUST
  111. BE THE FIRST CHARACTER OF THE STRING.
  112. */
  113. █
  114.    UNSIGNED TVALUE, EVALUE, TTYPE, ETYPE;
  115.    CHAR OP, MONOP;
  116.    STRUCT SYMTYPE *XSYM;
  117.  
  118.    EVALUE = 0;
  119.    ETYPE = ╬╒╠╠;
  120.    OP = ' ';
  121.    MONOP = ' ';
  122.  
  123.    WHILE ( 1 )
  124.    █
  125.       /* RECOGNIZE MONADIC OPERATORS */
  126.       IF ( INDEX("»-+", CH ) )
  127.       █
  128.          MONOP = CH;
  129.          NEXTCH ();
  130.       ▌
  131.  
  132.       /* RECOGNIZE A TERM */
  133.  
  134.       IF ( ETYPE == ╪╥┼╞ )
  135.       █
  136.          CPOS--; GETCH(); /* INCLUDE + OR - AS MONADIC */
  137.          OP = '+';
  138.          XSYM = EXPRSYM; /* SAVE EXT SYM DATA */
  139.          IF (COLTERM ( TS )) /* EVALUATE OFFSET */
  140.             RETURN ERR;
  141.          EXPRSYM = XSYM;
  142.          TVALUE = VALUE;
  143.          TTYPE = EXPRTYP;
  144.       ▌
  145.       ELSE IF ( INDEX ("0123456789$@%", CH) )
  146.       █
  147.          TVALUE = COLNUM ();
  148.          TTYPE = ─┼╞┴┬╙;
  149.       ▌
  150.       ELSE IF ( ISLSTRT () )
  151.       █
  152.          COLSYM ();
  153.          EXPRSYM = STLOOK();
  154.          IF (EXPRSYM->FLAG == ╒╬─┼╞)
  155.          █
  156.             UNDEF = 1;
  157.             TVALUE = 0;
  158.             TTYPE = ╒╬─┼╞;
  159.          ▌
  160.          ELSE
  161.          █
  162.             TVALUE = EXPRSYM->VALUE;
  163.             TTYPE = EXPRSYM->FLAG;
  164.          ▌
  165.       ▌
  166.       ELSE SWITCH ( CH )
  167.       █
  168.       CASE '*':
  169.          TVALUE = LOCCNT;
  170.          TTYPE = ─┼╞╥┼╠;
  171.          NEXTCH ();
  172.          BREAK;
  173.       CASE '\'':
  174.          TVALUE = NEXTCH ();
  175.          TTYPE = ─┼╞┴┬╙;
  176.          IF (TVALUE)
  177.             NEXTCH ();
  178.          ELSE
  179.             TVALUE = ' ';
  180.          BREAK;
  181.       CASE '[':
  182.          NEXTCH ();
  183.          IF ( COLTERM ( "]" ) )
  184.             RETURN ERR;
  185.          IF ( CH != ']' )
  186.             RETURN (ERR = 17);
  187.          TVALUE = VALUE;
  188.          TTYPE = EXPRTYP;
  189.          NEXTCH ();
  190.          BREAK;
  191.       DEFAULT:
  192.          RETURN ( ERR = 20 );
  193.       ▌
  194.  
  195. #IFDEF ┼╪╨╥╘╥┴├┼
  196.       IF (DFLAG) PRINTF("OP=%C,MONOP=%C,E=%X(%X),T=%X(%X),ERR=%D\N",
  197.          OP,MONOP,EVALUE,ETYPE,TVALUE,TTYPE,ERR);
  198. #ENDIF
  199.  
  200.       /* DO ANY MONADIC OPERATOR */
  201.       SWITCH ( MONOP )
  202.       █
  203.       CASE '+':
  204.       CASE ' ':
  205.          BREAK;
  206.       CASE '»':
  207.       CASE '-':
  208.          EXPRSYM = ╬╒╠╠;
  209.          IF ( ISABS ( TTYPE ) )
  210.             TVALUE =
  211.                (MONOP=='-'? -TVALUE: »TVALUE);
  212.          ELSE
  213.             RETURN ( ERR = 15 );
  214.          BREAK;
  215.       DEFAULT:
  216.          RETURN ( ERR = 16 );
  217.       ▌
  218.       MONOP = ' ';
  219.  
  220.       /* ╥ELOCATABILITY CHECKS */
  221.  
  222.       IF ( ETYPE == ╪╥┼╞ )
  223.          IF ((ISABS(TTYPE) ▀▀ UNDEF)
  224.          && OP == '+')
  225.             EVALUE = TVALUE;
  226.          ELSE
  227.             RETURN ( ERR = 15 );
  228.       ELSE IF ( OP != ' ' )
  229.       █
  230.          EXPRSYM = ╬╒╠╠;
  231.          IF ( TTYPE == ╪╥┼╞ )
  232.             RETURN ( ERR = 15 );
  233.       ▌
  234.  
  235.       /* ─O ANY DYADIC OPERATION */
  236.  
  237.       IF ( ETYPE != ╪╥┼╞ && !UNDEF)
  238.       SWITCH(OP)
  239.       █
  240.       CASE ' ':
  241.          EVALUE = TVALUE;
  242.          ETYPE = TTYPE;
  243.          BREAK;
  244.       CASE '+':
  245.          IF ( ISREL ( ETYPE ) && ISREL ( TTYPE ) )
  246.             RETURN ( ERR = 15 );
  247.          EVALUE += TVALUE;
  248.          IF ( ISREL ( ETYPE ) ▀▀ ISREL ( TTYPE ) )
  249.             ETYPE = ─┼╞╥┼╠;
  250.          ELSE
  251.             ETYPE = ─┼╞┴┬╙;
  252.          BREAK;
  253.       CASE '-':
  254.          IF ( ISABS ( ETYPE ) && ISREL ( TTYPE ) )
  255.             RETURN ( ERR = 15 );
  256.          EVALUE -= TVALUE;
  257.          IF ( ISREL ( ETYPE ) && ISABS ( TTYPE ) )
  258.             ETYPE = ─┼╞╥┼╠;
  259.          ELSE
  260.             ETYPE = ─┼╞┴┬╙;
  261.          BREAK;
  262.       DEFAULT:
  263.          IF ( ISREL ( ETYPE ) ▀▀ ISREL (TTYPE ) )
  264.             RETURN ( ERR = 15 );
  265.          SWITCH (OP)
  266.          █
  267.          CASE '/': CASE '%':
  268.             IF (!TVALUE)
  269.                RETURN ( ERR = 18 );
  270.             IF (OP=='/')
  271.                EVALUE /= TVALUE;
  272.             ELSE
  273.                EVALUE %= TVALUE;
  274.             BREAK;
  275.          CASE '*':
  276.             EVALUE *= TVALUE;
  277.             BREAK;
  278.          CASE '^':
  279.             EVALUE ^= TVALUE;
  280.             BREAK;
  281.          CASE '&':
  282.             EVALUE &= TVALUE;
  283.             BREAK;
  284.          CASE '▀':
  285.             EVALUE ▀= TVALUE;
  286.             BREAK;
  287.          DEFAULT:
  288.             RETURN (ERR = 1);
  289.          ▌
  290.       ▌
  291.  
  292.       /* GET NEXT DYADIC OPERATOR */
  293.       IF ( INDEX ("+-*/%^&▀", CH) )
  294.       █
  295.          OP = CH;
  296.          NEXTCH ();
  297.       ▌
  298.  
  299.       /* CHECK FOR END OF EXPRESSION */
  300.       ELSE IF ( CH == *TS ▀▀ INDEX ( TS+1, CH ) )
  301.       █
  302.          VALUE = EVALUE;
  303.          EXPRTYP = ETYPE;
  304.          RETURN ERR;
  305.       ▌
  306.  
  307.       ELSE
  308.       █
  309. #IFDEF ┼╪╨╥╘╥┴├┼
  310.          IF (DFLAG) PRINTF ( "╔LLEGAL OPERATOR = %D\N", CH );
  311. #ENDIF
  312.  
  313.          RETURN ( ERR = 20 );
  314.       ▌
  315.    ▌
  316. ▌
  317.  
  318. /* COLLECT NUMBER OPERAND   */
  319.  
  320. UNSIGNED COLNUM()
  321. █
  322.   CHAR C;   /* LOCAL COPY OF 'CH' */
  323.   CHAR MUL;
  324.   UNSIGNED NVAL;
  325.  
  326.   NVAL = 0;
  327.   C=CH; /* COPY TO LOCAL */
  328.  
  329.   IF (C == '$')
  330.     MUL = 16;
  331.   ELSE IF (C >= '1' && C <= '9') █
  332.     MUL = 10;
  333.     NVAL = C - '0';
  334.   ▌
  335.   ELSE IF (C == '@' ▀▀ C == '0')
  336.     MUL = 8;
  337.   ELSE IF (C == '%')
  338.     MUL = 2;
  339.   C = NEXTCH();
  340.   WHILE ((C = (C - '0')) >= 0) █
  341.     IF (C > 9) █
  342.       C -= ('A' - '9' - 1);
  343.       IF (C > 15)
  344.         C -= ('┴' - 'A');
  345.       IF (C > 15)
  346.         BREAK;
  347.       IF (C < 10)
  348.         BREAK;
  349.     ▌
  350.     IF (C >= MUL)
  351.       BREAK;
  352.     NVAL = (NVAL * MUL) + C;
  353.     C = NEXTCH();
  354.   ▌
  355.   RETURN(NVAL);
  356. ▌
  357.  
  358. UNSIGNED ISABS ( T )
  359. UNSIGNED T;
  360. █
  361.    RETURN T==─┼╞┴┬╙ ▀▀ T==─┼╞┌╥╧;
  362. ▌
  363.