home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128Toolkit / RA.ARC / RA2.C < prev    next >
Encoding:
C/C++ Source or Header  |  2019-04-13  |  8.7 KB  |  383 lines
  1. /* 
  2.  * ╥EVERSE ┴SSEMBLER
  3.  * ╘RANSLATION ╥OUTINES
  4.  * ╞ILENAME: RA2.C
  5.  * ═ODIFIED:
  6.  *   11/02/85 - ╥EMOVED DASHES BETWEEN EXTERNAL LABELS
  7.  *   04/14/86 - ┴DDED 'SYMBOL+OFFSET' SYNTAX OUTPUT.
  8.  */
  9. #INCLUDE "RA.H"
  10.  
  11. /* EXTERNAL DATA */
  12. EXTERN ╞╔╠┼ OBJ;
  13. EXTERN ╞╔╠┼ LST;
  14. EXTERN STRUCT LABEL *XDEFHD;
  15. EXTERN STRUCT LABEL *XREFHD;
  16. EXTERN CHAR *CODEBUF;
  17. EXTERN UNSIGNED CODESZ,BIAS,DATASZ,PROMPT;
  18. EXTERN UNSIGNED *RELBUF;
  19.  
  20. EXTERN CHAR *MTABLE[];  /* MNEMONIC STRINGS */
  21. EXTERN CHAR OPCODES[];  /* OPCODE TO MNEMONIC INDEX TRANSLATION */
  22. EXTERN CHAR AMODES[];   /* OPCODE TO ADDRESSING MODE TRANSLATION */
  23. EXTERN CHAR MODESZ[];   /* MODE TO ADDRESS FIELD SIZE */
  24. /* 
  25.  * ╨ACKAGE GLOBAL DATA
  26.  *
  27.  */
  28. CHAR *CODEPTR; /* CODE BUFFER POINTER */
  29. INT COUNT;     /* CODE COUNTER */
  30. CHAR EFUNC;    /* TRUE WHEN END OF FUNCTION DETECTED (C$106) */
  31. UNSIGNED LOC;  /* CURRENT LOCATION */
  32. INT *RELPTR;   /* RELOCATION INFO POINTER */
  33. STRUCT LABEL *CURSYM; /* CURRENT SYMBOL */
  34. STRUCT LABEL *XDEFPTR,*XREFPTR; /* POINTER TO NEXT XDEF, XREF */
  35.  
  36. /*
  37.  * ╨RINT ADDRESS VALUE AS EITHER A SYMBOLIC QUANTITY OR HEX VALUE
  38.  * ├ALLED WITH:
  39.  *   ┴DDRESS, ADDRESSING MODE, SIZE (0-2)
  40.  */
  41. PAV(A,M,S)
  42. UNSIGNED A,M,S;
  43. █
  44.  IF (!CKREF()) █    /* XREF PENDING?  */
  45.    IF (M != ╔══) █  /* DON'T DO SYMBOL SEARCH FOR IMMEDIATE OPERANDS */
  46.      IF (CKSYM(A)) RETURN;
  47.    ▌
  48.    IF (S==2) FPRINTF(LST,"$%04X",A);
  49.    ELSE FPRINTF(LST,"$%02X",A);
  50.  ▌
  51. ▌
  52.  
  53. /*
  54.  * ╨RINT ADDRESS FIELD BASED ON OPCODE
  55.  * ├ALLED WITH:
  56.  *   ADDRESS
  57.  *   ADDRESSING MODE
  58.  *   SIZE (1 OR 2)
  59.  */
  60. PAF(A,M,S)
  61. UNSIGNED A,M,S;
  62. █
  63.   UNSIGNED ADDR; /* ADDRESS VALUE */
  64.  
  65.   SWITCH (M) /* PREFIX? */
  66.   █
  67.   CASE ┴├├: FPUTC('┴',LST);
  68.             BREAK;
  69.  
  70.   CASE ╔══: FPUTC('#',LST);
  71.             PAV(A,M,S);
  72.             BREAK;
  73.   CASE ┌┼╥:
  74.   CASE ┴┬╙:    
  75.             PAV(A,M,S);
  76.             BREAK;
  77.  
  78.   CASE ┌╨╪:
  79.   CASE ┴┬╪: PAV(A,M,S);
  80.             FPRINTF(LST,",╪");
  81.             BREAK;
  82.  
  83.   CASE ┌╨┘:
  84.   CASE ┴┬┘: PAV(A,M,S);
  85.             FPRINTF(LST,",┘");
  86.             BREAK;
  87.  
  88.   CASE ╔═╨: BREAK;
  89.  
  90.   CASE ╥┼╠: 
  91. #UNDEF ╧╠─╫┴┘
  92.  
  93.             IF (A>=128) █ /* SIGN EXTEND */
  94.               ADDR = (0XFF00 ▀ A);
  95.               FPRINTF(LST,"*%D",ADDR+2);
  96.             ▌
  97.             ELSE █
  98.               FPRINTF(LST,"*+%D",A+2);
  99.             ▌
  100. #IFDEF ╧╠─╫┴┘
  101.             ADDR=ADDR+LOC+2;
  102.             PAV(ADDR,M,S);
  103. #ENDIF           
  104.             BREAK;
  105.  
  106.   CASE ╔╬─╪: FPUTC('(',LST);
  107.              PAV(A,M,S);
  108.              FPRINTF(LST,",╪)");
  109.              BREAK;
  110.  
  111.   CASE ╔╬─┘: FPUTC('(',LST);
  112.              PAV(A,M,S);
  113.              FPRINTF(LST,"),┘");
  114.              BREAK;
  115.  
  116.   CASE ╔╬─: FPUTC('(',LST);
  117.             PAV(A,M,S);
  118.             FPUTC(')',LST);
  119.             BREAK;
  120.  
  121.   DEFAULT: FPRINTF(LST,"????");
  122.  
  123.   ▌
  124. ▌
  125.  
  126. /* 
  127.  * ═AIN ROUTINE FOR THIS PACKAGE
  128.  *
  129.  */
  130. RVRS()
  131. █
  132.   CHAR OP;
  133.   UNSIGNED A1,A2,DEFCNT;
  134.   UNSIGNED MODE,IMODE,SIZE,I;
  135.  
  136.   CODEPTR = CODEBUF;
  137.   RELPTR = RELBUF;
  138.   XDEFPTR = XDEFHD;
  139.   XREFPTR = XREFHD;
  140.   LOC = BIAS;
  141.   COUNT = CODESZ;
  142.   IMODE = 1; /* ALWAYS START IN INSTRUCTION MODE */
  143.   EFUNC = 0;
  144.   IF (!COUNT) CKDEF(); 
  145.   ELSE
  146.   WHILE (COUNT) █
  147.     IF (CKDEF() ▀▀ EFUNC) IMODE=CKMODE();
  148.     EFUNC = 0;
  149.     IF (!OPCODES[*CODEPTR]) █ /* INVALID OPCODE? */
  150.       FPRINTF(LST,";!!!╔NVALID OPCODE - SWITCHING TO BYTE MODE.\N");
  151.       IMODE=0;
  152.     ▌ 
  153.     IF (IMODE==0) █
  154.       DOBYTE();
  155.       IF (COUNT) IMODE = CKMODE();
  156.     ▌
  157.     ELSE █         /* INSTRUCTION MODE */
  158.       OP = *CODEPTR++;
  159.       COUNT--;
  160.       MODE = AMODES[OP];
  161.       SIZE = MODESZ[MODE];
  162.       A1=0;
  163.       A2=0;
  164.       IF (SIZE) █
  165.         A1 = *CODEPTR++;
  166.         COUNT--;
  167.         IF (SIZE==2) █
  168.           A2 = *CODEPTR++;
  169.           COUNT--;
  170.         ▌
  171.       ▌
  172.       IF (COUNT<0) █
  173.         FPRINTF(LST,"--- CODE UNDERFLOW ---\N");
  174.         ABORT();
  175.       ▌
  176. #IFDEF ─┼┬╒╟
  177.       FPRINTF(LST,"%02X %02X %02X / %04X  ",OP,A1,A2,LOC);
  178. #ENDIF
  179.       FPRINTF(LST," %S ",MTABLE[OPCODES[OP]]);
  180.       IF (SIZE==2)
  181.         A1 = A1 ▀ (A2 << 8);
  182.       PAF(A1,MODE,SIZE); /* PRINT ADDRESS FIELD */
  183.       FPUTC('\N',LST);
  184.       LOC=LOC+SIZE+1;
  185.     ▌                    /* INSTRUCTION MODE */
  186.   ▌ /* WHILE */
  187.   DODATA();              /* OUTPUT DATA BLOCKS */
  188.   FPUTC('\N',LST);
  189. ▌
  190.  
  191. /* 
  192.  * ╞ORMAT DATA IN .BYTE MODE UNTIL A NEXT LABEL DEFINITION.
  193.  *
  194.  */
  195. DOBYTE()
  196. █
  197.   UNSIGNED BYTECNT=8,FIRST=1;
  198.  
  199.   WHILE (COUNT) █
  200.     IF (CKDEF()) BREAK;  
  201.     IF (BYTECNT==8) █
  202.       IF (!FIRST) FPUTC('\N',LST);
  203.       FIRST=0;
  204.       BYTECNT=0;
  205. #IFDEF ─┼┬╒╟
  206.       FPRINTF(LST,"           %04X  ",LOC);
  207. #ENDIF
  208.       FPRINTF(LST," .BYTE ");
  209.     ▌
  210.     FPRINTF(LST,"%C $%02X ",(BYTECNT>0 ? ',' : ' '),*CODEPTR++);
  211.     BYTECNT++;
  212.     COUNT--;
  213.     LOC++;
  214.   ▌ /* WHILE */
  215.   FPUTC('\N',LST);
  216. ▌
  217.   
  218. /*
  219.  * ╙EE IF CURRENT LOCATION HAS ONE OR MORE LABELS DEFINED.
  220.  * ╥ETURNS A COUNT OF LABELS DEFINED FOR THIS LOCATION.
  221.  */
  222. CKDEF()
  223. █
  224.  UNSIGNED DC;
  225.  
  226.  DC = 0;
  227.  WHILE (XDEFPTR && (LOC >= XDEFPTR->OFFSET)) █
  228.    IF (XDEFPTR->GLOBAL) █
  229.      IF (!DC) █
  230.        FPUTC('\N',LST); /* SKIP LINE ON FIRST LABEL */
  231.      ▌
  232.      DC++;
  233.      IF ((XDEFPTR->FLAG==0) ▀▀ (XDEFPTR->OFFSET < LOC)) █ /* ABSOLUTE? */
  234.        FPRINTF(LST,"%-12S = $%04X\N",XDEFPTR->NAME,XDEFPTR->OFFSET);
  235.      ▌
  236.      ELSE
  237.        FPRINTF(LST,"%S\N",XDEFPTR->NAME);
  238.    ▌
  239.    CURSYM = XDEFPTR; /* SAVE CURRENT SYMBOL */
  240.    XDEFPTR = XDEFPTR->NEXT;
  241.  ▌
  242.  RETURN(DC);
  243. ▌
  244.  
  245. /* 
  246.  * ╙EE IF CURRENT LOCATION HAS AN EXTERNAL REFERENCE.
  247.  *
  248.  */
  249. CKREF()
  250. █
  251.  IF (XREFPTR && (LOC == XREFPTR->OFFSET)) █
  252. /*
  253.  * ╚ERE LIES A KLUDGE WHICH ASSISTS IN THE DETERMINATION OF THE FORMATTING
  254.  * MODE TO BE USED.  ╔F A REFERENCE TO RUNTIME ROUTINE ├$106 IS BEING MADE,
  255.  * WE ARE ABOUT TO EXIT A FUNCTION.  ╫HAT FOLLOWS COULD BE ANOTHER FUNCTION
  256.  * OR IT COULD BE THE BEGINNING OF UNLABELED PRESET STRING OR ARRAY DATA.  
  257.  * ╘HE MAIN LOOP TESTS THE FLAG 'EFUNC' WHICH IS SET HERE TO SEE IF A MODE
  258.  * CHECK IS NECESSARY.
  259.  */
  260.    EFUNC = !STRCMP(XREFPTR->NAME,"C$106");
  261.    IF (XREFPTR->FLAG == 1) FPUTC('>',LST); /* HIGH ORDER BYTE */
  262.    ELSE IF (XREFPTR->FLAG == 2) FPUTC('<',LST); /* LOW ORDER BYTE */
  263.    FPRINTF(LST,"%S",XREFPTR->NAME);
  264.    XREFPTR = XREFPTR->NEXT;
  265.    IF (EFUNC) FPUTC('\N',LST);
  266.    RETURN(1);
  267.  ▌
  268.  ELSE RETURN(0);
  269. ▌
  270.  
  271. /*
  272.  * ╙EE IF ADDRESS VALUE MATCHES EXTERNAL SYMBOL DEFINITION OFFSET 
  273.  * ╥ETURNS SYMBOL OFFSET IF FOUND, ZERO OTHERWISE.  ╘HIS ASSUMES
  274.  * THAT ZERO IS AN INVALID OFFSET, WHICH IN FACT, IT IS, SINCE THE
  275.  * CODE AT ZERO IS ALWAYS A JMP C$START.
  276.  */
  277. CKSYM(A)
  278. UNSIGNED A;
  279. █
  280. #DEFINE ═┴╪─╔╞╞ 127  /* MAX DISPLACEMENT FOR SYMBOL EXPRESSION */
  281.  
  282.   STRUCT LABEL *PTR,*CLOSEST;
  283.   REGISTER UNSIGNED DIFF,MIN;
  284.  
  285.   PTR = XDEFHD; /* GET XDEF LIST POINTER */
  286.   MIN = ═┴╪─╔╞╞ + 1;
  287.   WHILE (PTR) █  /* NOTHING FANCY - JUST A LINEAR SEARCH */
  288.     DIFF = A - PTR->OFFSET;
  289.     IF ((A >= PTR->OFFSET) && (DIFF <= ═┴╪─╔╞╞)) █
  290.       IF (DIFF == 0) █
  291.         MIN = 0;
  292.         CLOSEST = PTR;
  293.         BREAK;
  294.       ▌
  295.       ELSE IF (DIFF < MIN) █
  296.         MIN = DIFF;
  297.         CLOSEST = PTR;
  298.       ▌
  299.     ▌
  300.     PTR = PTR->NEXT;
  301.   ▌
  302.   IF (MIN <= ═┴╪─╔╞╞) █
  303.     FPRINTF(LST,"%S",CLOSEST->NAME);
  304.     IF (MIN) FPRINTF(LST,"+%D",MIN);
  305.     RETURN(CLOSEST->OFFSET);
  306.   ▌
  307.   RETURN 0;
  308. ▌
  309.  
  310. /* 
  311.  * ├HECK FOR FORMATTING MODE CHANGE.
  312.  * ╥ETURNS 1 FOR INSTRUCTION MODE, 0 FOR .BYTE MODE
  313.  *
  314.  */
  315. CKMODE()
  316. █
  317.   CHAR C1,C2; /* NEXT 2 BYTE VALUES */
  318.   CHAR S[20]; /* RESPONSE STRING */  
  319.   C1 = *CODEPTR;
  320.   C2 = *(CODEPTR+1);
  321.  
  322.   IF (PROMPT) █ /* USER WANTS AUTHORITY */
  323.     PRINTF("CURRENT SYMBOL: %S\NFIRST 2 BYTES: %02X %02X\N",CURSYM->NAME,C1,C2);
  324.     FOR (;;) █
  325.       PRINTF("╔NSTRUCTION OR ┬YTE MODE? ");
  326.       GETS(S);
  327.       SWITCH(*S) █
  328.       CASE '╔':
  329.       CASE 'I': RETURN(1);
  330.       CASE '┬':
  331.       CASE 'B': RETURN(0);
  332.       DEFAULT: PRINTF("┼NTER AN ╔ OR A ┬, PLEASE\N");
  333.       ▌
  334.     ▌
  335.   ▌
  336.   ELSE █
  337.  
  338.     /*********************************************************************
  339.      * ╚ERE COMES THE BIG KLUDGE, FOLKS!  ╔N ORDER TO DECIDE WHETHER THE *
  340.      * CODE THAT FOLLOWS IS INSTRUCTION OR DATA, WE TEST FOR THE PATTERN *
  341.      * 'STA $FB' WHICH SEEMS TO OCCUR AT THE ENTRY TO EVERY PROCEDURE.   *
  342.      * ┴NOTHER POSSIBILITY IS THE JMP C$START AT THE BEGINNING OF EACH   *
  343.      * CODE SEGMENT.                                                     *
  344.      * ╔F THESE PATTERNS ARE NOT DETECTED, THEN SWITCH TO DATA MODE AND  *
  345.      * OUTPUT .BYTE DIRECTIVES.                                          *
  346.      *********************************************************************/
  347.  
  348.     IF ((C1==0X85) && (C2==0XFB))
  349.       RETURN(1);       /* SET INSTRUCTION MODE */
  350.     ELSE IF (XREFPTR && (LOC == XREFPTR->OFFSET))
  351.       RETURN 1;
  352.     ELSE
  353.       RETURN(0);
  354.   ▌
  355. ▌
  356.  
  357. /*
  358.  * ╧UTPUT ─ATA ┬LOCKS
  359.  *
  360.  */
  361.  
  362. DODATA()
  363. █
  364.   UNSIGNED CNT,SIZE;
  365.   CHAR ID[═┴╪╔─];
  366.  
  367.   CNT = GETW(OBJ); /* GET NUMBER OF ENTRIES */
  368.   IF (CNT) █
  369.     FPRINTF(LST,"\N;═ODULE DATA BLOCKS.\N");
  370.  
  371. #IFDEF ─┼┬╒╟
  372.     FPRINTF(LST,"%D DATA BLOCKS.\N",CNT);
  373. #ENDIF
  374.  
  375.     WHILE (CNT--) █
  376.       GETID(ID,OBJ); /* GET IDENTIFIER */
  377.       SIZE = GETW(OBJ);
  378.       FPRINTF(LST,"%-10S .DSEG %D\N",ID,SIZE);
  379.     ▌
  380.   ▌
  381. ▌
  382.  
  383.