File EXP.12

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


/ITT MIKROPROZESSOR-EXPERIMENT-KIT



/HAUPTPROGRAMM


*0


STAKAD=1000


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




*100			/TEMPORARY

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 240		/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
DISPLY,	STA 77		/OUT RLAMPE
	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 STC CMC CALL OPCODE JMP DISPLY /SUBROUTINE OPCODE. VERKNUEPFT A UND C NACH BEFEHL IN B, BITS 3-0 OPCODE, CHKSKP 17 0 XRA A NOP NOP CHKSKP 17 1 XRA A INR A NOP CHKSKP 17 2 CMA NOP NOP CHKSKP 17 3 MOV A C NOP NOP CHKSKP 17 4 MOV A C CMA NOP CHKSKP 17 5 ADI 1 /NICHT INR A WEGEN CARRY NOP CHKSKP 17 6 ADI 377 /NICHT DCR A WEGEN CARRY NOP CHKSKP 17 7 ADD C NOP NOP JMP TEMP /TEMPORARY *420 TEMP, CHKSKP 17 10 SUB C NOP /EVENTU. CMC NOP CHKSKP 17 11 ANA C NOP NOP CHKSKP 17 12 ORA C NOP NOP CHKSKP 17 13 XRA C NOP NOP CHKSKP 17 14 XRA A CMA NOP CHKSKP 17 15 MVI A 253 /IN BSHALT 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 /FLANKE NICHT GEFUNDEN JMP CKJPND /FLANKE GEFUNDEN /SYSTEM 2*************************************** AKKUM, MOV A E CALL SFLANK 20 DW DISPLY MVI A 123 /IN BSHALT MOV C A MOV A E CALL OPCODE MOV E A JMP DISPLY /SYSTEM 3********************************************** AKKSPI, MOV A E PUSH PSW MVI A 123 /IN ASHALT PUSH PSW ANI 17 MOV L A POP PSW RAR RAR RAR RAR ANI 17 MOV H A POP PSW CHKJMP 4 4 DW DEPOST CHKJMP 2 2 DW EXAMIN CALL SFLANK 20 DW DISPLY PUSH B MOV B H MVI H 1 /4 MOV C M CALL OPCODE MOV E A CHKJMP 17 16 DW STORE POP B JMP DISPLY DEPOST, MVI A 240 /IN BSHALT STORND, MVI H 1 /4 MOV M A JMP DISPLY EXAMIN, MVI H 1 /4 MOV A M JMP DISPLY STORE, POP B JMP STORND /SYSTEM 4****************************************** BASIC, MOV A L ANI 17 MOV L A MOV A E MVI H 1 /4 PUSH PSW MVI A 3 /IN ASHALT ANI 17 CHKSKP /LOAD ADDRESS 1 1 MOV L A NOP NOP CHKJMP /EXAMINE 2 2 DW EXAM2 CHKJMP /DEPOSIT 4 4 DW DPOST2 MOV A E CHKJMP /00,10 10 0 DW DSPLY2 CHKJMP /01 30 10 DW NORMAL CALL SFLANK /11 10 DW DSPLY2 NORMAL, MOV A M /FETCH ANI 360 CPI 360 /HALT BEFEHL MOV A E JZ DSPLY2 MOV A M /FETCH PUSH PSW ANI 17 MOV L A POP PSW RAR RAR RAR RAR ANI 17 MOV H A POP PSW PUSH B MOV B H MV1 H 1 /4 MOV C M CALL OPCODE MOV E A CHKSKP 17 16 MVI H 1 /4 MOV M A POP B PUSH PSW MOV A L INR A ANI 17 ORI 40 /STETZE RUN LAMPE MOV L A MOV A E JMP DSPLY2 EXAM2, MOV A M DSPLY2, STA 77 /OUT RLAMPE MOV A L RAL RAL RAL MOV H A POP PSW MOV A H RAL STA 76 /OUT LLAMPE RAR CALL SFLANK 6 DW START INR L /INC P.C RST 0 DPOST2, MVI A 345 /IN BSHALT MOV M A JMP DSPLY2



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