0,0 → 1,96 |
{$A+,B-,D+,E+,F-,G-,I+,L+,N-,O-,R-,S+,V+,X-} |
{$M 16384,0,655360} |
|
program TSTPGR(Input,Output); |
|
{=============================================================} |
{== Program pro testovani a ozivovani programatoru PICPGR ==} |
{=============================================================} |
|
{ (c)miho 2004 } |
|
{=============================================================} |
{ Historie: } |
{ 1.00 Novy program } |
{=============================================================} |
|
|
uses CRT; |
|
var PortAdr:word absolute 0:$408; |
|
procedure key; |
begin readln; |
end; |
|
begin {== Uvodni tisk ==} |
|
writeln; |
writeln('Test Utility for PICPGR'); |
writeln('======================='); |
writeln('(c) miho 2004 v.1.00'); |
writeln; |
|
{== Overeni dostupnosti portu LTP1 ==} |
|
if PortAdr=0 then begin writeln('No LPT port available!'); |
halt(1); |
end; |
|
{== Testovaci posloupnost ==} |
writeln('Action PGC PGD VDD ... GND VPP Comment'); |
writeln('-------------------------------------------------------------------------------'); |
port[PortAdr]:=0; |
writeln('OFF X X 0V . 0V 0V Standard state OFF'); |
key; |
|
port[PortAdr]:=$10; |
writeln('Vdd ON X X +5V . 0V +5V'); |
key; |
|
port[PortAdr]:=$50; |
writeln('Vdd ON and RESET X X +5V . 0V 0V'); |
key; |
|
port[PortAdr]:=$20; |
writeln('Vpp ON X X 0V . 0V 0V Invalid state (missing Vdd)'); |
key; |
|
port[PortAdr]:=$30; |
writeln('Vpp and Vdd ON X X +5V . 0V +12V'); |
key; |
|
port[PortAdr]:=$02; |
writeln('Data 0 X L 0V . 0V 0V'); |
key; |
|
port[PortAdr]:=$03; |
writeln('Data 1 X H 0V . 0V 0V'); |
key; |
|
port[PortAdr]:=$08; |
writeln('Clock 0 L X 0V . 0V 0V'); |
key; |
|
port[PortAdr]:=$0C; |
writeln('Clock 1 H X 0V . 0V 0V'); |
key; |
|
writeln; |
writeln('Test PGD input, use 10k resistor to connect PDG to GND and VDD'); |
writeln; |
port[PortAdr]:=$10; |
|
repeat |
if (port[PortAdr+1] and $40)<>0 then write('PGD State: H') |
else write('PGD State: L'); |
write(#$0D); |
until keypressed and (readkey=#$0D); |
|
writeln; |
writeln; |
writeln('Action PGC PGD VDD ... GND VPP Comment'); |
writeln('-------------------------------------------------------------------------------'); |
port[PortAdr]:=$80+$3F; |
writeln('OFF X X 0V . 0V 0V Alternative state OFF'); |
end. |