BASIC compiler/interpreter for PIC32MX/MZ-80K
| 修订版 | f701f7162b8a7ced5e76a550eaf710638fb75658 (tree) |
|---|---|
| 时间 | 2019-04-14 10:51:06 |
| 作者 | Katsumi <kmorimatsu@sour...> |
| Commiter | Katsumi |
CORETIMER and interrupt. EXEC() function.
mips/megalopa/compiler.h (diff)
mips/megalopa/function.c (diff) mips/megalopa/statement.c (diff) mips/megalopa/timer.c (diff)| @@ -280,6 +280,7 @@ char* fput_statement(); | ||
| 280 | 280 | char* fputc_statement(); |
| 281 | 281 | char* fremove_statement(); |
| 282 | 282 | char* label_statement(); |
| 283 | +char* exec_statement(); | |
| 283 | 284 | |
| 284 | 285 | char* function(void); |
| 285 | 286 | char* str_function(void); |
| @@ -375,6 +376,8 @@ void stop_timer(); | ||
| 375 | 376 | char* usetimer_statement(); |
| 376 | 377 | char* timer_statement(); |
| 377 | 378 | char* timer_function(); |
| 379 | +char* coretimer_statement(); | |
| 380 | +char* coretimer_function(); | |
| 378 | 381 | char* interrupt_statement(); |
| 379 | 382 | |
| 380 | 383 | /* Error messages */ |
| @@ -493,6 +496,7 @@ char* interrupt_statement(); | ||
| 493 | 496 | #define INTERRUPT_INKEY 3 |
| 494 | 497 | #define INTERRUPT_MUSIC 4 |
| 495 | 498 | #define INTERRUPT_WAVE 5 |
| 499 | +#define INTERRUPT_CORETIMER 6 | |
| 496 | 500 | |
| 497 | 501 | extern int g_interrupt_flags; |
| 498 | 502 | extern int g_int_vector[]; |
| @@ -391,6 +391,10 @@ char* getdir_function(){ | ||
| 391 | 391 | return 0; |
| 392 | 392 | } |
| 393 | 393 | |
| 394 | +char* exec_function(){ | |
| 395 | + return exec_statement(); | |
| 396 | +} | |
| 397 | + | |
| 394 | 398 | char* float_constant(float val){ |
| 395 | 399 | volatile int i; |
| 396 | 400 | ((float*)(&i))[0]=val; |
| @@ -597,6 +601,8 @@ static const void* int_func_list[]={ | ||
| 597 | 601 | "NEW(",new_function, |
| 598 | 602 | "SETDIR(",setdir_function, |
| 599 | 603 | "TIMER(",timer_function, |
| 604 | + "EXEC(",exec_function, | |
| 605 | + "CORETIMER(",coretimer_function, | |
| 600 | 606 | // Additional functions follow |
| 601 | 607 | ADDITIONAL_INT_FUNCTIONS |
| 602 | 608 | }; |
| @@ -1741,6 +1741,7 @@ static const void* statement_list[]={ | ||
| 1741 | 1741 | "TIMER ",timer_statement, |
| 1742 | 1742 | "INTERRUPT ",interrupt_statement, |
| 1743 | 1743 | "IDLE",idle_statement, |
| 1744 | + "CORETIMER",coretimer_statement, | |
| 1744 | 1745 | // List of additional statements follows |
| 1745 | 1746 | ADDITIONAL_STATEMENTS |
| 1746 | 1747 | }; |
| @@ -33,6 +33,7 @@ static const void* interrupt_list[]={ | ||
| 33 | 33 | "INKEY", (void*)INTERRUPT_INKEY, |
| 34 | 34 | "MUSIC", (void*)INTERRUPT_MUSIC, |
| 35 | 35 | "WAVE", (void*)INTERRUPT_WAVE, |
| 36 | + "CORETIMER",(void*)INTERRUPT_CORETIMER, | |
| 36 | 37 | ADDITIONAL_INTERRUPT_FUNCTIONS |
| 37 | 38 | }; |
| 38 | 39 | #define NUM_INTERRUPT_TYPES ((sizeof(interrupt_list)/sizeof(interrupt_list[0]))/2) |
| @@ -157,6 +158,40 @@ char* timer_function(){ | ||
| 157 | 158 | } |
| 158 | 159 | |
| 159 | 160 | /* |
| 161 | + Coretimer implementaion | |
| 162 | +*/ | |
| 163 | + | |
| 164 | +#pragma interrupt CTHandler IPL2SOFT vector 0 | |
| 165 | +void CTHandler(void){ | |
| 166 | + // Clear CT interrupt flag | |
| 167 | + IFS0bits.CTIF=0; | |
| 168 | + // Raise TIMER interrupt flag | |
| 169 | + raise_interrupt_flag(INTERRUPT_CORETIMER); | |
| 170 | +} | |
| 171 | + | |
| 172 | +char* coretimer_function(){ | |
| 173 | + check_obj_space(1); | |
| 174 | + g_object[g_objpos++]=0x40024800; // mfc0 v0,Count | |
| 175 | + return 0; | |
| 176 | +} | |
| 177 | + | |
| 178 | +void lib_coretimer(){ | |
| 179 | + // CT interrupt: priority 2 | |
| 180 | + IPC0bits.CTIP=2; | |
| 181 | + IPC0bits.CTIS=0; | |
| 182 | + IEC0bits.CTIE=1; | |
| 183 | +} | |
| 184 | + | |
| 185 | +char* coretimer_statement(){ | |
| 186 | + char* err; | |
| 187 | + err=get_value(); | |
| 188 | + if (err) return err; | |
| 189 | + // 0x40825800: mtc0 v0,Compare | |
| 190 | + call_quicklib_code(lib_coretimer,0x40825800); | |
| 191 | + return 0; | |
| 192 | +} | |
| 193 | + | |
| 194 | +/* | |
| 160 | 195 | Interrupt interprtation |
| 161 | 196 | To cause interruption, use raise_interrupt_flag() macro |
| 162 | 197 | For example, |
Fork