/ITT MIKROPROZESSOR-EXPERIMENT-KIT



/HAUPTPROGRAMM


*0


START,	LXI SP STAKAD
	MVI A,123		/INP CSHALT
	MOV B,A
	JMP HAUPT2


/SUBROUTINE SRCKSK


CHKSKP=RST 10


*10


SRCKSK,	XTHL
	PUSH PSW
	MOV A,M
	INX H
	ANA B
	JMP CKSK2



/SUBROUTINE SRCKJP


CHKJMP=RST 20


*20


SRCKJP,	XTHL
	PUSH PSW
	MOV A,M
	INX H
	ANA B
	JMP CKJP2




/SUBROUTINE SRCKCN


CHKCHN=RST 30


*30


SRCKCN,	XTHL
	PUSH PSW
CHCNLP,	MOV A,M
	INX H
	JMP CKCN2

*100

CKSK2,	CMP A,M
	INX H
	JZ CHSEND
	INX H
CKJPND,	INX H
	INX H
CKSEND,	POP PSW
	XTHL
	RET




CKJP2,	CMP A,M
	INX H
	JZ CNFUND
	JMP CKJPND
CKCN2,	CPI 0
	JZ CNEND
	ANA B
	CMP A,M
	INX H
	JZ CNFUND
	INXH
	INX H
	JMP CHCNLP




CNFUND,	MOV A,M
	INX H
	MOV H,M
	MOV L,A
CNEND,	POP PSW
	XTHL
	RET


CHKEND=0



HAUPT2,	CHKCHN

	340
	0
	DWORD ADDSUB

	340
	40
	DWORD CODALU

	340
	100
	DWORD AKKUM

	340
	140
	DWORD AKKSPI

	340
	200
	DWORD BASIC

	340
	240
	DWORD HYPOTH

	340
	300
	DWORD SY8080

	340
	340
	DWORD ERWEIT

	CHKEND

	HLT		/NICHT NOETIG



/SYSTEM 0****************************************



ADDSUB,	MVI A, 123		/INP ASHALT

	CHKSKP
	4
	0
	XOR A
	NOP
	NOP

	CHKSKP
	2
	1
	CMA
	NOP
	NOP

	MOV C,A
	MVI A,123		/INP BSHALT

	CHKSKP
	3
	0
	XOR A
	NOP
	NOP

	CHKSKP
	1
	1
	CMA
	NOP
	NOP

	STC

	CHKSKP
	0
	0
	CMC
	NOP
	NOP

	ADC C
	STA 77		/OUT RLAMPE
	RAR
	ANI 1
	STA 76		/OUT LLAMPE
	RST 0