2016-07-07 08:47:26 +00:00
|
|
|
# Copyright: Public domain.
|
|
|
|
# Filename: P30_P37.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: 614-617
|
2016-12-28 16:11:25 +00:00
|
|
|
# Mod history: 2009-05-17 RSB Adapted from the corresponding
|
|
|
|
# Luminary131 file, using page
|
2016-07-07 08:47:26 +00:00
|
|
|
# images from Luminary 1A.
|
|
|
|
# 2009-06-05 RSB Removed 4 lines of code that shouldn't
|
|
|
|
# have survived from Luminary 131.
|
|
|
|
#
|
|
|
|
# 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:
|
|
|
|
#
|
2020-08-04 01:09:29 +00:00
|
|
|
# Assemble revision 001 of AGC program LMY99 by NASA 2021112-061
|
2016-12-28 16:11:25 +00:00
|
|
|
# 16:27 JULY 14, 1969
|
2016-07-07 08:47:26 +00:00
|
|
|
|
|
|
|
# Page 614
|
|
|
|
# PROGRAM DESCRIPTION P30 DATE 3-6-67
|
|
|
|
#
|
|
|
|
# MOD.1 BY RAMA AIYAWAR
|
2021-01-06 19:32:24 +00:00
|
|
|
# FUNCTIONAL DESCRIPTION
|
|
|
|
# ACCEPT ASTRONAUT INPUTS OF TIG.DELV(LV)
|
2016-07-07 08:47:26 +00:00
|
|
|
# CALL IMU STATUS CHECK ROUTINE (R02)
|
|
|
|
# DISPLAY TIME TO GO, APOGEE, PERIGEE, DELV(MAG), MGA AT IGN
|
|
|
|
# REQUEST BURN PROGRAM
|
|
|
|
#
|
|
|
|
# CALLING SEQUENCE VIA JOB FROM V37
|
|
|
|
#
|
2020-03-04 17:17:16 +00:00
|
|
|
# EXIT VIA V37 CALL OR TO GOTOPOOH (V34E)
|
2016-07-07 08:47:26 +00:00
|
|
|
#
|
2021-01-06 19:32:24 +00:00
|
|
|
# SUBROUTINE CALLS-FLAGUP, PHASCHNG, BANKCALL, ENDOFJOB, GOFLASH, GOFLASHR
|
|
|
|
# GOPERF3R, INTPRET, BLANKET, GOTOPOOH, R02BOTH, S30.1,
|
|
|
|
# TIG/N35, MIDGIM, DISPMGA
|
2016-07-07 08:47:26 +00:00
|
|
|
#
|
2021-01-06 19:32:24 +00:00
|
|
|
# ERASABLE INITIALIZATION- STATE VECTOR
|
2016-07-07 08:47:26 +00:00
|
|
|
#
|
2021-01-06 19:32:24 +00:00
|
|
|
# OUTPUT-RINIT, VINIT, +MGA, VTIG, RTIG, DELVSIN, DELVSAB, DELVSLV, HAPO,
|
|
|
|
# HPER, TTOGO
|
2016-07-07 08:47:26 +00:00
|
|
|
#
|
2021-01-06 19:32:24 +00:00
|
|
|
# DEBRIS- A,L, MPAC, PUSHLIST
|
2016-07-07 08:47:26 +00:00
|
|
|
|
|
|
|
BANK 32
|
|
|
|
SETLOC P30S
|
|
|
|
BANK
|
|
|
|
EBANK= +MGA
|
|
|
|
COUNT* $$/P30
|
|
|
|
P30 TC UPFLAG # SET UPDATE FLAG
|
|
|
|
ADRES UPDATFLG
|
|
|
|
TC UPFLAG # SET TRACK FLAG
|
|
|
|
ADRES TRACKFLG
|
2016-12-28 16:11:25 +00:00
|
|
|
|
2016-07-07 08:47:26 +00:00
|
|
|
P30N33 CAF V06N33 # T OF IGN
|
2021-01-06 19:32:24 +00:00
|
|
|
TC VNPOOH # RETURNS ON PROCEED, POOH ON TERMINATE
|
2016-12-28 16:11:25 +00:00
|
|
|
|
2016-07-07 08:47:26 +00:00
|
|
|
CAF V06N81 # DISPLAY DELTA V (LV)
|
2021-01-06 19:32:24 +00:00
|
|
|
TC VNPOOH # REDISPLAY ON RECYCLE
|
2016-12-28 16:11:25 +00:00
|
|
|
|
2016-07-07 08:47:26 +00:00
|
|
|
TC DOWNFLAG # RESET UPDATE FLAG
|
|
|
|
ADRES UPDATFLG
|
|
|
|
TC INTPRET
|
|
|
|
CALL
|
|
|
|
S30.1
|
|
|
|
SET EXIT
|
|
|
|
UPDATFLG
|
2021-01-06 19:32:24 +00:00
|
|
|
PARAM30 CAF V06N42 # DISPLAY APOGEE,PERIGEE ,DELTA V
|
|
|
|
TC VNPOOH
|
2016-12-28 16:11:25 +00:00
|
|
|
# Page 615
|
|
|
|
|
2016-07-07 08:47:26 +00:00
|
|
|
TC INTPRET
|
|
|
|
SETGO
|
|
|
|
XDELVFLG # FOR P40'S: EXTERNAL DELTA-V GUIDANCE.
|
|
|
|
REVN1645 # TRKMKCNT, T60, +MGA DISPLAY
|
2016-12-28 16:11:25 +00:00
|
|
|
|
2016-07-07 08:47:26 +00:00
|
|
|
V06N33 VN 0633
|
|
|
|
V06N42 VN 0642
|
|
|
|
|
|
|
|
# Page 616
|
2016-07-08 10:45:31 +00:00
|
|
|
# PROGRAM DESCRIPTION S30.1 DATE 9NOV66
|
2016-07-07 08:47:26 +00:00
|
|
|
# MOD NO 1 LOG SECTION P30,P37
|
|
|
|
# MOD BY RAMA AIYAWAR **
|
|
|
|
# FUNCTIONAL DESCRIPTION
|
2021-01-06 19:32:24 +00:00
|
|
|
# BASED ON STORED TARGET PARAMETERS(R OF IGNITION(RTIG),V OF
|
|
|
|
# IGNITION(VTIG),TIME OF IGNITION (TIG)),COMPUTE PERIGEE ALTITUDE
|
|
|
|
# APOGEE ALTITUDE AND DELTAV REQUIRED(DELVSIN).
|
2016-07-07 08:47:26 +00:00
|
|
|
# CALLING SEQUENCE
|
|
|
|
# L CALL
|
|
|
|
# L+1 s30.1
|
|
|
|
# NORMAL EXIT MODE
|
|
|
|
# AT L+2 OR CALLING SEQUENCE (GOTO L+2)
|
|
|
|
# SUBROUTINES CALLED
|
|
|
|
# LEMPREC
|
|
|
|
# PERIAPO
|
|
|
|
# ALARM OR ABORT EXIT MODES
|
|
|
|
# NONE
|
|
|
|
# ERASABLE INITIALIZATION REQUIRED
|
|
|
|
# TIG TIME OF IGNITION DP B28CS
|
|
|
|
# DELVSLV SPECIFIED DELTA-V IN LOCAL VERT.
|
|
|
|
# COORDS. OF ACTIVE VEHICLE AT
|
2021-01-06 19:32:24 +00:00
|
|
|
# TIME OF IGNITION VECTOR B+7 METERS/CS
|
2016-07-07 08:47:26 +00:00
|
|
|
#
|
|
|
|
# OUTPUT
|
2021-01-06 19:32:24 +00:00
|
|
|
# RTIG POSITION AT TIG VECTOR B+29 METERS
|
|
|
|
# VTIG VELOCITY AT TIG VECTOR B+29 METERS/CS
|
|
|
|
# PDL 4D APOGEE ALTITUDE DP B+29 M , B+27 METERS.
|
|
|
|
# HAPO APOGEE ALTITUDE DP B+29 METERS
|
|
|
|
# PDL 8D PERIGEE ALTITUDE DP B+29 M , B+27 METERS.
|
|
|
|
# HPER PERIGEE ALTITUDE DP B+29 METERS
|
2016-07-07 08:47:26 +00:00
|
|
|
# DELVSIN SPECIFIED DELTA-V IN INTERTIAL
|
|
|
|
# COORD. OF ACTIVE VEHICLE AT
|
2021-01-06 19:32:24 +00:00
|
|
|
# TIME OF IGNITION VECTOR B+7 METERS/CS
|
|
|
|
# DELVSAB MAG. OF DELVSIN VECTOR B+7 METERS/CS
|
2016-07-07 08:47:26 +00:00
|
|
|
#
|
2021-01-06 19:32:24 +00:00
|
|
|
# DEBRIS QTEMP TEMP. ERASABLE
|
|
|
|
# QPRET,MPAC
|
2016-07-07 08:47:26 +00:00
|
|
|
# PUSHLIST
|
|
|
|
|
|
|
|
SETLOC P30S1
|
|
|
|
BANK
|
2016-12-28 16:11:25 +00:00
|
|
|
|
2016-07-07 08:47:26 +00:00
|
|
|
COUNT* $$/S30S
|
2016-12-28 16:11:25 +00:00
|
|
|
|
2016-07-07 08:47:26 +00:00
|
|
|
S30.1 STQ DLOAD
|
|
|
|
QTEMP
|
|
|
|
TIG # TIME IGNITION SCALED AT 2(+28)CS
|
|
|
|
STCALL TDEC1
|
|
|
|
LEMPREC # ENCKE ROUTINE FOR LEM
|
2016-12-28 16:11:25 +00:00
|
|
|
|
2016-07-07 08:47:26 +00:00
|
|
|
VLOAD SXA,2
|
|
|
|
# Page 617
|
|
|
|
RATT
|
|
|
|
RTX2
|
|
|
|
STORE RTIG # RADIUS VECTOR AT IGNITION TIME
|
|
|
|
UNIT VCOMP
|
|
|
|
STOVL DELVSIN # ZRF/LV IN DELVSIN SCALED AT 2
|
|
|
|
VATT # VELOCITY VECTOR AT TIG, SCALED 2(7) M/CS
|
|
|
|
STORE VTIG
|
|
|
|
VXV UNIT
|
|
|
|
RTIG
|
|
|
|
SETPD SXA,1
|
|
|
|
0
|
|
|
|
RTX1
|
2021-01-06 19:32:24 +00:00
|
|
|
PUSH VXV # YRF/LV PDL 0 SCALED AT 2
|
2016-07-07 08:47:26 +00:00
|
|
|
DELVSIN
|
|
|
|
VSL1 PDVL
|
|
|
|
PDVL PDVL # YRF/LV PDL 6 SCALED AT 2
|
|
|
|
DELVSIN # ZRF/LV PDL 12D SCALED AT 2
|
|
|
|
DELVSLV
|
|
|
|
VXM VSL1
|
|
|
|
0
|
|
|
|
STORE DELVSIN # DELTAV IN INERT. COOR. SCALED TO B+7M/CS
|
|
|
|
ABVAL
|
|
|
|
STOVL DELVSAB # DELTA V MAG.
|
|
|
|
RTIG # (FOR PERIAPO)
|
|
|
|
PDVL VAD # VREQUIRED = VTIG + DELVSIN (FOR PERIAPO)
|
|
|
|
VTIG
|
|
|
|
DELVSIN
|
|
|
|
CALL
|
|
|
|
PERIAPO1
|
|
|
|
CALL
|
|
|
|
SHIFTR1 # RESCALE IF NEEDED
|
|
|
|
CALL # LIMIT DISPLAY TO 9999.9 N. MI.
|
|
|
|
MAXCHK
|
2021-01-06 19:32:24 +00:00
|
|
|
STODL HPER # PERIGEE ALT 2(29) METERS, FOR DISPLAY
|
2016-07-07 08:47:26 +00:00
|
|
|
4D
|
|
|
|
CALL
|
|
|
|
SHIFTR1 # RESCALE IF NEEDED
|
|
|
|
CALL # LIMIT DISPLAY TO 9999.9 N. MI.
|
|
|
|
MAXCHK
|
2021-01-06 19:32:24 +00:00
|
|
|
STCALL HAPO # APOGEE ALT 2(29) METERS, FOR DISPLAY
|
2016-07-07 08:47:26 +00:00
|
|
|
QTEMP
|
2016-12-28 16:11:25 +00:00
|
|
|
|