ASSUME	CS:CODE,DS:DATA
CODE		SEGMENT
ENTRY		PROC
		MOV	AX,DATA
		MOV	DS,AX
;
;	OPEN FILE
;
		MOV	AH,3DH
		MOV	AL,42H
		LEA	DX,[FNAME]
		INT	21H
		MOV	[HANDLE],AX
;
;	A Button -> Mach 3
;
;SET POINTER
		MOV	AH,42H
		MOV	AL,0
		MOV	BX,[HANDLE]
		MOV	CX,0
		MOV	DX,AHIGHA
		INT	21H
;WRITE DATA
		MOV	AH,40H
		LEA	DX,[AHIGH]
		MOV	CX,AHIGHL
		MOV	BX,[HANDLE]
		INT	21H
;
;	Fly Low Speed
;
;SET POINTER
		MOV	AH,42H
		MOV	AL,0
		MOV	BX,[HANDLE]
		MOV	CX,0
		MOV	DX,FLYLOA
		INT	21H
;WRITE DATA
		MOV	AH,40H
		LEA	DX,[FLYLO]
		MOV	CX,FLYLOL
		MOV	BX,[HANDLE]
		INT	21H
;
;	Auto Balcan
;
;SET POINTER
		MOV	AH,42H
		MOV	AL,0
		MOV	BX,[HANDLE]
		MOV	CX,0
		MOV	DX,BALCNA
		INT	21H
;WRITE DATA
		MOV	AH,40H
		LEA	DX,[BALCN]
		MOV	CX,BALCNL
		MOV	BX,[HANDLE]
		INT	21H
;
;	CLOSE HANDLE
;
		MOV	AH,3EH
		MOV	BX,[HANDLE]
		INT	21H
;
		MOV	AH,4CH
		INT	21H
ENTRY		ENDP
CODE		ENDS
;
DATA		SEGMENT
HANDLE		DW	0
FNAME		DB	"AB2.EXP",0
AHIGHA		EQU	0FAD0H
AHIGHL		EQU	0AH
AHIGH		DB	8BH,15H,40H,2FH,08H,00H,90H,80H,0E2H,10H
FLYLOA		EQU	0FADFH
FLYLOL		EQU	01H
FLYLO		DB	0EBH
BALCNA		EQU	0FB5DH
BALCNL		EQU	5
BALCN		DB	0B2H,01H,90H,90H,90H
DATA		ENDS
;
STACK		SEGMENT	STACK
		DB	1024 DUP(0)
STACK		ENDS
		END	ENTRY