MTS - Ascent Autopilot routine "function list":

Preflight setup:

       set heading variable (int) via dialog box

Launch:

	set flight timer (int)
	get heading variable
	detect start button keypress (key code or in dialog box)
	start timer
	core thrust: 0% -> 100% in 4 sec
	SRB Ignition
	wait x seconds (as vehicle wil clear the tower)
	initiate roll program

Roll program:

	set max time to roll 180 deg
                perform roll (rcs in rot mode) on smaller angle to achieve set heading
                if set heading = actual heading then initiate pitch program



Pitch program : Time based sequence with IF_THEN in final phase

t = flight timer + x + max time to roll 180 deg + 30: pitch 72
t = flight timer + x + max time to roll 180 deg + 40: pitch 66
t = flight timer + x + max time to roll 180 deg + 50: pitch 61
t = flight timer + x + max time to roll 180 deg + 60: pitch 55
t = flight timer + x + max time to roll 180 deg + 70: pitch 50
t = flight timer + x + max time to roll 180 deg + 80: pitch 43
t = flight timer + x + max time to roll 180 deg + 90: pitch 36
t = flight timer + x + max time to roll 180 deg + 100: pitch 29
t = flight timer + x + max time to roll 180 deg + 110: pitch 20
t = flight timer + x + max time to roll 180 deg + 120: pitch 16

t = flight timer + x + max time to roll 180 deg + 126 : auto SRB sep

t = flight timer + x + max time to roll 180 deg + 130: pitch 16
t = flight timer + x + max time to roll 180 deg + 140: pitch 15
t = flight timer + x + max time to roll 180 deg + 150: pitch 14
t = flight timer + x + max time to roll 180 deg + 180: pitch 13
t = flight timer + x + max time to roll 180 deg + 190:pitch 12
t = flight timer + x + max time to roll 180 deg + 240: pitch -2
t = flight timer + x + max time to roll 180 deg + 330: pitch -10
t = flight timer + x + max time to roll 180 deg + 340: core eng cutoff; stage sep
t = flight timer + x + max time to roll 180 deg + 351: stage 2 ignition
t = flight timer + x + max time to roll 180 deg + 355: pitch 1

get APA and PEA
if APA - PEA < 100 then thrust 50%
if APA - PEA < 40 then thrust 20%
if APA - PEA < 10 then thrust 0%

After initial orbit insertion shuttle stays docked to not yet empty second stage waiting for first GTO insertion burn.

It would be great if can be done from shuttle focus.