home *** CD-ROM | disk | FTP | other *** search
/ Crawly Crypt Collection 1 / crawlyvol1.bin / program / compiler / fasbin21 / fas_src / fasdiff.st < prev    next >
Text File  |  1992-11-18  |  24KB  |  782 lines
  1. diff +recursive -c e:\fas_orig/as1805/as1805.y ./as1805/as1805.y
  2. *** e:\fas_orig/as1805/as1805.y    Tue Dec 11 14:03:06 1990
  3. --- ./as1805/as1805.y    Wed Nov 18 16:33:32 1992
  4. ***************
  5. *** 38,43 ****
  6. --- 38,44 ----
  7.   #include <stdio.h>
  8.   #include "frasmdat.h"
  9.   #include "fragcon.h"
  10. + #include "proto.h"
  11.   
  12.   #define yylex lexintercept
  13.   
  14. diff +recursive -c e:\fas_orig/as2650/as2650.y ./as2650/as2650.y
  15. *** e:\fas_orig/as2650/as2650.y    Tue Dec 11 14:40:06 1990
  16. --- ./as2650/as2650.y    Wed Nov 18 16:33:38 1992
  17. ***************
  18. *** 38,43 ****
  19. --- 38,44 ----
  20.   #include <stdio.h>
  21.   #include "frasmdat.h"
  22.   #include "fragcon.h"
  23. + #include "proto.h"
  24.   
  25.   #define yylex lexintercept
  26.   
  27. diff +recursive -c e:\fas_orig/as6301/as6301.y ./as6301/as6301.y
  28. *** e:\fas_orig/as6301/as6301.y    Tue Dec 11 14:44:52 1990
  29. --- ./as6301/as6301.y    Wed Nov 18 16:33:52 1992
  30. ***************
  31. *** 38,43 ****
  32. --- 38,44 ----
  33.   #include <stdio.h>
  34.   #include "frasmdat.h"
  35.   #include "fragcon.h"
  36. + #include "proto.h"
  37.   
  38.   #define yylex lexintercept
  39.   
  40. diff +recursive -c e:\fas_orig/as6502/as6502.y ./as6502/as6502.y
  41. *** e:\fas_orig/as6502/as6502.y    Tue Dec 11 14:48:06 1990
  42. --- ./as6502/as6502.y    Wed Nov 18 16:33:58 1992
  43. ***************
  44. *** 38,43 ****
  45. --- 38,44 ----
  46.   #include <stdio.h>
  47.   #include "frasmdat.h"
  48.   #include "fragcon.h"
  49. + #include "proto.h"
  50.   
  51.   #define yylex lexintercept
  52.   
  53. diff +recursive -c e:\fas_orig/as6805/as6805.y ./as6805/as6805.y
  54. *** e:\fas_orig/as6805/as6805.y    Tue Dec 11 14:35:06 1990
  55. --- ./as6805/as6805.y    Wed Nov 18 16:34:06 1992
  56. ***************
  57. *** 38,43 ****
  58. --- 38,44 ----
  59.   #include <stdio.h>
  60.   #include "frasmdat.h"
  61.   #include "fragcon.h"
  62. + #include "proto.h"
  63.   
  64.   #define yylex lexintercept
  65.   
  66. diff +recursive -c e:\fas_orig/as6809/as6809.y ./as6809/as6809.y
  67. *** e:\fas_orig/as6809/as6809.y    Tue Dec 11 14:31:28 1990
  68. --- ./as6809/as6809.y    Wed Nov 18 16:34:12 1992
  69. ***************
  70. *** 38,43 ****
  71. --- 38,44 ----
  72.   #include <stdio.h>
  73.   #include "frasmdat.h"
  74.   #include "fragcon.h"
  75. + #include "proto.h"
  76.   
  77.   #define yylex lexintercept
  78.   
  79. diff +recursive -c e:\fas_orig/as6811/as6811.y ./as6811/as6811.y
  80. *** e:\fas_orig/as6811/as6811.y    Tue Dec 11 14:27:08 1990
  81. --- ./as6811/as6811.y    Wed Nov 18 16:34:22 1992
  82. ***************
  83. *** 38,43 ****
  84. --- 38,44 ----
  85.   #include <stdio.h>
  86.   #include "frasmdat.h"
  87.   #include "fragcon.h"
  88. + #include "proto.h"
  89.   
  90.   #define yylex lexintercept
  91.   
  92. diff +recursive -c e:\fas_orig/as7000/as7000.y ./as7000/as7000.y
  93. *** e:\fas_orig/as7000/as7000.y    Tue Dec 11 14:12:36 1990
  94. --- ./as7000/as7000.y    Wed Nov 18 16:34:28 1992
  95. ***************
  96. *** 41,46 ****
  97. --- 41,47 ----
  98.   #include <stdio.h>
  99.   #include "frasmdat.h"
  100.   #include "fragcon.h"
  101. + #include "proto.h"
  102.   
  103.   #define yylex lexintercept
  104.   
  105. diff +recursive -c e:\fas_orig/as8048/as8048.y ./as8048/as8048.y
  106. *** e:\fas_orig/as8048/as8048.y    Tue Dec 11 14:16:00 1990
  107. --- ./as8048/as8048.y    Wed Nov 18 16:34:36 1992
  108. ***************
  109. *** 38,43 ****
  110. --- 38,44 ----
  111.   #include <stdio.h>
  112.   #include "frasmdat.h"
  113.   #include "fragcon.h"
  114. + #include "proto.h"
  115.   
  116.   #define yylex lexintercept
  117.   
  118. diff +recursive -c e:\fas_orig/as8051/as8051.y ./as8051/as8051.y
  119. *** e:\fas_orig/as8051/as8051.y    Tue Dec 11 14:09:10 1990
  120. --- ./as8051/as8051.y    Wed Nov 18 16:34:42 1992
  121. ***************
  122. *** 38,43 ****
  123. --- 38,44 ----
  124.   #include <stdio.h>
  125.   #include "frasmdat.h"
  126.   #include "fragcon.h"
  127. + #include "proto.h"
  128.   
  129.   #define yylex lexintercept
  130.   
  131. diff +recursive -c e:\fas_orig/as8096/as8096.y ./as8096/as8096.y
  132. *** e:\fas_orig/as8096/as8096.y    Tue Dec 11 14:23:42 1990
  133. --- ./as8096/as8096.y    Wed Nov 18 16:34:50 1992
  134. ***************
  135. *** 38,43 ****
  136. --- 38,44 ----
  137.   #include <stdio.h>
  138.   #include "frasmdat.h"
  139.   #include "fragcon.h"
  140. + #include "proto.h"
  141.   
  142.   #define yylex lexintercept
  143.   
  144. diff +recursive -c e:\fas_orig/asz8/asz8.y ./asz8/asz8.y
  145. *** e:\fas_orig/asz8/asz8.y    Tue Dec 11 14:06:56 1990
  146. --- ./asz8/asz8.y    Wed Nov 18 16:34:58 1992
  147. ***************
  148. *** 34,43 ****
  149. --- 34,45 ----
  150.               September 12, 1990 - short file names
  151.               September 14, 1990 - short variable names
  152.               September 17, 1990 - use yylex as external
  153. +             December  24, 1990 - fixed error in REG/RREG (output was 0x00)  MS
  154.   */
  155.   #include <stdio.h>
  156.   #include "frasmdat.h"
  157.   #include "fragcon.h"
  158. + #include "proto.h"
  159.   
  160.   #define yylex lexintercept
  161.   
  162. ***************
  163. *** 662,669 ****
  164.   
  165.               if( ( $1 -> value & REGDEFDBL) && ( $1 -> value & 1) )
  166.                   fraerror("double register not on even boundry");
  167. ! 
  168. !             prtequvalue("C: 0x%x\n",REGBITS & ((int) $1->value));
  169.           }
  170.           else
  171.           {
  172. --- 664,671 ----
  173.   
  174.               if( ( $1 -> value & REGDEFDBL) && ( $1 -> value & 1) )
  175.                   fraerror("double register not on even boundry");
  176. ! /* *** error in original Yaccfile: %x replaced by %lx  MS */
  177. !             prtequvalue("C: 0x%lx \n",REGBITS & ((int) $1->value));
  178.           }
  179.           else
  180.           {
  181. diff +recursive -c e:\fas_orig/asz80/asz80.y ./asz80/asz80.y
  182. *** e:\fas_orig/asz80/asz80.y    Thu Dec 13 13:11:04 1990
  183. --- ./asz80/asz80.y    Wed Nov 18 16:35:06 1992
  184. ***************
  185. *** 38,43 ****
  186. --- 38,44 ----
  187.   #include <stdio.h>
  188.   #include "frasmdat.h"
  189.   #include "fragcon.h"
  190. + #include "proto.h"
  191.   
  192.   #define yylex lexintercept
  193.   
  194. Only in .: fasdiff4
  195. diff +recursive -c e:\fas_orig/fraosub.c ./fraosub.c
  196. *** e:\fas_orig/fraosub.c    Tue Dec 11 13:58:58 1990
  197. --- ./fraosub.c    Wed Nov 18 16:35:12 1992
  198. ***************
  199. *** 27,32 ****
  200. --- 27,33 ----
  201.   #include <stdio.h>
  202.   #include "frasmdat.h"
  203.   #include "fragcon.h"
  204. + #include "proto.h"
  205.   
  206.   #define OUTRESULTLEN 256
  207.   #define NUMHEXPERL 16
  208. diff +recursive -c e:\fas_orig/frapsub.c ./frapsub.c
  209. *** e:\fas_orig/frapsub.c    Tue Dec 11 13:59:00 1990
  210. --- ./frapsub.c    Wed Nov 18 16:35:18 1992
  211. ***************
  212. *** 24,30 ****
  213. --- 24,32 ----
  214.   
  215.   #include "fragcon.h"
  216.   #include <stdio.h>
  217. + #include <stdlib.h>
  218.   #include "frasmdat.h"
  219. + #include "proto.h"
  220.   
  221.   #define STRALLOCSZ 4096
  222.   
  223. diff +recursive -c e:\fas_orig/frasmain.c ./frasmain.c
  224. *** e:\fas_orig/frasmain.c    Tue Dec 11 13:59:00 1990
  225. --- ./frasmain.c    Wed Nov 18 16:36:40 1992
  226. ***************
  227. *** 1,12 ****
  228.   /*
  229.   HEADER:     ;
  230.   TITLE:         Frankenstein Cross Assemblers;
  231. ! VERSION:     2.0;
  232.   DESCRIPTION: "    Reconfigurable Cross-assembler producing Intel (TM)
  233.           Hex format object records.  ";
  234.   KEYWORDS:     cross-assemblers, 1805, 2650, 6301, 6502, 6805, 6809, 
  235.           6811, tms7000, 8048, 8051, 8096, z8, z80;
  236. ! SYSTEM:     UNIX, MS-Dos ;
  237.   FILENAME:     frasmain.c;
  238.   WARNINGS:     "This software is in the public domain.  
  239.           Any prior copyright claims are relinquished.  
  240. --- 1,12 ----
  241.   /*
  242.   HEADER:     ;
  243.   TITLE:         Frankenstein Cross Assemblers;
  244. ! VERSION:     2.1;
  245.   DESCRIPTION: "    Reconfigurable Cross-assembler producing Intel (TM)
  246.           Hex format object records.  ";
  247.   KEYWORDS:     cross-assemblers, 1805, 2650, 6301, 6502, 6805, 6809, 
  248.           6811, tms7000, 8048, 8051, 8096, z8, z80;
  249. ! SYSTEM:     UNIX, MS-Dos, Atari ST;
  250.   FILENAME:     frasmain.c;
  251.   WARNINGS:     "This software is in the public domain.  
  252.           Any prior copyright claims are relinquished.  
  253. ***************
  254. *** 33,47 ****
  255.   #define    Global
  256.   
  257.   #include <stdio.h>
  258.   #include "frasmdat.h"
  259.   
  260.   FILE * intermedf = (FILE *) NULL;
  261. - char *interfn = 
  262.   #ifdef DOSTMP
  263. !  "frtXXXXXX";
  264.   #else
  265.    "/usr/tmp/frtXXXXXX";
  266.   #endif
  267.   char *hexfn, *loutfn;
  268.   int errorcnt = 0, warncnt = 0;
  269.   int listflag = FALSE, hexflag = FALSE, hexvalid = FALSE;
  270. --- 33,50 ----
  271.   #define    Global
  272.   
  273.   #include <stdio.h>
  274. + #include <stdlib.h>
  275.   #include "frasmdat.h"
  276. + #include "proto.h"
  277.   
  278.   FILE * intermedf = (FILE *) NULL;
  279.   #ifdef DOSTMP
  280. ! char interfn[256];
  281.   #else
  282. + char *interfn =
  283.    "/usr/tmp/frtXXXXXX";
  284.   #endif
  285. + 
  286.   char *hexfn, *loutfn;
  287.   int errorcnt = 0, warncnt = 0;
  288.   int listflag = FALSE, hexflag = FALSE, hexvalid = FALSE;
  289. ***************
  290. *** 54,59 ****
  291. --- 57,90 ----
  292.   #ifdef NOGETOPT
  293.   #include "getopt.h"
  294.   #endif
  295. + 
  296. + /* print a brief description of command line options */
  297. + usage(char *name)
  298. + {
  299. +     fprintf(stderr,"usage:\n"
  300. +         "%s [-o binary] [-l listing] [-s symbols] [-p type] [-d] input\n"
  301. +         "The input file must appear after the optional entries on the command line.\n"
  302. +         "If the file name is a single minus sign, the standard input is used.\n"
  303. +         "\n"
  304. +         "Listing File: -l filename\n"
  305. +         "An annotated listing will only be produced if an optional list file is\n"
  306. +         "provided.\n"
  307. +         "\n"
  308. +         "Hex Output File: -h filename or -o filename\n"
  309. +         "The binary output will only be produced if the optional file is provided.\n"
  310. +         "\n"
  311. +         "Symbol Listing File: -s filename\n"
  312. +         "The symbol table is dumped with one entry per line.\n"
  313. +         "\n"
  314. +         "Debug: -d   (Saves the intermediate files)\n"
  315. +         "\n"
  316. +         "Processor Selection: -p string\n"
  317. +         "The operand is scanned for unique substrings which identify the target\n"
  318. +         "processor. The CPU pseudo-operation has precedence over the -p option.\n"
  319. +         "\n"
  320. +         ,name);
  321. + }
  322. + 
  323.   main(argc, argv)
  324.       int argc;
  325.       char *(argv[]);
  326. ***************
  327. *** 69,78 ****
  328. --- 100,117 ----
  329.       return        exit(2) for error, exit(0) for OK
  330.   */
  331.   {
  332. +     extern char *defaultname;
  333.       extern char *optarg;
  334.       extern int optind;
  335.       int grv;
  336. + #ifdef DOSTMP
  337. +     char *p;
  338. + #endif
  339.   
  340. +     argv[0] = defaultname;  /* argv[0] not available on ST/TOS */
  341. +     fprintf(stderr,"Frankenstein Cross-Assembler %s V2.1 by Mark Zenier\n"
  342. +                    "Atari ST version by M. Schwingen\n",argv[0]);
  343. + 
  344.       grv = cpumatch(argv[0]);
  345.   
  346.       while( (grv = getopt(argc, argv, "dh:o:l:s:p:")) != EOF)
  347. ***************
  348. *** 133,144 ****
  349.       else
  350.       {
  351.           fprintf(stderr, "%s: no input file\n", argv[0]);
  352.           exit(1);
  353.       }
  354.   
  355.       if(listflag)
  356.       {
  357. !         if(strcmp(argv[optind], loutfn) == 0) 
  358.           {
  359.               fprintf(stderr, "%s: list file overwrites input %s\n",
  360.                   argv[0], loutfn);
  361. --- 172,184 ----
  362.       else
  363.       {
  364.           fprintf(stderr, "%s: no input file\n", argv[0]);
  365. +         usage(argv[0]);
  366.           exit(1);
  367.       }
  368.   
  369.       if(listflag)
  370.       {
  371. !         if(strcmp(argv[optind], loutfn) == 0)
  372.           {
  373.               fprintf(stderr, "%s: list file overwrites input %s\n",
  374.                   argv[0], loutfn);
  375. ***************
  376. *** 157,162 ****
  377. --- 197,215 ----
  378.           loutf = stdout;
  379.       }
  380.   
  381. + #ifdef DOSTMP
  382. +     p = getenv("TMP");
  383. +     if (p == 0)
  384. +         p = getenv("TEMP");
  385. +     if (p == 0)
  386. +         interfn[0] = 0;
  387. +     else
  388. +     {
  389. +         strcpy(interfn,p);
  390. +         strcat(interfn,"\\");
  391. +     }
  392. +     strcat(interfn,"frtXXXXX.tmp");
  393. + #endif
  394.       mktemp(interfn);
  395.       if( (intermedf = fopen(interfn, "w")) == (FILE *) NULL)
  396.       {
  397. diff +recursive -c e:\fas_orig/frasmdat.h ./frasmdat.h
  398. *** e:\fas_orig/frasmdat.h    Tue Dec 11 13:59:00 1990
  399. --- ./frasmdat.h    Wed Nov 18 17:10:58 1992
  400. ***************
  401. *** 174,180 ****
  402. --- 174,183 ----
  403.   char * savestring(), *findgen();
  404.   long    strtol();
  405.   void    reservedsym();
  406. + 
  407. + #ifndef __STDC__
  408.   char    *calloc(), *malloc();
  409. + #endif
  410.   
  411.   extern struct symel * endsymbol;
  412.   extern char ignosyn[] ;
  413. diff +recursive -c e:\fas_orig/fryylex.c ./fryylex.c
  414. *** e:\fas_orig/fryylex.c    Tue Dec 11 13:59:22 1990
  415. --- ./fryylex.c    Wed Nov 18 16:35:34 1992
  416. ***************
  417. *** 33,38 ****
  418. --- 33,39 ----
  419.   
  420.   #include <stdio.h>
  421.   #include "frasmdat.h"
  422. + #include "proto.h"
  423.   #include "fraytok.h"
  424.   
  425.   #ifndef DEBUG
  426. ***************
  427. *** 119,125 ****
  428.   #define     CXC25_BSLASH    25
  429.   #define  NUMCHARSETS    26
  430.   
  431. ! static char chartrantab[128] = {
  432.   /* 00 nul soh stx etx*/  CXC00_SKIP, CXC00_SKIP, CXC00_SKIP, CXC00_SKIP,
  433.   /* 04 eot enq ack bel*/  CXC00_SKIP, CXC00_SKIP, CXC00_SKIP, CXC00_SKIP,
  434.   /* 08 bs  ht  nl  vt */  CXC00_SKIP, CXC01_SPACE, CXC02_NL, CXC00_SKIP,
  435. --- 120,126 ----
  436.   #define     CXC25_BSLASH    25
  437.   #define  NUMCHARSETS    26
  438.   
  439. ! static char chartrantab[256] = {
  440.   /* 00 nul soh stx etx*/  CXC00_SKIP, CXC00_SKIP, CXC00_SKIP, CXC00_SKIP,
  441.   /* 04 eot enq ack bel*/  CXC00_SKIP, CXC00_SKIP, CXC00_SKIP, CXC00_SKIP,
  442.   /* 08 bs  ht  nl  vt */  CXC00_SKIP, CXC01_SPACE, CXC02_NL, CXC00_SKIP,
  443. ***************
  444. *** 151,157 ****
  445.   /* 70  p  q  r  s */  CXC03_LETTER, CXC21_OQ, CXC03_LETTER, CXC03_LETTER,
  446.   /* 74  t  u  v  w */  CXC03_LETTER, CXC03_LETTER, CXC03_LETTER, CXC03_LETTER,
  447.   /* 78  x  y  z  { */  CXC03_LETTER, CXC03_LETTER, CXC03_LETTER, CXC05_OTHER,
  448. ! /* 7c vb  }  ~  del*/  CXC05_OTHER, CXC05_OTHER, CXC03_LETTER, CXC00_SKIP } ;
  449.   
  450.   
  451.   #if DEBUG
  452. --- 152,190 ----
  453.   /* 70  p  q  r  s */  CXC03_LETTER, CXC21_OQ, CXC03_LETTER, CXC03_LETTER,
  454.   /* 74  t  u  v  w */  CXC03_LETTER, CXC03_LETTER, CXC03_LETTER, CXC03_LETTER,
  455.   /* 78  x  y  z  { */  CXC03_LETTER, CXC03_LETTER, CXC03_LETTER, CXC05_OTHER,
  456. ! /* 7c vb  }  ~  del*/  CXC05_OTHER, CXC05_OTHER, CXC03_LETTER, CXC00_SKIP,
  457. ! /* 80 */              CXC05_OTHER, CXC05_OTHER, CXC05_OTHER, CXC05_OTHER,
  458. ! /* 84 */              CXC05_OTHER, CXC05_OTHER, CXC05_OTHER, CXC05_OTHER,
  459. ! /* 88 */              CXC05_OTHER, CXC05_OTHER, CXC05_OTHER, CXC05_OTHER,
  460. ! /* 8c */              CXC05_OTHER, CXC05_OTHER, CXC05_OTHER, CXC05_OTHER,
  461. ! /* 90 */              CXC05_OTHER, CXC05_OTHER, CXC05_OTHER, CXC05_OTHER,
  462. ! /* 94 */              CXC05_OTHER, CXC05_OTHER, CXC05_OTHER, CXC05_OTHER,
  463. ! /* 98 */              CXC05_OTHER, CXC05_OTHER, CXC05_OTHER, CXC05_OTHER,
  464. ! /* 9c */              CXC05_OTHER, CXC05_OTHER, CXC05_OTHER, CXC05_OTHER,
  465. ! /* a0 */              CXC05_OTHER, CXC05_OTHER, CXC05_OTHER, CXC05_OTHER,
  466. ! /* a4 */              CXC05_OTHER, CXC05_OTHER, CXC05_OTHER, CXC05_OTHER,
  467. ! /* a8 */              CXC05_OTHER, CXC05_OTHER, CXC05_OTHER, CXC05_OTHER,
  468. ! /* ac */              CXC05_OTHER, CXC05_OTHER, CXC05_OTHER, CXC05_OTHER,
  469. ! /* b0 */              CXC05_OTHER, CXC05_OTHER, CXC05_OTHER, CXC05_OTHER,
  470. ! /* b4 */              CXC05_OTHER, CXC05_OTHER, CXC05_OTHER, CXC05_OTHER,
  471. ! /* b8 */              CXC05_OTHER, CXC05_OTHER, CXC05_OTHER, CXC05_OTHER,
  472. ! /* bc */              CXC05_OTHER, CXC05_OTHER, CXC05_OTHER, CXC05_OTHER,
  473. ! /* c0 */              CXC05_OTHER, CXC05_OTHER, CXC05_OTHER, CXC05_OTHER,
  474. ! /* c4 */              CXC05_OTHER, CXC05_OTHER, CXC05_OTHER, CXC05_OTHER,
  475. ! /* c8 */              CXC05_OTHER, CXC05_OTHER, CXC05_OTHER, CXC05_OTHER,
  476. ! /* cc */              CXC05_OTHER, CXC05_OTHER, CXC05_OTHER, CXC05_OTHER,
  477. ! /* d0 */              CXC05_OTHER, CXC05_OTHER, CXC05_OTHER, CXC05_OTHER,
  478. ! /* d4 */              CXC05_OTHER, CXC05_OTHER, CXC05_OTHER, CXC05_OTHER,
  479. ! /* d8 */              CXC05_OTHER, CXC05_OTHER, CXC05_OTHER, CXC05_OTHER,
  480. ! /* dc */              CXC05_OTHER, CXC05_OTHER, CXC05_OTHER, CXC05_OTHER,
  481. ! /* e0 */              CXC05_OTHER, CXC05_OTHER, CXC05_OTHER, CXC05_OTHER,
  482. ! /* e4 */              CXC05_OTHER, CXC05_OTHER, CXC05_OTHER, CXC05_OTHER,
  483. ! /* e8 */              CXC05_OTHER, CXC05_OTHER, CXC05_OTHER, CXC05_OTHER,
  484. ! /* ec */              CXC05_OTHER, CXC05_OTHER, CXC05_OTHER, CXC05_OTHER,
  485. ! /* f0 */              CXC05_OTHER, CXC05_OTHER, CXC05_OTHER, CXC05_OTHER,
  486. ! /* f4 */              CXC05_OTHER, CXC05_OTHER, CXC05_OTHER, CXC05_OTHER,
  487. ! /* f8 */              CXC05_OTHER, CXC05_OTHER, CXC05_OTHER, CXC05_OTHER,
  488. ! /* fc */              CXC05_OTHER, CXC05_OTHER, CXC05_OTHER, CXC05_OTHER } ;
  489.   
  490.   
  491.   #if DEBUG
  492. ***************
  493. *** 637,643 ****
  494.   
  495.           while( (nextchar = *frainptr++) != '\0' )
  496.           {
  497. !             charset = chartrantab[nextchar & 0x7f];
  498.               do {
  499.                   thisact =  & characttab [scanstate][charset];
  500.   
  501. --- 670,676 ----
  502.   
  503.           while( (nextchar = *frainptr++) != '\0' )
  504.           {
  505. !             charset = chartrantab[nextchar & 0xff];
  506.               do {
  507.                   thisact =  & characttab [scanstate][charset];
  508.   
  509. Only in .: getopt.c
  510. diff +recursive -c e:\fas_orig/makefile.st ./makefile.st
  511. *** e:\fas_orig/makefile.st    Wed Nov 18 17:45:44 1992
  512. --- ./makefile.st    Wed Nov 18 16:03:24 1992
  513. ***************
  514. *** 0 ****
  515. --- 1,109 ----
  516. + # HEADER:    ;
  517. + # TITLE:    Frankenstein Cross Assemblers;
  518. + # VERSION:     2.0;
  519. + # SYSTEM:    Atari ST/TOS;
  520. + # FILENAME:    Makefile ;
  521. + # DESCRIPTION: "Reconfigurable Cross-assembler producing Intel (TM)
  522. + #        Hex format object records.  ";
  523. + # KEYWORDS:     cross-assemblers, 1805, 2650, 6301, 6502, 6805, 6809, 
  524. + #        6811, tms7000, 8048, 8051, 8096, z8, z80;
  525. + # WARNINGS:    "This software is in the public domain.  
  526. + #        Any prior copyright claims are relinquished.  
  527. + #    
  528. + #        This software is distributed with no warranty whatever.  
  529. + #        The author takes no responsibility for the consequences 
  530. + #        of its use.
  531. + #    
  532. + #        Yacc (or Bison) required to compile."  ;
  533. + # AUTHORS:    Mark Zenier;
  534. + # COMPILERS:    Pure C;
  535. + #
  536. + #    usage    
  537. + #        make somename TARGET=somename 
  538. + #        make newmachine       clean out machine dependent *.o
  539. + #        make clean          clean out for release disk
  540. + #
  541. + #    Conditional Compilation Flags
  542. + #
  543. + #    DOSTMP        use the current directory for temporary intermediate
  544. + #            file
  545. + #    NOGETOPT    use the getopt.h file
  546. + #    USEINDEX    redefine the strchr() library function to use
  547. + #            the older equivalent name index()
  548. + #    NOSTRING    use internal definitions if the <string.h> include
  549. + #            file does not exist
  550. + #
  551. + 
  552. + CC = e:\pc\pcc.ttp
  553. + LD = e:\pc\plink.ttp
  554. + YACC = byacc
  555. + 
  556. + TARGET = as8051
  557. + PRINTSPOOL = lpr
  558. + 
  559. + # LEXERDEBUG = -DDEBUG=1
  560. + LEXERDEBUG =
  561. + 
  562. + CFLAGS = -W-rvl -W-sig -W-pia -D__STDC__ -Ie:\pc\include -DDOSTMP
  563. + LDFLAGS = -S=32768 e:\pc\lib\pcstart.o e:\pc\lib\PCSTDLIB.LIB e:\pc\lib\PCEXTLIB.LIB e:\pc\lib\PCTOSLIB.LIB
  564. + YACCLEXLIB =
  565. + MAINNEEDS =
  566. + MAINDEPENDS =
  567. + 
  568. + asm:    $(TARGET).ttp
  569. + 
  570. + $(TARGET).ttp:    frasmain.o frapsub.o l$(TARGET).o $(TARGET).o fraosub.o x$(TARGET).o getopt.o mktemp.o
  571. +     $(LD) $(LDFLAGS) -O=$(TARGET).ttp frasmain.o frapsub.o \
  572. +         fraosub.o l$(TARGET).o x$(TARGET).o $(TARGET).o $(YACCLEXLIB) \
  573. +         getopt.o mktemp.o
  574. +     rm -f fraytok.h
  575. + 
  576. + getopt.o:    getopt.c
  577. +     $(CC) $(CFLAGS) getopt.c
  578. +     
  579. + mktemp.o:    mktemp.c
  580. +     $(CC) $(CFLAGS) mktemp.c
  581. +     
  582. + x$(TARGET).o:    target.c
  583. +     $(CC) $(CFLAGS) -Ox$(TARGET).o -DTARGET='"$(TARGET)"' target.c
  584. + 
  585. + l$(TARGET).o:    fryylex.c frasmdat.h $(TARGET).h
  586. +     cp $(TARGET).h fraytok.h 
  587. +     $(CC) $(CFLAGS) $(LEXERDEBUG) -O=l$(TARGET).o fryylex.c
  588. + 
  589. + frasmain.o : frasmain.c  frasmdat.h $(MAINDEPENDS)
  590. +     $(CC) $(CFLAGS) $(MAINNEEDS) frasmain.c
  591. + 
  592. + $(TARGET).c $(TARGET).h : $(TARGET)/$(TARGET).y
  593. +     $(YACC) -d $(TARGET)/$(TARGET).y
  594. +     mv ytab.c $(TARGET).c
  595. +     mv ytab.h $(TARGET).h
  596. +     rm -f fraytok.h
  597. + 
  598. + $(TARGET).o : $(TARGET).c  frasmdat.h fragcon.h
  599. +     $(CC) $(CFLAGS) $(TARGET).c
  600. + 
  601. + frapsub.o : frapsub.c fragcon.h frasmdat.h fraeuni.h fraebin.h
  602. +     $(CC) $(CFLAGS) frapsub.c
  603. + 
  604. + fraosub.o : fraosub.c  frasmdat.h fragcon.h fraeuni.h fraebin.h
  605. +     $(CC) $(CFLAGS) fraosub.c
  606. + 
  607. + clean:
  608. +     rm -f *.o fraytok.h *.pdb
  609. +     rm -f ytab.[ch]
  610. +     rm -f as*.[cho]
  611. +     rm -f as*.lst *.bak
  612. +     
  613. + clobber:    clean
  614. +     rm -f as*.ttp
  615. + 
  616. + newmachine :
  617. +     rm -f fraytok.h
  618. +     rm -f fryylex.o
  619. +     rm -f $(TARGET).c $(TARGET).h $(TARGET).o
  620. + 
  621. + test:    asm
  622. +     -$(TARGET).ttp -l $(TARGET).lst $(TARGET)\$(TARGET).tst
  623. +     -diff -c $(TARGET)\$(TARGET).tut $(TARGET).lst
  624. + 
  625. diff +recursive -c e:\fas_orig/mktemp.c ./mktemp.c
  626. *** e:\fas_orig/mktemp.c    Wed Nov 18 17:00:56 1992
  627. --- ./mktemp.c    Sat Dec 22 17:29:10 1990
  628. ***************
  629. *** 0 ****
  630. --- 1,26 ----
  631. + /*
  632. +    mini MKTEMP for FAS (ST-port)
  633. +    (C) 1990 M. Schwingen
  634. + */
  635. + 
  636. + #include <stdio.h>
  637. + 
  638. + void mktemp(char *str)
  639. + {
  640. +     static int tmpcnt = 0;
  641. +     char buf[10];
  642. +     char *p1,*p2;
  643. +     
  644. +     sprintf(buf,"%08d",tmpcnt++);
  645. +     p1 = buf;
  646. +     while (*p1)
  647. +         p1++;
  648. +     p2 = str;
  649. +     p1--;
  650. +     while (*p2)
  651. +     {
  652. +         if (*p2 == 'X')
  653. +             *p2 = *p1--;
  654. +         p2++;
  655. +     }
  656. + }
  657. diff +recursive -c e:\fas_orig/proctype.txt ./proctype.txt
  658. *** e:\fas_orig/proctype.txt    Wed Nov 18 17:01:38 1992
  659. --- ./proctype.txt    Mon Dec 24 16:27:14 1990
  660. ***************
  661. *** 0 ****
  662. --- 1,14 ----
  663. + AS1805: RCA 1802, RCA 1804/1805/1806
  664. + AS2650: 2650
  665. + AS6301: 6301
  666. + AS6502: R65C00/21, 65(C)02/6504/6510 
  667. + AS6805: 6305, 68(HC/L)05
  668. + AS6809: 6809
  669. + AS6811: 6800/6802/6808, 6801/6803, 6811
  670. + AS7000: TMS7000
  671. + AS8048: 80(C)48/80(C)35, 80(C)49/80(C)39, 80(C)50/80(C)40, 8041,8042
  672. + AS8051: 80(C)51
  673. + AS8096: 8096, 80C196
  674. + ASZ8:   Z8/Z8600, UPC/Z8090
  675. + ASZ80:  8080, 8085, Z80, 64180
  676. + 
  677. diff +recursive -c e:\fas_orig/proto.h ./proto.h
  678. *** e:\fas_orig/proto.h    Wed Nov 18 17:02:32 1992
  679. --- ./proto.h    Sun Dec 23 15:39:24 1990
  680. ***************
  681. *** 0 ****
  682. --- 1,81 ----
  683. + #ifdef __STDC__
  684. + # define    P(s) s
  685. + #else
  686. + # define P(s) ()
  687. + #endif
  688. + 
  689. + /* fraosub.c */
  690. + int outphase P((void ));
  691. + int outeval P((void ));
  692. + int flushlisthex P((void ));
  693. + int listhex P((void ));
  694. + int listouthex P((void ));
  695. + int outhexblock P((void ));
  696. + int flushhex P((void ));
  697. + int intelout P((int type , long addr , int count , char data []));
  698. + int frp2undef P((struct symel *symp ));
  699. + int frp2warn P((char *str ));
  700. + int frp2error P((char *str ));
  701. + int flushsourceline P((void ));
  702. + static long dgethex P((void));
  703. + 
  704. + /* frapsub.c */
  705. + char *savestring P((char *stx , int len ));
  706. + int clrexpr P((void ));
  707. + int exprnode P((int swact , int left , int op , int right , long value , struct symel *symbol ));
  708. + struct symel *allocsym P((void ));
  709. + int syhash P((char *str ));
  710. + struct symel *symbentry P((char *str , int toktyp ));
  711. + void reservedsym P((char *str , int tok , int value ));
  712. + int buildsymbolindex P((void ));
  713. + int setophash P((void ));
  714. + int findop P((char *str ));
  715. + int opcodehash P((char *str ));
  716. + char *findgen P((int op , int syntax , int crit ));
  717. + int genlocrec P((int seg , long loc ));
  718. + void goutch P((char ch ));
  719. + int gout2hex P((int inv ));
  720. + int goutxnum P((unsigned long num ));
  721. + int geninstr P((char *str ));
  722. + int chtcreate P((void ));
  723. + int chtcfind P((int *chtab , char **sourcepnt , int **tabpnt , int *numret ));
  724. + int chtran P((char **sourceptr ));
  725. + int genstring P((char *str ));
  726. + int pevalexpr P((int sub , int exn ));
  727. + int polout P((char ch ));
  728. + int polnumout P((unsigned long inv ));
  729. + int pepolcon P((int esub ));
  730. + static struct symel *getsymslot P((char *str));
  731. +     
  732. + /* frasmain.c */
  733. + int main P((int argc , char *(argv [])));
  734. + int frafatal P((char *str ));
  735. + int frawarn P((char *str ));
  736. + int fraerror P((char *str ));
  737. + int fracherror P((char *str , char *start , char *beyond ));
  738. + int prtequvalue P((char *fstr , long lv ));
  739. + int printsymbols P((void ));
  740. + int filesymbols P((void ));
  741. + int usage P((char *name));
  742. + 
  743. + /* fryylex.c */
  744. + int frareadrec P((void ));
  745. + int yylex P((void ));
  746. + int yyerror P((char *str ));
  747. + static char *erryytextex P((int type));
  748. + 
  749. + /* getopt.c */
  750. + int getopt P((int nargc , char **nargv , char *ostr ));
  751. + 
  752. + /* mktemp.c */
  753. + void mktemp P((char *str ));
  754. + 
  755. + /* as6502.c */
  756. + int lexintercept P((void ));
  757. + int setreserved P((void ));
  758. + int cpumatch P((char *str ));
  759. + int strcontains P((char *s1 , char *sm ));
  760. + int yyparse P((void ));
  761. + 
  762. + #undef P
  763. + 
  764. diff +recursive -c e:\fas_orig/target.c ./target.c
  765. *** e:\fas_orig/target.c    Wed Nov 18 17:04:30 1992
  766. --- ./target.c    Wed Nov 18 14:04:42 1992
  767. ***************
  768. *** 0 ****
  769. --- 1,4 ----
  770. + #include <stdio.h>
  771. + 
  772. + char *defaultname = TARGET;
  773. + 
  774. *** e:\fas_orig\getopt.c    Wed Nov 18 18:29:36 1992
  775. --- .\getopt.c    Wed Nov 18 16:53:08 1992
  776. ***************
  777. *** 0 ****
  778. --- 1,3 ----
  779. + #include <stdio.h>
  780. + #include <string.h>
  781. + #include "getopt.h"
  782.