1 ; pin 21 (per-pic-led, RD2/PSP2/C1IN) states: high H = green, low L = red, float Z = black
3 include /usr/share/gputils/header/p18f458.inc
7 include ../iwjpictest/clockvaries.inc
12 bcf TRISE,4,0 ; turn off PSPMODE (Data Sheet p100/101)
13 ; timer initial config
14 morse_t0setup mclock, (1<<TMR0ON), -1, -1
28 bcf TRISD,2,0 ; make pin RD2 an output (DS100)
29 bsf LATD,2,0 ; set pin RD2 H (green)
33 bsf TRISD,2,0 ; make pin RD2 an input (i.e. set Z, black) (DS100)
37 bcf TRISD,2,0 ; make pin RD2 an output (DS100)
38 bcf LATD,2,0 ; set pin RD2 L (red)
42 bcf INTCON,2,0 ; clear timer0 interrupt bit (p109)
43 clrf TMR0H,0 ; p107 set high bit of timer0 to 0 (buffered,
44 ; so only actually set when write to tmr0l occurs)
45 clrf TMR0L,0 ; set low bit o timer0 - timer now set to 0000h
47 btfss INTCON,2,0 ; check whethr tiomer0 interrupt has been set -
48 ; skip next instruction if so