;
;	routine to switch screen to 80 col
;	or 52 or 104 columns
;
;	Coded by Chris Hill, July 1983
;
;
	LADR	EQU	0E1A5H
	BIOS	EQU	0E4E5H	;location to call
				;in BIOS
	SETSC	EQU	03H	;for 80 columns  
;	SETSC	EQU	00H	;remove leading
				;semicolon for 52 columns
;	SETSC	EQU	O1H	;remove leading 
				;semicolon for 104 columns
	ORG 	0100H
;
 	LXI 	H,LADR		;get address of loc-GET
	          		;ation to change
	MVI	M,SETSC		;put appropriate value
				; into that loc.
	CALL	BIOS		;call to extended BIOS
;
;
	LHLD	01H		;get warm start loc.
	PCHL			;do it
	
