; SET TERMINAL FOR MP/M 
;
;DE TE VERSTUREN CODE IS:
;
; ESCAPE,'w',KEY,LENGTE,NIEUWE CODE
;
;
RAWCON	EQU	4	; MPM RAW CONSOLE OUTPUT
BDOS	EQU	5
;
ESC	EQU	1BH
UPAROW	EQU	01	; CNTRL-A
DOWNAR	EQU	02	; CNTRL-B
LEFTAR	EQU	03	; CNTRL-C
RIGHAR	EQU	04	; CNTRL-D
HOME	EQU	05	; CNTRL-E
FC	EQU	06	; CNTRL-F
NOSCRL	EQU	07	; CNTRL-G
ENTER	EQU	08	; CNTRL-H
;
CR	EQU	0DH
;
F1	EQU	11H	; CNTRL-Q
F2	EQU	17H	; CNTRL-W
F3	EQU	05H	; CNTRL-E
F4	EQU	12H	; CNTRL-R
F5	EQU	14H	; CNTRL-T
F6	EQU	19H	; CNTRL-Y
F7	EQU	15H	; CNTRL-U
F8	EQU	09H	; CNTRL-I
F9	EQU	0FH	; CNTRL-O
F0	EQU	10H	; CNTRL-P
;
;
;
	ORG	100H
;
START:
	LXI	H,TABL
LOOP:
	MOV	A,M	; GET CHAR.
	CPI	'$'	; END CHAR.
	RZ		; YES
	MOV	E,A	; NO, OUTPUT IT
	MVI	C,RAWCON
	SHLD	SAVHL
	CALL	BDOS
	LHLD	SAVHL
	INX	H
	JMP	LOOP
SAVHL:	DS	2
;
;
;
TABL:
	DB	ESC,'w','1','1',F1
	DB	ESC,'w','2','1',F2
	DB	ESC,'w','3','1',F3
	DB	ESC,'w','4','1',F4
	DB	ESC,'w','5','1',F5
	DB	ESC,'w','6','1',F6
	DB	ESC,'w','7','1',F7
	DB	ESC,'w','8','1',F8
	DB	ESC,'w','9','1',F9
	DB	ESC,'w','0','1',F0
	DB	ESC,'w',UPAROW,'2',ESC,'A'
	DB	ESC,'w',DOWNAR,'2',ESC,'B'
	DB	ESC,'w',LEFTAR,'2',ESC,'D'
	DB	ESC,'w',RIGHAR,'2',ESC,'C'
	DB	ESC,'w',HOME,'2',ESC,'H'
;	DB	ESC,'w',FC,
;	DB	ESC,'w',NOSCRL,
	DB	ESC,'w',ENTER,'1',CR
;
	DB	'$'
;
	END
