Mercurial > hg > Members > kono > os9 > sbc09
annotate src/a09.c @ 127:321b7fffadab
TL/1 simple test worked
| author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
|---|---|
| date | Sat, 05 Jan 2019 19:08:54 +0900 |
| parents | fbb3301a2564 |
| children | 2937e970aac6 |
| rev | line source |
|---|---|
| 33 | 1 /* A09, 6809 Assembler2 |
| 0 | 2 |
| 3 created 1993,1994 by L.C. Benschop. | |
| 4 copyleft (c) 1994-2014 by the sbc09 team, see AUTHORS for more details. | |
| 5 license: GNU General Public License version 2, see LICENSE for more details. | |
| 6 THERE IS NO WARRANTY ON THIS PROGRAM. | |
| 7 | |
| 8 Generates binary image file from the lowest to | |
| 9 the highest address with actually assembled data. | |
| 10 | |
| 5 | 11 Machin edependencies: |
| 0 | 12 char is 8 bits. |
| 13 short is 16 bits. | |
| 14 integer arithmetic is twos complement. | |
| 15 | |
| 16 syntax a09 [-o filename] [-l filename] sourcefile. | |
| 17 | |
| 18 Options | |
| 19 -o filename name of the output file (default name minus a09 suffix) | |
| 20 -s filename name of the s-record output file (default its a binary file) | |
| 21 -l filename list file name (default no listing) | |
| 22 -d enable debugging | |
| 23 | |
| 24 recognized pseudoops: | |
| 25 extern public | |
| 26 macro endm if else endif | |
| 27 org equ set setdp | |
| 28 fcb fcw fdb fcc rmb | |
| 29 end include title | |
| 30 | |
| 31 Not all of these are actually IMPLEMENTED!!!!!! | |
| 32 | |
| 33 Revisions: | |
| 34 1993-11-03 v0.1 | |
| 35 Initial version. | |
| 36 1994/03/21 v0.2 | |
| 37 Fixed PC relative addressing bug | |
| 38 Added SET, SETDP, INCLUDE. IF/ELSE/ENDIF | |
| 39 No macros yet, and no separate linkable modules. | |
| 40 2012-06-04 j at klasek at | |
| 41 New: debugging parameter/option. | |
| 42 Fixed additional possible issue PC relative addressing. | |
| 43 Compatibility: Octal number prefix "&". | |
| 44 2014-07-15 j at klasek at | |
| 45 Fixed usage message. | |
|
29
3c14d647bb51
assembler and emulator fix
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
26
diff
changeset
|
46 2018-07-11 |
|
3c14d647bb51
assembler and emulator fix
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
26
diff
changeset
|
47 leax $ED00/256,x kernel offset in map |
|
3c14d647bb51
assembler and emulator fix
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
26
diff
changeset
|
48 should be positive offset expr should be int(32bit) |
| 0 | 49 */ |
| 50 | |
| 51 #include <stdlib.h> | |
| 52 #include <stdio.h> | |
| 53 #include <string.h> | |
| 54 #include <ctype.h> | |
| 55 | |
|
103
844305752064
no compile errors on mc09
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
100
diff
changeset
|
56 #define NLABELS (2048*2) |
| 0 | 57 #define MAXIDLEN 16 |
| 58 #define MAXLISTBYTES 8 | |
| 59 #define FNLEN 30 | |
| 60 #define LINELEN 128 | |
| 61 | |
| 62 static int debug=0; | |
| 33 | 63 static struct incl { |
| 64 char *name; | |
| 65 struct incl *next; | |
| 66 } *incls = 0; | |
| 67 | |
| 68 static struct longer { | |
| 69 int gline; | |
| 70 int change; | |
| 71 struct longer *next; | |
| 72 } *lglist = 0; | |
| 73 | |
| 0 | 74 |
| 75 struct oprecord{char * name; | |
| 76 unsigned char cat; | |
| 77 unsigned short code;}; | |
| 78 | |
| 100 | 79 #define EXPERR 1 |
| 80 #define ILLAERR 2 | |
| 81 #define UDEFLABELERR 4 | |
| 82 #define MULTLABELERR 8 | |
| 83 #define RBRACHERR 16 | |
| 84 #define MSSINGLBLERR 32 | |
| 85 #define ILLNMERR 0x8000 | |
| 86 | |
| 0 | 87 /* Instruction categories: |
| 88 0 one byte oprcodes NOP | |
| 89 1 two byte opcodes SWI2 | |
| 90 2 opcodes w. imm byte ANDCC | |
| 91 3 LEAX etc. | |
| 92 4 short branches. BGE | |
| 93 5 long branches 2byte opc LBGE | |
| 94 6 long branches 1byte opc LBRA | |
| 95 7 accumulator instr. ADDA | |
| 96 8 double reg instr 1byte opc LDX | |
| 97 9 double reg instr 2 byte opc LDY | |
| 98 10 single address instrs NEG | |
| 99 11 TFR, EXG | |
| 100 12 push,pull | |
| 101 13 pseudoops | |
| 102 */ | |
| 103 | |
| 104 struct oprecord optable[]={ | |
| 105 {"ABX",0,0x3a},{"ADCA",7,0x89},{"ADCB",7,0xc9}, | |
| 106 {"ADDA",7,0x8b},{"ADDB",7,0xcb},{"ADDD",8,0xc3}, | |
| 107 {"ANDA",7,0X84},{"ANDB",7,0xc4},{"ANDCC",2,0x1c}, | |
| 108 {"ASL",10,0x08},{"ASLA",0,0x48},{"ASLB",0,0x58}, | |
| 109 {"ASR",10,0x07},{"ASRA",0,0x47},{"ASRB",0,0x57}, | |
| 110 {"BCC",4,0x24},{"BCS",4,0x25},{"BEQ",4,0x27}, | |
| 111 {"BGE",4,0x2c},{"BGT",4,0x2e},{"BHI",4,0x22}, | |
| 112 {"BHS",4,0x24},{"BITA",7,0x85},{"BITB",7,0xc5}, | |
| 113 {"BLE",4,0x2f},{"BLO",4,0x25},{"BLS",4,0x23}, | |
| 114 {"BLT",4,0x2d},{"BMI",4,0x2b},{"BNE",4,0x26}, | |
| 115 {"BPL",4,0x2a},{"BRA",4,0x20},{"BRN",4,0x21}, | |
| 116 {"BSR",4,0x8d}, | |
| 117 {"BVC",4,0x28},{"BVS",4,0x29}, | |
| 118 {"CLC",1,0x1cfe},{"CLF",1,0x1cbf},{"CLI",1,0x1cef}, | |
| 119 {"CLIF",1,0x1caf}, | |
| 120 {"CLR",10,0x0f},{"CLRA",0,0x4f},{"CLRB",0,0x5f}, | |
| 121 {"CLV",1,0x1cfd}, | |
| 122 {"CMPA",7,0x81},{"CMPB",7,0xc1},{"CMPD",9,0x1083}, | |
| 123 {"CMPS",9,0x118c},{"CMPU",9,0x1183},{"CMPX",8,0x8c}, | |
| 124 {"CMPY",9,0x108c}, | |
| 125 {"COM",10,0x03},{"COMA",0,0x43},{"COMB",0,0x53}, | |
| 126 {"CWAI",2,0x3c},{"DAA",0,0x19}, | |
| 127 {"DEC",10,0x0a},{"DECA",0,0x4a},{"DECB",0,0x5a}, | |
| 128 {"DES",1,0x327f},{"DEU",1,0x335f},{"DEX",1,0x301f}, | |
| 129 {"DEY",1,0x313f}, | |
| 130 {"ELSE",13,1}, | |
| 131 {"EMOD",13,25}, | |
| 132 {"END",13,2}, | |
| 133 {"ENDC",13,3}, | |
| 134 {"ENDIF",13,3}, | |
| 135 {"ENDM",13,4}, | |
| 136 {"EORA",7,0x88},{"EORB",7,0xc8}, | |
| 137 {"EQU",13,5},{"EXG",11,0x1e},{"EXTERN",13,6}, | |
| 138 {"FCB",13,7},{"FCC",13,8}, | |
| 139 {"FCS",13,23}, | |
| 140 {"FCW",13,9}, | |
| 141 {"FDB",13,9}, | |
| 142 {"IF",13,10}, | |
| 33 | 143 {"IFEQ",13,30}, |
| 144 {"IFGT",13,29}, | |
| 145 {"IFNDEF",13,33}, | |
| 0 | 146 {"IFNE",13,28}, |
| 147 {"IFP1",13,21}, | |
| 148 {"INC",10,0x0c},{"INCA",0,0x4c},{"INCB",0,0x5c}, | |
| 149 {"INCLUDE",13,16}, | |
| 150 {"INS",1,0x3261},{"INU",1,0x3341},{"INX",1,0x3001}, | |
| 151 {"INY",1,0x3121},{"JMP",10,0x0e},{"JSR",8,0x8d}, | |
| 152 {"LBCC",5,0x1024},{"LBCS",5,0x1025},{"LBEQ",5,0x1027}, | |
| 153 {"LBGE",5,0x102c},{"LBGT",5,0x102e},{"LBHI",5,0x1022}, | |
| 154 {"LBHS",5,0x1024}, | |
| 155 {"LBLE",5,0x102f},{"LBLO",5,0x1025},{"LBLS",5,0x1023}, | |
| 156 {"LBLT",5,0x102d},{"LBMI",5,0x102b},{"LBNE",5,0x1026}, | |
| 157 {"LBPL",5,0x102a},{"LBRA",6,0x16},{"LBRN",5,0x1021}, | |
| 158 {"LBSR",6,0x17}, | |
| 159 {"LBVC",5,0x1028},{"LBVS",5,0x1029}, | |
| 160 {"LDA",7,0x86},{"LDB",7,0xc6},{"LDD",8,0xcc}, | |
| 161 {"LDS",9,0x10ce},{"LDU",8,0xce},{"LDX",8,0x8e}, | |
| 162 {"LDY",9,0x108e},{"LEAS",3,0x32}, | |
| 163 {"LEAU",3,0x33},{"LEAX",3,0x30},{"LEAY",3,0x31}, | |
| 164 {"LSL",10,0x08},{"LSLA",0,0x48},{"LSLB",0,0x58}, | |
| 165 {"LSR",10,0x04},{"LSRA",0,0x44},{"LSRB",0,0x54}, | |
| 166 {"MACRO",13,11}, | |
| 167 {"MOD",13,24}, | |
| 168 {"MUL",0,0x3d}, | |
| 169 {"NAM",13,26}, | |
| 170 {"NEG",10,0x00},{"NEGA",0,0x40},{"NEGB",0,0x50}, | |
| 171 {"NOP",0,0x12}, | |
| 172 {"OPT",13,19}, | |
| 173 {"ORA",7,0x8a},{"ORB",7,0xca},{"ORCC",2,0x1a}, | |
| 174 {"ORG",13,12}, | |
| 175 {"OS9",13,32}, | |
| 176 {"PAG",13,20}, {"PAGE",13,20}, | |
| 177 {"PSHS",12,0x34},{"PSHU",12,0x36},{"PUBLIC",13,13}, | |
| 178 {"PULS",12,0x35},{"PULU",12,0x37},{"RMB",13,0}, | |
| 179 {"ROL",10,0x09},{"ROLA",0,0x49},{"ROLB",0,0x59}, | |
| 180 {"ROR",10,0x06},{"RORA",0,0x46},{"RORB",0,0x56}, | |
| 181 {"RTI",0,0x3b},{"RTS",0,0x39}, | |
| 182 {"SBCA",7,0x82},{"SBCB",7,0xc2}, | |
| 183 {"SEC",1,0x1a01},{"SEF",1,0x1a40},{"SEI",1,0x1a10}, | |
| 184 {"SEIF",1,0x1a50},{"SET",13,15}, | |
| 82 | 185 {"SETDP",13,14},{"SEV",1,0x1a02},{"SEX",0,0x1d},{"SPC",13,20}, |
| 0 | 186 {"STA",7,0x87},{"STB",7,0xc7},{"STD",8,0xcd}, |
| 187 {"STS",9,0x10cf},{"STU",8,0xcf},{"STX",8,0x8f}, | |
| 188 {"STY",9,0x108f}, | |
| 189 {"SUBA",7,0x80},{"SUBB",7,0xc0},{"SUBD",8,0x83}, | |
| 190 {"SWI",0,0x3f},{"SWI2",1,0x103f},{"SWI3",1,0x113f}, | |
| 191 {"SYNC",0,0x13},{"TFR",11,0x1f}, | |
| 192 {"TITLE",13,18}, | |
| 193 {"TST",10,0x0d},{"TSTA",0,0x4d},{"TSTB",0,0x5d}, | |
| 194 {"TTL",13,18}, | |
| 195 {"USE",13,27}, | |
| 196 }; | |
| 197 | |
| 198 struct symrecord{char name[MAXIDLEN+1]; | |
| 199 char cat; | |
| 200 unsigned short value; | |
| 33 | 201 struct symrecord *next; |
| 0 | 202 }; |
| 203 | |
| 204 int symcounter=0; | |
| 34 | 205 int os9 = 0; // os9 flag |
| 206 int rmbmode = 0; // in os9 work area | |
| 26 | 207 struct symrecord * prevlp = 0; |
| 0 | 208 |
| 8 | 209 /* expression categories... |
| 210 ECORD all zeros is ordinary constant. | |
| 211 ECADR bit 1 indicates address within module. | |
| 212 ECEXT bit 2 indicates external address. | |
| 213 ECLBL bit 3 public label | |
| 214 ECABS bit 4 indicates this can't be relocated if it's an address. | |
| 215 ECNEG bit 5 indicates address (if any) is negative. | |
| 216 */ | |
| 217 | |
| 218 | |
| 219 /* Symbol categories. exprcat ( symcat & 0xe ) | |
| 220 0 SCC Constant value (from equ). ECORD | |
| 221 1 SCV Variable value (from set) ECORD | |
| 222 2 SCC__ADR Address within program module (label). ECADR | |
| 223 3 SCV__ADR Variable containing address. ECADR | |
| 224 4 SC_E_ADR Adress in other program module (extern) ECEXT | |
| 225 5 SCVE_ADR Variable containing external address. ECEXT | |
| 226 6 SCU _ADR Unresolved address. ECEXT+ECADR | |
| 227 7 SCV_UADR Variable containing unresolved address. ECEXT+ECADR | |
| 228 8 SC___LBL Public label. ECLBL | |
| 229 9 SCMACRO Macro definition. xxx | |
| 230 10 SCU__LBL Public label (yet undefined). ECADR+ECLBL | |
| 231 11 SCPARAM parameter name. ECADR+ECLBL | |
| 232 12 SCLOCAL local label. ECEXT+ECLBL | |
| 233 13 SCEMPTY empty. xxx | |
| 0 | 234 */ |
| 235 | |
| 236 struct symrecord symtable[NLABELS]; | |
| 237 | |
| 238 void processfile(char *name); | |
| 239 | |
| 240 struct oprecord * findop(char * nm) | |
| 241 /* Find operation (mnemonic) in table using binary search */ | |
| 242 { | |
| 243 int lo,hi,i,s; | |
| 244 lo=0;hi=sizeof(optable)/sizeof(optable[0])-1; | |
| 245 do { | |
| 246 i=(lo+hi)/2; | |
| 247 s=strcmp(optable[i].name,nm); | |
| 248 if(s<0) lo=i+1; | |
| 249 else if(s>0) hi=i-1; | |
| 250 else break; | |
| 251 } while(hi>=lo); | |
| 252 if (s) return NULL; | |
| 253 return optable+i; | |
| 254 } | |
| 255 | |
|
40
b8fa36c04ff7
fix multiple label on empty line
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
39
diff
changeset
|
256 struct symrecord * findsym(char * nm) { |
| 0 | 257 /* finds symbol table record; inserts if not found |
| 258 uses binary search, maintains sorted table */ | |
| 259 int lo,hi,i,j,s; | |
| 260 lo=0;hi=symcounter-1; | |
| 261 s=1;i=0; | |
| 262 while (hi>=lo) { | |
| 263 i=(lo+hi)/2; | |
| 264 s=strcmp(symtable[i].name,nm); | |
| 265 if(s<0) lo=i+1; | |
| 266 else if(s>0) hi=i-1; | |
| 267 else break; | |
| 268 } | |
| 269 if(s) { | |
| 270 i=(s<0?i+1:i); | |
| 271 if(symcounter==NLABELS) { | |
| 272 fprintf(stderr,"Sorry, no storage for symbols!!!"); | |
| 273 exit(4); | |
| 274 } | |
|
40
b8fa36c04ff7
fix multiple label on empty line
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
39
diff
changeset
|
275 for(j=symcounter;j>i;j--) { |
|
b8fa36c04ff7
fix multiple label on empty line
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
39
diff
changeset
|
276 struct symrecord *from = &symtable[j-1]; |
|
b8fa36c04ff7
fix multiple label on empty line
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
39
diff
changeset
|
277 if (prevlp == from) prevlp++; |
|
b8fa36c04ff7
fix multiple label on empty line
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
39
diff
changeset
|
278 if (from->next && from->next - symtable > i) from->next ++; |
|
b8fa36c04ff7
fix multiple label on empty line
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
39
diff
changeset
|
279 symtable[j]=symtable[j-1]; |
|
b8fa36c04ff7
fix multiple label on empty line
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
39
diff
changeset
|
280 } |
| 0 | 281 symcounter++; |
| 282 strcpy(symtable[i].name,nm); | |
| 283 symtable[i].cat=13; | |
| 284 } | |
| 285 return symtable+i; | |
| 286 } | |
| 287 | |
| 288 FILE *listfile,*objfile; | |
| 289 char *listname,*objname,*srcname,*curname; | |
| 33 | 290 int lineno,glineno; |
| 0 | 291 |
| 292 void | |
| 293 outsymtable() | |
| 294 { | |
| 295 int i,j=0; | |
| 296 fprintf(listfile,"\nSYMBOL TABLE"); | |
| 297 for(i=0;i<symcounter;i++) | |
| 298 if(symtable[i].cat!=13) { | |
| 299 if(j%4==0)fprintf(listfile,"\n"); | |
| 300 fprintf(listfile,"%10s %02d %04x",symtable[i].name,symtable[i].cat, | |
| 301 symtable[i].value); | |
| 302 j++; | |
| 303 } | |
| 304 fprintf(listfile,"\n"); | |
| 305 } | |
| 306 | |
| 307 struct regrecord{char *name;unsigned char tfr,psh;}; | |
| 308 struct regrecord regtable[]= | |
| 309 {{"D",0x00,0x06},{"X",0x01,0x10},{"Y",0x02,0x20}, | |
| 310 {"U",0x03,0x40},{"S",0x04,0x40},{"PC",0x05,0x80}, | |
| 311 {"A",0x08,0x02},{"B",0x09,0x04},{"CC",0x0a,0x01}, | |
| 312 {"CCR",0x0a,0x01},{"DP",0x0b,0x08},{"DPR",0x0b,0x08}}; | |
| 313 | |
| 314 struct regrecord * findreg(char *nm) | |
| 315 { | |
| 316 int i; | |
| 317 for(i=0;i<12;i++) { | |
| 318 if(strcmp(regtable[i].name,nm)==0) return regtable+i; | |
| 319 } | |
| 320 return 0; | |
| 321 } | |
| 322 | |
| 323 | |
| 324 char pass; /* Assembler pass=1 or 2 */ | |
| 325 char listing; /* flag to indicate listing */ | |
| 326 char relocatable; /* flag to indicate relocatable object. */ | |
| 327 char terminate; /* flag to indicate termination. */ | |
| 328 char generating; /* flag to indicate that we generate code */ | |
| 34 | 329 unsigned short loccounter,oldlc,prevloc,rmbcounter; /* Location counter */ |
| 0 | 330 |
| 331 char inpline[128]; /* Current input line (not expanded)*/ | |
| 332 char srcline[128]; /* Current source line */ | |
| 333 char * srcptr; /* Pointer to line being parsed */ | |
| 334 | |
| 335 char unknown; /* flag to indicate value unknown */ | |
| 336 char certain; /* flag to indicate value is certain at pass 1*/ | |
| 337 int error; /* flags indicating errors in current line. */ | |
| 338 int errors; /* number of errors */ | |
| 339 char exprcat; /* category of expression being parsed, eg. | |
| 340 label or constant, this is important when | |
| 341 generating relocatable object code. */ | |
| 342 | |
| 100 | 343 void seterror(int e) { |
| 344 error |= e; | |
| 345 } | |
| 346 | |
| 46 | 347 void makelonger(int gl) { |
| 348 if (pass==1) return; | |
| 349 for(struct longer *p=lglist;p;p=p->next) { | |
| 350 if (p->gline==gl) { // already fixed | |
| 351 p->change = 1; | |
| 352 return; | |
| 353 } | |
| 354 } | |
| 355 struct longer *p = (struct longer *)calloc(sizeof(struct longer *),1); | |
| 356 p->gline=gl; | |
| 357 p->next = lglist; | |
| 358 lglist = p; | |
| 359 } | |
| 360 | |
| 361 int longer() { | |
| 362 for(struct longer *p=lglist;p;p=p->next) { | |
| 363 if (p->change == 0) return 1; | |
| 364 } | |
| 365 return 0; | |
| 366 } | |
| 6 | 367 void generate() |
| 368 { | |
| 369 generating = 1; | |
| 34 | 370 if (rmbmode) { |
| 371 rmbcounter = loccounter; | |
| 372 oldlc = loccounter = prevloc; | |
| 373 rmbmode = 0; | |
| 6 | 374 } |
| 375 } | |
| 376 | |
| 0 | 377 |
| 378 char namebuf[MAXIDLEN+1]; | |
| 379 | |
| 380 void | |
| 381 err(int er) { | |
| 382 error |= er ; | |
| 383 } | |
| 384 | |
| 385 void | |
| 386 scanname() | |
| 387 { | |
| 388 int i=0; | |
| 389 char c; | |
| 390 while(1) { | |
| 391 c=*srcptr++; | |
| 392 if(c>='a'&&c<='z')c-=32; | |
| 33 | 393 if(c!='_'&&c!='@'&&c!='.'&&c!='$'&&(c<'0'||c>'9')&&(c<'A'||c>'Z'))break; |
| 0 | 394 if(i<MAXIDLEN)namebuf[i++]=c; |
| 395 } | |
| 396 namebuf[i]=0; | |
| 397 srcptr--; | |
| 398 } | |
| 399 | |
| 400 void | |
| 401 skipspace() | |
| 402 { | |
| 403 char c; | |
| 404 do { | |
| 405 c=*srcptr++; | |
| 406 } while(c==' '||c=='\t'); | |
| 407 srcptr--; | |
| 408 } | |
| 409 | |
|
29
3c14d647bb51
assembler and emulator fix
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
26
diff
changeset
|
410 int scanexpr(int); |
| 0 | 411 |
|
29
3c14d647bb51
assembler and emulator fix
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
26
diff
changeset
|
412 int scandecimal() |
| 0 | 413 { |
| 414 char c; | |
|
29
3c14d647bb51
assembler and emulator fix
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
26
diff
changeset
|
415 int t=0; |
| 0 | 416 c=*srcptr++; |
| 417 while(isdigit(c)) { | |
| 418 t=t*10+c-'0'; | |
| 419 c=*srcptr++; | |
| 420 } | |
| 421 srcptr--; | |
| 422 return t; | |
| 423 } | |
| 424 | |
|
29
3c14d647bb51
assembler and emulator fix
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
26
diff
changeset
|
425 int scanhex() |
| 0 | 426 { |
|
29
3c14d647bb51
assembler and emulator fix
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
26
diff
changeset
|
427 int t=0,i=0; |
| 0 | 428 srcptr++; |
| 429 scanname(); | |
| 430 while(namebuf[i]>='0'&&namebuf[i]<='F') { | |
| 431 t=t*16+namebuf[i]-'0'; | |
| 432 if(namebuf[i]>'9')t-=7; | |
| 433 i++; | |
| 434 } | |
| 100 | 435 if(i==0)seterror(1); |
| 0 | 436 return t; |
| 437 } | |
| 438 | |
|
29
3c14d647bb51
assembler and emulator fix
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
26
diff
changeset
|
439 int scanchar() |
| 0 | 440 { |
|
29
3c14d647bb51
assembler and emulator fix
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
26
diff
changeset
|
441 int t; |
| 0 | 442 srcptr++; |
| 119 | 443 if (*srcptr=='\\')srcptr++; |
| 0 | 444 t=*srcptr; |
| 445 if(t)srcptr++; | |
| 446 if (*srcptr=='\'')srcptr++; | |
| 447 return t; | |
| 448 } | |
| 449 | |
|
29
3c14d647bb51
assembler and emulator fix
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
26
diff
changeset
|
450 int scanbin() |
| 0 | 451 { |
| 452 char c; | |
|
29
3c14d647bb51
assembler and emulator fix
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
26
diff
changeset
|
453 int t=0; |
| 0 | 454 srcptr++; |
| 455 c=*srcptr++; | |
| 456 while(c=='0'||c=='1') { | |
| 457 t=t*2+c-'0'; | |
| 458 c=*srcptr++; | |
| 459 } | |
| 460 srcptr--; | |
| 461 return t; | |
| 462 } | |
| 463 | |
|
29
3c14d647bb51
assembler and emulator fix
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
26
diff
changeset
|
464 int scanoct() |
| 0 | 465 { |
| 466 char c; | |
|
29
3c14d647bb51
assembler and emulator fix
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
26
diff
changeset
|
467 int t=0; |
| 0 | 468 srcptr++; |
| 469 c=*srcptr++; | |
| 470 while(c>='0'&&c<='7') { | |
| 471 t=t*8+c-'0'; | |
| 472 c=*srcptr++; | |
| 473 } | |
| 474 srcptr--; | |
| 475 return t; | |
| 476 } | |
| 477 | |
| 478 | |
|
29
3c14d647bb51
assembler and emulator fix
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
26
diff
changeset
|
479 int scanlabel() |
| 0 | 480 { |
| 481 struct symrecord * p; | |
| 482 scanname(); | |
| 483 p=findsym(namebuf); | |
| 484 if(p->cat==13) { | |
| 485 p->cat=6; | |
| 486 p->value=0; | |
| 487 } | |
| 100 | 488 if(p->cat==9||p->cat==11)seterror(1); |
| 0 | 489 exprcat=p->cat&14; |
| 490 if(exprcat==6||exprcat==10)unknown=1; | |
| 491 if(((exprcat==2||exprcat==8) | |
| 492 && (unsigned short)(p->value)>(unsigned short)loccounter)|| | |
| 493 exprcat==4) | |
| 494 certain=0; | |
| 495 if(exprcat==8||exprcat==6||exprcat==10)exprcat=2; | |
| 496 return p->value; | |
| 497 } | |
| 498 | |
| 499 | |
|
29
3c14d647bb51
assembler and emulator fix
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
26
diff
changeset
|
500 int scanfactor() |
| 0 | 501 { |
| 502 char c; | |
|
29
3c14d647bb51
assembler and emulator fix
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
26
diff
changeset
|
503 int t; |
| 0 | 504 skipspace(); |
| 505 c=*srcptr; | |
| 100 | 506 if(isalpha(c)||c=='_')return scanlabel(); |
| 0 | 507 else if(isdigit(c))return scandecimal(); |
| 508 else switch(c) { | |
| 34 | 509 case '*' : srcptr++;exprcat|=2; if(rmbmode) return prevloc; else return loccounter; |
| 510 case '.' : srcptr++;exprcat|=2; if(os9&&!rmbmode) return rmbcounter; else return loccounter; | |
| 0 | 511 case '$' : return scanhex(); |
| 512 case '%' : return scanbin(); | |
| 513 case '&' : /* compatibility */ | |
| 514 case '@' : return scanoct(); | |
| 515 case '\'' : return scanchar(); | |
| 516 case '(' : srcptr++;t=scanexpr(0);skipspace(); | |
| 100 | 517 if(*srcptr==')')srcptr++;else seterror(1); |
| 0 | 518 return t; |
| 519 case '-' : srcptr++;exprcat^=32;return -scanfactor(); | |
| 520 case '+' : srcptr++;return scanfactor(); | |
| 521 case '!' : srcptr++;exprcat|=16;return !scanfactor(); | |
| 522 case '^' : | |
| 523 case '~' : srcptr++;exprcat|=16;return ~scanfactor(); | |
| 524 } | |
| 100 | 525 seterror(1); |
| 0 | 526 return 0; |
| 527 } | |
| 528 | |
| 529 #define EXITEVAL {srcptr--;return t;} | |
| 530 | |
| 531 #define RESOLVECAT if((oldcat&15)==0)oldcat=0;\ | |
| 532 if((exprcat&15)==0)exprcat=0;\ | |
| 533 if((exprcat==2&&oldcat==34)||(exprcat==34&&oldcat==2)) {\ | |
| 534 exprcat=0;\ | |
| 535 oldcat=0;}\ | |
| 536 exprcat|=oldcat;\ | |
| 537 /* resolve such cases as constant added to address or difference between | |
| 538 two addresses in same module */ | |
| 539 | |
| 540 | |
|
29
3c14d647bb51
assembler and emulator fix
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
26
diff
changeset
|
541 int scanexpr(int level) /* This is what you call _recursive_ descent!!!*/ |
| 0 | 542 { |
|
29
3c14d647bb51
assembler and emulator fix
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
26
diff
changeset
|
543 int t,u; |
| 0 | 544 char oldcat,c; |
| 545 exprcat=0; | |
| 546 if(level==10)return scanfactor(); | |
| 547 t=scanexpr(level+1); | |
| 548 while(1) { | |
| 5 | 549 // skipspace(); |
| 0 | 550 c=*srcptr++; |
| 551 switch(c) { | |
| 552 case '*':oldcat=exprcat; | |
| 553 t*=scanexpr(10); | |
| 554 exprcat|=oldcat|16; | |
| 555 break; | |
| 556 case '/':oldcat=exprcat; | |
| 557 u=scanexpr(10); | |
| 100 | 558 if(u)t/=u;else seterror(1); |
| 0 | 559 exprcat|=oldcat|16; |
| 560 break; | |
| 561 case '%':oldcat=exprcat; | |
| 562 u=scanexpr(10); | |
| 100 | 563 if(u)t%=u;else seterror(1); |
| 0 | 564 exprcat|=oldcat|16; |
| 565 break; | |
| 566 case '+':if(level==9)EXITEVAL | |
| 567 oldcat=exprcat; | |
| 568 t+=scanexpr(9); | |
| 569 RESOLVECAT | |
| 570 break; | |
| 571 case '-':if(level==9)EXITEVAL | |
| 572 oldcat=exprcat; | |
| 573 t-=scanexpr(9); | |
| 574 exprcat^=32; | |
| 575 RESOLVECAT | |
| 576 break; | |
| 577 case '<':if(*(srcptr)=='<') { | |
| 578 if(level>=8)EXITEVAL | |
| 579 srcptr++; | |
| 580 oldcat=exprcat; | |
| 581 t<<=scanexpr(8); | |
| 582 exprcat|=oldcat|16; | |
| 583 break; | |
| 584 } else if(*(srcptr)=='=') { | |
| 585 if(level>=7)EXITEVAL | |
| 586 srcptr++; | |
| 587 oldcat=exprcat; | |
| 588 t=t<=scanexpr(7); | |
| 589 exprcat|=oldcat|16; | |
| 590 break; | |
| 591 } else { | |
| 592 if(level>=7)EXITEVAL | |
| 593 oldcat=exprcat; | |
| 594 t=t<scanexpr(7); | |
| 595 exprcat|=oldcat|16; | |
| 596 break; | |
| 597 } | |
| 598 case '>':if(*(srcptr)=='>') { | |
| 599 if(level>=8)EXITEVAL | |
| 600 srcptr++; | |
| 601 oldcat=exprcat; | |
| 602 t>>=scanexpr(8); | |
| 603 exprcat|=oldcat|16; | |
| 604 break; | |
| 605 } else if(*(srcptr)=='=') { | |
| 606 if(level>=7)EXITEVAL | |
| 607 srcptr++; | |
| 608 oldcat=exprcat; | |
| 609 t=t>=scanexpr(7); | |
| 610 exprcat|=oldcat|16; | |
| 611 break; | |
| 612 } else { | |
| 613 if(level>=7)EXITEVAL | |
| 614 oldcat=exprcat; | |
| 615 t=t>scanexpr(7); | |
| 616 exprcat|=oldcat|16; | |
| 617 break; | |
| 618 } | |
| 5 | 619 case '!':if(level>=6) { |
| 620 if (*srcptr=='=') { | |
| 621 srcptr++; | |
| 622 oldcat=exprcat; | |
| 623 t=t!=scanexpr(6); | |
| 624 exprcat|=oldcat|16; | |
| 625 } else { | |
| 626 oldcat=exprcat; | |
| 627 t|=scanexpr(6); | |
| 628 exprcat|=oldcat|16; | |
| 629 } | |
| 630 } | |
| 0 | 631 break; |
| 632 case '=':if(level>=6)EXITEVAL | |
| 633 if(*srcptr=='=')srcptr++; | |
| 634 oldcat=exprcat; | |
| 635 t=t==scanexpr(6); | |
| 636 exprcat|=oldcat|16; | |
| 637 break; | |
| 638 case '&':if(level>=5)EXITEVAL | |
| 639 oldcat=exprcat; | |
| 640 t&=scanexpr(5); | |
| 641 exprcat|=oldcat|16; | |
| 642 break; | |
| 643 case '^':if(level>=4)EXITEVAL | |
| 644 oldcat=exprcat; | |
| 645 t^=scanexpr(4); | |
| 646 exprcat|=oldcat|16; | |
| 647 break; | |
| 648 case '|':if(level>=3)EXITEVAL | |
| 649 oldcat=exprcat; | |
| 650 t|=scanexpr(3); | |
| 651 exprcat|=oldcat|16; | |
| 652 default: EXITEVAL | |
| 653 } | |
| 654 } | |
| 655 } | |
| 656 | |
| 657 char mode; /* addressing mode 0=immediate,1=direct,2=extended,3=postbyte | |
| 658 4=pcrelative(with postbyte) 5=indirect 6=pcrel&indirect*/ | |
| 659 char opsize; /*desired operand size 0=dunno,1=5,2=8,3=16*/ | |
| 660 short operand; | |
| 661 unsigned char postbyte; | |
| 662 | |
| 118 | 663 int dpsetting = 0; |
| 0 | 664 |
| 665 | |
| 666 int scanindexreg() | |
| 667 { | |
| 668 char c; | |
| 669 c=*srcptr; | |
| 670 if(islower(c))c-=32; | |
| 671 if (debug) fprintf(stderr,"DEBUG: scanindexreg: indexreg=%d, mode=%d, opsize=%d, error=%d, postbyte=%02X\n",c,mode,opsize,error,postbyte); | |
| 672 switch(c) { | |
| 673 case 'X':return 1; | |
| 674 case 'Y':postbyte|=0x20;return 1; | |
| 675 case 'U':postbyte|=0x40;return 1; | |
| 676 case 'S':postbyte|=0x60;return 1; | |
| 677 default: return 0; | |
| 678 } | |
| 679 } | |
| 680 | |
| 681 void | |
| 682 set3() | |
| 683 { | |
| 684 if(mode<3)mode=3; | |
| 685 } | |
| 686 | |
| 687 void | |
| 688 scanspecial() | |
| 689 { | |
| 690 set3(); | |
| 691 skipspace(); | |
| 692 if(*srcptr=='-') { | |
| 693 srcptr++; | |
| 694 if(*srcptr=='-') { | |
| 695 srcptr++; | |
| 696 postbyte=0x83; | |
| 697 } else postbyte=0x82; | |
| 100 | 698 if(!scanindexreg())seterror(2);else srcptr++; |
| 0 | 699 } else { |
| 700 postbyte=0x80; | |
| 100 | 701 if(!scanindexreg())seterror(2);else srcptr++; |
| 0 | 702 if(*srcptr=='+') { |
| 703 srcptr++; | |
| 704 if(*srcptr=='+') { | |
| 705 srcptr++; | |
| 706 postbyte+=1; | |
| 707 } | |
| 708 } else postbyte+=4; | |
| 709 } | |
| 710 } | |
| 711 | |
| 712 void | |
| 713 scanindexed() | |
| 714 { | |
| 715 set3(); | |
| 716 postbyte=0; | |
| 717 if(scanindexreg()) { | |
| 718 srcptr++; | |
| 719 if(opsize==0) { | |
| 720 if(unknown||!certain)opsize=3; | |
| 721 else if(operand>=-16&&operand<16&&mode==3)opsize=1; | |
| 722 else if(operand>=-128&&operand<128)opsize=2; | |
| 723 else opsize=3; | |
| 724 } | |
| 725 switch(opsize) { | |
| 726 case 1:postbyte+=(operand&31);opsize=0;break; | |
| 727 case 2:postbyte+=0x88;break; | |
| 728 case 3:postbyte+=0x89;break; | |
| 729 } | |
| 730 } else { /*pc relative*/ | |
| 100 | 731 if(toupper(*srcptr)!='P')seterror(2); |
| 0 | 732 else { |
| 733 srcptr++; | |
| 100 | 734 if(toupper(*srcptr)!='C')seterror(2); |
| 0 | 735 else { |
| 736 srcptr++; | |
| 737 if(toupper(*srcptr)=='R')srcptr++; | |
| 738 } | |
| 739 } | |
| 740 mode++;postbyte+=0x8c; | |
| 741 if(opsize==1)opsize=2; | |
| 742 } | |
| 743 } | |
| 744 | |
| 745 #define RESTORE {srcptr=oldsrcptr;c=*srcptr;goto dodefault;} | |
| 746 | |
| 747 void | |
| 748 scanoperands() | |
| 749 { | |
| 750 char c,d,*oldsrcptr; | |
| 751 unknown=0; | |
| 752 opsize=0; | |
| 753 certain=1; | |
| 754 skipspace(); | |
| 755 c=*srcptr; | |
| 756 mode=0; | |
| 757 if(c=='[') { | |
| 758 srcptr++; | |
| 759 c=*srcptr; | |
| 760 mode=5; | |
| 761 } | |
| 762 if (debug) fprintf(stderr,"DEBUG: scanoperands: c=%c (%02X)\n",c,c); | |
| 763 switch(c) { | |
| 764 case 'D': case 'd': | |
| 765 oldsrcptr=srcptr; | |
| 766 srcptr++; | |
| 767 skipspace(); | |
| 768 if(*srcptr!=',')RESTORE else { | |
| 769 postbyte=0x8b; | |
| 770 srcptr++; | |
| 771 if(!scanindexreg())RESTORE else {srcptr++;set3();} | |
| 772 } | |
| 773 break; | |
| 774 case 'A': case 'a': | |
| 775 oldsrcptr=srcptr; | |
| 776 srcptr++; | |
| 777 skipspace(); | |
| 778 if(*srcptr!=',')RESTORE else { | |
| 779 postbyte=0x86; | |
| 780 srcptr++; | |
| 781 if(!scanindexreg())RESTORE else {srcptr++;set3();} | |
| 782 } | |
| 783 break; | |
| 784 case 'B': case 'b': | |
| 785 oldsrcptr=srcptr; | |
| 786 srcptr++; | |
| 787 skipspace(); | |
| 788 if(*srcptr!=',')RESTORE else { | |
| 789 postbyte=0x85; | |
| 790 srcptr++; | |
| 791 if (debug) fprintf(stderr,"DEBUG: scanoperands: breg preindex: c=%c (%02X)\n",*srcptr,*srcptr); | |
| 792 if(!scanindexreg())RESTORE else {srcptr++;set3();} | |
| 793 if (debug) fprintf(stderr,"DEBUG: scanoperands: breg: postindex c=%c (%02X)\n",*srcptr,*srcptr); | |
| 794 } | |
| 795 break; | |
| 796 case ',': | |
| 797 srcptr++; | |
| 798 scanspecial(); | |
| 799 break; | |
| 800 case '#': | |
| 100 | 801 if(mode==5)seterror(2);else mode=0; |
| 0 | 802 srcptr++; |
| 119 | 803 if (*srcptr=='"') { // ?? |
| 5 | 804 operand = (srcptr[1]<<8) + srcptr[2] ; |
| 805 srcptr += 3; | |
| 806 break; | |
| 807 } | |
| 0 | 808 operand=scanexpr(0); |
| 809 break; | |
| 810 case '<': | |
| 811 srcptr++; | |
| 812 if(*srcptr=='<') { | |
| 813 srcptr++; | |
| 814 opsize=1; | |
| 815 } else opsize=2; | |
| 816 goto dodefault; | |
| 817 case '>': | |
| 818 srcptr++; | |
| 819 opsize=3; | |
| 820 default: dodefault: | |
| 821 operand=scanexpr(0); | |
| 822 skipspace(); | |
| 823 if(*srcptr==',') { | |
| 824 srcptr++; | |
| 825 scanindexed(); | |
| 826 } else { | |
| 827 if(opsize==0) { | |
| 118 | 828 if(unknown||dpsetting==-1|| // omit !certain |
| 829 ((((operand&0xff00)>>8))!=dpsetting)) | |
| 0 | 830 opsize=3; else opsize=2; |
| 831 } | |
| 832 if(opsize==1)opsize=2; | |
| 833 if(mode==5){ | |
| 834 postbyte=0x8f; | |
| 835 opsize=3; | |
| 836 } else mode=opsize-1; | |
| 837 } | |
| 838 } | |
| 839 if (debug) fprintf(stderr,"DEBUG: scanoperands: mode=%d, error=%d, postbyte=%02X\n",mode,error,postbyte); | |
| 840 if(mode>=5) { | |
| 841 skipspace(); | |
| 842 postbyte|=0x10; | |
| 100 | 843 if(*srcptr!=']')seterror(2);else srcptr++; |
| 0 | 844 } |
| 100 | 845 if(pass==2&&unknown)seterror(4); |
| 0 | 846 } |
| 847 | |
| 848 unsigned char codebuf[128]; | |
| 849 int codeptr; /* byte offset within instruction */ | |
| 850 int suppress; /* 0=no suppress 1=until ENDIF 2=until ELSE 3=until ENDM */ | |
| 851 int ifcount; /* count of nested IFs within suppressed text */ | |
| 852 | |
| 853 unsigned char outmode; /* 0 is binary, 1 is s-records */ | |
| 854 | |
| 855 unsigned short hexaddr; | |
| 856 int hexcount; | |
| 857 unsigned char hexbuffer[16]; | |
| 858 unsigned int chksum; | |
| 859 | |
| 860 extern int os9crc(unsigned char c, int crcp); | |
| 861 int crc; | |
| 862 | |
| 863 void | |
| 864 reset_crc() | |
| 865 { | |
| 866 crc = -1; | |
| 867 } | |
| 868 | |
| 869 | |
| 870 void | |
| 871 flushhex() | |
| 872 { | |
| 873 int i; | |
| 874 if(hexcount){ | |
| 875 fprintf(objfile,"S1%02X%04X",(hexcount+3)&0xff,hexaddr&0xffff); | |
| 876 for(i=0;i<hexcount;i++)fprintf(objfile,"%02X",hexbuffer[i]); | |
| 877 chksum+=(hexaddr&0xff)+((hexaddr>>8)&0xff)+hexcount+3; | |
| 878 fprintf(objfile,"%02X\n",0xff-(chksum&0xff)); | |
| 879 hexaddr+=hexcount; | |
| 880 hexcount=0; | |
| 881 chksum=0; | |
| 882 } | |
| 883 } | |
| 884 | |
| 885 void | |
| 886 outhex(unsigned char x) | |
| 887 { | |
| 888 if(hexcount==16)flushhex(); | |
| 889 hexbuffer[hexcount++]=x; | |
| 890 chksum+=x; | |
| 891 } | |
| 892 | |
| 893 void | |
| 894 outbuffer() | |
| 895 { | |
| 896 int i; | |
| 897 for(i=0;i<codeptr;i++) { | |
| 898 crc = os9crc(codebuf[i],crc); | |
| 899 if(!outmode)fputc(codebuf[i],objfile);else outhex(codebuf[i]); | |
| 900 } | |
| 901 } | |
| 902 | |
| 903 char *errormsg[]={"Error in expression", | |
| 904 "Illegal addressing mode", | |
| 905 "Undefined label", | |
| 906 "Multiple definitions of label", | |
| 907 "Relative branch out of range", | |
| 908 "Missing label", | |
| 909 "","","","","","","","","", | |
| 910 "Illegal mnemonic" | |
| 911 }; | |
| 912 | |
| 913 void | |
| 914 report() | |
| 915 { | |
| 916 int i; | |
| 917 fprintf(stderr,"File %s, line %d:%s\n",curname,lineno,srcline); | |
| 918 for(i=0;i<16;i++) { | |
| 919 if(error&1) { | |
| 920 fprintf(stderr,"%s\n",errormsg[i]); | |
| 921 if(pass==2&&listing)fprintf(listfile,"**** %s\n",errormsg[i]); | |
| 922 } | |
| 923 error>>=1; | |
| 924 } | |
| 5 | 925 error = 0; |
| 0 | 926 errors++; |
| 927 } | |
| 928 | |
| 929 void | |
| 930 outlist() | |
| 931 { | |
| 932 int i; | |
| 933 fprintf(listfile,"%04X: ",oldlc); | |
| 934 for(i=0;i<codeptr&&i<MAXLISTBYTES;i++) | |
| 935 fprintf(listfile,"%02X",codebuf[i]); | |
| 936 for(;i<=MAXLISTBYTES;i++) | |
| 937 fprintf(listfile," "); | |
| 938 fprintf(listfile,"%s\n",srcline); | |
| 939 while(i<codeptr) { | |
| 940 fprintf(listfile,"%04X: ",oldlc + i); | |
| 941 for(int j=0;i<codeptr&&j<MAXLISTBYTES;j++) { | |
| 942 fprintf(listfile,"%02X",codebuf[i]); i++; | |
| 943 } | |
| 944 fprintf(listfile,"\n"); | |
| 945 } | |
| 946 } | |
| 947 | |
| 948 void | |
| 949 setlabel(struct symrecord * lp) | |
| 950 { | |
| 33 | 951 while (prevlp) { |
| 26 | 952 struct symrecord *l = prevlp; |
| 33 | 953 prevlp = prevlp->next; |
|
40
b8fa36c04ff7
fix multiple label on empty line
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
39
diff
changeset
|
954 l->next = 0; |
| 26 | 955 setlabel(l); |
| 956 } | |
| 0 | 957 if(lp) { |
| 958 if(lp->cat!=13&&lp->cat!=6) { | |
| 959 if(lp->cat!=2||lp->value!=loccounter) | |
| 100 | 960 lp->value=loccounter; // seterror(8); |
| 0 | 961 } else { |
| 962 lp->cat=2; | |
| 963 lp->value=loccounter; | |
| 964 } | |
| 965 } | |
| 966 } | |
| 967 | |
| 968 void | |
| 969 putbyte(unsigned char b) | |
| 970 { | |
| 971 codebuf[codeptr++]=b; | |
| 972 } | |
| 973 | |
| 974 void | |
| 975 putword(unsigned short w) | |
| 976 { | |
| 977 codebuf[codeptr++]=w>>8; | |
| 978 codebuf[codeptr++]=w&0x0ff; | |
| 979 } | |
| 980 | |
| 981 void | |
| 982 doaddress() /* assemble the right addressing bytes for an instruction */ | |
| 983 { | |
| 984 int offs; | |
| 985 switch(mode) { | |
| 986 case 0: if(opsize==2)putbyte(operand);else putword(operand);break; | |
| 987 case 1: putbyte(operand);break; | |
| 988 case 2: putword(operand);break; | |
| 989 case 3: case 5: putbyte(postbyte); | |
| 990 switch(opsize) { | |
| 991 case 2: putbyte(operand);break; | |
| 992 case 3: putword(operand); | |
| 993 } | |
| 994 break; | |
| 995 case 4: case 6: offs=(unsigned short)operand-loccounter-codeptr-2; | |
| 996 if(offs<-128||offs>=128||opsize==3||unknown||!certain) { | |
| 33 | 997 if((!unknown)&&opsize==2&&(offs<-128||offs>=128) ) { |
| 100 | 998 seterror(16); makelonger(glineno); |
| 33 | 999 } |
|
12
111e5defb8ab
boot is called, rti failed
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
11
diff
changeset
|
1000 offs--; |
|
111e5defb8ab
boot is called, rti failed
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
11
diff
changeset
|
1001 opsize=3; |
|
111e5defb8ab
boot is called, rti failed
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
11
diff
changeset
|
1002 postbyte++; |
| 0 | 1003 } |
| 1004 putbyte(postbyte); | |
| 1005 if (debug) fprintf(stderr,"DEBUG: doaddress: mode=%d, opsize=%d, error=%d, postbyte=%02X, operand=%04X offs=%d\n",mode,opsize,error,postbyte,operand,offs); | |
| 1006 if(opsize==3)putword(offs); | |
| 1007 else putbyte(offs); | |
| 1008 } | |
| 1009 } | |
| 1010 | |
| 1011 void | |
| 1012 onebyte(int co) | |
| 1013 { | |
| 1014 putbyte(co); | |
| 1015 } | |
| 1016 | |
| 1017 void | |
| 1018 twobyte(int co) | |
| 1019 { | |
| 1020 putword(co); | |
| 1021 } | |
| 1022 | |
| 1023 void | |
| 1024 oneimm(int co) | |
| 1025 { | |
| 1026 scanoperands(); | |
| 5 | 1027 if(mode>=3) |
| 100 | 1028 seterror(2); |
| 0 | 1029 putbyte(co); |
| 1030 putbyte(operand); | |
| 1031 } | |
| 1032 | |
| 1033 void | |
| 1034 lea(int co) | |
| 1035 { | |
| 1036 putbyte(co); | |
| 1037 scanoperands(); | |
| 100 | 1038 if(mode==0) seterror(2); |
| 0 | 1039 if(mode<3) { |
| 1040 opsize=3; | |
| 1041 postbyte=0x8f; | |
| 1042 mode=3; | |
| 1043 } | |
| 1044 if (debug) fprintf(stderr,"DEBUG: lea: mode=%d, opsize=%d, error=%d, postbyte=%02X, *src=%c\n",mode,opsize,error,postbyte,*srcptr); | |
| 1045 doaddress(); | |
| 1046 } | |
| 1047 | |
| 1048 void | |
| 1049 sbranch(int co) | |
| 1050 { | |
| 1051 int offs; | |
| 1052 scanoperands(); | |
| 100 | 1053 if(mode!=1&&mode!=2)seterror(2); |
| 0 | 1054 offs=(unsigned short)operand-loccounter-2; |
| 33 | 1055 if(!unknown&&(offs<-128||offs>=128)) { |
| 100 | 1056 seterror(16);makelonger(glineno); |
| 33 | 1057 if (co==0x20) { |
| 100 | 1058 if(mode!=1&&mode!=2)seterror(2); |
| 33 | 1059 putbyte(0x16); |
| 1060 putword(operand-loccounter-3); | |
| 1061 } else { | |
| 100 | 1062 if(mode!=1&&mode!=2)seterror(2); |
| 33 | 1063 putbyte(0x10); |
| 1064 putbyte(co); | |
| 1065 putword(operand-loccounter-4); | |
| 1066 } | |
| 1067 return; | |
| 1068 } | |
| 100 | 1069 if(pass==2&&unknown)seterror(4); |
| 0 | 1070 putbyte(co); |
| 1071 putbyte(offs); | |
| 1072 } | |
| 1073 | |
| 1074 void | |
| 1075 lbra(int co) | |
| 1076 { | |
| 1077 scanoperands(); | |
| 100 | 1078 if(mode!=1&&mode!=2)seterror(2); |
| 0 | 1079 putbyte(co); |
| 1080 putword(operand-loccounter-3); | |
| 1081 } | |
| 1082 | |
| 1083 void | |
| 1084 lbranch(int co) | |
| 1085 { | |
| 1086 scanoperands(); | |
| 100 | 1087 if(mode!=1&&mode!=2)seterror(2); |
| 0 | 1088 putword(co); |
| 1089 putword(operand-loccounter-4); | |
| 1090 } | |
| 1091 | |
| 1092 void | |
| 1093 arith(int co) | |
| 1094 { | |
| 1095 scanoperands(); | |
| 1096 switch(mode) { | |
| 1097 case 0:opsize=2;putbyte(co);break; | |
| 1098 case 1:putbyte(co+0x010);break; | |
| 1099 case 2:putbyte(co+0x030);break; | |
| 1100 default:putbyte(co+0x020); | |
| 1101 } | |
| 1102 doaddress(); | |
| 1103 } | |
| 1104 | |
| 1105 void | |
| 1106 darith(int co) | |
| 1107 { | |
| 1108 scanoperands(); | |
| 1109 switch(mode) { | |
| 1110 case 0:opsize=3;putbyte(co);break; | |
| 1111 case 1:putbyte(co+0x010);break; | |
| 1112 case 2:putbyte(co+0x030);break; | |
| 1113 default:putbyte(co+0x020); | |
| 1114 } | |
| 1115 doaddress(); | |
| 1116 } | |
| 1117 | |
| 1118 void | |
| 1119 d2arith(int co) | |
| 1120 { | |
| 1121 scanoperands(); | |
| 1122 switch(mode) { | |
| 1123 case 0:opsize=3;putword(co);break; | |
| 1124 case 1:putword(co+0x010);break; | |
| 1125 case 2:putword(co+0x030);break; | |
| 1126 default:putword(co+0x020); | |
| 1127 } | |
| 1128 doaddress(); | |
| 1129 } | |
| 1130 | |
| 1131 void | |
| 1132 oneaddr(int co) | |
| 1133 { | |
| 1134 scanoperands(); | |
| 1135 switch(mode) { | |
| 100 | 1136 case 0: seterror(2);break; |
| 0 | 1137 case 1: putbyte(co);break; |
| 1138 case 2: putbyte(co+0x70);break; | |
| 1139 default: putbyte(co+0x60);break; | |
| 1140 } | |
| 1141 doaddress(); | |
| 1142 } | |
| 1143 | |
| 1144 void | |
| 1145 tfrexg(int co) | |
| 1146 { | |
| 1147 struct regrecord * p; | |
| 1148 putbyte(co); | |
| 1149 skipspace(); | |
| 1150 scanname(); | |
| 100 | 1151 if((p=findreg(namebuf))==0)seterror(2); |
| 0 | 1152 else postbyte=(p->tfr)<<4; |
| 1153 skipspace(); | |
| 100 | 1154 if(*srcptr==',')srcptr++;else seterror(2); |
| 0 | 1155 skipspace(); |
| 1156 scanname(); | |
| 100 | 1157 if((p=findreg(namebuf))==0)seterror(2); |
| 0 | 1158 else postbyte|=p->tfr; |
| 1159 putbyte(postbyte); | |
| 1160 } | |
| 1161 | |
| 1162 void | |
| 1163 pshpul(int co) | |
| 1164 { | |
| 1165 struct regrecord *p; | |
| 1166 putbyte(co); | |
| 1167 postbyte=0; | |
| 1168 do { | |
| 1169 if(*srcptr==',')srcptr++; | |
| 1170 skipspace(); | |
| 1171 scanname(); | |
| 100 | 1172 if((p=findreg(namebuf))==0)seterror(2); |
| 0 | 1173 else postbyte|=p->psh; |
| 1174 skipspace(); | |
| 1175 }while (*srcptr==','); | |
| 1176 putbyte(postbyte); | |
| 1177 } | |
| 1178 | |
| 1179 void | |
| 1180 skipComma() | |
| 1181 { | |
| 1182 while(*srcptr && *srcptr!='\n' && *srcptr!=',')srcptr++; | |
| 1183 if (*srcptr==',') { | |
| 1184 srcptr++; | |
| 1185 } else { | |
| 100 | 1186 seterror(1); |
| 0 | 1187 } |
| 1188 } | |
| 1189 | |
| 1190 void os9begin() | |
| 1191 { | |
| 6 | 1192 generate(); |
| 39 | 1193 os9=1; // contiguous code generation ( seprate rmb and code ) |
| 34 | 1194 oldlc = loccounter = rmbcounter = rmbmode = 0; |
| 0 | 1195 reset_crc(); |
| 1196 putword(0x87cd); | |
| 1197 putword(scanexpr(0)-loccounter); // module size | |
| 100 | 1198 if(unknown&&pass==2)seterror(4); |
| 0 | 1199 skipComma(); |
| 1200 putword(scanexpr(0)-loccounter); // offset to module name | |
| 100 | 1201 if(unknown&&pass==2)seterror(4); |
| 0 | 1202 skipComma(); |
| 1203 putbyte(scanexpr(0)); // type / language | |
| 100 | 1204 if(unknown&&pass==2)seterror(4); |
| 0 | 1205 skipComma(); |
| 1206 putbyte(scanexpr(0)); // attribute | |
| 100 | 1207 if(unknown&&pass==2)seterror(4); |
| 0 | 1208 int parity=0; |
| 1209 for(int i=0; i< 8; i++) parity^=codebuf[i]; | |
| 1210 putbyte(parity^0xff); // header parity | |
| 1211 skipspace(); | |
| 1212 while (*srcptr==',') { // there are some more | |
| 1213 srcptr++; | |
| 1214 putword(scanexpr(0)); | |
| 100 | 1215 if(unknown&&pass==2)seterror(4); |
| 0 | 1216 skipspace(); |
| 1217 } | |
| 34 | 1218 prevloc = codeptr; |
| 1219 rmbmode = 1; // next org works on rmb | |
| 39 | 1220 rmbcounter=0; |
| 34 | 1221 loccounter = 0x10000-codeptr; // should start at 0 |
| 0 | 1222 } |
| 1223 | |
| 1224 void os9end() | |
| 1225 { | |
| 1226 crc = crc ^ 0xffffff; | |
| 1227 | |
| 1228 putbyte((crc>>16)&0xff); | |
| 1229 putbyte((crc>>8)&0xff); | |
| 1230 putbyte(crc&0xff); | |
| 39 | 1231 os9 = 0; |
| 0 | 1232 } |
| 1233 | |
| 1234 | |
| 1235 void | |
| 1236 pseudoop(int co,struct symrecord * lp) | |
| 1237 { | |
| 1238 int i; | |
| 1239 char c; | |
| 1240 char *fname; | |
| 1241 int locsave; | |
| 1242 | |
| 1243 switch(co) { | |
| 1244 case 0:/* RMB */ | |
| 3 | 1245 // in OS9 mode, this generates no data |
| 1246 // loccounter will be reset after any code to the current code generation | |
| 34 | 1247 if (os9 && !rmbmode) { |
| 1248 prevloc = loccounter; | |
| 1249 oldlc = loccounter = rmbcounter; | |
| 1250 rmbmode = 1; | |
| 33 | 1251 } |
| 0 | 1252 setlabel(lp); |
|
40
b8fa36c04ff7
fix multiple label on empty line
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
39
diff
changeset
|
1253 oldlc = loccounter; |
| 0 | 1254 operand=scanexpr(0); |
| 100 | 1255 if(unknown)seterror(4); |
| 0 | 1256 loccounter+=operand; |
| 1257 if(generating&&pass==2) { | |
| 6 | 1258 if(!outmode && !os9 ) { |
| 1259 for(i=0;i<operand;i++) { fputc(0,objfile); } | |
| 1260 } else | |
| 1261 flushhex(); | |
| 0 | 1262 } |
| 1263 hexaddr=loccounter; | |
| 1264 break; | |
| 1265 case 5:/* EQU */ | |
| 1266 operand=scanexpr(0); | |
| 100 | 1267 if(!lp)seterror(32); |
| 0 | 1268 else { |
| 1269 if(lp->cat==13||lp->cat==6|| | |
| 1270 (lp->value==(unsigned short)operand&&pass==2)) { | |
| 1271 if(exprcat==2)lp->cat=2; | |
| 1272 else lp->cat=0; | |
|
40
b8fa36c04ff7
fix multiple label on empty line
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
39
diff
changeset
|
1273 lp->value=oldlc=operand; |
| 100 | 1274 } else // else seterror(8); |
|
40
b8fa36c04ff7
fix multiple label on empty line
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
39
diff
changeset
|
1275 lp->value=oldlc=operand; |
| 0 | 1276 } |
| 1277 break; | |
| 1278 case 7:/* FCB */ | |
| 6 | 1279 generate(); |
| 0 | 1280 setlabel(lp); |
| 120 | 1281 fcb: |
| 0 | 1282 do { |
| 1283 if(*srcptr==',')srcptr++; | |
| 1284 skipspace(); | |
| 1285 if(*srcptr=='\"') { | |
| 1286 srcptr++; | |
| 1287 while(*srcptr!='\"'&&*srcptr) | |
| 1288 putbyte(*srcptr++); | |
| 1289 if(*srcptr=='\"')srcptr++; | |
| 1290 } else { | |
| 1291 putbyte(scanexpr(0)); | |
| 100 | 1292 if(unknown&&pass==2)seterror(4); |
| 0 | 1293 } |
| 1294 skipspace(); | |
| 1295 } while(*srcptr==','); | |
| 1296 break; | |
| 1297 case 8:/* FCC */ | |
| 6 | 1298 generate(); |
| 0 | 1299 setlabel(lp); |
| 1300 skipspace(); | |
| 1301 c=*srcptr++; | |
| 1302 while(*srcptr!=c&&*srcptr) | |
| 120 | 1303 putbyte(*srcptr++); |
| 0 | 1304 if(*srcptr==c)srcptr++; |
| 120 | 1305 if(*srcptr==',') goto fcb; |
| 0 | 1306 break; |
| 1307 case 9:/* FDB */ | |
| 6 | 1308 generate(); |
| 0 | 1309 setlabel(lp); |
| 1310 do { | |
| 1311 if(*srcptr==',')srcptr++; | |
| 1312 skipspace(); | |
| 1313 putword(scanexpr(0)); | |
| 100 | 1314 if(unknown&&pass==2)seterror(4); |
| 0 | 1315 skipspace(); |
| 1316 } while(*srcptr==','); | |
| 1317 break; | |
| 1318 case 23 :/* FCS */ | |
| 6 | 1319 generate(); |
| 0 | 1320 setlabel(lp); |
| 1321 skipspace(); | |
| 1322 int sep = *srcptr; | |
| 35 | 1323 if(sep=='\"' || sep=='/' || sep=='\'') { |
| 0 | 1324 srcptr++; |
| 1325 while(*srcptr!=sep&&*srcptr) | |
| 1326 putbyte(*srcptr++); | |
| 1327 if(*srcptr==sep)srcptr++; | |
| 1328 codebuf[codeptr-1] |= 0x80; // os9 string termination | |
| 1329 } | |
| 1330 break; | |
| 1331 case 1: /* ELSE */ | |
| 1332 suppress=1; | |
| 1333 break; | |
| 1334 case 21: /* IFP1 */ | |
| 1335 if(pass==2)suppress=2; | |
| 1336 break; | |
| 1337 case 29: /* IFGT */ | |
| 1338 operand=scanexpr(0); | |
| 33 | 1339 if(operand<=0)suppress=2; |
| 0 | 1340 break; |
| 1341 case 31: /* IFLT */ | |
| 1342 operand=scanexpr(0); | |
| 33 | 1343 if(operand>=0)suppress=2; |
| 0 | 1344 break; |
| 3 | 1345 case 30: /* IFEQ */ |
| 0 | 1346 operand=scanexpr(0); |
| 33 | 1347 if(operand!=0)suppress=2; |
| 0 | 1348 break; |
| 3 | 1349 case 28: /* IFNE */ |
| 0 | 1350 case 10: /* IF */ |
| 1351 operand=scanexpr(0); | |
| 33 | 1352 if(operand==0)suppress=2; |
| 1353 break; | |
| 1354 case 33: /* IFNDEF */ | |
| 1355 operand=scanexpr(0); | |
| 1356 if(!unknown)suppress=2; | |
| 0 | 1357 break; |
| 1358 case 12: /* ORG */ | |
| 1359 operand=scanexpr(0); | |
| 100 | 1360 if(unknown)seterror(4); |
| 3 | 1361 if(generating&&pass==2&&!outmode&&!os9) { |
| 0 | 1362 for(i=0;i<(unsigned short)operand-loccounter;i++) |
| 3 | 1363 fputc(0,objfile); |
| 1364 } else flushhex(); | |
| 0 | 1365 loccounter=operand; |
| 1366 hexaddr=loccounter; | |
| 1367 break; | |
| 1368 case 14: /* SETDP */ | |
| 1369 operand=scanexpr(0); | |
| 100 | 1370 if(unknown)seterror(4); |
| 0 | 1371 if(!(operand&255))operand=(unsigned short)operand>>8; |
| 1372 if((unsigned)operand>255)operand=-1; | |
| 1373 dpsetting=operand; | |
| 1374 break; | |
| 1375 case 15: /* SET */ | |
| 1376 operand=scanexpr(0); | |
| 100 | 1377 if(!lp)seterror(32); |
| 0 | 1378 else { |
| 1379 if(lp->cat&1||lp->cat==6) { | |
| 1380 if(exprcat==2)lp->cat=3; | |
| 1381 else lp->cat=1; | |
|
40
b8fa36c04ff7
fix multiple label on empty line
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
39
diff
changeset
|
1382 lp->value=oldlc=operand; |
| 100 | 1383 } else // else seterror(8); |
|
40
b8fa36c04ff7
fix multiple label on empty line
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
39
diff
changeset
|
1384 lp->value=oldlc=operand; |
| 0 | 1385 } |
| 1386 break; | |
| 1387 case 2: /* END */ | |
| 1388 terminate=1; | |
| 1389 break; | |
| 1390 case 27: /* USE */ | |
| 1391 case 16: /* INCLUDE */ | |
| 1392 skipspace(); | |
| 1393 if(*srcptr=='"')srcptr++; | |
| 1394 i = 0; | |
| 1395 for(i=0; !(srcptr[i]==0||srcptr[i]=='"'); i++); | |
| 1396 int len = i; | |
| 1397 fname = calloc(1,len); | |
| 1398 for(i=0;i<len;i++) { | |
| 1399 if(*srcptr==0||*srcptr=='"')break; | |
| 1400 fname[i]=*srcptr++; | |
| 1401 } | |
| 1402 fname[i]=0; | |
| 1403 processfile(fname); | |
| 1404 codeptr=0; | |
| 1405 srcline[0]=0; | |
| 1406 break; | |
| 1407 case 24: /* MOD */ | |
| 6 | 1408 oldlc = loccounter = 0; |
| 0 | 1409 setlabel(lp); |
| 1410 os9begin(); | |
| 1411 break; | |
| 1412 case 25: /* EMOD */ | |
| 1413 os9end(); | |
| 1414 break; | |
| 1415 case 32: /* OS9 */ | |
| 6 | 1416 generate(); |
| 0 | 1417 setlabel(lp); |
| 3 | 1418 putword(0x103f); // SWI2 |
| 0 | 1419 putbyte(scanexpr(0)); |
| 100 | 1420 if(unknown&&pass==2)seterror(4); |
| 0 | 1421 break; |
| 1422 case 18: /* TTL */ | |
| 1423 break; | |
| 1424 case 19: /* OPT */ | |
| 1425 case 26: /* NAM */ | |
| 1426 case 20: /* PAG */ | |
| 1427 case 3: /* ENDIF/ENDC */ | |
| 1428 break; | |
| 1429 } | |
| 1430 } | |
| 1431 | |
| 1432 | |
| 1433 void | |
| 1434 processline() | |
| 1435 { | |
| 1436 struct symrecord * lp; | |
| 1437 struct oprecord * op; | |
| 1438 int co; | |
| 1439 char c; | |
| 1440 srcptr=srcline; | |
| 1441 oldlc=loccounter; | |
| 5 | 1442 // error=0; |
| 0 | 1443 unknown=0;certain=1; |
| 1444 lp=0; | |
| 1445 codeptr=0; | |
| 100 | 1446 if(*srcptr=='_'||isalnum(*srcptr)) { |
| 0 | 1447 scanname();lp=findsym(namebuf); |
| 1448 if(*srcptr==':') srcptr++; | |
| 26 | 1449 if(lp && pass==2) { |
| 1450 oldlc = lp->value; | |
| 1451 } | |
| 0 | 1452 } |
| 1453 skipspace(); | |
| 1454 if(isalnum(*srcptr)) { | |
| 1455 scanname(); | |
| 1456 op=findop(namebuf); | |
| 1457 if(op) { | |
| 1458 if(op->cat!=13){ | |
| 6 | 1459 generate(); |
| 0 | 1460 setlabel(lp); |
| 1461 } | |
| 1462 co=op->code; | |
| 1463 switch(op->cat) { | |
| 1464 case 0:onebyte(co);break; | |
| 1465 case 1:twobyte(co);break; | |
| 1466 case 2:oneimm(co);break; | |
| 1467 case 3:lea(co);break; | |
| 1468 case 4:sbranch(co);break; | |
| 1469 case 5:lbranch(co);break; | |
| 1470 case 6:lbra(co);break; | |
| 1471 case 7:arith(co);break; | |
| 1472 case 8:darith(co);break; | |
| 1473 case 9:d2arith(co);break; | |
| 1474 case 10:oneaddr(co);break; | |
| 1475 case 11:tfrexg(co);break; | |
| 1476 case 12:pshpul(co);break; | |
| 1477 case 13:pseudoop(co,lp); | |
| 1478 } | |
| 1479 c=*srcptr; | |
| 1480 if (debug) fprintf(stderr,"DEBUG: processline: mode=%d, opsize=%d, error=%d, postbyte=%02X c=%c\n",mode,opsize,error,postbyte,c); | |
| 100 | 1481 if(c!=' '&&*(srcptr-1)!=' '&&c!=0&&c!=';')seterror(2); |
| 0 | 1482 } |
| 100 | 1483 else seterror(0x8000); |
| 26 | 1484 } else { |
| 33 | 1485 if (lp) { |
| 1486 lp->next = prevlp; | |
| 1487 prevlp = lp; // os9 mode label can be data or code | |
| 1488 } | |
| 26 | 1489 } |
| 0 | 1490 if(pass==2) { |
| 1491 outbuffer(); | |
| 1492 if(listing)outlist(); | |
| 1493 } | |
| 1494 if(error)report(); | |
| 1495 loccounter+=codeptr; | |
| 1496 } | |
| 1497 | |
| 1498 void | |
| 1499 suppressline() | |
| 1500 { | |
| 1501 struct oprecord * op; | |
| 1502 srcptr=srcline; | |
| 1503 oldlc=loccounter; | |
|
40
b8fa36c04ff7
fix multiple label on empty line
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
39
diff
changeset
|
1504 struct symrecord * lp = 0; |
| 0 | 1505 codeptr=0; |
| 1506 if(isalnum(*srcptr)) { | |
|
40
b8fa36c04ff7
fix multiple label on empty line
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
39
diff
changeset
|
1507 scanname();lp=findsym(namebuf); |
|
b8fa36c04ff7
fix multiple label on empty line
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
39
diff
changeset
|
1508 if (lp) oldlc = lp->value; |
| 0 | 1509 if(*srcptr==':')srcptr++; |
| 1510 } | |
| 1511 skipspace(); | |
|
40
b8fa36c04ff7
fix multiple label on empty line
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
39
diff
changeset
|
1512 scanname();op=findop(namebuf); |
| 0 | 1513 if(op && op->cat==13) { |
| 33 | 1514 if(op->code==10||op->code==13||op->code==29||op->code==28||op->code==21||op->code==30||op->code==31||op->code==33) ifcount++; |
| 0 | 1515 else if(op->code==3) { |
| 1516 if(ifcount>0)ifcount--;else if(suppress==1|suppress==2)suppress=0; | |
| 1517 } else if(op->code==1) { | |
| 1518 if(ifcount==0 && suppress==2)suppress=0; | |
| 1519 } | |
| 1520 } | |
| 6 | 1521 if(pass==2&&listing)outlist(); } |
| 0 | 1522 |
| 1523 void | |
| 1524 usage(char*nm) | |
| 1525 { | |
| 1526 fprintf(stderr,"Usage: %s [-o objname] [-l listname] [-s srecord-file] srcname\n",nm); | |
| 1527 exit(2); | |
| 1528 } | |
| 1529 | |
| 1530 char * | |
| 1531 strconcat(char *s,int spos,char *d) | |
| 1532 { | |
| 1533 int slen = strlen(s); | |
| 1534 int dlen = strlen(d); | |
| 1535 if ( spos == 0) spos = slen; | |
| 1536 char *out = calloc(1,spos+dlen+1); | |
| 1537 int i = 0; | |
| 1538 for(; i< spos; i++ ) out[i] = s[i]; | |
| 1539 for(; i< spos+dlen+1; i++ ) out[i] = *d++; | |
| 1540 return out; | |
| 1541 } | |
| 1542 | |
| 1543 | |
| 1544 void | |
| 1545 getoptions(int c,char*v[]) | |
| 1546 { | |
| 6 | 1547 int i=1; |
| 0 | 1548 if(c==1)usage(v[0]); |
| 6 | 1549 while(v[i]) { |
| 1550 if(strcmp(v[i],"-d")==0) { | |
| 1551 debug=1; | |
| 1552 i++; | |
| 1553 } else if(strcmp(v[i],"-o")==0) { | |
| 1554 objname = v[i+1]; | |
| 1555 i+=2; | |
| 1556 } else if(strcmp(v[i],"-s")==0) { | |
| 1557 objname=v[i+1]; | |
| 1558 outmode=1; | |
| 1559 i+=2; | |
| 1560 } else if(strcmp(v[i],"-l")==0) { | |
| 1561 listname=v[i+1]; | |
| 1562 i+=2; | |
| 71 | 1563 } else if(strcmp(v[i],"-D")==0) { |
| 1564 struct symrecord * p; | |
| 1565 p=findsym(v[i+1]); | |
| 1566 p->value = 1; | |
| 1567 p->cat = 0; | |
| 1568 i+=2; | |
| 33 | 1569 } else if(strcmp(v[i],"-I")==0) { |
| 1570 struct incl *j = (struct incl *)malloc(sizeof(struct incl)); | |
| 1571 j->name = v[i+1]; | |
| 1572 j->next = 0; | |
| 1573 if (!incls) incls = j; | |
| 1574 else { | |
| 1575 struct incl *k=incls ; | |
| 1576 for(; k->next ; k = k->next ) ; | |
| 1577 k->next = j; | |
| 1578 } | |
| 1579 i+=2; | |
| 6 | 1580 } else if(*v[i]=='-') { |
| 1581 usage(v[0]); | |
| 1582 } else { | |
| 1583 if (srcname) usage(v[0]); | |
| 1584 srcname=v[i]; | |
| 1585 i++; | |
| 1586 } | |
| 0 | 1587 } |
| 1588 if(objname==0) { | |
| 1589 for(i=0;srcname[i]!='.' && srcname[i]!=0 ;i++) ; | |
| 1590 objname = strconcat(srcname,i,".b"); | |
| 1591 } | |
| 1592 listing=(listname!=0); | |
| 1593 } | |
| 1594 | |
| 1595 void | |
| 1596 expandline() | |
| 1597 { | |
| 1598 int i=0,j=0,k,j1; | |
| 1599 for(i=0;i<128&&j<128;i++) | |
| 1600 { | |
| 1601 if(inpline[i]=='\n') { | |
| 1602 srcline[j]=0;break; | |
| 1603 } | |
| 1604 if(inpline[i]=='\t') { | |
| 1605 j1=j; | |
| 1606 for(k=0;k<8-j1%8 && j<128;k++)srcline[j++]=' '; | |
| 1607 }else srcline[j++]=inpline[i]; | |
| 1608 } | |
| 1609 srcline[127]=0; | |
| 1610 } | |
| 1611 | |
| 1612 | |
| 1613 void | |
| 1614 processfile(char *name) | |
| 1615 { | |
| 1616 char *oldname; | |
| 1617 int oldno; | |
| 1618 FILE *srcfile; | |
| 1619 oldname=curname; | |
| 1620 curname=name; | |
| 1621 oldno=lineno; | |
| 1622 lineno=0; | |
| 1623 if((srcfile=fopen(name,"r"))==0) { | |
| 6 | 1624 int i = 0; |
| 1625 if (oldname) { | |
| 1626 i = strlen(oldname); | |
| 1627 while(i>0 && oldname[i]!='/') i--; | |
| 1628 } | |
| 0 | 1629 if (i>0) { |
| 1630 char *next = strconcat(oldname,i+1,name); | |
| 33 | 1631 if((srcfile=fopen(next,"r"))!=0) { |
| 1632 curname = next; | |
| 0 | 1633 } |
| 33 | 1634 } |
| 1635 if (!srcfile) { | |
| 1636 for( struct incl *d = incls; d ; d = d->next) { | |
| 1637 char *next = strconcat(d->name,0,name); | |
| 1638 if((srcfile=fopen(next,"r"))!=0) { | |
| 1639 curname = next; | |
| 1640 break; | |
| 1641 } | |
| 1642 } | |
| 1643 } | |
| 1644 } | |
| 1645 if (!srcfile) { | |
| 0 | 1646 fprintf(stderr,"Cannot open source file %s\n",name); |
| 1647 exit(4); | |
| 1648 } | |
| 1649 while(!terminate&&fgets(inpline,128,srcfile)) { | |
| 1650 expandline(); | |
| 33 | 1651 lineno++; glineno++; |
| 0 | 1652 srcptr=srcline; |
|
40
b8fa36c04ff7
fix multiple label on empty line
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
39
diff
changeset
|
1653 if(suppress) |
|
b8fa36c04ff7
fix multiple label on empty line
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
39
diff
changeset
|
1654 suppressline(); |
|
b8fa36c04ff7
fix multiple label on empty line
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
39
diff
changeset
|
1655 else |
|
b8fa36c04ff7
fix multiple label on empty line
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
39
diff
changeset
|
1656 processline(); |
| 0 | 1657 } |
| 26 | 1658 setlabel(0); // process prevlp |
| 0 | 1659 fclose(srcfile); |
| 1660 if(suppress) { | |
| 1661 fprintf(stderr,"improperly nested IF statements in %s",curname); | |
| 1662 errors++; | |
| 1663 suppress=0; | |
| 1664 } | |
| 1665 lineno=oldno; | |
| 1666 curname=oldname; | |
| 1667 } | |
| 1668 | |
| 1669 int | |
| 1670 main(int argc,char *argv[]) | |
| 1671 { | |
| 1672 char c; | |
| 1673 getoptions(argc,argv); | |
| 1674 pass=1; | |
| 1675 errors=0; | |
| 1676 generating=0; | |
| 1677 terminate=0; | |
| 1678 processfile(srcname); | |
| 1679 if(errors) { | |
| 1680 fprintf(stderr,"%d Pass 1 Errors, Continue?",errors); | |
| 1681 c=getchar(); | |
| 1682 if(c=='n'||c=='N') exit(3); | |
| 1683 } | |
| 33 | 1684 do { |
| 0 | 1685 pass=2; |
| 6 | 1686 prevloc = 0; |
| 0 | 1687 loccounter=0; |
| 39 | 1688 rmbcounter=0; |
| 0 | 1689 errors=0; |
| 1690 generating=0; | |
| 1691 terminate=0; | |
| 33 | 1692 glineno=0; |
| 0 | 1693 if(listing&&((listfile=fopen(listname,"w"))==0)) { |
| 1694 fprintf(stderr,"Cannot open list file"); | |
| 1695 exit(4); | |
| 1696 } | |
| 1697 if((objfile=fopen(objname,outmode?"w":"wb"))==0) { | |
| 1698 fprintf(stderr,"Cannot write object file\n"); | |
| 1699 exit(4); | |
| 1700 } | |
| 1701 processfile(srcname); | |
| 1702 fprintf(stderr,"%d Pass 2 errors.\n",errors); | |
| 1703 if(listing) { | |
| 1704 fprintf(listfile,"%d Pass 2 errors.\n",errors); | |
| 1705 outsymtable(); | |
| 1706 fclose(listfile); | |
| 1707 } | |
| 1708 if(outmode){ | |
| 1709 flushhex(); | |
| 1710 fprintf(objfile,"S9030000FC\n"); | |
| 1711 } | |
| 1712 fclose(objfile); | |
| 38 | 1713 } while (longer()); |
| 0 | 1714 return 0; |
| 1715 } | |
| 1716 |