Subversion Repositories s6soc

////////////////////////////////////////////////////////////////////////////////
//
// Filename: 	taskp.c
//
// Project:	CMod S6 System on a Chip, ZipCPU demonstration project
//
// Purpose:	Implements the new_task function to create a new task, as well
//		as the idle_task's entry function and body.
//
// Creator:	Dan Gisselquist, Ph.D.
//		Gisselquist Technology, LLC
//
////////////////////////////////////////////////////////////////////////////////
//
// Copyright (C) 2015-2016, Gisselquist Technology, LLC
//
// This program is free software (firmware): you can redistribute it and/or
// modify it under the terms of  the GNU General Public License as published
// by the Free Software Foundation, either version 3 of the License, or (at
// your option) any later version.
//
// This program is distributed in the hope that it will be useful, but WITHOUT
// ANY WARRANTY; without even the implied warranty of MERCHANTIBILITY or
// FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
// for more details.
//
// You should have received a copy of the GNU General Public License along
// with this program.  (It's in the $(ROOT)/doc directory, run make with no
// target there if the PDF file isn't present.)  If not, see
// <http://www.gnu.org/licenses/> for a copy.
//
// License:	GPL, v3, as defined and found on www.gnu.org,
//		http://www.gnu.org/licenses/gpl.html
//
//
////////////////////////////////////////////////////////////////////////////////
//
//
#include "ksched.h"
#include "kfildes.h"
#include "taskp.h"
#include "txfns.h"
 
extern	void *sys_malloc(int sz);
TASKP	new_task(unsigned ln, VENTRYP entry) {
	int	i;
	TASKP	tsk = (TASKP)sys_malloc(sizeof(struct TASK_S)+ln);
 
	for(i=0; (unsigned)i<sizeof(struct TASK_S)+ln; i++)
		((unsigned int *)tsk)[i] = 0;
	tsk->context[ 0] = (int)(idle_task);
	tsk->context[12] = (int)&tsk->user_data[ln]; // Set the stack pointer
	tsk->context[13] = (int)&tsk->user_data[ln]; // Set the stack pointer
	tsk->context[14] = 0x20; // GIE bit only
	tsk->context[15] = (int)((int *)entry);
	tsk->user_heap   = &tsk->user_data[0];
	tsk->state = SCHED_READY;
 
	return tsk;
}
 
// 
// zip_idle is really an assembly language builtin.  It translates into the
// WAIT (i.e. for interrupt) instruction.  Even this, though, is a derived
// instruction.  More specifically, the WAIT instruction OR's a constant
// to the CC register.
//
extern void zip_idle(void);
void	idle_task(void) {
	do {
		zip_idle();
	} while(1);
}