Mercurial > hg > Members > kono > os9 > sbc09
annotate src/a09.c @ 168:2937e970aac6
generate os9 module done
author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
---|---|
date | Thu, 11 Apr 2019 13:59:28 +0900 |
parents | fbb3301a2564 |
children | 7dd634f92ffd |
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) | |
168
2937e970aac6
generate os9 module done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
120
diff
changeset
|
960 lp->value=loccounter; |
2937e970aac6
generate os9 module done
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
120
diff
changeset
|
961 if (pass==1) seterror(8); |
0 | 962 } else { |
963 lp->cat=2; | |
964 lp->value=loccounter; | |
965 } | |
966 } | |
967 } | |
968 | |
969 void | |
970 putbyte(unsigned char b) | |
971 { | |
972 codebuf[codeptr++]=b; | |
973 } | |
974 | |
975 void | |
976 putword(unsigned short w) | |
977 { | |
978 codebuf[codeptr++]=w>>8; | |
979 codebuf[codeptr++]=w&0x0ff; | |
980 } | |
981 | |
982 void | |
983 doaddress() /* assemble the right addressing bytes for an instruction */ | |
984 { | |
985 int offs; | |
986 switch(mode) { | |
987 case 0: if(opsize==2)putbyte(operand);else putword(operand);break; | |
988 case 1: putbyte(operand);break; | |
989 case 2: putword(operand);break; | |
990 case 3: case 5: putbyte(postbyte); | |
991 switch(opsize) { | |
992 case 2: putbyte(operand);break; | |
993 case 3: putword(operand); | |
994 } | |
995 break; | |
996 case 4: case 6: offs=(unsigned short)operand-loccounter-codeptr-2; | |
997 if(offs<-128||offs>=128||opsize==3||unknown||!certain) { | |
33 | 998 if((!unknown)&&opsize==2&&(offs<-128||offs>=128) ) { |
100 | 999 seterror(16); makelonger(glineno); |
33 | 1000 } |
12
111e5defb8ab
boot is called, rti failed
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
11
diff
changeset
|
1001 offs--; |
111e5defb8ab
boot is called, rti failed
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
11
diff
changeset
|
1002 opsize=3; |
111e5defb8ab
boot is called, rti failed
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
11
diff
changeset
|
1003 postbyte++; |
0 | 1004 } |
1005 putbyte(postbyte); | |
1006 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); | |
1007 if(opsize==3)putword(offs); | |
1008 else putbyte(offs); | |
1009 } | |
1010 } | |
1011 | |
1012 void | |
1013 onebyte(int co) | |
1014 { | |
1015 putbyte(co); | |
1016 } | |
1017 | |
1018 void | |
1019 twobyte(int co) | |
1020 { | |
1021 putword(co); | |
1022 } | |
1023 | |
1024 void | |
1025 oneimm(int co) | |
1026 { | |
1027 scanoperands(); | |
5 | 1028 if(mode>=3) |
100 | 1029 seterror(2); |
0 | 1030 putbyte(co); |
1031 putbyte(operand); | |
1032 } | |
1033 | |
1034 void | |
1035 lea(int co) | |
1036 { | |
1037 putbyte(co); | |
1038 scanoperands(); | |
100 | 1039 if(mode==0) seterror(2); |
0 | 1040 if(mode<3) { |
1041 opsize=3; | |
1042 postbyte=0x8f; | |
1043 mode=3; | |
1044 } | |
1045 if (debug) fprintf(stderr,"DEBUG: lea: mode=%d, opsize=%d, error=%d, postbyte=%02X, *src=%c\n",mode,opsize,error,postbyte,*srcptr); | |
1046 doaddress(); | |
1047 } | |
1048 | |
1049 void | |
1050 sbranch(int co) | |
1051 { | |
1052 int offs; | |
1053 scanoperands(); | |
100 | 1054 if(mode!=1&&mode!=2)seterror(2); |
0 | 1055 offs=(unsigned short)operand-loccounter-2; |
33 | 1056 if(!unknown&&(offs<-128||offs>=128)) { |
100 | 1057 seterror(16);makelonger(glineno); |
33 | 1058 if (co==0x20) { |
100 | 1059 if(mode!=1&&mode!=2)seterror(2); |
33 | 1060 putbyte(0x16); |
1061 putword(operand-loccounter-3); | |
1062 } else { | |
100 | 1063 if(mode!=1&&mode!=2)seterror(2); |
33 | 1064 putbyte(0x10); |
1065 putbyte(co); | |
1066 putword(operand-loccounter-4); | |
1067 } | |
1068 return; | |
1069 } | |
100 | 1070 if(pass==2&&unknown)seterror(4); |
0 | 1071 putbyte(co); |
1072 putbyte(offs); | |
1073 } | |
1074 | |
1075 void | |
1076 lbra(int co) | |
1077 { | |
1078 scanoperands(); | |
100 | 1079 if(mode!=1&&mode!=2)seterror(2); |
0 | 1080 putbyte(co); |
1081 putword(operand-loccounter-3); | |
1082 } | |
1083 | |
1084 void | |
1085 lbranch(int co) | |
1086 { | |
1087 scanoperands(); | |
100 | 1088 if(mode!=1&&mode!=2)seterror(2); |
0 | 1089 putword(co); |
1090 putword(operand-loccounter-4); | |
1091 } | |
1092 | |
1093 void | |
1094 arith(int co) | |
1095 { | |
1096 scanoperands(); | |
1097 switch(mode) { | |
1098 case 0:opsize=2;putbyte(co);break; | |
1099 case 1:putbyte(co+0x010);break; | |
1100 case 2:putbyte(co+0x030);break; | |
1101 default:putbyte(co+0x020); | |
1102 } | |
1103 doaddress(); | |
1104 } | |
1105 | |
1106 void | |
1107 darith(int co) | |
1108 { | |
1109 scanoperands(); | |
1110 switch(mode) { | |
1111 case 0:opsize=3;putbyte(co);break; | |
1112 case 1:putbyte(co+0x010);break; | |
1113 case 2:putbyte(co+0x030);break; | |
1114 default:putbyte(co+0x020); | |
1115 } | |
1116 doaddress(); | |
1117 } | |
1118 | |
1119 void | |
1120 d2arith(int co) | |
1121 { | |
1122 scanoperands(); | |
1123 switch(mode) { | |
1124 case 0:opsize=3;putword(co);break; | |
1125 case 1:putword(co+0x010);break; | |
1126 case 2:putword(co+0x030);break; | |
1127 default:putword(co+0x020); | |
1128 } | |
1129 doaddress(); | |
1130 } | |
1131 | |
1132 void | |
1133 oneaddr(int co) | |
1134 { | |
1135 scanoperands(); | |
1136 switch(mode) { | |
100 | 1137 case 0: seterror(2);break; |
0 | 1138 case 1: putbyte(co);break; |
1139 case 2: putbyte(co+0x70);break; | |
1140 default: putbyte(co+0x60);break; | |
1141 } | |
1142 doaddress(); | |
1143 } | |
1144 | |
1145 void | |
1146 tfrexg(int co) | |
1147 { | |
1148 struct regrecord * p; | |
1149 putbyte(co); | |
1150 skipspace(); | |
1151 scanname(); | |
100 | 1152 if((p=findreg(namebuf))==0)seterror(2); |
0 | 1153 else postbyte=(p->tfr)<<4; |
1154 skipspace(); | |
100 | 1155 if(*srcptr==',')srcptr++;else seterror(2); |
0 | 1156 skipspace(); |
1157 scanname(); | |
100 | 1158 if((p=findreg(namebuf))==0)seterror(2); |
0 | 1159 else postbyte|=p->tfr; |
1160 putbyte(postbyte); | |
1161 } | |
1162 | |
1163 void | |
1164 pshpul(int co) | |
1165 { | |
1166 struct regrecord *p; | |
1167 putbyte(co); | |
1168 postbyte=0; | |
1169 do { | |
1170 if(*srcptr==',')srcptr++; | |
1171 skipspace(); | |
1172 scanname(); | |
100 | 1173 if((p=findreg(namebuf))==0)seterror(2); |
0 | 1174 else postbyte|=p->psh; |
1175 skipspace(); | |
1176 }while (*srcptr==','); | |
1177 putbyte(postbyte); | |
1178 } | |
1179 | |
1180 void | |
1181 skipComma() | |
1182 { | |
1183 while(*srcptr && *srcptr!='\n' && *srcptr!=',')srcptr++; | |
1184 if (*srcptr==',') { | |
1185 srcptr++; | |
1186 } else { | |
100 | 1187 seterror(1); |
0 | 1188 } |
1189 } | |
1190 | |
1191 void os9begin() | |
1192 { | |
6 | 1193 generate(); |
39 | 1194 os9=1; // contiguous code generation ( seprate rmb and code ) |
34 | 1195 oldlc = loccounter = rmbcounter = rmbmode = 0; |
0 | 1196 reset_crc(); |
1197 putword(0x87cd); | |
1198 putword(scanexpr(0)-loccounter); // module size | |
100 | 1199 if(unknown&&pass==2)seterror(4); |
0 | 1200 skipComma(); |
1201 putword(scanexpr(0)-loccounter); // offset to module name | |
100 | 1202 if(unknown&&pass==2)seterror(4); |
0 | 1203 skipComma(); |
1204 putbyte(scanexpr(0)); // type / language | |
100 | 1205 if(unknown&&pass==2)seterror(4); |
0 | 1206 skipComma(); |
1207 putbyte(scanexpr(0)); // attribute | |
100 | 1208 if(unknown&&pass==2)seterror(4); |
0 | 1209 int parity=0; |
1210 for(int i=0; i< 8; i++) parity^=codebuf[i]; | |
1211 putbyte(parity^0xff); // header parity | |
1212 skipspace(); | |
1213 while (*srcptr==',') { // there are some more | |
1214 srcptr++; | |
1215 putword(scanexpr(0)); | |
100 | 1216 if(unknown&&pass==2)seterror(4); |
0 | 1217 skipspace(); |
1218 } | |
34 | 1219 prevloc = codeptr; |
1220 rmbmode = 1; // next org works on rmb | |
39 | 1221 rmbcounter=0; |
34 | 1222 loccounter = 0x10000-codeptr; // should start at 0 |
0 | 1223 } |
1224 | |
1225 void os9end() | |
1226 { | |
1227 crc = crc ^ 0xffffff; | |
1228 | |
1229 putbyte((crc>>16)&0xff); | |
1230 putbyte((crc>>8)&0xff); | |
1231 putbyte(crc&0xff); | |
39 | 1232 os9 = 0; |
0 | 1233 } |
1234 | |
1235 | |
1236 void | |
1237 pseudoop(int co,struct symrecord * lp) | |
1238 { | |
1239 int i; | |
1240 char c; | |
1241 char *fname; | |
1242 int locsave; | |
1243 | |
1244 switch(co) { | |
1245 case 0:/* RMB */ | |
3 | 1246 // in OS9 mode, this generates no data |
1247 // loccounter will be reset after any code to the current code generation | |
34 | 1248 if (os9 && !rmbmode) { |
1249 prevloc = loccounter; | |
1250 oldlc = loccounter = rmbcounter; | |
1251 rmbmode = 1; | |
33 | 1252 } |
0 | 1253 setlabel(lp); |
40
b8fa36c04ff7
fix multiple label on empty line
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
39
diff
changeset
|
1254 oldlc = loccounter; |
0 | 1255 operand=scanexpr(0); |
100 | 1256 if(unknown)seterror(4); |
0 | 1257 loccounter+=operand; |
1258 if(generating&&pass==2) { | |
6 | 1259 if(!outmode && !os9 ) { |
1260 for(i=0;i<operand;i++) { fputc(0,objfile); } | |
1261 } else | |
1262 flushhex(); | |
0 | 1263 } |
1264 hexaddr=loccounter; | |
1265 break; | |
1266 case 5:/* EQU */ | |
1267 operand=scanexpr(0); | |
100 | 1268 if(!lp)seterror(32); |
0 | 1269 else { |
1270 if(lp->cat==13||lp->cat==6|| | |
1271 (lp->value==(unsigned short)operand&&pass==2)) { | |
1272 if(exprcat==2)lp->cat=2; | |
1273 else lp->cat=0; | |
40
b8fa36c04ff7
fix multiple label on empty line
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
39
diff
changeset
|
1274 lp->value=oldlc=operand; |
100 | 1275 } else // else seterror(8); |
40
b8fa36c04ff7
fix multiple label on empty line
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
39
diff
changeset
|
1276 lp->value=oldlc=operand; |
0 | 1277 } |
1278 break; | |
1279 case 7:/* FCB */ | |
6 | 1280 generate(); |
0 | 1281 setlabel(lp); |
120 | 1282 fcb: |
0 | 1283 do { |
1284 if(*srcptr==',')srcptr++; | |
1285 skipspace(); | |
1286 if(*srcptr=='\"') { | |
1287 srcptr++; | |
1288 while(*srcptr!='\"'&&*srcptr) | |
1289 putbyte(*srcptr++); | |
1290 if(*srcptr=='\"')srcptr++; | |
1291 } else { | |
1292 putbyte(scanexpr(0)); | |
100 | 1293 if(unknown&&pass==2)seterror(4); |
0 | 1294 } |
1295 skipspace(); | |
1296 } while(*srcptr==','); | |
1297 break; | |
1298 case 8:/* FCC */ | |
6 | 1299 generate(); |
0 | 1300 setlabel(lp); |
1301 skipspace(); | |
1302 c=*srcptr++; | |
1303 while(*srcptr!=c&&*srcptr) | |
120 | 1304 putbyte(*srcptr++); |
0 | 1305 if(*srcptr==c)srcptr++; |
120 | 1306 if(*srcptr==',') goto fcb; |
0 | 1307 break; |
1308 case 9:/* FDB */ | |
6 | 1309 generate(); |
0 | 1310 setlabel(lp); |
1311 do { | |
1312 if(*srcptr==',')srcptr++; | |
1313 skipspace(); | |
1314 putword(scanexpr(0)); | |
100 | 1315 if(unknown&&pass==2)seterror(4); |
0 | 1316 skipspace(); |
1317 } while(*srcptr==','); | |
1318 break; | |
1319 case 23 :/* FCS */ | |
6 | 1320 generate(); |
0 | 1321 setlabel(lp); |
1322 skipspace(); | |
1323 int sep = *srcptr; | |
35 | 1324 if(sep=='\"' || sep=='/' || sep=='\'') { |
0 | 1325 srcptr++; |
1326 while(*srcptr!=sep&&*srcptr) | |
1327 putbyte(*srcptr++); | |
1328 if(*srcptr==sep)srcptr++; | |
1329 codebuf[codeptr-1] |= 0x80; // os9 string termination | |
1330 } | |
1331 break; | |
1332 case 1: /* ELSE */ | |
1333 suppress=1; | |
1334 break; | |
1335 case 21: /* IFP1 */ | |
1336 if(pass==2)suppress=2; | |
1337 break; | |
1338 case 29: /* IFGT */ | |
1339 operand=scanexpr(0); | |
33 | 1340 if(operand<=0)suppress=2; |
0 | 1341 break; |
1342 case 31: /* IFLT */ | |
1343 operand=scanexpr(0); | |
33 | 1344 if(operand>=0)suppress=2; |
0 | 1345 break; |
3 | 1346 case 30: /* IFEQ */ |
0 | 1347 operand=scanexpr(0); |
33 | 1348 if(operand!=0)suppress=2; |
0 | 1349 break; |
3 | 1350 case 28: /* IFNE */ |
0 | 1351 case 10: /* IF */ |
1352 operand=scanexpr(0); | |
33 | 1353 if(operand==0)suppress=2; |
1354 break; | |
1355 case 33: /* IFNDEF */ | |
1356 operand=scanexpr(0); | |
1357 if(!unknown)suppress=2; | |
0 | 1358 break; |
1359 case 12: /* ORG */ | |
1360 operand=scanexpr(0); | |
100 | 1361 if(unknown)seterror(4); |
3 | 1362 if(generating&&pass==2&&!outmode&&!os9) { |
0 | 1363 for(i=0;i<(unsigned short)operand-loccounter;i++) |
3 | 1364 fputc(0,objfile); |
1365 } else flushhex(); | |
0 | 1366 loccounter=operand; |
1367 hexaddr=loccounter; | |
1368 break; | |
1369 case 14: /* SETDP */ | |
1370 operand=scanexpr(0); | |
100 | 1371 if(unknown)seterror(4); |
0 | 1372 if(!(operand&255))operand=(unsigned short)operand>>8; |
1373 if((unsigned)operand>255)operand=-1; | |
1374 dpsetting=operand; | |
1375 break; | |
1376 case 15: /* SET */ | |
1377 operand=scanexpr(0); | |
100 | 1378 if(!lp)seterror(32); |
0 | 1379 else { |
1380 if(lp->cat&1||lp->cat==6) { | |
1381 if(exprcat==2)lp->cat=3; | |
1382 else lp->cat=1; | |
40
b8fa36c04ff7
fix multiple label on empty line
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
39
diff
changeset
|
1383 lp->value=oldlc=operand; |
100 | 1384 } else // else seterror(8); |
40
b8fa36c04ff7
fix multiple label on empty line
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
39
diff
changeset
|
1385 lp->value=oldlc=operand; |
0 | 1386 } |
1387 break; | |
1388 case 2: /* END */ | |
1389 terminate=1; | |
1390 break; | |
1391 case 27: /* USE */ | |
1392 case 16: /* INCLUDE */ | |
1393 skipspace(); | |
1394 if(*srcptr=='"')srcptr++; | |
1395 i = 0; | |
1396 for(i=0; !(srcptr[i]==0||srcptr[i]=='"'); i++); | |
1397 int len = i; | |
1398 fname = calloc(1,len); | |
1399 for(i=0;i<len;i++) { | |
1400 if(*srcptr==0||*srcptr=='"')break; | |
1401 fname[i]=*srcptr++; | |
1402 } | |
1403 fname[i]=0; | |
1404 processfile(fname); | |
1405 codeptr=0; | |
1406 srcline[0]=0; | |
1407 break; | |
1408 case 24: /* MOD */ | |
6 | 1409 oldlc = loccounter = 0; |
0 | 1410 setlabel(lp); |
1411 os9begin(); | |
1412 break; | |
1413 case 25: /* EMOD */ | |
1414 os9end(); | |
1415 break; | |
1416 case 32: /* OS9 */ | |
6 | 1417 generate(); |
0 | 1418 setlabel(lp); |
3 | 1419 putword(0x103f); // SWI2 |
0 | 1420 putbyte(scanexpr(0)); |
100 | 1421 if(unknown&&pass==2)seterror(4); |
0 | 1422 break; |
1423 case 18: /* TTL */ | |
1424 break; | |
1425 case 19: /* OPT */ | |
1426 case 26: /* NAM */ | |
1427 case 20: /* PAG */ | |
1428 case 3: /* ENDIF/ENDC */ | |
1429 break; | |
1430 } | |
1431 } | |
1432 | |
1433 | |
1434 void | |
1435 processline() | |
1436 { | |
1437 struct symrecord * lp; | |
1438 struct oprecord * op; | |
1439 int co; | |
1440 char c; | |
1441 srcptr=srcline; | |
1442 oldlc=loccounter; | |
5 | 1443 // error=0; |
0 | 1444 unknown=0;certain=1; |
1445 lp=0; | |
1446 codeptr=0; | |
100 | 1447 if(*srcptr=='_'||isalnum(*srcptr)) { |
0 | 1448 scanname();lp=findsym(namebuf); |
1449 if(*srcptr==':') srcptr++; | |
26 | 1450 if(lp && pass==2) { |
1451 oldlc = lp->value; | |
1452 } | |
0 | 1453 } |
1454 skipspace(); | |
1455 if(isalnum(*srcptr)) { | |
1456 scanname(); | |
1457 op=findop(namebuf); | |
1458 if(op) { | |
1459 if(op->cat!=13){ | |
6 | 1460 generate(); |
0 | 1461 setlabel(lp); |
1462 } | |
1463 co=op->code; | |
1464 switch(op->cat) { | |
1465 case 0:onebyte(co);break; | |
1466 case 1:twobyte(co);break; | |
1467 case 2:oneimm(co);break; | |
1468 case 3:lea(co);break; | |
1469 case 4:sbranch(co);break; | |
1470 case 5:lbranch(co);break; | |
1471 case 6:lbra(co);break; | |
1472 case 7:arith(co);break; | |
1473 case 8:darith(co);break; | |
1474 case 9:d2arith(co);break; | |
1475 case 10:oneaddr(co);break; | |
1476 case 11:tfrexg(co);break; | |
1477 case 12:pshpul(co);break; | |
1478 case 13:pseudoop(co,lp); | |
1479 } | |
1480 c=*srcptr; | |
1481 if (debug) fprintf(stderr,"DEBUG: processline: mode=%d, opsize=%d, error=%d, postbyte=%02X c=%c\n",mode,opsize,error,postbyte,c); | |
100 | 1482 if(c!=' '&&*(srcptr-1)!=' '&&c!=0&&c!=';')seterror(2); |
0 | 1483 } |
100 | 1484 else seterror(0x8000); |
26 | 1485 } else { |
33 | 1486 if (lp) { |
1487 lp->next = prevlp; | |
1488 prevlp = lp; // os9 mode label can be data or code | |
1489 } | |
26 | 1490 } |
0 | 1491 if(pass==2) { |
1492 outbuffer(); | |
1493 if(listing)outlist(); | |
1494 } | |
1495 if(error)report(); | |
1496 loccounter+=codeptr; | |
1497 } | |
1498 | |
1499 void | |
1500 suppressline() | |
1501 { | |
1502 struct oprecord * op; | |
1503 srcptr=srcline; | |
1504 oldlc=loccounter; | |
40
b8fa36c04ff7
fix multiple label on empty line
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
39
diff
changeset
|
1505 struct symrecord * lp = 0; |
0 | 1506 codeptr=0; |
1507 if(isalnum(*srcptr)) { | |
40
b8fa36c04ff7
fix multiple label on empty line
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
39
diff
changeset
|
1508 scanname();lp=findsym(namebuf); |
b8fa36c04ff7
fix multiple label on empty line
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
39
diff
changeset
|
1509 if (lp) oldlc = lp->value; |
0 | 1510 if(*srcptr==':')srcptr++; |
1511 } | |
1512 skipspace(); | |
40
b8fa36c04ff7
fix multiple label on empty line
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
39
diff
changeset
|
1513 scanname();op=findop(namebuf); |
0 | 1514 if(op && op->cat==13) { |
33 | 1515 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 | 1516 else if(op->code==3) { |
1517 if(ifcount>0)ifcount--;else if(suppress==1|suppress==2)suppress=0; | |
1518 } else if(op->code==1) { | |
1519 if(ifcount==0 && suppress==2)suppress=0; | |
1520 } | |
1521 } | |
6 | 1522 if(pass==2&&listing)outlist(); } |
0 | 1523 |
1524 void | |
1525 usage(char*nm) | |
1526 { | |
1527 fprintf(stderr,"Usage: %s [-o objname] [-l listname] [-s srecord-file] srcname\n",nm); | |
1528 exit(2); | |
1529 } | |
1530 | |
1531 char * | |
1532 strconcat(char *s,int spos,char *d) | |
1533 { | |
1534 int slen = strlen(s); | |
1535 int dlen = strlen(d); | |
1536 if ( spos == 0) spos = slen; | |
1537 char *out = calloc(1,spos+dlen+1); | |
1538 int i = 0; | |
1539 for(; i< spos; i++ ) out[i] = s[i]; | |
1540 for(; i< spos+dlen+1; i++ ) out[i] = *d++; | |
1541 return out; | |
1542 } | |
1543 | |
1544 | |
1545 void | |
1546 getoptions(int c,char*v[]) | |
1547 { | |
6 | 1548 int i=1; |
0 | 1549 if(c==1)usage(v[0]); |
6 | 1550 while(v[i]) { |
1551 if(strcmp(v[i],"-d")==0) { | |
1552 debug=1; | |
1553 i++; | |
1554 } else if(strcmp(v[i],"-o")==0) { | |
1555 objname = v[i+1]; | |
1556 i+=2; | |
1557 } else if(strcmp(v[i],"-s")==0) { | |
1558 objname=v[i+1]; | |
1559 outmode=1; | |
1560 i+=2; | |
1561 } else if(strcmp(v[i],"-l")==0) { | |
1562 listname=v[i+1]; | |
1563 i+=2; | |
71 | 1564 } else if(strcmp(v[i],"-D")==0) { |
1565 struct symrecord * p; | |
1566 p=findsym(v[i+1]); | |
1567 p->value = 1; | |
1568 p->cat = 0; | |
1569 i+=2; | |
33 | 1570 } else if(strcmp(v[i],"-I")==0) { |
1571 struct incl *j = (struct incl *)malloc(sizeof(struct incl)); | |
1572 j->name = v[i+1]; | |
1573 j->next = 0; | |
1574 if (!incls) incls = j; | |
1575 else { | |
1576 struct incl *k=incls ; | |
1577 for(; k->next ; k = k->next ) ; | |
1578 k->next = j; | |
1579 } | |
1580 i+=2; | |
6 | 1581 } else if(*v[i]=='-') { |
1582 usage(v[0]); | |
1583 } else { | |
1584 if (srcname) usage(v[0]); | |
1585 srcname=v[i]; | |
1586 i++; | |
1587 } | |
0 | 1588 } |
1589 if(objname==0) { | |
1590 for(i=0;srcname[i]!='.' && srcname[i]!=0 ;i++) ; | |
1591 objname = strconcat(srcname,i,".b"); | |
1592 } | |
1593 listing=(listname!=0); | |
1594 } | |
1595 | |
1596 void | |
1597 expandline() | |
1598 { | |
1599 int i=0,j=0,k,j1; | |
1600 for(i=0;i<128&&j<128;i++) | |
1601 { | |
1602 if(inpline[i]=='\n') { | |
1603 srcline[j]=0;break; | |
1604 } | |
1605 if(inpline[i]=='\t') { | |
1606 j1=j; | |
1607 for(k=0;k<8-j1%8 && j<128;k++)srcline[j++]=' '; | |
1608 }else srcline[j++]=inpline[i]; | |
1609 } | |
1610 srcline[127]=0; | |
1611 } | |
1612 | |
1613 | |
1614 void | |
1615 processfile(char *name) | |
1616 { | |
1617 char *oldname; | |
1618 int oldno; | |
1619 FILE *srcfile; | |
1620 oldname=curname; | |
1621 curname=name; | |
1622 oldno=lineno; | |
1623 lineno=0; | |
1624 if((srcfile=fopen(name,"r"))==0) { | |
6 | 1625 int i = 0; |
1626 if (oldname) { | |
1627 i = strlen(oldname); | |
1628 while(i>0 && oldname[i]!='/') i--; | |
1629 } | |
0 | 1630 if (i>0) { |
1631 char *next = strconcat(oldname,i+1,name); | |
33 | 1632 if((srcfile=fopen(next,"r"))!=0) { |
1633 curname = next; | |
0 | 1634 } |
33 | 1635 } |
1636 if (!srcfile) { | |
1637 for( struct incl *d = incls; d ; d = d->next) { | |
1638 char *next = strconcat(d->name,0,name); | |
1639 if((srcfile=fopen(next,"r"))!=0) { | |
1640 curname = next; | |
1641 break; | |
1642 } | |
1643 } | |
1644 } | |
1645 } | |
1646 if (!srcfile) { | |
0 | 1647 fprintf(stderr,"Cannot open source file %s\n",name); |
1648 exit(4); | |
1649 } | |
1650 while(!terminate&&fgets(inpline,128,srcfile)) { | |
1651 expandline(); | |
33 | 1652 lineno++; glineno++; |
0 | 1653 srcptr=srcline; |
40
b8fa36c04ff7
fix multiple label on empty line
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
39
diff
changeset
|
1654 if(suppress) |
b8fa36c04ff7
fix multiple label on empty line
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
39
diff
changeset
|
1655 suppressline(); |
b8fa36c04ff7
fix multiple label on empty line
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
39
diff
changeset
|
1656 else |
b8fa36c04ff7
fix multiple label on empty line
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents:
39
diff
changeset
|
1657 processline(); |
0 | 1658 } |
26 | 1659 setlabel(0); // process prevlp |
0 | 1660 fclose(srcfile); |
1661 if(suppress) { | |
1662 fprintf(stderr,"improperly nested IF statements in %s",curname); | |
1663 errors++; | |
1664 suppress=0; | |
1665 } | |
1666 lineno=oldno; | |
1667 curname=oldname; | |
1668 } | |
1669 | |
1670 int | |
1671 main(int argc,char *argv[]) | |
1672 { | |
1673 char c; | |
1674 getoptions(argc,argv); | |
1675 pass=1; | |
1676 errors=0; | |
1677 generating=0; | |
1678 terminate=0; | |
1679 processfile(srcname); | |
1680 if(errors) { | |
1681 fprintf(stderr,"%d Pass 1 Errors, Continue?",errors); | |
1682 c=getchar(); | |
1683 if(c=='n'||c=='N') exit(3); | |
1684 } | |
33 | 1685 do { |
0 | 1686 pass=2; |
6 | 1687 prevloc = 0; |
0 | 1688 loccounter=0; |
39 | 1689 rmbcounter=0; |
0 | 1690 errors=0; |
1691 generating=0; | |
1692 terminate=0; | |
33 | 1693 glineno=0; |
0 | 1694 if(listing&&((listfile=fopen(listname,"w"))==0)) { |
1695 fprintf(stderr,"Cannot open list file"); | |
1696 exit(4); | |
1697 } | |
1698 if((objfile=fopen(objname,outmode?"w":"wb"))==0) { | |
1699 fprintf(stderr,"Cannot write object file\n"); | |
1700 exit(4); | |
1701 } | |
1702 processfile(srcname); | |
1703 fprintf(stderr,"%d Pass 2 errors.\n",errors); | |
1704 if(listing) { | |
1705 fprintf(listfile,"%d Pass 2 errors.\n",errors); | |
1706 outsymtable(); | |
1707 fclose(listfile); | |
1708 } | |
1709 if(outmode){ | |
1710 flushhex(); | |
1711 fprintf(objfile,"S9030000FC\n"); | |
1712 } | |
1713 fclose(objfile); | |
38 | 1714 } while (longer()); |
0 | 1715 return 0; |
1716 } | |
1717 |