Quellcode-Bibliothek GENERAL_LAMBERT_AIMPOINT_GUIDANCE.agc   Sprache: Apollo

# Copyright: Public domain.
# Filename: LAMBERT_AIMPOINT_GUIDANCE.agc
# Purpose:  Part of the source code for Luminary 1A build 099.
# It is part of the source code for the Lunar Module's (LM)
# Apollo Guidance Computer (AGC), for Apollo 11.
# Assembler: yaYUL
# Contact: Ron Burkey <info@sandroid.org>.
# Website: www.ibiblio.org/apollo.
# Pages: 651-653
# Mod history: 2009-05-18 RSB Transcribed from Luminary 099
# page images.
# 2009-06-05 RSB Corrected 4 typos.
# 2009-06-07 RSB Fixed a typo.
#
# This source code has been transcribed or otherwise adapted from
# digitized images of a hardcopy from the MIT Museum.  The digitization
# was performed by Paul Fjeld, and arranged for by Deborah Douglas of
# the Museum.  Many thanks to both.  The images (with suitable reduction
# in storage size and consequent reduction in image quality as well) are
# available online at www.ibiblio.org/apollo.  If for some reason you
# find that the images are illegible, contact me at info@sandroid.org
# about getting access to the (much) higher-quality images which Paul
# actually created.
#
# Notations on the hardcopy document read, in part:
#
# Assemble revision 001 of AGC program LMY99 by NASA 2021112-061
# 16:27 JULY 14,1969

# Page 651

# GENERAL  LAMBERT AIMPOINT GUIDANCE **
# WRITTEN  BY RAMA M AIYAWAR

# PROGRAM P-31 DESCRIPTION **
#
# 1.    TO ACCEPT TARGETING PARAMETERS OBTAINED FROM A SOURCE EXTERNAL
#    TO THE LEM AND COMPUTE THERE FROM THE REQUIRED-VELOCITY AND
#    OTHER INITIAL CONDITIONS REQUIRED BY LM FOR DESIRED MANEUVER.
#    THE TARGETING PARAMETERS ARE TIG (TIME OF IGNITION), TARGET
#    VECTOR (RTARG), AND THE TIME FROM TIG UNTIL THE TARGET IS
#    REACHED(DELLT4),DESIRED TIME OF FLIGHT FROM  RINIT TO RTARG..

# ASSUMPTIONS **
#
# 1.    THE TARGET PARAMETERS MAY HAVE BEEN LOADED PRIOR TO THE
#    EXECUTION OF THIS PROGRAM.
# 2.    THIS PROGRAM IS APPLICABLE IN EITHER EARTH OR LUNAR ORBIT.
# 3.    THIS PROGRAM IS DESIGNED FOR ONE-MAN OPERATION, AND SHOULD
#    BE SELECTED BY THE ASTRONAUT BY DSKY ENTRY  V37 E31.

# SUBROUTINES USED **
#
# MANUPARM, TTG/N35, R02BOTH, MIDGIM, DISPMGA, FLAGDOWN, BANKCALL,
# GOTOPOOH, ENDOFJOB, PHASCHNG, GOFLASHR, GOFLASH.
#
# MANUPARM   CALCULATES APOGEE, PERIGEE ALTITUDES AND DELTAV DESIRED
#   FOR THE MANEUVER.
#
# TTG/N35   CLOCKTASK - UPDATES CLOCK.
#
# MIDGIM   CALCULATES MIDDLE GIMBAL ANGLE FOR DISPLAY.
#
# R02BOTH   IMU - STATUS CHECK ROUTINE.

# DISPLAYS USED IN P-31LM **
#
# V06N33   DISPLAY SOTRED  TIG (IN HRS. MINS. SECS)
# V06N42   DISPLAY APOGEE, PERIGEE, DELTAV.
# V16N35   DISPLAY TIME FROM TIG.
# V06N45   TIME FROM IGNITION AND MIDDLE GIMBAL ANGLE.

# ERASABLE INITIALIZATION REQUIRED **
#
# TIG   TIME OF IGNITION    DP    (B+28) CS.
#
# 3.    THIS PROGRAM IS DESIGNED FOR ONE-MAN OPERATION, AND SHOULD
#   FROM RINIT TO RTARG .
#
# RTARG   RADIUS VECTOR OF TARGET POSITION VECTOR
#   RADIUS VECTOR   SCALED TO  (B+29)METERS IF EARTH ORBIT
# Page 652
#   RADIUS VECTOR SCALED TO    (B+27)METERS IF MOON  ORBIT

# OUTPUT **
#
# HAPO   APOGEE ALTITUDE
# HPER   PERIGEE ALTITUDE
# VGDISP   MAG.OF DELTAV FOR DISPLAY ,SCALING   B+7 M/CS EARTH
#   MAG.OF DELTAV FOR DISPLAY,SCALING   B+5 M/CS MOON
# MIDGIM   MIDDLE GIMBAL ANGLE
# XDELVFLG   RESETS XDELVFLG FOR LAMBERT VG COMPUTATIONS

# ALARMS OR ABORTS  NONE **

# RESTARTS  ARE VIA GROUP 4 **

  java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
  BANK LEMPREC

  EBANK= SUBEXIT

  COUNT* $$/P31
P31  TC P20FLGON
  CAF V06N33  # TIG
  TC VNPOOH
  TC INTPRET
  CLEAR DLOAD
   UPDATFLG
   TIG
  STCALL TDEC1  # INTEGRATE STATE VECTORS TO TIG
    RATT
  java.lang.StringIndexOutOfBoundsException: Index 5 out of bounds for length 5
   RATT
    
  ,java.lang.StringIndexOutOfBoundsException: Index 11 out of bounds for length 11
  DELVSIN
  VATT
  VTIG
 STODL
 P30ZERO
 PDDL 
   DELLT4
  DAD RTIG
   
  
    PERIAPO1
 SXA2
   RTX2SLL MAXCHK
  INITVEL
  PUSH
# Page 653
  DELVEET3
 LVSIN
  ABVAL CLEAR
   XDELVFLG
  STCALL VGDISP
   GET.LVC
  VLOAD PDVL
   RTIG
   VIPRIME
  CALL
   PERIAPO1
  CALL
    CALL LIMIT  TO 9999. . .
 CALL  
   MAXCHK
  STORE
 E
   CAFV06N81 
   VNPOOH
 LIMIT  TO 999.MIjava.lang.StringIndexOutOfBoundsException: Index 41 out of bounds for length 41
MAXCHK
  STORE# *** END OF LEMP30S .103 ***
  EXIT
  CAF V06N81  # DELVLVC
  TC VNPOOH
  CAF V06N42  # HAPO, HPER, VGDISP
  TC VNPOOH
  TC INTPRET
REVN1645 SET CALL  # TRKMKCNT, TTOGO, +MGA
   FINALFLG
   VN1645
  GOTO
   REVN1645


# *** END OF LEMP30S .103 ***