Ak všetko funguje na SBC6502 tak ako má - fajn, inak nastanú starosti. Ak pri stavbe niečo nefunguje alebo keď nám začne programátor PROM 74188 z rozličných príčin "blbnúť" tak by bolo vítanou pomôckou mať nejaký pomocný program na základné otestovanie funkčnosti jednotlivých celkov - a tak som sa (po dlhom čase) rozhodol ho napísať. Stačí zadať hodnotu použitého x-talu ktorý slúži ako informácia o základnom clocku hodín procesoru a tým sa nastavia jednotlivé hodnoty pre fungovanie programu ako takého, vďaka tomuto nastaveniu vyhovuje potom program priamo pre všetky uvedené hodnoty x-talov ktoré má uvedené vo svojom zozname.

Pri testovaní nesmie byť založená PROM !

Vstupné menu pre nastavenie hodnôt pre použitý x-tal

Nasleduje pracovné menu.

K dispozícii je celkove 7 (číselné označenie v menu je 0 ÷ 6) pomocných testovacích podprogramov:

0.- test pripne na pin č.16 ZIF pätičky programátoru napájacie napätie Ucc (cca +4.75V) po dobu 20sekúnd, hodnota napätia sa meria proti pinu č.8 (Gnd), po celú dobu svieti zelená a modrá LED, následne sa Ucc odpojí a program sa vráti naspäť do menu, zelená LED svieti trvale

1.- testuje sa zapnutie Vpp + 10.5V na pin č.16 pätičky ZIF, meria sa voči pinu 8 (Gnd), napätie je dostupné po dobu 20 sekúnd, potom sa odpojí Vpp a program sa vráti naspäť do menu , pri teste svietia zelená a červená LED, zelená LED svieti trvale

2.-  test pre chip select (neg.), na 20 sekúnd sa na pine č.15 ZIF pätice objaví log.1, potom na 20 sekúnd padne do log.0 a následne sa odpojí napájanie, pri tomto teste svieti zelená a modrá LED, po celú dobu testu a je aktívne Ucc, zelená LED svieti trvale

3.- je to súhrn testov 0+1+2 v jednom, najprv na 2 sekundy je na pine 16 Ucc (v tom istom okamihu ide do log.1 CS), následne je "prebité" pripojením Vpp, potom sa po 20 sekundách vypne Ucc a Vpp a tiež CS. Počas testu svieti zelená + modrá + po 2sec červená LED, v druhej časti potom zhasnú modrá+červená LED, zelená LED svieti trvale

4.- cyklický test (4x test č.3), teda zbieha niekoľko krát za sebou, zelená LED svieti trvale

5.- testuje sa čip 8255A - na jeho port B sa posielajú postupne data v rozmedzí 0÷255d ktoré potom spätne čítame cez jeho port C. Treba si uvedomiť že výstup z portu B ide ešte cez tranzistory a je teda negovaný. V programe je to vyriešené tak že načítané data z portu C sa následne negujú a až potom sa výsledok porovná. Tento test je tiež cyklický, zbieha celkove 7x za sebou. V prípade chyby sa test zastaví a vypíše kde sa objavil problém, zelená LED svieti trvale.

6.- ak máte pocit že sa netestuje port A čipu 822A, nuž tu je odpoveď - áno sa testuje, jeho horné 3 bity (bit 7 - pripája napätie Ucc, bit 6 pripája Vpp,  bit 5 ovláda chip select), bity 4,3,2,1,0 ovládajú vstupy E (pin 14), D (pin 13), C (pin 12), B (pin 11), A (pin 10) priamo na ZIF pätici.

* Tu máme možnosť zaslaním údaju 0÷31d na tento port sledovať binárnu hodnotu na uvedených adresách bitov. Údaj zostáva platný po dobu 20 sekúnd po potvrdení, potom sa vráti do menu. Svieti iba zelená LED - platí to ak zadáme číslo do 31d, inak viď ďalej.

Ohľadne "hornej" trojice spomenutých bitov:

           pri čísle 128 zapneme Ucc, modrá LED

           pri čísle  64 zapneme Vpp, červená LED

           pri čísle  32 zapneme CS do log.1

Kombináciou týchto čísel môžeme zapnúť aj všetky 3 bity naraz: je to číslo 224, ak zadáme 255 tak všetky bity na porte A budú v log.1.

Táto voľba č.6 umožňuje testovať všetky bity portu A a ak treba aj jednotlivo.

* - pre bity 4,3,2,1,a 0 portu A je v ceste ešte čip 7417

Diagnostický program:

Diagnostic software.txt (5,13 kb)

