/* 
 * Copyright (c) 2016, Ian Sutton <ian@kremlin.cc>
 *
 * Permission to use, copy, modify, and/or distribute this software for
 * any purpose with or without fee is hereby granted, provided that the
 * above copyright notice and this permission notice appear in all
 * copies.
 *
 * THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL
 * WARRANTIES WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED
 * WARRANTIES OF MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE
 * AUTHOR BE LIABLE FOR ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL
 * DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR
 * PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER
 * TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
 * PERFORMANCE OF THIS SOFTWARE.
 */

.origin 0
.entrypoint START /* used by debugger only */

#define PERIOD 200000
#define DUTY   100000

START:
	SET	r30, r30, 14
	MOV	r1, PERIOD
	MOV	r2, DUTY
	SUB	r3, r1, r2
	SUB	r2, r2, 4

ON:
	SUB	r2, r2, 1
	QBNE	ON, r2, 0
	CLR	r30, r30, 14

OFF:
	SUB	r3, r3, 1
	QBNE	OFF, r3, 0
	QBA	START
	

/*STOP:
	MOV	R31.b0, PRU0_R31_VEC_VALID | SIGNUM
	HALT*/