PIC JAL IO Routine

'877 AD display in JAL

by Vasile Surducan

...the jpic library must be updated with user definited bites and registers and the LCD pin's library set in acordingly with the  hardware:

var volatile bit adcon0_go at f877_adcon0 : 2
var volatile byte f877_adcon1  at 0x9F
var volatile byte f877_adcon0  at 0x1F
var volatile byte f877_adresl  at 0x9E
var volatile byte f877_adresh  at 0x1E

include f877_4
include jpic
include jprint
include jdelay
include hd447804

var byte data
var byte ch0_hi = 0
var byte ch0_lo = 0
bank_1
f877_adcon1 = 0b_1000_1110 -- first bit: left-0,right-1 justified,
                           -- a0 input,a2,a3,a5,e0,e1,e2 digital
bank_0
f877_adcon0 = 0b_0100_0001 -- fosc/8 clock, a0, ad on

procedure analog is

adcon0_go = high               -- start conversion
 while adcon0_go loop end loop -- wait for ad completion

end procedure



 hd44780_clear

forever loop
analog
ch0_hi = f877_adresh
bank_1
asm  movf    f877_adresl,w
asm  bcf     status_rp0     -- bank 0
asm  movwf   ch0_lo                  

hd44780_line1
print_decimal_1 ( hd44780, ch0_hi, "0" )
hd44780_position ( 2 )
print_decimal_3 ( hd44780, ch0_lo, "0" )
delay_100mS ( 3 )
end loop

  .