home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128Toolkit / CDT128.SFX / dasmbl.c < prev    next >
Encoding:
C/C++ Source or Header  |  1990-02-12  |  5.0 KB  |  148 lines
  1. /***********************************************************************/
  2. /***********************************************************************/
  3. /*                                                                     */
  4. /* ╘HIS PROGRAM IS COPYRIGHT 1986 BY ┴LAN ┘ORINKS.  ╔T MAY BE FREELY   */
  5. /* DISTRIBUTED FOR NON COMMERCIAL USAGE IF THIS COPYRIGHT NOTICE IS    */
  6. /* LEFT INTACT. ├OMMERCIAL USAGE OF THIS PROGRAM IS EXPLICITLY         */
  7. /* FORBIDDEN WITHOUT THE WRITTEN PERMISSION OF THE AUTHOR.             */
  8. /*                                                                     */
  9. /***********************************************************************/
  10. /***********************************************************************/
  11.  
  12.  
  13. /*     CDT VERSION 1.0    PART 13 OF 15   ╩ULY 25, 1986                 */
  14.  
  15. /*     6502/8502 DISASSEMBLER                                           */
  16.  
  17. #INCLUDE <STDIO.H>
  18. #INCLUDE "DBUG.H"
  19.  
  20. #IFDEF ├64
  21.     #DEFINE ╬╪╘┬┘╘┼ ╨┼┼╦(╙┴──╥(DSDMP)++)
  22. #ELSE
  23.     #DEFINE ╬╪╘┬┘╘┼ (CHAR)PEEK(┬┴╬╦(DSDMP),╙┴──╥(DSDMP)++)
  24. #ENDIF
  25.  
  26. #DEFINE ┴──╥ñ═╧─┼ 3   /* ADDRESSING MODE POSITION */
  27.  
  28.  
  29.  
  30. VOID
  31. DASMBL()
  32. █
  33.      INT NUMBYTE ;               /* NUMBER OF BYTES TO PRINT PER OPCODE */
  34. AUTO CHAR BYTE1, BYTE2, BYTE3 ;  /* VARIABLES TO HOLD OPCODE AND OPERAND BYTES*/
  35. AUTO CHAR OPBUF[10] ;            /* TEMPORARY BUFFER FOR PRINTED OUTPUT */
  36.      EXTERN CHAR *OPCODE[] ;     /* OPCODE AND ADDRESSING STRUCTURE */
  37.      EXTERN INT   PAGE ;         /* PAGINATION FLAG */
  38.      EXTERN VOID  PAGER() ;
  39.  
  40.     /* ╙┴──╥(DSDMP) WILL BE INCREMENTED BY THE MACRO ╬╪╘┬┘╘ */
  41.  
  42.     WHILE( ╙┴──╥(DSDMP) < ┼┴──╥(DSDMP) )
  43.     █
  44.         BYTE1 = ╬╪╘┬┘╘┼ ;
  45.  
  46.         /* PRINT ADDRESS OF BYTE - ADJUST FOR INCREMENT OF ╬╪╘┬┘╘┼ */
  47.         PRINTF("%04X  ",(╙┴──╥(DSDMP)) - 1) ;
  48.  
  49.         /* PRINT OPCODE IN HEX */
  50.         PRINTF("%02X ",BYTE1) ;
  51.  
  52.         /* GET ASCII REPRESENTATION OF OPCODE AND # OF BYTES OF OPERAND */
  53.         /* PLACE HEX VALUES OF OPERANDS IN OPBUF TO BE OUTPUT AFTER     */
  54.         /* AFTER ASCII OPCODE IN RECOGNIZABLE ORDER( HI BYTE - LOW BYTE */                        
  55.         SWITCH(OPCODE[BYTE1][┴──╥ñ═╧─┼])
  56.         █
  57.             CASE ╔══:
  58.                 BYTE2 = ╬╪╘┬┘╘┼ ;
  59.                 SPRINTF(OPBUF,"#$%02X",BYTE2) ;
  60.                 NUMBYTE = 1 ;
  61.                 BREAK ;
  62.             CASE ┴┬╙:
  63.                 BYTE2 = ╬╪╘┬┘╘┼ ;
  64.                 BYTE3 = ╬╪╘┬┘╘┼ ;
  65.                 SPRINTF(OPBUF,"$%02X%02X",BYTE3,BYTE2) ;
  66.                 NUMBYTE = 2 ;
  67.                 BREAK ;
  68.             CASE ┴┬╙╪:
  69.                 BYTE2 = ╬╪╘┬┘╘┼ ;
  70.                 BYTE3 = ╬╪╘┬┘╘┼ ;
  71.                 SPRINTF(OPBUF,"$%02X%02X,X",BYTE3,BYTE2) ;
  72.                 NUMBYTE = 2 ;
  73.                 BREAK ;
  74.             CASE ┴┬╙┘:
  75.                 BYTE2 = ╬╪╘┬┘╘┼ ;
  76.                 BYTE3 = ╬╪╘┬┘╘┼ ;
  77.                 SPRINTF(OPBUF,"$%02X%02X,Y",BYTE3,BYTE2) ;
  78.                 NUMBYTE = 2 ;
  79.                 BREAK ;
  80.             CASE ┌╨:
  81.                 BYTE2 = ╬╪╘┬┘╘┼ ;
  82.                 SPRINTF(OPBUF,"#$%02X",BYTE2) ;
  83.                 NUMBYTE = 1 ;
  84.                 BREAK ;
  85.             CASE ┌╨╪:
  86.                 BYTE2 = ╬╪╘┬┘╘┼ ;
  87.                 SPRINTF(OPBUF,"#$%02X,X",BYTE2) ;
  88.                 NUMBYTE = 1 ;
  89.                 BREAK ;
  90.             CASE ┌╨┘:
  91.                 BYTE2 = ╬╪╘┬┘╘┼ ;
  92.                 SPRINTF(OPBUF,"#$%02X,Y",BYTE2) ;
  93.                 NUMBYTE = 1 ;
  94.                 BREAK ;
  95.             CASE ╔╬─:
  96.                 BYTE2 = ╬╪╘┬┘╘┼ ;
  97.                 BYTE3 = ╬╪╘┬┘╘┼ ;
  98.                 SPRINTF(OPBUF,"$%02X%02X,X",BYTE3,BYTE2) ;
  99.                 NUMBYTE = 2 ;
  100.                 BREAK ;
  101.             CASE ╔╬─╪:
  102.                 BYTE2 = ╬╪╘┬┘╘┼ ;
  103.                 SPRINTF(OPBUF,"#$%02X,X",BYTE2) ;
  104.                 NUMBYTE = 1 ;
  105.                 BREAK ;
  106.             CASE ╔╬─┘:
  107.                 BYTE2 = ╬╪╘┬┘╘┼ ;
  108.                 SPRINTF(OPBUF,"#$%02X,Y",BYTE2) ;
  109.                 NUMBYTE = 1 ;
  110.                 BREAK ;
  111.             CASE ╥┼╠:
  112.                 BYTE2 = ╬╪╘┬┘╘┼ ;
  113.                 IF( BYTE2 <= 0X7F )      /* FORWARD BRANCH */
  114.                     SPRINTF(OPBUF,"$%04X",╙┴──╥(DSDMP) + (CHAR)BYTE2 ) ;
  115.                 ELSE
  116.                     /* BACKWARD BRANCH - 2'S COMPLEMENT */
  117.                     SPRINTF(OPBUF,"$%04X",╙┴──╥(DSDMP) - 
  118.                             ( (CHAR)(»BYTE2 & 0X00FF) + 1) ) ;
  119.                 NUMBYTE = 1 ;
  120.                 BREAK ;
  121.             CASE ┴├├:
  122.                 SPRINTF(OPBUF,"A") ;
  123.                 NUMBYTE = 0 ;
  124.                 BREAK ;
  125.             CASE ╬╧╬┼:
  126.             DEFAULT  :
  127.                 *OPBUF = '\0' ;
  128.                 NUMBYTE = 0 ;
  129.                 BREAK ;
  130.         ▌
  131.  
  132.         /* PRINT THE HEX VALUES OF OPERANDS IN READ ORDER AFTER HEX OPCODE */
  133.         PRINTF( (NUMBYTE >= 1  ?  "%02X "  :  "   "),BYTE2) ;
  134.         PRINTF( (NUMBYTE >= 2  ?  "%02X "  :  "   "),BYTE3) ;
  135.  
  136.         /* PRINT ASCII REPRESENTATION OF OPCODE */
  137.         PRINTF("    %C%C%C ",OPCODE[BYTE1][0],OPCODE[BYTE1][1],
  138.                              OPCODE[BYTE1][2] ) ;
  139.  
  140.         /* PRINT OPERANDS STORED IN OPBUF */
  141.         PRINTF("%S\N",OPBUF) ;
  142.  
  143.         /* TAKE CARE OF PAGEING IF NECESSARY */
  144.         IF ( PAGE == ╘╥╒┼ )
  145.             PAGER() ;
  146.     ▌
  147. ▌
  148.