; MICROPROCESSOR-KIT TESTER PROGRAMM
; **********************************
;
;
;DEFINITIONEN
;
ASHLT	EQU	2H
BSHLT	EQU	1H
CSHLT	EQU	4H
LLAMP	EQU	2H
RLAMP	EQU	1H
;
;
SHLTA	EQU	2H
SHLTB	EQU	1H
SHLTC	EQU	4H
LAMPL	EQU	2H
LAMPR	EQU	1H
NEWIO	EQU	8H
;
;
RSBIT	EQU	1H	;FUER NEWIO
RUNLM	EQU	2H	;"    "
GO	EQU	4H	;"    "
NOGO	EQU	8H	;"    "
;
;
LADR	EQU	1H	;FUER C-SCHALTER
EXAM	EQU	2H	;"       "
DEPOS	EQU	4
RUN	EQU	8H	;"       "
BREAK	EQU	10H	;"       "
SSTEP	EQU	10H	;"       "
TAKT	EQU	10H	;"       "
;
;
EXPT0	EQU	0E0H
EXPT1	EQU	0C0H
EXPT2	EQU	0A0H
EXPT3	EQU	 80H
EXPT4	EQU	 60H
EXPT5	EQU	 40H
EXPT6	EQU	 20H
;
;
RAMBT	EQU	4FFH
TERMT	EQU	13FFH
RAMTP	EQU	400H
;
;
;
	ORG 0
;
START:	LXI SP,RAM/-10,/L
	CALL LOADC
	DB 0
;
;
;SYST 0
;
;EXPERIMENT 0 PRUEFT ADD UND SUB
;
;
SYST0:	CALL LOADC
	DB EXPT0
	CALL RESET
	MVI A,0C3H
	OUT SHLTA
	MVI A,017H
	
	OUT SHLTB
	CALL SETC
	DB 18H		;A+B=C3+17=0DA
	CALL CHKRL
	DB 0DAH
;
	CALL SETC
	DB 7H		;A-B-1=-DB=25
	CALL CHKRL
	DB 25H
;
	CALL CHKLL
	DB 1H		;CARRY=1
;
;
;
;SYST1
;
;EXPERIMENT 1 PRUEFT A,A+1,A XOR B
;
;
SYST1:	CALL LOADC
	DB EXPT1
	CALL RESET
	MVI A,0FH
	OUT SHLTA
	MVI A,0AAH
	OUT SHLTB
	CALL CHKRL
	DB 0FH		;FUNKTION A
;
	CALL SETC
	DB 5H
	CALL CHKRL
	DB 10H		;FUNKTIONA+1
;
	CALL SETC
	DB 0BH
	CALL CHKRL
	DB 5AH		;FUNKTIONA X0R B
;
;
;
;SYST2
;
;EXPERIMENT 2 PRUEFT SP1 UND ADD
;
;
;
SYST2:	CALL LOADC
	DB EXPT2
	CALL RESET
	MVI A,2FH
	OUT SHLTB
	CALL SETC
	DB 1H
	CALL TAKTC
	DB TAKT
	CALL CHKRL
	DB 1H		;SP1
;
	CALL SETC
	DB 7H
	CALL TAKC
	DB TAKT
	CALL CHKRL
	DB 30H		;ADD:2F+1=30
;
;
;