File 16D6ZE.7

Directory of image this file is from
This file as a plain text file

	/*******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



Feel free to contact me, David Gesswein djg@pdp8online.com with any questions, comments on the web site, or if you have related equipment, documentation, software etc. you are willing to part with.  I am interested in anything PDP-8 related, computers, peripherals used with them, DEC or third party, or documentation. 

PDP-8 Home Page   PDP-8 Site Map   PDP-8 Site Search