File EXP.2

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


/ITT MIKROPROZESSOR-EXPERIMENT-KIT



/HAUPTPROGRAMM


*0


STAKAD=377


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


/SUBROUTINE SRCKSK


CHKSKP=317


*10


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



/SUBROUTINE SRCKJP


CHKJMP=327


*20


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




/SUBROUTINE SRCKCN


CHKCHN=337


*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




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