include "modedefs.bas"
DEFINE OSC 20
TRISB=%11111111
TRISA.2=1
TRISB.3=1
dato var byte
inicio:
if PORTB.0=0 then
serout PORTA.1,T1200,[0,"A"]
endif
if PORTB.1=0 then
serout PORTA.1,T1200,[0,"B"]
endif
if PORTB.2=0 then
serout PORTA.1,T1200,[0,"C"]
endif
if PORTB.3=0 then
serout PORTA.1,T1200,[0,"D"]
endif
if PORTB.4=0 then
serout PORTA.1,T1200,[0,"E"]
endif
if PORTB.5=0 then
serout PORTA.1,T1200,[0,"F"]
endif
if PORTB.6=0 then
serout PORTA.1,T1200,[0,"G"]
endif
if PORTB.7=0 then
serout PORTA.1,T1200,[0,"H"]
endif
if PORTA.2=0 then
serout PORTA.1,T1200,[0,"I"]
endif
if PORTA.3=0 then
serout PORTA.1,T1200,[0,"J"]
endif
goto inicio
end