Listing programu:

  992 REM Output:
  993 REM port A - bits 0,1,2,3,4 - PROM 74188
  994 REM       adress: A,B,C,D,E
  995 REM        
  996 REM          bit 5 - CS(neg.) PROM pin 15
  997 REM          bit 6 - PGM pulz 5V/10.5V/5V PROM pin 16
  998 REM          bit 7 - relay On/Off pin 16 (Ucc) PROM 74188
  999 REM
 1000 CLEAR:POKE 15,80:BN=0:NS=7:DV=0
 1005 PA=32768:PB=PA+1:PC=PA+2:CWR=PA+3:POKE CWR,137
 1010 ?CHR$(12);SPC(29)"SBC6502/32kB RAM+8255A"
 1015 ?SPC(16)"Turn ON the power to the PROM 74188 programmer !"
 1017 ?SPC(29)"No PROM in ZIF socket!"
 1020 A$="1.8432MHz":B$="2.0000MHz":C$="2.4576MHz":D$="2.5000MHz"
 1021 E$="3.6864MHz":F$="4.0000MHz":G$="4.5000MHz":H$="4.9152MHz"
 1022 I$="5.0000MHz":J$="6.0000MHz"
 1023 R$="20 sec active in ZIF socket, then off"
 1024 T$="20 sec CS in log.1, 20 sec log.0 and off
 1025 GOSUB 2030:GOTO 1035
 1030 IF BN=1 THEN ?CHR$(12):?
 1035 GOSUB 2700:?" -";SPC(5);"Diagnostic software - ver.1.0,";
 1100 ?" Igi(c)22.10.2023, for x-tal version:";
 1101 GOSUB 2040:GOSUB 2700:GOSUB 2050:GOSUB 2040
 1102 GOSUB 2050:?"(0) - "A$;:GOSUB 2040
 1104 GOSUB 2050:?"(1) - "B$;:GOSUB 2040
 1106 GOSUB 2050:?"(2) - "C$;:GOSUB 2040
 1108 GOSUB 2050:?"(3) - "D$;:GOSUB 2040
 1110 GOSUB 2050:?"(4) - "E$;:GOSUB 2040
 1112 GOSUB 2050:?"(5) - "F$;:GOSUB 2040
 1114 GOSUB 2050:?"(6) - "G$;:GOSUB 2040
 1116 GOSUB 2050:?"(7) - "H$;:GOSUB 2040
 1118 GOSUB 2050:?"(8) - "I$;:GOSUB 2040
 1120 GOSUB 2050:?"(9) - "J$;:GOSUB 2040
 1122 GOSUB 2050:GOSUB 2040:GOSUB 2050:?"(Q)uit program";
 1124 GOSUB 2040:GOSUB 2700:GOSUB 2080:BN=1
 1134 IF X$="0" THEN DV=2.25:S$=A$
 1136 IF X$="1" THEN DV=2.44:S$=B$
 1138 IF X$="2" THEN DV=3.15:S$=C$
 1140 IF X$="3" THEN DV=3.2:S$=D$
 1142 IF X$="4" THEN DV=4.5:S$=E$
 1144 IF X$="5" THEN DV=5:S$=F$
 1146 IF X$="6" THEN DV=5.6:S$=G$
 1148 IF X$="7" THEN DV=6:S$=H$
 1150 IF X$="8" THEN DV=6.2:S$=I$
 1152 IF X$="9" THEN DV=7.14:S$=J$
 1154 IF X$="Q" THEN ? "End program ...":END
 1156 IF DV<>0 THEN GOTO 1200
 1158 GOTO 1030
 1200 ?CHR$(12):GOSUB 2700:GOSUB 2030
 1204 ?" -";SPC(7);"Diagnostic software -";
 1206 ?"x-tal version: "S$SPC(10)"LED:";:GOSUB 2040:GOSUB 2700
 1210 GOSUB 2060:?"(0) - test 5V /Ucc-pin16, Gnd-pin 8,";
 1212 ?SPC(15)"Green+Blue";:GOSUB 2040:GOSUB 2070
 1214 ?R$;:GOSUB 2040:GOSUB 2060
 1216 ?"(1) - test 10.5V /Vpp-pin 16, Gnd-pin 8,";SPC(11)"Green+Red";
 1218 GOSUB 2040:GOSUB 2070:?R$;:GOSUB 2040
 1220 GOSUB 2060:?"(2) - test chip select, ZIF socket pin 15,";
 1222 ?SPC(9)"Green+Blue";:GOSUB 2040:GOSUB 2070:?T$;:GOSUB 2040
 1224 GOSUB 2060:?"(3) - test 5V Ucc + 10.5V Vpp + CS together,";
 1226 ?SPC(7)"Green+Blue+Red";:GOSUB 2040
 1228 GOSUB 2070:?"2sec Vcc+cs-> +20sec Vpp, then off";
 1229 GOSUB 2040:GOSUB 2060:?"(4) - cyklic ";
 1230 ?"test no.:0+1+2,";SPC(23)"Green/+B+R_on/off";:GOSUB 2040
 1232 GOSUB 2070:?"(4x all 5 sec on/5 sec off)";:GOSUB 2040
 1234 GOSUB 2060:?"(5) - cyklic test Data Out to port B and read";
 1236 ? SPC(6)"Green+Blue";:GOSUB 2040:GOSUB 2070
 1238 ?"in to port C /complet range 0-255d, 7x/";:GOSUB 2040
 1240 GOSUB 2060:?"(6) - test Data Out in port A /range 0-255/";
 1242 ? SPC(8)"Green+Out bits";:GOSUB 2040
 1244 GOSUB 2070:?"20 sec active bits in ZIF socket, then off";
 1295 GOSUB 2040:GOSUB 2050:GOSUB 2040
 1300 GOSUB 2060:?SPC(14)"(Q)uit to main menu";:GOSUB 2040
 1310 GOSUB 2700:GOSUB 2080:BN=1:?
 1312 IF X$="4" OR X$="5" THEN ?SPC(31)"Active test --> x";:GOTO 1320
 1315 ?SPC(33)"Active test --> ";
 1320 IF X$="0" THEN GOSUB 2100:GOTO 1200
 1325 IF X$="1" THEN GOSUB 2200:GOTO 1200
 1330 IF X$="2" THEN GOSUB 2300:GOTO 1200
 1335 IF X$="3" THEN GOSUB 2400:GOTO 1200
 1340 IF X$="4" THEN GOSUB 2500:GOTO 1200
 1345 IF X$="5" THEN GOSUB 2600:GOTO 1200
 1350 IF X$="6" THEN GOSUB 2650:GOTO 1200
 1355 IF X$="Q" THEN 1030
 1999 GOTO 1200
 2000 FOR F=0 TO DV*2000*NS:NEXT:RETURN
 2005 FOR F=0 TO (DV*2000*NS)/10:NEXT:RETURN
 2010 FOR Q=1 TO NS:FOR F=0 TO DV*1200:NEXT F:?".";:NEXT Q:RETURN
 2020 FOR F=1 TO DV*300*NS:NEXT F:RETURN
 2030 POKE PA,0:POKE PB,0:RETURN
 2040 ?TAB(78)"-":RETURN
 2050 ?" -"SPC(31);:RETURN
 2060 ?" -"SPC(7);:RETURN
 2070 ?" -"SPC(13);:RETURN
 2080 ?SPC(30)"   Your choice - ";:INPUT X$:RETURN
 2100 POKE PA,128:GOSUB 2010:GOSUB 2670:RETURN
 2200 POKE PA,64:GOSUB 2010:GOSUB 2670:RETURN
 2300 POKE PA,160:GOSUB 2010:POKE PA,128:GOSUB 2010:GOSUB 2670
 2305 RETURN
 2400 POKE PA,128:GOSUB 2005:POKE PA,192:GOSUB 2010:POKE PA,0
 2405 GOSUB 2670:RETURN
 2500 FOR WE=1 TO 4:? WE;
 2502 POKE PA,224:GOSUB 2020:POKE PA,0:GOSUB 2020
 2504 NEXT:GOSUB 2670:RETURN
 2600 POKE PA,128:FOR TE=1 TO 7:?TE;
 2602 FOR DT=0 TO 255:POKE PB,DT:IN=PEEK(PC):VE=255-IN
 2610 IF DT=VE THEN 2625
 2615 ?:? "PROBLEM:":?"DATA out      Input"
 2620 ?" portB:       portC:":? DT,VE:GOSUB 2030:END
 2625 NEXT:NEXT:? " <- O.K.!";:GOSUB 2030:GOSUB 2020:RETURN
 2650 ?CHR$(12):?:? SPC(26)"Test no.6 - Data Out in port A.":?
 2652 ?SPC(23)"Data range 0-255, your input DATA:";:INPUT A
 2654 IF A>255 THEN ?SPC(37)"Wrong input !":GOTO 2652
 2656 POKE PA,A:?SPC(34)"Active:";:GOSUB 2010:GOSUB 2670:RETURN
 2670 GOSUB 2030:?"End";:GOSUB 2005:RETURN
 2700 ?" ";:FOR F=2 TO 78:?"-";:NEXT:GOSUB 2040:RETURN

Program slúži pre jednoduchú a rýchlu diagnostiku zistených problémov (ak sa nejaké objavia) na programátore PROM 74188. Ako autor hw a sw si osobne vystačím aj s jednotlivými POKE a PEEK príkazmi a diagnostický program myslím si že vôbec nepotrebujem, lenže nie každý má potrebné znalosti ako si poradiť ak vzniknú nejaké problémy - tak pre tých je tento program aj určený. Čo je zaujímavé - dĺžka diagnostického programu činí približne 1/2 dĺžky plnej programovej verzie 1.10, diagnostický program som pridal aj do archívu všetkých programových verzií.

________________________________________________________________________________

V uvedenom odkaze sú uverejnené všetky vydané verzie programového vybavenia pre programátor PROM 74188:

SBC6502 - 66 - PROM 74188 - všetky verzie programu, all program version.

____________________________________________________________

Návrat do všetkých pokračovaní o SBC6502:

http://blog.3b2.sk/igi/post/Directory-SBC6502.aspx

____________________________________________________________

Vaše hodnotenie, Rate post: