;**********************************************************************
; routines-led
; subroutines for controlling the per-pic LED (pin 21, DS100)

clock equ -1
	include		common.inc

	global	led_green
	global	led_red
	global	led_black

	code

;----------------------------------------
led_red
; makes the LED be red (or orange), no matter its previous state
; no RAM locations used or modified
; W is unchanged
	bcf		LATD, 2, 0		; output low
	bcf		TRISD, 2, 0		; output enabled
	return

;----------------------------------------
led_green
; makes the LED be green (or blue), no matter its previous state
; no RAM locations used or modified
; W is unchanged
	bsf		LATD, 2, 0		; output high
	bcf		TRISD, 2, 0		; output enabled
	return

;----------------------------------------
led_black
; makes the LED be black (off), no matter its previous state
; no RAM locations used or modified
; W is unchanged
	bsf		TRISD, 2, 0		; disable flasher output
	return

	end