home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128Toolkit / CASSM.SFX / assm2.c < prev    next >
Encoding:
C/C++ Source or Header  |  1992-11-27  |  5.8 KB  |  342 lines
  1. /*
  2.  * 6502 ┴SSEMBLER - ├ODE ╙EGMENT 2
  3.  * ╞ILENAME: ASSM2.C
  4.  *
  5.  */
  6.  
  7. #INCLUDE <STDIO.H>
  8. #INCLUDE <STRINGS.H>
  9.  
  10. #INCLUDE "ASSM.D1"
  11. #INCLUDE "ASSM.D2"
  12.  
  13. EXTERN CHAR *OPMNEM[];
  14. EXTERN UNSIGNED OPTAB[];
  15.  
  16. STRUCT SYMTYPE *STLOOK();
  17. STRUCT SYMTYPE *STINSTAL();
  18.  
  19. STATIC UNSIGNED SYMLEN;
  20.  
  21. /* ┴DVANCE LINE POINTER TO NEXT CHARACTER AND STORE CHARACTER IN 'CH' */
  22. CHAR NEXTCH()
  23. █
  24.   RETURN((CH = PRLNBUF[++CPOS]));
  25. ▌
  26.  
  27.  
  28. /* ╔NSURE WE HAVE THE CURRENT CHARACTER */
  29.  
  30. CHAR GETCH()
  31. █
  32.   RETURN((CH = PRLNBUF[CPOS]));
  33. ▌
  34.  
  35. /* ╒NCONDITIONAL SKIP TO NEXT NON-BLANK */
  36. CHAR SKIP()
  37. █
  38.   WHILE (NEXTCH()==' ');
  39.   RETURN (CH);
  40. ▌
  41.  
  42. /* ├ONDITIONAL SKIP TO NEXT NON-BLANK */
  43. CHAR CSKIP()
  44. █
  45.   IF (CH==' ') SKIP();
  46.   RETURN (CH);
  47. ▌
  48.  
  49. CHAR TOLOWER ( C )
  50. CHAR C;
  51. █
  52.   RETURN (C>='┴' && C<='┌'? C+'A'-'┴': C);
  53. ▌
  54.  
  55. /* TRANSLATE SOURCE LINE TO MACHINE LANGUAGE */
  56.  
  57. ╓╧╔─ ASSEMBLE()
  58. █
  59.   INT FLG;
  60.  
  61.   CPOS = ╙╞╔┼╠─; /* SET STARTING POSITION */
  62.   GETCH();       /* GET STARTING CHARACTER */
  63.  
  64.   IF ((CH == ';') ▀▀ (CH == 0))
  65.     RETURN;
  66.   LABLPTR = ╬╒╠╠;
  67.   IF ( COLSYM() ) LABLPTR = STLOOK();
  68.  
  69.   CSKIP();
  70.  
  71.   IF ((FLG = OPLOOK()) >= 0 && OPFLG == ├┴╙╙═)
  72.   █
  73.     CASSM();
  74.     RETURN;
  75.   ▌
  76.   IF (NOASM())
  77.   █
  78.     LISTED ▀= !CFLAG;
  79.     RETURN;
  80.   ▌
  81.  
  82.   IF (FLG < 0) █
  83.     LABLDEF(LOCCNT,─┼╞╥┼╠);
  84.     IF (FLG == -1)
  85.       ERROR(2); /* INVALID OPCODE */
  86.     IF ((FLG == -2) && (PASS == ╠┴╙╘ñ╨┴╙╙))
  87.       IF (LABLPTR)
  88.         LOADLC(LOCCNT, 1);
  89.     RETURN;
  90.   ▌
  91.   IF (OPFLG == ╨╙┼╒─╧)
  92.     PSEUDO();
  93.   ELSE █
  94.     LABLDEF(LOCCNT,─┼╞╥┼╠);
  95.     IF (OPFLG == ├╠┴╙╙1)
  96.       CLASS1();
  97.     ELSE IF (OPFLG == ├╠┴╙╙2)
  98.       CLASS2();
  99.     ELSE CLASS3();
  100.   ▌
  101.   RETURN;
  102. ▌
  103.  
  104. /* PRINTLINE PRINTS THE CONTENTS OF PRLNBUF */
  105.  
  106. ╓╧╔─ PRINTLN()
  107. █
  108.   IF (LFLAG > 0)
  109.     PRINTF("%S\N", PRLNBUF);
  110. ▌
  111.  
  112. /* COLSYM() COLLECTS A SYMBOL FROM PRLNBUF INTO SYMBOL[],
  113.  *    LEAVES PRLNBUF POINTER AT FIRST INVALID SYMBOL CHARACTER,
  114.  *    RETURNS
  115.  *      SYMBOL LENGTH, OR
  116.  *      0 => NO SYMBOL COLLECTED
  117.  */
  118.  
  119. UNSIGNED COLSYM()
  120. █
  121.   UNSIGNED I,VALID;
  122.  
  123.   VALID = 1;
  124.   I = 0;
  125.   WHILE (VALID) █
  126.     IF ( ISLSTRT() );
  127.     ELSE IF (I >= 1 && INDEX("0123456789$",CH));
  128.     ELSE VALID = 0;
  129.     IF (VALID) █
  130.       IF (I < ╙┬╧╠╙┌ )
  131.         SYMBOL[I++] = CH;
  132.       NEXTCH();
  133.     ▌
  134.   ▌
  135.   IF (I == 1 && INDEX("┴A╪X┘Y", *SYMBOL)) █
  136.     ERROR(3); /* RESERVED SYMBOL */
  137.     I = 0;
  138.   ▌
  139.   SYMBOL[I] = 0;
  140.   RETURN(I);
  141. ▌
  142.  
  143. UNSIGNED ISLSTRT ()
  144. █
  145.   CHAR C;
  146.  
  147.   C = TOLOWER( CH );
  148.   RETURN (0 != INDEX("ñ.ABCDEFGHIJKLMNOPQRSTUVWXYZ", C));
  149. ▌
  150.  
  151. /* SYMBOL TABLE LOOKUP
  152.  *      IF FOUND, RETURN POINTER TO SYMBOL
  153.  *      ELSE, INSTALL SYMBOL AS UNDEFINED, AND RETURN POINTER
  154.  */
  155.  
  156. STRUCT SYMTYPE *STLOOK()
  157. █
  158.   CHAR *SYM;
  159.   STRUCT SYMTYPE *PTR;
  160.   INT HASHV;
  161.  
  162.   HASHV = 0;
  163.  
  164.   FOR (SYM=SYMBOL; *SYM ; SYM++)
  165.     HASHV += *SYM;
  166.   SYMLEN = SYM - SYMBOL;
  167.  
  168.   HASHV %= ╚╘╙╔┌┼;
  169.   FOR (PTR=HASHñTBL[HASHV]; PTR ; PTR = PTR->NEXT) █
  170.     IF (!STRCMP(SYMBOL,PTR->NAME))
  171.       RETURN(PTR);
  172.   ▌
  173.   
  174.   RETURN(STINSTAL(HASHV));
  175. ▌
  176.  
  177. /*  INSTALL SYMBOL
  178.  */
  179. STRUCT SYMTYPE *STINSTAL(HV)
  180. INT HV;
  181. █
  182.   STRUCT SYMTYPE *NEWSYM;
  183.  
  184.   NEWSYM = (STRUCT SYMTYPE *) MAKEREC(SIZEOF(STRUCT SYMTYPE));
  185.  
  186.   NEWSYM->FLAG = ╒╬─┼╞;
  187.   NEWSYM->XDFLAG = 0;
  188.   NEWSYM->NAME = (CHAR *) MAKEREC(SYMLEN+1);
  189.   STRCPY(NEWSYM->NAME,SYMBOL);
  190.   NEWSYM->VALUE = 0;
  191.   NEWSYM->NEXT = HASHñTBL[HV];
  192.   HASHñTBL[HV] = NEWSYM; /* PUT AT HEAD OF LIST */
  193.  
  194.   RETURN(NEWSYM);
  195. ▌
  196.  
  197. /* OPERATION CODE TABLE LOOKUP
  198.  * RETURNS:
  199.  *      INDEX IN 'OPMNEM' OF SYMBOL, IF VALID
  200.  *      -1 IF INVALID
  201.  *      -2 IF NO OPCODE COLLECTED
  202.  */
  203.  
  204. INT OPLOOK()
  205. █
  206.   UNSIGNED C,I;
  207.   UNSIGNED J;
  208.   INT K;
  209.   CHAR TEMP[╧╨╙┌+1];
  210.  
  211.   FOR (I=0;I<╧╨╙┌;I++) 
  212.     TEMP[I] = ' ';
  213.  
  214.   I = 0;
  215.   J = 0;
  216.   WHILE( CH && !INDEX(" ;", CH) ) █
  217.     C = TOLOWER(CH);
  218.     IF ( INDEX(".=ABCDEFGHIJKLMNOPQRSTUVWXYZ", C) )
  219.        TEMP[J] = C;
  220.     ELSE RETURN(-1);
  221.  
  222.     IF (++J > ╧╨╙┌)     /* TOO LONG? */
  223.         RETURN(-1);
  224.  
  225.     IF (C == '=')
  226.       BREAK;
  227.  
  228.     NEXTCH();
  229.   ▌
  230.   IF (J==0) RETURN(-2); /* NO OPCODE FIELD */
  231.  
  232. /* USE VARIABLES AS FOLLOWS:
  233.  * I = MNEMONIC TABLE INDEX
  234.  * J = 2 * I FOR OPTAB INDEX
  235.  * K = COMPARE DESIGNATOR
  236.  */
  237.  
  238.   TEMP[╧╨╙┌] = '\0'; /* TERMINATE WITH NULL */ 
  239.  
  240. /* ─O THIS QUICK AND DIRTY FOR NOW... */
  241.  
  242.   FOR (I=0;I<╬╒═╧╨╙;I++) █
  243.     
  244.     IF (!(K=STRCMP(TEMP,OPMNEM[I]))) █
  245.       J = I << 1 ; /* FAST MULTIPLY X 2 */
  246.       OPFLG = OPTAB[J];
  247.       OPVAL = OPTAB[++J];
  248.       RETURN(I);
  249.     ▌
  250.     IF (K<0) RETURN(-1); /* BEYOND? */
  251.   ▌
  252.   RETURN(-1);
  253. ▌
  254.  
  255. /* LOAD 16 BIT VALUE IN PRINTABLE FORM INTO PRLNBUF */
  256.  
  257. ╓╧╔─ LOADLC(VAL, F)
  258. UNSIGNED VAL,F;
  259. █
  260.   CHAR I;
  261.   CHAR *P1, *P2;
  262.   STATIC CHAR POS[] = █6, 13, 18▌;
  263.  
  264.   I = POS[ F ];
  265.   HEXCON(4, VAL);
  266.   FOR (P1 = &PRLNBUF[I],P2=HEX; P2<HEX+4; )
  267.     *P1++ = *P2++;
  268. ▌
  269.  
  270.  
  271. /* LOAD VALUE IN HEX INTO PRLNBUF[CONTENTS[I]] */
  272.  
  273. ╓╧╔─ LOADV(VAL,F)
  274. UNSIGNED  VAL,F;
  275. █
  276.   CHAR I;
  277.  
  278.   I = 3*F;
  279.   HEXCON(2, VAL);
  280.   PRLNBUF[13 + I] = HEX[0];
  281.   PRLNBUF[14 + I] = HEX[1];
  282. ▌
  283.  
  284. /* CONVERT NUMBER SUPPLIED AS ARGUMENT TO HEXADECIMAL IN HEX[DIGIT-1] (LSD)
  285.     THROUGH HEX[0] (MSD)      */
  286.  
  287. ╓╧╔─ HEXCON(DIGIT, NUM)
  288.   UNSIGNED DIGIT,NUM;
  289. █
  290.   HEX[DIGIT] = 0;
  291.   WHILE (DIGIT)
  292.   █
  293.     HEX[--DIGIT] = (NUM & 0X0F) + '0';
  294.     IF (HEX[DIGIT] > '9')
  295.       HEX[DIGIT] += '┴' -'9' - 1;
  296.     NUM >>= 4;
  297.   ▌
  298. ▌
  299.  
  300. /* ASSIGN <VALUE> TO LABEL POINTED TO BY LABLPTR,
  301.  *      CHECKING FOR VALID DEFINITION, ETC.
  302.  * CALLED WITH:
  303.  *          VALUE TO BE ASSIGNED
  304.  *          LABEL TYPE (FLAG)
  305.  * RETURNS:
  306.  *          0 => SUCCESS
  307.  *          1 => MULTIPLY DEFINED LABEL
  308.  *          2 => SYNC ERROR
  309.  */
  310.  
  311. ╓╧╔─ LABLDEF(LVAL,LTYP)
  312. UNSIGNED LVAL,LTYP;
  313. █
  314.   IF (LABLPTR) █
  315.  
  316.     IF (PASS == ╞╔╥╙╘ñ╨┴╙╙) █
  317.       IF (LABLPTR->FLAG == ╒╬─┼╞ ) █
  318.         LABLPTR->VALUE = LVAL;
  319.         LABLPTR->FLAG = LTYP;
  320.       ▌
  321.       ELSE █
  322.         LABLPTR->FLAG = ═─┼╞;
  323.         LABLPTR->VALUE = 0;
  324.         ERROR(5); /* MULTIPLY DEFINED */
  325.         RETURN;
  326.       ▌
  327.     ▌
  328.     ELSE █
  329.       IF (PASS == ╠┴╙╘ñ╨┴╙╙) █
  330.         IF (LABLPTR->VALUE != LVAL) █
  331.           ERROR(6);
  332.           RETURN;
  333.         ▌
  334.         ELSE █ /* ┴DD ╪─┼╞ TO RELOC. INFO? */
  335.           IF (LABLPTR->XDFLAG) ADDDEF(LABLPTR);
  336.         ▌
  337.       ▌
  338.     ▌
  339.   ▌
  340.   RETURN;
  341. ▌
  342.