int main( int argc,const char* argv[] )
{
init_morse_sound(argc,argv); //This guy eats argc and argv as you see.
int error_cnt=0;
while(!feof(in) && !ferror(in))
{
int new_error=0, got=fgetc(in);
got= toupper(got);
//putc(got,stdout);
switch(got)
{
case 'T': morse_sound("_"); break;
case 'M': morse_sound("__"); break;
case 'O': morse_sound("___"); break;
case 'H': morse_sound("____"); break;
//case 'Ö': morse_sound("___."); break;
case 'G': morse_sound("__."); break;
case 'Q': morse_sound("__._"); break;
case 'Z': morse_sound("_ _.."); break;
case 'N': morse_sound("_."); break;
case 'K': morse_sound("_._"); break;
case 'Y': morse_sound("_.__"); break;
case 'C': morse_sound("_._."); break;
case 'D': morse_sound("_.."); break;
case 'X': morse_sound("_.._"); break;
case 'B': morse_sound("_..."); break;
case 'E': morse_sound("."); break;
case 'A': morse_sound("._"); break;
case 'W': morse_sound(".__"); break;
case 'J': morse_sound(".___"); break;
case 'P': morse_sound(".__."); break;
case 'R': morse_sound("._."); break;
//case 'Ä': morse_sound("._._"); break;
case 'L': morse_sound("._.."); break;
case 'I': morse_sound(".."); break;
case 'U': morse_sound(".._"); break;
//case 'Ü': morse_sound(".._ _"); break;
case 'F': morse_sound(".._."); break;
case 'S': morse_sound("..."); break;
case 'V': morse_sound("..._"); break;
case '1': morse_sound(".____"); break;
case '2': morse_sound("..___"); break;
case '3': morse_sound("...__"); break;
case '4': morse_sound("...._"); break;
case '5': morse_sound("....."); break;
case '6': morse_sound("_...."); break;
case '7': morse_sound("__..."); break;
case '8': morse_sound("___.."); break;
case '9': morse_sound("____."); break;
case '0': morse_sound("_____"); break;
case '.': morse_sound("._._._"); break;
case ',': morse_sound("__..__"); break;
case ' ': case '\t': case '\n': SDL_Delay(l_delay); break;
default: new_error=1; error_cnt++; break;
}
if( letter_delay>0 ){ SDL_Delay(letter_delay); }
if( argc>7 && error_cnt> 0 && !new_error )
{ if( error_cnt>1 ){ printf("E%d", error_cnt); }
else{ printf("E"); }
error_cnt=0;
}
}
if( error_cnt>0 ){ printf("E");
if(error_cnt>1){ printf("%d", error_cnt); } }
exit_sound();
}
void PICLANG_next()
{
picos_size_t command;
picos_size_t a,b,c;// parameters, can be shared
picos_signed_t siga;// a, but signed.
signed char sch1;// signed char parameters
char ch1;// char parameter
static bit flag1;
extern char ARG_buffer[ARG_SIZE];
if(curr_process.page_size == 0)
return;
if(picos_processes[picos_curr_process].expires == 0)
{
if((curr_process.bitmap & PICLANG_BLOCKING_CALL) == 0 || PICLANG_debug == true)// Check for blocking call
{
PICLANG_save(PICLANG_SUSPENDED);
return;
}
}
if(picos_processes[picos_curr_process].signal_sent != PICOS_NUM_SIGNALS)
{
if(signal_valid_id(picos_processes[picos_curr_process].signal_sent) == false)
{
PICLANG_exception(THREAD_INVALID_SIGNAL);
return;
}
curr_process.pc = signals[picos_processes[picos_curr_process].signal_sent].sig_action_addr;
signal_free(picos_processes[picos_curr_process].signal_sent);
picos_processes[picos_curr_process].signal_sent = PICOS_NUM_SIGNALS;
}
command = PICLANG_get_next_word();
if(curr_process.status != PICLANG_SUCCESS)
return;
if(PICLANG_debug == true)
PICLANG_debug_out(command);
switch(command)
{
case PICLANG_UMINUS:
{
picos_signed_t inv = (picos_signed_t)PICLANG_pop();
PICLANG_pushl(-inv);
break;
}
case PICLANG_ADD:
PICLANG_pushl(PICLANG_pop() + PICLANG_pop());
PICLANG_update_arith_status();
break;
case PICLANG_MOD:case PICLANG_DIV:
{
// a/b --> c rem a
b = PICLANG_pop();
a = PICLANG_pop();
c = 0;
while(a >= b)
{
a -= b;
c++;
}
if(command == PICLANG_MOD)
PICLANG_pushl(a);
else
PICLANG_pushl(c);
PICLANG_update_arith_status();
break;
}
case PICLANG_SUB:
{
b = PICLANG_pop();
a = PICLANG_pop();
PICLANG_pushl(a - b);
PICLANG_update_arith_status();
break;
}
case PICLANG_MULT:
a = PICLANG_pop();
b = PICLANG_pop();
c = a*b;
PICLANG_pushl(c);
PICLANG_update_arith_status();
break;
case PICLANG_PUSHL:
a = PICLANG_get_next_word();
PICLANG_pushl(a);
break;
case PICLANG_PUSH:
{
a = PICLANG_get_next_word();
b = PAGE_get(a,picos_curr_process);
if(error_code != SUCCESS)
PICLANG_exception(error_code);
else
PICLANG_pushl(b);
break;
}
case PICLANG_DROP:
PICLANG_pop();
break;
case PICLANG_SWAP:
a = PICLANG_pop();
b = PICLANG_pop();
PICLANG_pushl(a);
PICLANG_pushl(b);
break;
case PICLANG_POP:
{
a = PICLANG_get_next_word();
b = PICLANG_pop();
PAGE_set(a,b,picos_curr_process);
break;
}
case PICLANG_ARGC:
PICLANG_pushl(picos_processes[picos_curr_process].nargs);
break;
case PICLANG_ARGV:
{
a = PICLANG_pop();
sch1 = ARG_get(a);
if(sch1 < 0)
{
PICLANG_exception(PICLANG_INVALID_PARAMETER);
break;
}
b = (picos_size_t)sch1;
PICLANG_pushl(b);
break;
}
case PICLANG_PRINT:
{
a = PICLANG_pop();
putch(a);
IO_flush();
break;
}
case PICLANG_DEREF:
{
a = PICLANG_pop();// array index
b = PICLANG_pop();// array starting address
PICLANG_next_dereference(b+a,command);
break;
}
case PICLANG_BSL: case PICLANG_BSR:// bit shifts
{
a /*shift_amount*/ = PICLANG_pop();
b /*val*/ = PICLANG_pop();
if(command == PICLANG_BSL)
b <<= a;
else
b >>= a;
PICLANG_pushl(b);
PICLANG_update_arith_status();
break;
}
case PICLANG_FPUTD:
{
char hex_val[PICOS_SIZE_T_DECIMAL_DIGITS];//ch1 = index
dec_to_word(hex_val,PICLANG_pop());
ch1 = 0;
flag1 = false;
for(;ch1 < 5;ch1++)
{
if(flag1 == true || hex_val[ch1] != 0x30)
{
SRAM_write(SRAM_PICLANG_RAW_FILE_BUFFER+PICLANG_file_buffer_index++,&hex_val[ch1],sizeof(char));
flag1 = true;
}
if(PICLANG_file_buffer_index >= FS_BUFFER_SIZE)
{
picfs_dump(picos_processes[picos_curr_process].program_file);
SRAM_write(SRAM_PICLANG_NEXT_SWAP_ADDR,(void*)picfs_buffer,FS_BUFFER_SIZE);
memset((char*)picfs_buffer,0,FS_BUFFER_SIZE);
SRAM_write(SRAM_PICLANG_RAW_FILE_BUFFER,(void*)picfs_buffer,FS_BUFFER_SIZE);
SRAM_read(SRAM_PICLANG_NEXT_SWAP_ADDR,(void*)picfs_buffer,FS_BUFFER_SIZE);
PICLANG_file_buffer_index = 0;
}
}
if(flag1 == false)
{
ch1 = '0';
SRAM_write(SRAM_PICLANG_RAW_FILE_BUFFER+PICLANG_file_buffer_index++,&ch1,sizeof(char));
if(PICLANG_file_buffer_index >= FS_BUFFER_SIZE)
{
picfs_dump(picos_processes[picos_curr_process].program_file);
SRAM_write(SRAM_PICLANG_NEXT_SWAP_ADDR,(void*)picfs_buffer,FS_BUFFER_SIZE);
memset((char*)picfs_buffer,0,FS_BUFFER_SIZE);
SRAM_write(SRAM_PICLANG_RAW_FILE_BUFFER,(void*)picfs_buffer,FS_BUFFER_SIZE);
SRAM_read(SRAM_PICLANG_NEXT_SWAP_ADDR,(void*)picfs_buffer,FS_BUFFER_SIZE);
PICLANG_file_buffer_index = 0;
}
}
break;
}
case PICLANG_PWDIR:
PICLANG_pushl(curr_dir);
break;
case PICLANG_MOUNT:
a = PICLANG_pop();// device
b = PICLANG_pop();// address of first byte
if(picfs_mount((picos_addr_t)b,(picos_dev_t)a) != SUCCESS)
curr_process.status = error_code;
break;
case PICLANG_CHDIR:
{
a = PICLANG_pop();
picfs_chdir(a);
break;
}
case PICLANG_MOVE:
a = PICLANG_pop();// y
b = PICLANG_pop();// x
IO_move(a,b);
break;
case PICLANG_GETY: case PICLANG_GETX:
IO_getxy(&a,&b);
if(command == PICLANG_GETX)
PICLANG_pushl(a);
else
PICLANG_pushl(b);
break;
case PICLANG_FPUTCH:// KEEP FPUTCH before FFLUSH
{
ch1 = (char)PICLANG_pop();
SRAM_write(SRAM_PICLANG_RAW_FILE_BUFFER+PICLANG_file_buffer_index++,&ch1,sizeof(char));
if(PICLANG_file_buffer_index < FS_BUFFER_SIZE)
break;
}
case PICLANG_FFLUSH:// KEEP FPUTCH before FFLUSH KEEP FFLUSH before FCLEAR
picfs_dump(picos_processes[picos_curr_process].program_file);
case PICLANG_FCLEAR:// KEEP FFLUSH before FCLEAR
SRAM_write(SRAM_PICLANG_NEXT_SWAP_ADDR,(void*)picfs_buffer,FS_BUFFER_SIZE);
memset((char*)picfs_buffer,0,FS_BUFFER_SIZE);
SRAM_write(SRAM_PICLANG_RAW_FILE_BUFFER,(void*)picfs_buffer,FS_BUFFER_SIZE);
SRAM_read(SRAM_PICLANG_NEXT_SWAP_ADDR,(void*)picfs_buffer,FS_BUFFER_SIZE);
PICLANG_file_buffer_index = 0;
break;
case PICLANG_FSTAT:
a = PICLANG_pop();
sch1 = picfs_stat(a);
if(sch1 < 0)
{
PICLANG_set_errno();
sch1 = 0;
}
a = picfs_buffer[ST_SIZE] << 8;
a += picfs_buffer[ST_SIZE+1];
PICLANG_pushl(a);
break;
case PICLANG_READDIR:
a = PICLANG_pop();
sch1 = picfs_readdir(1,a);
if(sch1 != SUCCESS)
PICLANG_set_errno();
PICLANG_pushl(sch1);
break;
case PICLANG_FOPEN:
{
/* mount_t mount;
SRAM_read(curr_dir*sizeof(mount_t)+SRAM_MTAB_ADDR,&mount,sizeof(mount_t));*/
a = PICLANG_pop();
if(a < ARG_SIZE)
{
sch1 = picfs_open(ARG_buffer+a,curr_dir);
}
else if(a < ARG_SIZE + FS_BUFFER_SIZE)
{
a -= ARG_SIZE;
sch1 = picfs_open((const char*)picfs_buffer+a,curr_dir);
}
else
{
c = 0;
a -= ARG_SIZE + picos_processes[picos_curr_process].block_size;
sch1 = PICLANG_next_dereference(a,command);
}
if(sch1 == -1)
PICLANG_set_errno();
PICLANG_pushl(sch1);
break;
}
case PICLANG_FCLOSE:
a = PICLANG_pop();
picfs_close(a);
break;
case PICLANG_FREAD:
a = PICLANG_pop();
sch1 = picfs_load(a);
b = sch1;
if(sch1 < 0)
{
b = -1;
error_code = SUCCESS;
PICLANG_exception(error_code);
}
PICLANG_pushl(b);
break;
case PICLANG_PRINTL:
IO_putd(PICLANG_pop());
IO_flush();
break;
case PICLANG_CLEAR:
clear_output();
break;
case PICLANG_MUTEX_LOCK:
PICLANG_block();
break;
case PICLANG_MUTEX_UNLOCK:
PICLANG_unblock();
break;
case PICLANG_GETCH:
{
PICLANG_block();
PICLANG_pushl(getch());
PICLANG_unblock();
break;
}
case PICLANG_GETD:
{
PICLANG_block();
ch1 = getch();
PICLANG_unblock();
if(ch1 < '0' || ch1 > '9')
{
PICLANG_exception(ARG_INVALID);
break;
}
ch1 -= 0x30;
PICLANG_pushl(ch1);
break;
}
case PICLANG_SPRINT:case PICLANG_SPRINTN:
{
// string addresses start with arguments then const strings in executable
/*string_pointer*/a = PICLANG_pop();
PICLANG_next_dereference(a,command);
IO_flush();
break;
}
case PICLANG_LSOF:
IO_puts("Implement lsof");
break;
case PICLANG_LSMOUNT:
lsmount();
break;
case PICLANG_ERRNO:
PICLANG_pushl(PICLANG_get_errno());
break;
case PICLANG_KVERSION:
a = PICLANG_pop();
if(a > 3)
{
PICLANG_exception(PICFS_EINVAL);
break;
}
if(a == 0)
b = KERNEL_MAJOR_VERSION;
else if(a == 1)
b = KERNEL_MINOR_VERSION;
else if(a == 2)
b = KERNEL_REVISION;
else
b = KERNEL_ID_TAG;
PICLANG_pushl(b);
break;
case PICLANG_SIGNAL:
a = PICLANG_get_next_word();// signal id
b = PICLANG_get_next_word();// signal action
if(a == PICOS_NUM_SIGNALS)
{
signal_free(b);
break;
}
sch1 = signal_assign(a,picos_curr_process,b);
if(sch1 != 0)
PICLANG_exception(error_code);
break;
case PICLANG_SLEEP:
a = PICLANG_pop();
ch1 = picos_curr_process;
PICLANG_save(PICLANG_SUSPENDED);
picos_processes[ch1].expires = (quantum_t)a;
break;
case PICLANG_MORSE:
{
char two[2];
/*addr*/a = PICLANG_pop();
two[1] = PICLANG_pop();//char or string?
if(two[1] == PICLANG_MORSE_STRING)
SRAM_read(a++,two,1);
else
{
two[0] = (char)a;
two[1] = 0;
morse_sound(two);
break;
}
two[1] = 0;
while(two[0] != 0)
{
morse_sound(two);
SRAM_read(a++,two,1);
}
break;
}
case PICLANG_TIME:
{
const TIME_t *thetime = TIME_get();
ch1 = PICLANG_pop();
switch(ch1)
{
case 'Y':
PICLANG_pushl(thetime->year);
break;
case 'm':
PICLANG_pushl(thetime->month);
break;
case 'd':
PICLANG_pushl(thetime->day);
break;
case 'H':
PICLANG_pushl(thetime->hours);
break;
case 'M':
PICLANG_pushl(thetime->minutes);
break;
case 'S':
PICLANG_pushl(thetime->seconds);
break;
default:
PICLANG_exception(PICLANG_INVALID_PARAMETER);
break;
}
break;
}
case PICLANG_SET_TIME:case PICLANG_SET_DATE:
{
TIME_t newtime = *(TIME_get());
if(command == PICLANG_SET_TIME)
{
newtime.minutes = PICLANG_pop();
newtime.hours = PICLANG_pop();
if(newtime.minutes > 59 || newtime.hours > 23)
{
newtime.minutes = newtime.hours = 0;
PICLANG_exception(TIME_INVALID);
}
}
else
{
newtime.year = PICLANG_pop();
newtime.day = PICLANG_pop();
newtime.month = PICLANG_pop();
if(newtime.month > 12 || newtime.day > 31)
{
newtime.month = newtime.day = 0;
PICLANG_exception(TIME_INVALID);
}
}
TIME_set(&newtime);
break;
}
case PICLANG_JZ:case PICLANG_JMP:case PICLANG_CALL:
{
b = curr_process.pc;
a = PICLANG_get_next_word();
if(curr_process.status != PICLANG_SUCCESS)
{
curr_process.pc = b;
break;
}
if(command == PICLANG_CALL)
{
PICLANG_call_push(curr_process.pc);
curr_process.pc = a;
}
else if(command == PICLANG_JMP)
curr_process.pc = a;
else if((curr_process.bitmap & PICLANG_ZERO) == 0)
curr_process.pc = a;
if(curr_process.status != PICLANG_SUCCESS)
{
curr_process.pc = b;
break;
}
break;
}
case PICLANG_RETURN:
{
b = curr_process.pc;
curr_process.pc = PICLANG_call_pop();
if(curr_process.status != PICLANG_SUCCESS)
{
curr_process.pc = b;
break;
}
break;
}
case PICLANG_EXIT:
PICLANG_save(PICLANG_pop());
break;
case PICLANG_LABEL:
break;
case PICLANG_COMPLT:
{
b = PICLANG_pop();
a = PICLANG_pop();
if(a < b)
curr_process.bitmap |= PICLANG_ZERO;
else
curr_process.bitmap &= ~PICLANG_ZERO;
break;
}
case PICLANG_COMPGT:
{
b = PICLANG_pop();
a = PICLANG_pop();
if(a > b)
curr_process.bitmap |= PICLANG_ZERO;
else
curr_process.bitmap &= ~PICLANG_ZERO;
break;
}
case PICLANG_COMPEQ:case PICLANG_COMPNE:
{
b = PICLANG_pop();
a = PICLANG_pop();
if(a == b)
curr_process.bitmap |= PICLANG_ZERO;
else
curr_process.bitmap &= ~PICLANG_ZERO;
if(command == PICLANG_COMPNE)
curr_process.bitmap ^= PICLANG_ZERO;
break;
}
case PICLANG_AND:
a = PICLANG_pop();
b = PICLANG_pop();
PICLANG_pushl(a & b);
break;
case PICLANG_OR:
a = PICLANG_pop();
b = PICLANG_pop();
PICLANG_pushl(a | b);
break;
case PICLANG_NOT:
a = PICLANG_pop();
PICLANG_pushl(~a);
break;
case PICLANG_RAWLOAD:
SRAM_read(SRAM_PICLANG_RAW_FILE_BUFFER,(void*)picfs_buffer,FS_BUFFER_SIZE);
break;
case PICLANG_NUM_COMMANDS:default:
PICLANG_exception(PICLANG_UNKNOWN_COMMAND);
break;
}
}
