PAGE




/HAUPTPROGRAMM INTEL-TEST
/--------------------------




RMTST,	RMTEST
	MOSTGO

MTST1,	JMS PTST1
	MOSTGO

MTST2,	JMS PTST2
	MOSTGO

MTST3,	JMS PTST3
	MOSTGO

MTST4,	JMS PTST4
	MOSTGO

MTST5,	JMS PTST5
	MOSTGO

MTST6,	JMS PTST6
	MOSTGO

MTST7,	JMS PTST7
	MOSTGO

MTST8,	JMS PTST8
	MOSTGO

MTST9,	JMS PTST9
	MOSTGO



TSTALL,	JMS PTST1
	JMS PTST2
	JMS PTST3
	JMS PTST4
	JMS PTST5
	JMS PTST6
	JMS PTST7
	JMS PTST8
	JMS PTST9

	TDC
	"*
	LINE
	RTCOMD

	CHECK
	215
	JMP TSTALL
	MOSTGO


/TEST 1
/******

PTST1,	0
	CLA
	TAD (1
	DCA TSTNUM
	
	INIT

	RAMFIL
	166
	0

	RMLOAD
	ITEST1&377
	ITEST1%400
	IEND1&377
	IEND1%400
	PTEST1
	1

	CLEAR
	PDP8CF

	PPULSE
	RESET

	CLA
	TAD PROGTM
	DCA DELAY
HLTLP1,	READ
	STATUS
	AND HLTACK
	SNA CLA
	JMP .+4

	ISZ DELAY
	JMP HLTLP1
	JMS HLTERR


	RMCHEK
	IBAN1&377
	IBAN1%400
	IBEN1&377
	IBEN1%400
	PBAN1
	1
	TSNMPR
	JMP I PTST1


/TEST 2
/******

PTST2,	0
	CLA
	TAD (2
	DCA TSTNUM
	
	INIT

	RAMFIL
	166
	0

	RMLOAD
	ITEST2&377
	ITEST2%400
	IEND2&377
	IEND2%400
	PTEST2
	1

	CLEAR
	PDP8CF

	PPULSE
	RESET

	CLA
	TAD PROGTM
	DCA DELAY
HLTLP2,	READ
	STATUS
	AND HLTACK
	SNA CLA
	JMP .+4

	ISZ DELAY
	JMP HLTLP2
	JMS HLTERR


	RMCHEK
	IBAN2&377
	IBAN2%400
	IBEN2&377
	IBEN2%400
	PBAN24
	1
	TSNMPR
	JMP I PTST2

PAGE




/TEST 3
/******

PTST3,	0
	CLA
	TAD (3
	DCA TSTNUM
	
	INIT

	RAMFIL
	166
	0

	RMLOAD
	ITEST3&377
	ITEST3%400
	IEND3&377
	IEND3%400
	PTEST3
	1

	CLEAR
	PDP8CF

	PPULSE
	RESET

	CLA
	TAD PROGTM
	DCA DELAY
HLTLP3,	READ
	STATUS
	AND HLTACK
	SNA CLA
	JMP .+4

	ISZ DELAY
	JMP HLTLP3
	JMS HLTERR


	RMCHEK
	IBAN3&377
	IBAN3%400
	IBEN3&377
	IBEN3%400
	PBAN3
	1
	TSNMPR
	JMP I PTST3





PAGE

/TEST 4
/******

PTST4,	0
	CLA
	TAD (4
	DCA TSTNUM
	
	INIT

	RAMFIL
	166
	0

	RMLOAD
	ITEST4&377
	ITEST4%400
	IEND4&377
	IEND4%400
	PTEST4
	1

	RMLOAD
	IT41&377
	IT41%400
	END41&377
	END41%400
	PT41
	1

	CLEAR
	PDP8CF

	PPULSE
	RESET

	CLA
	TAD PROGTM
	DCA DELAY
HLTLP4,	READ
	STATUS
	AND HLTACK
	SNA CLA
	JMP .+4

	ISZ DELAY
	JMP HLTLP4
	JMS HLTERR


	RMCHEK
	IBAN4&377
	IBAN4%400
	IBEN4&377
	IBEN4%400
	PBAN24
	1
	TSNMPR
	JMP I PTST4


PAGE





/TEST 5
/******

PTST5,	0

	CLEAR
	INTRPT
	CLA
	TAD (5
	DCA TSTNUM
	
	INIT

	CAM
	LOAD
	PDPDAT

	RAMFIL
	166
	0

	RMLOAD
	ITEST5&377
	ITEST5%400
	IEND5&377
	IEND5%400
	PTEST5
	1

	CLEAR
	PDP8CF

	PPULSE
	RESET


	CLA
	TAD PROGTM
	DCA DELAY
	ISZ DELAY
	JMP .-1

	READ
	STATUS
	AND INTACK
	SZA CLA
	JMS EIERR

	SET
	HOLD

	RMCHEK
	IBAN51&377
	IBAN51%400
	IBEN51&377
	IBEN51%400
	PBAN51
	1
	TSNMPR

	CLEAR
	HOLD PDP8CF

	SET			/RESTART 70
	INTRPT
	CLEAR
	INTRPT

	CLA
	TAD PROGTM
	DCA DELAY
	ISZ DELAY
	JMP .-1

	READ 
	STATUS
	AND INTACK
	SNA CLA
	JMS DIERR

	SET
	HOLD

	RMCHEK
	IBAN52&377
	IBAN52%400
	IBEN52&377
	IBEN52%400
	PBAN52
	1
	TSNMPR

	CLEAR
	HOLD PDP8CF

	SET
	INTRPT
	CLEAR
	INTRPT

	CLA
	TAD PROGTM
	DCA DELAY
	ISZ DELAY
	JMP .-1

	READ
	STATUS
	AND INTACK
	SNA CLA
	JMS DIERR

	SET
	HOLD

	RMCHEK
	IBAN52&377
	IBAN52%400
	IBEN52&377
	IBEN52%400
	PBAN52
	1
	TSNMPR

	RAMFIL
	166
	0

	CLEAR
	HOLD PDP8CF

	CLA
	TAD PROGTM
	DCA DELAY
HLTLP8,	READ
	STATUS
	AND HLTACK
	SNA CLA
	JMP .+4

	ISZ DELAY
	JMP HLTLP8
	JMS HLTERR

	JMP I PTST5

INTACK,	4


PAGE


/TEST 6
/******

PTST6,	0
	CLA
	TAD (6
	DCA TSTNUM
	
	INIT

	RAMFIL
	166
	0

	RMLOAD
	ITEST6&377
	ITEST6%400
	IEND6&377
	IEND6%400
	PTEST6
	1

	CLEAR
	PDP8CF

	PPULSE
	RESET

	CLA
	TAD PROGTM
	DCA DELAY
HLTL10,	READ
	STATUS
	AND HLTACK
	SNA CLA
	JMP .+4

	ISZ DELAY
	JMP HLTL10
	JMS HLTERR


	RMCHEK
	IBAN6&377
	IBAN6%400
	IBEN6&377
	IBEN6%400
	PBAN6
	1
	TSNMPR
	JMP I PTST6


PAGE




/TEST 7
/******

PTST7,	0
	CLA
	TAD (7
	DCA TSTNUM
	
	INIT

	RAMFIL
	166
	0

	RMLOAD
	ITEST7&377
	ITEST7%400
	IEND7&377
	IEND7%400
	PTEST7
	1

	CLEAR
	PDP8CF

	PPULSE
	RESET

	CLA
	TAD PROGTM
	DCA DELAY
HLTL11,	READ
	STATUS
	AND HLTACK
	SNA CLA
	JMP .+4

	ISZ DELAY
	JMP HLTL11
	JMS HLTERR


	RMCHEK
	IBAN7&377
	IBAN7%400
	IBEN7&377
	IBEN7%400
	PBAN7
	1
	TSNMPR
	JMP I PTST7

PAGE




/TEST 8
/*******

PTST8,	0
	CLA
	TAD (10
	DCA TSTNUM
	
	INIT

	RAMFIL
	166
	0

	RMLOAD
	ITEST8&377
	ITEST8%400
	IEND8&377
	IEND8%400
	PTEST8
	1

	CLEAR
	PDP8CF

	PPULSE
	RESET

	CLA
	TAD PROGTM
	DCA DELAY
HLTL12,	READ
	STATUS
	AND HLTACK
	SNA CLA
	JMP .+4

	ISZ DELAY
	JMP HLTL12
	JMS HLTERR


	RMCHEK
	IBAN8&377
	IBAN8%400
	IBEN8&377
	IBEN8%400
	PBAN8
	1
	TSNMPR
	JMP I PTST8


/TEST 9
/******

PTST9,	0
	CLA
	TAD (11
	DCA TSTNUM
	
	INIT

	RAMFIL
	166
	0

	RMLOAD
	ITEST9&377
	ITEST9%400
	IEND9&377
	IEND9%400
	PTEST9
	1

	CLEAR
	PDP8CF

	PPULSE
	RESET

	CLA
	TAD PROGTM
	DCA DELAY
HLTL13,	READ
	STATUS
	AND HLTACK
	SNA CLA
	JMP .+4

	ISZ DELAY
	JMP HLTL13
	JMS HLTERR

	RMCHEK
	IBAN9&377
	IBAN9%400
	IBEN9&377
	IBEN9%400
	PBAN9
	1
	TSNMPR

	JMP I PTST9


/CALL TSNMPR
/AUSDRUCK DES FEHLERHAFTEN TESTS


TSNMPR,	0
	LINE
	TDC
	"T+4000
	"E+4000
	"S+4000
	"T+4000
	240

	TAD TSTNUM
	TOCT
	LINE
	LINE
	JMP I TSNMPR




HLTERR,	0
	JMS TSNMPR
	TDC
	"H+4000
	"L+4000
	"T+4000
	"E+4000
	"R+4000
	"R

	LINE

	JMP I HLTERR

EIERR,	0
	JMS TSNMPR
	TDC
	"E+4000
	"I+4000
	"E+4000
	"R+4000
	"R
	LINE
	JMP I EIERR


DIERR,	0
	JMS TSNMPR
	TDC
	"D+4000
	"I+4000
	"E+4000
	"R+4000
	"R
	LINE
	JMP I DIERR




TSTNUM,	0

DELAY,	0
HLTACK,	1