org 0000h

	LB		A, 0BBh				;Load Map
	CMPB	A, #07Fh			; Compare map to BC
	JGE		bcut				; Jump to BC

	LB 		A, 0CCh				;Load Speed
	CMPB	A, #016h			;Compare Speed to cut-speed
	JGT		skip				;If over cut-speed -> Reg
	JBR 	off(0211h).2, skip	;If A/C not on
	
	LB		A, #0CCh
	CMPB	0D1h, A
	JLT		skip
	JBR		off(00210h).0, 06E56h
	J		06E6Ah

	ftl:	L 	A, #0030dh		;FTL code
	ST		A, (00292h-00280h)[USP]
	L 		A, #002eeh
	ST		A, (00294h-00280h)[USP]
	J 		03FD0h
 
	skip:	JBS	off(0210h).3, fts

	reg:	L 	A, #001e0h
	ST		A, (00292h-00280h)[USP]
	L 		A, #001d4h
	ST		A, (00294h-00280h)[USP]
	RB		off(00210h).0
	J 		03FD0h

	fts:	L 	A, #00227h
	ST		A, (00292h-00280h)[USP]
	L 		A, #00217h
	ST		A, (00294h-00280h)[USP]
	J 		03FD0h

	bcut:	L 	A, #0030dh
	ST		A, (00292h-00280h)[USP]
	L 		A, #002eeh
	ST		A, (00294h-00280h)[USP]
	J 		03FD0h
	
	tps:	MOV		DP, #00400h
			L		A, 0C4h 
			MOV		[DP],A 
			ST		A, (00292h-00280h)[USP]
			SUB		A, #00020h
			ST		A, (00292h-00280h)[USP]
			SB		off(00210h).0
			J		03FD0h
			
	ctps:	MOV		DP, #00400h
			L		A, [DP]
			ST		A, (00292h-00280h)[USP]
			SUB		A, #00020h
			ST		A, (00292h-00280h)[USP]
			J		03FD0h
			