
unit OS
{
	interface[1] void REMO_SetInterrupt( int32 index, bool open ){}
	interface[2] void REMO_WriteByte( uint8 d ){}
	interface[3] void REMO_Debug( int32 d ){}
	
	interface[4] void REMO_DataChannelWrite( int32 d, int32 d1 ){}
	interface[5] int32 REMO_DataChannelRead( int32 d ){}
	
	interface[6] void REMO_DataChannelInit(){}
	
	interface[7] void REMO_ModuleWrite( int32 d, int32 d1 ){}
	interface[8] int32 REMO_ModuleRead( int32 d ){}
	
	//---------------------------------------------------
	public void OS_init()
	{
		DriverInit();
		
		//OSں˳ʼ
		KernelInit();
		
		#.OS.REMO_SetInterrupt( 0x11, true );
	}
	
	//=================================================================================
	[uint8*RUN_NUMBER] TickList;
	[uint8*RUN_NUMBER] MaxTickList;
	[uint32*RUN_NUMBER] DriverHandleList;
	
	//..........................
	//ע DriverNumber ɲϵͳʹ,ڵȱ߽,
	// RUN_NUMBER ڶ㹻Ĵ洢,߼
	
	//ں
	uint8 DriverNumber;
	//С洢߽
	public const uint8 RUN_NUMBER = 0;
	
	[uint32*RUN100us_NUMBER] Driver100usHandleList;
	
	//..........................
	//ע Driver100usNumber ɲϵͳʹ,ڵȱ߽,
	// RUN100us_NUMBER ڶ㹻Ĵ洢,߼
	
	//ں
	uint8 Driver100usNumber;
	//С洢߽
	public const uint8 RUN100us_NUMBER = 0;
	//..........................
	
	public uint8 tick;
	
	//=================================================================================
	
	//---------------------------------------------------
	//жϷ
	interrupt 200 [0x11]
	void OS_run()
	{
		//пںб
		RunDriver100usList();
		
		RunDriverList();
		
		tick + 1;
	}
	//---------------------------------------------------
	//ʼںʱ
	void DriverInit()
	{
		DriverNumber = 0;
		for( uint8 i = 0; i < RUN_NUMBER; i + 1 ) {
			TickList[i] = 0;
			MaxTickList[i] = 0;
			DriverHandleList[i] = 0;
		}
		Driver100usNumber = 0;
	}
	//---------------------------------------------------
	//עں˽
	public void CreateDriver100us( uint32 Handle )
	{
		Driver100usHandleList[Driver100usNumber] = Handle;
		Driver100usNumber + 1;
	}
	//---------------------------------------------------
	//עں˽
	public void CreateDriver( uint32 Handle, uint8 MaxTick )
	{
		DriverHandleList[DriverNumber] = Handle;
		MaxTickList[DriverNumber] = MaxTick;
		DriverNumber + 1;
	}
	//---------------------------------------------------
	//б,
	void RunDriverList()
	{
		for( uint8 i = 0; i < DriverNumber; i + 1 ) {
			TickList[i] + 1;
			if( TickList[i] == MaxTickList[i] ) {
				TickList[i] = 0;
				D_CALL( DriverHandleList[i] );
			}
		}
	}
	//---------------------------------------------------
	//б,
	void RunDriver100usList()
	{
		for( uint8 i = 0; i < Driver100usNumber; i + 1 ) {
			D_CALL( Driver100usHandleList[i] );
		}
	}
	//---------------------------------------------------
	//̬÷װ
	void D_CALL( uint32 Handle )
	{
		#asm "_PC_local_uint24 0"
	}
	
	//=================================================================================
	//ƿ
	struct TCB
	{
		//ʹõĴ洢ռ,ڶջַ,ֲ͵úַı
		//ջݸʽ(ʼ״̬):
		//λ: 0    1    2   ~~   L-8  L-7  L-6  L-5  L-4  L-3  L-2  L-1
		//Ԫ: *    *    *   ~~   R29  R28  PCE  PCH  PCL  SDE  SDH  SDL
		//ջָ: *    *    *   ~~   /^\   *    *    *    *    *    *    * 
		[uint8*STACK_LENGTH] Stack;
		
		//ռõԴ(¼), 0ʱʾӦ¼ڱռ
		->uint8 e_res_count;
		
		//Ƿʹ
		bool open;
		
		//ǰ󶨵¼ָ
		uint32 EventProc;
		
		//ĵǰSPָ
		uint16 SP;
	}
	[struct TCB * TASK_NUMBER] AppTCB;
	
	//ÿռݵĴ洢ռС
	const uint16 STACK_LENGTH = 200;
	
	//ǰ
	uint16 CurrentTaskIndex;
	
	//С洢߽
	const uint16 TASK_NUMBER = 5;
	//...................
	
	//ջָ
	//uint16 SP = #addr 0x5D;
	
	//---------------------------------------------------
	//ں˳ʼ
	void KernelInit()
	{
		CurrentTaskIndex = 0;
		for( uint8 i = 0; i < TASK_NUMBER; i + 1 ) {
			AppTCB[i].open = false;
		}
	}
	//---------------------------------------------------
	//ʼ
	public void Start()
	{
		uint16 BSP = AppTCB[0].SP;
		#asm "_SP_local_uint16 &BSP"
		//#asm "POP R29"
		//#asm "POP R28"
		#asm "ջ DP"
		#asm "жϷ"
	}
	//---------------------------------------------------
	//һε, ѵǰֲָ뱣浽ǰĶջ,
	//Ȼлһ,ӦľֲָPC,һ
	public void Schedule()
	{
		//#asm "PUSH R28"
		//#asm "PUSH R29"
		#asm "ѹջ DP"
		
		uint16 BSP;
		#asm "_SP_local_uint16 &BSP"
		AppTCB[CurrentTaskIndex].SP = BSP;
		
		//һĽ
		forever {
			CurrentTaskIndex + 1;
			CurrentTaskIndex % TASK_NUMBER;
			if( AppTCB[CurrentTaskIndex].open ) {
				break;
			}
		}
		//׼лĽ
		BSP = AppTCB[CurrentTaskIndex].SP;
		
		//һҪж,Ϊ SP һ16λ,ڼ䱻ж
		//#asm "CLI"
		#asm "_SP_local_uint16 &BSP"
		//#asm "SEI"
		
		//#asm "POP R29"
		//#asm "POP R28"
		#asm "ջ DP"
		
		#asm ""
	}
	//---------------------------------------------------
	//ִֹһָŵ¼
	public void TrigEvent( uint8 i )
	{
		//#asm "PUSH R28"
		//#asm "PUSH R29"
		#asm "ѹջ DP"
		
		uint16 BSP;
		#asm "_SP_local_uint16 &BSP"
		AppTCB[CurrentTaskIndex].SP = BSP;
		
		CurrentTaskIndex = i;
		
		//׼лĽ
		BSP = AppTCB[CurrentTaskIndex].SP;
		
		//һҪж,Ϊ SP һ16λ,ڼ䱻ж
		//#asm "CLI"
		#asm "_SP_local_uint16 &BSP"
		//#asm "SEI"
		
		//#asm "POP R29"
		//#asm "POP R28"
		#asm "ջ DP"
		
		#asm ""
	}
	//---------------------------------------------------
	//עһ¼¼б
	public uint8 CreateTask( uint32 Proc )
	{
		//ʱ, ݵĵײ
		uint16 NP;
		->uint8 P;
		
		//һеĽ, ̳߳˵Ļ, Զһνͷ
		uint8 i = 0;
		forever {
			if( !AppTCB[i].open ) {
				break;
			}
			i + 1;
			//i % TASK_NUMBER;
			if( i == TASK_NUMBER ) {
				i = 0;
				Schedule();
			}
		}
		//󶨵ǰ̵¼ָ
		AppTCB[i].EventProc = Proc;
		
		//¼
		AppTCB[i].Stack[STACK_LENGTH - 4] = Proc.0(uint8);
		AppTCB[i].Stack[STACK_LENGTH - 5] = Proc.8(uint8);
		AppTCB[i].Stack[STACK_LENGTH - 6] = Proc.16(uint8);
		
		//¼ɳ,֤¼ȫ˳
		uint32 SandboxHandle = #addr EventSandbox;
		AppTCB[i].Stack[STACK_LENGTH - 1] = SandboxHandle.0(uint8);
		AppTCB[i].Stack[STACK_LENGTH - 2] = SandboxHandle.8(uint8);
		AppTCB[i].Stack[STACK_LENGTH - 3] = SandboxHandle.16(uint8);
		
		//¼ռ
		P -> AppTCB[i].Stack[0];
		
		//#asm "LDD r30,y+&P"
		//#asm "LDD r31,y+&P+1"
		//#asm "STD y+&NP,r30"
		//#asm "STD y+&NP+1,r31"
		#asm "_0_local_uint16 &P"
		#asm "_0_local_uint16 &NP"
		
		AppTCB[i].Stack[STACK_LENGTH - 7] = NP.0(uint8);
		AppTCB[i].Stack[STACK_LENGTH - 8] = NP.8(uint8);
		
		//ý̵¼Դ
		if( i != 0 ) {
			AppTCB[i].e_res_count -> AppTCB[CurrentTaskIndex].e_res_count;
			AppTCB[i].e_res_count + 1;
		}
		
		//öջָ,ָջβ,ƶ6PCָ(ɳ  ¼ʼ)  2ջָĿռ
		P -> AppTCB[i].Stack[STACK_LENGTH - 1 - 8];
		
		//#asm "LDD r30,y+&P"
		//#asm "LDD r31,y+&P+1"
		//#asm "STD y+&NP,r30"
		//#asm "STD y+&NP+1,r31"
		#asm "_0_local_uint16 &P"
		#asm "_0_local_uint16 &NP"
		
		AppTCB[i].SP = NP;
		
		AppTCB[i].open = true;

		return i;
	}
	//---------------------------------------------------
	//ָ¼
	public void DeleteTask( uint32 Proc )
	{
		//¼̳
		uint8 i = 0;
		loop( TASK_NUMBER ) {
			if( AppTCB[i].open && AppTCB[i].EventProc == Proc ) {
				AppTCB[i].e_res_count = 0;
				AppTCB[i].open = false;
			}
			i + 1;
		}
	}
	//---------------------------------------------------
	//¼ɳ, ȷ¼ȫ˳
	void EventSandbox()
	{
		AppTCB[CurrentTaskIndex].e_res_count - 1;
		
		//ռû¼ռ,6洢Ԫ(PCָ),ֹ±ߵĴи¼ջʼ
		uint16 BSP;
		//#asm "CLI"
		#asm "_SP_local_uint16 &BSP"
		BSP - 6;
		#asm "_SP_local_uint16 &BSP"
		//#asm "SEI"
		
		AppTCB[CurrentTaskIndex].open = false;
		Schedule();
	}
}







