	.8080
	ASEG
	ORG	100H

	MVI	B,31H
	LXI	H,TEXT
LOOP1:	MVI	E,1BH
	CALL	OUTPUT
	MVI	E,7CH
	CALL	OUTPUT
	MOV	E,B
	CALL	OUTPUT
	MVI	E,31H
	CALL	OUTPUT
LOOP:	MOV	A,M
	CPI	00H
	JZ	ENDE
	MOV	E,A
	CALL	OUTPUT
	INX	H
	JMP	LOOP
ENDE:	MVI	E,19H
	CALL	OUTPUT
	INR	B
	INX	H
	MOV	A,M
	CPI	0
	JNZ	LOOP1
	LXI	H,USRLIN
	MVI	E,1BH
	CALL	OUTPUT
	MVI	E,29H
	CALL	OUTPUT
	MVI	E,1BH
	CALL	OUTPUT
	MVI	E,7EH
	CALL	OUTPUT
	MVI	E,21H
	CALL	OUTPUT
	MVI	E,32H
	CALL	OUTPUT
	MVI	E,1BH
	CALL	OUTPUT
	MVI	E,47H
	CALL	OUTPUT
	MVI	E,48H
	CALL	OUTPUT
	MVI	B,31H
	MVI	E,1BH
	CALL	OUTPUT
	MVI	E,66H
	CALL	OUTPUT
LOOP3:	MOV	A,M
	ANA	A
	JZ	ENDE1
	MOV	A,B
	CPI	36H
	MVI	E,21H
	JNZ	LOOP4
	MVI	E,3EH
LOOP4:	CALL	OUTPUT
LOOP2:	MOV	E,M
	CALL	OUTPUT
	INX	H
	MOV	A,M
	ANA	A
	JNZ	LOOP2
	INX	H
	INR	B
	MOV	A,B
	CPI	3AH
	JNZ	LOOP3
	MVI	B,30H
	JMP	LOOP3
ENDE1:	MVI	E,0DH
	CALL	OUTPUT
	MVI	E,1BH
	CALL	OUTPUT
	MVI	E,67H
	CALL	OUTPUT
	MVI	E,1BH
	CALL	OUTPUT
	MVI	E,47H
	CALL	OUTPUT
	MVI	E,40H
	CALL	OUTPUT
	MVI	E,1BH
	CALL	OUTPUT
	MVI	E,28H
	CALL	OUTPUT
	MVI	E,1BH
	CALL	OUTPUT
	MVI	E,7EH
	CALL	OUTPUT
	MVI	E,21H
	CALL	OUTPUT
	MVI	E,31H
	CALL	OUTPUT
	JMP	0
;
OUTPUT:	PUSH	B
	PUSH	D
	PUSH	H
	MVI	C,2
	CALL	5
	POP	H
	POP	D
	POP	B
	RET
;
TEXT:	DEFB	'DIR A:',13,0
	DEFB	'DIR B:',13,0
	DEFB	'CHANGE A: B:',13,0
	DEFB	'COPY',13,0
	DEFB	'DELETE',13,0
	DEFB	'TYPE ',0
	DEFB	'PATCHTV ',0
	DEFB	'DEBUG ',0
	DEFB	'MASTER',13,0
	DEFB	'USER ',0
	DEFB	'KEYS',13,0
;
	DEFB	'WS',13,'NGRATE01.MAC',0
	DEFB	9,'.8080',13,0
	DEFB	9,'.Z80',13,0
	DEFB	9,'MOV',9,13,0
	DEFB	9,'EXX',13,0
	DEFB	9,"EX AF,AF'",13,0
	DEFB	'M80 B:GRATE01=B:GRATE01/R',13,0
	DEFB	'L80 B:GRATE01,B:GRATE01/N/E',13,'N',13,0
	DEFB	'B:MONITOR',13,'L B:GRATE01.EPR 1000',13,'L B:GRATE01.COM 1000',13,'S GRATE01.EPR 1000 2FFF',13,'Q',13,0
	DEFB	'EP2732 ',0
	DEFB	'EP2764 GRATE01.EPR',13,'P',0
;
	DEFB	0AH,0
	DEFB	0BH,0
	DEFB	10H,10H,0
	DEFB	0FH,0
	DEFB	02H,0
	DEFB	8CH,0
	DEFB	07H,0
	DEFB	14H,0
	DEFB	10H,19H,0
	DEFB	16H,0
	DEFB	01H,0
	DEFB	06H,0
	DEFB	'CHR$(&H',0
	DEFB	17H,0
	DEFB	05H,0
	DEFB	12H,0
	DEFB	13H,0
	DEFB	11H,0
	DEFB	04H,0
	DEFB	15H,0
	DEFB	0EH,0
	DEFB	1AH,0
	DEFB	18H,0
	DEFB	03H,0
	DEFB	80H,0
	DEFB	0
;
USRLIN:	DEFB	'WS.MAC',0
	DEFB	'.8080 ',0
	DEFB	'.Z80  ',0
	DEFB	'MOV   ',0
	DEFB	'EXX   ',0
	DEFB	'EX AF ',0
	DEFB	'M80   ',0
	DEFB	'L80   ',0
	DEFB	'MONI  ',0
	DEFB	'EP 32 ',0
	DEFB	'EP 64 ',0
	DEFB	0

	END
