/TEST VON STATISCHEN 1K SPEICHERN /BACKGROUND 0 UND BACKGROUND 1 *1000 /HAUPTPROGRAMM /BACKGROUND 0 RAMSTR, CLA TAD BITOT0 DCA BITOUT JMS RMINIT JMS RAMTIT /UEBERSCHRIFT JMS WLKPAT /PRUEFEN VON AUSGANG 1 5077 7057 1 JMS WLKPAT /PRUEFEN VON AUSGANG 2 5077 5473 2 JMS WLKPAT /PRUEFEN VON AUSGANG 3 5077 5275 3 JMS WLKPAT /PRUEFEN VON AUSGANG 4 5077 5176 4 JMS RAMPR /AUSDRUCKEN DER FEHLER /BACKGROUND 1 CLA IAC DCA BACKFL TAD BITOT1 DCA BITOUT JMS RMINIT JMS WLKPAT /PRUEFEN VON AUSGANG 1 7750 5770 JMS WLKPAT /PRUEFEN VON AUSGANG 2 7750 7354 2 JMS WLKPAT /PRUEFEN VON AUSGANG 3 7750 7552 3 JMS WLKPAT /PRUEFEN AUSGANG 4 7750 7651 4 JMS RAMPR JMP RAMSTR BITOT0, 40 BITOT1, 67 BACKFL, 0 PAGE /SUBROUTINE UEBERSCHRIFT DES URUEFPROGRAMMS RAMTIT, 0 TLS LINE LINE TDC 4322 4301 4315 4240 240 RAMSPE, RTCHAR /READ COMMENT CHECK 212 SKP /END OF COMMENT JMP RAMSPE LINE JMP I RAMTIT RMINIT, 0 /SUBROUTINE INITIALISIERUNG CLA DCA FLSUM1 DCA FLSUM2 DCA FLSUM3 DCA FLSUM4 DCA BACKFL JMP I RMINIT /SUBROUTINE WALKPAT /1. ARGUMENT BITMUSTER FUER GRUNDMUSTER /2. ARGUMENT BITMUSTER FUER WALKPAT /3. ARGUMENT ZU TESTENDER AUSGANG /VIER AUSGAENGE KOENNEN GETESTET WERDEN WLKPAT, 0 CLA TAD I WLKPAT DCA BITIN0 ISZ WLKPAT TAD I WLKPAT DCA BITIN1 ISZ WLKPAT TAD I WLKPAT DCA ERRAUS ISZ WLKPAT TAD BITIN0 MQL CMA 6515 /STEUERLTGEN. AUF EINS GESETZT CLA DCA RAMLIN DCA RAMADR DCA FLCNT1 DCA FLCNT2 DCA FLCNT3 DCA FLCNT4 DCA DEFFLG JMP I .+1 RAMWR WLKPTI, JMP I WLKPAT FLSUM1, 0 FLSUM2, 0 FLSUM3, 0 FLSUM4, 0 FLCNT1, 0 FLCNT2, 0 FLCNT3, 0 FLCNT4, 0 DEFFLG, 0 ERRAUS, 0 BITIN0, 0 BITIN1, 0 PAGE /LADEN DES SPEICHERS MIT NULLEN ODER EINSEN RAMWR, TAD RAMADR 6505 CMA 6506 CMA SWP 6516 BSW 6515 BSW MQL TAD RAMADR CIA TAD RMSIZE SNA CLA JMP .+3 ISZ RAMADR JMP RAMWR TAD BITOUT /INITIALISIERUNG DER LESEROUTINE MQL DCA RAMADR /AUSLESEN DES GESAMTEN SPEICHERS UND PRUEFUNG AUF NULLEN ODER EINSEN RAMRD, TAD RAMADR 6505 CMA 6506 MQA CLA 6516 6514 DCA RMOUTP JMS RAMERR /PRUEFEN DES SPEICHERZELLENINHALTS, ALLE AUSGAENGE MQA CLA 6515 CLA TAD RAMADR CIA TAD RMSIZE SZA CLA JMP .+6 JMS DEFECT /RAM DEFECT ? TAD DEFFLG SZA JMP RAMSTR JMP RAMWR1 ISZ RAMADR JMP RAMRD RAMADR, 0 BITOUT, 0 RMSIZE, 377 /GROESSE DES RAMS RMOUTP, 0 PAGE /EINLESEN EINER EINS ODER NULL IN DEN SPEICHER RAMWR1, CMA CLA 6515 CLA DCA FLCNT1 DCA FLCNT2 DCA FLCNT3 DCA FLCNT4 TAD BITIN1 MQL TAD RAMLIN 6505 CMA 6506 MQA CLA 6516 BSW 6515 CLA TAD BITOUT /INIT. DER LESEROUTINE MQL DCA RAMADR /PRUEFUNG DES SPEICHERINHALTS RAMRD1, TAD RAMADR 6505 CMA 6506 MQA CLA 6516 6514 DCA RMOUTP JMS RAMERR /PRUEFEN DES SPEICHERZELLENINHALTS, ALLE AUSGAENGE MQA CLA 6515 CLA TAD RAMADR CIA TAD RMSIZE SZA CLA JMP .+7 JMS DEFSUM /ADDITION DER FEHLER JMS DEFECT /RAM DEFECT TAD DEFFLG SZA CLA JMP RAMSTR JMP RAMWR0 ISZ RAMADR JMP RAMRD1 PAGE /RUECKSCHREIBEN EINER NULL ODER EINS AN DIE /STELLE DER EINS ODER NULL RAMWR0, CLA TAD BITIN0 MQL TAD RAMLIN 6505 CMA 6506 MQA CLA 6516 BSW 6515 CLA TAD RAMLIN CIA TAD RMSIZE SNA CLA JMP WLKPTI ISZ RAMLIN JMP RAMWR1 RAMLIN, 0 PAGE /SUBROUTINE FFEHLERERKENNUNG RAMERR, 0 CLA TAD BACKFL SNA CLA JMP RMERR0 TAD RMOUTP AND M7400 SZA JMP I RAMERR /RETURN KEINE FEHLER RAL SNL ISZ FLCNT1 /AUSGANG 1 RAL SNL ISZ FLCNT2 /AUSGANG 2 RAL SNL ISZ FLCNT3 /AUSGANG 3 RAL SNL ISZ FLCNT4 /AUSGANG 4 JMP I RAMERR /RETURN FUER BACKGROUND 1 RMERR0, TAD RMOUTP AND M7400 SNA JMP I RAMERR /RETURN KEINE FEHLER RAL SZL ISZ FLCNT1 /AUSGANG1 SZL ISZ FLCNT2 /AUSGANG2 RAL SZL ISZ FLCNT3 /AUSGANG3 RAL SZL CLA ISZ FLCNT4 /AUSGANG4 JMP I RAMERR /RETURN FUER BACKGROUND 0 /SUBROUTINE SUMMATION DER FEHLER DEFSUM, 0 CLA IAC CIA TAD ERRAUS /MODIFIKATION DER FEHLERZAEHLERADRESSE TAD FECTPI /JE NACH AUSGANG DCA FECTR TAD I FECTR SNA JMP FELONE /WENN NULL DANN 1 FEHLER TAD MNUM1 SZA DCA I FECTR /ANZAHL DER FEHLER -1 JMP I DEFSUM FELONE, CLA IAC DCA I FECTR JMP I DEFSUM /SUBROUTINE RAM DEFECT ? /RAM IST DEFECT WENN: /PRO DURCHGANG FEHLERANZAHL: 400 /FEHLERSUMME: 4096 DEFECT, 0 CLA TAD FLSUM1 TAD FLCNT1 DCA FLSUM1 TAD FLSUM2 TAD FLCNT2 DCA FLSUM2 TAD FLSUM3 TAD FLCNT3 DCA FLSUM3 TAD FLSUM4 TAD FLCNT4 DCA FLSUM4 TAD NUM1 DCA AUSCTR TAD FLSUMP DCA FLSUMC FLSUML, TAD I FLSUMC IAC SNA JMS RAMDEF ISZ FLSUMC ISZ AUSCTR SPA SNA CLA JMP FLSUML TAD MNDEF TAD FLCNT1 SNA CLA JMS RAMDEF TAD MNDEF TAD FLCNT2 SNA CLA JMS RAMDEF TAD MNDEF TAD FLCNT3 SNA CLA JMS RAMDEF TAD MNDEF TAD FLCNT4 SNA CLA JMS RAMDEF JMP I DEFECT MNUM1, -1 MNDEF, -400 /MAXIMALE ANZAHL D. FEHLER/DURCHGANG FECTPI, FLCNT1 FECTR, 0 M7400, 7400 FLSUMP, FLSUM1 FLSUMC, 0 PAGE /SUBROUTINE AUSDRUCK DER FEHLERANZAHL RAMPR, 0 LINE LINE TDC 4302 4301 4303 4313 4307 4322 4317 4325 4316 4304 4240 240 CLA TAD BACKFL TOCT CLA TAD NUM1 DCA AUSCTR TAD FLSUMP DCA FLSUC1 OUTPR, LINE TDC 4301 4325 4323 4307 4301 4316 4307 4272 240 CLA TAD AUSCTR TOCT TDC 4240 4240 4240 4240 4306 4305 4310 4314 4305 4322 4272 240 CLA TAD I FLSUC1 TOCT ISZ FLSUC1 ISZ AUSCTR CLA TAD AUSCTR TAD MN4 SPA SNA CLA JMP OUTPR JMP I RAMPR FLSUC1, 0 NUM1, 1 MN4, -4 /ANZAHL DER AUSGAENGE PAGE /SUBROUTINE AUSDRUCK WENN RAM DEFECT RAMDEF, 0 CLA TAD DEFFLG SZA CLA JMP I RAMDEF TOCT 4304 4325 4322 4303 4310 4307 4301 4316 4307 4272 240 CLA LINE TAD RAMLIN TOCT /DURCHGANG LINE LINE TDC 4301 4325 4323 4307 4301 4316 4307 4207 240 CLA TAD ERRAUS TOCT LINE JMS RAMPR JMP I RAMDEF AUSCTR, 0