; MM522PAT.ASM  PATCH FOR MASMENU.COM VERSION 5.22  6/12/86 GSD
; 
;
; THIS PATCH:
;
;	1. ENSURES THAT WARM BOOT IS PERFORMED ON EXIT
;	2. ENSURES THAT THE 25th LINE ON THE SCREEN IS ERASED
;	3. ASSEMBLES WITH DRI'S MAC ASSEMBLER
;
; USE DDT TO PATCH MASMENU.COM:
;
; A>DDT MASMENU.COM
; NEXT PC
; 4300 0100
; #IMM522PAT.HEX
; #R
; #G0
; A>SAVE 66 MASMENU.COM
;
;
BDOS	EQU	0005H	; BDOS ENTRY
ESC	EQU	01BH	; ASCII ESCAPE CHARACTER
;
	ORG 	137H	; ID STRING
	DB 	'5.22'

	ORG	100H
	
	JMP	INISUB

	ORG 	398EH	; POINTER TO LAST CODE AREA
;
	DW	ENDMSG  ; PROTECT PATCHED CODE
;
	ORG 	39B9H	; ORGINAL EXIT ROUTINE
;
	JMP	UNISUB	; GOTO NEW EXIT ROUTINE
;
	ORG 	428AH
;
;
inisub:	lxi	d,line25	; 25 line screen message
	mvi	c,9		; BDOS PRINT STRING FUNCTION
	call	BDOS		; disable the status line
	jmp	3990H		; execute masmenu

;
unisub:
	lxi	d,line24	; 24 line screen message
	mvi	c,9		; BDOS PRINT STRING FUNCTION
	call	BDOS		; enable the status line
	rst	0		; FORCE Warm Boot
;
line25:	DB	ESC,'C7$'
line24:	DB	ESC,'B7$'
;
ENDMSG	EQU	$
;
	END