missing Luminary099 files retrieved from virtualagc at https://github.com/rburkey2005/virtualagc/tree/master/Luminary099
This commit is contained in:
Gary Young
267
Luminary099/R31.agc
Normal file
267
Luminary099/R31.agc
Normal file
@ -0,0 +1,267 @@
|
||||
# Copyright: Public domain.
|
||||
# Filename: R31.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: 703-708
|
||||
# Mod history: 2009-05-19 RSB Adapted from the corresponding
|
||||
# Luminary131 file, using page
|
||||
# images from Luminary 1A.
|
||||
#
|
||||
# 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-61
|
||||
# 16:27 JULY 14, 1969
|
||||
|
||||
# Page 703
|
||||
BANK 40
|
||||
SETLOC R31LOC
|
||||
BANK
|
||||
|
||||
COUNT* $$/R31
|
||||
|
||||
R31CALL CAF PRIO3
|
||||
TC FINDVAC
|
||||
EBANK= SUBEXIT
|
||||
2CADR V83CALL
|
||||
|
||||
DSPDELAY TC FIXDELAY
|
||||
DEC 100
|
||||
CA EXTVBACT
|
||||
MASK BIT12
|
||||
EXTEND
|
||||
BZF DSPDELAY
|
||||
|
||||
CAF PRIO5
|
||||
TC NOVAC
|
||||
EBANK= TSTRT
|
||||
2CADR DISPN5X
|
||||
|
||||
TCF TASKOVER
|
||||
|
||||
BANK 37
|
||||
SETLOC R31
|
||||
BANK
|
||||
COUNT* $$/R31
|
||||
|
||||
DISPN5X CAF V16N54
|
||||
TC BANKCALL
|
||||
CADR GOMARKF
|
||||
TC B5OFF
|
||||
TC B5OFF
|
||||
TCF DISPN5X
|
||||
|
||||
V83CALL CS FLAGWRD7 # TEST AVERAGE G FLAG
|
||||
MASK AVEGFBIT
|
||||
EXTEND
|
||||
BZF MUNG? # ON. TEST MUNFLAG
|
||||
|
||||
CS FLAGWRD8
|
||||
MASK SURFFBIT
|
||||
EXTEND
|
||||
BZF ONEBASE # ON SURFACE -- BYPASS LEMPREC
|
||||
|
||||
TC INTPRET # EXTRAPOLATE BOTH STATE VECTORS
|
||||
RTB
|
||||
# Page 704
|
||||
LOADTIME
|
||||
STCALL TDEC1
|
||||
LEMPREC # PRECISION BASE VECTOR FOR LM
|
||||
VLOAD
|
||||
RATT1
|
||||
STOVL BASETHP
|
||||
VATT1
|
||||
STODL BASETHV
|
||||
TAT
|
||||
DOCMBASE STORE BASETIME # PRECISION BASE VECTOR FOR CM
|
||||
STCALL TDEC1
|
||||
CSMPREC
|
||||
VLOAD
|
||||
RATT1
|
||||
STOVL BASEOTP
|
||||
VATT1
|
||||
STORE BASEOTV
|
||||
EXIT
|
||||
|
||||
REV83 CS FLAGWRD7
|
||||
MASK AVEGFBIT
|
||||
EXTEND
|
||||
BZF GETRVN # IF AVEGFLAG SET, USE RN,VN
|
||||
|
||||
CS FLAGWRD8
|
||||
MASK SURFFBIT
|
||||
EXTEND
|
||||
BZF R31SURF # IF ON SURFACE, USE LEMAREC
|
||||
|
||||
TC INTPRET # DO CONIC EXTRAPOLATION FOR BOTH VEHICLES
|
||||
RTB
|
||||
LOADTIME
|
||||
STCALL TDEC1
|
||||
INTSTALL
|
||||
VLOAD CLEAR
|
||||
BASETHP
|
||||
MOONFLAG
|
||||
STOVL RCV
|
||||
BASETHV
|
||||
STODL VCV
|
||||
BASETIME
|
||||
BOF SET # GET APPROPRIATE MOONFLAG SETTING
|
||||
MOONTHIS
|
||||
+2
|
||||
MOONFLAG
|
||||
SET
|
||||
INTYPFLG # CONIC EXTRAP.
|
||||
STCALL TET
|
||||
INTEGRVS # INTEGRATION --- AT LAST ---
|
||||
OTHCONIC VLOAD
|
||||
# Page 705
|
||||
RATT
|
||||
STOVL RONE
|
||||
VATT
|
||||
STCALL VONE # GET SET FOR CONIC EXTRAP., OTHER.
|
||||
INTSTALL
|
||||
SET DLOAD
|
||||
INTYPFLG
|
||||
TAT
|
||||
OTHINT STORE TDEC1
|
||||
VLOAD CLEAR
|
||||
BASEOTP
|
||||
MOONFLAG
|
||||
STOVL RCV
|
||||
BASEOTV
|
||||
STODL VCV
|
||||
BASETIME
|
||||
BOF SET
|
||||
MOONTHIS
|
||||
+2
|
||||
MOONFLAG
|
||||
STCALL TET
|
||||
INTEGRVS
|
||||
COMPDISP VLOAD VSU
|
||||
RATT
|
||||
RONE
|
||||
RTB PDDL
|
||||
NORMUNX1 # UNIT(RANGE) TO PD 0-5
|
||||
36D
|
||||
SL* # RESCALE AFTER NORMUNIT
|
||||
0,1
|
||||
STOVL RANGE # SCALED 2(29)M
|
||||
VATT
|
||||
VSU DOT # (VCM-VLM).UNIT(LOS), PD=0
|
||||
VONE
|
||||
SL1 # SCALED 2(7)M/CS
|
||||
STOVL RRATE
|
||||
RONE
|
||||
UNIT PDVL # UNIT(R) TO PD 0-5
|
||||
UNITZ
|
||||
CALL
|
||||
CDU*NBSM
|
||||
VXM PUSH # UNIT(Z)/4 TO PD 6-11
|
||||
REFSMMAT
|
||||
VPROJ VSL2 # UNIT(P)=UNIT(UZ-(UZ)PROJ(UR))
|
||||
0D
|
||||
BVSU UNIT
|
||||
6D
|
||||
PDVL VXV # UNIT(P) TO PD 12-17
|
||||
0D # UNIT(RL)
|
||||
VONE
|
||||
# Page 706
|
||||
VXV DOT # (UR * VL) * UR . U(P)
|
||||
0D
|
||||
12D
|
||||
PDVL # SIGN TO 12-13, LOAD U(P)
|
||||
DOT SIGN
|
||||
6D
|
||||
12D
|
||||
SL2 ACOS # ARCCOS(UP.UZ(SIGN))
|
||||
STOVL RTHETA
|
||||
0D
|
||||
DOT BPL # IF UR.UZ NEG,
|
||||
6D # RTHETA = 1 - RTHETA
|
||||
+5
|
||||
DLOAD DSU
|
||||
DPPOSMAX
|
||||
RTHETA
|
||||
STORE RTHETA
|
||||
EXIT
|
||||
|
||||
CA BIT5
|
||||
MASK EXTVBACT
|
||||
EXTEND # IF ANSWERED,
|
||||
BZF ENDEXT # TERMINATE
|
||||
|
||||
CS EXTVBACT
|
||||
MASK BIT12
|
||||
ADS EXTVBACT # SET BIT 12
|
||||
TCF REV83 # AND START AGAIN.
|
||||
|
||||
GETRVN CA PRIO22 # INHIBIT SERVICER
|
||||
TC PRIOCHNG
|
||||
TC INTPRET
|
||||
VLOAD SETPD
|
||||
RN # LM STATE VECTOR IN RN,VN.
|
||||
0
|
||||
STOVL RONE
|
||||
VN
|
||||
STOVL VONE # LOAD R(CSM),V(CSM) IN CASE MUNFLAG SET
|
||||
V(CSM) # (TO INSURE TIME COMPATIBILITY)
|
||||
PDVL PDDL
|
||||
R(CSM)
|
||||
PIPTIME
|
||||
EXIT
|
||||
CA PRIO3
|
||||
TC PRIOCHNG
|
||||
TC INTPRET
|
||||
BOFF VLOAD
|
||||
MUNFLAG
|
||||
GETRVN2 # IF MUNFLAG RESET, DO CM DELTA PRECISION
|
||||
# Page 707
|
||||
VXM VSR4 # CHANGE TO REFERENCE SYSTEM AND RESCALE
|
||||
REFSMMAT
|
||||
PDVL # R TO PD 0-5
|
||||
VXM VSL1
|
||||
REFSMMAT
|
||||
PUSH SETPD # V TO PD 5-11
|
||||
0
|
||||
GOTO
|
||||
COMPDISP
|
||||
|
||||
GETRVN2 CALL
|
||||
INTSTALL
|
||||
CLEAR GOTO
|
||||
INTYPFLG # PREC EXTRAP FOR OTHER
|
||||
OTHINT
|
||||
R31SURF TC INTPRET
|
||||
RTB # LM IS ON SURFACE, SO PRECISION
|
||||
LOADTIME # INTEGRATION USED PLANETARY INERTIAL
|
||||
STCALL TDEC1 # ORIENTATION SUBROUTINE
|
||||
LEMPREC
|
||||
GOTO # DO CSM CONIC
|
||||
OTHCONIC
|
||||
MUNG? CS FLAGWRD6
|
||||
MASK MUNFLBIT
|
||||
EXTEND
|
||||
BZF GETRVN # IF MUNFLAG SET, CSM BASE NOT NEEDED
|
||||
|
||||
ONEBASE TC INTPRET # GET CSM BASE VECTOR
|
||||
RTB GOTO
|
||||
LOADTIME
|
||||
DOCMBASE
|
||||
|
||||
V16N54 VN 1654
|
||||
|
||||
# Page 708 (empty page)
|
||||
|
||||
Reference in New Issue
Block a user