	.TITLE	SAVHEX
	.MCALL	.DBLK
	.MCALL	.LOOKU	.READW
	.MCALL	.PURGE
	.MCALL	.ENTER	.WRITW	.CLOSE
	.MCALL	.PRINT	.EXIT
	.DSABL	GBL
	.GLOBL	..16

SAVHEX:
	.LOOKU	#AREA,#0,#DBLK
	BCS	E.LOOK

	.READW	#AREA,#0,#BUFF,#400,#1
	BCS	E.READ

	.PURGE	#0

	.ENTER	#AREA,#0,#.DBLK,#3
	BCS	E.ENT

	MOV	#.BUFF,R1
	MOV	#4,R3
	MOV	#400,R4
	MOV	#BUFF,R5
1$:	MOV	(R5)+,R0
	SWAB	R0
	CALL	..16
	ADD	R3,R1
	MOVB	#15,(R1)+
	MOVB	#12,(R1)+
	SOB	R4,1$

	.WRITW	#AREA,#0,#.BUFF,#400*3,#0
	BCS	E.WRIT

	.CLOSE	#0
	BCS	E.CLO

	.PRINT	#T.OK
	.EXIT

E.LOOK:	MOV	#T.LOOK,R0
	BR	E.
E.READ:	MOV	#T.READ,R0
	BR	E.
E.ENT:	MOV	#T.ENT,R0
	BR	E.
E.WRIT:	MOV	#T.WRIT,R0
	BR	E.
E.CLO:	MOV	#T.CLO,R0
E.:	.PRINT
	.EXIT

AREA:	.BLKW	5
DBLK:	.DBLK	DK,SAV,SAV
.DBLK:	.DBLK	DK,HEX,MAC

T.LOOK:	.ASCIZ	"LOOKUP"
T.READ:	.ASCIZ	"READW"
T.ENT:	.ASCIZ	"ENTER"
T.WRIT:	.ASCIZ	"WRITW"
T.CLO:	.ASCIZ	"CLOSE"

T.OK:	.ASCIZ	"OK"
	.EVEN

BUFF:
.BUFF	=	. + 1000
	.END	SAVHEX
                                       