.Z80
	TITLE	KEYBELEGUNG
	SUBTTL	PROGRAMMODUS
;DISKETTENPROGRAMM ZUR BELEGUNG DER TASTATUR
;   STANDARDBELEGUNG
;  AUFRUF :  COMPUMOD
;  12.10.88
ESC	EQU	1BH	;ESCAPE
BDOS	EQU	5 	;SYSTEMRUF
WARM	EQU	0	;WARMSTART
KTABAD	EQU	0FFB4H	;ADRESSE DER TASTATUR-
			;TABELLE IM KC
;
KEYBEL:	LD	HL,(1) 	;WARMSTART
	LD	DE,9
	ADD	HL,DE
	LD	(CALAD+1),HL	
	LD	DE,STEXT
	LD	C,9
	CALL	5
	LD	DE,(KTABAD)
	LD	HL,KTAB
	LD	A,ESC
	CALL	OUT
	LD	A,'T'
	CALL	OUT	;SPEICHERUEBERGABE
	LD	A,E
	CALL	OUT
	LD	A,D
	CALL	OUT	;AUSGABE ADRESSE
	LD	A,KTABE-KTAB
	LD	B,A
	CALL	OUT	;AUSGABE LAENGE
	XOR	A
	CALL	OUT	;LAENGE <256
	LD	HL,KTAB
KB1:	LD	A,M
	INC	HL
	CALL	OUT
	DJNZ	KB1
	LD	A,(0FFB6H)
	BIT	3,A
	JR	Z,WST1
	LD	A,1BH
	CALL	OUT
	LD	A,5FH
	CALL	OUT 
WST1:	JP	WARM
;
OUT:	PUSH	HL
	PUSH	DE
	PUSH	BC
	LD	C,A
CALAD:	CALL	0
	POP	BC
	POP	DE
	POP	HL
	RET
;
STEXT:	DEFM	'Tastatur auf Standardbelegung zurueckgeschaltet'
	defw	0a0dh
	defm	'Folie 1 auflegen !           (Version 12/10/88)'
	defw	0a0dh
	defm	'$'
;
;CODEWANDLUNGSTABELLE FUER TASTATUR
KTAB:	DEFB	'Ww',17h
	DEFB	'Aa',1
	DEFB	'2"',7ch	;oe
	DEFB	8,1,8H		;CUL: ^H,^A,^H
	DEFB	84h,85h,86h	;Autorep/scr/back
	DEFB	'-=',20h
	DEFB	0F2h,0f7h,0f1h	;F2
	DEFB	'Yy',19h
	DEFB	'Ee',5
	DEFB	'Ss',13h
	DEFB	'3#',7dh	;ue
	DEFB	'^~',1EH	;  ^^	
	DEFB	10h,87h,88h	;^P/hardcopy/ink
	DEFB	':*',32
	DEFB	0F3h,0f8h,0f7h	;F3
	DEFB	'Xx',18h
	DEFB	'Tt',14h
	DEFB	'Ff',6
	DEFB	'5%',5ch	;OE
	DEFB	'Pp',10h
	DEFB	7fh,19h,89h	;DEL/^Y/80-40
	DEFB	'0',40h,7eh	;sz
	DEFB	0f5h,0fAh,020h	;F5
	DEFB	'Vv',16h
	DEFB	'Uu',15h
	DEFB	'Hh',8
	DEFB	'7',27h,32
	DEFB	'Oo',0fh
	DEFB	16h,8ah,8bh	;INS/click/gr-kl
	DEFB	'9)',8ch	;am/dt.
	DEFB	3,8Dh,8eh	;BRK ^C/^C/mni
	DEFB	'Nn',0eh
	DEFB	'Ii',9
	DEFB	'Jj',0ah
	DEFB	'8(',20h
	DEFB	' ',9,' '	;SPACE/TAB
	DEFB	'Kk',0bh
	DEFB	',<',32
	DEFB	13h,11h,8fh	;hex-input
	DEFB	'Mm',0dh
	DEFB	'Zz',1ah
	DEFB	'Gg',7
	DEFB	'6&',5dh	;UE
	DEFB	'   '		;FEHLERCODE
	DEFB	'Ll',0ch
	DEFB	'.>',32
	DEFB	0F6h,0fBh,020h	;F6
	DEFB	'Bb',2
	DEFB	'Rr',12h
	DEFB	'Dd',4
	DEFB	'4$',5bh	;AE
	DEFB	'_|',1FH	;  ^_
	DEFB	'+;',32
	DEFB	'/?',20h
	DEFB	0F4h,0f9h,020h	;F4
	DEFB	'Cc',3
	DEFB	'Qq',11h
	DEFB	90h,90h,90h	;SHIFT LOCK
	DEFB	'1!',7bh	;ae
	DEFB	18h,3,18h	;CUD ^x/^c/^x
	DEFB	5,12h,5		;CUU ^E/^R/^E
	DEFB	4,6,4		;CUR ^D/^F/^D
	DEFB	91h,1bh,91h	;F1= ^/ESC/^
	DEFB	0dh,0dh,0dh	;CR
KTABE	EQU	$
	END