/*******PROGRAMM FUER 6 BAUELEMENTE********** /*******BITMUSTER: NULLEN *********** /********AUSDRUCK DER FEHLERHAFTEN ADRESSEN****** /********AUSDRUCK DES ZYKLUS********************* /********AUSDRUCK DER FEHLERZAEHLER FUER / JEDES RAM******************************** /RAM16K TEST FUER BESTRAHLUNG MIT ALPHA-TEILCHEN /EINSCHREIBEN, VERIFIZIEREN, AUSLESEN /WENN FEHLER AUFTRETEN NEU EINSCHREIBEN *50 ERRADR, 0 RDZYL, 0 DEVCTR, 4001 *1200 WE=10 TRIG=40 DOUT=7700 DI=20 INIT, SWAB CLA DCA ERRADR DCA RDZYL DCA ZYLCTL DCA ZYLCTH DCA FECT1L DCA FECT1H DCA FECT2L DCA FECT2H DCA FECT3L DCA FECT3H DCA FECT4L DCA FECT4H DCA FECT5L DCA FECT5H DCA FECT6L DCA FECT6H TAD STRDEV DCA DEVCTR INIT1, CAM DST ADRCTR CLA DCA NULLFG DCA ERRFLG IAC DCA WRFLAG CLEAR TRIG SET WE CLEAR WE /****** EINSCHREIBEN INS DEVICE ******** RAMIN, CAM DAD /BERECHNEN DER ADRESSE ADRCTR JMS ADRMOD CLEAR DI JMS ADRPUT /ANLEGEN DER ADRESSEN LOW UND HIGH JMS ADRLOP /EINLESEN BEENDET? CLA TAD NULLFG /EINLESEN BEENDET FLAG=0 SZA CLA JMP RAMIN JMP RAMOUT /******** AUSLESEN AUS DEVICE ******** RAMOUT, SET WE DCA NULLFG CAM DST ADRCTR RMOUT, CAM DAD ADRCTR JMS ADRMOD /BERECHNEN DER ADRESSEN LOW UND HIGH RMOUTS, JMS ADRPUT /ANLEGEN DER ADRESSEN INPUT /AUSLESEN DER DATEN AUS DEM RAM AND DOMASK DCA DEVNUM TAD DEVNUM CIA TAD DOMASK SZA CLA JMS INERR JMS ADRLOP TAD NULLFG /AUSLESEN BEENDET FLAG=0 SZA CLA JMP RMOUT DCA WRFLAG ISZ ZYLCTL SKP ISZ ZYLCTH NOP CLA /NEU EINSCHREIBEN NACH FEHLER TAD ERRFLG SZA CLA JMP INIT1 JMP RAMOUT MOSTGO ADRCTR, 0;0 DOMASK, DOUT NULLFG, 0 MASK7, 100 ZYLCTL, 0 ZYLCTH, 0 ERRFLG, 0 PAGE ADRMOD, 0 /BERECHNEN DER ADRESSEN SHL /ADRESSE HIGH IN MQ, ADRESSE LOW IN ACC 5 DCA ADRHGH LSR 5 SWP DCA ADRLOW JMP I ADRMOD ADRPUT, 0 CLA TAD ADRLOW /OUTPUT VON LOW ADDRESS OUTPUT NPULSE TRIG TAD ADRHGH OUTPUT /OUTPUT VON HIGH ADDRESS JMP I ADRPUT ADRLOP, 0 /ALLE ADRESSEN ABGEARBEITET? CAM DAD ADRCTR DPIC DST ADRCTR DCM DAD RMSIZE DPSZ JMP READAG DCA NULLFG JMP I ADRLOP READAG, CLA IAC DCA NULLFG JMP I ADRLOP ADRHGH, 0 ADRLOW, 0 RMSIZE, 0;4 /RAMSIZE 3 7777 /HIGH ADDRESS 177, LOW ADDRESS 177 WRFLAG, 0 PAGE INERR, 0 /ZAEHLEN DER FEHLER CLA TAD WRFLAG SZA CLA JMP WRVR TAD DEVNUM CLL RAL SZL JMP FEL2 ISZ FECT1L SKP ISZ FECT1H FEL2, CLL RAL SZL JMP FEL3 ISZ FECT2L SKP ISZ FECT2H FEL3, CLL RAL SZL JMP FEL4 ISZ FECT3L SKP ISZ FECT3H FEL4, CLL RAL SZL JMP FEL5 ISZ FECT4L SKP ISZ FECT4H FEL5, CLL RAL SZL JMP FEL6 ISZ FECT5L SKP ISZ FECT5H FEL6, CLL RAL SZL JMP INERRL ISZ FECT6L SKP ISZ FECT6H INERRL, CLA IAC DCA ERRFLG TAD ADRHGH /ABSPEICHERN DER FEHLERHAFTEN ADRESSE CDF 10 DCA I ERRADR CDF 0 ISZ ERRADR NOP TAD ADRLOW CDF 10 DCA I ERRADR CDF 0 ISZ ERRADR NOP TAD ZYLCTH /ABSPEICHERN DES LESEDURCHGANGS CDF 20 DCA I RDZYL CDF 0 ISZ RDZYL NOP TAD ZYLCTL CDF 20 DCA I RDZYL CDF 0 ISZ RDZYL TAD DEVNUM CDF 10 DCA I DEVCTR CDF 0 ISZ DEVCTR TAD DEVCTR CIA TAD FLDEND SZA CLA JMP I INERR DCA ERRADR DCA RDZYL TAD STRDEV DCA DEVCTR JMP I INERR WRVR, CLA IAC DCA ERRFLG TDC 4327 4322 4326 322 LINE JMP I INERR DEVNUM, 0 FLDEND, 6000 STRDEV, 4001 FECT1L, 0 FECT1H, 0 FECT2L, 0 FECT2H, 0 FECT3L, 0 FECT3H, 0 FECT4L, 0 FECT4H, 0 FECT5L, 0 FECT5H, 0 FECT6L, 0 FECT6H, 0 PAGE FELPRT, TDC 4306 4305 4310 4314 4305 4322 240 LINE CLA DCA ERRADR DCA RDZYL TAD STRDEV DCA DEVCTR TDC 4303 4324 4322 4261 240 TAD FECT1H TOCT TAD FECT1L TOCT LINE TDC 4303 4324 4322 4262 240 TAD FECT2H TOCT TAD FECT2L TOCT LINE TDC 4303 4324 4322 4263 240 TAD FECT3H TOCT TAD FECT3L TOCT LINE TDC 4303 4324 4322 4264 240 TAD FECT4H TOCT TAD FECT4L TOCT LINE TDC 4303 4324 4322 4265 240 TAD FECT5H TOCT TAD FECT5L TOCT LINE TDC 4303 4324 4322 4266 240 TAD FECT6H TOCT TAD FECT6L TOCT LINE JMP ERRPRT PAGE ERRPRT, MOSTSR CDF 10 TAD I ERRADR CDF 0 TOCT ISZ ERRADR NOP CDF 10 TAD I ERRADR CDF 0 TOCT ISZ ERRADR NOP TDC 240 CDF 20 TAD I RDZYL CDF 0 TOCT ISZ RDZYL NOP CDF 20 TAD I RDZYL CDF 0 TOCT ISZ RDZYL TDC 240 CDF 10 TAD I DEVCTR CDF 0 ISZ DEVCTR CLL RAL DCA DEVTEM SZL JMP DEV2 TDC 4261 240 DEV2, TAD DEVTEM CLL RAL DCA DEVTEM SZL JMP DEV3 TDC 4262 240 DEV3, TAD DEVTEM CLL RAL DCA DEVTEM SZL JMP DEV4 TDC 4263 240 DEV4, TAD DEVTEM CLL RAL DCA DEVTEM SZL JMP DEV5 TDC 4264 240 DEV5, TAD DEVTEM CLL RAL DCA DEVTEM SZL JMP DEV6 TDC 4265 240 DEV6, TAD DEVTEM CLL RAL DCA DEVTEM SZL JMP ERREND TDC 266 ERREND, LINE JMP ERRPRT MOSTGO DEVTEM, 0