freecalypso-sw: gsm-fw/nucleus/tmt.S annotate

annotate gsm-fw/nucleus/tmt.S @ 341:fcbdb2ae1a47

OSL: os_CreateTask() done

author	Michael Spacefalcon <msokolov@ivan.Harhan.ORG>
date	Sat, 03 May 2014 12:24:56 +0000
parents	afceeeb2cba1
children

rev	line source
79 947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	1 /*
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	2 ************************************************************************
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	3 *
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	4 * Copyright Mentor Graphics Corporation 2002
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	5 * All Rights Reserved.
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	6 *
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	7 * THIS WORK CONTAINS TRADE SECRET AND PROPRIETARY INFORMATION WHICH IS
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	8 * THE PROPERTY OF MENTOR GRAPHICS CORPORATION OR ITS LICENSORS AND IS
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	9 * SUBJECT TO LICENSE TERMS.
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	10 *
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	11 ************************************************************************
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	12 ************************************************************************
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	13 *
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	14 * FILE NAME VERSION
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	15 *
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	16 * tmt.s Nucleus PLUS\ARM925\Code Composer 1.14.1
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	17 *
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	18 * COMPONENT
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	19 *
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	20 * TM - Timer Management
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	21 *
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	22 * DESCRIPTION
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	23 *
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	24 * This file contains the target dependent routines of the timer
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	25 * management component.
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	26 *
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	27 * FUNCTIONS
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	28 *
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	29 * TMT_Set_Clock Set system clock
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	30 * TMT_Retrieve_Clock Retrieve system clock
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	31 * TMT_Read_Timer Read count-down timer
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	32 * TMT_Enable_Timer Enable count-down timer
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	33 * TMT_Adjust_Timer Adjust count-down timer
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	34 * TMT_Disable_Timer Disable count-down timer
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	35 * TMT_Retrieve_TS_Task Retrieve time-sliced task ptr
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	36 * TMT_Timer_Interrupt Process timer interrupt
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	37 *
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	38 * DEPENDENCIES
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	39 *
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	40 * tc_extr.h Thread Control functions
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	41 * tm_extr.h Timer functions
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	42 *
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	43 * HISTORY
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	44 *
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	45 * NAME DATE REMARKS
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	46 *
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	47 * B. Ronquillo 08-28-2002 Released version 1.14.1
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	48 *
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	49 *
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	50 ************************************************************************
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	51 */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	52
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	53 #define NU_SOURCE_FILE
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	54
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	55 /*
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	56 ******************************
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	57 * INCLUDE ASSEMBLY CONSTANTS *
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	58 ******************************
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	59 * Define constants used in low-level initialization.
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	60 */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	61
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	62 #include "asm_defs.h"
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	63
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	64 .code 32
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	65
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	66 .text
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	67
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	68 /*
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	69 **********************************
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	70 * LOCAL VARIABLE DECLARATIONS *
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	71 **********************************
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	72 * Define various data structure pointers so their addresses
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	73 * can be obtained in a PC-relative manner.
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	74 */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	75
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	76 System_Clock:
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	77 .word TMD_System_Clock
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	78
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	79 Timer:
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	80 .word TMD_Timer
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	81
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	82 Timer_State:
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	83 .word TMD_Timer_State
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	84
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	85 Slice_State:
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	86 .word TMD_Time_Slice_State
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	87
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	88 Time_Slice:
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	89 .word TMD_Time_Slice
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	90
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	91 Current_Thread:
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	92 .word TCD_Current_Thread
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	93
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	94 Slice_Task:
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	95 .word TMD_Time_Slice_Task
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	96
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	97 HISR:
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	98 .word TMD_HISR
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	99
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	100 Int_Level:
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	101 .word TCD_Interrupt_Level
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	102
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	103 /*
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	104 ************************************************************************
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	105 *
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	106 * FUNCTION
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	107 *
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	108 * TMT_Set_Clock
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	109 *
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	110 * DESCRIPTION
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	111 *
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	112 * This function sets the system clock to the specified value.
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	113 *
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	114 * CALLED BY
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	115 *
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	116 * Application
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	117 *
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	118 * CALLS
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	119 *
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	120 * None
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	121 *
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	122 * INPUTS
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	123 *
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	124 * new_value New value for the clock
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	125 *
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	126 * OUTPUTS
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	127 *
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	128 * None
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	129 *
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	130 * HISTORY
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	131 *
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	132 * NAME DATE REMARKS
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	133 *
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	134 * W. Lamie 02-15-1994 Created initial version 1.0
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	135 * D. Lamie 02-15-1994 Verified version 1.0
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	136 *
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	137 ************************************************************************
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	138 */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	139
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	140 @VOID TMT_Set_Clock(UNSIGNED new_value)
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	141 @{
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	142
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	143 .globl TMT_Set_Clock
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	144 TMT_Set_Clock:
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	145
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	146 @ Set the system clock to the specified value.
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	147 @ TMD_System_Clock = new_value;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	148
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	149 LDR r1,System_Clock @ Build address of system clock
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	150 STR r0,[r1,#0] @ Store new system clock value
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	151
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	152 BX r14 @ Return to caller
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	153
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	154 @}
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	155
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	156 /*
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	157 ************************************************************************
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	158 *
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	159 * FUNCTION
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	160 *
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	161 * TMT_Retrieve_Clock
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	162 *
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	163 * DESCRIPTION
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	164 *
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	165 * This function returns the current value of the system clock.
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	166 *
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	167 * CALLED BY
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	168 *
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	169 * Application
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	170 *
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	171 * CALLS
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	172 *
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	173 * None
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	174 *
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	175 * INPUTS
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	176 *
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	177 * None
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	178 *
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	179 * OUTPUTS
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	180 *
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	181 * TMD_System_Clock Value of system clock
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	182 *
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	183 * HISTORY
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	184 *
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	185 * NAME DATE REMARKS
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	186 *
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	187 * W. Lamie 02-15-1994 Created initial version 1.0
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	188 * D. Lamie 02-15-1994 Verified version 1.0
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	189 *
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	190 ************************************************************************
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	191 */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	192
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	193 @UNSIGNED TMT_Retrieve_Clock(void)
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	194 @{
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	195
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	196 .globl TMT_Retrieve_Clock
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	197 TMT_Retrieve_Clock:
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	198
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	199 @ Return the current value of the system clock.
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	200 @ return(TMD_System_Clock);
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	201
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	202 LDR r0,System_Clock @ Build address to system clock
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	203 LDR r0,[r0,#0] @ Pickup system clock contents
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	204
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	205 BX r14 @ Return to caller
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	206
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	207 @}
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	208
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	209 /*
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	210 ************************************************************************
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	211 *
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	212 * FUNCTION
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	213 *
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	214 * TMT_Read_Timer
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	215 *
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	216 * DESCRIPTION
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	217 *
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	218 * This function returns the current value of the count-down timer.
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	219 *
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	220 * CALLED BY
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	221 *
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	222 * TMC_Start_Timer Start timer function
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	223 *
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	224 * CALLS
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	225 *
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	226 * None
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	227 *
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	228 * INPUTS
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	229 *
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	230 * None
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	231 *
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	232 * OUTPUTS
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	233 *
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	234 * TMD_Timer Value of count-down timer
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	235 *
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	236 * HISTORY
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	237 *
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	238 * NAME DATE REMARKS
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	239 *
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	240 * W. Lamie 02-15-1994 Created initial version 1.0
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	241 * D. Lamie 02-15-1994 Verified version 1.0
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	242 *
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	243 ************************************************************************
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	244 */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	245
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	246 @UNSIGNED TMT_Read_Timer(void)
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	247 @{
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	248
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	249 .globl TMT_Read_Timer
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	250 TMT_Read_Timer:
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	251
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	252 @ Return the current value of the count-down timer.
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	253 @ return(TMD_Timer);
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	254
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	255 LDR r0,Timer @ Build address to timer
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	256 LDR r0,[r0,#0] @ Pickup timer contents
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	257
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	258 BX r14 @ Return to caller
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	259
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	260 @}
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	261
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	262 /*
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	263 ************************************************************************
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	264 *
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	265 * FUNCTION
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	266 *
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	267 * TMT_Enable_Timer
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	268 *
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	269 * DESCRIPTION
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	270 *
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	271 * This function enables the count-down timer with the specified
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	272 * value.
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	273 *
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	274 * CALLED BY
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	275 *
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	276 * TMC_Start_Timer Start timer function
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	277 * TMC_Timer_Task Timer expiration task
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	278 *
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	279 * CALLS
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	280 *
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	281 * None
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	282 *
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	283 * INPUTS
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	284 *
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	285 * time New count-down time
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	286 *
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	287 * OUTPUTS
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	288 *
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	289 * None
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	290 *
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	291 * HISTORY
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	292 *
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	293 * NAME DATE REMARKS
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	294 *
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	295 * W. Lamie 02-15-1994 Created initial version 1.0
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	296 * D. Lamie 02-15-1994 Verified version 1.0
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	297 *
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	298 ************************************************************************
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	299 */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	300
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	301 @VOID TMT_Enable_Timer(UNSIGNED time)
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	302 @{
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	303
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	304 .globl TMT_Enable_Timer
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	305 TMT_Enable_Timer:
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	306
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	307 @ Place the new time value into the count-down timer.
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	308 @ TMD_Timer = time;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	309
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	310 LDR r1,Timer @ Build address of timer
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	311 STR r0,[r1,#0] @ Store new timer value
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	312
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	313 @ Indicate that the timer is active.
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	314 @ TMD_Timer_State = TM_ACTIVE;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	315
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	316 MOV r0,#0 @ Build TM_ACTIVE value
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	317 LDR r1,Timer_State @ Build address of timer state var
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	318 STR r0,[r1,#0] @ Change the state to active
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	319
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	320 BX r14 @ Return to caller
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	321
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	322 @}
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	323
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	324 /*
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	325 ************************************************************************
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	326 *
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	327 * FUNCTION
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	328 *
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	329 * TMT_Adjust_Timer
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	330 *
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	331 * DESCRIPTION
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	332 *
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	333 * This function adjusts the count-down timer with the specified
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	334 * value, if the new value is less than the current.
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	335 *
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	336 * CALLED BY
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	337 *
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	338 * None
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	339 *
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	340 * CALLS
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	341 *
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	342 * None
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	343 *
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	344 * INPUTS
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	345 *
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	346 * time New count-down time.
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	347 *
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	348 * OUTPUTS
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	349 *
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	350 * None
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	351 *
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	352 * HISTORY
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	353 *
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	354 * NAME DATE REMARKS
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	355 *
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	356 * C. Meredith 03-01-1994 Created initial version 1.1
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	357 * D. Lamie 03-18-1994 Verified version 1.1
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	358 * C. Meredith 08-27-1994 Corrected bug in new timer
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	359 * adjust routine, resulting in
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	360 * version 1.1a
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	361 * W. Lamie 08-27-1994 Verified version 1.1a
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	362 *
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	363 ************************************************************************
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	364 */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	365
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	366 @VOID TMT_Adjust_Timer(UNSIGNED time)
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	367 @{
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	368
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	369 .globl TMT_Adjust_Timer
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	370 TMT_Adjust_Timer:
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	371
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	372 @ Lockout all interrupts
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	373 @ TMD_Timer_State = TM_NOT_ACTIVE;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	374
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	375 MRS r3,CPSR @ Pickup current CPSR
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	376 ORR r2,r3,#LOCKOUT @ Build lockout CPSR
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	377 MSR CPSR,r2 @ Setup new CPSR interrupt bits
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	378
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	379 @ Check for the new value is less than the current time value
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	380 @ if (time < TMD_Timer)
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	381
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	382 LDR r1,Timer @ Build address to timer var
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	383 LDR r2,[r1,#0] @ read value of the timer
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	384 CMP r2,r0 @ Do Timer - time > 0, means
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	385 BLT TMT_No_Adjust @ time < Timer.
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	386
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	387 @ Adjust the time
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	388 @ TMD_Timer = time;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	389
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	390 STR r0,[r1,#0] @ load passed in timer value
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	391
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	392 @ Return to caller after restoring interrupts
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	393
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	394 TMT_No_Adjust:
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	395
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	396 MSR CPSR,r3 @ Setup new CPSR enable bits
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	397
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	398 BX r14 @ Return to caller
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	399 @}
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	400
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	401 /*
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	402 ************************************************************************
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	403 *
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	404 * FUNCTION
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	405 *
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	406 * TMT_Disable_Timer
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	407 *
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	408 * DESCRIPTION
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	409 *
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	410 * This function disables the count-down timer.
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	411 *
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	412 * CALLED BY
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	413 *
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	414 * TMC_Start_Timer Start timer function
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	415 * TMC_Timer_Task Timer expiration task
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	416 *
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	417 * CALLS
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	418 *
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	419 * None
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	420 *
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	421 * INPUTS
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	422 *
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	423 * None
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	424 *
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	425 * OUTPUTS
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	426 *
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	427 * None
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	428 *
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	429 * HISTORY
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	430 *
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	431 * NAME DATE REMARKS
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	432 *
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	433 * W. Lamie 02-15-1994 Created initial version 1.0
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	434 * D. Lamie 02-15-1994 Verified version 1.0
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	435 *
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	436 ************************************************************************
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	437 */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	438
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	439 @VOID TMT_Disable_Timer(void)
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	440 @{
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	441
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	442 .globl TMT_Disable_Timer
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	443 TMT_Disable_Timer:
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	444
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	445 @ Disable the count-down timer.
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	446 @ TMD_Timer_State = TM_NOT_ACTIVE;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	447
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	448 MOV r1,#1 @ Build TM_NOT_ACTIVE value
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	449 LDR r0,Timer_State @ Build address to timer state var
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	450 STR r1,[r0,#0] @ Change timer state to not active
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	451
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	452 BX r14 @ Return to caller
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	453 @}
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	454
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	455 /*
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	456 ************************************************************************
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	457 *
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	458 * FUNCTION
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	459 *
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	460 * TMT_Retreive_TS_Timer
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	461 *
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	462 * DESCRIPTION
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	463 *
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	464 * This function returns the time-sliced task pointer.
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	465 *
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	466 * CALLED BY
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	467 *
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	468 * TMC_Timer_HISR Timer HISR
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	469 *
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	470 * CALLS
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	471 *
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	472 * None
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	473 *
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	474 * INPUTS
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	475 *
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	476 * None
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	477 *
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	478 * OUTPUTS
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	479 *
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	480 * TMD_Time_Slice_Task Time sliced task pointer
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	481 *
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	482 * HISTORY
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	483 *
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	484 * NAME DATE REMARKS
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	485 *
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	486 * C. Meredith 03-01-1994 Created initial version 1.1
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	487 * D. Lamie 03-18-1994 Verified version 1.1
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	488 *
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	489 ************************************************************************
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	490 */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	491
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	492 @NU_TASK TMT_Retrieve_TS_Task (VOID)
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	493 @{
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	494
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	495 .globl TMT_Retrieve_TS_Task
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	496 TMT_Retrieve_TS_Task:
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	497
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	498 @ Read the current TMD_Time_Slice_Task variable and load for
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	499 @ return to caller.
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	500
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	501 LDR r1,Slice_Task @ Build address to timer slice var
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	502 LDR r0,[r1,#0] @ Get task pointer to be returned
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	503
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	504 @ Return to caller time slice value back to caller
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	505
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	506 BX r14 @ Return to caller
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	507
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	508 @}
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	509
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	510 /*
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	511 ************************************************************************
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	512 *
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	513 * FUNCTION
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	514 *
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	515 * TMT_Timer_Interrupt
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	516 *
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	517 * DESCRIPTION
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	518 *
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	519 * This function processes the actual hardware interrupt.
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	520 * Processing includes updating the system clock and the count-
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	521 * down timer and the time-slice timer. If one or both of the
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	522 * timers expire, the timer HISR is activated.
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	523 *
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	524 * CALLED BY
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	525 *
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	526 * Interrupt Vector
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	527 *
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	528 * CALLS
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	529 *
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	530 * TCT_Activate_HISR Activate timer HISR
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	531 * TCT_Interrupt_Context_Save Save interrupted context
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	532 * TCT_Interrupt_Context_Restore Restore interrupted context
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	533 *
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	534 * INPUTS
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	535 *
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	536 * None
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	537 *
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	538 * OUTPUTS
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	539 *
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	540 * None
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	541 *
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	542 * HISTORY
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	543 *
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	544 * NAME DATE REMARKS
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	545 *
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	546 * W. Lamie 02-15-1994 Created initial version 1.0
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	547 * D. Lamie 02-15-1994 Verified version 1.0
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	548 *
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	549 ************************************************************************
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	550 */
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	551
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	552 @VOID TMT_Timer_Interrupt(void)
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	553 @{
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	554 .globl TMT_Timer_Interrupt
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	555 TMT_Timer_Interrupt:
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	556
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	557 MRS r1,CPSR @ Pickup current CPSR
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	558 ORR r1,r1,#LOCKOUT @ Set the interrupt lockout bits
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	559 MSR CPSR,r1 @ Lockout interrupts
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	560
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	561 @ Increment the system clock.
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	562 @ TMD_System_Clock++;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	563
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	564 LDR r0,System_Clock @ Pickup system clock address
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	565 LDR r1,[r0,#0] @ Pickup system clock contents
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	566 ADD r1,r1,#1 @ Increment system clock
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	567 STR r1,[r0,#0] @ Store new system clock value
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	568
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	569 @ Determine if the count-down timer is active.
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	570 @ if (TMD_Timer_State == TM_ACTIVE)
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	571 @ {
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	572
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	573 LDR r1,Timer_State @ Build address to timer state flag
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	574 LDR r0,[r1,#0] @ Pickup timer state
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	575 MOV r3,#2 @ Build expired value
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	576 CMP r0,#0 @ Is there a timer active?
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	577 BNE TMT_No_Timer_Active @ No, skip timer processing
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	578
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	579 @ Decrement the count-down timer.
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	580 @ TMD_Timer--;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	581
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	582 LDR r0,Timer @ Build timer address
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	583 LDR r2,[r0,#0] @ Pickup the current timer value
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	584
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	585 @ Test if the Timer is at 0 and if so skip the decrement
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	586 cmp r2,#1
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	587 beq EXPIRED
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	588
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	589 SUBS r2,r2,#1 @ Decrement the timer value
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	590 STR r2,[r0,#0] @ Store the new timer value
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	591
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	592 bne TMT_No_Timer_Active @ Skip over the Set Timer State
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	593
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	594 @ Determine if the timer has expired. If so, modify the state
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	595 @ to indicate that it has expired.
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	596 @ if (TMD_Timer == 0)
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	597
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	598 @ TMD_Timer_State = TM_EXPIRED;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	599
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	600 EXPIRED:
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	601 STREQ r3,[r1,#0] @ Change the timer state to
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	602 @ expired
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	603
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	604 @ }
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	605 TMT_No_Timer_Active:
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	606
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	607 @ Determine if the time-slice timer is active. Note that the parameters
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	608 @ for the time-slice are controlled by the Thread Control (TC)
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	609 @ component.
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	610 @ if (TMD_Time_Slice_State == TM_ACTIVE)
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	611 @ {
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	612 LDR r0,Slice_State @ Build time slice state address
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	613 LDR r2,[r0,#0] @ Pickup time slice state
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	614 CMP r2,#0 @ Is there a time slice active?
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	615 BNE TMT_No_Time_Slice_Active @ No, skip time slice processing
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	616
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	617 @ Decrement the time slice counter.
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	618 @ TMD_Time_Slice--;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	619
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	620 LDR r2,Time_Slice @ Build time slice address
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	621 LDR r3,[r2,#0] @ Pickup the time slice value
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	622 SUBS r3,r3,#1 @ Decrement the time slice
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	623 STR r3,[r2,#0] @ Store the new time slice value
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	624
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	625 @ Determine if the time-slice timer has expired. If so, modify the
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	626 @ time-slice state to indicate that it has.
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	627 @ if (TMD_Time_Slice == 0)
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	628 @ {
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	629
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	630 BNE TMT_No_Time_Slice_Active @ Has time slice expired?
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	631
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	632 @ TMD_Time_Slice_State = TM_EXPIRED;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	633
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	634 MOV r3,#2 @ Build TM_EXPIRED value
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	635 STR r3,[r0,#0] @ Indicate time slice is expired
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	636
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	637 @ Copy the current thread into the time-slice task pointer.
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	638 @ TMD_Time_Slice_Task = TCD_Current_Thread;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	639
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	640 LDR r2,Current_Thread @ Pickup current thread pointer adr
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	641 LDR r2,[r2,#0] @ Pickup current thread pointer
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	642 LDR r3,Slice_Task @ Pickup time slice task pointer ad
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	643 STR r2,[r3,#0] @ Store current thread pointer
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	644
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	645 @ ((TC_TCB *) TCD_Current_Thread) -> tc_cur_time_slice = 1;
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	646
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	647 MOV r3,#1 @ For safety, place a minimal time-
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	648 STR a4,[a3,#0x20]! @ slice into the task's control
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	649 @ block
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	650
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	651 @ }
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	652 @ }
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	653 TMT_No_Time_Slice_Active:
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	654
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	655 @ Determine if either of the basic timers have expired. If so,
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	656 @ activate the timer HISR.
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	657 @ if ((TMD_Timer_State == TM_EXPIRED) \|\|
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	658 @ (TMD_Time_Slice_State == TM_EXPIRED))
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	659 @ {
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	660
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	661 LDR r1,[r1,#0] @ Pickup timer state
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	662 CMP r1,#2 @ Does it indicate expiration?
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	663 LDRNE r0,[r0,#0] @ Pickup time slice state
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	664 CMPNE r0,#2 @ Does it indicate expiration?
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	665
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	666 BXNE r14 @ Return if no expiration
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	667
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	668 @ Activate the HISR timer function.
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	669 @ TCT_Activate_HISR(&TMD_HISR);
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	670
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	671 STR r14,[r13, #-4]! @ Save r14 on the stack
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	672 LDR r0,HISR @ Build address of timer HISR
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	673 BL TCT_Activate_HISR @ Activate timer HISR
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	674 LDR r14,[r13], #4 @ Recover return address
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	675 @ }
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	676
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	677 BX r14 @ Return to caller
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	678
947b1f473960 beginning of nuc-fw Michael Spacefalcon <msokolov@ivan.Harhan.ORG> parents: diff changeset	679 @}

FreeCalypso > hg > freecalypso-sw

annotate gsm-fw/nucleus/tmt.S @ 341:fcbdb2ae1a47