File 4KONEA.3

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

/PROGRAMM FUER 4K RAMS DATENMUSTER ABHAENGIG VON ADRESSE

*50
	ERADR,	0
	ZYCPTR,	0
	DEVCTR,4000

*1000


RAMINI,	CLA
	DCA RAMRDC
	DCA RMER1L
	DCA RMER1H
	DCA RMER2L
	DCA RMER2H
	DCA RMER3L
	DCA RMER3H
	DCA RMER4L
	DCA RMER4H
	DCA RMER5L
	DCA RMER5H
	DCA RMER6L
	DCA RMER6H
	DCA ERADR
	DCA RAMADR
	DCA ZYCCTL
	DCA ZYCCTH
	DCA WRTFLG
	DCA ZYCPTR
	TAD DEVINT
	DCA DEVCTR
	JMP RAMSTR



RAMSTR,	CLA
	DCA ERRFLG
	IAC
	DCA WRTFLG
	TAD BITIN1
	MQL

	CMA	/CLEAR SELECT. OUTPUT REG. OUTPUT=HIGH
	6515
	CLA

RAMWR,	CMA
	6506	/CLEAR SELECT. OUTPUT REG. 0
	CMA
	6505

	SWP
	6516	/SET RESPECTIVE OUTPUT REG.  OUTPUT=0
	BSW
	6515
	BSW
	SWP
	IAC
	SZA
	JMP RAMWR

	TAD BITOUT
	MQL

RAMRD,	TAD RAMADR
	CMA
	6506
	CMA
	6505
	MQA CLA
	6516	/SET SELECTIVE OUTPUT REG (MQ V ACC)
	6514	/EINLESEN;DIE VERSCHIEDENEN AUSGANGSSIGN.
	DCA DEVOUT
	MQA CLA
	6515	/CLEAR SELECTIVE OUTPUT REG.
	CLA
	TAD RAMADR
	AND ADRMAS
	SNA CLA
	JMP EXONE
	JMP EXZERO
ERRSKP,	SNA CLA
	JMP NOERR
	IAC
	DCA ERRFLG
	TAD WRTFLG
	SZA CLA
	JMP WRTVER
	JMP ERROUT

EXONE,	TAD DEVOUT
	AND MASKIN
	CIA
	TAD RAMBIT
	JMP ERRSKP

EXZERO,	TAD DEVOUT
	AND MASKIN
	JMP ERRSKP


MASKIN,	7700
ADRMAS,	0
RAMBIT,	7700

WRTVER,	DCA WRTFLG
	TDC
	4327
	4322
	4305
	322
	LINE
	JMP RAMSTR

PAGE




ERROUT,	CLA
	TAD RAMADR
	AND ADRMAS
	SNA CLA
	JMP EROUT1
	JMP EROUT0

EROUT1,	TAD DEVOUT
	RAL CLL
	SZL
	JMP RMVG21
	ISZ RMER1L
	SKP
	ISZ RMER1H
RMVG21,	CLL RAL
	SZL
	JMP RMVG31
	ISZ RMER2L
	SKP
	ISZ RMER2H
RMVG31,	CLL RAL
	SZL
	JMP RMVG41
	ISZ RMER3L
	SKP
	ISZ RMER3H
RMVG41,	CLL RAL
	SZL
	JMP RMVG51
	ISZ RMER4L
	SKP
	ISZ RMER4H
RMVG51,	CLL RAL
	SZL
	JMP RMVG61
	ISZ RMER5L
	SKP
	ISZ RMER5H
RMVG61,	CLL RAL
	SZL
	JMP ADRPUT
	ISZ RMER6L
	SKP
	ISZ RMER6H

ADRPUT,	TAD DEVOUT
	CDF 10
	DCA I DEVCTR
	CDF 0
	ISZ DEVCTR
	NOP

ADRLOP,	CLA

