home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128Toolkit / CASSM.SFX / assm0.c < prev    next >
Encoding:
C/C++ Source or Header  |  1992-11-27  |  5.4 KB  |  175 lines
  1. /*
  2.  * 6502 ┴SSEMBLER - ├ODE ╙EGMENT 0
  3.  * ╞ILENAME: ASSM0.C
  4.  *
  5.  */
  6.  
  7. #INCLUDE "STDIO.H"
  8. #INCLUDE "ASSM.D1"
  9.  
  10. #IFDEF ╒╬╔╪
  11. ╞╔╠┼ *IPTR, *OPTR;
  12. #ELSE
  13. ╞╔╠┼ IPTR, OPTR;
  14. #ENDIF
  15.  
  16. CHAR      FILENAME[20];    /* CURRENT FILENAME */
  17. INT       CH;              /* CURRENT INPUT CHARACTER */
  18. CHAR      CPOS;            /* CURRENT CHARACTER POSITION */
  19. CHAR      DFLAG;           /* DEBUG FLAG */
  20. CHAR      LISTED;          /* LISTING LINE HAS BEEN PRINTED */
  21. UNSIGNED  ERRCNT;          /* ERROR COUNTER */
  22. UNSIGNED  EXPRMC;          /* EXPRESSION MODIFICATION CODE */
  23. STRUCT SYMTYPE *EXPRSYM;   /* EXPRESSION EXTERNAL REFERENCE SYMBOL */
  24. CHAR      EXPRTYP;         /* EXPRESSION TYPE */
  25. CHAR      HEX[5];          /* HEXADECIMAL CHARACTER BUFFER */
  26. CHAR      IFLAG;           /* IGNORE .NLST FLAG */
  27. INT       LFLAG;           /* DISABLE LISTING FLAG */
  28. CHAR      CFLAG;           /* LIST EXCLUDED CONDITIONAL ASSMBLY */
  29. UNSIGNED  LOCCNT;          /* LOCATION COUNTER     */
  30. CHAR      FFLAG;           /* FORMATTED LISTING SWITCH */
  31. CHAR      OFLAG;           /* OBJECT OUTPUT FLAG */
  32. UNSIGNED  OPFLG;           /* OPERATION CODE FLAGS */
  33. CHAR      OPVAL;           /* OPERATION CODE VALUE */
  34. CHAR      PASS;            /* PASS COUNTER         */
  35. CHAR      PRLNBUF[╠┴╙╘ñ├╚ñ╨╧╙+1]; /* PRINT LINE BUFFER    */
  36. CHAR      SFLAG;           /* SYMBOL TABLE OUTPUT FLAG */
  37. UNSIGNED  SLNUM;           /* SOURCE LINE NUMBER COUNTER */
  38. CHAR      SYMBOL[╙┬╧╠╙┌+1];/* TEMPORARY SYMBOL STORAGE     */
  39. UNSIGNED  VALUE;           /* OPERAND FIELD VALUE */
  40. UNSIGNED  FULLVALUE;       /* OPERAND VALUE BEFORE 0-PG TRUNCATION */
  41. CHAR      ZPREF;           /* ZERO PAGE REFERENCE FLAG     */
  42. CHAR      UNDEF;           /* EXPRESSION CONTAINS UNDEF SYMBOL */
  43. CHAR      CASMFLG;         /* 0 TO INHIBIT ASSEMBLY*/
  44.  
  45. STRUCT SYMTYPE *LABLPTR;   /* LABEL POINTER INTO SYMBOL TABLE */
  46. STRUCT SYMTYPE *HASHñTBL[╚╘╙╔┌┼];/* POINTERS TO STARTING SYMBOLS */
  47.  
  48. /* ╘HE OPCODE MNEMONICS ARE STORED AS AN ARRAY OF FIXED LENGTH STRINGS */
  49.  
  50. CHAR *OPMNEM[╬╒═╧╨╙] =
  51. █
  52.         ".BSS ",
  53.         ".BYTE", /* '.' IS 46 DECIMAL */
  54.         ".DBYT",
  55.         ".DEF ",
  56.         ".DSEG",
  57.         ".ELSE",
  58.         ".FI  ",
  59.         ".IFEQ",
  60.         ".IFGE",
  61.         ".IFGT",
  62.         ".IFLE",
  63.         ".IFLT",
  64.         ".IFNE",
  65.         ".LIST",
  66.         ".NLST",
  67.         ".REF ",
  68.         ".WORD", 
  69.         "=    ", /* '=' IS 61 DECIMAL */
  70.         "ADC  ","AND  ","ASL  ",
  71.         "BCC  ","BCS  ","BEQ  ",
  72.         "BIT  ","BMI  ","BNE  ",
  73.         "BPL  ","BRK  ","BVC  ",
  74.         "BVS  ","CLC  ","CLD  ",
  75.         "CLI  ","CLV  ","CMP  ",
  76.         "CPX  ","CPY  ","DEC  ",
  77.         "DEX  ","DEY  ","EOR  ",
  78.         "INC  ","INX  ","INY  ",
  79.         "JMP  ","JSR  ","LDA  ",
  80.         "LDX  ","LDY  ","LSR  ",
  81.         "NOP  ","ORA  ","PHA  ",
  82.         "PHP  ","PLA  ","PLP  ",
  83.         "ROL  ","ROR  ","RTI  ",
  84.         "RTS  ","SBC  ","SEC  ",
  85.         "SED  ","SEI  ","STA  ",
  86.         "STX  ","STY  ","TAX  ",
  87.         "TAY  ","TSX  ","TXA  ",
  88.         "TXS  ","TYA  "
  89. ▌;
  90.  
  91. /* ╘HE OPCODE DEFINITIONS CONSIST OF 2 WORD PAIRS:
  92.    ╘HE FIRST WORD IS THE INSTRUCTION CLASS OR LEGAL MODE FLAG WORD.
  93.    ╘HE SECOND WORD IS THE BASE VALUE OF THE OPCODE. 
  94.  */
  95.  
  96. UNSIGNED OPTAB[2*╬╒═╧╨╙] =               /* NMEMONIC  OPERATION CODE TABLE       */
  97. █
  98.  
  99. /* .BSS  */  ╨╙┼╒─╧,7,
  100. /* .BYTE */  ╨╙┼╒─╧,0,
  101. /* .DBYT */  ╨╙┼╒─╧,6,
  102. /* .DEF  */  ╨╙┼╒─╧,8,
  103. /* .DSEG */  ╨╙┼╒─╧,3,
  104. /* .ELSE */  ├┴╙╙═,1,
  105. /* .FI   */  ├┴╙╙═,0,
  106. /* .IFEQ */  ├┴╙╙═,4,
  107. /* .IFGE */  ├┴╙╙═,5,
  108. /* .IFGT */  ├┴╙╙═,3,
  109. /* .IFLE */  ├┴╙╙═,6,
  110. /* .IFLT */  ├┴╙╙═,2,
  111. /* .IFNE */  ├┴╙╙═,7,
  112. /* .LIST */  ╨╙┼╒─╧,4,
  113. /* .NLST */  ╨╙┼╒─╧,5,
  114. /* .REF  */  ╨╙┼╒─╧,9,
  115. /* .WORD */  ╨╙┼╒─╧,2,
  116.  
  117. /* =     */  ╨╙┼╒─╧,1,
  118. /* ADC   */  ╔══2▀┴┬╙▀┌┼╥▀╔╬─╪▀╔╬─┘▀┌┼╥╪▀┴┬╙╪▀┴┬╙┘,0X61,
  119. /* AND   */  ╔══2▀┴┬╙▀┌┼╥▀╔╬─╪▀╔╬─┘▀┌┼╥╪▀┴┬╙╪▀┴┬╙┘,0X21,
  120. /* ASL   */  ┴┬╙▀┌┼╥▀┌┼╥╪▀┴┬╙╪▀┴├├,0X02,
  121. /* BCC   */  ├╠┴╙╙2,0X90,
  122. /* BCS   */  ├╠┴╙╙2,0XB0,
  123. /* BEQ   */  ├╠┴╙╙2,0XF0,
  124. /* BIT   */  ┴┬╙▀┌┼╥,0X20,
  125. /* BMI   */  ├╠┴╙╙2,0X30,
  126. /* BNE   */  ├╠┴╙╙2,0XD0,
  127. /* BPL   */  ├╠┴╙╙2,0X10,
  128. /* BRK   */  ├╠┴╙╙1,0X00,
  129. /* BVC   */  ├╠┴╙╙2,0X50,
  130. /* BVS   */  ├╠┴╙╙2,0X70,
  131. /* CLC   */  ├╠┴╙╙1,0X18,
  132. /* CLD   */  ├╠┴╙╙1,0XD8,
  133. /* CLI   */  ├╠┴╙╙1,0X58,
  134. /* CLV   */  ├╠┴╙╙1,0XB8,
  135. /* CMP   */  ╔══2▀┴┬╙▀┌┼╥▀╔╬─╪▀╔╬─┘▀┌┼╥╪▀┴┬╙╪▀┴┬╙┘,0XC1,
  136. /* CPX   */  ╔══1▀┴┬╙▀┌┼╥,0XE0,
  137. /* CPY   */  ╔══1▀┴┬╙▀┌┼╥,0XC0,
  138. /* DEC   */  ┴┬╙▀┌┼╥▀┌┼╥╪▀┴┬╙╪,0XC2,
  139. /* DEX   */  ├╠┴╙╙1,0XCA,
  140. /* DEY   */  ├╠┴╙╙1,0X88,
  141. /* EOR   */  ╔══2▀┴┬╙▀┌┼╥▀╔╬─╪▀╔╬─┘▀┌┼╥╪▀┴┬╙╪▀┴┬╙┘,0X41,
  142. /* INC   */  ┴┬╙▀┌┼╥▀┌┼╥╪▀┴┬╙╪,0XE2,
  143. /* INX   */  ├╠┴╙╙1,0XE8,
  144. /* INY   */  ├╠┴╙╙1,0XC8,
  145. /* JMP   */  ┴┬╙▀╔╬─,0X40,
  146. /* JSR   */  ┴┬╙,0X14,
  147. /* LDA   */  ╔══2▀┴┬╙▀┌┼╥▀╔╬─╪▀╔╬─┘▀┌┼╥╪▀┴┬╙╪▀┴┬╙┘,0XA1,
  148. /* LDX   */  ╔══1▀┴┬╙▀┌┼╥▀┴┬╙┘2▀┌┼╥┘,0XA2,
  149. /* LDY   */  ╔══1▀┴┬╙▀┌┼╥▀┴┬╙╪▀┌┼╥╪,0XA0,
  150. /* LSR   */  ┴┬╙▀┌┼╥▀┌┼╥╪▀┴┬╙╪▀┴├├,0X42,
  151. /* NOP   */  ├╠┴╙╙1,0XEA,
  152. /* ORA   */  ╔══2▀┴┬╙▀┌┼╥▀╔╬─╪▀╔╬─┘▀┌┼╥╪▀┴┬╙╪▀┴┬╙┘,0X01,
  153. /* PHA   */  ├╠┴╙╙1,0X48,
  154. /* PHP   */  ├╠┴╙╙1,0X08,
  155. /* PLA   */  ├╠┴╙╙1,0X68,
  156. /* PLP   */  ├╠┴╙╙1,0X28,
  157. /* ROL   */  ┴┬╙▀┌┼╥▀┌┼╥╪▀┴┬╙╪▀┴├├,0X22,
  158. /* ROR   */  ┴┬╙▀┌┼╥▀┌┼╥╪▀┴┬╙╪▀┴├├,0X62,
  159. /* RTI   */  ├╠┴╙╙1,0X40,
  160. /* RTS   */  ├╠┴╙╙1,0X60,
  161. /* SBC   */  ╔══2▀┴┬╙▀┌┼╥▀╔╬─╪▀╔╬─┘▀┌┼╥╪▀┴┬╙╪▀┴┬╙┘,0XE1,
  162. /* SEC   */  ├╠┴╙╙1,0X38,
  163. /* SED   */  ├╠┴╙╙1,0XF8,
  164. /* SEI   */  ├╠┴╙╙1,0X78,
  165. /* STA   */  ┴┬╙▀┌┼╥▀╔╬─╪▀╔╬─┘▀┌┼╥╪▀┴┬╙╪▀┴┬╙┘,0X81,
  166. /* STX   */  ┴┬╙▀┌┼╥▀┌┼╥┘,0X82,
  167. /* STY   */  ┴┬╙▀┌┼╥▀┌┼╥╪,0X80,
  168. /* TAX   */  ├╠┴╙╙1,0XAA,
  169. /* TAY   */  ├╠┴╙╙1,0XA8,
  170. /* TSX   */  ├╠┴╙╙1,0XBA,
  171. /* TXA   */  ├╠┴╙╙1,0X8A,
  172. /* TXS   */  ├╠┴╙╙1,0X9A,
  173. /* TYA   */  ├╠┴╙╙1,0X98
  174. ▌;
  175.