home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128Toolkit / CASSM.SFX / assm1.c < prev    next >
Encoding:
C/C++ Source or Header  |  1992-11-27  |  8.9 KB  |  450 lines
  1. /*
  2.  * 6502 ┴SSEMBLER - ├ODE SEGMENT 1
  3.  * ╞ILENAME: ASSM1.C
  4.  *
  5.  */
  6.  
  7. #INCLUDE <STDIO.H>
  8. #INCLUDE <STRINGS.H>
  9. #INCLUDE "ASSM.D1"
  10. #INCLUDE "ASSM.D2"
  11.  
  12.  
  13. STATIC UNSIGNED INCLUDING;
  14.  
  15. STATIC ╞╔╠┼╘┘╨┼ SVIPTR; /* SAVED INPUT FILE POINTER */
  16. STATIC UNSIGNED SVLINE;
  17.  
  18. STATIC CHAR *PROGNAME; /* NAME OF THIS ASSEMBLER */
  19.  
  20. MAIN(ARGC, ARGV)
  21. UNSIGNED ARGC;
  22. CHAR *ARGV[];
  23. █
  24.   CHAR C;
  25.   UNSIGNED CNT;
  26.   UNSIGNED I;
  27.  
  28.   PROGNAME = ARGV[0];
  29.   PRINTF("├/┴╙╙═ - VERSION 2.0 - 10/24/85\N");
  30.  
  31.   DFLAG = 0;
  32.   IFLAG = 0;
  33.   LFLAG = 0;
  34.   FFLAG = 1; /* DEFAULT FORMATTED LISTING */
  35.   CFLAG = 1; /* DEFAULT LIST EXCLUDED COND ASSEMBLY */
  36.   OFLAG = 1; /* DEFAULT = CREATE OBJECT */
  37.   SFLAG = 0;
  38.  
  39.   WHILE (--ARGC && (*++ARGV)[0] == '-')
  40.   █
  41.     FOR (I = 1; (C = TOLOWER((*ARGV)[I])) != '\0'; I++)
  42.     █
  43.       IF (C == 'D')     /* DEBUG FLAG */
  44.         DFLAG++;
  45.       ELSE IF (C == 'I')/* IGNORE .NLST FLAG */
  46.         IFLAG++;
  47.       ELSE IF (C == 'L')/* DISABLE LISTING FLAG */
  48.         LFLAG--;
  49.       ELSE IF (C == 'F')/* INHIBIT FORMATTING LISTING */
  50.         FFLAG = 0;
  51.       ELSE IF (C == 'C')/* NO LIST EXCLUDED CONDITIONAL ASSMBLY */
  52.         CFLAG = 0;
  53.       ELSE IF (C == 'O')/* OBJECT OUTPUT FLAG */
  54.         OFLAG = 0;
  55.       ELSE IF (C == 'S')/* LIST SYMBOL TABLE FLAG */
  56.         SFLAG = 1;
  57.       ELSE USAGE();
  58.     ▌
  59.   ▌
  60.  
  61.   IF (!ARGC) USAGE();
  62.  
  63.   WHILE ( ARGC )
  64.   █
  65.     PASS = ╞╔╥╙╘ñ╨┴╙╙;
  66.     FOR (I = 0; I < ╚╘╙╔┌┼; I++)
  67.       HASHñTBL[I] = ╬╒╠╠;
  68.     INITIALIZE( ARGC, ARGV );
  69.     WHILE (READLINE() != ┼╧╞)
  70.       ASSEMBLE();
  71.     WRAPUP();
  72.     PASS = ╠┴╙╘ñ╨┴╙╙;
  73.     IF (!ERRCNT)
  74.     █
  75.       IF (LFLAG == 0)
  76.         LFLAG++;
  77.       INITIALIZE ( ARGC, ARGV );
  78.       WHILE ( READLINE() != ┼╧╞ )
  79.       █
  80.         LISTED = 0;
  81.         ASSEMBLE();
  82.         IF (!LISTED)
  83.           PRINTLN();
  84.       ▌
  85.     ▌
  86.     WRAPUP();
  87.     STPRNT();
  88.     PRINTF( "┼ND OF ASSEMBLY, %D ERRORS\N", ERRCNT);
  89.     IF (DFLAG)
  90.     █
  91.       CNT = 0;
  92.       FOR (I = 0; I < ╚╘╙╔┌┼; I++)
  93.         IF (!HASHñTBL[I]) CNT++;
  94.       PRINTF( "%D UNUSED HASH TABLE POINTERS OUT OF %D\N",
  95.         CNT, ╚╘╙╔┌┼);
  96.     ▌
  97.     ARGC--;
  98.     ARGV++;
  99.   ▌
  100. ▌
  101.  
  102. /* INITIALIZE THIS PASS */
  103.  
  104. ╓╧╔─ INITIALIZE (AC, AV)
  105. UNSIGNED  AC;
  106. CHAR      *AV[];
  107. █
  108.   UNSIGNED LNG; 
  109.   CHAR *S,ONAME[30];
  110.  
  111.   S = *AV;
  112.   LNG = STRLEN(S); /* LOOK FOR '.A' SUFFIX */
  113.   IF (PASS == ╞╔╥╙╘ñ╨┴╙╙)
  114.     PRINTF("%S:\N", S);
  115.  
  116.   IF (LNG <= 2 ▀▀ STRCMP(&S[LNG-2],".A")) █
  117.     PRINTF("╬OT AN ASSEMBLER SOURCE (.A EXPECTED).\N");
  118.     QUIT();
  119.   ▌
  120.  
  121.   IPTR = FILEOPEN(S, "R");
  122.   STRNCPY ( FILENAME, S, LNG-2 );
  123.  
  124.   IF (PASS == ╠┴╙╘ñ╨┴╙╙ && OFLAG) █
  125. #IFDEF ╒╬╔╪
  126.     *ONAME = 0;
  127. #ELSE
  128.     STRCPY(ONAME,"@0:");
  129. #ENDIF
  130.     STRCAT(ONAME,FILENAME);
  131.     STRCAT(ONAME,".O");
  132.     OPTR = FILEOPEN(ONAME, "W");
  133.     PUTOC();    /* INITIALIZE OBJECT OUTPUT ROUTINES */
  134.   ▌
  135.  
  136.   INCLUDING = 0;
  137.   ERRCNT = 0;
  138.   LOCCNT = 0;
  139.   SLNUM = 0;
  140.   CASMFLG = 1;
  141. ▌
  142.  
  143. ╞╔╠┼╘┘╨┼ FILEOPEN(FNAME,DIR)
  144. CHAR *FNAME, *DIR;
  145. █
  146.   ╞╔╠┼╘┘╨┼ FD;
  147.   CHAR ERR;
  148.  
  149.   ERR = 0;
  150. #IFDEF ╒╬╔╪
  151.   IF ((FD = FOPEN(FNAME,DIR))==╬╒╠╠)
  152. #ELSE
  153.   IF ((FD = FOPEN(FNAME,DIR))==╬╒╠╠
  154.   ▀▀ (ERR = FERROR()))
  155. #ENDIF
  156.   █
  157.     PRINTF("├AN'T OPEN %S", FNAME);
  158.     IF (ERR) PRINTF(", ERROR = %D", ERR);
  159.     PUTCHAR('\N');
  160.     QUIT();
  161.   ▌
  162.   RETURN FD;
  163. ▌
  164.  
  165. ╓╧╔─ USAGE()
  166. █
  167.     PRINTF( "╒SAGE: %S [-CDFILOS] FILE.A [FILE.A ...]\N",PROGNAME);
  168.     QUIT();
  169. ▌
  170.  
  171. CHAR FIELD[] =
  172. █
  173.   ╙╞╔┼╠─,
  174.   ╙╞╔┼╠─ + ╙┬╧╠╙┌,
  175.   ╙╞╔┼╠─ + ╙┬╧╠╙┌ + 6,
  176.   ╙╞╔┼╠─ + ╙┬╧╠╙┌ + 15
  177. ▌;
  178.  
  179. /* READLINE READS AND FORMATS AN INPUT LINE, RETURNS
  180.  * -1 AT END OF FILE.
  181.  */
  182.  
  183. INT READLINE()
  184. █
  185.   UNSIGNED I;       /* POINTER INTO PRLNBUF */
  186.   UNSIGNED J;       /* POINTER TO CURRENT FIELD START       */
  187.   CHAR CMNT;        /* COMMENT LINE FLAG    */
  188.   UNSIGNED SPCNT;   /* CONSECUTIVE SPACE COUNTER    */
  189.   CHAR STRING;      /* ┴╙├╔╔ STRING FLAG    */
  190.   UNSIGNED TEMP1;   /* TEMP USED FOR LINE NUMBER CONVERSION */
  191.  
  192.   DO █
  193.     CPOS = ╙╞╔┼╠─;
  194.     TEMP1 = ++SLNUM;
  195.     FOR (I = 0; I < ╠┴╙╘ñ├╚ñ╨╧╙; I++)
  196.       PRLNBUF[I] = ' ';
  197.     I = 3;
  198.     WHILE (TEMP1) █ /* PUT SOURCE LINE NUMBER INTO PRLNBUF */
  199.       PRLNBUF[I--] = TEMP1 % 10 + '0';
  200.       TEMP1 /= 10;
  201.     ▌
  202.     IF (INCLUDING) PRLNBUF[4] = '#';
  203.     I = ╙╞╔┼╠─;
  204.     CMNT = 0; SPCNT = 0; STRING = 0;
  205.     J = 1;
  206.     WHILE ((CH = GETC(IPTR)) != '\N') █
  207.       PRLNBUF[I++] = CH;
  208.       IF (CH == ┼╧╞) █
  209.         IF (INCLUDING) █
  210.           PRLNBUF[--I] = '\0'; /* ERASE ┼╧╞ CHARACTER */
  211.           FCLOSE(IPTR);
  212.           IPTR = SVIPTR; /* RESTORE PREVIOUS FILE */
  213.           SLNUM = SVLINE;
  214.           INCLUDING--;
  215.         ▌
  216.         ELSE RETURN(┼╧╞);
  217.       ▌
  218.       ELSE IF (FFLAG == 0)
  219.         ;
  220.       ELSE IF ((CH == ' ') && (STRING == 0)) █
  221.         IF (SPCNT)
  222.           --I;
  223.         ELSE IF (CMNT == 0) █
  224.           ++SPCNT;
  225.           IF (I < FIELD[J])
  226.             I = FIELD[J];
  227.           IF (++J > 3) █
  228.             SPCNT = 0;
  229.             ++CMNT;
  230.           ▌
  231.         ▌
  232.       ▌
  233.  
  234.       ELSE IF ((CH == ';') && (STRING == 0)) █
  235.         SPCNT = 0;
  236.         IF (I == ╙╞╔┼╠─ + 1)
  237.           ++CMNT;
  238.         ELSE IF (PRLNBUF[I - 2] != '\'') █
  239.           ++CMNT;
  240.           PRLNBUF[I-1] = ' ';
  241.           IF (I < FIELD[3])
  242.             I = FIELD[3];
  243.           PRLNBUF[I++] = ';';
  244.         ▌
  245.       ▌
  246.       ELSE █
  247.         IF ((CH == '"') && (CMNT == 0))
  248.           STRING = STRING ^ 1;
  249.         SPCNT = 0;
  250.         IF (I >= ╠┴╙╘ñ├╚ñ╨╧╙ - 1)
  251.           --I;
  252.       ▌
  253.     ▌
  254.     PRLNBUF[I] = 0;
  255.     IF (PRLNBUF[╙╞╔┼╠─]=='#') INCLUDE();
  256.   ▌ WHILE (PRLNBUF[╙╞╔┼╠─]=='#');
  257.   RETURN(0);
  258. ▌
  259.  
  260. /* 
  261. ** ╨ROCESS INCLUDE STATEMENT.
  262. **
  263. */
  264. ╓╧╔─ INCLUDE()
  265. █
  266.   STATIC CHAR *ICLDSTR = "INCLUDE ";
  267.  
  268.   CHAR C,FLNM[30];
  269.   UNSIGNED I;
  270.  
  271.   IF (INCLUDING) █
  272.     PRINTF("╧NLY ONE INCLUDE LEVEL SUPPORTED!\N");
  273.     QUIT();
  274.   ▌
  275.   I=0;
  276.   WHILE (NEXTCH()!=' ' && CH==ICLDSTR[I]) I++;
  277.   IF (I!=7) █
  278. BAD:
  279.     PRINTF("%S\N",PRLNBUF);
  280.     PRINTF("┬AD INCLUDE SYNTAX\N");
  281.     QUIT();
  282.   ▌
  283.   SKIP();
  284.   IF ( !INDEX("\"<",(C=CH)) ) GOTO BAD;
  285.   IF (PASS == ╠┴╙╘ñ╨┴╙╙)
  286.     PRINTLN();
  287.   IF (C=='<') C='>'; 
  288.   I=0;
  289.   WHILE (NEXTCH()!=C && CH)
  290.     FLNM[I++]=CH;
  291.   FLNM[I]='\0';
  292.   SVLINE = SLNUM;
  293.   SLNUM = 0;
  294.   SVIPTR = IPTR;
  295.   INCLUDING++;
  296. #IFDEF ╒╬╔╪
  297.   IF ((IPTR=FILEOPEN(FLNM,"R")) == ╬╒╠╠)
  298. #ELSE
  299.   IF ((IPTR=OPENFILE(FLNM,"R")) == ╬╒╠╠ ▀▀ FERROR())
  300. #ENDIF
  301.   █
  302.     PRINTF("├AN'T OPEN INCLUDE: %S\N",FLNM);
  303.     QUIT();
  304.   ▌
  305. ▌
  306.  
  307. /*
  308. ** 08/04/85 - ├ENTRALIZE ERROR STRINGS
  309. ** TO AVOID REDUNDANCY AND ELIMINATE
  310. ** 'PSEUDO-XREFS' IN OTHER OBJECTS.
  311. */
  312. ╓╧╔─ ERROR(CODE)
  313. UNSIGNED CODE;
  314. █
  315. STATIC CHAR *ERRMSG[] = █
  316. /*  0 */ "╒╬╦╬╧╫╬ ┼╥╥╧╥!!!",
  317. /*  1 */ "╔NTERNAL ERROR",
  318. /*  2 */ "╔NVALID OPERATION CODE",
  319. /*  3 */ "┴,╪,┘ ARE RESERVED SYMBOLS",
  320. /*  4 */ "╙YMBOL TABLE OVERFLOW",
  321. /*  5 */ "─UPLICATE DEFINITION",
  322. /*  6 */ "╙YNC ERROR",
  323. /*  7 */ "┬RANCH OUT OF RANGE",
  324. /*  8 */ "═ISSING OPERAND",
  325. /*  9 */ "╔NVALID ADDRESSING MODE",
  326. /* 10 */ "═ISSING STRING TERMINATOR",
  327. /* 11 */ "╓ALUE ERROR",
  328. /* 12 */ "╒NDEFINED SYMBOL",
  329. /* 13 */ "╙YMBOL REQUIRED",
  330. /* 14 */ "═ULTIPLY DEFINED",
  331. /* 15 */ "╥ELOCATION ERROR",
  332. /* 16 */ "├OND ASSBLY NESTED TOO DEEPLY",
  333. /* 17 */ "╒NBALANCED PARENTHESES",
  334. /* 18 */ "─IVIDE BY ZERO",
  335. /* 19 */ "╚I/╠O OPERATOR MUST BE FIRST",
  336. /* 20 */ "╔NVALID OPERAND FIELD",
  337. /* 21 */ "╧UT OF MEMORY",
  338. /* 22 */ ".FI WITHOUT .IF",
  339. /* 23 */ "╠ABEL REQUIRED",
  340. /* 24 */ "╠ABEL NOT ALLOWED"
  341. ▌;
  342.  
  343.   PRINTF("%S\N",PRLNBUF);
  344.   LISTED = 1;
  345.  
  346. /* ╧UTPUT A POSITION MARKER */
  347.  
  348.   PRINTF ("%*S!\N", CPOS, "");
  349.   IF (CODE<1 ▀▀ CODE>24) CODE = 0;
  350.   PRINTF("%2D %S\N\N", CODE, ERRMSG[CODE]);
  351.  
  352.   ERRCNT++;
  353. ▌
  354.  
  355. /*
  356.  * WRAPUP() CLOSES THE SOURCE,
  357.  * OUTPUTS REMAINING OBJECT DATA AND
  358.  * CLOSES THE OBJECT FILE.
  359.  */
  360.  
  361. ╓╧╔─ WRAPUP()
  362. █
  363.   FCLOSE(IPTR);
  364.  
  365.   IF (PASS == ╠┴╙╘ñ╨┴╙╙ && OFLAG && !ERRCNT) █
  366.     PUTRECS(0); /* RELOCATION DATA */
  367.     PUTRECS(1); /* EXTERNAL IDENTIFIERS */
  368.     PUTRECS(2); /* EXTERNAL REFERENCES */
  369.     PUTRECS(3); /* DATA BLOCKS */
  370.     FCLOSE(OPTR);
  371.   ▌
  372.  
  373.   RETURN;
  374. ▌
  375.  
  376. /* SYMBOL TABLE PRINT
  377.  */
  378.  
  379. ╓╧╔─ STPRNT()
  380. █
  381.   STATIC CHAR SYMTP[] = █
  382.     /* ??????  */ '?',
  383.     /* ╒╬─┼╞   */ '╒',
  384.     /* ─┼╞┌╥╧  */ '┌',
  385.     /* ═─┼╞    */ '═',
  386.     /* ─┼╞┴┬╙  */ '┴',
  387.     /* ─┼╞╥┼╠  */ '╥',
  388.     /* ╪╥┼╞    */ '╪'
  389.   ▌;
  390.  
  391.   CHAR I,J;
  392.   STRUCT SYMTYPE *PTR, *NXTPTR;
  393.  
  394.   IF (SFLAG)
  395.     PRINTF("\N╙┘═┬╧╠ ╘┴┬╠┼:\N");
  396.   J = 1;
  397.   FOR (I=0; I<╚╘╙╔┌┼; I++) █
  398.     FOR (PTR = HASHñTBL[I]; PTR ; PTR=NXTPTR) █
  399.       IF (SFLAG)
  400.       █
  401.         PRINTF("%-*S%04X %C", ╙┬╧╠╙┌,
  402.         PTR->NAME,PTR->VALUE,
  403.         SYMTP[PTR->FLAG]);
  404.         IF (PTR->XDFLAG)
  405.           PUTCHAR('─');
  406.         ELSE
  407.           PUTCHAR(' ');
  408.         IF (J ^= 1)
  409.           PUTCHAR('\N');
  410.         ELSE PUTCHAR(' ');
  411.       ▌
  412.       NXTPTR = PTR->NEXT;
  413.       FREE(PTR->NAME);
  414.       FREE(PTR);
  415.     ▌
  416.   ▌
  417.   IF (SFLAG && !J)
  418.     PUTCHAR('\N');
  419. ▌
  420.  
  421. ╞╔╠┼╘┘╨┼ OPENFILE(NAME,HOW)
  422. CHAR *NAME,HOW;
  423. █
  424.   CHAR *XNAME;
  425.   CHAR C;
  426.   UNSIGNED DVC;
  427.  
  428.   XNAME = NAME; /* COPY POINTER */
  429.   DVC = 8;  /* DEFAULT IS DEVICE 8 */
  430.   IF ((C=*XNAME) == '#') █
  431.     XNAME++;
  432.     IF (((C=*XNAME) == '8') ▀▀ ((C=*XNAME) == '9')) █
  433.       XNAME++;
  434.       DVC = (8 + (C - '8'));
  435.       IF (*XNAME==':') XNAME++;
  436.       ELSE █
  437.         PRINTF("MISSING ':' IN DEVICE SPECIFICATION\N%S\N",XNAME);
  438.         RETURN ╬╒╠╠;
  439.         ▌
  440.       ▌
  441.     ELSE █
  442.       PRINTF("ILLEGAL DEVICE NUMBER:\N%S\N",XNAME);
  443.       RETURN ╬╒╠╠;
  444.       ▌
  445.     ▌
  446.  
  447.   DEVICE(DVC);
  448.   RETURN (FOPEN(XNAME,HOW));
  449. ▌
  450.