TAD RAMADR CDF 10 DCA I ERADR CDF 0 ISZ ERADR CLA TAD ZYCCTH CDF 20 DCA I ZYCPTR CDF 0 ISZ ZYCPTR TAD ZYCCTL CDF 20 DCA I ZYCPTR CDF 0 ISZ ZYCPTR NOP TAD DEVCTR SZA CLA JMP NOERR TAD DEVINT DCA DEVCTR DCA ERADR DCA ZYCPTR NOERR, ISZ RAMADR JMP REFEXT TAD ERRFLG SZA CLA JMP RAMSTR DCA WRTFLG ISZ ZYCCTL SKP ISZ ZYCCTH JMP RAMRD REFEXT, SWAB CAM DAD REFCTR REFLOP, DPIC DPSZ JMP REFLOP CLA TAD BITOUT MQL JMP RAMRD RMER1L, 0 RMER1H, 0 RMER2L, 0 RMER2H, 0 RMER3L, 0 RMER3H, 0 RMER4L, 0 RMER4H, 0 RMER5L, 0 RMER5H, 0 RMER6L, 0 RMER6H, 0 DEVINT, 4000 DEVOUT, 0 DEVNUM, 0 ZYCCTL, 0 ZYCCTH, 0 ERRFLG, 0 RAMRDC, 0 BITIN0, 5474 BITIN1, 7454 BITOUT, 44 RAMADR, 0 WRTFLG, 0 REFCTR, 0;0 PAGE RAMERR, LINE
TDC 4306 4305 4310 4314 4305 4322 240 LINE TDC 4303 4324 4322 4261 4272 240 TAD RMER1H TOCT TAD RMER1L TOCT LINE TDC 4303 4324 4322 4262 4272 240 TAD RMER2H TOCT TAD RMER2L TOCT LINE TDC 4303 4324 4322 4263 4272 240 TAD RMER3H TOCT TAD RMER3L TOCT LINE TDC 4303 4324 4322 4264 4272 240 TAD RMER4H TOCT TAD RMER4L TOCT LINE TDC 4303 4324 4322 4265 4272 240 TAD RMER5H TOCT TAD RMER5L TOCT LINE TDC 4303 4324 4322 4266 4272 240 TAD RMER6H TOCT TAD RMER6L TOCT LINE /AUSDRUCK DER FEHLERHAFTEN ADRESSEN TDC 4301 4304 4304 4322 272 LINE CLA DCA ZYCPTR DCA ERADR TAD DEVINT DCA DEVCTR JMP ADROUT PAGE ADROUT, CDF 10 TAD I ERADR CDF 0 AND ADRMAS SNA CLA JMP ADROT1 JMP ADROT0 ADROT1, CDF 10 TAD I ERADR TOCT CDF 0 TDC 240 CDF 20 TAD I ZYCPTR TOCT CDF 0 ISZ ZYCPTR CDF 20 TAD I ZYCPTR TOCT CDF 0 TDC 240 CDF 10 TAD I DEVCTR CDF 0 CLL RAL DCA DEVTEM SZL JMP DEVN21 TDC 4261 240 DEVN21, TAD DEVTEM CLL RAL DCA DEVTEM SZL JMP DEVN31 TDC 4262 240 DEVN31, TAD DEVTEM CLL RAL DCA DEVTEM SZL JMP DEVN41 TDC 4263 240 DEVN41, TAD DEVTEM CLL RAL DCA DEVTEM SZL JMP DEVN51 TDC 4264 240 DEVN51, TAD DEVTEM CLL RAL DCA DEVTEM SZL JMP DEVN61 TDC 4265 240 DEVN61, TAD DEVTEM CLL RAL
SZL JMP ZEILE1 TDC 266 ZEILE1, LINE
MOSTSR ISZ ZYCPTR ISZ ERADR ISZ DEVCTR JMP ADROUT MOSTGO DEVTEM, 0
PAGE EROUT0, TAD DEVOUT RAL CLL SNL JMP RAMVG2 ISZ RMER1L SKP ISZ RMER1H RAMVG2, CLL RAL SNL JMP RAMVG3 ISZ RMER2L SKP ISZ RMER2H RAMVG3, CLL RAL SNL JMP RAMVG4 ISZ RMER3L SKP ISZ RMER3H RAMVG4, CLL RAL SNL JMP RAMVG5 ISZ RMER4L SKP ISZ RMER4H RAMVG5, CLL RAL SNL JMP RAMVG6 ISZ RMER5L SKP ISZ RMER5H RAMVG6, CLL RAL SNL JMP ADRPUT ISZ RMER6L SKP ISZ RMER6H JMP ADRPUT PAGE ADROT0, CDF 10 TAD I ERADR TOCT CDF 0 TDC 240 CDF 20 TAD I ZYCPTR TOCT CDF 0 ISZ ZYCPTR CDF 20 TAD I ZYCPTR TOCT CDF 0 TDC 240 CDF 10 TAD I DEVCTR CDF 0 CLL RAL DCA DEVTEM SNL JMP DEVN2 TDC 4261 240 DEVN2, TAD DEVTEM CLL RAL DCA DEVTEM SNL JMP DEVN3 TDC 4262 240 DEVN3, TAD DEVTEM CLL RAL DCA DEVTEM SNL JMP DEVN4 TDC 4263 240 DEVN4, TAD DEVTEM CLL RAL DCA DEVTEM SNL JMP DEVN5 TDC 4264 240 DEVN5, TAD DEVTEM CLL RAL DCA DEVTEM SNL JMP DEVN6 TDC 4265 240 DEVN6, TAD DEVTEM CLL RAL
SNL JMP ZEILE TDC 266 ZEILE, LINE
MOSTSR ISZ ZYCPTR ISZ ERADR ISZ DEVCTR JMP ADROUT MOSTGO



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