File EXP.6

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


/ITT MIKROPROZESSOR-EXPERIMENT-KIT



/HAUPTPROGRAMM


*0


STAKAD=377


START,	NOP		/TO BE REMOVED
	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 M
	INX H
	JZ CKSEND
	INX H
CKJPND,	INX H
	INX H
CKSEND,	POP PSW
	XTHL
	RET




CKJP2,	CMP M
	INX H
	JZ CNFUND
	JMP CKJPND
CKCN2,	CPI 0
	JZ CNEND
	ANA B
	CMP 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 D B		/FUER SUB. FLANKE
	MOV B A
	CHKCHN

	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

	/SYSTEM 0 MUSS UNMITTELBAR HIER NACHFOLGEN



/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
DISPLY,	RAL
	ANI 1
	STA 76		/OUT LLAMPE
	RAR
	RST 0

/SYSTEM 1*************************************************



CODALU,	MVI A 123	/IN BSHALT
	MOV C A
	MVI A 240	/IN ASHALT
	CALL OPCODE
	JMP DISPLY





/SUBROUTINE OPCODE.  VERKNUEPFT A UND C NACH BEFEHL IN B, BITS 3-0



OPCODE,	STC
	CMC

	CHKSKP
	17
	0
	XRA A
	NOP
	NOP

	CHKSKP
	17
	1
	XRA A
	INR A
	NOP

		/CODE 2 NICHT BENUETZT

	CHKSKP
	17
	3
	CMA
	NOP
	NOP

	CHKSKP
	17
	4
	MOV A C
	NOP
	NOP

	CHKSKP
	17
	5
	MOV A C
	CMA
	NOP

	CHKSKP
	17
	6
	ADI 1	/NICHT INR A WEGEN CARRY
	NOP

	CHKSKP
	17
	7
	ADI -1	/NICHT DCR A WEGEN CARRY
	NOP

		/CODE 10 NICHT BENUETZT


	CHKSKP
	17
	11
	ADD C
	NOP
	NOP

	CHKSKP
	17
	12
	SUB C
	NOP	/EVENTU. CMC
	NOP

		/CODE 13 NICHT BENUETZT


	CHKSKP
	17
	14
	ANA C
	NOP
	NOP

	CHKSKP
	17
	15
	ORA C
	NOP
	NOP

	CHKSKP
	17
	16
	XRA C
	NOP
	NOP

	CHKSKP
	17
	17
	XRA C
	CMA
	NOP

	RET


/SUBROUTINE FLANKE


/ANRUF:	CALL SFLANK
/	MASKE
/	ADRESSE WENN KEINE POS. FLANKE IN B UND D
/	HIGH ADRESSE



SFLANK,	XTHL
	PUSH PSW
	MOV A D
	CMA
	ANA B
	ANA M
	INX H
	JZ CNFUND
	JMP CKJPND





/SYSTEM 2***************************************



AKKUM,	CALL SFLANK
	20
	DW DISPLY
	MVI 123		/IN BSHALT
	MOV C A
	MOV A E
	CALL OPCODE
	MOV E A
	JMP DISPLY

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