ryan/Apollo-11
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Create MATTDAMON.s

Browse Source 
Routine for picking up Matt Damon
This commit is contained in:
nuuman 2016-07-10 14:32:35 +02:00 committed by GitHub
parent c3cfd8b458
commit 73c35839cb
1 changed files with 33 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
MATTDAMON.s Normal file
View File

@ -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