	TITLE	MOWED -- Set CRT Mode Explicitly

;  MOWED: Set CRT Mode
;  Richard Gillmann, 1983

;  MOWED 0 = 40x25 BW
;        1 = 40x25 Color
;        2 = 80x25 BW
;        3 = 80x25 Color
;        4 = 320x200 Color
;        5 = 320x200 BW
;        6 = 640x200 BW
;        7 = 80x25 Monochrome Adapter

;  MASM MOWED;
;  LINK MOWED;
;  EXE2BIN MOWED.EXE MOWED.COM

CSEG	SEGMENT
	ASSUME	CS:CSEG,DS:CSEG
	ORG	80H
CMD_LIN	LABEL	BYTE		; UNFORMATTED PARAMETER AREA
	ORG	100H
MOWED	PROC	FAR
	MOV	AL,CMD_LIN+2	; GET ARG
	SUB	AL,'0'		; CONVERT TO BINARY
	CMP	AL,7		; WITHIN RANGE?
	JA	OUT		; EXIT IF NOT
	MOV	AH,0		; SET MODE FUNCTION OF
	INT	10H		; BIOS VIDEO CALL
OUT:	INT	20H		; RETURN TO EXEC
MOWED	ENDP
CSEG	ENDS
	END	MOWED
