File EXP.5

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


/ITT MIKROPROZESSOR-EXPERIMENT-KIT



/HAUPTPROGRAMM


*0


STAKAD=377


START,	NOP
	LXI SP STAKAD
	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 CKSEND
	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
	INX H
	INX H
	JMP CHCNLP




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


CHKEND=0



HAUPT2,	IN 0		/IN CSHALT
	MOV B A
	CHKCHN

	340
	0
	DW ADDSUB

	340
	40
	DW CODALU

	340
	100
	DW AKKUM

	340
	140
	DW AKKSPI

	340
	200
	DW BASIC

	340
	240
	DW HYPOTH

	340
	300
	DW SY8080

	340
	340
	DW ERWEIT

	CHKEND

	HLT		/NICHT NOETIG



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



ADDSUB,	MVI A 123		/IN ASHALT

	CHKSKP
	20
	0
	XRA A
	NOP
	NOP

	CHKSKP
	4
	4
	CMA
	NOP
	NOP

	MOV C A
	MVI A 123		/IN BSHALT

	CHKSKP
	10
	0
	XRA A
	NOP
	NOP

	CHKSKP
	2
	2
	CMA
	NOP
	NOP

	STC

	CHKSKP
	1
	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