KCTYPASM; PROGRAMM ZUM HERAUSFINDEN DES
; VERWENDETEN KCTYPS
; JENS HASENSTEIN 01.11.1991
;
	ORG 3000H
	DEFW 7F7FH
	DEFM 'KCTYP'
	DEFB 01
	CALL 0F003H
	DEFB 023H
	DEFM '      basis device KC 85/'
	DEFB 00H
	LD A,033H
	PUSH DE
	LD D,A
	LD A,(0E011H)
	CP 0DDH
	LD A,D
	POP DE
	JR Z AA
	LD A,034H
AA	CALL 0F003H
	DEFB 00H
	RET
Qÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