From 73c35839cb0cbbfde91b89ab295ad604ea576b1e Mon Sep 17 00:00:00 2001
From: nuuman <nuuman@users.noreply.github.com>
Date: Sun, 10 Jul 2016 14:32:35 +0200
Subject: [PATCH] Create MATTDAMON.s

Routine for picking up Matt Damon
---
 MATTDAMON.s | 33 +++++++++++++++++++++++++++++++++
 1 file changed, 33 insertions(+)
 create mode 100644 MATTDAMON.s

diff --git a/MATTDAMON.s b/MATTDAMON.s
new file mode 100644
index 0000000..843adfd
--- /dev/null
+++ b/MATTDAMON.s
@@ -0,0 +1,33 @@
+GETMATTDAMON	ZL	                # READJUST FOR MARS COURSE
+                CA      CDUX    
+                DXCH    OGC
+                ZL      
+                CA      CDUY
+                DXCH    IGC     
+                ZL
+                CA      CDUZ
+                DXCH    MGC
+                TC      INTPRET                 _
+                VLOAD   VSR1            # DUMP FUEL TO MAKE ROOM FOR SOME CRAP GROWN POTATOES
+                        OGC
+                STORE   OGC
+		SSP			# ZERO RTX2
+			RTX2		# FOR
+			0		# PREPARE
+		DLOAD	PDDL
+			PGNCSALT	# ALTITUDE OF MARS
+			PADLONG		# LONGITUDE
+		PDDL	VDEF
+			LATITUDE	# MARTIAN ANGLE
+		STODL	LAT		# LAT,LONG,ALT ARE CONSECUTIVE
+			HI6ZEROS	# TIME = 0
+		CLEAR	CALL
+			ERADFLAG
+			LALOTORV	# CONVERT TO POSITION VECTOR IN REF. COORDS.
+			
+		STCALL	RN1             #              _   
+			GETDOWN 	# RETURN TO EARTH VECTOR
+		VCOMP   UNIT
+		STOVL	REFSMMAT +12D	# UNITZ = UNIT(GRAV)
+			RN1
+		VXV	VXSC #  MATT DAMON PICKUP ROUTINE DONE