missing Luminary099 files retrieved from virtualagc at https://github.com/rburkey2005/virtualagc/tree/master/Luminary099
This commit is contained in:
parent
dcff8992a1
commit
a57cd3faa5
251
Luminary099/ALARM_AND_ABORT.agc
Normal file
251
Luminary099/ALARM_AND_ABORT.agc
Normal file
@ -0,0 +1,251 @@
|
||||
# Copyright: Public domain.
|
||||
# Filename: ALARM_AND_ABORT.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: 1381-1385
|
||||
# Mod history: 2009-05-10 SN (Sergio Navarro). Started adapting
|
||||
# from the Luminary131/ file of the same
|
||||
# name, using Luminary099 page images.
|
||||
# 2009-06-05 RSB Fixed a type.
|
||||
# 2011-01-06 JL Fixed pseudo-label indentation.
|
||||
#
|
||||
# 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 1381
|
||||
# THE FOLLOWING SUBROUTINE MAY BE CALLED TO DISPLAY A NON-ABORTIVE ALARM CONDITION. IT MAY BE CALLED
|
||||
# EITHER IN INTERRUPT OR UNDER EXECUTIVE CONTROL.
|
||||
#
|
||||
# CALLING SEQUENCE IS AS FOLLOWS:
|
||||
# TC ALARM
|
||||
# OCT AAANN # ALARM NO. NN IN GENERAL AREA AAA.
|
||||
# # (RETURNS HERE)
|
||||
|
||||
BLOCK 02
|
||||
SETLOC FFTAG7
|
||||
BANK
|
||||
|
||||
EBANK= FAILREG
|
||||
|
||||
COUNT* $$/ALARM
|
||||
|
||||
# ALARM TURNS ON THE PROGRAM ALARM LIGHT, BUT DOES NOT DISPLAY.
|
||||
|
||||
ALARM INHINT
|
||||
|
||||
CA Q
|
||||
ALARM2 TS ALMCADR
|
||||
INDEX Q
|
||||
CA 0
|
||||
BORTENT TS L
|
||||
|
||||
PRIOENT CA BBANK
|
||||
+1 EXTEND
|
||||
ROR SUPERBNK # ADD SUPER BITS.
|
||||
TS ALMCADR +1
|
||||
|
||||
LARMENT CA Q # STORE RETURN FOR ALARM
|
||||
TS ITEMP1
|
||||
|
||||
CHKFAIL1 CCS FAILREG # IS ANYTHING IN FAILREG
|
||||
TCF CHKFAIL2 # YES TRY NEXT REG
|
||||
LXCH FAILREG
|
||||
TCF PROGLARM # TURN ALARM LIGHT ON FOR FIRST ALARM
|
||||
|
||||
CHKFAIL2 CCS FAILREG +1
|
||||
TCF FAIL3
|
||||
LXCH FAILREG +1
|
||||
TCF MULTEXIT
|
||||
|
||||
FAIL3 CA FAILREG +2
|
||||
MASK POSMAX
|
||||
CCS A
|
||||
TCF MULTFAIL
|
||||
LXCH FAILREG +2
|
||||
TCF MULTEXIT
|
||||
|
||||
# Page 1382
|
||||
|
||||
PROGLARM CS DSPTAB +11D
|
||||
MASK OCT40400
|
||||
ADS DSPTAB +11D
|
||||
|
||||
|
||||
MULTEXIT XCH ITEMP1 # OBTAIN RETURN ADDRESS IN A
|
||||
RELINT
|
||||
INDEX A
|
||||
TC 1
|
||||
|
||||
MULTFAIL CA L
|
||||
AD BIT15
|
||||
TS FAILREG +2
|
||||
|
||||
TCF MULTEXIT
|
||||
|
||||
# PRIOLARM DISPLAYS V05N09 VIA PRIODSPR WITH 3 RETURNS TO THE USER FROM THE ASTRONAUT AT CALL LOC +1,+2,+3 AND
|
||||
# AN IMMEDIATE RETURN TO THE USER AT CALL LOC +4. EXAMPLE FOLLOWS,
|
||||
# CAF OCTXX # ALARM CODE
|
||||
# TC BANKCALL
|
||||
# CADR PRIOLARM
|
||||
# ... ...
|
||||
# ... ...
|
||||
# ... ... # ASTRONAUT RETURN
|
||||
# TC PHASCHNG # IMMEDIATE RETURN TO USER. RESTART
|
||||
# OCT X.1 # PHASE CHANGE FOR PRIO DISPLAY
|
||||
|
||||
BANK 10
|
||||
SETLOC DISPLAYS
|
||||
BANK
|
||||
|
||||
COUNT* $$/DSPLA
|
||||
PRIOLARM INHINT # * * * KEEP IN DISPLAY ROUTINES BANK
|
||||
TS L # SAVE ALARM CODE
|
||||
|
||||
CA BUF2 # 2 CADR OF PRIOLARM USER
|
||||
TS ALMCADR
|
||||
CA BUF2 +1
|
||||
TC PRIOENT +1 # * LEAVE L ALONE
|
||||
-2SEC DEC -200 # *** DONT MOVE
|
||||
CAF V05N09
|
||||
TCF PRIODSPR
|
||||
|
||||
BLOCK 02
|
||||
SETLOC FFTAG7
|
||||
BANK
|
||||
|
||||
COUNT* $$/ALARM
|
||||
BAILOUT INHINT
|
||||
CA Q
|
||||
# Page 1383
|
||||
TS ALMCADR
|
||||
|
||||
INDEX Q
|
||||
CAF 0
|
||||
TC BORTENT
|
||||
OCT40400 OCT 40400
|
||||
|
||||
INHINT
|
||||
WHIMPER CA TWO
|
||||
AD Z
|
||||
TS BRUPT
|
||||
RESUME
|
||||
TC POSTJUMP # RESUME SENDS CONTROL HERE
|
||||
CADR ENEMA
|
||||
P00DOO INHINT
|
||||
CA Q
|
||||
ABORT2 TS ALMCADR
|
||||
INDEX Q
|
||||
CAF 0
|
||||
TC BORTENT
|
||||
OCT77770 OCT 77770 # DON'T MOVE
|
||||
|
||||
CAF OCT35 # 4.35SPOT FOR GOP00DOO
|
||||
TS L
|
||||
COM
|
||||
DXCH -PHASE4
|
||||
GOP00DOO INHINT
|
||||
TC BANKCALL # RESET STATEFLG, REINTFLG, AND NODOFLAG.
|
||||
CADR FLAGS
|
||||
CA FLAGWRD7 # IS SERVICER CURRENTLY IN OPERATION?
|
||||
MASK V37FLBIT
|
||||
CCS A
|
||||
TCF STRTIDLE
|
||||
TC BANKCALL # TERMINATE GRPS 1, 3, 5, AND 6
|
||||
CADR V37KLEAN
|
||||
TC BANKCALL # TERMINATE GRPS 2, 4, 1, 3, 5, AND 6
|
||||
CADR MR.KLEAN # (I.E., GRP 4 LAST)
|
||||
TCF WHIMPER
|
||||
STRTIDLE CAF BBSERVDL
|
||||
TC SUPERSW
|
||||
TC BANKCALL # PUT SERVICER INTO ITS "GROUND" STATE
|
||||
CADR SERVIDLE # AND PROCED TO GOTOP00H.
|
||||
CCSHOLE INHINT
|
||||
CA Q
|
||||
TC ABORT2
|
||||
OCT21103 OCT 1103
|
||||
CURTAINS INHINT
|
||||
CA Q
|
||||
TC ALARM2
|
||||
OCT217 OCT 00217
|
||||
# Page 1384
|
||||
TC ALMCADR # RETURN TO USER
|
||||
|
||||
BAILOUT1 INHINT
|
||||
DXCH ALMCADR
|
||||
CAF ADR40400
|
||||
BOTHABRT TS ITEMP1
|
||||
INDEX Q
|
||||
CAF 0
|
||||
TS L
|
||||
TCF CHKFAIL1
|
||||
P00DOO1 INHINT
|
||||
DXCH ALMCADR
|
||||
CAF ADR77770
|
||||
TCF BOTHABRT
|
||||
|
||||
ALARM1 INHINT
|
||||
DXCH ALMCADR
|
||||
ALMNCADR INHINT
|
||||
INDEX Q
|
||||
CA 0
|
||||
TS L
|
||||
TCF LARMENT
|
||||
|
||||
ADR77770 TCF OCT77770
|
||||
ADR40400 TCF OCT40400
|
||||
DOALARM EQUALS ENDOFJOB
|
||||
EBANK= DVCNTR
|
||||
BBSERVDL BBCON SERVIDLE
|
||||
|
||||
# CALLING SEQUENCE FOR VARALARM
|
||||
# CAF (ALARM)
|
||||
# TC VARALARM
|
||||
#
|
||||
# VARALARM TURNS ON PROGRAM ALARM LIGHT BUT DOES NOT DISPLAY
|
||||
|
||||
VARALARM INHINT
|
||||
|
||||
TS L # SAVE USER'S ALARM CODE
|
||||
|
||||
CA Q # SAVE USERS Q
|
||||
TS ALMCADR
|
||||
|
||||
TC PRIOENT
|
||||
OCT14 OCT 14 # DONT MOVE
|
||||
|
||||
TC ALMCADR # RETURN TO USER
|
||||
|
||||
ABORT EQUALS WHIMPER
|
||||
BANK 13
|
||||
SETLOC ABTFLGS
|
||||
BANK
|
||||
# Page 1385
|
||||
COUNT* $$/ALARM
|
||||
|
||||
FLAGS CS STATEBIT
|
||||
MASK FLAGWRD3
|
||||
TS FLAGWRD3
|
||||
CS REINTBIT
|
||||
MASK FLGWRD10
|
||||
TS FLGWRD10
|
||||
CS NODOBIT
|
||||
MASK FLAGWRD2
|
||||
TS FLAGWRD2
|
||||
TC Q
|
||||
|
1069
Luminary099/ASSEMBLY_AND_OPERATION_INFORMATION.agc
Normal file
1069
Luminary099/ASSEMBLY_AND_OPERATION_INFORMATION.agc
Normal file
File diff suppressed because it is too large
Load Diff
1864
Luminary099/CONIC_SUBROUTINES.agc
Normal file
1864
Luminary099/CONIC_SUBROUTINES.agc
Normal file
File diff suppressed because it is too large
Load Diff
42
Luminary099/CONTRACT_AND_APPROVALS.agc
Normal file
42
Luminary099/CONTRACT_AND_APPROVALS.agc
Normal file
@ -0,0 +1,42 @@
|
||||
# Copyright: Public domain.
|
||||
# Filename: CONTRACT_AND_APPROVALS.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.
|
||||
# Mod history: 2009-05-06 RSB Transcribed from page images.
|
||||
#
|
||||
# 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 1
|
||||
|
||||
# THIS LGC PROGRAM IS INTENDED FOR USE IN THE LM DURING THE MANNED LUNAR
|
||||
# LANDING MISSION OR ANY SUBSET THEREOF. THE DETAILS OF IMPLEMENTATION ARE
|
||||
# SPECIFIED IN REPORT R-567, AS AMENDED.
|
||||
#
|
||||
# GUIDANCE SYSTEM OPERATIONS PLAN
|
||||
# FOR MANNED LM EARTH ORBITAL AND LUNAR MISSIONS
|
||||
# USING PROGRAM LUMINARY
|
||||
#
|
||||
# THIS PROGRAM AND R-567 HAVE BEEN PREPARED BY THE INSTRUMENTATION LABORATORY,
|
||||
# MASSACHUSETTS INSTITUTE OF TECHNOLOGY 75 CAMBRIDGE PARKWAY, CAMBRIDGE,
|
||||
# MASSACHUSETTS UNDER PROJECT 55-238-70. SPONSORED BY THE MANNED SPACECRAFT
|
||||
# CENTER OF THE NATIONAL AERONAUTICS AND SPACE ADMINISTRATION, CONTRACT
|
||||
# NAS 9-4065.
|
||||
#
|
||||
# THIS PROGRAM IS REFERRED TO AS LUMINARY 1A
|
||||
|
1459
Luminary099/DISPLAY_INTERFACE_ROUTINES.agc
Normal file
1459
Luminary099/DISPLAY_INTERFACE_ROUTINES.agc
Normal file
File diff suppressed because it is too large
Load Diff
430
Luminary099/DOWNLINK_LISTS.agc
Normal file
430
Luminary099/DOWNLINK_LISTS.agc
Normal file
@ -0,0 +1,430 @@
|
||||
# Copyright: Public domain.
|
||||
# Filename: DOWNLINK_LISTS.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: Hartmuth Gutsche <hgutsche@xplornet.com>.
|
||||
# Website: www.ibiblio.org/apollo.
|
||||
# Pages: 193-205
|
||||
# Mod history: 2009-05-19 HG Transcribed from page images.
|
||||
#
|
||||
# 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 193
|
||||
BANK 22
|
||||
SETLOC DOWNTELM
|
||||
BANK
|
||||
|
||||
EBANK= DNTMBUFF
|
||||
|
||||
# SPECIAL DOWNLINK OP CODES
|
||||
# OP CODE ADDRESS (EXAMPLE) SENDS... BIT 15 BITS 14-12 BITS 11-0
|
||||
# ------- ----------------- -------- ------ ---------- ---------
|
||||
# 1DNADR TIME2 (2 AGC WDS) 0 0 ECADR
|
||||
# 2DNADR TEPHEM (4 AGC WDS) 0 1 ECADR
|
||||
# 3DNADR VGBODY (6 AGC WDS) 0 2 ECADR
|
||||
# 4DNADR STATE (8 AGC WDS) 0 3 ECADR
|
||||
# 5DNADR UPBUFF (10 AGC WDS) 0 4 ECADR
|
||||
# 6DNADR DSPTAB (12 AGC WDS) 0 5 ECADR
|
||||
# DNCHAN 30 CHANNELS 0 7 CHANNEL
|
||||
# ADDRESS
|
||||
# DNPTR NEXTLIST POINTS TO NEXT 0 6 ADRES
|
||||
# LIST
|
||||
#
|
||||
# DOWNLIST FORMAT DEFINITIONS AND RULES --
|
||||
# 1. END OF A LIST = -XDNADR (X = 1 TO 6), -DNPTR, OR -DNCHAN.
|
||||
# 2. SNAPSHOT SUBLIST = LIST WHICH STARTS WITH A -1DNADR.
|
||||
# 3. SNAPSHOT SUBLIST CAN ONLY CONTAIN 1DNADRS.
|
||||
# 4. TIME2 1DNADR MUST BE LOCATED IN THE CONTROL LIST OF A DOWNLIST.
|
||||
# 5. ERASABLE DOWN TELEMETRY WORDS SHOULD BE GROUPED IN SEQUENTIAL
|
||||
# LOCATIONS AS MUCH AS POSSIBLE TO SAVE STORAGE USED BY DOWNLINK LISTS.
|
||||
|
||||
COUNT* $$/DLIST
|
||||
ERASZERO EQUALS 7
|
||||
UNKNOWN EQUALS ERASZERO
|
||||
SPARE EQUALS ERASZERO # USE SPARE TO INDICATE AVAILABLE SPACE
|
||||
LOWIDCOD OCT 77340 # LOW ID CODE
|
||||
|
||||
NOMDNLST EQUALS LMCSTADL # FRESH START AND POST P27 DOWNLIST
|
||||
|
||||
AGSLIST EQUALS LMAGSIDL
|
||||
|
||||
UPDNLIST EQUALS LMAGSIDL # UPDATE PROGRAM (P27) DOWNLIST
|
||||
|
||||
# Page 194
|
||||
# LM ORBITAL MANEUVERS LIST
|
||||
#
|
||||
# --------------------- CONTROL LIST -------------------------
|
||||
|
||||
LMORBMDL EQUALS # SEND ID BY SPECIAL CODING
|
||||
DNPTR LMORBM01 # COLLECT SNAPSHOT
|
||||
6DNADR DNTMBUFF # SEND SNAPSHOT
|
||||
1DNADR DELLT4 # DELLT4,+1
|
||||
3DNADR RTARG # RTARG,+1...+5
|
||||
1DNADR ELEV # ELEV,+1
|
||||
1DNADR TEVENT # TEVENT,+1
|
||||
6DNADR REFSMMAT # REFSMMAT +0...+11D
|
||||
1DNADR TCSI # TCSI,+1
|
||||
3DNADR DELVEET1 # DELVEET1 +0...+5
|
||||
3DNADR VGTIG # VGTIG +0...+5
|
||||
1DNADR DNLRVELZ # DNLRVELZ,DNLRALT
|
||||
1DNADR TPASS4 # TPASS4,+1
|
||||
DNPTR LMORBM02 # COMMON DATA
|
||||
1DNADR TIME2 # TIME2/1
|
||||
DNPTR LMORBM03 # COLLECT SNAPSHOT
|
||||
6DNADR DNTMBUFF # SEND SNAPSHOT
|
||||
DNPTR LMORBM04 # COMMON DATA
|
||||
2DNADR POSTORKU # POSTORKU,NEGTORKU,POSTORKV,NEGTORKV
|
||||
1DNADR SPARE
|
||||
1DNADR TCDH # TCDH,+1
|
||||
3DNADR DELVEET2 # DELVEET2 +0...+5
|
||||
1DNADR TTPI # TTPI,+1
|
||||
3DNADR DELVEET3 # DELVEET3 +0...+5
|
||||
1DNADR DNRRANGE # DNRRANGE,DNRRDOT
|
||||
2DNADR DNLRVELX # DNLRVELX,DNLRVELY,DNLRVELZ,DNLRALT
|
||||
1DNADR DIFFALT # DIFFALT,+1
|
||||
1DNADR LEMMASS # LEMMASS,CSMMASS
|
||||
1DNADR IMODES30 # IMODES30,IMODES33
|
||||
1DNADR TIG # TIG,+1
|
||||
DNPTR LMORBM05 # COMMON DATA
|
||||
DNPTR LMORBM06 # COMMON DATA
|
||||
1DNADR SPARE # FORMERLY PIF
|
||||
-1DNADR TGO # TGO,+1
|
||||
|
||||
# --------------------- SUB-LISTS ---------------------------
|
||||
|
||||
LMORBM01 -1DNADR R-OTHER +2 # R-OTHER +2,+3 SNAPSHOT
|
||||
1DNADR R-OTHER +4 # R-OTHER +4,+5
|
||||
1DNADR V-OTHER # V-OTHER,+1
|
||||
1DNADR V-OTHER +2 # V-OTHER +2,+3
|
||||
1DNADR V-OTHER +4 # V-OTHER +4,+5
|
||||
1DNADR T-OTHER # T-OTHER,+1
|
||||
-1DNADR R-OTHER # R-OTHER +0,+1
|
||||
|
||||
LMORBM02 2DNADR REDOCTR # REDOCTR,THETAD,+1,+2 COMMON DATA
|
||||
# Page 195
|
||||
1DNADR RSBBQ # RSBBQ,+1
|
||||
2DNADR OMEGAP # OMEGAP,OMEGAQ,OMEGAR,GARBAGE
|
||||
2DNADR CDUXD # CDUXD,CDUYD,CDUZD,GARBAGE
|
||||
2DNADR CDUX # CDUX,CDUY,CDUZ,CDUT
|
||||
6DNADR STATE # STATE +0...+11D (FLAGWORDS)
|
||||
-6DNADR DSPTAB # DSPTAB TABLES
|
||||
|
||||
LMORBM03 -1DNADR RN +2 # RN +2,+3 SNAPSHOT
|
||||
1DNADR RN +4 # RN +4,+5
|
||||
1DNADR VN # VN,+1
|
||||
1DNADR VN +2 # VN +2,+3
|
||||
1DNADR VN +4 # VN +4,+5
|
||||
1DNADR PIPTIME # PIPTIME,+1
|
||||
-1DNADR RN # RN,+1
|
||||
|
||||
LMORBM04 2DNADR OMEGAPD # OMEGAPD,OMEGAQD,OMEGARD,GARBAGE
|
||||
3DNADR CADRFLSH # CADRFLSH,+1,+2,FAILREG,+1,+2
|
||||
-1DNADR RADMODES # RADMODES,DAPBOOLS COMMON DATA
|
||||
|
||||
LMORBM05 2DNADR OMEGAP # OMEGAP,OMEGAQ,OMEGAR,GARBAGE
|
||||
2DNADR CDUXD # CDUXD,CDUYD,CDUZD,GARBAGE
|
||||
2DNADR CDUX # CDUX,CDUY,CDUZ,CDUT
|
||||
1DNADR ALPHAQ # ALPHAQ,ALPHAR COMMON DATA
|
||||
1DNADR POSTORKP # POSTORKP,NEGTORKP
|
||||
DNCHAN 11 # CHANNELS 11,12
|
||||
DNCHAN 13 # CHANNELS 13,14
|
||||
DNCHAN 30 # CHANNELS 30,31
|
||||
-DNCHAN 32 # CHANNELS 32,33
|
||||
|
||||
LMORBM06 1DNADR PIPTIME1 # PIPTIME,+1 COMMON DATA
|
||||
-3DNADR DELV # DELV +0...+5
|
||||
|
||||
# --------------------------------------------------------------------
|
||||
|
||||
# Page 196
|
||||
# LM COAST AND ALIGNMENT DOWNLIST
|
||||
#
|
||||
# ---------------------- CONTROL LIST --------------------------------
|
||||
|
||||
LMCSTADL EQUALS # SEND ID BY SPECIAL CODING
|
||||
DNPTR LMCSTA01 # COLLECT SNAPSHOT
|
||||
6DNADR DNTMBUFF # SEND SNAPSHOT
|
||||
1DNADR AGSK # AGSK,+1
|
||||
1DNADR TALIGN # TALIGN,+1
|
||||
2DNADR POSTORKU # POSTORKU,NEGTORKU,POSTORKV,NEGTORKV
|
||||
1DNADR DNRRANGE # DNRRANGE,DNRRDOT
|
||||
1DNADR TEVENT # TEVENT,+1
|
||||
6DNADR REFSMMAT # REFSMMAT +0...+11D
|
||||
1DNADR AOTCODE # AOTCODE,GARBAGE
|
||||
3DNADR RLS # RLS +0...+5
|
||||
2DNADR DNLRVELX # DNLRVELX,DNLRVELY,DNLRVELZ,DNLRALT
|
||||
DNPTR LMCSTA06 # COMMON DATA
|
||||
DNPTR LMCSTA02 # COMMON DATA
|
||||
1DNADR TIME2 # TIME2/1
|
||||
DNPTR LMCSTA03 # COLLECT SNAPSHOT
|
||||
6DNADR DNTMBUFF # SEND SNAPSHOT
|
||||
DNPTR LMCSTA04 # COMMON DATA
|
||||
DNPTR LMCSTA07 # COMMON DATA
|
||||
2DNADR DNLRVELX # DNLRVELX,DNLRVELY,DNLRVELZ,DNLRALT
|
||||
2DNADR CDUS # CDUS,PIPAX,PIPAY,PIPAZ
|
||||
1DNADR LASTYCMD # LASTYCMD,LASTXCMD
|
||||
1DNADR LEMMASS # LEMMASS,CSMMASS
|
||||
1DNADR IMODES30 # IMODES30,IMODES33
|
||||
1DNADR TIG # TIG,+1
|
||||
DNPTR LMCSTA05 # COMMON DATA
|
||||
-6DNADR DSPTAB # DSPTAB +0...+11D TABLE
|
||||
|
||||
# ---------------------- SUB-LISTS --------------------------
|
||||
|
||||
LMCSTA01 EQUALS LMORBM01 # COMMON DOWNLIST DATA
|
||||
LMCSTA02 EQUALS LMORBM02 # COMMON DOWNLIST DATA
|
||||
LMCSTA03 EQUALS LMORBM03 # COMMON DOWNLIST DATA
|
||||
LMCSTA04 EQUALS LMORBM04 # COMMON DOWNLIST DATA
|
||||
LMCSTA05 EQUALS LMORBM05 # COMMON DOWNLIST DATA
|
||||
|
||||
LMCSTA06 2DNADR X789 # X789 +0...+3 COMMON DATA
|
||||
-1DNADR LASTYCMD # LASTYCMD,LASTXCMD
|
||||
LMCSTA07 3DNADR OGC # OGC,+1,IGC,+1,MGC,+1 COMMON DATA
|
||||
1DNADR BESTI # BESTI,BESTJ
|
||||
3DNADR STARSAV1 # STARSAV1 +0...+5
|
||||
-3DNADR STARSAV2 # STARSAV2 +0...+5
|
||||
# Page 197
|
||||
# -----------------------------------------------------------
|
||||
|
||||
# Page 198
|
||||
# LM RENDEZVOUS AND PRE-THRUST DOWNLIST
|
||||
#
|
||||
# --------------------- CONTROL LIST ------------------------
|
||||
|
||||
LMRENDDL EQUALS # SEND ID BY SPECIAL CODING
|
||||
DNPTR LMREND01 # COLLECT SNAPSHOT
|
||||
6DNADR DNTMBUFF # SEND SNAPSHOT
|
||||
DNPTR LMREND07 # COLLECT SNAPSHOT
|
||||
4DNADR DNTMBUFF # SEND SNAPSHOT
|
||||
1DNADR DELLT4 # DELLT4,+1
|
||||
3DNADR RTARG # RTARG +0...+5
|
||||
3DNADR DELVSLV # DELVSLV +0...+5
|
||||
1DNADR TCSI # TCSI,+1
|
||||
3DNADR DELVEET1 # DELVEET +0...+5
|
||||
1DNADR SPARE
|
||||
1DNADR TPASS4 # TPASS4,+1
|
||||
DNPTR LMREND06 # COMMON DATA
|
||||
DNPTR LMREND02 # COMMON DATA
|
||||
1DNADR TIME2 # TIME2/1
|
||||
DNPTR LMREND03 # COLLECT SNAPSHOT
|
||||
6DNADR DNTMBUFF # SEND SNAPSHOT
|
||||
DNPTR LMREND04 # COMMON DATA
|
||||
2DNADR POSTORKU # POSTORKU,NEGTORKU,POSTORKV,NEGTORKV
|
||||
1DNADR SPARE
|
||||
1DNADR TCDH # TCDH,+1
|
||||
3DNADR DELVEET2 # DELVEET2 +0...+5
|
||||
1DNADR TTPI # TTPI,+1
|
||||
3DNADR DELVEET3 # DELVEET3 +0...+5
|
||||
1DNADR ELEV # ELEV,+1
|
||||
2DNADR CDUS # CDUS,PIPAX,PIPAY,PIPAZ
|
||||
1DNADR LASTYCMD # LASTYCMD,LASTXCMD
|
||||
1DNADR LEMMASS # LEMMASS,CSMMASS
|
||||
1DNADR IMODES30 # IMODES30,IMODES33
|
||||
1DNADR TIG # TIG,+1
|
||||
DNPTR LMREND05 # COMMON DATA
|
||||
1DNADR DELTAR # DELTAR,+1
|
||||
1DNADR CENTANG # CENTANG,+1
|
||||
1DNADR NN # NN,+1
|
||||
1DNADR DIFFALT # DIFFALT,+1
|
||||
1DNADR DELVTPF # DELVTPF,+1
|
||||
-1DNADR SPARE
|
||||
|
||||
# --------------------- SUB-LISTS --------------------------
|
||||
|
||||
LMREND01 EQUALS LMORBM01 # COMMON DOWNLIST DATA
|
||||
LMREND02 EQUALS LMORBM02 # COMMON DOWNLIST DATA
|
||||
LMREND03 EQUALS LMORBM03 # COMMON DOWNLIST DATA
|
||||
# Page 199
|
||||
LMREND04 EQUALS LMORBM04 # COMMON DOWNLIST DATA
|
||||
LMREND05 EQUALS LMORBM05 # COMMON DOWNLIST DATA
|
||||
LMREND06 EQUALS LMCSTA06 # COMMON DOWNLIST DATA
|
||||
|
||||
LMREND07 -1DNADR AIG # AIG,AMG SNAPSHOT
|
||||
1DNADR AOG # AOG,TRKMKCNT
|
||||
1DNADR TANGNB # TANGNB,+1
|
||||
1DNADR MKTIME # MKTIME,+1
|
||||
-1DNADR RANGRDOT # DNRRANGE,DNRRDOT
|
||||
|
||||
# -----------------------------------------------------------
|
||||
|
||||
# Page 200
|
||||
# LM DESCENT AND ASCENT DOWNLIST
|
||||
|
||||
# ---------------------- CONTROL LIST ------------------------
|
||||
|
||||
LMDSASDL EQUALS # SEND ID BY SPECIAL CODING
|
||||
DNPTR LMDSAS07 # COLLECT SNAPSHOT
|
||||
DNPTR LMDSAS08 # SEND SNAPSHOT
|
||||
1DNADR TEVENT # TEVENT,+1
|
||||
3DNADR UNFC/2 # UNFC/2 +0...+5
|
||||
3DNADR VGVECT # VGVECT +0...+5
|
||||
1DNADR TTF/8 # TTF/8,+1
|
||||
1DNADR DELTAH # DELTAH,+1
|
||||
3DNADR RLS # RLS +0...+5
|
||||
1DNADR SPARE
|
||||
DNPTR LMDSAS09 # COMMON DATA
|
||||
DNPTR LMDSAS02 # COMMON DATA
|
||||
1DNADR TIME2 # TIME2/1
|
||||
DNPTR LMDSAS03 # COLLECT SNAPSHOT
|
||||
6DNADR DNTMBUFF # SEND SNAPSHOT
|
||||
DNPTR LMDSAS04 # COMMON DATA
|
||||
2DNADR POSTORKU # POSTORKU,NEGTORKU,POSTORKV,NEGTORKV
|
||||
3DNADR RGU # RGU +0...+5
|
||||
3DNADR VGU # VGU +0...+5
|
||||
3DNADR LAND # LAND +0...+5
|
||||
1DNADR AT # AT,+1
|
||||
1DNADR TLAND # TLAND,+1
|
||||
1DNADR FC # FC,GARBAGE
|
||||
1DNADR LASTYCMD # LASTYCMD,LASTXCMD
|
||||
1DNADR LEMMASS # LEMMASS,CSMMASS
|
||||
1DNADR IMODES30 # IMODES30,IMODES33
|
||||
1DNADR TIG # TIG,+1
|
||||
DNPTR LMDSAS05 # COMMON DATA
|
||||
DNPTR LMDSAS06 # COMMON DATA
|
||||
1DNADR PSEUDO55 # PSEUDO55,GARBAGE
|
||||
-1DNADR TTOGO # TTOGO,+1
|
||||
|
||||
# ---------------------- SUB-LISTS ------------------------
|
||||
|
||||
LMDSAS02 EQUALS LMORBM02 # COMMON DOWNLIST DATA
|
||||
LMDSAS03 EQUALS LMORBM03 # COMMON DOWNLIST DATA
|
||||
LMDSAS04 EQUALS LMORBM04 # COMMON DOWNLIST DATA
|
||||
LMDSAS05 EQUALS LMORBM05 # COMMON DOWNLIST DATA
|
||||
LMDSAS06 EQUALS LMORBM06 # COMMON DOWNLIST DATA
|
||||
|
||||
LMDSAS07 -1DNADR LRZCDUDL # LRZCDUDL,GARBAGE SNAPSHOT
|
||||
1DNADR VSELECT # VSELECT,GARBAGE
|
||||
1DNADR LRVTIMDL # LRVTIMDL,+1
|
||||
# Page 201
|
||||
1DNADR VMEAS # VMEAS,+1
|
||||
1DNADR MKTIME # MKTIME,+1
|
||||
1DNADR HMEAS # HMEAS,+1
|
||||
1DNADR RM # RM,+1
|
||||
1DNADR AIG # AIG,AMG
|
||||
1DNADR AOG # AOG,TRKMKCNT
|
||||
1DNADR TANGNB # TANGNB,+1
|
||||
1DNADR MKTIME # MKTIME,+1
|
||||
-1DNADR LRXCDUDL # LRXCDUDL,LRYCDUDL
|
||||
|
||||
LMDSAS08 6DNADR DNTMBUFF # SEND SNAPSHOT
|
||||
-5DNADR DNTMBUFF +12D
|
||||
|
||||
LMDSAS09 EQUALS LMCSTA06 # COMMON DOWNLIST DATA
|
||||
|
||||
# ---------------------------------------------------------
|
||||
|
||||
# Page 202
|
||||
# LM LUNAR SURFACE ALIGN DOWNLIST
|
||||
|
||||
# ---------------------- CONTROL LIST ---------------------
|
||||
|
||||
LMLSALDL EQUALS # SEND ID BY SPECIAL CODING
|
||||
DNPTR LMLSAL01 # COLLECT SNAPSHOT
|
||||
6DNADR DNTMBUFF # SEND SNAPSHOT
|
||||
DNPTR LMLSAL07 # COLLECT SNAPSHOT
|
||||
4DNADR DNTMBUFF # SEND SHAPSHOT
|
||||
1DNADR TALIGN # TALIGN,+1
|
||||
6DNADR REFSMMAT # REFSMMAT +0...+11D
|
||||
6DNADR YNBSAV # YNBSAV +0...+5,SNBSAV +0...+5
|
||||
DNPTR LMLSAL08 # COMMON DATA
|
||||
DNPTR LMLSAL02 # COMMON DATA
|
||||
1DNADR TIME2 # TIME2/1
|
||||
DNPTR LMLSAL03 # COLLECT SNAPSHOT
|
||||
6DNADR DNTMBUFF # SEND SHAPSHOT
|
||||
DNPTR LMLSAL04 # COMMON DATA
|
||||
DNPTR LMLSAL09 # COMMON DATA
|
||||
3DNADR GSAV # GSAV +0...+5
|
||||
1DNADR AGSK # AGSK,+1
|
||||
1DNADR LASTYCMD # LASTYCMD,LASTXCMD
|
||||
1DNADR LEMMASS # LEMMASS,CSMMASS
|
||||
1DNADR IMODES30 # IMODES30,IMODES33
|
||||
1DNADR TIG # TIG,+1
|
||||
DNPTR LMLSAL05 # COMMON DATA
|
||||
DNPTR LMLSAL06 # COMMON DATA
|
||||
1DNADR SPARE
|
||||
-1DNADR SPARE
|
||||
|
||||
# ---------------------- SUB-LISTS ----------------------
|
||||
|
||||
LMLSAL01 EQUALS LMORBM01 # COMMON DOWNLIST DATA
|
||||
LMLSAL02 EQUALS LMORBM02 # COMMON DOWNLIST DATA
|
||||
LMLSAL03 EQUALS LMORBM03 # COMMON DOWNLIST DATA
|
||||
LMLSAL04 EQUALS LMORBM04 # COMMON DOWNLIST DATA
|
||||
LMLSAL05 EQUALS LMORBM05 # COMMON DOWNLIST DATA
|
||||
LMLSAL06 EQUALS LMORBM06 # COMMON DOWNLIST DATA
|
||||
LMLSAL07 EQUALS LMREND07 # COMMON DOWNLIST DATA
|
||||
LMLSAL08 EQUALS LMCSTA06 # COMMON DOWNLIST DATA
|
||||
LMLSAL09 EQUALS LMCSTA07 # COMMON DOWNLIST DATA
|
||||
|
||||
# Page 203
|
||||
# --------------------------------------------------------
|
||||
|
||||
# Page 204
|
||||
# LM AGS INITIALIZATION AND UPDATE DOWNLIST
|
||||
|
||||
# ---------------------- CONTROL LIST --------------------
|
||||
|
||||
LMAGSIDL EQUALS # SEND IO BY SPECIAL CODING
|
||||
3DNADR AGSBUFF +0 # AGSBUFF +0...+5
|
||||
1DNADR AGSBUFF +12D # AGSBUFF +12D,GARBAGE
|
||||
3DNADR AGSBUFF +1 # AGSBUFF +1...+6
|
||||
1DNADR AGSBUFF +13D # AGSBUFF +13D, GARBAGE
|
||||
3DNADR AGSBUFF +6 # AGSBUFF +6...+11
|
||||
1DNADR AGSBUFF +12D # AGSBUFF +12D,GARBAGE
|
||||
3DNADR AGSBUFF +7 # AGSBUFF +7...+12D
|
||||
1DNADR AGSBUFF +13D # AGSBUFF +13D,GARBAGE
|
||||
6DNADR COMPNUMB # COMPNUMB,UPOLDMOD,UPVERB,UPCOUNT,
|
||||
# UPBUFF +0...+7
|
||||
6DNADR UPBUFF +8D # UPBUFF +8D...+19D
|
||||
DNPTR LMAGSI02 # COMMON DATA
|
||||
1DNADR TIME2 # TIME2/1
|
||||
DNPTR LMAGSI03 # COLLECT SNAPSHOT
|
||||
6DNADR DNTMBUFF # SEND SNAPSHOT
|
||||
DNPTR LMAGSI04 # COMMON DATA
|
||||
2DNADR POSTORKU # POSTORKU,NEGTORKU,POSTORKV,NEGTORKV
|
||||
1DNADR SPARE
|
||||
1DNADR SPARE
|
||||
1DNADR AGSK # AGSK,+1
|
||||
6DNADR UPBUFF # UPBUFF +0...+11D
|
||||
4DNADR UPBUFF +12D # UPBUFF +12D...+19D
|
||||
1DNADR LEMMASS # LEMMASS,CSMMASS
|
||||
1DNADR IMODES30 # IMODES30,IMODES33
|
||||
1DNADR SPARE
|
||||
DNPTR LMAGSI05 # COMMON DATA
|
||||
-6DNADR DSPTAB # DSPTAB +0...+11D
|
||||
|
||||
# ---------------------- SUB-LISTS ---------------------
|
||||
|
||||
LMAGSI02 EQUALS LMORBM02 # COMMON DOWNLIST DATA
|
||||
LMAGSI03 EQUALS LMORBM03 # COMMON DOWNLIST DATA
|
||||
LMAGSI04 EQUALS LMORBM04 # COMMON DOWNLIST DATA
|
||||
LMAGSI05 EQUALS LMORBM05 # COMMON DOWNLIST DATA
|
||||
|
||||
# ------------------------------------------------------
|
||||
|
||||
DNTABLE GENADR LMCSTADL # LM COAST AND ALIGN DOWNLIST
|
||||
GENADR LMAGSIDL # LM AGS INITIALIZATION/UPDATE DOWNLIST
|
||||
GENADR LMRENDDL # LM RENDEZVOUS AND PRE-THRUST DOWNLIST
|
||||
GENADR LMORBMDL # LM ORBITAL MANEUVERS DOWNLIST
|
||||
GENADR LMDSASDL # LM DESCENT AND ASCENT DOWNLIST
|
||||
# Page 205
|
||||
GENADR LMLSALDL # LM LUNAR SURFACE ALIGN DOWNLIST
|
||||
|
||||
# ------------------------------------------------------
|
||||
|
||||
|
2635
Luminary099/ERASABLE_ASSIGNMENTS.agc
Normal file
2635
Luminary099/ERASABLE_ASSIGNMENTS.agc
Normal file
File diff suppressed because it is too large
Load Diff
503
Luminary099/EXECUTIVE.agc
Normal file
503
Luminary099/EXECUTIVE.agc
Normal file
@ -0,0 +1,503 @@
|
||||
# Copyright: Public domain.
|
||||
# Filename: EXECUTIVE.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: 1103-1114
|
||||
# Mod history: 2009-05-25 RSB Adapted from the corresponding
|
||||
# Luminary131 file, using page
|
||||
# images from Luminary 1A.
|
||||
# 2011-01-06 JL Fixed pseudo-label indentation.
|
||||
# 2011-05-08 JL Removed workaround.
|
||||
|
||||
# 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 1103
|
||||
BLOCK 02
|
||||
|
||||
# TO ENTER A JOB REQUEST REQUIRING NO VAC AREA:
|
||||
|
||||
COUNT* $$/EXEC
|
||||
NOVAC INHINT
|
||||
AD FAKEPRET # LOC(MPAC +6) - LOC(QPRET)
|
||||
TS NEWPRIO # PRIORITY OF NEW JOB + NOVAC C(FIXLOC)
|
||||
|
||||
EXTEND
|
||||
INDEX Q # Q WILL BE UNDISTURBED THROUGHOUT.
|
||||
DCA 0 # 2CADR OF JOB ENTERED.
|
||||
DXCH NEWLOC
|
||||
CAF EXECBANK
|
||||
XCH FBANK
|
||||
TS EXECTEM1
|
||||
TCF NOVAC2 # ENTER EXECUTIVE BANK.
|
||||
|
||||
# TO ENTER A JOB REQUEST REQUIREING A VAC AREA -- E.G., ALL (PARTIALLY) INTERPRETIVE JOBS.
|
||||
|
||||
FINDVAC INHINT
|
||||
TS NEWPRIO
|
||||
EXTEND
|
||||
INDEX Q
|
||||
DCA 0
|
||||
SPVACIN DXCH NEWLOC
|
||||
CAF EXECBANK
|
||||
XCH FBANK
|
||||
TCF FINDVAC2 # OFF TO EXECUTIVE SWITCHED-BANK.
|
||||
|
||||
# TO ENTER A FINDVAC WITH THE PRIORITY IN NEWPRIO TO THE 2CADR ARRIVING IN A AND L:
|
||||
# USERS OF SPVAC MUST INHINT BEFORE STORING IN NEWPRIO.
|
||||
|
||||
SPVAC XCH Q
|
||||
AD NEG2
|
||||
XCH Q
|
||||
TCF SPVACIN
|
||||
|
||||
# TO SUSPEND A BASIC JOB SO A HIGHER PRIORITY JOB MAY BE SERVICED:
|
||||
|
||||
CHANG1 LXCH Q
|
||||
CAF EXECBANK
|
||||
XCH BBANK
|
||||
TCF CHANJOB
|
||||
|
||||
# TO SUSPEND AN INTERPRETIVE JOB:
|
||||
|
||||
CHANG2 CS LOC # NEGATIVE LOC SHOWS JOB = INTERPRETIVE.
|
||||
# ITRACE (4) REFERS TO "CHANG2"
|
||||
TS L
|
||||
# Page 1104
|
||||
+2 CAF EXECBANK
|
||||
TS BBANK
|
||||
TCF CHANJOB -1
|
||||
|
||||
# Page 1105
|
||||
# TO VOLUNTARILY SUSPEND A JOB UNTIL THE COMPLETION OF SOME ANTICIPATED EVENT (I/O EVENT ETC.):
|
||||
|
||||
JOBSLEEP TS LOC
|
||||
CAF EXECBANK
|
||||
TS FBANK
|
||||
TCF JOBSLP1
|
||||
|
||||
# TO AWAKEN A JOB PUT TO SLEEP IN THE ABOVE FASHION:
|
||||
|
||||
JOBWAKE INHINT
|
||||
TS NEWLOC
|
||||
CS TWO # EXIT IS VIA FINDVAC/NOVAC PROCEDURES.
|
||||
ADS Q
|
||||
CAF EXECBANK
|
||||
XCH FBANK
|
||||
TCF JOBWAKE2
|
||||
|
||||
# TO CHANGE THE PRIORITY OF A JOB CURRENTLY UNDER EXECUTION:
|
||||
|
||||
PRIOCHNG INHINT # NEW PRIORITY ARRIVES IN A. RETURNS TO
|
||||
TS NEWPRIO # CALLER AS SOON AS NEW JOB PRIORITY IS
|
||||
CAF EXECBANK # HIGHEST. PREPARE FOR POSSIBLE BASIC-
|
||||
XCH BBANK # STYLE CHANGE-JOB.
|
||||
TS BANKSET
|
||||
CA Q
|
||||
TCF PRIOCH2
|
||||
|
||||
# TO REMOVE A JOB FROM EXECUTIVE CONSIDERATIONS:
|
||||
|
||||
ENDOFJOB CAF EXECBANK
|
||||
TS FBANK
|
||||
TCF ENDJOB1
|
||||
|
||||
ENDFIND CA EXECTEM1 # RETURN TO CALLER AFTER JOB ENTRY
|
||||
TS FBANK # COMPLETE.
|
||||
TCF Q+2
|
||||
EXECBANK CADR FINDVAC2
|
||||
|
||||
FAKEPRET ADRES MPAC -36D # LOC(MPAC +6) - LOC(QPRET)
|
||||
|
||||
# Page 1106
|
||||
# LOCATE AN AVAILABLE VAC AREA
|
||||
|
||||
BANK 01
|
||||
COUNT* $$/EXEC
|
||||
FINDVAC2 TS EXECTEM1 # (SAVE CALLER'S BANK FIRST.)
|
||||
CCS VAC1USE
|
||||
TCF VACFOUND
|
||||
CCS VAC2USE
|
||||
TCF VACFOUND
|
||||
CCS VAC3USE
|
||||
TCF VACFOUND
|
||||
CCS VAC4USE
|
||||
TCF VACFOUND
|
||||
CCS VAC5USE
|
||||
TCF VACFOUND
|
||||
LXCH EXECTEM1
|
||||
CA Q
|
||||
TC BAILOUT1
|
||||
OCT 1201 # NO VAC AREAS.
|
||||
|
||||
VACFOUND AD TWO # RESERVE THIS VAC AREA BY STORING A ZERO
|
||||
ZL # IN ITS VAC USE REGISTER AND STORE THE
|
||||
INDEX A # ADDRESS OF THE FIRST WORD OF IT IN THE
|
||||
LXCH 0 -1 # LOW NINE BITS OF THE PRIORITY WORD.
|
||||
ADS NEWPRIO
|
||||
|
||||
NOVAC2 CAF ZERO # NOVAC ENTERS HERE. FIND A CORE SET.
|
||||
TS LOCCTR
|
||||
CAF NO.CORES # SEVEN SETS OF ELEVEN REGISTERS EACH.
|
||||
NOVAC3 TS EXECTEM2
|
||||
INDEX LOCCTR
|
||||
CCS PRIORITY # EACH PRIORITY REGISTER CONTAINS -0 IF
|
||||
TCF NEXTCORE # THE CORESPONDING CORE SET IS AVAILABLE.
|
||||
NO.CORES DEC 7
|
||||
TCF NEXTCORE # AN ACTIVE JOB HAS A POSITIVE PRIORITY
|
||||
# BUT A DORMANT JOB'S PRIORITY IS NEGATIVE
|
||||
|
||||
# Page 1107
|
||||
CORFOUND CA NEWPRIO # SET THE PRIORITY OF THIS JOB IN THE CORE
|
||||
INDEX LOCCTR # SET'S PRIORITY REGISTER AND SET THE
|
||||
TS PRIORITY # JOB'S PUSH-DOWN POINTER AT THE BEGINNING
|
||||
MASK LOW9 # OF THE WORK AREA AND OVERFLOW INDICATOR.
|
||||
INDEX LOCCTR
|
||||
TS PUSHLOC # OFF TO PREPARE FOR INTERPRETIVE PROGRAMS.
|
||||
|
||||
CCS LOCCTR # IF CORE SET ZERO IS BEING LOADED, SET UP
|
||||
TCF SETLOC # OVFIND AND FIXLOC IMMEDIATELY.
|
||||
TS OVFIND
|
||||
CA PUSHLOC
|
||||
TS FIXLOC
|
||||
|
||||
SPECTEST CCS NEWJOB # SEE IF ANY ACTIVE JOBS WAITING (RARE).
|
||||
TCF SETLOC # MUST BE AWAKENED OUT UNCHANGED JOB.
|
||||
TC CCSHOLE
|
||||
TC CCSHOLE
|
||||
TS NEWJOB # +0 SHOWS ACTIVE JOB ALREADY SET.
|
||||
DXCH NEWLOC
|
||||
DXCH LOC
|
||||
TCF ENDFIND
|
||||
|
||||
SETLOC DXCH NEWLOC # SET UP THE LOCATION REGISTERS FOR THIS
|
||||
INDEX LOCCTR
|
||||
DXCH LOC
|
||||
INDEX NEWJOB # THIS INDEX INSTRUCTION INSURES THAT THE
|
||||
CS PRIORITY # HIGHEST ACTIVE PRIORITY WILL BE COMPARED
|
||||
AD NEWPRIO # WITH THE NEW PRIORITY TO SEE IF NEWJOB
|
||||
EXTEND # SHOULD BE SET TO SIGNAL A SWITCH.
|
||||
BZMF ENDFIND
|
||||
CA LOCCTR # LOCCTR IS LEFT SET AT THIS CORE SET IF
|
||||
TS NEWJOB # THE CALLER WANTS TO LOAD ANY MPAC
|
||||
TCF ENDFIND # REGISTERS, ETC.
|
||||
|
||||
NEXTCORE CAF COREINC
|
||||
ADS LOCCTR
|
||||
CCS EXECTEM2
|
||||
TCF NOVAC3
|
||||
LXCH EXECTEM1
|
||||
CA Q
|
||||
TC BAILOUT1 # NO CORE SETS AVAILABLE.
|
||||
OCT 1202
|
||||
# Page 1108
|
||||
# THE FOLLOWING ROUTINE SWAPS CORE SET 0 WITH THAT WHOSE RELATIVE ADDRESS IS IN NEWJOB.
|
||||
|
||||
-2 LXCH LOC
|
||||
-1 CAE BANKSET # BANKSET, NOT BBANK, HAS RIGHT CONTENTS.
|
||||
CHANJOB INHINT
|
||||
EXTEND
|
||||
ROR SUPERBNK # PICK UP CURRENT SBANK FOR BBCON
|
||||
XCH L # LOC IN A AND BBCON IN L.
|
||||
+4 INDEX NEWJOB # SWAP LOC AND BANKSET.
|
||||
DXCH LOC
|
||||
DXCH LOC
|
||||
|
||||
CAE BANKSET
|
||||
EXTEND
|
||||
WRITE SUPERBNK # SET SBANK FOR NEW JOB.
|
||||
DXCH MPAC # SWAP MULTI-PURPOSE ACCUMULATOR AREAS.
|
||||
INDEX NEWJOB
|
||||
DXCH MPAC
|
||||
DXCH MPAC
|
||||
DXCH MPAC +2
|
||||
INDEX NEWJOB
|
||||
DXCH MPAC +2
|
||||
DXCH MPAC +2
|
||||
DXCH MPAC +4
|
||||
INDEX NEWJOB
|
||||
DXCH MPAC +4
|
||||
DXCH MPAC +4
|
||||
DXCH MPAC +6
|
||||
INDEX NEWJOB
|
||||
DXCH MPAC +6
|
||||
DXCH MPAC +6
|
||||
|
||||
CAF ZERO
|
||||
XCH OVFIND # MAKE PUSHLOC NEGATIVE IF OVFIND NZ.
|
||||
EXTEND
|
||||
BZF +3
|
||||
CS PUSHLOC
|
||||
TS PUSHLOC
|
||||
|
||||
DXCH PUSHLOC
|
||||
INDEX NEWJOB
|
||||
DXCH PUSHLOC
|
||||
DXCH PUSHLOC # SWAPS PUSHLOC AND PRIORITY.
|
||||
CAF LOW9 # SET FIXLOC TO BASE OF VAC AREA.
|
||||
MASK PRIORITY
|
||||
TS FIXLOC
|
||||
|
||||
CCS PUSHLOC # SET OVERFLOW INDICATOR ACCORDING TO
|
||||
CAF ZERO
|
||||
TCF ENDPRCHG -1
|
||||
|
||||
# Page 1109
|
||||
CS PUSHLOC
|
||||
TS PUSHLOC
|
||||
CAF ONE
|
||||
XCH OVFIND
|
||||
TS NEWJOB
|
||||
|
||||
ENDPRCHG RELINT
|
||||
DXCH LOC # BASIC JOBS HAVE POSITIVE ADDRESSES, SO
|
||||
EXTEND # DISPATCH WITH A DTCB.
|
||||
BZMF +2 # IF INTERPRETIVE, SET UP EBANK, ETC.
|
||||
DTCB
|
||||
# Page 1110
|
||||
COM # EPILOGUE TO JOB CHANGE FOR INTERPRETIVE
|
||||
AD ONE
|
||||
TS LOC # RESUME
|
||||
TCF INTRSM
|
||||
|
||||
# COMPLETE JOBSLEEP PREPARATIONS.
|
||||
|
||||
JOBSLP1 INHINT
|
||||
CS PRIORITY # NNZ PRIORITY SHOWS JOB ASLEEP.
|
||||
TS PRIORITY
|
||||
CAF LOW7
|
||||
MASK BBANK
|
||||
EXTEND
|
||||
ROR SUPERBNK # SAVE OLD SUPERBANK VALUE.
|
||||
TS BANKSET
|
||||
CS ZERO
|
||||
JOBSLP2 TS BUF +1 # HOLDS -- HIGHEST PRIORITY.
|
||||
TCF EJSCAN # SCAN FOR HIGHEST PRIORITY ALA ENDOFJOB.
|
||||
|
||||
NUCHANG2 INHINT # QUICK... DON'T LET NEWJOB CHANGE TO +0.
|
||||
CCS NEWJOB
|
||||
TCF +3 # NEWJOB STILL PNZ
|
||||
RELINT # NEW JOB HAS CHANGED TO +0. WAKE UP JOB
|
||||
TCF ADVAN +2 # VIA NUDIRECT. (VERY RARE CASE.)
|
||||
|
||||
CAF TWO
|
||||
EXTEND
|
||||
WOR DSALMOUT # TURN ON ACTIVITY LIGHT
|
||||
DXCH LOC # AND SAVE ADDRESS INFO FOR BENEFIT OF
|
||||
TCF CHANJOB +4 # POSSIBLE SLEEPINT JOB.
|
||||
|
||||
# Page 1111
|
||||
# TO WAKE UP A JOB, EACH CORE SET IS FOUND TO LOCATE ALL JOBS WHICH ARE ASLEEP. IF THE FCADR IN THE
|
||||
# LOC REGISTER OF ANY SUCH JOB MATCHES THAT SUPPLIED BY THE CALLER, THAT JOB IS AWAKENED. IF NO JOB IS FOUND,
|
||||
# LOCCTR IS SET TO -1 AND NO FURTHER ACTION TAKES PLACE.
|
||||
|
||||
JOBWAKE2 TS EXECTEM1
|
||||
CAF ZERO # BEGIN CORE SET SCAN
|
||||
TS LOCCTR
|
||||
CAF NO.CORES
|
||||
JOBWAKE4 TS EXECTEM2
|
||||
INDEX LOCCTR
|
||||
CCS PRIORITY
|
||||
TCF JOBWAKE3 # ACTIVE JOB -- CHECK NEXT CORE SET.
|
||||
COREINC DEC 12 # 12 REGISTERS PER CORE SET.
|
||||
TCF WAKETEST # SLEEPING JOB -- SEE IF CADR MATCHES.
|
||||
|
||||
JOBWAKE3 CAF COREINC
|
||||
ADS LOCCTR
|
||||
CCS EXECTEM2
|
||||
TCF JOBWAKE4
|
||||
CS ONE # EXIT IF SLEEPIN JOB NOT FOUND.
|
||||
TS LOCCTR
|
||||
TCF ENDFIND
|
||||
|
||||
WAKETEST CS NEWLOC
|
||||
INDEX LOCCTR
|
||||
AD LOC
|
||||
EXTEND
|
||||
BZF +2 # IF MATCH.
|
||||
TCF JOBWAKE3 # EXAMINE NEXT CORE SET IF NO MATCH.
|
||||
|
||||
INDEX LOCCTR # RE-COMPLEMENT PRIORITY TO SHOW JOB AWAKE
|
||||
CS PRIORITY
|
||||
TS NEWPRIO
|
||||
INDEX LOCCTR
|
||||
TS PRIORITY
|
||||
|
||||
CS FBANKMSK # MAKE UP THE 2CADR OF THE WAKE ADDRESS
|
||||
MASK NEWLOC # USING THE CADR IN NEWLOC AND THE EBANK
|
||||
AD 2K # HALF OF BBANK SAVED IN BANKSET.
|
||||
XCH NEWLOC
|
||||
MASK FBANKMSK
|
||||
INDEX LOCCTR
|
||||
AD BANKSET
|
||||
TS NEWLOC +1
|
||||
|
||||
CCS LOCCTR # SPECIAL TREATMENT IF THIS JOB WAS
|
||||
TCF SETLOC # ALREADY IN THE RUN (0) POSITION.
|
||||
TCF SPECTEST
|
||||
|
||||
# Page 1112
|
||||
# PRIORITY CHANGE. CHANGE THE CONTENTS OF PRIORITY AND SCAN FOR THE JOB OF HIGHEST PRIORITY.
|
||||
|
||||
PRIOCH2 TS LOC
|
||||
CAF ZERO # SET FLAG TO TELL ENDJOB SCANNER IF THIS
|
||||
TS BUF # JOB IS STILL HIGHEST PRIORITY.
|
||||
CAF LOW9
|
||||
MASK PRIORITY
|
||||
AD NEWPRIO
|
||||
TS PRIORITY
|
||||
COM
|
||||
TCF JOBSLP2 # AND TO EJSCAN.
|
||||
|
||||
# Page 1113
|
||||
# RELEASE THIS CORE SET AND VAC AREA AND SCAN FOR THE JOB OF HIGHEST ACTIVE PRIORITY.
|
||||
|
||||
ENDJOB1 INHINT
|
||||
CS ZERO
|
||||
TS BUF +1
|
||||
XCH PRIORITY
|
||||
MASK LOW9
|
||||
TS L
|
||||
|
||||
CS FAKEPRET
|
||||
AD L
|
||||
|
||||
EXTEND
|
||||
BZMF EJSCAN # NOVAC ENDOFJOB
|
||||
|
||||
CCS L
|
||||
INDEX A
|
||||
TS 0
|
||||
|
||||
EJSCAN CCS PRIORITY +12D
|
||||
TC EJ1
|
||||
TC CCSHOLE
|
||||
TCF +1
|
||||
|
||||
CCS PRIORITY +24D # EXAMINE EACH PRIORITY REGISTER TO FIND
|
||||
TC EJ1 # THE JOB OF HIGHEST ACTIVE PRIORITY.
|
||||
TC CCSHOLE
|
||||
TCF +1
|
||||
|
||||
CCS PRIORITY +36D
|
||||
TC EJ1
|
||||
-CCSPR -CCS PRIORITY
|
||||
TCF +1
|
||||
|
||||
CCS PRIORITY +48D
|
||||
TC EJ1
|
||||
TC CCSHOLE
|
||||
TCF +1
|
||||
|
||||
CCS PRIORITY +60D
|
||||
TC EJ1
|
||||
TC CCSHOLE
|
||||
TCF +1
|
||||
|
||||
CCS PRIORITY +72D
|
||||
TC EJ1
|
||||
TC CCSHOLE
|
||||
TCF +1
|
||||
|
||||
CCS PRIORITY +84D
|
||||
# Page 1114
|
||||
TC EJ1
|
||||
TC CCSHOLE
|
||||
TCF +1
|
||||
|
||||
# Page 1115
|
||||
# EVALUATE THE RESULTS OF THE SCAN.
|
||||
|
||||
CCS BUF +1 # SEE IF THERE ARE ANY ACTIVE JOBS WAITING
|
||||
TC CCSHOLE
|
||||
TC CCSHOLE
|
||||
|
||||
TCF +2
|
||||
TCF DUMMYJOB
|
||||
CCS BUF # BUF IS ZERO IS THIS IS A PRIOCHNG AND
|
||||
TCF +2 # CHANGED PRIORITY IS STILL HIGHEST.
|
||||
TCF ENDPRCHG -1
|
||||
|
||||
INDEX A # OTHERWISE, SET NEWJOB TO THE RELATIVE
|
||||
CAF 0 -1 # ADDRESS OF THE NEW JOB'S CORE SET.
|
||||
AD -CCSPR
|
||||
TS NEWJOB
|
||||
TCF CHANJOB -2
|
||||
|
||||
EJ1 TS BUF +2
|
||||
AD BUF +1 # - OLD HIGH PRIORITY.
|
||||
CCS A
|
||||
CS BUF +2
|
||||
TCF EJ2 # NEW HIGH PRIORITY.
|
||||
NOOP
|
||||
INDEX Q
|
||||
TC 2 # PROCEED WITH SEARCH.
|
||||
|
||||
EJ2 TS BUF +1
|
||||
EXTEND
|
||||
QXCH BUF # FOR LOCATING CCS PRIORITY + X INSTR.
|
||||
INDEX BUF
|
||||
TC 2
|
||||
|
||||
# Page 1116
|
||||
# IDLING AND COMPUTER ACTIVITY (GREEN) LIGHT MAINTENANCE. THE IDLING ROUTINE IS NOT A JOB IN ITSELF,
|
||||
# BUT RATHER A SUBROUTINE OF THE EXECUTIVE.
|
||||
|
||||
EBANK= SELFRET # SELF-CHECK STORAGE IN EBANK.
|
||||
|
||||
DUMMYJOB CS ZERO # SET NEWJOB TO -0 FOR IDLING.
|
||||
TS NEWJOB
|
||||
RELINT
|
||||
CS TWO # TURN OFF THE ACTIVITY LIGHT.
|
||||
EXTEND
|
||||
WAND DSALMOUT
|
||||
ADVAN CCS NEWJOB # IS THE NEWJOB ACTIVE?
|
||||
TCF NUCHANG2 # YES... ONE REQUIRING A CHANGE JOB.
|
||||
CAF TWO # NEW JOB ALREADY IN POSITION FOR
|
||||
TCF NUDIRECT # EXECUTION
|
||||
|
||||
CA SELFRET
|
||||
TS L # PUT RETURN ADDRESS IN L.
|
||||
CAF SELFBANK
|
||||
TCF SUPDXCHZ +1 # AND DISPATCH JOB.
|
||||
|
||||
EBANK= SELFRET
|
||||
SELFBANK BBCON SELFCHK
|
||||
|
||||
NUDIRECT EXTEND # TURN THE GREEN LIGHT BACK ON.
|
||||
WOR DSALMOUT
|
||||
DXCH LOC # JOBS STARTED IN THIS FASHION MUST BE
|
||||
TCF SUPDXCHZ
|
||||
|
||||
BLOCK 2 # IN FIXED-FIXED SO OTHERS MAY USE.
|
||||
|
||||
COUNT* $$/EXEC
|
||||
|
||||
# SUPDXCHZ -- ROUTINE TO TRANSFER TO SUPEBANK.
|
||||
# CALLING SEQUENCE:
|
||||
# TCF SUPDXCHZ # WITH 2CADR OF DESIRED LOCATION IN A + L.
|
||||
|
||||
SUPDXCHZ XCH L # BASIC.
|
||||
+1 EXTEND
|
||||
WRITE SUPERBNK
|
||||
TS BBANK
|
||||
TC L
|
||||
|
||||
NEG100 OCT 77677
|
||||
|
1682
Luminary099/EXTENDED_VERBS.agc
Normal file
1682
Luminary099/EXTENDED_VERBS.agc
Normal file
File diff suppressed because it is too large
Load Diff
264
Luminary099/FIXED_FIXED_CONSTANT_POOL.agc
Normal file
264
Luminary099/FIXED_FIXED_CONSTANT_POOL.agc
Normal file
@ -0,0 +1,264 @@
|
||||
# Copyright: Public domain.
|
||||
# Filename: FIXED_FIXED_CONSTANT_POOL.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: 1095-1099
|
||||
# Mod history: 2009-05-25 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 1095
|
||||
BLOCK 02
|
||||
COUNT* $$/FCONS
|
||||
|
||||
# THE FOLLOWING TABLE OF 18 VALUES IS INDEXED. DO NOT INSERT OR REMOVE ANY QUANTITIES
|
||||
|
||||
DPOSMAX OCT 37777 # MUST PRECEDE POSMAX
|
||||
POSMAX OCT 37777
|
||||
|
||||
LIMITS = NEG1/2
|
||||
|
||||
NEG1/2 OCT -20000 # USED BY SIN ROUTINE (MUST BE TWO
|
||||
# LOCATIONS IN FRONT OF BIT14)
|
||||
|
||||
# BIT TABLE
|
||||
|
||||
BIT15 OCT 40000
|
||||
BIT14 OCT 20000
|
||||
BIT13 OCT 10000
|
||||
BIT12 OCT 04000
|
||||
BIT11 OCT 02000
|
||||
BIT10 OCT 01000
|
||||
BIT9 OCT 00400
|
||||
BIT8 OCT 00200
|
||||
BIT7 OCT 00100
|
||||
BIT6 OCT 00040
|
||||
BIT5 OCT 00020
|
||||
BIT4 OCT 00010
|
||||
BIT3 OCT 00004
|
||||
BIT2 OCT 00002
|
||||
BIT1 OCT 00001
|
||||
|
||||
# DO NOT DESTROY THIS COMBINATION, SINCE IT IS USED IN DOUBLE PRECISION INSTRUCTIONS.
|
||||
NEG0 OCT -0 # MUST PRECEDE ZERO
|
||||
ZERO OCT 0 # MUST FOLLOW NEG0
|
||||
# BIT1 OCT 00001
|
||||
# NO.WDS OCT 2 # INTERPRETER
|
||||
# OCTAL3 OCT 3 # INTERPRETER
|
||||
# R3D1 OCT 4 # PINBALL
|
||||
FIVE OCT 5
|
||||
# REVCNT OCT 6 # INTERPRETER
|
||||
SEVEN OCT 7
|
||||
# BIT4 OCT 00010
|
||||
# R2D1 OCT 11 # PINBALL
|
||||
OCT11 = R2D1 # P20S
|
||||
# BINCON DEC 10 # PINBALL (OCTAL 12)
|
||||
ELEVEN DEC 11
|
||||
# OCT14 OCT 14 # ALARM AND ABORT (FILLER)
|
||||
OCT15 OCT 15
|
||||
# R1D1 OCT 16 # PINBALL
|
||||
LOW4 OCT 17
|
||||
# Page 1096
|
||||
# BIT5 OCT 00020
|
||||
# NC1 OCT 21 # PINBALL
|
||||
# VD1 OCT 23 # PINBALL
|
||||
# OCT24 OCT 24 # SERVICE ROUTINES
|
||||
# MD1 OCT 25 # PINBALL
|
||||
BITS4&5 OCT 30
|
||||
# OCT31 OCT 31 # SERVICE ROUTINES
|
||||
OCT33 OCT 33
|
||||
# DEC27 = OCT33
|
||||
OCT35 OCT 35
|
||||
# DEC29 = OCT35
|
||||
CALLCODE OCT 00032
|
||||
# LOW5 OCT 37 # PINBALL
|
||||
# 33DEC DEC 33 # PINBALL (OCTAL 41)
|
||||
# 34DEC DEC 34 # PINBALL (OCTAL 42)
|
||||
TBUILDFX DEC 37 # BUILDUP FOR CONVENIENCE IN DAPTESTING
|
||||
TDECAYFX DEC 38 # CONVENIENCE FOR DAPTESTING
|
||||
# BIT6 OCT 00040
|
||||
OCT50 OCT 50
|
||||
DEC45 DEC 45
|
||||
SUPER011 OCT 60 # BITS FOR SUPERBNK SETTING 011.
|
||||
.5SEC DEC 50
|
||||
# BIT7 OCT 00100
|
||||
|
||||
SUPER100 = BIT7 # BITS FOR SUPERBNK SETTING 100
|
||||
# (LAST 4K OF ROPE)
|
||||
SUPER101 OCT 120 # BITS FOR SUPERBNK SETTING 101
|
||||
# OCT121 OCT 121 # SERVICE ROUTINES
|
||||
# (FIRST 8K OF ACM)
|
||||
SUPER110 OCT 140 # BITS FOR SUPERBNK SETTING 110.
|
||||
# (LAST BK OF ACM)
|
||||
1SEC DEC 100
|
||||
# LOW7 OCT 177 # INTERPRETER
|
||||
# BIT8 OCT 00200
|
||||
# OT215 OCT 215 # ALARM AND ABORT
|
||||
# 8,5 OCT 00220 # P20-P25 SUNDANCE
|
||||
2SECS DEC 200
|
||||
# LOW8 OCT 377 # PINBALL
|
||||
# BIT9 OCT 00400
|
||||
GN/CCODE OCT 00401 # SET S/C CONTROL SWITCH TO G/N
|
||||
3SECS DEC 300
|
||||
4SECS DEC 400
|
||||
LOW9 OCT 777
|
||||
# BIT10 OCT 01000
|
||||
# 5.5DEGS DEC .03056 # P20-P25 SUNDANCE (OCTAL 00765)
|
||||
# OCT1103 OCT 1103 # ALARM AND ABORT
|
||||
C5/2 DEC .0363551 # (OCTAL 01124)
|
||||
V05N09 VN 0509 # (SAME AS OCTAL 1211)
|
||||
OCT1400 OCT 01400
|
||||
V06N22 VN 0622
|
||||
# Page 1097
|
||||
# MID5 OCT 1740 # PINBALL
|
||||
BITS2-10 OCT 1776
|
||||
LOW10 OCT 1777
|
||||
# BIT11 OCT 02000
|
||||
# 2K+3 OCT 2003 # PINBALL
|
||||
LOW7+2K OCT 2177 # OP CODE MASK + BANK 1 FBANK SETTING
|
||||
EBANK5 OCT 02400
|
||||
PRIO3 OCT 03000
|
||||
EBANK7 OCT 03400
|
||||
# LOW11 OCT 3777 # PINBALL
|
||||
# BIT12 OCT 04000
|
||||
# RELTAB OCT 04025 # T4RUPT
|
||||
PRIO5 OCT 05000
|
||||
PRIO6 OCT 06000
|
||||
PRIO7 OCT 07000
|
||||
|
||||
# BIT13 OCT 10000
|
||||
# OCT 10003 # T4RUPT RELTAB +1D
|
||||
# 13,7,2 OCT 10102 # P20-P25 SUNDANCE
|
||||
PRIO11 OCT 11000
|
||||
# PRIO12 OCT 12000 # BANKCALL
|
||||
PRIO13 OCT 13000
|
||||
PRIO14 OCT 14000
|
||||
# OCT 14031 # T4RUPT RELTAB +2D
|
||||
PRIO15 OCT 15000
|
||||
PRIO16 OCT 16000
|
||||
# 85DEGS DEC .45556 # P20-P25 SUNDANCE (OCTAL 16450)
|
||||
PRIO17 OCT 17000
|
||||
OCT17770 OCT 17770
|
||||
# BIT14 OCT 20000
|
||||
# OCT 20033 # T4RUPT RELTAB +3D
|
||||
PRIO21 OCT 21000
|
||||
BLOCK 03
|
||||
COUNT* $$/FCONS
|
||||
PRIO22 OCT 22000 # SERVICE ROUTINES
|
||||
PRIO23 OCT 23000
|
||||
PRIO24 OCT 24000
|
||||
# 5/8+1 OCT 24001 # SINGLE PRECISION SUBROUTINES
|
||||
# OCT 24017 # T4RUPT RELTAB +4D
|
||||
PRIO25 OCT 25000
|
||||
PRIO26 OCT 26000
|
||||
PRIO27 OCT 27000
|
||||
# CHRPRIO OCT 30000 # PINBALL
|
||||
# OCT 30036 # T4RUPT RELTAB +5D
|
||||
PRIO31 OCT 31000
|
||||
C1/2 DEC .7853134 # (OCTAL 31103)
|
||||
PRIO32 OCT 32000
|
||||
PRIO33 OCT 33000
|
||||
PRIO34 OCT 34000
|
||||
# OCT 34034 # T4RUPT RELTAB +6D
|
||||
# Page 1098
|
||||
PRIO35 OCT 35000
|
||||
PRIO36 OCT 36000
|
||||
PRIO37 OCT 37000
|
||||
63/64+1 OCT 37401
|
||||
# MID7 OCT 37600 # PINBALL
|
||||
OCT37766 OCT 37766
|
||||
OCT37774 OCT 37774
|
||||
OCT37776 OCT 37776
|
||||
# DPOSMAX OCT 37777
|
||||
# BIT15 OCT 40000
|
||||
# OCT40001 OCT 40001 # INTERPRETER (CS 1 INSTRUCTION)
|
||||
DLOADCOD OCT 40014
|
||||
DLOAD* OCT 40015
|
||||
# OCT 40023 # T4RUPT RELTAB +7D
|
||||
BIT15+6 OCT 40040
|
||||
OCT40200 OCT 40200
|
||||
# OCT 44035 # T4RUPT RELTAB +8D
|
||||
# OCT 50037 # T4RUPT RELTAB +9D
|
||||
# OCT 54000 # T4RUPT RELTAB +10D
|
||||
-BIT14 OCT 57777
|
||||
# RELTAB11 OCT 60000 # T4RUPT
|
||||
C3/2 DEC -.3216147 # (OCTAL 65552)
|
||||
13,14,15 OCT 70000
|
||||
-1/8 OCT 73777
|
||||
HIGH4 OCT 74000
|
||||
-ENDERAS DEC -2001 # (OCTAL 74056)
|
||||
# HI5 OCT 76000 # PINBALL
|
||||
HIGH9 OCT 77700
|
||||
# -ENDVAC DEC -45 # INTERPRETER (OCTAL 77722)
|
||||
# -OCT10 OCT -10 # (OCTAL 77767)
|
||||
# NEG4 DEC -4 # (OCTAL 77773)
|
||||
NEG3 DEC -3
|
||||
NEG2 OCT 77775
|
||||
NEGONE DEC -1
|
||||
|
||||
# Page 1099
|
||||
|
||||
# DEFINED BY EQUALS
|
||||
|
||||
# IT WOULD BE TO THE USERS ADVANTAGE TO OCCASIONALLY CHECK ANY OF THESE SYMBOLS IN ORDER TO PREVENT ANY
|
||||
# ACCIDENTAL DEFINITION CHANGES.
|
||||
|
||||
MINUS1 = NEG1
|
||||
NEG1 = NEGONE
|
||||
ONE = BIT1
|
||||
TWO = BIT2
|
||||
THREE = OCTAL3
|
||||
LOW2 = THREE
|
||||
FOUR = BIT3
|
||||
SIX = REVCNT
|
||||
LOW3 = SEVEN
|
||||
EIGHT = BIT4
|
||||
NINE = R2D1
|
||||
TEN = BINCON
|
||||
NOUTCON = ELEVEN
|
||||
OCT23 = VD1
|
||||
OCT25 = MD1
|
||||
PRIO1 = BIT10
|
||||
EBANK3 = OCT1400
|
||||
PRIO2 = BIT11
|
||||
OCT120 = SUPER101
|
||||
OCT140 = SUPER110
|
||||
2K = BIT11
|
||||
EBANK4 = BIT11
|
||||
PRIO4 = BIT12
|
||||
EBANK6 = PRIO3
|
||||
QUARTER = BIT13
|
||||
PRIO10 = BIT13
|
||||
OCT10001 = CCSL
|
||||
POS1/2 = HALF
|
||||
PRIO20 = BIT14
|
||||
HALF = BIT14
|
||||
PRIO30 = CHRPRIO
|
||||
BIT13-14 = PRIO30 # INTERPRETER USES IN PROCESSING STORECODE
|
||||
OCT30002 = TLOAD +1
|
||||
B12T14 = PRIO34
|
||||
NEGMAX = BIT15
|
||||
VLOADCOD = BIT15
|
||||
VLOAD* = OCT40001
|
||||
OCT60000 = RELTAB11
|
||||
BANKMASK = HI5
|
||||
|
1242
Luminary099/FRESH_START_AND_RESTART.agc
Normal file
1242
Luminary099/FRESH_START_AND_RESTART.agc
Normal file
File diff suppressed because it is too large
Load Diff
76
Luminary099/GIMBAL_LOCK_AVOIDANCE.agc
Normal file
76
Luminary099/GIMBAL_LOCK_AVOIDANCE.agc
Normal file
@ -0,0 +1,76 @@
|
||||
# Copyright: Public domain.
|
||||
# Filename: GIMBAL_LOCK_AVOIDANCE.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: 364
|
||||
# Mod history: 2009-05-17 RSB Adapted from the corresponding
|
||||
# Luminary131 file, using page
|
||||
# images from Luminary 1A.
|
||||
# 2010-12-31 JL Fixed page number comment.
|
||||
#
|
||||
# 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 364
|
||||
BANK 15
|
||||
|
||||
SETLOC KALCMON1
|
||||
BANK
|
||||
|
||||
# DETECTING GIMBAL LOCK
|
||||
LOCSKIRT EQUALS NOGIMLOC
|
||||
|
||||
NOGIMLOC SET
|
||||
CALCMAN3
|
||||
WCALC LXC,1 DLOAD*
|
||||
RATEINDX # CHOOSE THE DESIRED MANEUVER RATE
|
||||
ARATE,1 # FROM A LIST OF FOUR
|
||||
SR4 CALL # COMPUTE THE INCREMENTAL ROTATION MATRIX
|
||||
DELCOMP # DEL CORRESPONDING TO A 1 SEC ROTATION
|
||||
# ABOUT COF
|
||||
DLOAD* VXSC
|
||||
ARATE,1
|
||||
COF
|
||||
STODL BRATE # COMPONENT MANEUVER RATES 45 DEG/SEC
|
||||
AM
|
||||
DMP DDV*
|
||||
ANGLTIME
|
||||
ARATE,1
|
||||
SR
|
||||
5
|
||||
STORE TM # MANEUVER EXECUTION TIME SCALED AS T2
|
||||
SETGO
|
||||
CALCMAN2 # D(OFF) = CONTINUE MANEUVER
|
||||
NEWANGL +1 # 1(ON) = START MANEUVER
|
||||
|
||||
# THE FOUR SELECTABLE FREE FALL MANEUVER RATES SELECTED BY
|
||||
# LOADING RATEINDX WITH 0, 2, 4, 6, RESPECTIVELY
|
||||
|
||||
ARATE 2DEC .0088888888 # = 0.2 DEG/SEC $ 22.5 DEG/SEC
|
||||
|
||||
2DEC .0222222222 # = 0.5 DEG/SEC $ 22.5 DEG/SEC
|
||||
|
||||
2DEC .0888888888 # = 2.0 DEG/SEC $ 22.5 DEG/SEC
|
||||
|
||||
2DEC .4444444444 # = 10.0 DEG/SEC $ 22.5 DEG/SEC
|
||||
|
||||
ANGLTIME 2DEC .0001907349 # = 100B-19 FUDGE FACTOR TO CONVERT
|
||||
# MANEUVER ANGLE TO MANEUVER TIME
|
||||
|
||||
|
205
Luminary099/GROUND_TRACKING_DETERMINATION_PROGRAM.agc
Normal file
205
Luminary099/GROUND_TRACKING_DETERMINATION_PROGRAM.agc
Normal file
@ -0,0 +1,205 @@
|
||||
# Copyright: Public domain.
|
||||
# Filename: GROUND_TRACKING_DETERMINATION_PROGRAM.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: 654-657
|
||||
# Mod history: 2009-05-18 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 654
|
||||
# GROUND TRACKING DETERMINATION PROGRAM -- P21
|
||||
# PROGRAM DESCRIPTION
|
||||
# MOD NO -- 1
|
||||
# MOD BY -- N. M. NEVILLE
|
||||
#
|
||||
# FUNCTIONAL DESCRIPTION --
|
||||
# TO PROVIDE THE ASTRONAUT DETAILS OF THE LM OR CSM GROUND TRACK WITHOUT
|
||||
# THE NEED FOR GROUND COMMUNICATION (REQUESTED BY DSKY).
|
||||
#
|
||||
# CALLING SEQUENCE --
|
||||
# ASTRONAUT REQUEST THROUGH DSKY V37E21E
|
||||
#
|
||||
# SUBROUTINES CALLED --
|
||||
# GOPERF4
|
||||
# GOFLASH
|
||||
# THISPREC
|
||||
# OTHPREC
|
||||
# LAT-LONG
|
||||
#
|
||||
# NORMAL EXIT MODES --
|
||||
# ASTRONAUT REQUEST THROUGH DSKY TO TERMINATE PROGRAM V34E
|
||||
#
|
||||
# ALARM OR ABORT EXIT MODES --
|
||||
# NONE
|
||||
#
|
||||
# OUTPUT --
|
||||
# OCTAL DISPLAY OF OPTION CODE AND VEHICLE WHOSE GROUND TRACK IS TO BE
|
||||
# COMPUTED
|
||||
# OPTION CODE 00002
|
||||
# THIS 00001
|
||||
# OTHER 00002
|
||||
# DECIMAL DISPLAY OF TIME TO BE INTEGRATED TO HOURS, MINUTES, SECONDS
|
||||
# DECIMAL DISPLAY OF LAT,LONG,ALT
|
||||
#
|
||||
# ERASABLE INITIALIZATION REQUIRED
|
||||
# AX0 2DEC 4.652459653 E-5 RADIANS $68-69 CONSTANTS*
|
||||
# -AY0 2DEC 2.137535898 E-5 RADIANS
|
||||
# AZ0 2DEC .7753206164 REVOLUTIONS
|
||||
# FOR LUNAR ORBITS 504LM VECTOR IS NEEDED:
|
||||
# 504LM 2DEC -2.700340600 E-5 RADIANS
|
||||
# 504LM _2 2DEC -7.514128400 E-4 RADIANS
|
||||
# 504LM _4 2DEC _2.553198641 E-4 RADIANS
|
||||
#
|
||||
# NONE
|
||||
#
|
||||
# DEBRIS
|
||||
# Page 655
|
||||
# CENTRALS -- A,Q,L
|
||||
# OTHER -- THOSE USED BY THE ABOVE LISTED SUBROUTINES
|
||||
# SEE LEMPREC, LAT-LONG
|
||||
|
||||
SBANK= LOWSUPER # FOR LOW 2CADR'S.
|
||||
|
||||
BANK 33
|
||||
SETLOC P20S
|
||||
BANK
|
||||
|
||||
EBANK= P21TIME
|
||||
COUNT* $$/P21
|
||||
PROG21 CAF ONE
|
||||
TS OPTION2 # ASSUMED VEHICLE IS LM, R2 = 00001
|
||||
CAF BIT2 # OPTION 2
|
||||
TC BANKCALL
|
||||
CADR GOPERF4
|
||||
TC GOTOP00H # TERMINATE
|
||||
TC +2 # PROCEED VALUE OF ASSUMED VEHICLE OK
|
||||
TC -5 # R2 LOADED THROUGH DSKY
|
||||
P21PROG1 CAF V6N34 # LOAD DESIRED TIME OF LAT-LONG.
|
||||
TC BANKCALL
|
||||
CADR GOFLASH
|
||||
TC GOTOP00H # TERM
|
||||
TC +2 # PROCEED VALUES OK
|
||||
TC -5 # TIME LOADED THROUGH DSKY
|
||||
TC INTPRET
|
||||
DLOAD
|
||||
DSPTEM1
|
||||
STCALL TDEC1 # INTEG TO TIME SPECIFIED IN TDEC
|
||||
INTSTALL
|
||||
BON CLEAR
|
||||
P21FLAG
|
||||
P21CONT # ON -- RECYCLE USING BASE VECTOR
|
||||
VINTFLAG # OFF -- 1ST PASS CALL BASE VECTOR
|
||||
SLOAD SR1
|
||||
OPTION2
|
||||
BHIZ SET
|
||||
+2 # ZERO -- THIS VEHICLE (LM)
|
||||
VINTFLAG # ONE -- OTHER VEHICLE (CM)
|
||||
CLEAR CLEAR
|
||||
DIM0FLAG
|
||||
INTYPFLG # PRECISION
|
||||
CALL
|
||||
INTEGRV # CALCULATE
|
||||
GOTO # AND
|
||||
P21VSAVE # SAVE BASE VECTOR
|
||||
P21CONT VLOAD
|
||||
P21BASER # RECYCLE -- INTEG FROM BASE VECTOR
|
||||
STOVL RCV # --POS
|
||||
# Page 656
|
||||
P21BASEV
|
||||
STODL VCV # --VEL
|
||||
P21TIME
|
||||
STORE TET # --TIME
|
||||
CLEAR CLEAR
|
||||
DIM0FLAG
|
||||
MOONFLAG
|
||||
SLOAD BZE
|
||||
P21ORIG
|
||||
+3 # ZERO = EARTH
|
||||
SET # ---2 = MOON
|
||||
MOONFLAG
|
||||
+3 CALL
|
||||
INTEGRVS
|
||||
P21VSAVE DLOAD # SAVE CURRENT BASE VECTOR
|
||||
TAT
|
||||
STOVL P21TIME # --TIME
|
||||
RATT1
|
||||
STOVL P21BASER # --POS B-29 OR B-27
|
||||
VATT1
|
||||
STORE P21BASEV # --VEL B-07 OR B-05
|
||||
ABVAL SL*
|
||||
0,2
|
||||
STOVL P21VEL # VEL/ FOR N91 DISP
|
||||
RATT
|
||||
UNIT DOT
|
||||
VATT # U(R).V
|
||||
DDV ASIN # U(R).U(V)
|
||||
P21VEL
|
||||
STORE P21GAM # SIN-1 U(R).U(V) , -90 TO +90
|
||||
SXA,2 SLOAD
|
||||
P21ORIG # 0 = EARTH
|
||||
OPTION2
|
||||
SR1 BHIZ
|
||||
+3
|
||||
GOTO
|
||||
+4
|
||||
+3 BON
|
||||
SURFFLAG
|
||||
P21DSP
|
||||
+4 SET
|
||||
P21FLAG
|
||||
P21DSP CLEAR SLOAD # GENERATE DISPLAY DATA
|
||||
LUNAFLAG
|
||||
X2
|
||||
BZE SET
|
||||
+2 # 0 = EARTH
|
||||
LUNAFLAG
|
||||
VLOAD
|
||||
RATT
|
||||
# Page 657
|
||||
STODL ALPHAV
|
||||
TAT
|
||||
CLEAR CALL
|
||||
ERADFLAG
|
||||
LAT-LONG
|
||||
DMP # MPAC = ALT, METERS B-29
|
||||
K.01
|
||||
STORE P21ALT # ALT/100 FOR N91 DISP
|
||||
EXIT
|
||||
CAF V06N43 # DISPLAY LAT, LONG, ALT
|
||||
TC BANKCALL # LAT, LONG = 1/2 REVS B0
|
||||
CADR GOFLASH # ALT = KM B14
|
||||
TC GOTOP00H # TERM
|
||||
TC GOTOP00H
|
||||
TC INTPRET # V32E RECYCLE
|
||||
DLOAD DAD
|
||||
P21TIME
|
||||
600SEC # 600 SECONDS OR 10 MIN
|
||||
STORE DSPTEM1
|
||||
RTB
|
||||
P21PROG1
|
||||
600SEC 2DEC 60000 # 10 MIN
|
||||
|
||||
V06N43 VN 00643
|
||||
V6N34 VN 00634
|
||||
K.01 2DEC .01
|
||||
|
418
Luminary099/IMU_COMPENSATION_PACKAGE.agc
Normal file
418
Luminary099/IMU_COMPENSATION_PACKAGE.agc
Normal file
@ -0,0 +1,418 @@
|
||||
# Copyright: Public domain.
|
||||
# Filename: IMU_COMPENSATION_PACKAGE.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: 326-337
|
||||
# Mod history: 2009-05-16 RSB Adapted from the corresponding
|
||||
# Luminary131 file, using page
|
||||
# images from Luminary 1A.
|
||||
# 2009-06-07 RSB Corrected 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-61
|
||||
# 16:27 JULY 14, 1969
|
||||
|
||||
# Page 326
|
||||
BANK 7
|
||||
SETLOC IMUCOMP
|
||||
BANK
|
||||
|
||||
EBANK= NBDX
|
||||
|
||||
COUNT* $$/ICOMP
|
||||
1/PIPA CAF LGCOMP # SAVE EBANK OF CALLING PROGRAM
|
||||
XCH EBANK
|
||||
TS MODE
|
||||
|
||||
CCS GCOMPSW # BYPASS IF GCOMPSW NEGATIVE
|
||||
TCF +3
|
||||
TCF +2
|
||||
TCF IRIG1 # RETURN
|
||||
|
||||
1/PIPA1 CAF FOUR # PIPAZ, PIPAY, PIPAX
|
||||
TS BUF +2
|
||||
|
||||
INDEX BUF +2
|
||||
CA PIPASCF # (P.P.M.) X 2(-9)
|
||||
EXTEND
|
||||
INDEX BUF +2
|
||||
MP DELVX # (PP) X 2(+14) NOW (PIPA PULSES) X 2(+5)
|
||||
TS Q # SAVE MAJOR PART
|
||||
|
||||
CA L # MINOR PART
|
||||
EXTEND
|
||||
MP BIT6 # SCALE 2(+9) SHIFT RIGHT 9
|
||||
INDEX BUF +2
|
||||
TS DELVX +1 # FRACTIONAL PIPA PULSES SCALED 2(+14)
|
||||
|
||||
CA Q # MAJOR PART
|
||||
EXTEND
|
||||
MP BIT6 # SCALE 2(+9) SHIFT RIGHT 9
|
||||
INDEX BUF +2
|
||||
DAS DELVX # (PIPAI) + (PIPAI)(SF)
|
||||
|
||||
INDEX BUF +2
|
||||
CS PIPABIAS # (PIPA PULSES)/(CS) X 2(-5) * *
|
||||
EXTEND
|
||||
MP 1/PIPADT # (CS) X 2(+8) NOW (PIPA PULSES) X 2(+5) *
|
||||
EXTEND
|
||||
MP BIT4 # SCALE 2(+11) SHIFT RIGHT 11 *
|
||||
INDEX BUF +2
|
||||
DAS DELVX # (PIPAI) + (PIPAI)(SFE) - (BIAS)(DELTAT)
|
||||
|
||||
CCS BUF +2 # PIPAZ, PIPAY, PIPAX
|
||||
AD NEG1
|
||||
TCF 1/PIPA1 +1
|
||||
# Page 327
|
||||
NOOP # LESS THAN ZERO IMPOSSIBLE
|
||||
|
||||
# Page 328
|
||||
IRIGCOMP TS GCOMPSW # INDICATE COMMANDS 2 PULSES OR LESS.
|
||||
TS BUF # INDEX COUNTER. IRIGX, IRIGY, IRIGZ.
|
||||
|
||||
TC IRIGX # COMPENSATE ACCELERATION TERMS
|
||||
|
||||
CS NBDX # (GYRO PULSES)/(CS) X 2(-5)
|
||||
TC DRIFTSUB # -(NBOX)(DELTAT) (GYRO PULSES) X 2(+14)
|
||||
|
||||
TC IRIGY # COMPENSATE ACCELERATION TERMS
|
||||
|
||||
CS NBDY # (GYRO PULSES)/(CS) X 2(-5)
|
||||
TC DRIFTSUB # +(NBDY)(DELTAT) (GYRO PULSES) X 2(+14)
|
||||
|
||||
TC IRIGZ # COMPENSATE ACCELERATION TERMS
|
||||
|
||||
CA NBDZ # (GYRO PULSES)/(CS) X 2(-5)
|
||||
TC DRIFTSUB # +(NBDZ)(DELTAT) (GYRO PULSES) X 2(+14)
|
||||
|
||||
CCS GCOMPSW # ARE GYRO COMMANDS GREATER THAN 2 PULSES
|
||||
TCF +2 # YES SEND OUT GYRO TORQUING COMMANDS.
|
||||
TCF IRIG1 # NO RETURN
|
||||
|
||||
CA PRIO21 # PRIO GREATER THAN SERVICER.
|
||||
TC NOVAC # SEND OUT GYRO TORQUING COMMANDS.
|
||||
EBANK= NBDX
|
||||
2CADR 1/GYRO
|
||||
|
||||
RELINT
|
||||
IRIG1 CA MODE # RESTORE CALLER'S EBANK
|
||||
TS EBANK
|
||||
TCF SWRETURN
|
||||
|
||||
# Page 329
|
||||
IRIGX EXTEND
|
||||
QXCH MPAC +2 # SAVE Q
|
||||
EXTEND
|
||||
DCS DELVX # (PIPA PULSES) X 2(+14)
|
||||
DXCH MPAC
|
||||
CA ADIAX # (GYRO PULSES)/(PIPA PULSE) X 2(-6) *
|
||||
TC GCOMPSUB # -(ADIAX)(PIPAX) (GYRO PULSES) X 2(+14)
|
||||
|
||||
EXTEND #
|
||||
DCS DELVY # (PIPA PULSES) X 2(+14)
|
||||
DXCH MPAC #
|
||||
CS ADSRAX # (GYRO PULSES)/(PIPA PULSE) X 2(-6) *
|
||||
TC GCOMPSUB # -(ADSRAX)(PIPAY) (GYRO PULSES) X 2(+14)
|
||||
|
||||
# EXTEND # ***
|
||||
# DCS DELVY # *** (PIPA PULSES) X 2(+14)
|
||||
# DXCH MPAC # ***
|
||||
# CA ADOAX # *** (GYRO PULSES)/(PIPA PULSE) X 2(-6) *
|
||||
# TC GCOMPSUB # *** -(ADOAX)(PIPAZ) (GYRO PULSES) X 2(+14)
|
||||
|
||||
TC MPAC +2
|
||||
|
||||
IRIGY EXTEND
|
||||
QXCH MPAC +2 # SAVE Q
|
||||
EXTEND
|
||||
DCS DELVY # (PIPA PULSES) X 2(+14)
|
||||
DXCH MPAC
|
||||
CA ADIAY # (GYRO PULSES)/(PIPA PULSE) X 2(-6) *
|
||||
TC GCOMPSUB # -(ADIAY)(PIPAY) (GYRO PULSES) X 2(+14)
|
||||
|
||||
EXTEND
|
||||
DCS DELVZ # (PIPA PULSES) X 2(+14)
|
||||
DXCH MPAC
|
||||
CS ADSRAY # (GYRO PULSES)/(PIPA PULSE) X 2(-6) *
|
||||
TC GCOMPSUB # +(ADSRAY)(PIPAZ) (GYRO PULSES) X 2(+14)
|
||||
|
||||
# EXTEND # ***
|
||||
# DCS DELVX # *** (PIPA PULSES) X 2(+14)
|
||||
# DXCH MPAC # ***
|
||||
# CA ADOAY # *** (GYRO PULSES)/(PIPA PULSE) X 2(-6) *
|
||||
# TC GCOMPSUB # *** -(ADOAY)(/PIPAX) (GYRO PULSES) X 2(+14)
|
||||
|
||||
TC MPAC +2
|
||||
|
||||
IRIGZ EXTEND
|
||||
QXCH MPAC +2 # SAVE Q
|
||||
EXTEND
|
||||
DCS DELVY # (PIPA PULSES) X 2(+14)
|
||||
DXCH MPAC
|
||||
CA ADSRAZ # (GYRO PULSES)/(PIPA PULSE) X 2(-6) *
|
||||
# Page 330
|
||||
TC GCOMPSUB # -(ADSRAZ)(PIPAY) (GYRO PULSES) X 2(+14)
|
||||
|
||||
EXTEND
|
||||
DCS DELVZ # (PIPA PULSES) X 2(+14)
|
||||
DXCH MPAC
|
||||
CA ADIAZ # (GYRO PULSES)/(PIPA PULSE) X 2(-6) *
|
||||
TC GCOMPSUB # -(ADIAZ)(PIPAZ) (GYRO PULSES) X 2(+14)
|
||||
|
||||
# EXTEND # ***
|
||||
# DCS DELVX # *** (PIPA PULSE) X 2(+14)
|
||||
# DXCH MPAC # ***
|
||||
# CS ADOAZ # *** (GYRO PULSES)/(PIPA PULSE) X 2(-6) *
|
||||
# TC GCOMPSUB # *** +(ADOAZ)(PIPAX) (GYRO PULSES) X 2(+14)
|
||||
|
||||
TC MPAC +2
|
||||
|
||||
# Page 331
|
||||
GCOMPSUB XCH MPAC # ADIA OR ADSRA COEFFICIENT ARRIVES IN A
|
||||
EXTEND # C(MPAC) = (PIPA PULSES) X 2(+14)
|
||||
MP MPAC # (GYRO PULSES)/(PIPA PULSE) X 2(-6) *
|
||||
DXCH VBUF # NOW = (GYRO PULSES) X 2(+8) *
|
||||
|
||||
CA MPAC +1 # MINOR PART OF PIPA PULSES
|
||||
EXTEND
|
||||
MP MPAC # ADIA OR ADSRA
|
||||
TS L
|
||||
CAF ZERO
|
||||
DAS VBUF # NOW = (GYRO PULSES) X 2(+8) *
|
||||
|
||||
CA VBUF # PARTIAL RESULT -- MAJOR
|
||||
EXTEND
|
||||
MP BIT9 # SCALE 2(+6) SHIFT RIGHT 6 *
|
||||
INDEX BUF # RESULT = (GYRO PULSES) X 2(+14)
|
||||
DAS GCOMP # HI(ADIA)(PIPAI) OR HI(ADSRA)(PIPAI)
|
||||
|
||||
CA VBUF +1 # PARTIAL RESULT -- MINOR
|
||||
EXTEND
|
||||
MP BIT9 # SCALE 2(+6) SHIFT RIGHT 6 *
|
||||
TS L
|
||||
CAF ZERO
|
||||
INDEX BUF # RESULT = (GYRO PULSES) X 2(+14)
|
||||
DAS GCOMP # (ADIA)(PIPAI) OR (ADSRA)(PIPAI)
|
||||
|
||||
TC Q
|
||||
|
||||
# Page 332
|
||||
DRIFTSUB EXTEND
|
||||
QXCH BUF +1
|
||||
|
||||
EXTEND # C(A) = NBD (GYRO PULSES)/(CS) X 2(-5)
|
||||
MP 1/PIPADT # (CS) X 2(+8) NO (GYRO PULSES) X 2(+3)
|
||||
LXCH MPAC +1 # SAVE FOR FRACTIONAL COMPENSATION
|
||||
EXTEND
|
||||
MP BIT4 # SCALE 2(+11) SHIFT RIGHT 11
|
||||
INDEX BUF
|
||||
DAS GCOMP # HI(NBD)(DELTAT) (GYRO PULSES) X 2(+14)
|
||||
|
||||
CA MPAC +1 # NO MINOR PART
|
||||
EXTEND
|
||||
MP BIT4 # SCALE 2(+11) SHIFT RIGHT 11
|
||||
TS L
|
||||
CAF ZERO
|
||||
INDEX BUF # ADD IN FRACTIONAL COMPENSATION
|
||||
DAS GCOMP # (NBD)(DELTAT) (GYRO PULSES) X 2(+14)
|
||||
|
||||
DRFTSUB2 CAF TWO # PIPAX, PIPAY, PIPAZ
|
||||
AD BUF
|
||||
XCH BUF
|
||||
INDEX A
|
||||
CCS GCOMP # ARE GYRO COMMANDS 1 PULSE OR GREATER
|
||||
TCF +2 # YES
|
||||
TC BUF +1 # NO
|
||||
|
||||
MASK COMPCHK # DEC -1
|
||||
CCS A # ARE GYRO COMMANDS GREATER THAN 2 PULSES
|
||||
TS GCOMPSW # YES -- SET GCOMPSW POSITIVE
|
||||
TC BUF +1 # NO
|
||||
|
||||
# Page 333
|
||||
1/GYRO CAF FOUR # PIPAZ, PIPAY, PIPAX
|
||||
TS BUF
|
||||
|
||||
INDEX BUF # SCALE GYRO COMMANDS FOR IMUPULSE
|
||||
CA GCOMP +1 # FRACTIONAL PULSES
|
||||
EXTEND
|
||||
MP BIT8 # SHIFT RIGHT 7
|
||||
INDEX BUF
|
||||
TS GCOMP +1 # FRACTIONAL PULSES SCALED
|
||||
|
||||
CAF ZERO # SET GCOMP = 0 FOR DAS INSTRUCTION
|
||||
INDEX BUF
|
||||
XCH GCOMP # GYRO PULSES
|
||||
EXTEND
|
||||
MP BIT8 # SHIFT RIGHT 7
|
||||
INDEX BUF
|
||||
DAS GCOMP # ADD THESE TO FRACTIONAL PULSES ABOVE
|
||||
|
||||
CCS BUF # PIPAZ, PIPAY, PIPAX
|
||||
AD NEG1
|
||||
TCF 1/GYRO +1
|
||||
LGCOMP ECADR GCOMP # LESS THAN ZERO IMPOSSIBLE
|
||||
|
||||
CAF LGCOMP
|
||||
TC BANKCALL
|
||||
CADR IMUPULSE # CALL GYRO TORQUING ROUTINE
|
||||
TC BANKCALL
|
||||
CADR IMUSTALL # WAIT FOR PULSES TO GET OUT
|
||||
TCF ENDOFJOB # TEMPORARY
|
||||
|
||||
GCOMP1 CAF FOUR # PIPAZ, PIPAY, PIPAX
|
||||
TS BUF
|
||||
|
||||
INDEX BUF # RESCALE
|
||||
CA GCOMP +1
|
||||
EXTEND
|
||||
MP BIT8 # SHIFT MINOR PART LEFT 7 -- MAJOR PART = 0
|
||||
INDEX BUF
|
||||
LXCH GCOMP +1 # BITS 8-14 OF MINOR PART WERE = 0
|
||||
|
||||
CCS BUF # PIPAZ, PIPAY, PIPAX
|
||||
AD NEG1
|
||||
TCF GCOMP1 +1
|
||||
COMPCHK DEC -1 # LESS THAN ZERO IMPOSSIBLE
|
||||
TCF ENDOFJOB
|
||||
|
||||
# Page 334
|
||||
NBDONLY CCS GCOMPSW # BYPASS IF GCOMPSW NEGATIVE
|
||||
TCF +3
|
||||
TCF +2
|
||||
TCF ENDOFJOB
|
||||
|
||||
INHINT
|
||||
CCS FLAGWRD2 # PREREAD T3RUPT MAY COINCIDE
|
||||
TCF ENDOFJOB
|
||||
TCF ENDOFJOB
|
||||
TCF +1
|
||||
|
||||
CA FLAGWRD8 # IF SURFACE FLAG IS SET, SET TEM1
|
||||
MASK BIT8 # POSITIVE SO THAT THE ACCELERATION TERMS
|
||||
TS TEM1 # WILL BE COMPENSATED.
|
||||
EXTEND
|
||||
BZF +3 # ARE WE ON THE SURFACE
|
||||
|
||||
TC IBNKCALL # ON THE SURFACE
|
||||
CADR PIPASR +3 # READ PIPAS, BUT DO NOT SCALE THEM
|
||||
|
||||
CA TIME1 # (CS) X 2(+14)
|
||||
XCH 1/PIPADT # PREVIOUS TIME
|
||||
RELINT
|
||||
COM
|
||||
AD 1/PIPADT # PRESENT TIME - PREVIOUS TIME
|
||||
NBD2 AD HALF # CORRECT FOR POSSIBLE TIME1 TICK
|
||||
AD HALF
|
||||
XCH L # IF TIME1 DID NOT DICK, REMOVE RESULTING
|
||||
XCH L # OVERFLOW.
|
||||
|
||||
NBD3 EXTEND # C(A) = DELTAT (CS) X 2(+14)
|
||||
MP BIT10 # SHIFT RIGHT 5
|
||||
DXCH VBUF +2
|
||||
|
||||
CA ZERO
|
||||
TS GCOMPSW # INDICATE COMMANDS 2 PULSES OR LESS.
|
||||
TS BUF # INDEX X, Y, Z.
|
||||
|
||||
CCS TEM1 # IF SURFACE FLAG IS SET,
|
||||
TC IRIGX # COMPENSATE ACCELERATION TERMS.
|
||||
|
||||
EXTEND
|
||||
DCA VBUF +2
|
||||
DXCH MPAC # DELTAT NOW SCALED (CS) X 2(+19)
|
||||
|
||||
CS NBDX # (GYRO PULSES)/(CS) X 2(-5)
|
||||
TC FBIASSUB # -(NBOX)(DELTAT) (GYRO PULSES) X 2(+14)
|
||||
|
||||
CCS TEM1 # IF SURFACE FLAG IS SET,
|
||||
TC IRIGY # COMPENSATE ACCELERATION TERMS.
|
||||
# Page 335
|
||||
EXTEND
|
||||
DCS VBUF +2
|
||||
DXCH MPAC # DELTAT SCALED (CS) X 2(+19)
|
||||
CA NBDY # (GYRO PULSES)/(CS) X 2(-5)
|
||||
TC FBIASSUB # -(NBDY)(DELTAT) (GYRO PULSES) X 2(+14)
|
||||
|
||||
CCS TEM1 # IF SURFACE FLAG IS SET,
|
||||
TC IRIGZ # COMPENSATE ACCELERATION TERMS
|
||||
|
||||
EXTEND
|
||||
DCS VBUF +2
|
||||
DXCH MPAC # DELTAT SCALED (CS) X 2(+19)
|
||||
CS NBDZ # (GYRO PULSES)/(CS) X 2(-5)
|
||||
TC FBIASSUB # +(NBDZ)(DELTAT) (GYRO PULSES) X 2(+14)
|
||||
|
||||
CCS GCOMPSW # ARE GYRO COMMANDS GREATER THAN 2 PULSES
|
||||
TCF 1/GYRO # YES
|
||||
TCF ENDOFJOB # NO
|
||||
|
||||
# Page 336
|
||||
FBIASSUB XCH Q
|
||||
TS BUF +1
|
||||
|
||||
CA Q # NBD SCALED (GYRO PULSES)/(CS) X 2(-5)
|
||||
EXTEND
|
||||
MP MPAC # DELTAT SCALED (CS) X 2(+19)
|
||||
INDEX BUF
|
||||
DAS GCOMP # HI(NBD)(DELTAT) (GYRO PULSES) X 2(+14)
|
||||
|
||||
CA Q # NOW FRACTIONAL PART
|
||||
EXTEND
|
||||
MP MPAC +1
|
||||
TS L
|
||||
CAF ZERO
|
||||
INDEX BUF
|
||||
DAS GCOMP # (NBD)(DELTAT) (GYRO PULSES) X 2(+14)
|
||||
|
||||
TCF DRFTSUB2 # CHECK MAGNITUDE OF COMPENSATION
|
||||
|
||||
LASTBIAS TC BANKCALL
|
||||
CADR PIPUSE1
|
||||
|
||||
CCS GCOMPSW
|
||||
TCF +3
|
||||
TCF +2
|
||||
TCF ENDOFJOB
|
||||
|
||||
CA FLAGWRD8 # IF SURFACE FLAG IS SET, SET TEM1
|
||||
MASK SURFFBIT # POSITIVE SO THAT THE ACCELERATION TERMS
|
||||
TS TEM1 # WILL BE COMPENSATED.
|
||||
|
||||
CAF PRIO31 # 2 SECONDS SCALED (CS) X 2(+8)
|
||||
XCH 1/PIPADT
|
||||
COM
|
||||
AD PIPTIME +1
|
||||
TCF NBD2
|
||||
|
||||
GCOMPZER CAF LGCOMP # ROUTINE TO ZERO GCOMP BEFORE FIRST
|
||||
XCH EBANK # CALL TO 1/PIPA
|
||||
TS MODE
|
||||
|
||||
CAF ZERO
|
||||
TS GCOMPSW
|
||||
TS GCOMP
|
||||
TS GCOMP +1
|
||||
TS GCOMP +2
|
||||
TS GCOMP +3
|
||||
TS GCOMP +4
|
||||
# Page 337
|
||||
TS GCOMP +5
|
||||
|
||||
TCF IRIG1 # RESTORE EBANK AND RETURN
|
||||
|
1072
Luminary099/IMU_MODE_SWITCHING_ROUTINES.agc
Normal file
1072
Luminary099/IMU_MODE_SWITCHING_ROUTINES.agc
Normal file
File diff suppressed because it is too large
Load Diff
300
Luminary099/INFLIGHT_ALIGNMENT_ROUTINES.agc
Normal file
300
Luminary099/INFLIGHT_ALIGNMENT_ROUTINES.agc
Normal file
@ -0,0 +1,300 @@
|
||||
# Copyright: Public domain.
|
||||
# Filename: INFLIGHT_ALIGNMENT_ROUTINES.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: 1249-1258
|
||||
# Mod history: 2009-05-26 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 1249
|
||||
BANK 22
|
||||
SETLOC INFLIGHT
|
||||
BANK
|
||||
|
||||
EBANK= XSM
|
||||
|
||||
# CALCGTA COMPUTES THE GYRO TORQUE ANGLES REQUIRED TO BRING THE STABLE MEMBER INTO THE DESIRED ORIENTATION.
|
||||
#
|
||||
# THE INPUT IS THE DESIRED STABLE MEMBER COORDINATES REFERRED TO PRESENT STABLE MEMBER COORDINATES. THE THREE
|
||||
# HALF-UNIT VECTORS ARE STORED AT XDC, YDC, AND ZDC.
|
||||
#
|
||||
# THE OUTPUTS ARE THE THREE GYRO TORQUE ANGLES TO BE APPLIED TO THE Y, Z, AND X GYROS AND ARE STORED DP AT IGC,
|
||||
# MGC, AND OGC RESPECTIVELY.
|
||||
|
||||
COUNT* $$/INFLT
|
||||
CALCGTA ITA DLOAD # PUSHDOWN 00-03, 16D-27D, 34D-37D
|
||||
S2 # XDC = (XD1 XD2 XD3)
|
||||
XDC # YDC = (YD1 YD2 YD3)
|
||||
PDDL PDDL # ZDC = (ZD1 ZD2 ZD3)
|
||||
HI6ZEROS
|
||||
XDC +4
|
||||
DCOMP VDEF
|
||||
UNIT
|
||||
STODL ZPRIME # ZP = UNIT(-XD3 0 XD1) = (ZP1 ZP2 ZP3)
|
||||
ZPRIME
|
||||
|
||||
SR1
|
||||
STODL SINTH # SIN(IGC) = ZP1
|
||||
ZPRIME +4
|
||||
SR1
|
||||
STCALL COSTH # COS(IGC) = ZP3
|
||||
ARCTRIG
|
||||
|
||||
STODL IGC # Y GYRO TORQUING ANGLE FRACTION OF REV.
|
||||
XDC +2
|
||||
SR1
|
||||
STODL SINTH # SIN(MGC) = XD2
|
||||
ZPRIME
|
||||
|
||||
DMP PDDL
|
||||
XDC +4 # PD00 = (ZP1)(XD3)
|
||||
ZPRIME +4
|
||||
|
||||
DMP DSU
|
||||
XDC # MPAC = (ZP3)(XD1)
|
||||
STADR
|
||||
STCALL COSTH # COS(MGC) = MPAC - PD00
|
||||
ARCTRIG
|
||||
# Page 1250
|
||||
STOVL MGC # Z GYRO TORQUING ANGLE FRACTION OF REV.
|
||||
ZPRIME
|
||||
DOT
|
||||
ZDC
|
||||
STOVL COSTH # COS(OGC) = ZP . ZDC
|
||||
ZPRIME
|
||||
DOT
|
||||
YDC
|
||||
STCALL SINTH # SIN(OGC) = ZP . YDC
|
||||
ARCTRIG
|
||||
|
||||
STCALL OGC # X GYRO TORQUING ANGLE FRACTION OF REV.
|
||||
S2
|
||||
|
||||
# Page 1251
|
||||
# ARCTRIG COMPUTES AN ANGLE GIVEN THE SINE AND COSINE OF THIS ANGLE.
|
||||
#
|
||||
# THE INPUTS ARE SIN/4 AND COS/4 STORED UP AT SINTH AND COSTH.
|
||||
#
|
||||
# THE OUTPUT IS THE CALCULATED ANGLE BETWEEN +.5 AND -.5 REVOLUTIONS AND STORED AT THETA. THE OUTPUT IS ALSO
|
||||
# AVAILABLE AT MPAC.
|
||||
|
||||
ARCTRIG DLOAD ABS # PUSHDOWN 16D-21D
|
||||
SINTH
|
||||
DSU BMN
|
||||
QTSN45 # ABS(SIN/4) - SIN(45)/4
|
||||
TRIG1 # IF (-45,45) OR (135,-135)
|
||||
|
||||
DLOAD SL1 # (45,135) OR (-135,-45)
|
||||
COSTH
|
||||
ACOS SIGN
|
||||
SINTH
|
||||
STORE THETA # X = ARCCOS(COS) WITH SIGN(SIN)
|
||||
RVQ
|
||||
|
||||
TRIG1 DLOAD SL1 # (-45,45) OR (135,-135)
|
||||
SINTH
|
||||
ASIN
|
||||
STODL THETA # X = ARCSIN(SIN) WITH SIGN(SIN)
|
||||
COSTH
|
||||
BMN
|
||||
TRIG2 # IF (135,-135)
|
||||
|
||||
DLOAD RVQ
|
||||
THETA # X = ARCSIN(SIN) (-45,45)
|
||||
|
||||
TRIG2 DLOAD SIGN # (135,-135)
|
||||
HIDPHALF
|
||||
SINTH
|
||||
DSU
|
||||
THETA
|
||||
STORE THETA # X = .5 WITH SIGN(SIN) - ARCSIN(SIN)
|
||||
RVQ # (+) - (+) OR (-) - (-)
|
||||
|
||||
# Page 1252
|
||||
# SMNB, NBSM, AND AXISROT, WHICH USED TO APPEAR HERE, HAVE BEEN
|
||||
# COMBINED IN A ROUTINE CALLED AX*SR*T, WHICH APPEARS AMONG THE POWERED
|
||||
# FLIGHT SUBROUTINES.
|
||||
|
||||
# Page 1253
|
||||
# CALCGA COMPUTES THE CDU DRIVING ANGLES REQUIRED TO BRING THE STABLE MEMBER INTO THE DESIRED ORIENTATION.
|
||||
#
|
||||
# THE INPUTS ARE 1) THE NAVIGATION BASE COORDINATES REFERRED TO ANY COORDINATE SYSTEM. THE THREE HALF-UNIT
|
||||
# VECTORS ARE STORED AT XNB, YNB, AND ZNB. 2) THE DESIRED STABLE MEMBER COORDINATES REFERRED TO THE SAME
|
||||
# COORDINATE SYSTEM ARE STORED AT XSM, YSM, AND ZSM.
|
||||
#
|
||||
# THE OUTPUTS ARE THE THREE CDU DRIVING ANGLES AND ARE STORED SP AT THETAD, THETAD +1, AND THETAD +2.
|
||||
|
||||
CALCGA SETPD # PUSHDOWN 00-05, 16D-21D, 34D-37D
|
||||
0
|
||||
VLOAD VXV
|
||||
XNB # XNB = OGA (OUTER GIMBAL AXIS)
|
||||
YSM # YSM = IGA (INNER GIMBAL AXIS)
|
||||
UNIT PUSH # PD0 = UNIT(OGA X IGA) = MGA
|
||||
|
||||
DOT ITA
|
||||
ZNB
|
||||
S2
|
||||
STOVL COSTH # COS(OG) = MGA . ZNB
|
||||
0
|
||||
DOT
|
||||
YNB
|
||||
STCALL SINTH # SIN(OG) = MGA . YNB
|
||||
ARCTRIG
|
||||
STOVL OGC
|
||||
0
|
||||
|
||||
VXV DOT # PROVISION FOR MG ANGLE OF 90 DEGREES
|
||||
XNB
|
||||
YSM
|
||||
SL1
|
||||
STOVL COSTH # COS(MG) = IGA . (MGA X OGA)
|
||||
YSM
|
||||
DOT
|
||||
XNB
|
||||
STCALL SINTH # SIN(MG) = IGA . OGA
|
||||
ARCTRIG
|
||||
STORE MGC
|
||||
|
||||
ABS DSU
|
||||
.166...
|
||||
BPL
|
||||
GIMLOCK1 # IF ANGLE GREATER THAN 60 DEGREES
|
||||
|
||||
CALCGA1 VLOAD DOT
|
||||
ZSM
|
||||
0
|
||||
STOVL COSTH # COS(IG) = ZSM . MGA
|
||||
XSM
|
||||
# Page 1254
|
||||
DOT STADR
|
||||
STCALL SINTH # SIN(IG) = XSM . MGA
|
||||
ARCTRIG
|
||||
|
||||
STOVL IGC
|
||||
OGC
|
||||
RTB
|
||||
V1STO2S
|
||||
STCALL THETAD
|
||||
S2
|
||||
|
||||
GIMLOCK1 EXIT
|
||||
TC ALARM
|
||||
OCT 00401
|
||||
TC UPFLAG # GIMBAL LOCK HAS OCCURRED
|
||||
ADRES GLOKFAIL
|
||||
|
||||
TC INTPRET
|
||||
GOTO
|
||||
CALCGA1
|
||||
|
||||
# Page 1255
|
||||
# AXISGEN COMPUTES THE COORDINATES OF ONE COORDINATE SYSTEM REFERRED TO ANOTHER COORDINATE SYSTEM.
|
||||
#
|
||||
# THE INPUTS ARE 1) THE STAR1 VECTOR REFERRED TO COORDINATE SYSTEM A STORED AT STARAD. 2) THE STAR2 VECTOR
|
||||
# REFERRED TO COORDINATE SYSTEM A STORED AT STARAD +6. 3) THE STAR1 VECTOR REFERRED TO COORDINATE SYSTEM B STORED
|
||||
# AT LOCATION 6 OF THE VAC AREA. 4) THE STAR2 VECTOR REFERRED TO COORDINATE SYSTEM B STORED AT LOCATION 12D OF
|
||||
# THE VAC AREA.
|
||||
#
|
||||
# THE OUTPUT DEFINES COORDINATE SYSTEM A REFERRED TO COORDINATE SYSTEM B. THE THREE HALF-UNIT VECTORS ARE STORED
|
||||
# AT LOCATIONS XDC, XDC +6, XDC +12D, AND STARAD, STARAD +6, STARAD +12D.
|
||||
|
||||
AXISGEN AXT,1 SSP # PUSHDOWN 00-30D, 34D-37D
|
||||
STARAD +6
|
||||
S1
|
||||
STARAD -6
|
||||
|
||||
SETPD
|
||||
0
|
||||
AXISGEN1 VLOAD* VXV* # 06D UA = S1
|
||||
STARAD +12D,1 # STARAD +00D UB = S1
|
||||
STARAD +18D,1
|
||||
UNIT # 12D VA = UNIT(S1 X S2)
|
||||
STORE STARAD +18D,1 # STARAD +06D VB = UNIT(S1 X S2)
|
||||
VLOAD*
|
||||
STARAD +12D,1
|
||||
|
||||
VXV* VSL1
|
||||
STARAD +18D,1 # 18D WA = UA X VA
|
||||
STORE STARAD +24D,1 # STARAD +12D WB = UB X VB
|
||||
|
||||
TIX,1
|
||||
AXISGEN1
|
||||
|
||||
AXC,1 SXA,1
|
||||
6
|
||||
30D
|
||||
|
||||
AXT,1 SSP
|
||||
18D
|
||||
S1
|
||||
6
|
||||
|
||||
AXT,2 SSP
|
||||
6
|
||||
S2
|
||||
2
|
||||
|
||||
AXISGEN2 XCHX,1 VLOAD*
|
||||
30D # X1=-6 X2=+6 X1=-6 X2=+4 X1=-6 X2=+2
|
||||
0,1
|
||||
|
||||
# Page 1256
|
||||
VXSC* PDVL* # J=(UA)(UB1) J=(UA)(UB2) J=(UA)(UB3)
|
||||
STARAD +6,2
|
||||
6,1
|
||||
VXSC*
|
||||
STARAD +12D,2
|
||||
STOVL* 24D # K=(VA)(VB1) J=(VA)(VB2) J=(VA)(VB3)
|
||||
12D,1
|
||||
|
||||
VXSC* VAD
|
||||
STARAD +18D,2 # L=(WA)(WB1) J=(WA)(WB2) J=(WA)(WB3)
|
||||
VAD VSL1
|
||||
24D
|
||||
XCHX,1 UNIT
|
||||
30D
|
||||
STORE XDC +18D,1 # XDC = L+J+K YDC = L+J+K ZDC = L+J+K
|
||||
|
||||
TIX,1
|
||||
AXISGEN3
|
||||
|
||||
AXISGEN3 TIX,2
|
||||
AXISGEN2
|
||||
|
||||
VLOAD
|
||||
XDC
|
||||
STOVL STARAD
|
||||
YDC
|
||||
STOVL STARAD +6
|
||||
ZDC
|
||||
STORE STARAD +12D
|
||||
|
||||
RVQ
|
||||
|
||||
# Page 1257
|
||||
QTSN45 2DEC .1768
|
||||
|
||||
.166... 2DEC .1666666667
|
||||
|
||||
# Page 1258 (empty page)
|
||||
|
1102
Luminary099/INTEGRATION_INITIALIZATION.agc
Normal file
1102
Luminary099/INTEGRATION_INITIALIZATION.agc
Normal file
File diff suppressed because it is too large
Load Diff
175
Luminary099/INTER-BANK_COMMUNICATION.agc
Normal file
175
Luminary099/INTER-BANK_COMMUNICATION.agc
Normal file
@ -0,0 +1,175 @@
|
||||
# Copyright: Public domain.
|
||||
# Filename: INTER-BANK_COMMUNICATION.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: 998-1001
|
||||
# Mod history: 2009-05-24 RSB Adapted from the corresponding
|
||||
# Luminary131 file, using page
|
||||
# images from Luminary 1A.
|
||||
# 2011-05-08 JL Removed workaround.
|
||||
|
||||
# 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 998
|
||||
# THE FOLLOWING ROUTINE CAN BE USED TO CALL A SUBROUTINE IN ANOTHER BANK. IN THE BANKCALL VERSION, THE
|
||||
# CADR OF THE SUBROUTINE IMMEDIATELY FOLLOWS THE TC BANKCALL INSTRUCTION, WITH C(A) AND C(L) PRESERVED.
|
||||
|
||||
BLOCK 02
|
||||
COUNT* $$/BANK
|
||||
BANKCALL DXCH BUF2 # SAVE INCOMING A,L.
|
||||
INDEX Q # PICK UP CADR.
|
||||
CA 0
|
||||
INCR Q # SO WE RETURN TO THE LOC. AFTER THE CADR.
|
||||
|
||||
# SWCALL IS IDENTICAL TO BANKCALL, EXCEPT THAT THE CADR ARRIVES IN A.
|
||||
|
||||
SWCALL TS L
|
||||
LXCH FBANK # SWITCH BANKS, SAVING RETURN.
|
||||
MASK LOW10 # GET SUB-ADDRESS OF CADR.
|
||||
XCH Q # A,L NOW CONTAINS DP RETURN.
|
||||
DXCH BUF2 # RESTORING INPUTS IF THIS IS A BANKCALL.
|
||||
INDEX Q
|
||||
TC 10000 # SETTING Q TO SWRETURN.
|
||||
|
||||
SWRETURN XCH BUF2 +1 # COMES HERE TO RETURN TO CALLER. C(A,L)
|
||||
XCH FBANK # ARE PRESERVED FOR RETURN.
|
||||
XCH BUF2 +1
|
||||
TC BUF2
|
||||
|
||||
# THE FOLLOWING ROUTINE CAN BE USED AS A UNILATERAL JUMP WITH C(A,L) PRESERVED AND THE CADR IMMEDIATELY
|
||||
# FOLLOWING THE TC POSTJUMP INSTRUCTION.
|
||||
|
||||
POSTJUMP XCH Q # SAVE INCOMING C(A).
|
||||
INDEX A # GET CADR.
|
||||
CA 0
|
||||
|
||||
# BANKJUMP IS THE SAME AS POSTJUMP, EXCEPT THAT THE CADR ARRIVES IN A.
|
||||
|
||||
BANKJUMP TS FBANK
|
||||
MASK LOW10
|
||||
XCH Q # RESTORING INPUT C(A) IF THIS WAS A
|
||||
Q+10000 INDEX Q # POSTJUMP.
|
||||
PRIO12 TCF 10000 # PRIO12 = TCF 10000 = 12000
|
||||
|
||||
# Page 999
|
||||
# THE FOLLOWING ROUTINE GETS THE RETURN CADR SAVED BY SWCALL OR BANKCALL AND LEAVES IT IN A.
|
||||
|
||||
MAKECADR CAF LOW10
|
||||
MASK BUF2
|
||||
AD BUF2 +1
|
||||
TC Q
|
||||
|
||||
SUPDACAL TS MPTEMP
|
||||
XCH FBANK # SET FBANK FOR DATA.
|
||||
EXTEND
|
||||
ROR SUPERBNK # SAVE FBANK IN BITS 15-11, AND
|
||||
XCH MPTEMP # SUPERBANK IN BITS 7-5.
|
||||
MASK LOW10
|
||||
XCH L # SAVE REL. ADR. IN BANK, FETCH SUPERBITS
|
||||
INHINT # BECAUSE RUPT DOES NOT SAVE SUPERBANK.
|
||||
EXTEND
|
||||
WRITE SUPERBNK # SET SUPERBANK FOR DATA.
|
||||
INDEX L
|
||||
CA 10000 # PINBALL (FIX MEM DISP) PREVENTS DCA HERE
|
||||
XCH MPTEMP # SAVE 1ST WD, FETCH OLD FBANK AND SBANK.
|
||||
EXTEND
|
||||
WRITE SUPERBNK # RESTORE SUPERBANK.
|
||||
RELINT
|
||||
TS FBANK # RESTORE FBANK.
|
||||
CA MPTEMP # RECOVER FIRST WORD OF DATA.
|
||||
RETURN # 24 WDS. DATACALL 516 MU, SUPDACAL 432 MU
|
||||
|
||||
# Page 1000
|
||||
# THE FOLLOWING ROUTINES ARE IDENTICAL TO BANKCALL AND SWCALL EXCEPT THAT THEY ARE USED IN INTERRUPT.
|
||||
|
||||
IBNKCALL DXCH RUPTREG3 # USES RUPTREG3,4 FOR DP RETURN ADDRESS.
|
||||
INDEX Q
|
||||
CAF 0
|
||||
INCR Q
|
||||
|
||||
ISWCALLL TS L
|
||||
LXCH FBANK
|
||||
MASK LOW10
|
||||
XCH Q
|
||||
DXCH RUPTREG3
|
||||
INDEX Q
|
||||
TC 10000
|
||||
|
||||
ISWRETRN XCH RUPTREG4
|
||||
XCH FBANK
|
||||
XCH RUPTREG4
|
||||
TC RUPTREG3
|
||||
|
||||
# 2. USPRCADR ACCESSES INTERPRETIVE CODING IN OTHER THAN THE USER'S FBANK. THE CALLING SEQUENCE IS AS FOLLOWS:
|
||||
# L TC USPRCADR
|
||||
# L+1 CADR INTPRETX # INTPRETX IS THE INTERPRETIVE CODING
|
||||
# # RETURN IS TO L+2
|
||||
|
||||
USPRCADR TS LOC # SAVE A
|
||||
CA BIT8
|
||||
TS EDOP # EXIT INSTRUCTION TO EDOP
|
||||
CA BBANK
|
||||
TS BANKSET # USER'S BBANK TO BANKSET
|
||||
INDEX Q
|
||||
CA 0
|
||||
TS FBANK # INTERPRETIVE BANK TO FBANK
|
||||
MASK LOW10 # YIELDS INTERPRETIVE RELATIVE ADDRESS
|
||||
XCH Q # INTERPRETIVE ADDRESS TO Q, FETCHING L+1
|
||||
XCH LOC # L+1 TO LOC, RETRIEVING ORIGINAL A
|
||||
TCF Q+10000
|
||||
|
||||
# Page 1001
|
||||
# THERE ARE FOUR POSSIBLE SETTINGS FOR CHANNEL 07. (CHANNEL 07 CONTAINS SUPERBANK SETTING.)
|
||||
#
|
||||
# PSEUDO-FIXED OCTAL PSEUDO
|
||||
# SUPERBANK SETTING S-REG. VALUE BANK NUMBERS ADDRESSES
|
||||
# --------- ------- ------------ ------------ ---------
|
||||
# SUPERBANK 3 OXX 2000 - 3777 30 - 37 70000 - 107777 (WHERE XX CAN BE ANYTHING AND
|
||||
# WILL USUALLY BE SEEN AS 11)
|
||||
# SUPERBANK 4 100 2000 - 3777 40 - 47 110000 - 127777 (AS FAR AS IT CAN BE SEEN,
|
||||
# ONLY BANKS 40-43 WILL EVER BE
|
||||
# AND ARE PRESENTLY AVAILABLE)
|
||||
# SUPERBANK 5 101 2000 - 3777 50 - 57 130000 - 147777 (PRESENTLY NOT AVAILABLE TO
|
||||
# THE USER)
|
||||
# SUPERBANK 6 110 2000 - 3777 60 - 67 150000 - 167777 (PRESENTLY NOT AVAILABLE TO
|
||||
# THE USER)
|
||||
# *** THIS ROUTINE MAY BE CALLED BY ANY PROGRAM LOCATED IN BANKS 00 - 27. I.E., NO PROGRAM LIVING IN ANY
|
||||
# SUPERBANK SHOULD USE SUPERSW. ***
|
||||
#
|
||||
# SUPERSW MAY BE CALLED IN THIS FASHION:
|
||||
# CAF ABBCON WHERE -- ABBCON BBCON SOMETHING --
|
||||
# TCR SUPERSW (THE SUPERBNK BITS ARE IN THE BBCON)
|
||||
# ... ...
|
||||
# . .
|
||||
# . .
|
||||
# OR IN THIS FASHION:
|
||||
# CAF SUPERSET WHERE SUPERSET IS ONE OF THE FOUR AVAILABLE
|
||||
# TCR SUPERSW SUPERBANK BIT CONSTANTS:
|
||||
# ... ... SUPER011 OCTAL 60
|
||||
# . . SUPER100 OCTAL 100
|
||||
# . . SUPER101 OCTAL 120
|
||||
# SUPER110 OCTAL 140
|
||||
|
||||
SUPERSW EXTEND
|
||||
WRITE SUPERBNK # WRITE BITS 7-6-5 OF THE ACCUMULATOR INTO
|
||||
# CHANNEL 07
|
||||
TC Q # TC TO INSTRUCTION FOLLOWING
|
||||
# TC SUPERSW
|
||||
|
3075
Luminary099/INTERPRETER.agc
Normal file
3075
Luminary099/INTERPRETER.agc
Normal file
File diff suppressed because it is too large
Load Diff
117
Luminary099/INTERRUPT_LEAD_INS.agc
Normal file
117
Luminary099/INTERRUPT_LEAD_INS.agc
Normal file
@ -0,0 +1,117 @@
|
||||
# Copyright: Public domain.
|
||||
# Filename: INTERRUT_LEAD_INS.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: Onno Hommes <ohommes@cmu.edu>.
|
||||
# Website: www.ibiblio.org/apollo.
|
||||
# Pages: 0153-0154
|
||||
# Mod history: 2009-05-14 OH Transcribed from page images.
|
||||
#
|
||||
# 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 153
|
||||
SETLOC 4000
|
||||
|
||||
COUNT* $$/RUPTS # FIX-FIX LEAD INS
|
||||
INHINT # GO
|
||||
CAF GOBB
|
||||
XCH BBANK
|
||||
TCF GOPROG
|
||||
|
||||
DXCH ARUPT # T6RUPT
|
||||
EXTEND
|
||||
DCA T6ADR
|
||||
DTCB
|
||||
|
||||
DXCH ARUPT # T5RUPT -- AUTOPILOT
|
||||
EXTEND
|
||||
DCA T5ADR
|
||||
DTCB
|
||||
|
||||
DXCH ARUPT # T3RUPT
|
||||
CAF T3RPTBB
|
||||
XCH BBANK
|
||||
TCF T3RUPT
|
||||
|
||||
DXCH ARUPT # T4RUPT
|
||||
CAF T4RPTBB
|
||||
XCH BBANK
|
||||
TCF T4RUPT
|
||||
|
||||
DXCH ARUPT # KEYRUPT1
|
||||
CAF KEYRPTBB
|
||||
XCH BBANK
|
||||
TCF KEYRUPT1
|
||||
|
||||
DXCH ARUPT # KEYRUPT2
|
||||
CAF MKRUPTBB
|
||||
XCH BBANK
|
||||
TCF MARKRUPT
|
||||
|
||||
DXCH ARUPT # UPRUPT
|
||||
CAF UPRPTBB
|
||||
XCH BBANK
|
||||
TCF UPRUPT
|
||||
|
||||
DXCH ARUPT # DOWNRUPT
|
||||
CAF DWNRPTBB
|
||||
XCH BBANK
|
||||
TCF DODOWNTM
|
||||
|
||||
DXCH ARUPT # RADAR RUPT
|
||||
CAF RDRPTBB
|
||||
# Page 154
|
||||
XCH BBANK
|
||||
TCF RADAREAD
|
||||
|
||||
DXCH ARUPT # RUPT10 IS USED ONLY BY LANDING GUIDANCE
|
||||
CA RUPT10BB
|
||||
XCH BBANK
|
||||
TCF PITFALL
|
||||
|
||||
|
||||
EBANK= LST1 # RESTART USES E0, E3
|
||||
GOBB BBCON GOPROG
|
||||
|
||||
EBANK= PERROR
|
||||
T6ADR 2CADR DOT6RUPT
|
||||
|
||||
EBANK= LST1
|
||||
T3RPTBB BBCON T3RUPT
|
||||
|
||||
EBANK= KEYTEMP1
|
||||
KEYRPTBB BBCON KEYRUPT1
|
||||
|
||||
EBANK= AOTAZ
|
||||
MKRUPTBB BBCON MARKRUPT
|
||||
|
||||
UPRPTBB = KEYRPTBB
|
||||
|
||||
EBANK= DNTMBUFF
|
||||
DWNRPTBB BBCON DODOWNTM
|
||||
|
||||
EBANK= RADMODES
|
||||
RDRPTBB BBCON RADAREAD
|
||||
|
||||
EBANK= M11
|
||||
T4RPTBB BBCON T4RUPT
|
||||
|
||||
EBANK= ELVIRA
|
||||
RUPT10BB BBCON PITFALL
|
||||
|
229
Luminary099/KALCMANU_STEERING.agc
Normal file
229
Luminary099/KALCMANU_STEERING.agc
Normal file
@ -0,0 +1,229 @@
|
||||
# Copyright: Public domain.
|
||||
# Filename: KALCMANU_STEERING.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: 365-369
|
||||
# Mod history: 2009-05-17 RSB Adapted from the corresponding
|
||||
# Luminary131 file, using page
|
||||
# images from Luminary 1A.
|
||||
# 2011-01-06 JL Added missing comment characters.
|
||||
#
|
||||
# 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 365
|
||||
# GENERATION OF STEERING COMMANDS FOR DIGITAL AUTOPILOT FREE FALL MANEUVERS
|
||||
#
|
||||
# NEW COMMANDS WILL BE GENERATED EVERY ONE SECOND DURING THE MANEUVER
|
||||
|
||||
EBANK= TTEMP
|
||||
|
||||
NEWDELHI TC BANKCALL # CHECK FOR AUTO STABILIZATION
|
||||
CADR ISITAUTO # ONLY
|
||||
CCS A
|
||||
TCF NOGO -2
|
||||
NEWANGL TC INTPRET
|
||||
AXC,1 AXC,2
|
||||
MIS # COMPUTE THE NEW MATRIX FROM S/C TO
|
||||
KEL # STABLE MEMBER AXES
|
||||
CALL
|
||||
MXM3
|
||||
VLOAD STADR
|
||||
STOVL MIS +12D # CALCULATE NEW DESIRED CDU ANGLES
|
||||
STADR
|
||||
STOVL MIS +6D
|
||||
STADR
|
||||
STORE MIS
|
||||
AXC,1 CALL
|
||||
MIS
|
||||
DCMTOCDU # PICK UP THE NEW CDU ANGLES FROM MATRIX
|
||||
RTB
|
||||
V1STO2S
|
||||
STORE NCDU # NEW CDU ANGLES
|
||||
BONCLR EXIT
|
||||
CALCMAN2
|
||||
MANUSTAT # TO START MANEUVER
|
||||
CAF TWO # +0 OTHERWISE
|
||||
INCRDCDU TS SPNDX
|
||||
INDEX SPNDX
|
||||
CA BCDU # INITIAL CDU ANGLES
|
||||
EXTEND # OR PREVIOUS DESIRED CDU ANGLES
|
||||
INDEX SPNDX
|
||||
MSU NCDU
|
||||
EXTEND
|
||||
|
||||
# The following 2 lines seem to have no purpose at all.
|
||||
# I am removing them because they only serve to confuse
|
||||
# the assembler by getting in between EXTEND and MP.
|
||||
# --- RSB 2009.
|
||||
#SETLOC KALCMON1
|
||||
#BANK
|
||||
|
||||
MP DT/TAU
|
||||
CCS A # CONVERT TO 2'S COMPLEMENT
|
||||
AD ONE
|
||||
TCF +2
|
||||
COM
|
||||
INDEX SPNDX
|
||||
TS DELDCDU # ANGLE INCREMENTS TO BE ADDED TO
|
||||
INDEX SPNDX # CDUXD, CDUYD, CDUZD EVERY TENTH SECOND
|
||||
# Page 366
|
||||
CA NCDU # BY LEM DAP
|
||||
INDEX SPNDX
|
||||
XCH BCDU
|
||||
INDEX SPNDX
|
||||
TS CDUXD
|
||||
CCS SPNDX
|
||||
TCF INCRDCDU # LOOP FOR THREE AXES
|
||||
|
||||
RELINT
|
||||
|
||||
# COMPARE PRESENT TIME WTIH TIME TO TERMINATE MANEUVER
|
||||
|
||||
TMANUCHK TC TIMECHK
|
||||
TCF CONTMANU
|
||||
CAF ONE
|
||||
MANUSTAL INHINT # END MAJOR PART OF MANEUVER WITHIN 1 SEC
|
||||
TC WAITLIST # UNDER WAITLIST CALL TO MANUSTOP
|
||||
EBANK= TTEMP
|
||||
2CADR MANUSTOP
|
||||
|
||||
RELINT
|
||||
TCF ENDOFJOB
|
||||
|
||||
TIMECHK EXTEND
|
||||
DCS TIME2
|
||||
DXCH TTEMP
|
||||
EXTEND
|
||||
DCA TM
|
||||
DAS TTEMP
|
||||
CCS TTEMP
|
||||
TC Q
|
||||
TCF +2
|
||||
TCF 2NDRETRN
|
||||
CCS TTEMP +1
|
||||
TC Q
|
||||
TCF MANUOFF
|
||||
COM
|
||||
MANUOFF AD ONESEK +1
|
||||
EXTEND
|
||||
BZMF 2NDRETRN
|
||||
INCR Q
|
||||
2NDRETRN INCR Q
|
||||
TC Q
|
||||
|
||||
DT/TAU DEC .1
|
||||
|
||||
MANUSTAT EXIT # INITIALIZATION ROUTINE
|
||||
EXTEND # FOR AUTOMATIC MANEUVERS
|
||||
DCA TIME2
|
||||
# Page 367
|
||||
DAS TM # TM+TO MANEUVER COMPLETION TIME
|
||||
EXTEND
|
||||
DCS ONESEK
|
||||
DAS TM # (TM+TO)-1
|
||||
INHINT
|
||||
CAF TWO
|
||||
RATEBIAS TS KSPNDX
|
||||
DOUBLE
|
||||
TS KDPNDX
|
||||
INDEX A
|
||||
CA BRATE
|
||||
INDEX KSPNDX # STORE MANEUVER RATE IN
|
||||
TS OMEGAPD # OMEGAPD, OMEGAQD, OMEGARD
|
||||
EXTEND
|
||||
BZMF +2 # COMPUTE ATTITUDE ERROR
|
||||
COM # OFFSET = (WX)ABS(WX)/2AJX
|
||||
EXTEND # WHERE AJX= 2-JET ACCELERATION
|
||||
MP BIASCALE # = -1/16
|
||||
EXTEND
|
||||
INDEX KDPNDX
|
||||
MP BRATE
|
||||
EXTEND
|
||||
INDEX KSPNDX
|
||||
DV 1JACC # = AJX $ 90 DEG/SEC-SEC
|
||||
INDEX KSPNDX
|
||||
TS DELPEROR # $ 180 DEG
|
||||
CCS KSPNDX
|
||||
TCF RATEBIAS
|
||||
|
||||
CA TIME1
|
||||
AD ONESEK +1
|
||||
XCH NEXTIME
|
||||
TCF INCRDCDU -1
|
||||
|
||||
ONESEK DEC 0
|
||||
DEC 100
|
||||
|
||||
BIASCALE OCT 75777 # = -1/16
|
||||
|
||||
CONTMANU CS TIME1 # RESET FOR NEXT DCDU UPDATE
|
||||
AD NEXTIME
|
||||
CCS A
|
||||
AD ONE
|
||||
TCF MANUCALL
|
||||
AD NEGMAX
|
||||
COM
|
||||
MANUCALL INHINT # CALL FOR NEXT UPDATE VIA WAITLIST
|
||||
TC WAITLIST
|
||||
EBANK= TTEMP
|
||||
2CADR UPDTCALL
|
||||
# Page 368
|
||||
CAF ONESEK +1 # INCREMENT TIME FOR NEXT UPDATE
|
||||
ADS NEXTIME
|
||||
TCF ENDOFJOB
|
||||
|
||||
UPDTCALL CAF PRIO26 # SATELLITE PROGRAM TO CALL FOR UPDATE
|
||||
TC FINDVAC # OF STEERING COMMANDS
|
||||
EBANK= TTEMP
|
||||
2CADR NEWDELHI
|
||||
|
||||
TC TASKOVER
|
||||
|
||||
# Page 369
|
||||
# ROUTINE FOR TERMINATING AUTOMATIC MANEUVERS
|
||||
|
||||
MANUSTOP CAF ZERO # ZERO MANEUVER RATES
|
||||
TS DELDCDU2
|
||||
TS OMEGARD
|
||||
TS DELREROR
|
||||
TS DELDCDU1
|
||||
TS OMEGAQD
|
||||
TS DELQEROR
|
||||
CA CPSI # SET DESIRED GIMBAL ANGLES TO
|
||||
TS CDUZD # DESIRED FINAL GIMBAL ANGLES
|
||||
CA CTHETA
|
||||
TS CDUYD
|
||||
ENDROLL CA CPHI # NO FINAL YAW
|
||||
TS CDUXD
|
||||
CAF ZERO
|
||||
TS OMEGAPD # I.E., MANEUVER DID NOT GO THRU
|
||||
TS DELDCDU # GIMBAL LOCK ORIGINALLY
|
||||
TS DELPEROR
|
||||
GOODMANU CA ATTPRIO # RESTORE USERS PRIO
|
||||
TS NEWPRIO
|
||||
|
||||
CA ZERO # ZERO ATTCADR
|
||||
DXCH ATTCADR
|
||||
|
||||
TC SPVAC # RETURN TO USER
|
||||
|
||||
TC TASKOVER
|
||||
|
||||
|
132
Luminary099/KEYRUPT_UPRUPT.agc
Normal file
132
Luminary099/KEYRUPT_UPRUPT.agc
Normal file
@ -0,0 +1,132 @@
|
||||
# Copyright: Public domain.
|
||||
# Filename: KEYRUPT_UPRUPT.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: 1338-1340
|
||||
# Mod history: 2009-05-27 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 1338
|
||||
BANK 14
|
||||
SETLOC KEYRUPT
|
||||
BANK
|
||||
COUNT* $$/KEYUP
|
||||
|
||||
KEYRUPT1 TS BANKRUPT
|
||||
XCH Q
|
||||
TS QRUPT
|
||||
TC LODSAMPT # TIME IS SNATCHED IN RUPT FOR NOUN 65.
|
||||
CAF LOW5
|
||||
EXTEND
|
||||
RAND MNKEYIN # CHECK IF KEYS 5M-1M ON
|
||||
KEYCOM TS RUPTREG4
|
||||
CS FLAGWRD5
|
||||
MASK DSKYFBIT
|
||||
ADS FLAGWRD5
|
||||
|
||||
ACCEPTUP CAF CHRPRIO # (NOTE: RUPTREG4 = KEYTEMP1)
|
||||
TC NOVAC
|
||||
EBANK= DSPCOUNT
|
||||
2CADR CHARIN
|
||||
|
||||
CA RUPTREG4
|
||||
INDEX LOCCTR
|
||||
TS MPAC # LEAVE 5 BIT KEY CODE IN MPAC FOR CHARIN
|
||||
TC RESUME
|
||||
|
||||
# Page 1339
|
||||
# UPRUPT PROGRAM
|
||||
|
||||
UPRUPT TS BANKRUPT
|
||||
XCH Q
|
||||
TS QRUPT
|
||||
TC LODSAMPT # TIME IS SNATCHED IN RUPT FOR NOUN 65.
|
||||
CAF ZERO
|
||||
XCH INLINK
|
||||
TS KEYTEMP1
|
||||
CAF BIT3 # TURN ON UPACT LIGHT
|
||||
EXTEND # (BIT 3 OF CHANNEL 11)
|
||||
WOR DSALMOUT
|
||||
UPRPT1 CAF LOW5 # TEST FOR TRIPLE CHAR REDUNDANCY
|
||||
MASK KEYTEMP1 # LOW5 OF WORD
|
||||
XCH KEYTEMP1 # LOW5 INTO KEYTEMP1
|
||||
EXTEND
|
||||
MP BIT10 # SHIFT RIGHT 5
|
||||
TS KEYTEMP2
|
||||
MASK LOW5 # MID 5
|
||||
AD HI10
|
||||
TC UPTEST
|
||||
CAF BIT10
|
||||
EXTEND
|
||||
MP KEYTEMP2 # SHIFT RIGHT 5
|
||||
MASK LOW5 # HIGH 5
|
||||
COM
|
||||
TC UPTEST
|
||||
|
||||
UPCK CS ELRCODE # CODE IS GOOD. IF CODE = `ERROR RESET',
|
||||
AD KEYTEMP1 # CLEAR UPLOCKFL (SET BIT4 OF FLAGWRD7 = 0)
|
||||
EXTEND # IF CODE DOES NOT = `ERROR RESET', ACCEPT
|
||||
BZF CLUPLOCK # CODE ONLY IF UPLOCKFL IS CLEAR (=0).
|
||||
|
||||
CAF UPLOCBIT # TEST UPLOCKFL FOR 0 OR 1
|
||||
MASK FLAGWRD7
|
||||
CCS A
|
||||
TC RESUME # UPLOCKFL = 1
|
||||
TC ACCEPTUP # UPLOCKFL = 0
|
||||
|
||||
CLUPLOCK CS UPLOCBIT # CLEAR UPLOCKFL (I.E., SET BIT 4 OF
|
||||
MASK FLAGWRD7 # FLAGWRD7 = 0)
|
||||
TS FLAGWRD7
|
||||
TC ACCEPTUP
|
||||
|
||||
# CODE IS BAD
|
||||
TMFAIL2 CS FLAGWRD7 # LOCK OUT FURTHER UPLINK ACTIVITY
|
||||
MASK UPLOCBIT # (BY SETTING UPLOCKFL = 1) UNTIL
|
||||
ADS FLAGWRD7 # `ERROR RESET' IS SENT VIA UPLINK.
|
||||
TC RESUME
|
||||
UPTEST AD KEYTEMP1
|
||||
# Page 1340
|
||||
CCS A
|
||||
TC TMFAIL2
|
||||
HI10 OCT 77740
|
||||
TC TMFAIL2
|
||||
TC Q
|
||||
|
||||
ELRCODE OCT 22
|
||||
|
||||
# `UPLINK ACTIVITY LIGHT' IS TURNED OFF BY .....
|
||||
# 1. VBRELDSP
|
||||
# 2. ERROR RESET
|
||||
# 3. UPDATE PROGRAM (P27) ENTERED BY V70,V71,V72, AND V73.
|
||||
# _
|
||||
# THE RECEPTION OF A BAD CODE (I.E., CCC FAILURE) LOCKS OUT FURTHER UPLINK ACTIVITY BY SETTING BIT4 OF FLAGWRD7 = 1.
|
||||
# THIS INDICATION WILL BE TRANSFERRED TO THE GROUND BY THE DOWNLINK WHICH DOWNLINKS ALL FLAGWORDS.
|
||||
# WHEN UPLINK ACTIVITY IS LOCKED OUT, IT CAN BE ALLOWED WHEN THE GROUND UPLINKS AND `ERROR RESET' CODE.
|
||||
# (IT IS RECOMMENDED THAT THE `ERROR LIGHT RESET' CODE IS PRECEEDED BY 16 BITS THE FIRST OF WHICH IS 1 FOLLOWED
|
||||
# BY 15 ZEROS. THIS WILL ELIMINATE EXTRANEOUS BITS FROM INLINK WHICH MAY HAVE BEEN LEFT OVER FROM THE ORIGINAL
|
||||
# FAILURE).
|
||||
#
|
||||
# UPLINK ACTIVITY IS ALSO ALLOWED (UNLOCKED) DURING FRESH START WHEN FRESH START SETS BIT4 OF FLAGWRD7 = 0.
|
||||
|
||||
CS XDSPBIT
|
||||
|
308
Luminary099/LATITUDE_LONGITUDE_SUBROUTINES.agc
Normal file
308
Luminary099/LATITUDE_LONGITUDE_SUBROUTINES.agc
Normal file
@ -0,0 +1,308 @@
|
||||
# Copyright: Public domain.
|
||||
# Filename: LATITUDE_LONGITUDE_SUBROUTINES.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: Jim Lawton <jim DOT lawton AT gmail DOT com>
|
||||
# Website: www.ibiblio.org/apollo.
|
||||
# Pages: 1133-1139
|
||||
# Mod history: 2009-05-28 JL Updated from page images.
|
||||
# 2011-01-06 JL Fixed interpretive indentation.
|
||||
#
|
||||
# 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 1133
|
||||
# SUBROUTINE TO CONVERT RAD VECTOR AT GIVEN TIME TO LAT,LONG AND ALT
|
||||
#
|
||||
# CALLING SEQUENCE
|
||||
# L-1 CALL
|
||||
# L LAT-LONG
|
||||
#
|
||||
# SUBROUTINES USED
|
||||
# R-TO-RP, ARCTAN, SFTGAMMA, SETRE
|
||||
#
|
||||
# ERASABLE INIT. REQ.
|
||||
# AXO, -AYO, AZO, TEPHEM (SET AT LAUNCH TIME)
|
||||
# ALPHAV = POSITION VECTOR METERS B-29
|
||||
# MPAC -- TIME (CSECS B-28)
|
||||
# ERADFLAG =1, TO COMPUTE EARTH RADIUS, =0 FOR FIXED EARTH RADIUS
|
||||
# LUNAFLAG=0 FOR EARTH, 1 FOR MOON
|
||||
#
|
||||
# OUTPUT
|
||||
# LATITUDE IN LAT (REVS. B-0)
|
||||
# LONGITUDE IN LONG (REVS. B-0)
|
||||
# ALTITUDE IN ALT METERS B-29
|
||||
|
||||
BANK 30
|
||||
SETLOC LATLONG
|
||||
BANK
|
||||
|
||||
COUNT* $$/LT-LG
|
||||
EBANK= ALPHAV
|
||||
LAT-LONG STQ SETPD
|
||||
INCORPEX
|
||||
0D
|
||||
STOVL 6D # SAVE TIME IN 6-7D FOR R-TO-RP
|
||||
ALPHAV
|
||||
PUSH ABVAL # 0-5D= R FOR R-TO-RP
|
||||
STODL ALPHAM # ABS. VALUE OF R FOR ALT FORMULA BELOW
|
||||
ZEROVEC # SET MPAC=0 FOR EARTH, NON-ZERO FOR MOON
|
||||
BOFF COS # USE COS(0) TO GET NON-ZERO IN MPAC
|
||||
LUNAFLAG # 0=EARTH, 1=MOON
|
||||
CALLRTRP
|
||||
CALLRTRP CALL
|
||||
R-TO-RP # RP VECTOR CONVERTED FROM R B-29
|
||||
UNIT # UNIT RP B-1
|
||||
STCALL ALPHAV # U2= 1/2 SINL FOR SETRE SUBR BELOW
|
||||
SETGAMMA # SET GAMMA=B2/A2 FOR EARTH, =1 FOR MOON
|
||||
CALL # SCALED B-1
|
||||
SETRE # CALC RE METERS B-29
|
||||
DLOAD DSQ
|
||||
ALPHAV
|
||||
PDDL DSQ
|
||||
ALPHAV +2
|
||||
DAD SQRT
|
||||
# Page 1134
|
||||
DMP SL1R
|
||||
GAMRP
|
||||
STODL COSTH # COS(LAT) B-1
|
||||
ALPHAV +4
|
||||
STCALL SINTH # SIN(LAT) B-1
|
||||
ARCTAN
|
||||
STODL LAT # LAT B0
|
||||
ALPHAV
|
||||
STODL COSTH # COS(LONG) B-1
|
||||
ALPHAV +2
|
||||
STCALL SINTH # SIN(LONG) B-1
|
||||
ARCTAN
|
||||
STODL LONG # LONG. REVS B-0 IN RANGE -1/2 TO 1/2
|
||||
ALPHAM
|
||||
DSU # ALT= R-RE METERS B-29
|
||||
ERADM
|
||||
STCALL ALT # EXIT WITH ALT METERS B-29
|
||||
INCORPEX
|
||||
# Page 1135
|
||||
# SUBROUTINE TO CONVERT LAT,LONG.ALT AT GIVEN TIME TO RADIUS VECTOR
|
||||
#
|
||||
# CALLING SEQUENCE
|
||||
# L-1 CALL
|
||||
# L LALOTORV
|
||||
#
|
||||
# SUBROUTINES USED
|
||||
# SETGAMMA, SETRE, RP-TO-R
|
||||
#
|
||||
# ERASABLE INIT. REQ.
|
||||
# AXO, AYO, AZO, TEPHEM SET AT LAUNCH TIME
|
||||
# LAT -- LATITUDE (REVS B0)
|
||||
# LONG -- LONGITUDE (REVS B0)
|
||||
# ALT -- ALTITUDE (METERS) B-29
|
||||
# MPAC -- TIME (CSECS B-28)
|
||||
# ERADFLAG =1 TO COMPUTE EARTH RADIUS, =0 FOR FIXED EARTH RADIUS
|
||||
# LUNAFLAG=0 FOR EARTH, 1 FOR MOON
|
||||
#
|
||||
# OUTPUT
|
||||
# R-VECTOR IN ALPHAV (METERS B-29)
|
||||
|
||||
LALOTORV STQ SETPD # LAT,LONG,ALT TO R VECTOR
|
||||
INCORPEX
|
||||
0D
|
||||
STCALL 6D # 6-7D= TIME FOR RP-TO-R
|
||||
SETGAMMA # GAMMA=B2/A2 FOR EARTH, 1 FOR MOON B-1
|
||||
DLOAD SIN # COS(LONG)COS(LAT) IN MPAC
|
||||
LAT # UNIT RP = SIN(LONG)COS(LAT) 2-3D
|
||||
DMPR PDDL # PD 2 GAMMA*SIN(LAT) 0-1D
|
||||
GAMRP
|
||||
LAT # 0-1D = GAMMA*SIN(LAT) B-2
|
||||
COS PDDL # PD4 2-3D = COS(LAT) B-1 TEMPORARILY
|
||||
LONG
|
||||
SIN DMPR # PD 2
|
||||
PDDL COS # PD 4 2-3D = SIN(LONG)COS(LAT) B-2
|
||||
LAT
|
||||
PDDL COS # PD 6 4-5D = COS(LAT) B-1 TEMPORARILY
|
||||
LONG
|
||||
DMPR VDEF # PD 4 MPAC = COS(LONG)COS(LAT) B-2
|
||||
UNIT PUSH # 0-5D= UNIT RP FOR RP-TO-R SUBR.
|
||||
STCALL ALPHAV # ALPHAV +4= SINL FOR SETRE SUBR.
|
||||
SETRE # RE METERS B-29
|
||||
DLOAD BOFF # SET MPAC=0 FOR EARTH, NON-ZERO FOR MOON
|
||||
ZEROVEC
|
||||
LUNAFLAG
|
||||
CALLRPRT
|
||||
COS # USE COS(0) TO GET NON-ZERO IN MPAC
|
||||
CALLRPRT CALL
|
||||
RP-TO-R # EXIT WITH UNIT R VECTOR IN MPAC
|
||||
STODL ALPHAV
|
||||
ERADM
|
||||
# Page 1136
|
||||
DAD VXSC # (RE + ALT)(UNIT R) METERS B-30
|
||||
ALT
|
||||
ALPHAV
|
||||
VSL1 # R METERS B-29
|
||||
STCALL ALPHAV # EXIT WITH R IN METERS B-29
|
||||
INCORPEX
|
||||
|
||||
# SUBROUTINE TO COMPUTE EARTH RADIUS
|
||||
#
|
||||
# INPUT
|
||||
# 1/2 SIN LAT IN ALPHAV +4
|
||||
#
|
||||
# OUTPUT
|
||||
# EARTH RADIUS IN ERADM AND MPAC (METERS B-29)
|
||||
|
||||
GETERAD DLOAD DSQ
|
||||
ALPHAV +4 # SIN**2(L)
|
||||
SL1 BDSU
|
||||
DP1/2 # COS**2(L)
|
||||
DMPR BDSU
|
||||
EE
|
||||
DP1/2
|
||||
BDDV SQRT
|
||||
B2XSC
|
||||
SR4R
|
||||
STORE ERADM
|
||||
RVQ
|
||||
|
||||
# THE FOLLOWING CONSTANTS WERE COMPUTED WITH A=6378166, B=6356784 METERS
|
||||
# B2XSC = B**2 SCALED B-51
|
||||
# B2/A2 = B**2/A**2 SCALED B-1
|
||||
# EE = (1-B**2/A**2) SCALED B-0
|
||||
|
||||
B2XSC 2DEC .0179450689 # B**2 SCALED B-51
|
||||
DP1/2 = XUNIT
|
||||
B2/A2 2DEC .9933064884 B-1 # GAMMA= B**2/A**2 B-1
|
||||
EE 2DEC 6.6935116 E-3 # (1-B**2/A**2) B-0
|
||||
|
||||
# Page 1137
|
||||
# ARCTAN SUBROUTINE
|
||||
#
|
||||
# CALLING SEQUENCE
|
||||
# SIN THETA IN SINTH B-1
|
||||
# COS THETA IN COSTH B-1
|
||||
# CALL ARCTAN
|
||||
#
|
||||
# OUTPUT
|
||||
# ARCTAN THETA IN MPAC AND THETA B-0 IN RANGE -1/2 TO +1/2
|
||||
|
||||
ARCTAN BOV
|
||||
CLROVFLW
|
||||
CLROVFLW DLOAD DSQ
|
||||
SINTH
|
||||
PDDL DSQ
|
||||
COSTH
|
||||
DAD
|
||||
BZE SQRT
|
||||
ARCTANXX # ATAN=0/0 SET THETA=0
|
||||
BDDV BOV
|
||||
SINTH
|
||||
ATAN=90
|
||||
SR1 ASIN
|
||||
STORE THETA
|
||||
PDDL BMN
|
||||
COSTH
|
||||
NEGCOS
|
||||
DLOAD RVQ
|
||||
NEGCOS DLOAD DCOMP
|
||||
BPL DAD
|
||||
NEGOUT
|
||||
DP1/2
|
||||
ARCTANXX STORE THETA
|
||||
RVQ
|
||||
|
||||
NEGOUT DSU GOTO
|
||||
DP1/2
|
||||
ARCTANXX
|
||||
ATAN=90 DLOAD SIGN
|
||||
LODP1/4
|
||||
SINTH
|
||||
STORE THETA
|
||||
RVQ
|
||||
|
||||
2DZERO = DPZERO
|
||||
|
||||
# Page 1138
|
||||
# ***** SETGAMMA SUBROUTINE *****
|
||||
# SUBROUTINE TO SET GAMMA FOR THE LAT-LONG AND LALOTORV SUBROUTINES
|
||||
#
|
||||
# GAMMA = B**2/A**2 FOR EARTH (B-1)
|
||||
# GAMMA = 1 FOR MOON (B-1)
|
||||
#
|
||||
# CALLING SEQUENCE
|
||||
# L CALL
|
||||
# L+1 SETGAMMA
|
||||
#
|
||||
# INPUT
|
||||
# LUNAFLAG=0 FOR EARTH, =1 FOR MOON
|
||||
#
|
||||
# OUTPUT
|
||||
# GAMMA IN GAMRP (B-1)
|
||||
|
||||
SETGAMMA DLOAD BOFF # BRANCH FOR EARTH
|
||||
B2/A2 # EARTH GAMMA
|
||||
LUNAFLAG
|
||||
SETGMEX
|
||||
SLOAD
|
||||
1B1 # MOON GAMMA
|
||||
SETGMEX STORE GAMRP
|
||||
RVQ
|
||||
GAMRP = 8D
|
||||
|
||||
# Page 1139
|
||||
# ***** SETRE SUBROUTINE *****
|
||||
# SUBROUTINE TO SET RE (EARTH OR MOON RADIUS)
|
||||
#
|
||||
# RE = RM FOR MOON
|
||||
# RE = RREF FOR FIXED EARTH RADIUS OR COMPUTED RF FOR FISCHER ELLIPSOID
|
||||
#
|
||||
# CALLING SEQUENCE
|
||||
# L CALL
|
||||
# L+1 SETRE
|
||||
#
|
||||
# SUBROUTINES USED
|
||||
# GETERAD
|
||||
#
|
||||
# INPUT
|
||||
# ERADFLAG = 0 FOR FIXED RE, 1 FOR COMPUTED RE
|
||||
# ALPHAV +4 = 1/2 SINL IF GETERAD IS CALLED
|
||||
# LUNAFLAG = 0 FOR EARTH, =1 FOR MOON
|
||||
#
|
||||
# OUTPUT
|
||||
# ERADM = 504RM FOR MOON (METERS B-29)
|
||||
# ERADM = ERAD OR COMPUTED RE FOR EARTH (METERS B-29)
|
||||
|
||||
SETRE STQ DLOAD
|
||||
SETREX
|
||||
504RM
|
||||
BON DLOAD # BRANCH FOR MOON
|
||||
LUNAFLAG
|
||||
TSTRLSRM
|
||||
ERAD
|
||||
BOFF CALL # ERADFLAG=0 FOR FIXED RE, 1 FOR COMPUTED
|
||||
ERADFLAG
|
||||
SETRXX
|
||||
GETERAD
|
||||
SETRXX STCALL ERADM # EXIT WITH RE OR RM METERS B-29
|
||||
SETREX
|
||||
TSTRLSRM BON VLOAD # ERADFLAG=0, SET R0=RLS
|
||||
ERADFLAG # =1 R0=RM
|
||||
SETRXX
|
||||
RLS
|
||||
ABVAL SR2R # SCALE FROM B-27 TO B-29
|
||||
GOTO
|
||||
SETRXX
|
||||
SETREX = S2
|
||||
|
||||
|
196
Luminary099/LUNAR_AND_SOLAR_EPHEMERIDES_SUBROUTINES.agc
Normal file
196
Luminary099/LUNAR_AND_SOLAR_EPHEMERIDES_SUBROUTINES.agc
Normal file
@ -0,0 +1,196 @@
|
||||
# Copyright: Public domain.
|
||||
# Filename: LUNAR_AND_SOLAR_EPHEMERIDES_SUBROUTINES.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: Hartmuth Gutsche <hgutsche@xplornet.com>.
|
||||
# Website: www.ibiblio.org/apollo.
|
||||
# Pages: 984-987
|
||||
# Mod history: 2009-05-24 HG Transcribed from page images.
|
||||
#
|
||||
# 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 984
|
||||
# NAME -- LSPOS -- LOCATE SUN AND MOON DATE -- 25 OCT 67
|
||||
# MOD NO. 1
|
||||
# MOD BY NEVILLE ASSEMBLY SUNDANCE
|
||||
#
|
||||
# FUNCTIONAL DESCRIPTION
|
||||
#
|
||||
# COMPUTES UNIT POSITION VECTOR OF THE SUN AND MOON IN THE BASIC REFERENCE SYSTEM. THE SUN VECTOR S IS
|
||||
# LOCATED VIA TWO ANGLES. THE FIRST ANGLE (OBLIQUITY) IS THE ANGLE BETWEEN THE EARTH EQUATOR AND THE ECLIPTIC. THE
|
||||
# POSITION VECTOR OF THE SUN IS
|
||||
# _
|
||||
# S = (COS(LOS), COS(OBL)*SIN(LOS), SIN(OBL)*SIN(LOS)), WHERE
|
||||
#
|
||||
# LOS = LOS +LOS *T-(C *SIN(2PI*T)/365.24 +C *COS(2PI*T)/365.24)
|
||||
# 0 R 0 1
|
||||
# LOS (RAD) IS THE LONGITUDE OF THE SUN FOR MIGNIGHT JUNE 30TH OF THE PARTICULAR YEAR.
|
||||
# 0
|
||||
# LOS (RAD/DAY) IS THE MEAN RATE FOR THE PARTICULAR YEAR.
|
||||
# R
|
||||
#
|
||||
# LOS AND LOS ARE STORED AS LOSC AND LOSR IN RATESP.
|
||||
# 0 R
|
||||
# COS(OBL) AND SIN(OBL) ARE STORED IN THE MATRIX KONMAT.
|
||||
#
|
||||
# T, TIME MEASURED IN DAYS (24 HOURS) IS STORED IN TIMEP.
|
||||
#
|
||||
# C AND C ARE FUDGE FACTORS TO MINIMIZE THE DEVIATION. THEY ARE STORED AS ONE CONSTANT (CMOD), SINCE
|
||||
# 0 1 2 2 1/2
|
||||
# C *SIN(X)+C *COS(X) CAN BE WRITTEN AS (C +C ) *SIN(X+PHI), WHERE PHI=ARCTAN(C /C ).
|
||||
# 0 1 1 0
|
||||
#
|
||||
# THE MOON IS LOCATED VIA FOUR ANGLES, THE FIRST IS THE OBLIQUITY. THE SECOND IS THE MEAN LONGITUDE OF THE MOON,
|
||||
# MEASURED IN THE ECLIPTIC FROM THE MEAN EQUINOX TO THE MEAN ASCENDING NODE OF THE LUNAR ORBIT, AND THEN ALONG THE
|
||||
# ORBIT. THE THIRD ANGLE IS THE ANGLE BETWEEN THE ECLIPTIC AND THE LUNAR ORBIT. THE FOURTH ANGLE IS THE LONGITUDE
|
||||
# OF THE NODE OF THE MOON, MEASURED IN THE LUNAR ORBIT. LET THESE ANGLES BE OBL,LOM,IM, AND LON RESPECTIVELY.
|
||||
#
|
||||
# THE SIMPLIFIED POSITION VECTOR OF THE MOON IS
|
||||
# _
|
||||
# M=(COS(LOM), COS(OBL)*SIN(LOM)-SIN(OBL)*SIN(IM)*SIN(LOM-LON), SIN(OBL)*SIN(LOM)+COS(OBL)*SIN(IM)*SIN(LOM-LON))
|
||||
#
|
||||
# WHERE
|
||||
# LOM=LOM +LOM *T-(A *SIN(2PI*T/27.5545)+A *COS(2PI*T/27.5545)+B *SIN(2PI*T/32)+B *COS(2PI*T/32)), AND
|
||||
# 0 R 0 1 0 1
|
||||
# LON=LON +LON
|
||||
# 0 R
|
||||
# A , A , B AND B ARE STORE AS AMOD AND BMOD (SEE DESCRIPTION OF CMOD, ABOVE). COS(OBL), SIN(OBL)*SIN(IM),
|
||||
# 0 1 0 1
|
||||
# SIN(OBL), AND COS(OBL)*SIN(IM) ARE STORED IN KONMAT AS K1, K2, K3, AND K4, RESPECTIVELY. LOM , LOM , LON , LON
|
||||
# 0 R 0 R
|
||||
# ARE STORED AS LOM0, LOMR, LON0, AND LONR IN RATESP.
|
||||
#
|
||||
# THE THREE PHIS ARE STORED AS AARG, BARG, AND CARG(SUN). ALL CONSTANTS ARE UPDATED BY YEAR.
|
||||
#
|
||||
# CALLING SEQUENCE
|
||||
# Page 985
|
||||
# CALL LSPOS. RETURN IS VIA CPRET.
|
||||
#
|
||||
# ALARMS OR ABORTS
|
||||
# NONE
|
||||
#
|
||||
# ERASABLE INITIALIZATION REQUIRED
|
||||
# TEPHEM -- TIME FROM MIGNIGHT 1 JULY PRECEDING THE LAUNCH TO THE TIME OF THE LAUNCH (WHEN THE AGC CLOCK WENT
|
||||
# TO ZERO). TEPHEM IS TP WITH UNITS OF CENTI-SECONDS.
|
||||
#
|
||||
# TIME2 AND TIME1 ARE IN MPAC AND MPAC +1 WHEN PROGRAM IS CALLED.
|
||||
#
|
||||
# OUTPUT
|
||||
# UNIT POSITIONAL VECTOR OF SUN IN VSUN. (SCALED B-1)
|
||||
# UNIT POSITIONAL VECTOR OF MOON IN VMOON. (SCALED B-1)
|
||||
#
|
||||
# SUBROUTINES USED
|
||||
# NONE
|
||||
#
|
||||
# DEBRIS
|
||||
# CURRENT CORE SET, WORK AREA AND FREEFLAG
|
||||
|
||||
BANK 04
|
||||
SETLOC EPHEM
|
||||
BANK
|
||||
|
||||
EBANK= VSUN
|
||||
COUNT* $$/EPHEM
|
||||
LUNPOS EQUALS LSPOS
|
||||
|
||||
LSPOS SETPD SR
|
||||
0
|
||||
14D # TP
|
||||
TAD DDV
|
||||
# HG comments in [...] are hand written comments in original listing
|
||||
TEPHEM # TIME OF LAUNCH [IN CENTISEC B 42]
|
||||
CSTODAY # 24 HOURS -- 8640000 CENTI-SECS/DAY B-33
|
||||
STORE TIMEP # T IN DAYS [@ B 9 = 512 DAYS]
|
||||
AXT,1 AXT,2 # [GRANULRITY = 0.164 SEC]
|
||||
0
|
||||
0
|
||||
CLEAR
|
||||
FREEFLAG # SWITCH BIT
|
||||
POSITA DLOAD
|
||||
KONMAT +2 # ZEROS
|
||||
STORE GTMP
|
||||
POSITB DLOAD DMP*
|
||||
TIMEP # T
|
||||
VAL67 +4,1 # 1/27 OR 1/32 OR 1/365
|
||||
# Page 986
|
||||
SL DAD*
|
||||
8D
|
||||
VAL67 +2,1 # AARG
|
||||
SIN DMP* # SIN(T/27+PHI) OR T/32 OR T/365
|
||||
VAL67,1 # (A0**2+A1**2)**1/2 SIN(X+PHIA)
|
||||
DAD INCR,1 # PLUS
|
||||
GTMP # (B0**2+B1**2)**1/2 SIN(X+PHIB)
|
||||
DEC -6
|
||||
STORE GTMP # OR (C0**2+C1**2)**1/2 SIN(X+PHIC)
|
||||
BOFSET
|
||||
FREEFLAG
|
||||
POSITB
|
||||
POSITD DLOAD DMP*
|
||||
TIMEP # T
|
||||
RATESP,2 # LOMR,LOSR,LONR
|
||||
SL DAD*
|
||||
5D
|
||||
RATESP +6,2 # LOM0,LOS0,LON0
|
||||
DSU
|
||||
GTMP
|
||||
STORE STMP,2 # LOM,LOS,LON
|
||||
SLOAD INCR,2
|
||||
X2
|
||||
DEC -2
|
||||
DAD BZE
|
||||
RCB-13 # PLUS 2
|
||||
POSITE # 2ND
|
||||
BPL
|
||||
POSITA # 1ST
|
||||
POSITF DLOAD DSU # 3RD
|
||||
STMP # LOM
|
||||
STMP +4 # LON
|
||||
SIN PDDL # SIN(LOM-LON)
|
||||
STMP
|
||||
SIN PDDL # SIN LOM
|
||||
STMP
|
||||
COS VDEF # COS LOM
|
||||
MXV UNIT
|
||||
KONMAT # K1,K2,K3,K4,
|
||||
STORE VMOON
|
||||
DLOAD PDDL
|
||||
KONMAT +2 # ZERO
|
||||
STMP +2
|
||||
SIN PDDL # SIN LOS
|
||||
STMP +2
|
||||
COS VDEF # COS LOS
|
||||
MXV UNIT
|
||||
KONMAT
|
||||
STORE VSUN
|
||||
RVQ
|
||||
# Page 987
|
||||
POSITE DLOAD
|
||||
KONMAT +2 # ZEROS
|
||||
STORE GTMP
|
||||
GOTO
|
||||
POSITD
|
||||
LUNVEL RVQ
|
||||
SETLOC EPHEM1
|
||||
BANK
|
||||
|
||||
COUNT* $$/EPHEM
|
||||
STMP EQUALS 16D
|
||||
GTMP EQUALS 22D
|
||||
TIMEP EQUALS 24D
|
||||
|
||||
# *** END OF LEMP50S .115 ***
|
165
Luminary099/MAIN.agc
Normal file
165
Luminary099/MAIN.agc
Normal file
@ -0,0 +1,165 @@
|
||||
# Copyright: Public domain.
|
||||
# Filename: MAIN.agc
|
||||
# Purpose: The main source file for Luminary 1A, revision 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/index.html
|
||||
# Mod history: 2009-05-05 RSB Adapted from Luminary131/MAIN.agc.
|
||||
#
|
||||
# The contents of the "Luminary099" files, in general, are
|
||||
# transcribed from a digital images created from a hardcopy of the program
|
||||
# residing at the MIT Museum. Many thanks to Debbie Douglas of the Museum,
|
||||
# and to Paul Fjeld (who made the images).
|
||||
#
|
||||
# Notations on this document read, in part:
|
||||
#
|
||||
# ASSEMBLE REVISION 001 OF AGC PROGRAM LMY99 BY NASA 2021112-061
|
||||
# 16:27 JULY 14,1969
|
||||
# [Note that this is the date the hardcopy was made, not the
|
||||
# date of the program revision or the assembly.]
|
||||
# ...
|
||||
# THIS LGC PROGRAM IS INTENDED FOR USE IN THE LM DURING THE MANNED
|
||||
# LUNAR LANDING MISSION OR ANY SUBSET THEREOF.
|
||||
# ...
|
||||
#
|
||||
# The page images themselves, as reduced in size (and consequently in
|
||||
# quality) to be suitable for online presentation, are available at
|
||||
# http://www.ibiblio.org/apollo. If you want to see the (much) higher
|
||||
# quality digital images that Paul actually made, contact info@sandroi.org
|
||||
# directly.
|
||||
#
|
||||
# This file is a little different from the other Luminary099 files I'm providing,
|
||||
# in that it doesn't represent anything that appears directly in the original source.
|
||||
# What I (RSB) have done for organizational purposes is to split the huge monolithic
|
||||
# source code into smaller, more manageable chunks--i.e., into individual source
|
||||
# files. Those files are rejoined within this file as "includes". It just makes
|
||||
# it a little easier to work with. The code chunks correspond to natural divisions
|
||||
# into sub-programs. In fact, these divisions are more-or-less specified by
|
||||
# the source code itself. Refer to the "TABLE OF SUBROUTINE LOG SECTIONS" at the
|
||||
# very beginning of the file ASSEMBLY_AND_OPERATION_INFORMATION.agc.
|
||||
#
|
||||
# It may be reasonably asked why tens of thousands of lines of source are joined by
|
||||
# means of inclusion, rather than simply assembling the source files individually and
|
||||
# then linking them to form the executable. The answer is that the original
|
||||
# development team had no linker. The builds were monolithic just like this.
|
||||
# There was a big emphasis on reusability of the code in the original project,
|
||||
# apparently, but this reusability took the form of inserting your deck of
|
||||
# punch-cards at the appropriate position in somebody else's deck of punch-cards.
|
||||
# (Actually, I believe a tape-library method was used to avoid having to continually
|
||||
# reload the card decks, but that doesn't change the basic principle.)
|
||||
# So, indeed, the method of file-inclusion is a very fair representation of the
|
||||
# methods used in the original development ... with the improvement, of course,
|
||||
# that you no longer have to worry about dropping the card deck. On the other hand,
|
||||
# I wasn't there at the time, so I may have no idea what I'm talking about.
|
||||
#
|
||||
# Finally, note that the original Apollo AGC assembler (called "YUL") is no longer
|
||||
# available (as far as I can tell). In fact, it was replaced by another assembler
|
||||
# ("GAP") even before Apollo 11, but GAP is no more available than is YUL. The
|
||||
# replacement assembler yaYUL accepts a slightly different format for the source
|
||||
# code from what YUL or GAP accepted, so the source code has been targeted for
|
||||
# assembly with yaYUL.
|
||||
|
||||
# What follows is simply a bunch of file-includes for the individual code chunks.
|
||||
# I've marked the page numbers to make proof-reading easier. Besides, the digital
|
||||
# images of the assembly listing contains a lot of interesting tables (cross-
|
||||
# referenced to page numbers) created by GAP, but not duplicated by yaYUL, so it's
|
||||
# still valuable even if the source-files listed below are at hand.
|
||||
|
||||
$CONTRACT_AND_APPROVALS.agc # p. 1
|
||||
$ASSEMBLY_AND_OPERATION_INFORMATION.agc # pp. 2-27
|
||||
$TAGS_FOR_RELATIVE_SETLOC.agc # pp. 28-37
|
||||
$CONTROLLED_CONSTANTS.agc # pp. 38-53
|
||||
$INPUT_OUTPUT_CHANNEL_BIT_DESCRIPTIONS.agc # pp. 54-60
|
||||
$FLAGWORD_ASSIGNMENTS.agc # pp. 61-88
|
||||
# p. 89 is a GAP-generated table
|
||||
$ERASABLE_ASSIGNMENTS.agc # pp. 90-152
|
||||
$INTERRUPT_LEAD_INS.agc # pp. 153-154
|
||||
$T4RUPT_PROGRAM.agc # pp. 155-189
|
||||
$RCS_FAILURE_MONITOR.agc # pp. 190-192
|
||||
$DOWNLINK_LISTS.agc # pp. 193-205
|
||||
$AGS_INITIALIZATION.agc # pp. 206-210
|
||||
$FRESH_START_AND_RESTART.agc # pp. 211-237
|
||||
$RESTART_TABLES.agc # pp. 238-243
|
||||
$AOTMARK.agc # pp. 244-261
|
||||
$EXTENDED_VERBS.agc # pp. 262-300
|
||||
$PINBALL_NOUN_TABLES.agc # pp. 301-319
|
||||
$LEM_GEOMETRY.agc # pp. 320-325
|
||||
$IMU_COMPENSATION_PACKAGE.agc # pp. 326-337
|
||||
$R63.agc # pp. 338-341
|
||||
$ATTITUDE_MANEUVER_ROUTINE.agc # pp. 342-363
|
||||
$GIMBAL_LOCK_AVOIDANCE.agc # p. 364
|
||||
$KALCMANU_STEERING.agc # pp. 365-369
|
||||
$SYSTEM_TEST_STANDARD_LEAD_INS.agc # pp. 370-372
|
||||
$IMU_PERFORMANCE_TEST_2.agc # pp. 373-381
|
||||
$IMU_PERFORMANCE_TESTS_4.agc # pp. 382-389
|
||||
$PINBALL_GAME_BUTTONS_AND_LIGHTS.agc # pp. 390-471
|
||||
$R60_62.agc # pp. 472-485
|
||||
$S-BAND_ANTENNA_FOR_LM.agc # pp. 486-489
|
||||
$RADAR_LEADIN_ROUTINES.agc # pp. 490-491
|
||||
$P20-P25.agc # pp. 492-614
|
||||
$P30_P37.agc # pp. 615-617
|
||||
$P32-P35_P72-P75.agc # pp. 618-650
|
||||
$LAMBERT_AIMPOINT_GUIDANCE.agc # pp. 651-653
|
||||
$GROUND_TRACKING_DETERMINATION_PROGRAM.agc # pp. 654-657
|
||||
$P34-35_P74-75.agc # pp. 658-702
|
||||
$R31.agc # pp. 703-708
|
||||
$P76.agc # pp. 709-711
|
||||
$R30.agc # pp. 712-722
|
||||
$STABLE_ORBIT.agc # pp. 723-730
|
||||
$BURN_BABY_BURN--MASTER_IGNITION_ROUTINE.agc # pp. 731-751
|
||||
$P40-P47.agc # pp. 752-784
|
||||
$THE_LUNAR_LANDING.agc # pp. 785-792
|
||||
$THROTTLE_CONTROL_ROUTINES.agc # pp. 793-797
|
||||
$LUNAR_LANDING_GUIDANCE_EQUATIONS.agc # pp. 798-828
|
||||
$P70-P71.agc # pp. 829-837
|
||||
$P12.agc # pp. 838-842
|
||||
$ASCENT_GUIDANCE.agc # pp. 843-856
|
||||
$SERVICER.agc # pp. 857-897
|
||||
$LANDING_ANALOG_DISPLAYS.agc # pp. 898-907
|
||||
$FINDCDUW--GUIDAP_INTERFACE.agc # pp. 908-925
|
||||
$P51-P53.agc # pp. 926-983
|
||||
$LUNAR_AND_SOLAR_EPHEMERIDES_SUBROUTINES.agc # pp. 984-987
|
||||
$DOWN_TELEMETRY_PROGRAM.agc # pp. 988-997
|
||||
$INTER-BANK_COMMUNICATION.agc # pp. 998-1001
|
||||
$INTERPRETER.agc # pp. 1002-1094
|
||||
$FIXED_FIXED_CONSTANT_POOL.agc # pp. 1095-1099
|
||||
$INTERPRETIVE_CONSTANT.agc # pp. 1100-1101
|
||||
$SINGLE_PRECISION_SUBROUTINES.agc # p. 1102
|
||||
$EXECUTIVE.agc # pp. 1103-1116
|
||||
$WAITLIST.agc # pp. 1117-1132
|
||||
$LATITUDE_LONGITUDE_SUBROUTINES.agc # pp. 1133-1139
|
||||
$PLANETARY_INERTIAL_ORIENTATION.agc # pp. 1140-1148
|
||||
$MEASUREMENT_INCORPORATION.agc # pp. 1149-1158
|
||||
$CONIC_SUBROUTINES.agc # pp. 1159-1204
|
||||
$INTEGRATION_INITIALIZATION.agc # pp. 1205-1226
|
||||
$ORBITAL_INTEGRATION.agc # pp. 1227-1248
|
||||
$INFLIGHT_ALIGNMENT_ROUTINES.agc # pp. 1249-1258
|
||||
$POWERED_FLIGHT_SUBROUTINES.agc # pp. 1259-1267
|
||||
$TIME_OF_FREE_FALL.agc # pp. 1268-1283
|
||||
$AGC_BLOCK_TWO_SELF_CHECK.agc # pp. 1284-1293
|
||||
$PHASE_TABLE_MAINTENANCE.agc # pp. 1294-1302
|
||||
$RESTARTS_ROUTINE.agc # pp. 1303-1308
|
||||
$IMU_MODE_SWITCHING_ROUTINES.agc # pp. 1309-1337
|
||||
$KEYRUPT_UPRUPT.agc # pp. 1338-1340
|
||||
$DISPLAY_INTERFACE_ROUTINES.agc # pp. 1341-1373
|
||||
$SERVICE_ROUTINES.agc # pp. 1374-1380
|
||||
$ALARM_AND_ABORT.agc # pp. 1381-1385
|
||||
$UPDATE_PROGRAM.agc # pp. 1386-1396
|
||||
$RTB_OP_CODES.agc # pp. 1397-1402
|
||||
$T6-RUPT_PROGRAMS.agc # pp. 1403-1405
|
||||
$DAP_INTERFACE_SUBROUTINES.agc # pp. 1406-1409
|
||||
$DAPIDLER_PROGRAM.agc # pp. 1410-1420
|
||||
$P-AXIS_RCS_AUTOPILOT.agc # pp. 1421-1441
|
||||
$Q_R-AXIS_RCS_AUTOPILOT.agc # pp. 1442-1459
|
||||
$TJET_LAW.agc # pp. 1460-1469
|
||||
$KALMAN_FILTER.agc # pp. 1470-1471
|
||||
$TRIM_GIMBAL_CNTROL_SYSTEM.agc # pp. 1472-1484
|
||||
$AOSTASK_AND_AOSJOB.agc # pp. 1485-1506
|
||||
$SPS_BACK-UP_RCS_CONTROL.agc # pp. 1507-1510
|
||||
# pp. 1511-1743: GAP-generated tables.
|
||||
|
||||
|
||||
|
||||
|
495
Luminary099/MEASUREMENT_INCORPORATION.agc
Normal file
495
Luminary099/MEASUREMENT_INCORPORATION.agc
Normal file
@ -0,0 +1,495 @@
|
||||
# Copyright: Public domain.
|
||||
# Filename: MEASUREMENT_INCORPORATION.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: Jim Lawton <jim DOT lawton AT gmail DOT com>
|
||||
# Website: www.ibiblio.org/apollo.
|
||||
# Pages: 1149-1158
|
||||
# Mod history: 2009-05-28 JL Updated from page images.
|
||||
# 2011-01-06 JL Fixed pseudo-label indentation.
|
||||
#
|
||||
# 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 1149
|
||||
# INCORP1 -- PERFORMS THE SIX DIMENSIONAL STATE VECTOR DEVIATION FOR POSITION
|
||||
# AND VELOCITY OR THE NINE-DIMENSIONAL DEVIATION OF POSITION, VELOCITY, AND
|
||||
# RADAR OR LANDMARK BIAS. THE OUTPUT OF THE BVECTOR ROUTINE ALONG WITH THE
|
||||
# ERROR TRANSITION MATRIX (W) ARE USED AS INPU TO THE ROUTINE. THE DEVIATION
|
||||
# IS OBTAINED BY COMPUTING AN ESTIMATED TRACKING MEASUREMENT FROM THE
|
||||
# CURRENT STATE VECTOR AND COMPARING IT WITH AN ACTUAL TRACKING MEASUREMENT
|
||||
# AND APPLYING A STATISTICAL WEIGHTING VECTOR.
|
||||
#
|
||||
# INPUT
|
||||
# DMENFLG = 0 (6-DIMENSIONAL BVECTOR), =1 (9-DIMENSIONAL)
|
||||
# W = ERROR TRANSITION MATRIX 6X6 OR 9X9
|
||||
# VARIANCE = VARIANCE (SCALAR)
|
||||
# DELTAQ = MEASURED DEVIATION (SCALAR)
|
||||
# BVECTOR = 6 OR 9 DIMENSIONAL BVECTOR
|
||||
#
|
||||
# OUTPUT
|
||||
# DELTAX = STATE VECTOR DEVIATIONS 6 OR 9 DIMENSIONAL
|
||||
# ZI = VECTOR USED FOR THE INCORPORATION 6 OR 9 DIMENSIONAL
|
||||
# GAMMA = SCALAR
|
||||
# OMEGA = OMEGA WEIGHTING VECTOR 6 OR 9 DIMENSIONAL
|
||||
#
|
||||
# CALLING SEQUENCE
|
||||
# L CALL INCORP1
|
||||
#
|
||||
# NORMAL EXIT
|
||||
# L+1 OF CALLING SEQUENCE
|
||||
|
||||
BANK 37
|
||||
SETLOC MEASINC
|
||||
BANK
|
||||
|
||||
COUNT* $$/INCOR
|
||||
|
||||
EBANK= W
|
||||
|
||||
INCORP1 STQ
|
||||
EGRESS
|
||||
AXT,1 SSP
|
||||
54D
|
||||
S1
|
||||
18D # IX1 = 54 S1= 18
|
||||
AXT,2 SSP
|
||||
18D
|
||||
S2
|
||||
6 # IX2 = 18 S2=6
|
||||
Z123 VLOAD MXV*
|
||||
BVECTOR # BVECTOR (0)
|
||||
W +54D,1
|
||||
STORE ZI +18D,2
|
||||
VLOAD
|
||||
BVECTOR +6 # BVECTOR (1)
|
||||
# Page 1150
|
||||
MXV* VAD*
|
||||
W +108D,1
|
||||
ZI +18D,2
|
||||
STORE ZI +18D,2
|
||||
VLOAD
|
||||
BVECTOR +12D # BVECTOR (2)
|
||||
MXV* VAD*
|
||||
W +162D,1
|
||||
ZI +18D,2 # B(0)*W+B(1)*(W+54)+B(2)*(W+108) FIRST PASS
|
||||
STORE ZI +18D,2 # ZI THEN Z2 THEN Z3
|
||||
TIX,1
|
||||
INCOR1
|
||||
INCOR1 TIX,2 BON
|
||||
Z123 # LOOP FOR Z1,Z2,Z3
|
||||
DMENFLG
|
||||
INCOR1A
|
||||
VLOAD
|
||||
ZEROVECS
|
||||
STORE ZI +12D
|
||||
INCOR1A SETPD VLOAD
|
||||
0
|
||||
ZI
|
||||
VSQ RTB
|
||||
TPMODE
|
||||
PDVL VSQ
|
||||
ZI +6
|
||||
RTB TAD
|
||||
TPMODE
|
||||
PDVL VSQ
|
||||
ZI +12D
|
||||
RTB TAD
|
||||
TPMODE
|
||||
TAD AXT,2
|
||||
VARIANCE
|
||||
0
|
||||
STORE TRIPA # ZI*2 + Z2*2 + Z3*2 + VARIANCE
|
||||
TLOAD BOV
|
||||
VARIANCE # CLEAR OVFIND
|
||||
+1
|
||||
STORE TEMPVAR # TEMP STORAGE FOR VARIANCE
|
||||
BZE
|
||||
INCOR1C
|
||||
INCOR1B SL2 BOV
|
||||
INCOR1C
|
||||
STORE TEMPVAR
|
||||
INCR,2 GOTO
|
||||
DEC 1
|
||||
INCOR1B
|
||||
INCOR1C TLOAD ROUND
|
||||
TRIPA
|
||||
# Page 1151
|
||||
DMP SQRT
|
||||
TEMPVAR
|
||||
SL* TAD
|
||||
0,2
|
||||
TRIPA
|
||||
NORM INCR,2
|
||||
X2
|
||||
DEC -2
|
||||
SXA,2 AXT,2
|
||||
NORMGAM # NORMALIZATION COUNT -2 FOR GAMMA
|
||||
162D
|
||||
BDDV SETPD
|
||||
DP1/4TH
|
||||
0
|
||||
STORE GAMMA
|
||||
TLOAD NORM
|
||||
TRIPA
|
||||
X1
|
||||
DLOAD PDDL # PD 0-1 = NORM (A)
|
||||
MPAC
|
||||
DELTAQ
|
||||
NORM
|
||||
S1
|
||||
XSU,1 SR1
|
||||
S1
|
||||
DDV PUSH # PD 0-1 = DELTAQ/A
|
||||
GOTO
|
||||
NEWZCOMP
|
||||
-3 SSP
|
||||
S2
|
||||
54D
|
||||
INCOR2 VLOAD VXM* # COMPUT OMEGA1,2,3
|
||||
ZI
|
||||
W +162D,2
|
||||
PUSH VLOAD
|
||||
ZI +6
|
||||
VXM* VAD
|
||||
W +180D,2
|
||||
PUSH VLOAD
|
||||
ZI +12D
|
||||
VXM* VAD
|
||||
W +198D,2
|
||||
PUSH TIX,2 # PD 2-7=OMEGA1, 8-13=OMEGA2, 14-19=OMEGA3
|
||||
INCOR2
|
||||
VLOAD STADR
|
||||
STORE OMEGA +12D
|
||||
VLOAD STADR
|
||||
STORE OMEGA +6
|
||||
VLOAD STADR
|
||||
STORE OMEGA
|
||||
# Page 1152
|
||||
BON VLOAD
|
||||
DMENFLG
|
||||
INCOR2AB
|
||||
ZEROVECS
|
||||
STORE OMEGA +12D
|
||||
INCOR2AB AXT,2 SSP
|
||||
18D
|
||||
S2
|
||||
6
|
||||
INCOR3 VLOAD*
|
||||
OMEGA +18D,2
|
||||
VXSC VSL*
|
||||
0 # DELTAQ/A
|
||||
0,1
|
||||
STORE DELTAX +18D,2
|
||||
TIX,2 VLOAD
|
||||
INCOR3
|
||||
DELTAX +6
|
||||
VSL3
|
||||
STORE DELTAX +6
|
||||
GOTO
|
||||
EGRESS
|
||||
|
||||
# Page 1153
|
||||
# INCORP2 - INCORPORATES THE COMPUTED STATE VECTOR DEVIATIONS INTO THE
|
||||
# ESTIMATED STATE VECTOR. THE STATE VECTOR UPDATED MAY BE FOR EITHER THE
|
||||
# LEM OR THE CSM. DETERMINED BY FLAG VEHUPFLG. (ZERO = LEM) (1 = CSM)
|
||||
#
|
||||
# INPUT
|
||||
# PERMANENT STATE VECTOR FOR EITHER THE LEM OR CSM
|
||||
# VEHUPFLG = UPDATE VEHICLE 0=LEM 1=CSM
|
||||
# W = ERROR TRANSITION MATRIX
|
||||
# DELTAX = COMPUTED STATE VECTOR DEVIATIONS
|
||||
# DMENFLG = SIZE OF W MATRIX (ZERO=6X6) (1=9X9)
|
||||
# GAMMA = SCALAR FOR INCORPORATION
|
||||
# ZI = VECTOR USED IN INCORPORATION
|
||||
# OMEGA = WEIGHTING VECTOR
|
||||
#
|
||||
# OUTPUT
|
||||
# UPDATED PERMANENT STATE VECTOR
|
||||
#
|
||||
# CALLING SEQUENCE
|
||||
# L CALL INCORP2
|
||||
#
|
||||
# NORMAL EXIT
|
||||
# L+1 OF CALLING SEQUENCE
|
||||
#
|
||||
|
||||
SETLOC MEASINC1
|
||||
BANK
|
||||
|
||||
COUNT* $$/INCOR
|
||||
|
||||
INCORP2 STQ CALL
|
||||
EGRESS
|
||||
INTSTALL
|
||||
VLOAD VXSC # CALC. GAMMA * OMEGA1,2,3
|
||||
OMEGA
|
||||
GAMMA
|
||||
STOVL OMEGAM1
|
||||
OMEGA +6
|
||||
VXSC
|
||||
GAMMA
|
||||
STOVL OMEGAM2
|
||||
OMEGA +12D
|
||||
VXSC
|
||||
GAMMA
|
||||
STORE OMEGAM3
|
||||
EXIT
|
||||
CAF 54DD # INITIAL IX 1 SETTING FOR W MATRIX
|
||||
TS WIXA
|
||||
TS WIXB
|
||||
CAF ZERO
|
||||
TS ZIXA # INITIAL IX 2 SETTING FOR Z COMPONENT
|
||||
TS ZIXB
|
||||
FAZA TC PHASCHNG
|
||||
# Page 1154
|
||||
OCT 04022
|
||||
TC UPFLAG
|
||||
ADRES REINTFLG
|
||||
FAZA1 CA WIXB # START FIRST PHASE OF INCORP2
|
||||
TS WIXA # TO UPDATE 6 OR 9 DIM. W MATRIX IN TEMP
|
||||
CA ZIXB
|
||||
TS ZIXA
|
||||
TC INTPRET
|
||||
LXA,1 LXA,2
|
||||
WIXA
|
||||
ZIXA
|
||||
SSP DLOAD*
|
||||
S1
|
||||
6
|
||||
ZI,2
|
||||
DCOMP NORM # CALC UPPER 3X9 PARTITION OF W MATRIX
|
||||
S2
|
||||
VXSC XCHX,2
|
||||
OMEGAM1
|
||||
S2
|
||||
LXC,2 XAD,2
|
||||
X2
|
||||
NORMGAM
|
||||
VSL* XCHX,2
|
||||
0,2
|
||||
S2
|
||||
VAD*
|
||||
W +54D,1
|
||||
STORE HOLDW
|
||||
DLOAD* DCOMP # CALC MIDDLE 3X9 PARTITION OF W MATRIX
|
||||
ZI,2
|
||||
NORM VXSC
|
||||
S2
|
||||
OMEGAM2
|
||||
XCHX,2 LXC,2
|
||||
S2
|
||||
X2
|
||||
XAD,2 VSL*
|
||||
NORMGAM
|
||||
0,2
|
||||
XCHX,2 VAD*
|
||||
S2
|
||||
W +108D,1
|
||||
STORE HOLDW +6
|
||||
BOFF
|
||||
DMENFLG # BRANCH IF 6 DIMENSIONAL
|
||||
FAZB
|
||||
DLOAD* DCOMP # CALC LOWER 3X9 PARTITION OF W MATRIX
|
||||
ZI,2
|
||||
NORM VXSC
|
||||
# Page 1155
|
||||
S2
|
||||
OMEGAM3
|
||||
XCHX,2 LXC,2
|
||||
S2
|
||||
X2
|
||||
XAD,2 VSL*
|
||||
NORMGAM
|
||||
0,2
|
||||
XCHX,2 VAD*
|
||||
S2
|
||||
W +162D,1
|
||||
STORE HOLDW +12D
|
||||
FAZB CALL
|
||||
GRP2PC
|
||||
EXIT
|
||||
FAZB1 CA WIXA # START 2ND PHASE OF INCORP2 TO TRANSFER
|
||||
AD 6DD # TEMP REG TO PERM W MATRIX
|
||||
TS WIXB
|
||||
CA ZIXA
|
||||
AD MINUS2
|
||||
TS ZIXB
|
||||
TC INTPRET
|
||||
LXA,1 SSP
|
||||
WIXA
|
||||
S1
|
||||
6
|
||||
VLOAD
|
||||
HOLDW
|
||||
STORE W +54D,1
|
||||
VLOAD
|
||||
HOLDW +6
|
||||
STORE W +108D,1
|
||||
BOFF VLOAD
|
||||
DMENFLG
|
||||
FAZB5
|
||||
HOLDW +12D
|
||||
STORE W +162D,1
|
||||
FAZB2 TIX,1 GOTO
|
||||
+2
|
||||
FAZC # DONE WITH W MATRIX. UPDATE STATE VECTOR
|
||||
RTB
|
||||
FAZA
|
||||
FAZB5 SLOAD DAD
|
||||
ZIXB
|
||||
12DD
|
||||
BHIZ GOTO
|
||||
FAZC
|
||||
FAZB2
|
||||
FAZC CALL
|
||||
GRP2PC
|
||||
# Page 1156
|
||||
VLOAD VAD # START 3RD PHASE OF INCORP2
|
||||
X789 # 7TH, 8TH, 9TH COMPONENT OF STATE VECTOR
|
||||
DELTAX +12D # INCORPORATION FOR X789
|
||||
STORE TX789
|
||||
BON RTB
|
||||
VEHUPFLG
|
||||
DOCSM
|
||||
MOVEPLEM
|
||||
FAZAB BOVB AXT,2
|
||||
TCDANZIG
|
||||
0
|
||||
BOFF AXT,2
|
||||
MOONTHIS
|
||||
+2
|
||||
2
|
||||
VLOAD VSR*
|
||||
DELTAX # B27 IF MOON ORBIT, B29 IF EARTH
|
||||
0 -7,2
|
||||
VAD BOV
|
||||
TDELTAV
|
||||
FAZAB1
|
||||
STOVL TDELTAV
|
||||
DELTAX +6 # B5 IF MOON ORBIT, B7 IF EARTH
|
||||
VSR* VAD
|
||||
0 -4,2
|
||||
TNUV
|
||||
BOV
|
||||
FAZAB2
|
||||
STCALL TNUV
|
||||
FAZAB3
|
||||
FAZAB1 VLOAD VAD
|
||||
RCV
|
||||
DELTAX
|
||||
STORE RCV
|
||||
FAZAB2 VLOAD VAD
|
||||
VCV
|
||||
DELTAX +6
|
||||
STORE VCV
|
||||
SXA,2 CALL
|
||||
PBODY
|
||||
RECTIFY
|
||||
FAZAB3 CALL
|
||||
GRP2PC
|
||||
BON RTB
|
||||
VEHUPFLG
|
||||
DOCSM1
|
||||
MOVEALEM
|
||||
CALL
|
||||
SVDWN2 # STORE DOWNLINK STATE VECTOR
|
||||
FAZAB4 CALL
|
||||
# Page 1157
|
||||
GRP2PC # PHASE CHANGE
|
||||
BOFF VLOAD
|
||||
DMENFLG
|
||||
FAZAB5 # 6 DIMENSIONAL
|
||||
TX789 # 9 DIMENSIONAL
|
||||
STORE X789
|
||||
FAZAB5 LXA,1 SXA,1
|
||||
EGRESS
|
||||
QPRET
|
||||
EXIT
|
||||
TC POSTJUMP # EXIT
|
||||
CADR INTWAKE
|
||||
DOCSM RTB GOTO
|
||||
MOVEPCSM
|
||||
FAZAB
|
||||
DOCSM1 RTB CALL
|
||||
MOVEACSM
|
||||
SVDWN1 # STORE DOWNLINK STATE VECTOR
|
||||
GOTO
|
||||
FAZAB4
|
||||
ZEROD = ZEROVECS
|
||||
54DD DEC 54
|
||||
6DD DEC -6
|
||||
12DD DEC 12
|
||||
|
||||
SETLOC RENDEZ
|
||||
BANK
|
||||
COUNT* $$/INCOR
|
||||
|
||||
NEWZCOMP VLOAD ABVAL
|
||||
ZI
|
||||
STOVL NORMZI
|
||||
ZI +6
|
||||
ABVAL PUSH
|
||||
DSU BMN
|
||||
NORMZI
|
||||
+3
|
||||
DLOAD STADR
|
||||
STORE NORMZI
|
||||
VLOAD ABVAL
|
||||
ZI +12D
|
||||
PUSH DSU
|
||||
NORMZI
|
||||
BMN DLOAD
|
||||
+3
|
||||
STADR
|
||||
STORE NORMZI # LARGEST ABVAL
|
||||
DLOAD SXA,1
|
||||
NORMZI
|
||||
NORMZI # SAVE X1
|
||||
NORM INCR,1
|
||||
# Page 1158
|
||||
X1
|
||||
DEC 2
|
||||
VLOAD VSL*
|
||||
ZI
|
||||
0,1
|
||||
STOVL ZI
|
||||
ZI +6
|
||||
VSL*
|
||||
0,1
|
||||
STOVL ZI +6
|
||||
ZI +12D
|
||||
VSL* SXA,1
|
||||
0,1
|
||||
NORMZI +1 # SAVE SHIFT
|
||||
STORE ZI +12D
|
||||
LXA,1 XSU,1
|
||||
NORMGAM
|
||||
NORMZI +1
|
||||
XSU,1
|
||||
NORMZI +1
|
||||
SXA,1 LXC,1
|
||||
NORMGAM
|
||||
NORMZI +1
|
||||
XAD,1 SETPD
|
||||
NORMZI
|
||||
2D
|
||||
GOTO
|
||||
INCOR2 -3
|
||||
NORMZI = 36D
|
||||
|
||||
|
977
Luminary099/ORBITAL_INTEGRATION.agc
Normal file
977
Luminary099/ORBITAL_INTEGRATION.agc
Normal file
@ -0,0 +1,977 @@
|
||||
# Copyright: Public domain.
|
||||
# Filename: ORBITAL_INTEGRATION.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: 1227-1248
|
||||
# Mod history: 2009-05-26 RSB Adapted from the corresponding
|
||||
# Luminary131 file, using page
|
||||
# images from Luminary 1A.
|
||||
# 2009-06-05 RSB Fixed 3 typos.
|
||||
# 2009-06-06 RSB Page 1248 was missing entirely for some reason.
|
||||
# 2009-06-07 RSB Corrected 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-61
|
||||
# 16:27 JULY 14, 1969
|
||||
|
||||
# Page 1227
|
||||
# ORBITAL INTEGRATION
|
||||
|
||||
# DELETE
|
||||
BANK 13
|
||||
SETLOC ORBITAL
|
||||
BANK
|
||||
COUNT* $$/ORBIT
|
||||
|
||||
# DELETE
|
||||
KEPPREP LXA,2 SETPD
|
||||
PBODY
|
||||
0
|
||||
DLOAD* SQRT # SQRT(MU) (+18 OR +15) 0D PL 2D
|
||||
MUEARTH,2
|
||||
PDVL UNIT # PL 8D
|
||||
RCV
|
||||
PDDL NORM # NORM R (+29 OR +27 - N1) 2D PL 4D
|
||||
36D
|
||||
X1
|
||||
PDVL
|
||||
DOT PDDL # F*SQRT(MU) (+7 OR +5) 4D PL 6D
|
||||
VCV
|
||||
TAU. # (+28)
|
||||
DSU NORM
|
||||
TC
|
||||
S1
|
||||
SR1
|
||||
DDV PDDL
|
||||
2D
|
||||
DMP PUSH # FS (+6 +N1-N2) 6D PL 8D
|
||||
4D
|
||||
DSQ PDDL # (FS)SQ (+12 +2(N1-N2)) 8D PL 10D
|
||||
4D
|
||||
DSQ PDDL* # SSQ/MU (-20R +2(N1-N2)) 10D PL 12D
|
||||
MUEARTH,2
|
||||
SR3 SR4
|
||||
PDVL VSQ # PREALIGN MU (+43 OR +37) 12D PL 14D
|
||||
VCV
|
||||
DMP BDSU # PL 12D
|
||||
36D
|
||||
DDV DMP # PL 10D
|
||||
2D # -(1/R-ALPHA) (+12 +3N1-2N2)
|
||||
DMP SL*
|
||||
DP2/3
|
||||
0 -3,1 # 10L(1/R-ALPHA) (+13 +2(N1-N2))
|
||||
XSU,1 DAD # 2(FS)SQ - ETCETERA PL 8D
|
||||
S1 # X1 = N2-N1
|
||||
SL* DSU # -FS+2(FS)SQ ETC (+6 +N1-N2) PL 6D
|
||||
8D,1
|
||||
DMP DMP
|
||||
0D
|
||||
4D
|
||||
SL* SL*
|
||||
# Page 1228
|
||||
8D,1
|
||||
0,1 # S(-FS(1-2FS)-1/6...) (+17 OR +16)
|
||||
DAD PDDL # PL 6D
|
||||
XKEP
|
||||
DMP SL* # S(+17 OR +16)
|
||||
0D
|
||||
1,1
|
||||
BOVB DAD
|
||||
TCDANZIG
|
||||
STADR
|
||||
STORE XKEPNEW
|
||||
STQ AXC,1
|
||||
KEPRTN
|
||||
DEC 10
|
||||
BON AXC,1
|
||||
MOONFLAG
|
||||
KEPLERN
|
||||
DEC 2
|
||||
GOTO
|
||||
KEPLERN
|
||||
|
||||
# Page 1229
|
||||
FBR3 LXA,1 SSP
|
||||
DIFEQCNT
|
||||
S1
|
||||
DEC -13
|
||||
DLOAD SR
|
||||
DT/2
|
||||
9D
|
||||
TIX,1 ROUND
|
||||
+1
|
||||
PUSH DAD
|
||||
TC
|
||||
STODL TAU.
|
||||
DAD
|
||||
TET
|
||||
STCALL TET
|
||||
KEPPREP
|
||||
|
||||
# Page 1230
|
||||
# AGC ROUTINE TO COMPUTE ACCELERATION COMPONENTS.
|
||||
|
||||
ACCOMP LXA,1 LXA,2
|
||||
PBODY
|
||||
PBODY
|
||||
VLOAD
|
||||
ZEROVEC
|
||||
STOVL FV
|
||||
ALPHAV
|
||||
VSL* VAD
|
||||
0 -7,2
|
||||
RCV
|
||||
STORE BETAV
|
||||
BOF XCHX,2
|
||||
DIM0FLAG
|
||||
+5
|
||||
DIFEQCNT
|
||||
STORE VECTAB,2
|
||||
XCHX,2
|
||||
DIFEQCNT
|
||||
VLOAD UNIT
|
||||
ALPHAV
|
||||
STODL ALPHAV
|
||||
36D
|
||||
STORE ALPHAM
|
||||
CALL
|
||||
GAMCOMP
|
||||
VLOAD SXA,1
|
||||
BETAV
|
||||
S2
|
||||
STODL ALPHAV
|
||||
BETAM
|
||||
STORE ALPHAM
|
||||
BOF DLOAD
|
||||
MIDFLAG
|
||||
OBLATE
|
||||
TET
|
||||
CALL
|
||||
LSPOS
|
||||
AXT,2 LXA,1
|
||||
2
|
||||
S2
|
||||
BOF
|
||||
MOONFLAG
|
||||
+3
|
||||
VCOMP AXT,2
|
||||
0
|
||||
STORE BETAV
|
||||
STOVL RPQV
|
||||
# Page 1231
|
||||
2D
|
||||
STORE RPSV
|
||||
SLOAD DSU
|
||||
MODREG
|
||||
OCT27
|
||||
BHIZ BOF
|
||||
+3
|
||||
DIM0FLAG
|
||||
GETRPSV
|
||||
VLOAD VXSC
|
||||
ALPHAV
|
||||
ALPHAM
|
||||
VSR* VSU
|
||||
1,2
|
||||
BETAV
|
||||
XCHX,2
|
||||
DIFEQCNT
|
||||
STORE VECTAB +6,2
|
||||
STORE RQVV
|
||||
XCHX,2
|
||||
DIFEQCNT
|
||||
GETRPSV VLOAD INCR,1
|
||||
RPQV
|
||||
4
|
||||
CLEAR BOF
|
||||
RPQFLAG
|
||||
MOONFLAG
|
||||
+5
|
||||
VSR VAD
|
||||
9D
|
||||
RPSV
|
||||
STORE RPSV
|
||||
CALL
|
||||
GAMCOMP
|
||||
AXT,2 INCR,1
|
||||
4
|
||||
4
|
||||
VLOAD
|
||||
RPSV
|
||||
STCALL BETAV
|
||||
GAMCOMP
|
||||
GOTO
|
||||
OBLATE
|
||||
GAMCOMP VLOAD VSR1
|
||||
BETAV
|
||||
VSQ SETPD
|
||||
0
|
||||
NORM ROUND
|
||||
31D
|
||||
PDDL NORM # NORMED B SQUARED TO PD LIST
|
||||
# Page 1232
|
||||
ALPHAM # NORMALIZE (LESS ONE) LENGTH OF ALPHA
|
||||
32D # SAVING NORM SCALE FACTOR IN X1
|
||||
SR1 PDVL
|
||||
BETAV # C(PDL+2) = ALMOST NORMED ALPHA
|
||||
UNIT
|
||||
STODL BETAV
|
||||
36D
|
||||
STORE BETAM
|
||||
NORM BDDV # FORM NORMALIZE QUOTIEN ALPHAM/BETAM
|
||||
33D
|
||||
SR1R PUSH # C(PDL+2) = ALMOST NORMALIZE RHO.
|
||||
DLOAD*
|
||||
ASCALE,1
|
||||
STORE S1
|
||||
XCHX,2 XAD,2
|
||||
S1
|
||||
32D
|
||||
XSU,2 DLOAD
|
||||
33D
|
||||
2D
|
||||
SR* XCHX,2
|
||||
0 -1,2
|
||||
S1
|
||||
PUSH SR1R # RHO/4 TO 4D
|
||||
PDVL DOT
|
||||
ALPHAV
|
||||
BETAV
|
||||
SL1R BDSU # (RHO/4) - 2(ALPHAV/2.BETAV/2)
|
||||
PUSH DMPR # TO PDL+6
|
||||
4
|
||||
SL1
|
||||
PUSH DAD
|
||||
DQUARTER
|
||||
PUSH SQRT
|
||||
DMPR PUSH
|
||||
10D
|
||||
SL1 DAD
|
||||
DQUARTER
|
||||
PDDL DAD # (1/4)+2((Q+1)/4) TO PD+14D
|
||||
10D
|
||||
HALFDP
|
||||
DMPR SL1
|
||||
8D
|
||||
DAD DDV
|
||||
THREE/8
|
||||
14D
|
||||
DMPR VXSC
|
||||
6
|
||||
BETAV # _
|
||||
PDVL VSR3 # (G/2)(C(PD+4))B/2 TO PD+16D
|
||||
# Page 1233
|
||||
ALPHAV
|
||||
VAD PUSH # A12 + C(PD+16D) TO PD+16D
|
||||
DLOAD DMP
|
||||
0
|
||||
12D
|
||||
NORM ROUND
|
||||
30D
|
||||
BDDV DMP*
|
||||
2
|
||||
MUEARTH,2
|
||||
DCOMP VXSC
|
||||
XCHX,2 XAD,2
|
||||
S1
|
||||
S2
|
||||
XSU,2 XSU,2
|
||||
30D
|
||||
31D
|
||||
BOV # CLEAR OVIND
|
||||
+1
|
||||
VSR* XCHX,2
|
||||
0 -1,2
|
||||
S1
|
||||
VAD
|
||||
FV
|
||||
STORE FV
|
||||
BOV RVQ # RETURN IF NO OVERFLOW
|
||||
+1
|
||||
GOBAQUE VLOAD ABVAL
|
||||
TDELTAV
|
||||
BZE
|
||||
INT-ABRT
|
||||
DLOAD SR
|
||||
H
|
||||
9D
|
||||
PUSH BDSU
|
||||
TC
|
||||
STODL TAU.
|
||||
TET
|
||||
DSU STADR
|
||||
STCALL TET
|
||||
KEPPREP
|
||||
CALL
|
||||
RECTIFY
|
||||
SETGO
|
||||
RPQFLAG
|
||||
TESTLOOP
|
||||
|
||||
INT-ABRT EXIT
|
||||
TC P00DOO
|
||||
OCT 00430
|
||||
|
||||
# Page 1234
|
||||
# THE OBLATE ROUTINE COMPUTES THE ACCELERATION DUE TO OBLATENESS. IT USES THE UNIT OF THE VEHICLE
|
||||
# POSITION VECTOR FOUND IN ALPHAV AND THE DISTANCE TO THE CENTER IN ALPHAM. THIS IS ADDED TO THE SUM OF THE
|
||||
# DISTURBING ACCELERATIONS IN FV AND THE PROPER DIFEQ STAGE IS CALLED VIA X1.
|
||||
|
||||
OBLATE LXA,2 DLOAD
|
||||
PBODY
|
||||
ALPHAM
|
||||
SETPD DSU*
|
||||
0
|
||||
RDE,2
|
||||
BPL BOF # GET URPV
|
||||
NBRANCH
|
||||
MOONFLAG
|
||||
COSPHIE
|
||||
VLOAD PDDL
|
||||
ALPHAV
|
||||
TET
|
||||
PDDL CALL
|
||||
3/5
|
||||
R-TO-RP
|
||||
STORE URPV
|
||||
VLOAD VXV
|
||||
504LM
|
||||
ZUNIT
|
||||
VAD VXM
|
||||
ZUNIT
|
||||
MMATRIX
|
||||
UNIT # POSSIBLY UNNECESSARY
|
||||
COMTERM STORE UZ
|
||||
DLOAD DMPR
|
||||
COSPHI/2
|
||||
3/32
|
||||
PDDL DSQ # P2/64 TO PD0
|
||||
COSPHI/2
|
||||
DMPR DSU
|
||||
15/16
|
||||
3/64
|
||||
PUSH DMPR # P3/32 TO PD2
|
||||
COSPHI/2
|
||||
DMP SL1R
|
||||
7/12
|
||||
PDDL DMPR
|
||||
0
|
||||
2/3
|
||||
BDSU PUSH # P4/128 TO PD4
|
||||
DMPR DMPR
|
||||
COSPHI/2 # BEGIN COMPUTING P5/1024
|
||||
9/16
|
||||
PDDL DMPR
|
||||
2
|
||||
5/128
|
||||
# Page 1235
|
||||
BDSU
|
||||
DMP*
|
||||
J4REQ/J3,2
|
||||
DDV DAD # -3
|
||||
ALPHAM # (((P5/256)B 2 /R+P4/32) /R+P3/8)ALPHAV
|
||||
4 # 4 3
|
||||
DMPR* DDV
|
||||
2J3RE/J2,2
|
||||
ALPHAM
|
||||
DAD VXSC
|
||||
2
|
||||
ALPHAV
|
||||
STODL TVEC
|
||||
DMP* SR1
|
||||
J4REQ/J3,2
|
||||
DDV DAD
|
||||
ALPHAM
|
||||
DMPR* SR3
|
||||
2J3RE/J2,2
|
||||
DDV DAD
|
||||
ALPHAM
|
||||
VXSC VSL1
|
||||
UZ
|
||||
BVSU
|
||||
TVEC
|
||||
STODL TVEC
|
||||
ALPHAM
|
||||
NORM DSQ
|
||||
X1
|
||||
DSQ NORM
|
||||
S1 # 4
|
||||
PUSH BDDV* # NORMED R TO 0D
|
||||
J2REQSQ,2
|
||||
VXSC BOV
|
||||
TVEC
|
||||
+1 # (RESET OVERFLOW INDICATOR)
|
||||
XAD,1 XAD,1
|
||||
X1
|
||||
X1
|
||||
XAD,1 VSL*
|
||||
S1
|
||||
0 -22D,1
|
||||
VAD BOV
|
||||
FV
|
||||
GOBAQUE
|
||||
STCALL FV
|
||||
QUALITY1
|
||||
|
||||
QUALITY3 DSQ # J22 TERM X R**4 IN 2D, SCALED B61
|
||||
# AS VECTOR.
|
||||
# Page 1236
|
||||
PUSH DMP # STORE COSPHI**2 SCALED B2 IN 8D
|
||||
5/8 # 5 SCALED B3
|
||||
PDDL SR2 # PUT 5 COSPHI**2, D5, IN 8D. GET
|
||||
# COSPHI**2 D2 FROM 8D
|
||||
DAD BDSU # END UP WITH (1-7 COSPHI**2), B5
|
||||
8D # ADDING COSPHI**2 B4 SAME AS COSPHI**2
|
||||
# X 2 D5
|
||||
D1/32 # 1 SCALED B5
|
||||
DMP DMP
|
||||
URPV # X COMPONENT
|
||||
5/8 # 5 SCALED B3
|
||||
VXSC VSL5 # AFTER SHIFT, SCALED B5
|
||||
URPV # VECTOR, B1.
|
||||
PDDL # VECTOR INTO 8D, 10D, 12D, SCALED B5.
|
||||
# GET 5 COSPHI**2 OUT OF 8D
|
||||
DSU DAD
|
||||
D1/32 # 1 B5
|
||||
8D # X COMPONENT (SAME AS MULTIPLYING
|
||||
# BY UNITX)
|
||||
STODL 8D
|
||||
URPV # X COMPONENT
|
||||
DMP DMP
|
||||
URPV +4 # Z COMPONENT
|
||||
5/8 # 5 B3 ANSWER B5
|
||||
SL1 DAD # FROM 12D FOR Z COMPONENT (SL1 GIVES 10
|
||||
# INSTEAD OF 5 FOR COEFFICIENT)
|
||||
PDDL NORM # BACK INTO 12D FOR Z COMPNENT.
|
||||
ALPHAM # SCALED B27 FOR MOON
|
||||
X2
|
||||
PUSH SLOAD # STORE IN 14D, DESTROYING URPV
|
||||
# X COMPONENT
|
||||
E32C31RM
|
||||
DDV VXSC # IF X2 = 0, DIVISION GIVES B53, VXSC
|
||||
# OUT OF 8D B5 GIVES B58
|
||||
VSL* VAD # SHIFT MAKES B61, FOR ADDITION OF
|
||||
# VECTOR IN 2D
|
||||
0 -3,2
|
||||
VSL* V/SC # OPERAND FROM 0D. B108 FOR X1 = 0
|
||||
0 -27D,1 # FOR X1 = 0, MAKES B88, GIVING B-20
|
||||
# FOR RESULT.
|
||||
PDDL PDDL
|
||||
TET
|
||||
5/8 # ANY NON-ZERO CONSTANT
|
||||
LXA,2 CALL # POSITION IN 0D, TIME IN 6D. X2 LEFT
|
||||
# ALONE.
|
||||
PBODY
|
||||
RP-TO-R
|
||||
VAD BOV # OVERFLOW INDICATOR RESET IN "RP-TO-R"
|
||||
FV
|
||||
GOBAQUE
|
||||
# Page 1237
|
||||
STORE FV
|
||||
NBRANCH SLOAD LXA,1
|
||||
DIFEQCNT
|
||||
MPAC
|
||||
DMP CGOTO
|
||||
-1/12
|
||||
MPAC
|
||||
DIFEQTAB
|
||||
COSPHIE DLOAD
|
||||
ALPHAV +4
|
||||
STOVL COSPHI/2
|
||||
ZUNIT
|
||||
GOTO
|
||||
COMTERM
|
||||
DIFEQTAB CADR DIFEQ+0
|
||||
CADR DIFEQ+1
|
||||
CADR DIFEQ+2
|
||||
TIMESTEP BOF VLOAD
|
||||
MIDFLAG
|
||||
RECTEST
|
||||
RCV
|
||||
DOT DMP
|
||||
VCV
|
||||
DT/2 # (R.V) X (DELTA T)
|
||||
BMN
|
||||
RECTEST
|
||||
BON BOF
|
||||
MOONFLAG
|
||||
LUNSPH
|
||||
RPQFLAG
|
||||
EARSPH
|
||||
DLOAD CALL
|
||||
TET
|
||||
LSPOS # RPQV IN MPAC
|
||||
STORE RPQV # RPQV
|
||||
LXA,2
|
||||
PBODY
|
||||
INLUNCHK BVSU ABVAL
|
||||
RCV
|
||||
DSU BMN
|
||||
RSPHERE
|
||||
DOSWITCH
|
||||
RECTEST VLOAD ABVAL # RECTIFY IF
|
||||
TDELTAV
|
||||
BOV
|
||||
CALLRECT
|
||||
DSU BPL # 1) EITHER TDELTAV OR TNUV EQUALS OR
|
||||
3/4 # EXCEEDS 3/4 IN MAGNITUDE
|
||||
CALLRECT #
|
||||
DAD SL* # OR
|
||||
# Page 1238
|
||||
3/4 #
|
||||
0 -7,2 # 2) ABVAL(TDELTAV) EQUALS OR EXCEEDS
|
||||
DDV DSU # .01(ABVAL(RCV))
|
||||
10D
|
||||
RECRATIO
|
||||
BPL VLOAD
|
||||
CALLRECT
|
||||
TNUV
|
||||
ABVAL DSU
|
||||
3/4
|
||||
BOV
|
||||
CALLRECT
|
||||
BMN
|
||||
INTGRATE
|
||||
CALLRECT CALL
|
||||
RECTIFY
|
||||
INTGRATE VLOAD
|
||||
TNUV
|
||||
STOVL ZV
|
||||
TDELTAV
|
||||
STORE YV
|
||||
CLEAR
|
||||
JSWITCH
|
||||
DIFEQ0 VLOAD SSP
|
||||
YV
|
||||
DIFEQCNT
|
||||
0
|
||||
STODL ALPHAV
|
||||
DPZERO
|
||||
STORE H # START H AT ZERO. GOES 0(DELT/2)DELT.
|
||||
BON GOTO
|
||||
JSWITCH
|
||||
DOW..
|
||||
ACCOMP
|
||||
EARSPH VLOAD GOTO
|
||||
RPQV
|
||||
INLUNCHK
|
||||
LUNSPH DLOAD SR2
|
||||
10D
|
||||
DSU BMN
|
||||
RSPHERE
|
||||
RECTEST
|
||||
BOF DLOAD
|
||||
RPQFLAG
|
||||
DOSWITCH
|
||||
TET
|
||||
CALL
|
||||
LUNPOS
|
||||
VCOMP
|
||||
STORE RPQV
|
||||
# Page 1239
|
||||
DOSWITCH CALL
|
||||
ORIGCHNG
|
||||
GOTO
|
||||
INTGRATE
|
||||
ORIGCHNG STQ CALL
|
||||
ORIGEX
|
||||
RECTIFY
|
||||
VLOAD VSL*
|
||||
RCV
|
||||
0,2
|
||||
VSU VSL*
|
||||
RPQV
|
||||
2,2
|
||||
STORE RRECT
|
||||
STODL RCV
|
||||
TET
|
||||
CALL
|
||||
LUNVEL
|
||||
BOF VCOMP
|
||||
MOONFLAG
|
||||
+1
|
||||
PDVL VSL*
|
||||
VCV
|
||||
0,2
|
||||
VSU
|
||||
VSL*
|
||||
0 +2,2
|
||||
STORE VRECT
|
||||
STORE VCV
|
||||
LXA,2 SXA,2
|
||||
ORIGEX
|
||||
QPRET
|
||||
BON GOTO
|
||||
MOONFLAG
|
||||
CLRMOON
|
||||
SETMOON
|
||||
# Page 1240
|
||||
# THE RECTIFY SUBROUTINE IS CALLED BY THE INTEGRATION PROGRAM AND OCCASIONALLY BY THE MEASUREMENT INCORPORATION
|
||||
# ROUTINES TO ESTABLISH A NEW CONIC.
|
||||
|
||||
RECTIFY LXA,2 VLOAD
|
||||
PBODY
|
||||
TDELTAV
|
||||
VSL* VAD
|
||||
0 -7,2
|
||||
RCV
|
||||
STORE RRECT
|
||||
STOVL RCV
|
||||
TNUV
|
||||
VSL* VAD
|
||||
0 -4,2
|
||||
VCV
|
||||
MINIRECT STORE VRECT
|
||||
STOVL VCV
|
||||
ZEROVEC
|
||||
STORE TDELTAV
|
||||
STODL TNUV
|
||||
ZEROVEC
|
||||
STORE TC
|
||||
STORE XKEP
|
||||
RVQ
|
||||
|
||||
# Page 1241
|
||||
# THE THREE DIFEQ ROUTINES -- DIFEQ+0, DIFEQ+12, DIFEQ+24 -- ARE ENTERED TO PROCESS THE CONTRIBUTIONS AT THE
|
||||
# BEGINNING, MIDDLE, AND END OF THE TIMESTEP, RESPECTIVELY. THE UPDATING IS DONE BY THE NYSTROM METHOD.
|
||||
|
||||
DIFEQ+0 VLOAD VSR3
|
||||
FV
|
||||
STCALL PHIV
|
||||
DIFEQCOM
|
||||
DIFEQ+1 VLOAD VSR1
|
||||
FV
|
||||
PUSH VAD
|
||||
PHIV
|
||||
STOVL PSIV
|
||||
VSR1 VAD
|
||||
PHIV
|
||||
STCALL PHIV
|
||||
DIFEQCOM
|
||||
DIFEQ+2 DLOAD DMPR
|
||||
H
|
||||
DP2/3
|
||||
PUSH VXSC
|
||||
PHIV
|
||||
VSL1 VAD
|
||||
ZV
|
||||
VXSC VAD
|
||||
H
|
||||
YV
|
||||
STOVL YV
|
||||
FV
|
||||
VSR3 VAD
|
||||
PSIV
|
||||
VXSC VSL1
|
||||
VAD
|
||||
ZV
|
||||
STORE ZV
|
||||
BOFF CALL
|
||||
JSWITCH
|
||||
ENDSTATE
|
||||
GRP2PC
|
||||
LXA,2 VLOAD
|
||||
COLREG
|
||||
ZV
|
||||
VSL3 # ADJUST W-POSITION FOR STORAGE
|
||||
STORE W +54D,2
|
||||
VLOAD
|
||||
YV
|
||||
VSL3 BOV
|
||||
WMATEND
|
||||
STORE W,2
|
||||
|
||||
CALL
|
||||
GRP2PC
|
||||
# Page 1242
|
||||
LXA,2 SSP
|
||||
COLREG
|
||||
S2
|
||||
0
|
||||
INCR,2 SXA,2
|
||||
6
|
||||
YV
|
||||
TIX,2 CALL
|
||||
RELOADSV
|
||||
GRP2PC
|
||||
LXA,2 SXA,2
|
||||
YV
|
||||
COLREG
|
||||
|
||||
NEXTCOL CALL
|
||||
GRP2PC
|
||||
LXA,2 VLOAD*
|
||||
COLREG
|
||||
W,2
|
||||
VSR3 # ADJUST W-POSITION FOR INTEGRATION
|
||||
STORE YV
|
||||
VLOAD* AXT,1
|
||||
W +54D,2
|
||||
0
|
||||
VSR3 # ADJUST W-VELOCITY FOR INTEGRATION
|
||||
STCALL ZV
|
||||
DIFEQ0
|
||||
|
||||
ENDSTATE BOV VLOAD
|
||||
GOBAQUE
|
||||
ZV
|
||||
STOVL TNUV
|
||||
YV
|
||||
STORE TDELTAV
|
||||
BON BOFF
|
||||
MIDAVFLG
|
||||
CKMID2 # CHECK FOR MID2 BEFORE GOING TO TIMEINC
|
||||
DIM0FLAG
|
||||
TESTLOOP
|
||||
EXIT
|
||||
TC PHASCHNG
|
||||
OCT 04022 # PHASE 1
|
||||
TC UPFLAG # PHASE CHANGE HAS OCCURRED BETWEEN
|
||||
ADRES REINTFLG # INSTALL AND INTWAKE
|
||||
TC INTPRET
|
||||
SSP
|
||||
QPRET
|
||||
AMOVED
|
||||
BON GOTO
|
||||
VINTFLAG
|
||||
# Page 1243
|
||||
ATOPCSM
|
||||
ATOPLEM
|
||||
AMOVED SET SSP
|
||||
JSWITCH
|
||||
COLREG
|
||||
DEC -30
|
||||
BOFF SSP
|
||||
D6OR9FLG
|
||||
NEXTCOL
|
||||
COLREG
|
||||
DEC -48
|
||||
GOTO
|
||||
NEXTCOL
|
||||
|
||||
RELOADSV DLOAD # RELOAD TEMPORARY STATE VECTOR
|
||||
TDEC # FROM PERMANENT IN CASE OF
|
||||
STCALL TDEC1
|
||||
INTEGRV2 # BY STARTING AT INTEGRV2.
|
||||
DIFEQCOM DLOAD DAD # INCREMENT H AND DIFEQCNT.
|
||||
DT/2
|
||||
H
|
||||
INCR,1 SXA,1
|
||||
DEC -12
|
||||
DIFEQCNT # DIFEQCNT SET FOR NEXT ENTRY.
|
||||
STORE H
|
||||
VXSC VSR1
|
||||
FV
|
||||
VAD VXSC
|
||||
ZV
|
||||
H
|
||||
VAD
|
||||
YV
|
||||
STORE ALPHAV
|
||||
BON GOTO
|
||||
JSWITCH
|
||||
DOW..
|
||||
FBR3
|
||||
|
||||
WMATEND CLEAR CLEAR
|
||||
DIM0FLAG # DON'T INTEGRATE W THIS TIME
|
||||
ORBWFLAG # INVALIDATE W
|
||||
CLEAR
|
||||
RENDWFLG
|
||||
SET EXIT
|
||||
STATEFLG # PICK UP STATE VECTOR UPDATE
|
||||
TC ALARM
|
||||
OCT 421
|
||||
TC INTPRET
|
||||
# Page 1244
|
||||
GOTO
|
||||
TESTLOOP # FINISH INTEGRATING STATE VECTOR
|
||||
|
||||
# Page 1245
|
||||
# ORBITAL ROUTINE FOR EXTRAPOLATION OF THE W MATRIX. IT COMPUTES THE SECOND DERIVATIVE OF EACH COLUMN POSITION
|
||||
# VECTOR OF THE MATRIX AND CALLS THE NYSTROM INTEGRATION ROUTINES TO SOLVE THE DIFFERENTIAL EQUATIONS. THE PROGRAM
|
||||
# USES A TABLE OF VEHICLE POSITION VECTORS COMPUTED DURING THE INTEGRATION OF THE VEHICLE'S POSITION AND VELOCITY.
|
||||
|
||||
DOW.. LXA,2 DLOAD*
|
||||
PBODY
|
||||
MUEARTH,2
|
||||
STCALL BETAM
|
||||
DOW..1
|
||||
STORE FV
|
||||
BOF INCR,1
|
||||
MIDFLAG
|
||||
NBRANCH
|
||||
DEC -6
|
||||
LXC,2 DLOAD*
|
||||
PBODY
|
||||
MUEARTH -2,2
|
||||
STCALL BETAM
|
||||
DOW..1
|
||||
BON VSR6
|
||||
MOONFLAG
|
||||
+1
|
||||
VAD
|
||||
FV
|
||||
STCALL FV
|
||||
NBRANCH
|
||||
DOW..1 VLOAD VSR4
|
||||
ALPHAV
|
||||
PDVL* UNIT
|
||||
VECTAB,1
|
||||
PDVL VPROJ
|
||||
ALPHAV
|
||||
VXSC VSU
|
||||
3/4
|
||||
PDDL NORM
|
||||
36D
|
||||
S2
|
||||
PUSH DSQ
|
||||
DMP
|
||||
NORM PDDL
|
||||
34D
|
||||
BETAM
|
||||
SR1 DDV
|
||||
VXSC
|
||||
LXA,2 XAD,2
|
||||
S2
|
||||
S2
|
||||
XAD,2 XAD,2
|
||||
S2
|
||||
34D
|
||||
VSL* RVQ
|
||||
# Page 1246
|
||||
0 -8D,2
|
||||
|
||||
# ********************************************************************************
|
||||
# ********************************************************************************
|
||||
SETITCTR SSP BOFF # SET ITERCTR FOR LAMBERT CALLS. THIS
|
||||
ITERCTR # CODING BELONGS IN INITVEL AND IS HERE
|
||||
20D # FOR PURPOSES OF A ONE-MODULE
|
||||
AVEGFLAG # REMANUFACTURE ONLY. CODING SHOULD
|
||||
LAMBERT # BE MOVED BACK TO INITVEL FOR LUMINARY 1B
|
||||
SSP GOTO
|
||||
ITERCTR
|
||||
5
|
||||
LAMBERT
|
||||
# ********************************************************************************
|
||||
# ********************************************************************************
|
||||
|
||||
SETLOC ORBITAL1
|
||||
BANK
|
||||
|
||||
3/5 2DEC .6 B-2
|
||||
|
||||
THREE/8 2DEC .375
|
||||
|
||||
.3D 2DEC .3 B-2
|
||||
|
||||
3/64 2DEC 3 B-6
|
||||
|
||||
DP1/4 2DEC .25
|
||||
|
||||
DQUARTER EQUALS DP1/4
|
||||
POS1/4 EQUALS DP1/4
|
||||
3/32 2DEC 3 B-5
|
||||
|
||||
15/16 2DEC 15. B-4
|
||||
|
||||
3/4 2DEC 3.0 B-2
|
||||
|
||||
7/12 2DEC .5833333333
|
||||
|
||||
9/16 2DEC 9 B-4
|
||||
|
||||
5/128 2DEC 5 B-7
|
||||
|
||||
DPZERO EQUALS ZEROVEC
|
||||
DP2/3 2DEC .6666666667
|
||||
|
||||
2/3 EQUALS DP2/3
|
||||
OCT27 OCT 27
|
||||
|
||||
# Page 1247
|
||||
BANK 13
|
||||
SETLOC ORBITAL2
|
||||
BANK
|
||||
# IT IS VITAL THAT THE FOLLOWING CONSTANTS NOT BE SHUFFLED
|
||||
DEC -11
|
||||
DEC -2
|
||||
DEC -9
|
||||
DEC -6
|
||||
DEC -2
|
||||
DEC -2
|
||||
DEC 0
|
||||
DEC -12
|
||||
DEC -9
|
||||
DEC -4
|
||||
ASCALE DEC -7
|
||||
DEC -6
|
||||
5/8 2DEC 5 B-3
|
||||
|
||||
-1/12 2DEC -.1
|
||||
|
||||
RECRATIO 2DEC .01
|
||||
|
||||
RSPHERE 2DEC 64373.76 E3 B-29
|
||||
|
||||
RDM 2DEC 16093.44 E3 B-27
|
||||
|
||||
RDE 2DEC 80467.20 E3 B-29
|
||||
|
||||
RATT EQUALS 00
|
||||
VATT EQUALS 6D
|
||||
TAT EQUALS 12D
|
||||
RATT1 EQUALS 14D
|
||||
VATT1 EQUALS 20D
|
||||
MU(P) EQUALS 26D
|
||||
TDEC1 EQUALS 32D
|
||||
URPV EQUALS 14D
|
||||
COSPHI/2 EQUALS URPV +4
|
||||
UZ EQUALS 20D
|
||||
TVEC EQUALS 26D
|
||||
|
||||
QUALITY1 BOF DLOAD
|
||||
MOONFLAG
|
||||
NBRANCH
|
||||
URPV
|
||||
DSQ
|
||||
QUALITY2 PDDL DSQ # SQUARE INTO 2D, B2
|
||||
URPV +2 # Y COMPONENT, B1
|
||||
DSU
|
||||
DMP VXSC # 5(Y**2-X**2)UR
|
||||
5/8 # CONSTANT, 5B3
|
||||
URPV # VECTOR. RESULT MAXIMUM IS 5, SCALING
|
||||
# Page 1248
|
||||
# HERE B6
|
||||
VSL3 PDDL # STORE SCALED B3 IN 2D, 4D, 6D FOR XYZ
|
||||
URPV # X COMPONENT, B1
|
||||
SR1 DAD # 2 X X COMPONENT FOR B3 SCALING
|
||||
2D # ADD TO VECTOR X COMPONENT OF ANSWER,
|
||||
# SAME AS MULTIPLYING BY UNITX. MAX IS 7.
|
||||
STODL 2D
|
||||
URPV +2 # Y COMPONENT, B1
|
||||
SR1 BDSU # 2 X Y COMPONENT FOR B3 SCALING
|
||||
4D # SUBTRACT FROM VECTOR Y COMPONENT OF
|
||||
# ANSWER, SAME AS MULTIPLYING BY UNITY.
|
||||
# MAX IS 7.
|
||||
STORE 4D # 2D HAS VECTOR, B3.
|
||||
SLOAD VXSC # MULTIPLY COEFFICIENT TIMES VECTOR IN 2D
|
||||
E3J22R2M
|
||||
PDDL RVQ # J22 TERM X R**4 IN 2D, SCALED B61
|
||||
COSPHI/2 # SAME AS URPV +4 Z COMPONENT
|
||||
|
5182
Luminary099/P20-P25.agc
Normal file
5182
Luminary099/P20-P25.agc
Normal file
File diff suppressed because it is too large
Load Diff
1764
Luminary099/P34-35_P74-75.agc
Normal file
1764
Luminary099/P34-35_P74-75.agc
Normal file
File diff suppressed because it is too large
Load Diff
1471
Luminary099/P40-P47.agc
Normal file
1471
Luminary099/P40-P47.agc
Normal file
File diff suppressed because it is too large
Load Diff
2341
Luminary099/P51-P53.agc
Normal file
2341
Luminary099/P51-P53.agc
Normal file
File diff suppressed because it is too large
Load Diff
164
Luminary099/P76.agc
Normal file
164
Luminary099/P76.agc
Normal file
@ -0,0 +1,164 @@
|
||||
# Copyright: Public domain.
|
||||
# Filename: P76.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: 709-711
|
||||
# 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 709
|
||||
# 1) PROGRAM NAME -- TARGET DELTA V PROGRAM (P76).
|
||||
# 2) FUNCTIONAL DESCRIPTION -- UPON ENTRY BY ASTRONAUT ACTION, P76 FLASHES DSKY REQUESTS TO THE ASTRONAUT
|
||||
# TO PROVIDE VIA DSKY (1) THE DELTA V TO BE APPLIED TO THE OTHER VEHICLE STATE VECTOR AND (2) THE
|
||||
# TIME (TIG) AT WHICH THE OTHER VEHICLE VELOCITY WAS CHANGED BY EXECUTION OF A THRUSTING MANEUVER. THE
|
||||
# OTHER VEHICLE STATE VECTOR IS INTEGRATED TO TIG AND UPDATED BY THE ADDITION OF DELTA V (DELTA V HAVING
|
||||
# BEEN TRANSFORMED FROM LV TO REF COSYS). USING INTEGRVS, THE PROGRAM THEN INTEGRATES THE OTHER
|
||||
# VEHICLE STATE VECTOR TO THE STATE VECTOR OF THIS VEHICLE, THUS INSURING THAT THE W-MATRIX AND BOTH VEHICLE
|
||||
# STATES CORRESPOND TO THE SAME TIME.
|
||||
# 3) ERASABLE INIITIALIZATION REQUIRED -- NONE.
|
||||
# 4) CALLING SEQUENCES AND EXIT MODES -- CALLED BY ASTRONAUT REQUEST THRU DSKY V 37 E 76E.
|
||||
# EXITS BY TCF ENDOFJOB.
|
||||
# 5) OUTPUT -- OTHER VEHICLE STATE VECTOR INTEGRATED TO TIG AND INCREMENTED BY DELTA V IN REF COSYS.
|
||||
# THE PUSHLIST CONTAINS THE MATRIX BY WHICH THE INPUT DELTA V MUST BE POST-MULTIPLIED TO CONVERT FROM LV
|
||||
# TO REF COSYS.
|
||||
# 6) DEBRIS -- OTHER VEHICLE STATE VECTOR.
|
||||
# 7) SUBROUTINES CALLED -- BANKCALL, GOXDSPF, CSMPREC (OR LEMPREC), ATOPCSM (OR ATOPLEM), INTSTALL, INTWAKE, PHASCHNG
|
||||
# INTPRET, INTEGRVS, AND MINIRECT.
|
||||
# 8) FLAG USE -- MOONFLAG, CMOONFLG, INTYPFLG, RASFLAG, AND MARKCTR.
|
||||
|
||||
BANK 30
|
||||
SETLOC P76LOC
|
||||
BANK
|
||||
|
||||
COUNT* $$/P76
|
||||
|
||||
EBANK= TIG
|
||||
|
||||
P76 TC UPFLAG
|
||||
ADRES TRACKFLG
|
||||
|
||||
TC INTPRET
|
||||
VLOAD
|
||||
DELVLVC
|
||||
STORE DELVOV
|
||||
EXIT
|
||||
|
||||
CAF V06N84 # FLASH LAST DELTA V,
|
||||
TC BANKCALL # AND WAIT FOR KEYBOARD ACTION.
|
||||
CADR GOFLASH
|
||||
TCF ENDP76
|
||||
TC +2 # PROCEED
|
||||
TC -5 # STORE DATA AND REPEAT FLASHING
|
||||
CAF V06N84 +1 # FLASH VERB 06 NOUN 33, DISPLAY LAST TIG,
|
||||
TC BANKCALL # AND WAIT FOR KEYBOARD ACTION.
|
||||
CADR GOFLASH
|
||||
TCF ENDP76
|
||||
TC +2
|
||||
TC -5
|
||||
TC INTPRET # RETURN TO INTERPRETIVE CODE
|
||||
# Page 710
|
||||
DLOAD # SET D(MPAC)=TIG IN CSEC B28
|
||||
TIG
|
||||
STCALL TDEC1 # SET TDEC1=TIG FOR ORBITAL INTEGRATION
|
||||
OTHPREC
|
||||
COMPMAT VLOAD UNIT
|
||||
RATT
|
||||
VCOMP # U(-R)
|
||||
STORE 24D # U(-R) TO 24D
|
||||
VXV UNIT # U(-R) X V = U(V X R)
|
||||
VATT
|
||||
STORE 18D
|
||||
VXV UNIT # U(V X R) X U(-R) = U((R X V) X R)
|
||||
24D
|
||||
STOVL 12D
|
||||
DELVOV
|
||||
VXM VSL1 # V(MPAC)=DELTA V IN REFCOSYS
|
||||
12D
|
||||
VAD
|
||||
VATT
|
||||
STORE 6 # V(PD6)=VATT + DELTA V
|
||||
CALL # PRESENT WOULD-BE USER OF ORBITAL
|
||||
INTSTALL # INTEG FROM INTERFERING WITH UPDATING
|
||||
CALL
|
||||
P76SUB1
|
||||
VLOAD VSR*
|
||||
6
|
||||
0,2
|
||||
STOVL VCV
|
||||
RATT
|
||||
VSR*
|
||||
0,2
|
||||
STODL RCV
|
||||
TIG
|
||||
STORE TET
|
||||
CLEAR DLOAD
|
||||
INTYPFLG
|
||||
TETTHIS
|
||||
INTOTHIS STCALL TDEC1
|
||||
INTEGRVS
|
||||
CALL
|
||||
INTSTALL
|
||||
VLOAD
|
||||
RATT1
|
||||
STORE RRECT
|
||||
STODL RCV
|
||||
TAT
|
||||
STOVL TET
|
||||
VATT1
|
||||
CALL
|
||||
MINIRECT
|
||||
# Page 711
|
||||
EXIT
|
||||
TC PHASCHNG
|
||||
OCT 04024
|
||||
|
||||
TC UPFLAG
|
||||
ADRES REINTFLG
|
||||
|
||||
TC INTPRET
|
||||
CALL
|
||||
ATOPOTH
|
||||
SSP EXIT
|
||||
QPRET
|
||||
OUT
|
||||
TC BANKCALL # PERMIT USE OF ORBITAL INTEGRATION
|
||||
CADR INTWAKE1
|
||||
OUT EXIT
|
||||
ENDP76 CAF ZERO
|
||||
TS MARKCTR # CLEAR RR TRACKING MARK COUNTER
|
||||
TCF GOTOP00H
|
||||
|
||||
V06N84 NV 0684
|
||||
NV 0633
|
||||
P76SUB1 AXT,2 SET
|
||||
2
|
||||
MOONFLAG # SET MEANS MOON IS SPHERE OF INFLUENCE.
|
||||
BON AXT,2
|
||||
CMOONFLG # SET MEANS PERM CM STATE IN LUNAR SPHERE.
|
||||
QPRET
|
||||
0
|
||||
CLEAR RVQ
|
||||
MOONFLAG
|
||||
|
||||
|
||||
|
411
Luminary099/PHASE_TABLE_MAINTENANCE.agc
Normal file
411
Luminary099/PHASE_TABLE_MAINTENANCE.agc
Normal file
@ -0,0 +1,411 @@
|
||||
# Copyright: Public domain.
|
||||
# Filename: PHASE_TABLE_MAINTENANCE.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: Onno Hommes <ohommes@cmu.edu>.
|
||||
# Website: www.ibiblio.org/apollo.
|
||||
# Pages: 1294-1302
|
||||
# Mod history: 2009-05-26 OH Transcribed from page images.
|
||||
# 2009-06-05 RSB A few lines at the bottom of page image
|
||||
# 1294 were truncated. I've fixed the page
|
||||
# image and added those missing lines here.
|
||||
# 2011-05-07 JL Flagged SBANK= workaround for future
|
||||
# removal.
|
||||
|
||||
# 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 1294
|
||||
# SUBROUTINE TO UPDATE THE PROGRAM NUMBER DISPLAY ON THE DSKY.
|
||||
|
||||
COUNT* $$/PHASE
|
||||
BLOCK 02
|
||||
SETLOC FFTAG1
|
||||
BANK
|
||||
|
||||
NEWMODEX INDEX Q # UPDATE MODREG. ENTRY FOR MODE IN FIXED.
|
||||
CAF 0
|
||||
INCR Q
|
||||
|
||||
NEWMODEA TS MODREG # ENTRY FOR MODE IN A.
|
||||
MMDSPLAY CAF +3 # DISPLAY MAJOR MODE.
|
||||
PREBJUMP LXCH BBANK # PUTS BBANK IN L
|
||||
TCF BANKJUMP # PUTS Q INTO A
|
||||
CADR SETUPDSP
|
||||
|
||||
# RETURN TO CALLER +3 IF MODE = THAT AT CALLER +1. OTHERWISE RETURN TO CALLER +2.
|
||||
|
||||
CHECKMM INDEX Q
|
||||
CS 0
|
||||
AD MODREG
|
||||
EXTEND
|
||||
BZF Q+2
|
||||
TCF Q+1 # NO MATCH
|
||||
|
||||
TCQ = Q+2 +1
|
||||
|
||||
BANK 14
|
||||
SETLOC PHASETAB
|
||||
BANK
|
||||
|
||||
COUNT* $$/PHASE
|
||||
SETUPDSP INHINT
|
||||
DXCH RUPTREG1 # SAVE CALLER'S RETURN 2CADR
|
||||
CAF PRIO30 # EITHER A TASK OR JOB CAN COME TO
|
||||
TC NOVAC # NEWMODE X
|
||||
EBANK= MODREG
|
||||
2CADR DSPMMJOB
|
||||
|
||||
DXCH RUPTREG1
|
||||
RELINT
|
||||
DXCH Z # RETURN
|
||||
|
||||
DSPMMJOB EQUALS DSPMMJB
|
||||
|
||||
BLOCK 02
|
||||
SETLOC FFTAG1
|
||||
BANK
|
||||
|
||||
# Page 1295
|
||||
# PHASCHNG IS THE MAIN WAY OF MAKING PHASE CHANGES FOR RESTARTS. THERE ARE THREE FORMS OF PHASCHNG, KNOWN AS TYPE
|
||||
# A, TYPE B, AND TYPE C. THEY ARE ALL CALLED AS FOLLOWS, WHERE OCT XXXXX CONTAINS THE PHASE INFORMATION,
|
||||
# TC PHASCHNG
|
||||
# OCT XXXXX
|
||||
# TYPE A IS CONCERNED WITH FIXED PHASE CHANGES, THAT IS, PHASE INFORMATION THAT IS STORED PERMANENTLY. THESE
|
||||
# OPTIONS ARE, WHERE G STANDS FOR A GROUP AND .X FOR THE PHASE,
|
||||
# G.0 INACTIVE, WILL NOT PERMIT A GROUP G RESTART
|
||||
# G.1 WILL CAUSE THE LAST DISPLAY TO BE REACTIVATED, USED MAINLY IN MANNED FLIGHTS
|
||||
# G.EVEN A DOUBLE TABLE RESTART, CAN CAUSE ANY COMBINATION OF TWO JOBS, TASKS, AND/OR
|
||||
# LONGCALL TO BE RESTARTED.
|
||||
# G.ODD NOT .1 A SINGLE TABLE RESTART, CAN CAUSE EITHER A JOB, TASK, OR LONGCALL RESTART.
|
||||
#
|
||||
# THIS INFORMATION IS PUT INTO THE OCTAL WORD AFTER TC PHASCHNG AS FOLLOWS
|
||||
# TL0 00P PPP PPP GGG
|
||||
# WHERE EACH LETTER OR NUMBER STANTS FOR A BIT. THE G'S STAND FOR THE GROUP, OCTAL 1-7, THE P'S FOR THE PHASE,
|
||||
# OCTAL 0 - 127. 0'S MUST BE 0. IF ONE WISHES TO HAVE THE TBASE OF GROUP G TO BE SET AT THIS TIME,
|
||||
# T IS SET TO 1, OTHERWISE IT IS SET TO 0. SIMILARLY IF ONE WISHES TO SET LONGBASE, THEN L IS SET TO 1, OTHERWISE
|
||||
# IT IS SET TO 0. SOME EXAMPLES,
|
||||
# TC PHASCHNG # THIS WILL CAUSE GROUP 3 TO BE SET TO 0,
|
||||
# OCT 00003 # MAKING GROUP 3 INACTIVE
|
||||
#
|
||||
# TC PHASCHNG # IF A RESTART OCCURS THIS WOULD CAUSE
|
||||
# OCT 00012 # GROUP 2 TO RESTART THE LAST DISPLAY
|
||||
#
|
||||
# TC PHASCHNG # THIS SETS THE TBASE OF GROUP 4 AND IN
|
||||
# OCT 40064 # CASE OF A RESTART WOULD START UP THE TWO
|
||||
# # THINGS LOCATED IN THE DOUBLE 4.6 RESTART
|
||||
# # LOCATION.
|
||||
#
|
||||
# TC PHASCHNG # THIS SETS LONGBASE AND UPON A RESTART
|
||||
# OCT 20135 # CAUSES 5.13 TO BE RESTARTED (SINCE
|
||||
# # LONGBASE WAS SET THIS SINGLE ENTRY
|
||||
# # SHOULD BE A LONGCALL)
|
||||
#
|
||||
# TC PHASCHNG # SINCE BOTH TBASE4 AND LONGBASE ARE SET,
|
||||
# OCT 60124 # 4.12 SHOULD CONTAIN BOTH A TASK AND A
|
||||
# # LONGCALL TO BE RESTARTED
|
||||
#
|
||||
# TYPE C PHASCHNG CONTAINS THE VARIABLE TYPE OF PHASCHNG INFORMATION. INSTEAD OF THE INFORMATION BEING IN A
|
||||
# PERMANENT FORM, ONE STORES THE DESIRED RESTART INFORMATION IN A VARIABLE LOCATION. THE BITS ARE AS FOLLOWS,
|
||||
# TL0 1AD XXX CJW GGG
|
||||
# WHERE EACH LETTER OR NUMBER STANDS FOR A BIT. THE G'S STAND FOR THE GROUP, OCTAL 1 - 7. IF THE RESTART IS TO
|
||||
# BE BY WAITLIST, W IS SET TO 1, IF IT IS A JOB, J IS SET TO 1, IF IT IS A LONGCALL, C IS SET TO 1. ONLY ONE OF
|
||||
# THESE THREE BITS MAY BE SET. X'S ARE IGNORED, 1 MUST BE 1, AND 0 MUST BE 0. AGAIN T STANDS FOR THE TBASE,
|
||||
# Page 1296
|
||||
# AND L FOR LONGBASE. THE BITS A AND D ARE CONCERNED WITH THE VARIABLE INFORMATION. IF D IS SET TO 1, A PRIORITY
|
||||
# OR DELTA TIME WILL BE READ FROM THE NEXT LOCATION AFTER THE OCTAL INFORMATION., IF THIS IS TO BE INDIRECT, THAT
|
||||
# IS, THE NAME OF A LOCATION CONTAINING THE INFORMATION (DELTA TIME ONLY), THEN THIS IS GIVEN AS THE -GENADR OF
|
||||
# THAT LOCATION WHICH CONTAINS THE DELTA TIME. IF THE OLD PRIORITY OR DELTA TIME IS TO BE USED, THAT WHICH IS
|
||||
# ALREADY IN THE VARIABLE STORAGE, THEN D IS SET TO 0. NEXT THE A BIT IS USED. IF IT IS SET TO 0, THE ADDRESS
|
||||
# THAT WOULD BE RESTARTED DURING A RESTART IS THE NEXT LOCATION AFTER THE PHASE INFORMATION, THAT IS, EITHER
|
||||
# (TC PHASCHNG) +2 OR +3, DEPENDING ON WHETHER D HAD BEEN SET OR NOT. IF A IS SET TO 1, THEN THE ADDRESS THAT
|
||||
# WOULD BE RESTARTED IS THE 2CADR THAT IS READ FROM THE NEXT TWO LOCATION. EXAMPLES,
|
||||
# AD TC PHASCHNG # THIS WOULD CAUSE LOCATION AD +3 TO BE
|
||||
# AD+1 OCT 05023 # RESTARTED BY GROUP THREE WITH A PRIORITY
|
||||
# AD+2 OCT 23000 # OF 23. NOTE UPON RETURNING IT WOULD
|
||||
# AD+3 # ALSO GO TO AD+3
|
||||
#
|
||||
# AD TC PHASCHNG # GROUP 1 WOULD CAUSE CALLCALL TO BE
|
||||
# AD+1 OCT 27441 # BE STARTED AS A LONGCALL FROM THE TIME
|
||||
# AD+2 -GENADR DELTIME # STORED IN LONGBASE (LONGBASE WAS SET) BY
|
||||
# AD+3 2CADR CALLCALL # A DELTA TIME STORED IN DELTIME. THE
|
||||
# AD+4 # BBCON OF THE 2CADR SHOULD CONTAIN THE E
|
||||
# AD+5 # BANK OF DELTIME. PHASCHNG RETURNS TO
|
||||
# # LOCATION AD+5
|
||||
#
|
||||
# NOTE THAT IF A VARIABLE PRIORITY IS GIVEN FOR A JOB, THE JOB WILL BE RESTARTED AS A NOVAC IF THE PRIORITY IS
|
||||
# NEGATIVE, AS A FINDVAC IF TEH PRIORITY IS POSITIVE.
|
||||
#
|
||||
# TYPE B PHASCHNG IS A COMBINATION OF VARIABLE AND FIXED PHASE CHANGES. IT WILL START UP A JOB AS INDICATED
|
||||
# BELOW AND ALSO START UP ONE FIXED RESTART, THAT IS EITHER AN G.1 OR A G.ODD OR THE FIRST ENTRY OF G.EVEN
|
||||
# DOUBLE ENTRY. THE BIT INFORMATION IS AS FOLLOW,
|
||||
# TL1 DAP PPP PPP GGG
|
||||
# WHERE EACH LETTER OR NUMBER STANDS FOR A BIT. THE G'S STAND FOR THE GROUP, OCTAL 1 - 7, THE P'S FOR THE FIXED
|
||||
# PHASE INFORMATION, OCTAL 0 - 127. 1 MUST BE 1. AND AGAIN T STANDS FOR THE TBASE AND L FOR LONGBASE. D THIS
|
||||
# TIME STANDS ONLY FOR PRIORITY SINCE THIS WILL BE CONSIDERED A JOB, AND IT MUST BE GIVEN DIRECTLY IF GIVEN.
|
||||
# AGAIN A STANDS FOR THE ADDRESS OF THE LOCATION TO BE RESTARTED, 1 IF THE 2CADR IS GIVEN, OR 0 IF IT IS TO BE
|
||||
# THE NEXT LOCATION. (THE RETURN LOCATION OF PHASCHNG) EXAMPLES,
|
||||
# AD TC PHASCHNG # TBASE IS SET AND A RESTART CAUSE GROUP 3
|
||||
# AD+1 OCT 56043 # TO START THE JOB AJOBAJOB WITH PRIORITY
|
||||
# AD+2 OCT 31000 # 31 AND THE FIRST ENTRY OF 3.4SPOT (WE CAN
|
||||
# AD+3 2CADR AJOBAJOB # ASSUME IT IS A TASK SINCE WE SET TBASE3)
|
||||
# AD+4 # UPON RETURN FROM PHASCHNG CONTROL WOULD
|
||||
# AD+5 # GO TO AD+5
|
||||
#
|
||||
# AD TC PHASCHNG # UPON A RESTART THE LAST DISPLAY WOULD BE
|
||||
# AD+1 OCT 10015 # RESTARTED AND A JOB WITH THE PREVIOUSLY
|
||||
# AD+2 # STORED PRIORITY WOULD BE BEGUN AT AD+2
|
||||
# # BY MEANS OF GROUP 5
|
||||
# Page 1297
|
||||
# THE NOVAC-FINDVAC CHOICE FOR JOBS HOLDS HERE ALSO -- NEGATIVE PRIORITY CAUSES A NOVAC CALL, POSITIVE A FINDVAC.
|
||||
|
||||
# SUMMARY OF BITS:
|
||||
# TYPE A TL0 00P PPP PPP GGG
|
||||
# TYPE B TL1 DAP PPP PPP GGG
|
||||
# TYPE C TL0 1AD XXX CJW GGG
|
||||
|
||||
# Page 1298
|
||||
# 2PHSCHNG IS USED WHEN ONE WISHES TO START UP A GROUP OR CHANGE A GROUP WHILE UNDER THE CONTROL OF A DIFFERENT
|
||||
# GROUP. FOR EXAMPLE, CHANGE THE PHASE OF GROUP 3 WHILE THE PORTION OF THE PROGRAM IS UNDER GROUP 5. ALL 2PHSCHNG
|
||||
# CALLS ARE MADE IN THE FOLLOWING MANNER,
|
||||
# TC 2PHSCHNG
|
||||
# OCT XXXXX
|
||||
# OCT YYYYY
|
||||
# WHERE OCT XXXXX MUST BE OF TYPE A AND OCT YYYYY MAY BE OF EITHER TYPE A OR TYPE B OR TYPE C. THERE IS ONE
|
||||
# DIFFERENCE --- NOTE: IF LONGBASE IS TO BE SET THIS INFORMATION IS GIVEN IN THE OCT YYYYY INFORMATION, IT WILL
|
||||
# BE DISREGARDED IF GIVEN WITH THE OCT XXXXX INFORMATION. A COUPLE OF EXAMPLES MAY HELP,
|
||||
# AD TC 2PHACHNG # SET TBASE3 AND IF A RESTART OCCURS START
|
||||
# AD+1 OCT 40083 # THE TWO ENTRIES IN 3.8 TABLE LOCATION
|
||||
# AD+2 OCT 05025 # THIS IS OF TYPE C, SET THE JOB TO BE
|
||||
# AD+3 OCT 18000 # TO BE LOCATION AD+4, WITH A PRIORITY 18,
|
||||
# AD+4 # FOR GROUP 5 PHASE INFORMATION.
|
||||
|
||||
## [WORKAROUND] RSB 2004
|
||||
SBANK= PINSUPER
|
||||
## [WORKAROUND]
|
||||
|
||||
COUNT* $$/PHASE
|
||||
2PHSCHNG INHINT # THE ENTRY FOR A DOUBLE PHASE CHANGE
|
||||
NDX Q
|
||||
CA 0
|
||||
INCR Q
|
||||
TS TEMPP2
|
||||
|
||||
MASK OCT7
|
||||
DOUBLE
|
||||
TS TEMPG2
|
||||
|
||||
CA TEMPP2
|
||||
MASK OCT17770 # NEED ONLY 1770, BUT WHY GET A NEW CONST.
|
||||
EXTEND
|
||||
MP BIT12
|
||||
XCH TEMPP2
|
||||
|
||||
MASK BIT15
|
||||
TS TEMPSW2 # INDICATES WHETHER TO SET TBASE OR NOT
|
||||
|
||||
INDEX Q
|
||||
CA 0
|
||||
INCR Q
|
||||
TS TEMPSW
|
||||
|
||||
TCF PHASJUMP
|
||||
|
||||
PHASCHNG INHINT # NORMAL PHASCHNG ENTRY POINT.
|
||||
INDEX Q
|
||||
CA 0
|
||||
INCR Q
|
||||
PHSCHNGA INHINT # FIRST OCTAL PARAMETER IN A.
|
||||
# Page 1299
|
||||
TS TEMPSW
|
||||
CA ONE
|
||||
TS TEMPSW2
|
||||
PHASJUMP EXTEND
|
||||
DCA ADRPCHN2 # OFF TO SWITCHED BANK
|
||||
DTCB
|
||||
|
||||
EBANK= LST1
|
||||
ADRPCHN2 2CADR PHSCHNG2
|
||||
|
||||
ONEORTWO LXCH TEMPBBCN
|
||||
LXCH BBANK
|
||||
LXCH TEMPBBCN
|
||||
|
||||
MASK OCT14000 # SEE WHAT KIND OF PHASE CHANGE IT IS
|
||||
CCS A
|
||||
TCF CHECKB # IT IS OF TYPE `B'.
|
||||
|
||||
CA TEMPP
|
||||
MASK BIT7
|
||||
CCS A # SHALL WE USE THE OLD PRIORITY
|
||||
TCF GETPRIO # NO GET A NEW PRIORITY (OR DELTA T)
|
||||
|
||||
OLDPRIO NDX TEMPG # USE THE OLD PRIORITY (OR DELTA T)
|
||||
CA PHSPRDT1 -2
|
||||
TS TEMPPR
|
||||
|
||||
CON1 CA TEMPP # SEE IF A 2CADR IS GIVEN
|
||||
MASK BIT8
|
||||
CCS A
|
||||
TCF GETNEWNM
|
||||
|
||||
CA Q
|
||||
TS TEMPNM
|
||||
CA BB
|
||||
EXTEND # PICK UP USER'S SUPERBANK
|
||||
ROR SUPERBNK
|
||||
TS TEMPBB
|
||||
|
||||
TOCON2 CA CON2ADR # BACK TO SWITCHED BANK
|
||||
LXCH TEMPBBCN
|
||||
DTCB
|
||||
|
||||
CON2ADR GENADR CON2
|
||||
|
||||
GETPRIO NDX Q # DON'T CARE IF DIRECT OR INDIRECT
|
||||
CA 0 # LEAVE THAT DECISION TO RESTARTS
|
||||
INCR Q # OBTAIN RETURN ADDRESS
|
||||
# Page 1300
|
||||
TCF CON1 -1
|
||||
|
||||
GETNEWNM EXTEND
|
||||
INDEX Q
|
||||
DCA 0
|
||||
DXCH TEMPNM
|
||||
CA TWO
|
||||
ADS Q # OBTAIN RETURN ADDRESS
|
||||
|
||||
TCF TOCON2
|
||||
|
||||
OCT14000 EQUALS PRIO14
|
||||
TEMPG EQUALS ITEMP1
|
||||
TEMPP EQUALS ITEMP2
|
||||
TEMPNM EQUALS ITEMP3
|
||||
TEMPBB EQUALS ITEMP4
|
||||
TEMPSW EQUALS ITEMP5
|
||||
TEMPSW2 EQUALS ITEMP6
|
||||
TEMPPR EQUALS RUPTREG1
|
||||
TEMPG2 EQUALS RUPTREG2
|
||||
TEMPP2 EQUALS RUPTREG3
|
||||
|
||||
TEMPBBCN EQUALS RUPTREG4
|
||||
BB EQUALS BBANK
|
||||
|
||||
BANK 14
|
||||
SETLOC PHASETAB
|
||||
BANK
|
||||
|
||||
EBANK= PHSNAME1
|
||||
COUNT* $$/PHASE
|
||||
PHSCHNG2 LXCH TEMPBBCN
|
||||
CA TEMPSW
|
||||
MASK OCT7
|
||||
DOUBLE
|
||||
TS TEMPG
|
||||
|
||||
CA TEMPSW
|
||||
MASK OCT17770
|
||||
EXTEND
|
||||
MP BIT12
|
||||
TS TEMPP
|
||||
|
||||
CA TEMPSW
|
||||
MASK OCT60000
|
||||
XCH TEMPSW
|
||||
MASK OCT14000
|
||||
CCS A
|
||||
# Page 1301
|
||||
TCF ONEORTWO
|
||||
|
||||
CA TEMPP # START STORING THE PHASE INFORMATION
|
||||
NDX TEMPG
|
||||
TS PHASE1 -2
|
||||
|
||||
BELOW1 CCS TEMPSW2 # IS IT A PHASCHNG OR A 2PHSCHNG
|
||||
TCF BELOW2 # IT'S A PHASCHNG
|
||||
|
||||
TCF +1 # IT'S A 2PHSCHNG
|
||||
CS TEMPP2
|
||||
LXCH TEMPP2
|
||||
NDX TEMPG2
|
||||
DXCH -PHASE1 -2
|
||||
|
||||
CCS TEMPSW2
|
||||
NOOP # CAN'T GET HERE
|
||||
TCF BELOW2
|
||||
|
||||
CS TIME1
|
||||
NDX TEMPG2
|
||||
TS TBASE1 -2
|
||||
|
||||
BELOW2 CCS TEMPSW # SEE IF WE SHOULD SET TBASE OR LONGBASE
|
||||
TCF BELOW3 # SET LONGBASE ONLY
|
||||
TCF BELOW4 # SET NEITHER
|
||||
|
||||
CS TIME1 # SET TBASE TO BEGIN WITH
|
||||
NDX TEMPG
|
||||
TS TBASE1 -2
|
||||
|
||||
CA TEMPSW # SHALL WE NOW SET LONGBASE
|
||||
AD BIT14COM
|
||||
CCS A
|
||||
NOOP # ***** CAN'T GET HERE *****
|
||||
BIT14COM OCT 17777 # ***** CAN'T GET HERE *****
|
||||
TCF BELOW4 # NO WE NEED ONLY SET TBASE
|
||||
|
||||
BELOW3 EXTEND # SET LONGBASE
|
||||
DCA TIME2
|
||||
DXCH LONGBASE
|
||||
|
||||
BELOW4 CS TEMPP # AND STORE THE FINAL PART OF THE PHASE
|
||||
NDX TEMPG
|
||||
TS -PHASE1 -2
|
||||
|
||||
CA Q
|
||||
LXCH TEMPBBCN
|
||||
RELINT
|
||||
DTCB
|
||||
# Page 1302
|
||||
CON2 LXCH TEMPBBCN
|
||||
|
||||
CA TEMPP
|
||||
NDX TEMPG
|
||||
TS PHASE1 -2
|
||||
|
||||
CA TEMPPR
|
||||
NDX TEMPG
|
||||
TS PHSPRDT1 -2
|
||||
|
||||
EXTEND
|
||||
DCA TEMPNM
|
||||
NDX TEMPG
|
||||
DXCH PHSNAME1 -2
|
||||
|
||||
TCF BELOW1
|
||||
|
||||
BLOCK 03
|
||||
SETLOC FFTAG6
|
||||
BANK
|
||||
|
||||
COUNT* $$/PHASE
|
||||
CHECKB MASK BIT12 # SINCE THIS IS OF TYPE 8, THIS BIT WOULD
|
||||
CCS A # BE HERE IF WE ARE TO GET A NEW PRIORITY
|
||||
TCF GETPRIO # IT IS, SO GET NEW PRIORITY
|
||||
|
||||
TCF OLDPRIO # IT ISN'T, USE THE OLD PRIORITY.
|
||||
|
||||
|
3798
Luminary099/PINBALL_GAME_BUTTONS_AND_LIGHTS.agc
Normal file
3798
Luminary099/PINBALL_GAME_BUTTONS_AND_LIGHTS.agc
Normal file
File diff suppressed because it is too large
Load Diff
906
Luminary099/PINBALL_NOUN_TABLES.agc
Normal file
906
Luminary099/PINBALL_NOUN_TABLES.agc
Normal file
@ -0,0 +1,906 @@
|
||||
# Copyright: Public domain.
|
||||
# Filename: PINBALL_NOUN_TABLES.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: 301-319
|
||||
# Mod history: 2009-05-10 SN (Sergio Navarro). Started adapting
|
||||
# from the Luminary131/ file of the same
|
||||
# name, using Luminary099 page images.
|
||||
# 2009-06-07 RSB Corrected two typos.
|
||||
#
|
||||
# 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 301
|
||||
# THE FOLLOWING REFERS TO THE NOUN TABLES
|
||||
#
|
||||
# COMPONENT CODE NUMBER INTERPRETATION
|
||||
#
|
||||
# 00000 1 COMPONENT
|
||||
# 00001 2 COMPONENT
|
||||
# 00010 3 COMPONENT
|
||||
# X1XXX BIT 4 = 1. DECIMAL ONLY
|
||||
# 1XXXX BIT 5 = 1. NO LOAD
|
||||
# END OF COMPONENT CODE NUMBER
|
||||
#
|
||||
# SF ROUTINE CODE NUMBER INTERPRETATION
|
||||
#
|
||||
# 00000 OCTAL ONLY
|
||||
# 00001 STRAIGHT FRACTIONAL
|
||||
# 00010 CDU DEGREES (XXX.XX)
|
||||
# 00011 ARITHMETIC SF
|
||||
# 00100 ARITH DP1 OUT (MULT BY 2EXP14 AT END) IN (STRAIGHT)
|
||||
# 00101 ARITH DP2 OUT (STRAIGHT) IN (SL 7 AT END)
|
||||
# 00110 LANDING RADAR POSITION (+0000X)
|
||||
# 00111 ARITH DP3 OUT (SL 7 AT END) IN (STRAIGHT)
|
||||
# 01000 WHOLE HOURS IN R1, WHOLE MINUES (MOD 60) IN R2,
|
||||
# SECONDS (MOD 60) 0XX.XX IN R3. *** ALARMS IF USED WITH OCTAL
|
||||
# 01001 MINUTES (MOD 60) IN D1D2, D3 BLANK, SECONDS (MOD 60) IN D4D5
|
||||
# LIMITS TO 59B59 IF MAG EXCEEDS THIS VALUE.
|
||||
# ALARMS IF USED WITH OCTAL ******** IN (ALARM)
|
||||
# 01010 ARITH DP4 OUT (STRAIGHT) IN (SL 3 AT END)
|
||||
# 01011 ARITH1 SF OUT (MULT BY 2EXP14 AT END) IN (STRAIGHT)
|
||||
# 01100 2 INTEGERS IN D1D2, D4D5, D3 BLANK.
|
||||
# ALARMS IF USED WITH OCTAL ******** IN (ALARM)
|
||||
# 01101 360-CDU DEGREES (XXX.XX)
|
||||
#
|
||||
# END OF SF ROUTINE CODE NUMBERS
|
||||
|
||||
# SF CONSTANT CODE NUMBER INTERPRETATION
|
||||
#
|
||||
# 00000 WHOLE USE ARITH
|
||||
# 00000 DP TIME SEC (XXX.XX SEC) USE ARITHDP1
|
||||
# 00000 LR POSITION (+0000X) USE LR POSITION
|
||||
# 00001 SPARE
|
||||
# 00010 CDU DEGREES USE CDU DEGREES
|
||||
# 00010 360-CDU DEGREES USE 360-CDU DEGREES
|
||||
# 00011 DP DEGREES (90 XX.XXX DEG USE ARITHDP3
|
||||
# 00100 DP DEGREES (360) XXX.XX DEG USE ARITHDP4
|
||||
# 00101 DEGREES (180) XXX.XX DEG USE ARITH
|
||||
# 00101 OPTICAL TRACKER AZIMUTH ANGLE (XXX.XXDEG)
|
||||
# USE ARITHDP1
|
||||
# 00110 WEIGHT2 (XXXXX. LBS) USE ARITH1
|
||||
# Page 302
|
||||
# 00111 POSITION5 (XXX.XX NAUTICAL MILES)
|
||||
# USE ARITHDP3
|
||||
# 01000 POSITION4 (XXXX.X NAUTICAL MILES)
|
||||
# USE ARITHDP3
|
||||
# 01001 VELOCITY2 (XXXXX. FT/SEC) USE ARITHDP4
|
||||
# 01010 VELOCITY3 (XXXX.X FT/SEC) USE ARITHDP3
|
||||
# 01011 ELEVATION DEGREES (89.999 MAX) USE ARITH
|
||||
# 01100 RENDEZVOUS RADAR RANGE (XXX.XX NAUT MI)
|
||||
# USE ARITHDP1
|
||||
# 01101 RENDEZVOUS RADAR RANGE RATE (XXXXX.FT/SEC)
|
||||
# USE ARITHDP1
|
||||
# 01110 LANDING RADAR ALTITUDE (XXXXX.FEET)
|
||||
# USE ARITHDP1
|
||||
# 01111 INITIAL/FINAL ALTITUDE (XXXXX. FEET)
|
||||
# USE ARITHDP1
|
||||
# 10000 ALTITUDE RATE (XXXXX.FT/SEC) USE ARITH
|
||||
# 10001 FORWARD/LATERAL VELOCITY (XXXXX.FEET/SEC)
|
||||
# USE ARITH
|
||||
# 10010 ROTATIONAL HAND CONTROLLER ANGLE RATES
|
||||
# XXXXX.DEG/SEC USE ARITH
|
||||
# 10011 LANDING RADAR VELX (XXXXX.FEET/SEC)
|
||||
# USE ARITHDP1
|
||||
# 10100 LANDING RADAR VELY (XXXXX.FEET/SEC)
|
||||
# USE ARITHDP1
|
||||
# 10101 LANDING RADAR VELZ (XXXXX.FEET/SEC)
|
||||
# USE ARITHDP1
|
||||
# 10110 POSITION7 (XXXX.X NAUT MI) USE ARITHDP4
|
||||
# 10111 TRIM DEGREES2 (XXX.XX DEG) USE ARITH
|
||||
# 11000 COMPUTED ALTITUDE (XXXXX. FEET)
|
||||
# USE ARITHDP1
|
||||
# 11001 DP DEGREES (XXXX.X DEG) USE ARITHDP3
|
||||
# 11010 POSITION9 (XXXX.X FT) USE ARITHDP3
|
||||
# 11011 VELOCITY4 (XXXX.X FT/SEC) USE ARITHDP2
|
||||
# 11100 RADIANS (XXX.XXX RADIANS) USE ARITHDP4
|
||||
#
|
||||
# END OF SF CONSTANT CODE NUMBERS
|
||||
|
||||
# FOR GREATER THAN SINGLE PRECISION SCALES, PUT ADDRESS OF MAJOR PART INTO
|
||||
# NOUN TABLES.
|
||||
|
||||
# OCTAL LOADS PLACE +0 INTO MAJOR PART, DATA INTO MINOR PART.
|
||||
|
||||
# OCTAL DISPLAYS SHOW MINOR PART ONLY.
|
||||
|
||||
# TO GET AT BOTH MAJOR AND MINOR PARTS (IN OCTAL), USE NOUN 01.
|
||||
|
||||
# A NOUN MAY BE DECLARED :DECIMAL ONLY: BY MAKING BIT4=1 OF ITS COMPONENT
|
||||
# CODE NUMBER. IF THIS NOUN IS USED WITH ANY OCTAL DISPLAY VERB, OR IF
|
||||
# DATA IS LOADED IN OCTAL, IT ALARMS.
|
||||
|
||||
|
||||
# IN LOADING AN :HOURS, MINUTES, SECONDS: NOUN, ALL 3 WORDS MUST BE
|
||||
# LOADED, OR ALARM.
|
||||
|
||||
# Page 303
|
||||
|
||||
# ALARM IF AN ATTEMPT IS MADE TO LOAD :SPLIT MINUTES/SECONDS: (MMBSS).
|
||||
# THIS IS USED FOR DISPLAY ONLY.
|
||||
|
||||
# Page 304
|
||||
# THE FOLLOWING ROUTINES ARE FOR READING THE NOUN TABLES AND THE SF TABLES
|
||||
# (WHICH ARE IN A SEPARATE BANK FROM THE REST OF PINBALL). THESE READING
|
||||
# ROUTINES ARE IN THE SAME BANK AS THE TABLES. THEY ARE CALLED BY DXCH Z.
|
||||
|
||||
# LODNNTAB LOADS NNADTEM WITH THE NNADTAB ENTRY, NNTYPTEM WITH THE
|
||||
# NNTYPTAB ENTRY. IF THE NOUN IS MIXED, IDADITEM IS LOADED WITH THE FIRST
|
||||
# IDADDTAB ENTRY, IDAD2TEM THE SECOND IDADDTAB ENTRY, IDAD3TEM THE THIRD
|
||||
# IDADDTAB ENTRY, RUTMXTEM WITH THE RUTMXTAB ENTRY. MIXBR IS SET FOR
|
||||
# MIXED OR NORMAL NOUN.
|
||||
|
||||
BANK 6
|
||||
SETLOC PINBALL3
|
||||
BANK
|
||||
COUNT* $$/NOUNS
|
||||
LODNNTAB DXCH IDAD2TEM # SAVE RETURN INFO IN IDAD2TEM, IDAD3TEM.
|
||||
INDEX NOUNREG
|
||||
CAF NNADTAB
|
||||
TS NNADTEM
|
||||
INDEX NOUNREG
|
||||
CAF NNTYPTAB
|
||||
TS NNTYPTEM
|
||||
CS NOUNREG
|
||||
AD MIXCON
|
||||
EXTEND
|
||||
BZMF LODMIXNN # NOUN NUMBER G/E FIRST MIXED NOUN
|
||||
CAF ONE # NOUN NUMBER L/ FIRST MIXED NOUN
|
||||
TS MIXBR # NORMAL. +1 INTO MIXBR
|
||||
TC LODNLV
|
||||
LODMIXNN CAF TWO # MIXED. +2 INTO MIXBR.
|
||||
TS MIXBR
|
||||
INDEX NOUNREG
|
||||
CAF RUTMXTAB -40D # FIRST MIXED NOUN = 40.
|
||||
TS RUTMXTEM
|
||||
CAF LOW10
|
||||
MASK NNADTEM
|
||||
TS Q # TEMP
|
||||
INDEX A
|
||||
CAF IDADDTAB
|
||||
TS IDAD1TEM # LOAD IDAD1TEM WITH FIRST IDADDTAB ENTRY
|
||||
EXTEND
|
||||
INDEX Q # LOAD IDAD2TEM WITH 2ND IDADDTAB ENTRY
|
||||
DCA IDADDTAB +1 # LOAD IDAD3TEM WITH 3RD IDADDTAB ENTRY.
|
||||
LODNLV DXCH IDAD2TEM # PUT RETURN INFO INTO A, L.
|
||||
DXCH Z
|
||||
|
||||
MIXCON = OCT50 # (DEC 40)
|
||||
|
||||
# GTSFOUT LOADS SFTEMP1, SFTEMP2 WTIH THE DP SFOUTAB ENTRIES.
|
||||
|
||||
GTSFOUT DXCH SFTEMP1 # 2X(SFCONUM) ARRIVES IN SFTEMP1.
|
||||
# Page 305
|
||||
EXTEND
|
||||
INDEX A
|
||||
DCA SFOUTAB
|
||||
SFCOM DXCH SFTEMP1
|
||||
DXCH Z
|
||||
|
||||
# GTSFIN LOADS SFTEMP1, SFTEMP2 WITH THE DP SFINTAB INTRIES.
|
||||
|
||||
GTSFIN DXCH SFTEMP1 # 2X(SFCONUM) ARIVES IN SFTEMP1.
|
||||
EXTEND
|
||||
INDEX A
|
||||
DCA SFINTAB
|
||||
TCF SFCOM
|
||||
|
||||
# NN NORMAL NOUNS
|
||||
NNADTAB OCT 00000 # 00 NOT IN USE
|
||||
OCT 40000 # 01 SPECIFY MACHINE ADDRESS (FRACTIONAL)
|
||||
OCT 40000 # 02 SPECIFY MACHINE ADDRESS (WHOLE)
|
||||
OCT 40000 # 03 SPECIFY MACHINE ADDRESS (DEGREES)
|
||||
ECADR DSPTEM1 # 04 ANGULAR ERROR/DIFFERENCE
|
||||
ECADR DSPTEM1 # 05 ANGULAR ERROR/DIFFERENCE
|
||||
ECADR OPTION1 # 06 OPTION CODE
|
||||
ECADR XREG # 07 ECADR OF WORD TO BE MODIFIED
|
||||
# ONES FOR BITS TO BE MODIFIED
|
||||
# 1 TO SET OR 0 TO RESET SELECTED BITS
|
||||
ECADR ALMCADR # 08 ALARM DATA
|
||||
ECADR FAILREG # 09 ALARM CODES
|
||||
OCT 77776 # 10 CHANNEL TO BE SPECIFIED
|
||||
ECADR TCSI # 11 TIG OF CSI (HRS,MIN,SEC)
|
||||
ECADR OPTIONX # 12 OPTION CODE
|
||||
# (USED BY EXTENDED VERBS ONLY)
|
||||
ECADR TCDH # 13 TIG OF CDH (HRS,MIN,SEC)
|
||||
ECADR DSPTEMX # 14 CHECKLIST
|
||||
# (USED BY EXTENDED VERBS ONLY)
|
||||
OCT 77777 # 15 INCREMENT MACHINE ADDRESS
|
||||
ECADR DSPTEMX # 16 TIME OF EVENT (HRS,MIN,SEC)
|
||||
OCT 00000 # 17 SPARE
|
||||
ECADR FDAIX # 18 AUTO MANEUVER BALL ANGLES
|
||||
OCT 00000 # 19 SPARE
|
||||
ECADR CDUX # 20 ICDU ANGLES
|
||||
ECADR PIPAX # 21 PIPAS
|
||||
ECADR THETAD # 22 NEW ICDU ANGLES
|
||||
OCT 00000 # 23 SPARE
|
||||
ECADR DSPTEM2 +1 # 24 DELTA TIME FOR AGC CLOCK (HRS,MIN,SEC)
|
||||
ECADR DSPTEM1 # 25 CHECKLIST
|
||||
# (USED WTIH PLEASE PERFORM ONLY)
|
||||
ECADR DSPTEM1 # 26 PRIO/DELAY, ADRES, BBCON
|
||||
ECADR SMODE # 27 SELF TEST ON/OFF SWITCH
|
||||
# Page 306
|
||||
OCT 00000 # 28 SPARE
|
||||
OCT 00000 # 29 SPARE
|
||||
OCT 0 # 30 SPARE
|
||||
OCT 0 # 31 SPARE
|
||||
ECADR -TPER # 32 TIME TO PERIGEE (HRS,MIN,SEC)
|
||||
ECADR TIG # 33 TIME OF IGNITION (HRS,MIN,SEC)
|
||||
ECADR DSPTEM1 # 34 TIME OF EVENT (HRS,MIN,SEC)
|
||||
ECADR TTOGO # 35 TIME TO GO TO EVENT (HRS,MIN,SEC)
|
||||
ECADR TIME2 # 36 TIME OF AGC CLOCK (HRS,MIN,SEC)
|
||||
ECADR TTPI # 37 TIG OF TPI (HRS,MIN,SEC)
|
||||
ECADR TET # 38 TIME OF STATE BEING INTEGRATED
|
||||
OCT 00000 # 39 SPARE
|
||||
|
||||
# END OF NNADTAB FOR NORMAL NOUNS
|
||||
|
||||
# NN MIXED NOUNS
|
||||
OCT 64000 # 40 TIME TO IGNITION/CUTOFF
|
||||
# VG
|
||||
# DELTA V (ACCUMULATED)
|
||||
OCT 02003 # 41 TARGET AZIMUTH
|
||||
# ELEVATION
|
||||
OCT 24006 # 42 APOGEE
|
||||
# PERIGEE
|
||||
# DELTA V (REQUIRED)
|
||||
OCT 24011 # 43 LATITUDE
|
||||
# LONGITUDE
|
||||
# ALTITUDE
|
||||
OCT 64014 # 44 APOGEE
|
||||
# PERIGEE
|
||||
# TFF
|
||||
OCT 64017 # 45 MARKS
|
||||
# TTI OF NEXT BURN
|
||||
# MGA
|
||||
OCT 00022 # 46 AUTOPILOT CONFIGURATION
|
||||
OCT 22025 # 47 LEM WEIGHT
|
||||
# CSM WEIGHT
|
||||
OCT 22030 # 48 GIMBAL PITCH TRIM
|
||||
# GIMBAL ROLL TRIM
|
||||
OCT 24033 # 49 DELTA R
|
||||
# DELTA V
|
||||
# RADAR DATA SOURCE CODE
|
||||
OCT 0 # 50 SPARE
|
||||
OCT 22041 # 51 S-BAND ANTENNA PITCH
|
||||
# YAW
|
||||
OCT 00044 # 52 CENTRAL ANGLE OF ACTIVE VEHICLE
|
||||
OCT 00000 # 53 SPARE
|
||||
OCT 24052 # 54 RANGE
|
||||
# RANGE RATE
|
||||
# THETA
|
||||
OCT 24055 # 55 NO. OF APSIDAL CROSSINGS
|
||||
# Page 307
|
||||
# ELEVATION ANGLE
|
||||
# CENTRAL ANGLE
|
||||
OCT 02060 # 56 RR LOS AZIMUTH
|
||||
# ELEVATION
|
||||
OCT 20063 # 57 DELTA R
|
||||
OCT 24066 # 58 PERIGEE ALT
|
||||
# DELTA V TPI
|
||||
# DELTA V TPF
|
||||
OCT 24071 # 59 DELTA VELOCITY LOS
|
||||
OCT 24074 # 60 HORIZONTAL VELOCITY
|
||||
# ALTITUDE RATE
|
||||
# COMPUTED ALTITUDE
|
||||
OCT 64077 # 61 TIME TO GO IN BRAKING PHASE
|
||||
# TIME TO IGNITION
|
||||
# CROSS RANGE DISTANCE
|
||||
OCT 64102 # 62 ABSOLUTE VALUE OF VELOCITY
|
||||
# TIME TO IGNITION
|
||||
# DELTA V (ACCUMULATED)
|
||||
OCT 24105 # 63 ABSOLUTE VALUE OF VELOCITY
|
||||
# ALTITUDE RATE
|
||||
# COMPUTED ALTITUDE
|
||||
OCT 64110 # 64 TIME LEFT FOR REDESIGNATION -- LPD ANGLE
|
||||
# ALTITUDE RATE
|
||||
# COMPUTED ALTITUDE
|
||||
OCT 24113 # 65 SAMPLED AGC TIME (HRS,MIN,SEC)
|
||||
# (FETCHED IN INTERRUPT)
|
||||
OCT 62116 # 66 LR RANGE
|
||||
# POSITION
|
||||
OCT 04121 # 67 LRVX
|
||||
# LRVY
|
||||
# LRVZ
|
||||
OCT 64124 # 68 SLANT RANGE TO LANDING SIGHT
|
||||
# TIME TO GO IN BRAKING PHASE
|
||||
# LR ALTITUDE -- COMPUTED ALTITUDE
|
||||
OCT 00000 # 69 SPARE
|
||||
OCT 04132 # 70 AOT DETENT CODE/STAR CODE
|
||||
OCT 04135 # 71 AOT DETENT CODE/STAR CODE
|
||||
OCT 02140 # 72 RR 360 -- TRUNNION ANGLE
|
||||
# SHAFT ANGLE
|
||||
OCT 02143 # 73 NEW RR 360 -- TRUNNION ANGLE
|
||||
# SHAFT ANGLE
|
||||
OCT 64146 # 74 TIME TO IGNITION
|
||||
# YAWAFTER VEHICLE RISE
|
||||
# PITCH AFTER VEHICLE RISE
|
||||
OCT 64151 # 75 DELTA ALTITUDE CDH
|
||||
# DELTA TIME (CDH-CSI OR TPI-CDH)
|
||||
# DELTA TIME (TPI-CDH OR TPI-NOMTPI)
|
||||
OCT 24154 # 76 DESIRED HORIZONTAL VELOCITY
|
||||
# DESIRED RADIAL VELOCITY
|
||||
# CROSS-RANGE DISTANCE
|
||||
# Page 308
|
||||
OCT 62157 # 77 TIME TO ENGINE CUTOFF
|
||||
# VELOCITY NORMAL TO CSM PLANE
|
||||
OCT 02162 # 78 RR RANGE
|
||||
# RANGE RATE
|
||||
OCT 24165 # 79 CURSOR ANGLE
|
||||
# SPIRAL ANGLE
|
||||
# POSITION CODE
|
||||
OCT 02170 # 80 DATA INDICATOR
|
||||
# OMEGA
|
||||
OCT 24173 # 81 DELTA V (LV)
|
||||
OCT 24176 # 82 DELTA V (LV)
|
||||
OCT 24201 # 83 DELTA V (BODY)
|
||||
OCT 24204 # 84 DELTA V (OTHER VEHICLE)
|
||||
OCT 24207 # 85 VG (BODY)
|
||||
OCT 24212 # 86 VG (LV)
|
||||
OCT 02215 # 87 BACKUP OPTICS LOS AZIMUTH
|
||||
# ELEVATION
|
||||
OCT 24220 # 88 HALF UNIT SUN OR PLANET VECTOR
|
||||
OCT 24223 # 89 LANDMARK LATITUDE
|
||||
# LONGITUDE/2
|
||||
# ALTITUDE
|
||||
OCT 24226 # 90 Y
|
||||
# Y DOT
|
||||
# PSI
|
||||
OCT 04231 # 91 ALTITUDE
|
||||
# VELOCITY
|
||||
# FLIGHT PATH ANGLE
|
||||
OCT 00000 # 92 SPARE
|
||||
OCT 04237 # 93 DELTA GYRO ANGLES
|
||||
OCT 00000 # 94 SPARE
|
||||
OCT 0 # 95 SPARE
|
||||
OCT 0 # 96 SPARE
|
||||
OCT 04253 # 97 SYSTEM TEST INPUTS
|
||||
OCT 04256 # 98 SYSTEM TEST RESULTS
|
||||
OCT 24261 # 99 RMS IN POSITION
|
||||
# RMS IN VELOCITY
|
||||
# RMS IN BIAS
|
||||
|
||||
# END OF NNADTAB FOR MIXED NOUNS
|
||||
|
||||
# NN NORMAL NOUNS
|
||||
NNTYPTAB OCT 00000 # 00 NOT IN USE
|
||||
OCT 04040 # 01 3COMP FRACTIONAL
|
||||
OCT 04140 # 02 3COMP WHOLE
|
||||
OCT 04102 # 03 3COMP CDU DEGREES
|
||||
OCT 00504 # 04 1COMP DPDEG(360)
|
||||
OCT 00504 # 05 1COMP DPDEG(360)
|
||||
OCT 04000 # 06 3COMP OCTAL ONLY
|
||||
OCT 04000 # 07 3COMP OCTAL ONLY
|
||||
OCT 04000 # 08 3COMP OCTAL ONLY
|
||||
# Page 309
|
||||
OCT 04000 # 09 3COMP OCTAL ONLY
|
||||
OCT 00000 # 10 1COMP OCTAL ONLY
|
||||
OCT 24400 # 11 3COMP HMS (DEC ONLY)
|
||||
OCT 02000 # 12 2COMP OCTAL ONLY
|
||||
OCT 24400 # 13 3COMP HMS (DEC ONLY)
|
||||
OCT 04140 # 14 3COMP WHOLE
|
||||
OCT 00000 # 15 1COMP OCTAL ONLY
|
||||
OCT 24400 # 16 3COMP HMS (DEC ONLY)
|
||||
OCT 0 # 17 SPARE
|
||||
OCT 04102 # 18 3COMP CDU DEG
|
||||
OCT 00000 # 19 SPARE
|
||||
OCT 04102 # 20 3COMP CDU DEGREES
|
||||
OCT 04140 # 21 3COMP WHOLE
|
||||
OCT 04102 # 22 3COMP CDU DEGREES
|
||||
OCT 00000 # 23 SPARE
|
||||
OCT 24400 # 24 3COMP HMS (DEC ONLY)
|
||||
OCT 04140 # 25 3COMP WHOLE
|
||||
OCT 04000 # 26 3COMP OCTAL ONLY
|
||||
OCT 00140 # 27 1COMP WHILE
|
||||
OCT 00000 # 28 SPARE
|
||||
OCT 00000 # 29 SPARE
|
||||
OCT 0 # 30 SPARE
|
||||
OCT 0 # 31 SPARE
|
||||
OCT 24400 # 32 3COMP HMS (DEC ONLY)
|
||||
OCT 24400 # 33 3COMP HMS (DEC ONLY)
|
||||
OCT 24400 # 34 3COMP HMS (DEC ONLY)
|
||||
OCT 24400 # 35 3COMP HMS (DEC ONLY)
|
||||
OCT 24400 # 36 3COMP HMS (DEC ONLY)
|
||||
OCT 24400 # 37 3COMP HMS (DEC ONLY)
|
||||
OCT 24400 # 38 3COMP HMS (DEC ONLY)
|
||||
OCT 00000 # 39 SPARE
|
||||
|
||||
# END OF NNTYPTAB FOR NORMAL NOUNS
|
||||
|
||||
# NN MIXED NOUNS
|
||||
OCT 24500 # 40 3COMP MIN/SEC, VEL3, VEL3
|
||||
# (NO LOAD, DEC ONLY)
|
||||
OCT 00542 # 41 2COMP CDU DEG, ELEV DEG
|
||||
OCT 24410 # 42 3COMP POS4, POS4, VEL3
|
||||
# (DEC ONLY)
|
||||
OCT 20204 # 43 3COMP DPDEG(360), DPDEG(360) POS4
|
||||
# (DEC ONLY)
|
||||
OCT 00410 # 44 3COMP POS4, POS4, MIN/SEC
|
||||
# (NO LOAD, DEC ONLY)
|
||||
OCT 10000 # 45 3COMP WHOLE, MIN/SEC, DPDEG(360)
|
||||
# (NO LOAD, DEC ONLY)
|
||||
OCT 00000 # 46 1COMP OCTAL ONLY
|
||||
OCT 00306 # 47 2COMP WEIGHT2 FOR EACH
|
||||
# (DEC ONLY)
|
||||
OCT 01367 # 48 2COMP TRIM DEG2 FOR EACH
|
||||
# Page 310
|
||||
# (DEC ONLY)
|
||||
OCT 00510 # 49 3COMP POS4, VEL3, WHOLE
|
||||
# (DEC ONLY)
|
||||
OCT 0 # 50 SPARE
|
||||
OCT 00204 # 51 2COMP DPDEG(360), DPDEG(360)
|
||||
# (DEC ONLY)
|
||||
OCT 00004 # 52 1COMP DPDEG(360)
|
||||
OCT 00000 # 53 SPARE
|
||||
OCT 10507 # 54 3COMP POS5, VEL3, DPDEG(360)
|
||||
# (DEC ONLY)
|
||||
OCT 10200 # 55 3COMP WHOLE, DPDEG(360), DPDEG(360)
|
||||
# (DEC ONLY)
|
||||
OCT 00204 # 56 2COMP DPDEG(360), DPDEG(360)
|
||||
OCT 00010 # 57 1COMP POS4
|
||||
# (DEC ONLY)
|
||||
OCT 24510 # 58 3COMP POS4, VEL3, VEL3
|
||||
# (DEC ONLY)
|
||||
OCT 24512 # 59 3COMP VEL3 FOR EACH
|
||||
# (DEC ONLY)
|
||||
OCT 60512 # 60 3COMP VEL3, VEL3, COMP ALT
|
||||
# (DEC ONLY)
|
||||
OCT 54000 # 61 3COMP MIN/SEC, MIN/SEC, POS7
|
||||
# (NO LOAD, DEC ONLY)
|
||||
OCT 24012 # 62 3COMP VEL3, MIN/SEC, VEL3
|
||||
# (NO LOAD, DEC ONLY)
|
||||
OCT 60512 # 63 3COMP VEL3, VEL3, COMP ALT
|
||||
# (DEC ONLY)
|
||||
OCT 60500 # 64 3COMP 2INT, VEL3, COMP ALT
|
||||
# (NO LOAD, DEC ONLY)
|
||||
OCT 00000 # 65 3COMP HMS (DEC ONLY)
|
||||
OCT 00016 # 66 2COMP LANDING RADAR ALT, POSITION
|
||||
# (NO LOAD, DEC ONLY)
|
||||
OCT 53223 # 67 3COMP LANDING RADAR VELX, Y, Z
|
||||
OCT 60026 # 68 3COMP POS7, MIN/SEC, COMP ALT
|
||||
# (NO LOAD, DEC ONLY)
|
||||
OCT 00000 # 69 SPARE
|
||||
OCT 0 # 70 3COMP OCTAL ONLY FOR EACH
|
||||
OCT 0 # 71 3COMP OCTAL ONLY FOR EACH
|
||||
OCT 00102 # 72 2COMP 360-CDU DEG, CDU DEG
|
||||
OCT 00102 # 73 2COMP 360-CDU DEG, CDU DEG
|
||||
OCT 10200 # 74 3COMP MIN/SEC, DPDEG(360), DPDEG(360)
|
||||
# (NO LOAD, DEC ONLY)
|
||||
OCT 00010 # 75 3COMP POS4, MIN/SEC, MIN/SEC
|
||||
# (NO LOAD, DEC ONLY)
|
||||
|
||||
OCT 20512 # 76 3COMP VEL3, VEL3, POS4
|
||||
# (DEC ONLY)
|
||||
OCT 00500 # 77 2COMP MIN/SEC, VEL3
|
||||
# (NO LOAD, DEC ONLY)
|
||||
OCT 00654 # 78 2 COMP RR RANGE, RR RANGE RATE
|
||||
OCT 00102 # 79 3COMP CDU DEG, CDU DEG, WHOLE
|
||||
# Page 311
|
||||
# (DEC ONLY)
|
||||
OCT 00200 # 80 2COMP WHOLE, DPDEG(360)
|
||||
OCT 24512 # 81 3COMP VEL3 FOR EACH
|
||||
# (DEC ONLY)
|
||||
OCT 24512 # 82 3COMP VEL3 FOR EACH
|
||||
# (DEC ONLY)
|
||||
OCT 24512 # 83 3COMP VEL3 FOR EACH
|
||||
# (DEC ONLY)
|
||||
OCT 24512 # 84 3COMP VEL3 FOR EACH
|
||||
# (DEC ONLY)
|
||||
OCT 24512 # 85 3COMP VEL3 FOR EACH
|
||||
# (DEC ONLY)
|
||||
OCT 24512 # 86 3COMP VEL3 FOR EACH
|
||||
# (DEC ONLY)
|
||||
OCT 00102 # 87 2COMP CDU DEG FOR EACH
|
||||
OCT 0 # 88 3COMP FRAC FOR EACH
|
||||
# (DEC ONLY)
|
||||
OCT 16143 # 89 3COMP DPDEG(90), DPDEG(90), POS5
|
||||
# (DEC ONLY)
|
||||
OCT 10507 # 90 3COMP POS5, VEL3, DEPDEG(360)
|
||||
# (DEC ONLY)
|
||||
OCT 10450 # 91 3COMP POS4, VEL2, DPDEG(360)
|
||||
OCT 00000 # 92 SPARE
|
||||
OCT 06143 # 93 3COMP DPDEG(90) FOR EACH
|
||||
OCT 00000 # 94 SPARE
|
||||
OCT 0 # 95 SPARE
|
||||
OCT 0 # 96 SPARE
|
||||
OCT 00000 # 97 3COMP WHOLE FOR EACH
|
||||
OCT 00000 # 98 3COMP WHOLE, FRAC, WHOLE
|
||||
OCT 71572 # 99 3COMP POS9, VEL4, RADIANS
|
||||
# (DEC ONLY)
|
||||
|
||||
# END OF NNTYPTAB FOR MIXED NOUNS
|
||||
|
||||
SFINTAB OCT 00006 # WHOLE, DP TIME (SEC)
|
||||
OCT 03240
|
||||
OCT 00000 # SPARE
|
||||
OCT 00000
|
||||
OCT 00000 # CDU DEGREES, 360-CDU DEGREES
|
||||
OCT 00000 # (SFCONS IN DEGINSF)
|
||||
OCT 10707 # DP DEGREES (90)
|
||||
OCT 03435 # UPPED BY 1
|
||||
OCT 13070 # DP DEGREES (360) (POINT BETWN BITS 11-12)
|
||||
OCT 34345 # UPPED BY 1
|
||||
OCT 00005 # DEGREES (180)
|
||||
OCT 21616
|
||||
OCT 26113 # WEIGHT2
|
||||
OCT 31713
|
||||
OCT 00070 # POSITION5
|
||||
OCT 20460
|
||||
# Page 312
|
||||
OCT 01065 # POSITION4
|
||||
OCT 05740
|
||||
OCT 11414 # VELOCITY2 (POINT BETWN BITS 11-12)
|
||||
OCT 31463
|
||||
OCT 07475 # VELOCITY3
|
||||
OCT 16051
|
||||
OCT 00001 # ELEVATION DEGREES
|
||||
OCT 03434
|
||||
OCT 00047 # RENDEZVOUS RADAR RANGE
|
||||
OCT 21135
|
||||
OCT 77766 # RENDESVOUS RADAR RANGE RATE
|
||||
OCT 50711
|
||||
2DEC* .9267840599 E5 B-28* # LANDING RADAR ALTITUDE
|
||||
|
||||
OCT 00002 # INITIAL/FINAL ALTITUDE
|
||||
OCT 23224
|
||||
OCT 00014 # ALTITUDE RATE
|
||||
OCT 06500
|
||||
OCT 00012 # FORWARD/LATERAL VELOCITY
|
||||
OCT 36455
|
||||
OCT 04256 # ROT HAND CONT ANGLE RATE
|
||||
OCT 07071
|
||||
2DEC* -1.552795030 E5 B-28* # LANDING RADAR VELX
|
||||
|
||||
2DEC* .8250825087 E5 B-28* # LANDING RADAR VELY
|
||||
|
||||
2DEC* 1.153668673 E5 B-28* # LANDING RADAR VELZ
|
||||
|
||||
OCT 04324 # POSITION7
|
||||
OCT 27600
|
||||
OCT 00036 # TRIM DEGREES2
|
||||
OCT 20440
|
||||
OCT 00035 # COMPUTED ALTITUDE
|
||||
OCT 30400
|
||||
OCT 23420 # DP DEGREES
|
||||
OCT 00000
|
||||
2DEC 30480 B-19 # POSITION 9
|
||||
|
||||
2DEC 30.48 B-7 # VELOCITY4
|
||||
|
||||
2DEC 100 B-8 # RADIANS
|
||||
|
||||
# END OF SFINTAB
|
||||
|
||||
SFOUTAB OCT 05174 # WHOLE, DP TIME (SEC)
|
||||
OCT 13261
|
||||
OCT 00000 # SPARE
|
||||
OCT 00000
|
||||
OCT 00000 # CDU DEGREES, 360-CDU DEGREES
|
||||
# Page 313
|
||||
OCT 00000 # (SFCONS IN DEGOUTSF, 360 CDUO)
|
||||
OCT 00714 # DP DEGREES (90) (POINT BETWN BITS 7-8)
|
||||
OCT 31463
|
||||
OCT 13412 # DP DEGREES (360)
|
||||
OCT 07534
|
||||
OCT 05605 # DEGREES (180)
|
||||
OCT 03656
|
||||
OCT 00001 # WEIGHT2
|
||||
OCT 16170
|
||||
OCT 00441 # POSITION5
|
||||
OCT 34306
|
||||
OCT 07176 # POSITION4 (POINT BETWN BITS 7-8)
|
||||
OCT 21603
|
||||
OCT 15340 # VELOCITY2
|
||||
OCT 15340
|
||||
OCT 01031 # VELOCITY3 (POINT BETWN BITS 7-8)
|
||||
OCT 21032
|
||||
OCT 34631 # ELEVATION DETREES
|
||||
OCT 23146
|
||||
OCT 00636 # RENDEZVOUS RADAR RANGE
|
||||
OCT 14552
|
||||
OCT 74552 # RENDEZVOUS RADAR RANGE RATE
|
||||
OCT 70307
|
||||
2DEC 1.079 E-5 B14 # LANDING RADAR ALTITUDE
|
||||
|
||||
OCT 14226 # INITIAL/FINAL ALTITUDE
|
||||
OCT 31757
|
||||
OCT 02476 # ALTITUDE RATE
|
||||
OCT 05531
|
||||
OCT 02727 # FORWARD/LATERAL VELOCTY
|
||||
OCT 16415
|
||||
OCT 00007 # ROT HAND CONT ANGLE RATE
|
||||
OCT 13734
|
||||
2DEC -.6440 E-5 B14 # LANDING RADAR VELX
|
||||
|
||||
2DEC 1.212 E-5 B14 # LANDING RADAR VELY
|
||||
|
||||
2DEC .8668 E-5 B14 # LANDING RADAR VELZ
|
||||
|
||||
OCT 34772 # POSITION7
|
||||
OCT 07016
|
||||
OCT 01030 # TRIM DEGREES2
|
||||
OCT 33675
|
||||
OCT 01046 # COMPUTED ALTITUDE
|
||||
OCT 15700
|
||||
OCT 00321 # DP DEGREES
|
||||
OCT 26706
|
||||
2DEC 17.2010499 B-7 # POSITION 9
|
||||
|
||||
2DEC .032808399 # VELOCITY4
|
||||
# Page 314
|
||||
2DEC .32 # RADIANS
|
||||
|
||||
# END OF SFOUTAB
|
||||
|
||||
# NN SF CONSTANT SF ROUTINE
|
||||
IDADDTAB ECADR TTOGO # 40 MIN/SEC M/S
|
||||
ECADR VGDISP # 40 VEL3 DP3
|
||||
ECADR DVTOTAL # 40 VEL3 DP3
|
||||
ECADR DSPTEM1 # 41 CDU DEG CDU
|
||||
ECADR DSPTEM1 +1 # 41 ELEV DEG ARTH
|
||||
OCT 0 # 41 SPARE COMPONENT
|
||||
ECADR HAPO # 42 POS4 DP3
|
||||
ECADR HPER # 42 POS4 DP3
|
||||
ECADR VGDISP # 42 VEL3 DP3
|
||||
ECADR LAT # 43 DPDEG(360) DP4
|
||||
ECADR LONG # 43 DPDEG(360 DP4
|
||||
ECADR ALT # 43 POS4 DP3
|
||||
ECADR HAPOX # 44 POS4 DP3
|
||||
ECADR HPERX # 44 POS4 DP3
|
||||
ECADR TFF # 44 MIN/SEC M/S
|
||||
ECADR TRKMKCNT # 45 WHOLE ARTH
|
||||
ECADR TTOGO # 45 MIN/SEC M/S
|
||||
ECADR +MGA # 45 DPDEG(360) DP4
|
||||
ECADR DAPDATR1 # 46 OCTAL ONLY OCT
|
||||
OCT 0 # 46 SPARE COMPONENT
|
||||
OCT 0 # 46 SPARE COMPONENT
|
||||
ECADR LEMMASS # 47 WEIGHT2 ARTH1
|
||||
ECADR CSMMASS # 47 WEIGHT2 ARTH1
|
||||
OCT 0 # 47 SPARE COMPONENT
|
||||
ECADR PITTIME # 48 TRIM DEG2 ARTH
|
||||
ECADR ROLLTIME # 48 TRIM DEG2 ARTH
|
||||
OCT 0 # 48 SPARE COMPONENT
|
||||
ECADR R22DISP # 49 POS4 DP3
|
||||
ECADR R22DISP +2 # 49 VEL3 DP3
|
||||
ECADR WHCHREAD # 49 WHOLE ARTH
|
||||
OCT 0 # 50 SPARE
|
||||
OCT 0 # 50 SPARE
|
||||
OCT 0 # 50 SPARE
|
||||
ECADR ALPHASB # 51 DPDEG(360) DP4
|
||||
ECADR BETASB # 51 DPDEG(360) DP4
|
||||
OCT 0 # 51 SPARE COMPONENT
|
||||
ECADR ACTCENT # 52 DPDEG(360) DP4
|
||||
OCT 00000 # 52 SPARE COMPONENT
|
||||
OCT 00000 # 52 SPARE COMPONENT
|
||||
OCT 00000 # 53 SPARE
|
||||
OCT 00000 # 53
|
||||
OCT 00000 # 53
|
||||
ECADR RANGE # 54 POS5 DP1
|
||||
# Page 315
|
||||
ECADR RRATE # 54 VEL3 DP3
|
||||
ECADR RTHETA # 54 DPDEG(360) DP4
|
||||
ECADR NN # 55 WHOLE ARTH
|
||||
ECADR ELEV # 55 DPDEG(360) DP4
|
||||
ECADR CENTANG # 55 DPDEG(360) DP4
|
||||
ECADR RR-AZ # 56 DPDEG(360) DP4
|
||||
ECADR RR-ELEV # 56 DPDEG(360) DP4
|
||||
OCT 0 # 56 SPARE COMPONENT
|
||||
ECADR DELTAR # 57 POS4 DP3
|
||||
OCT 0 # 57 SPARE COMPONENT
|
||||
OCT 0 # 57 SPARE COMPONENT
|
||||
ECADR POSTTPI # 58 POS4 DP3
|
||||
ECADR DELVTPI # 58 VEL3 DP3
|
||||
ECADR DELVTPF # 58 VEL3 DP3
|
||||
ECADR DVLOS # 59 VEL3 DP3
|
||||
ECADR DVLOS +2 # 59 VEL3 DP3
|
||||
ECADR DVLOS +4 # 59 VEL3 DP3
|
||||
ECADR VHORIZ # 60 VEL3 DP3
|
||||
ECADR HDOTDISP # 60 VEL3 DP3
|
||||
ECADR HCALC # 60 COMP ALT DP1
|
||||
ECADR TTFDISP # 61 MIN/SEC M/S
|
||||
ECADR TTOGO # 61 MIN/SEC M/S
|
||||
ECADR OUTOFPLN # 61 POS7 DP4
|
||||
ECADR ABVEL # 62 VEL3 DP3
|
||||
ECADR TTOGO # 62 MIN/SEC M/S
|
||||
ECADR DVTOTAL # 62 VEL3 DP3
|
||||
ECADR ABVEL # 63 VEL3 DP3
|
||||
ECADR HDOTDISP # 63 VEL3 DP3
|
||||
ECADR HCALC1 # 63 COMP ALT DP1
|
||||
ECADR FUNNYDSP # 64 2INT 2INT
|
||||
ECADR HDOTDISP # 64 VEL3 DP3
|
||||
ECADR HCALC # 64 COMP ALT DP1
|
||||
ECADR SAMPTIME # 65 HMS (MIXED ONLY TO KEEP CODE 65) HMS
|
||||
ECADR SAMPTIME # 65 HMS HMS
|
||||
ECADR SAMPTIME # 65 HMS HMS
|
||||
ECADR RSTACK +6 # 66 LANDING RADAR ALT DP1
|
||||
OCT 0 # 66 LR POSITION LRPOS
|
||||
OCT 0 # 66 SPARE COMPONENT
|
||||
ECADR RSTACK # 67 LANDING RADAR VELX DP1
|
||||
ECADR RSTACK +2 # 67 LANDING RADAR VELY DP1
|
||||
ECADR RSTACK +4 # 67 LANDING RADAR VELZ DP1
|
||||
ECADR RANGEDSP # 68 POS7 DP4
|
||||
ECADR TTFDISP # 68 MIN/SEC M/S
|
||||
ECADR DELTAH # 68 COMP ALT DP1
|
||||
OCT 00000 # 69 SPARE
|
||||
OCT 00000 # 69
|
||||
OCT 00000 # 69
|
||||
ECADR AOTCODE # 70 OCTAL ONLY OCT
|
||||
ECADR AOTCODE +1 # 70 OCTAL ONLY OCT
|
||||
ECADR AOTCODE +2 # 70 OCTAL ONLY OCT
|
||||
# Page 316
|
||||
ECADR AOTCODE # 71 OCTAL ONLY OCT
|
||||
ECADR AOTCODE +1 # 71 OCTAL ONLY OCT
|
||||
ECADR AOTCODE +2 # 71 OCTAL ONLY OCT
|
||||
ECADR CDUT # 72 360-CDU DEG 360-CDU
|
||||
ECADR CDUS # 72 CDU DEG CDU
|
||||
OCT 0 # 72 SPARE COMPONENT
|
||||
ECADR TANG # 73 360-CDU DEG 360-CDU
|
||||
ECADR TANG +1 # 73 CDU DEG CDU
|
||||
OCT 0 # 73 SPARE COMPONENT
|
||||
ECADR TTOGO # 74 MIN/SEC M/S
|
||||
ECADR YAW # 74 DPDEG(360) DP4
|
||||
ECADR PITCH # 74 DPDEG(360) DP4
|
||||
ECADR DIFFALT # 75 POS4 DP3
|
||||
ECADR T1TOT2 # 75 MIN/SEC
|
||||
ECADR T2TOT3 # 75 MIN/SEC M/S
|
||||
ECADR ZDOTD # 76 VEL3 DP3
|
||||
ECADR RDOTD # 76 VEL3 DP3
|
||||
ECADR XRANGE # 76 POS4 DP3
|
||||
ECADR TTOGO # 77 MIN/SEC M/S
|
||||
ECADR YDOT # 77 VEL3 DP3
|
||||
OCT 0 # 77 SPARE COMPONENT
|
||||
ECADR RSTACK # 78 RR RANGE DP1
|
||||
ECADR RSTACK +2 # 78 RR RANGE RATE DP1
|
||||
OCT 00000 # 78 SPARE COMPONENT
|
||||
ECADR CURSOR # 79 CDU DEG CDU
|
||||
ECADR SPIRAL # 79 CDU DEG CDU
|
||||
ECADR POSCODE # 79 WHOLE ARTH
|
||||
ECADR DATAGOOD # 80 WHOLE ARTH
|
||||
ECADR OMEGAD # 80 DPDEG(360) DP4
|
||||
OCT 0 # 80 SPARE COMPONENT
|
||||
ECADR DELVLVC # 81 VEL3 DP3
|
||||
ECADR DELVLVC +2 # 81 VEL3 DP3
|
||||
ECADR DELVLVC +4 # 81 VEL3 DP3
|
||||
ECADR DELVLVC # 82 VEL3 DP3
|
||||
ECADR DELVLVC +2 # 82 VEL3 DP3
|
||||
ECADR DELVLVC +4 # 82 VEL3 DP3
|
||||
ECADR DELVIMU # 83 VEL3 DP3
|
||||
ECADR DELVIMU +2 # 83 VEL3 DP3
|
||||
ECADR DELVIMU +4 # 83 VEL3 DP3
|
||||
ECADR DELVOV # 84 VEL3 DP3
|
||||
ECADR DELVOV +2 # 84 VEL3 DP3
|
||||
ECADR DELVOV +4 # 84 VEL3 DP3
|
||||
ECADR VGBODY # 85 VEL3 DP3
|
||||
ECADR VGBODY +2 # 85 VEL3 DP3
|
||||
ECADR VGBODY +4 # 85 VEL3 DP3
|
||||
ECADR DELVLVC # 86 VEL3 DP3
|
||||
ECADR DELVLVC +2 # 86 VEL3 DP3
|
||||
ECADR DELVLVC +4 # 86 VEL3 DP3
|
||||
ECADR AZ # 87 CDU DEG CDU
|
||||
ECADR EL # 87 CDU DEG CDU
|
||||
# Page 317
|
||||
OCT 0 # 87 SPARE COMPONENT
|
||||
ECADR STARAD # 88 FRAC FRAC
|
||||
ECADR STARAD +2 # 88 FRAC FRAC
|
||||
ECADR STARAD +4 # 88 FRAC FRAC
|
||||
ECADR LANDLAT # 89 DPDEG(90) DP3
|
||||
ECADR LANDLONG # 89 DPDEG(90) DP3
|
||||
ECADR LANDALT # 89 POS5 DP1
|
||||
ECADR RANGE # 90 POS5 DP1
|
||||
ECADR RRATE # 90 VEL3 DP3
|
||||
ECADR RTHETA # 90 DPDEG(360) DP4
|
||||
ECADR P21ALT # 91 POS4 DP3
|
||||
ECADR P21VEL # 91 VEL2 DP4
|
||||
ECADR P21GAM # 91 DPDEG(360) DP4
|
||||
OCT 00000 # 92 SPARE
|
||||
OCT 00000 # 92
|
||||
OCT 00000 # 92
|
||||
ECADR OGC # 93 DPDEG(90) DP3
|
||||
ECADR OGC +2 # 93 DPDEG(90) DP3
|
||||
ECADR OGC +4 # 93 DPDEG(90) DP3
|
||||
OCT 00000 # 94 SPARE
|
||||
OCT 00000 # 94
|
||||
OCT 00000 # 94
|
||||
OCT 0 # 95 SPARE
|
||||
OCT 0 # 95 SPARE
|
||||
OCT 0 # 95 SPARE
|
||||
OCT 0 # 96 SPARE
|
||||
OCT 0 # 96 SPARE
|
||||
OCT 0 # 96 SPARE
|
||||
ECADR DSPTEM1 # 97 WHOLE ARTH
|
||||
ECADR DSPTEM1 +1 # 97 WHOLE ARTH
|
||||
ECADR DSPTEM1 +2 # 97 WHOLE ARTH
|
||||
ECADR DSPTEM2 # 98 WHOLE ARTH
|
||||
ECADR DSPTEM2 +1 # 98 FRAC FRAC
|
||||
ECADR DSPTEM2 +2 # 98 WHOLE ARTH
|
||||
ECADR WWPOS # 99 POS9 DP3
|
||||
ECADR WWVEL # 99 VEL4 DP2
|
||||
ECADR WWBIAS # 99 RADIANS DP4
|
||||
|
||||
# END OF IDADDTAB
|
||||
|
||||
# NN SF ROUTINES
|
||||
RUTMXTAB OCT 16351 # 40 M/S, DP3, DP3
|
||||
OCT 00142 # 41 CDU, ARTH
|
||||
OCT 16347 # 42 DP3, DP3, DP3
|
||||
OCT 16512 # 43 DP4, DP4, DP3
|
||||
OCT 22347 # 44 DP3, DP3, M/S
|
||||
OCT 24443 # 45 ARTH, M/S, DP4
|
||||
OCT 00000 # 46 OCT
|
||||
OCT 00553 # 47 ARITH1, ARITH1
|
||||
# Page 318
|
||||
OCT 00143 # 48 ARTH, ARTH
|
||||
OCT 06347 # 49 DP3, DP3, ARTH
|
||||
OCT 0 # 50 SPARE
|
||||
OCT 00512 # 51 DP4, DP4
|
||||
OCT 00012 # 52 DP4
|
||||
OCT 00000 # 53 SPARE
|
||||
OCT 24344 # 54 DP1, DP3, DP4
|
||||
OCT 24503 # 55 ARTH, DP4, DP4
|
||||
OCT 00512 # 56 DP4, DP4
|
||||
OCT 00007 # 57 DP3
|
||||
OCT 16347 # 58 DP3, DP3, DP3
|
||||
OCT 16347 # 59 DP3, DP3, DP3
|
||||
OCT 10347 # 60 DP3, DP3, DP1
|
||||
OCT 24451 # 61 M/S, M/S, DP4
|
||||
OCT 16447 # 62 DP3, M/S, DP3
|
||||
OCT 10347 # 63 DP3, DP3, DP1
|
||||
OCT 10354 # 64 2INT, DP3, DP1
|
||||
OCT 20410 # 65 HMS, HMS, HMS
|
||||
OCT 00304 # 66 DP1, LRPOS
|
||||
OCT 10204 # 67 DP1, DP1, DP1
|
||||
OCT 10452 # 68 DP4, M/S, DP1
|
||||
OCT 00000 # 69 SPARE
|
||||
OCT 0 # 70 OCT, OCT, OCT
|
||||
OCT 0 # 71 OCT, OCT, OCT
|
||||
OCT 00115 # 72 360-CDU, CDU
|
||||
OCT 00115 # 73 360-CDU, CDU
|
||||
OCT 24511 # 74 M/S, DP4, DP4
|
||||
OCT 22447 # 75 DP3, M/S, M/S
|
||||
OCT 16347 # 76 DP3, DP3, DP3
|
||||
OCT 00351 # 77 M/S, DP3
|
||||
OCT 00204 # 78 DP1, DP1
|
||||
OCT 06102 # 79 CDU, CDU, ARTH
|
||||
OCT 00503 # 80 ARTH, DP4
|
||||
OCT 16347 # 81 DP3, DP3, DP3
|
||||
OCT 16347 # 82 DP3, DP3, DP3
|
||||
OCT 16347 # 83 DP3, DP3, DP3
|
||||
OCT 16347 # 84 DP3, DP3, DP3
|
||||
OCT 16347 # 85 DP3, DP3, DP3
|
||||
OCT 16347 # 86 DP3, DP3, DP3
|
||||
OCT 00102 # 87 CDU, CDU
|
||||
OCT 02041 # 88 FRAC FOR EACH
|
||||
OCT 10347 # 89 DP3, DP3, DP1
|
||||
OCT 24344 # 90 DP1, DP3, DP4
|
||||
OCT 24507 # 91 DP3, DP4, DP4
|
||||
OCT 00000 # 92 SPARE
|
||||
OCT 16347 # 93 DP3, DP3, DP3
|
||||
OCT 00000 # 94 SPARE
|
||||
OCT 0 # 95 SPARE
|
||||
OCT 0 # 96 SPARE
|
||||
OCT 06143 # 97 ARTH, ARTH, ARTH
|
||||
# Page 319
|
||||
OCT 06043 # 98 ARTH, FRAC, ARTH
|
||||
OCT 24247 # 99 DP3, DP2, DP4
|
||||
|
||||
# END OF RUTMXTAB
|
||||
|
||||
SBANK= LOWSUPER
|
||||
|
391
Luminary099/PLANETARY_INERTIAL_ORIENTATION.agc
Normal file
391
Luminary099/PLANETARY_INERTIAL_ORIENTATION.agc
Normal file
@ -0,0 +1,391 @@
|
||||
# Copyright: Public domain.
|
||||
# Filename: PLANETARY_INERTIAL_ORIENTATION.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: Jim Lawton <jim.lawton@gmail.com>
|
||||
# Website: www.ibiblio.org/apollo.
|
||||
# Pages: 1140-1148
|
||||
# Mod history: 2009-05-28 JVL Updated from page images.
|
||||
#
|
||||
# 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 1140
|
||||
# ***** RP-TO-R SUBROUTINE *****
|
||||
# SUBROUTINE TO CONVERT RP (VECTOR IN PLANETARY COORDINATE SYSTEM, EITHER
|
||||
# EARTH-FIXED OR MOON-FIXED) TO R (SAME VECTOR IN THE BASIC REF. SYSTEM)
|
||||
#
|
||||
# R = MT(T) * (RP + LP X RP) MT = M MATRIX TRANSPOSE
|
||||
#
|
||||
# CALLING SEQUENCE
|
||||
# L CALL
|
||||
# L+1 RP-TO-R
|
||||
#
|
||||
# SUBROUTINES USED
|
||||
# EARTHMX, MOONMX, EARTHL
|
||||
#
|
||||
# ITEMS AVAILABLE FROM LAUNCH DATA
|
||||
# 504LM = THE LIBRATION VECTOR L OF THE MOON AT TIME TIMSUBL, EXPRESSED
|
||||
# IN THE MOON-FIXED COORD. SYSTEM RADIANS B0
|
||||
#
|
||||
# ITEMS NECESSARY FOR SUBR. USED (SEE DESCRIPTION OF SUBR.)
|
||||
#
|
||||
# INPUT
|
||||
# MPAC = 0 FOR EARTH, NON-ZERO FOR MOON
|
||||
# 0-5D = RP VECTOR
|
||||
# 6-7D = TIME
|
||||
#
|
||||
# OUTPUT
|
||||
# MPAC = R VECTOR METERS B-29 FOR EARTH, B-27 FOR MOON
|
||||
|
||||
SETLOC PLANTIN1
|
||||
BANK
|
||||
|
||||
COUNT* $$/LUROT
|
||||
|
||||
RP-TO-R STQ BHIZ
|
||||
RPREXIT
|
||||
RPTORA
|
||||
CALL # COMPUTE M MATRIX FOR MOON
|
||||
MOONMX # LP=LM FOR MOON RADIANS B0
|
||||
VLOAD
|
||||
504LM
|
||||
RPTORB VXV VAD
|
||||
504RPR
|
||||
504RPR
|
||||
VXM GOTO
|
||||
MMATRIX # MPAC=R=MT(T)*(RP+LPXRP)
|
||||
RPRPXXXX # RESET PUSHLOC TO 0 BEFORE EXITING
|
||||
RPTORA CALL # EARTH COMPUTATIONS
|
||||
EARTHMX # M MATRIX B-1
|
||||
CALL
|
||||
EARTHL # L VECTOR RADIANS B0
|
||||
MXV VSL1 # LP=M(T)*L RAD B-0
|
||||
MMATRIX
|
||||
# Page 1141
|
||||
GOTO
|
||||
RPTORB
|
||||
SETLOC PLANTIN
|
||||
BANK
|
||||
COUNT* $$/LUROT
|
||||
|
||||
# Page 1142
|
||||
# ***** R-TO-RP SUBROUTINE *****
|
||||
# SUBROUTINE TO CONVERT R (VECTOR IN REFERENCE COORD. SYSTEM) TO RP
|
||||
# (VECTOR IN PLANETARY COORD SYSTEM) EITHER EARTH-FIXED OR MOON-FIXED
|
||||
#
|
||||
# RP = M(T) * (R - L X R)
|
||||
#
|
||||
# CALLING SEQUENCE
|
||||
# L CALL
|
||||
# L+1 R-TO-RP
|
||||
#
|
||||
# SUBROUTINES USED
|
||||
# EARTHMX, MOONMX, EARTHL
|
||||
#
|
||||
# INPUT
|
||||
# MPAC = 0 FOR EARTH, NON-ZERO FOR MOON
|
||||
# 0-5D = R VECTOR
|
||||
# 6-7D = TIME
|
||||
#
|
||||
# ITEMS AVAILABLE FROM LAUNCH DATA
|
||||
# 504LM = THE LIBRATION VECTOR L OF THE MOON AT TIME TIMSUBL, EXPRESSED
|
||||
# IN THE MOON-FIXED COORD. SYSTEM RADIANS B0
|
||||
#
|
||||
# ITEMS NECESSARY FOR SUBROUTINES USED (SEE DESCRIPTION OF SUBR.)
|
||||
#
|
||||
# OUTPUT
|
||||
# MPAC = RP VECTOR METERS B-29 FOR EARTH, B-27 FOR MOON
|
||||
|
||||
R-TO-RP STQ BHIZ
|
||||
RPREXIT
|
||||
RTORPA
|
||||
CALL
|
||||
MOONMX
|
||||
VLOAD VXM
|
||||
504LM # LP=LM
|
||||
MMATRIX
|
||||
VSL1 # L = MT(T)*LP RADIANS B0
|
||||
RTORPB VXV BVSU
|
||||
504RPR
|
||||
504RPR
|
||||
MXV # M(T)*(R-LXR) B-2
|
||||
MMATRIX
|
||||
RPRPXXXX VSL1 SETPD
|
||||
0D
|
||||
GOTO
|
||||
RPREXIT
|
||||
RTORPA CALL # EARTH COMPUTATIONS
|
||||
EARTHMX
|
||||
CALL
|
||||
EARTHL
|
||||
GOTO # MPAC=L=(-AX,-AY,0) RAD B-0
|
||||
RTORPB
|
||||
|
||||
# Page 1143
|
||||
# ***** MOONMX SUBROUTINE *****
|
||||
# SUBROUTINE TO COMPUTE THE TRANSFORMATION MATRIX M FOR THE MOON
|
||||
#
|
||||
# CALLING SEQUENCE
|
||||
# L CALL
|
||||
# L+1 MOONMX
|
||||
#
|
||||
# SUBROUTINES USED
|
||||
# NEWANGLE
|
||||
#
|
||||
# INPUT
|
||||
# 6-7D = TIME
|
||||
#
|
||||
# ITEMS AVAILABLE FROM LAUNCH DATA
|
||||
# BSUBO, BDOT
|
||||
# TIMSUBO, NODIO, NODDOT, FSUBO, FDOT
|
||||
# COSI = COS(I) B-1
|
||||
# SINI = SIN(I) B-1
|
||||
# I IS THE ANGLE BETWEEN THE MEAN LUNAR EQUATORIAL PLANE AND THE
|
||||
# PLANE OF THE ECLIPTIC (1 DEGREE 32.1 MINUTES)
|
||||
#
|
||||
# OUTPUT
|
||||
# MMATRIX = 3X3 M MATRIX B-1 (STORED IN VAC AREA)
|
||||
|
||||
MOONMX STQ SETPD
|
||||
EARTHMXX
|
||||
8D
|
||||
AXT,1 # B REQUIRES SL 0, SL 5 IN NEWANGLE
|
||||
5
|
||||
DLOAD PDDL # PD 10D 8-9D=BSUBO
|
||||
BSUBO # 10-11D=BDOT
|
||||
BDOT
|
||||
PUSH CALL # PD 12D
|
||||
NEWANGLE # EXIT WITH PD 8D AND MPAC= B REVS B0
|
||||
PUSH COS # PD 10D
|
||||
STODL COB # PD 8D COS(B) B-1
|
||||
SIN # SIN(B) B-1
|
||||
STODL SOB # SETUP INPUT FOR NEWANGLE
|
||||
FSUBO # 8-9D=FSUBO
|
||||
PDDL PUSH # PD 10D THEN 12D 10-11D=FDOT
|
||||
FDOT
|
||||
AXT,1 CALL # F REQUIRES SL 1, SL 6 IN NEWANGLE.
|
||||
4
|
||||
NEWANGLE # EXIT WITH PD 8D AND MPAC= F REVS B0
|
||||
STODL AVECTR +2 # SAVE F TEMP
|
||||
NODIO # 8-9D=NODIO
|
||||
PDDL PUSH # PD 10D THEN 12D 10-11D=NODDOT
|
||||
NODDOT # MPAC=T
|
||||
AXT,1 CALL # NODE REQUIRES SL 0, SL 5 IN NEWANGLE
|
||||
5
|
||||
NEWANGLE # EXIT WITH PD 8D AND MPAC= NODI REVS B0
|
||||
# Page 1144
|
||||
PUSH COS # PD 10D 8-9D= NODI REVS B0
|
||||
PUSH # PD 12D 10-11D= COS(NODI) B-1
|
||||
STORE AVECTR
|
||||
DMP SL1R
|
||||
COB # COS(NODI) B-1
|
||||
STODL BVECTR +2 # PD 10D 20-25D=AVECTR= COB*SIN(NODI)
|
||||
DMP SL1R # SOB*SIN(NODI)
|
||||
SOB
|
||||
STODL BVECTR +4 # PD 8D
|
||||
SIN PUSH # PD 10D -SIN(NODI) B-1
|
||||
DCOMP # 26-31D=BVECTR= COB*COS(NODI)
|
||||
STODL BVECTR # PD 8D SOB*COS(NODI)
|
||||
AVECTR +2 # MOVE F FROM TEMP LOC. TO 504F
|
||||
STODL 504F
|
||||
DMP SL1R
|
||||
COB
|
||||
GOTO
|
||||
MOONMXA
|
||||
|
||||
BANK 25
|
||||
SETLOC PLANTIN3
|
||||
BANK
|
||||
COUNT* $$/LUROT
|
||||
|
||||
MOONMXA STODL AVECTR +2
|
||||
SINNODI # 8-9D=SIN(NODI) B-1
|
||||
DMP SL1R
|
||||
SOB
|
||||
STODL AVECTR +4 # 0
|
||||
HI6ZEROS # 8-13D= CVECTR= -SOB B-1
|
||||
PDDL DCOMP # PD 10D COB
|
||||
SOB
|
||||
PDDL PDVL # PD 12D THEN PD 14D
|
||||
COB
|
||||
BVECTR
|
||||
VXSC PDVL # PD 20D BVECTR*SINI B-2
|
||||
SINI
|
||||
CVECTR
|
||||
VXSC VAD # PD 14D CVECTR*COSI B-2
|
||||
COSI
|
||||
VSL1
|
||||
STOVL MMATRIX +12D # PD 8D M2=BVECTR*SINI+CVECTR*COSI B-1
|
||||
VXSC PDVL # PD 14D
|
||||
SINI # CVECTR*SINI B-2
|
||||
BVECTR
|
||||
VXSC VSU # PD 8D BVECTR*COSI B-2
|
||||
COSI
|
||||
VSL1 PDDL # PD 14D
|
||||
504F # 8-13D=DVECTR=BVECTR*COSI-CVECTR*SINI B-1
|
||||
COS VXSC
|
||||
# Page 1145
|
||||
DVECTR
|
||||
PDDL SIN # PD 20D 14-19D= DVECTR*COSF B-2
|
||||
504F
|
||||
VXSC VSU # PD 14D AVECTR*SINF B-2
|
||||
AVECTR
|
||||
VSL1
|
||||
STODL MMATRIX +6 # M1= AVECTR*SINF-DVECTR*COSF B-1
|
||||
504F
|
||||
SIN VXSC # PD 8D
|
||||
PDDL COS # PD 14D 8-13D=DVECTR*SINF B-2
|
||||
504F
|
||||
VXSC VAD # PD 8D AVECTR*COSF B-2
|
||||
AVECTR
|
||||
VSL1 VCOMP
|
||||
STCALL MMATRIX # M0= -(AVECTR*COSF+DVECTR*SINF) B-1
|
||||
EARTHMXX
|
||||
|
||||
# COMPUTE X=X0+(XDOT)(T+T0)
|
||||
# 8-9D= X0 (REVS B-0), PUSHLOC SET AT 12D
|
||||
# 10-11D=XDOT (REVS/CSEC) SCALED B+23 FOR WEARTH,B+28 FOR NODDOT AND BDOT
|
||||
# AND B+27 FOR FDOT
|
||||
# X1=DIFFERENCE IN 23 AND SCALING OF XDOT, =0 FOR WEARTH, 5 FOR NDDOT AND
|
||||
# BDOT AND 4 FOR FDOT
|
||||
# 6-7D=T (CSEC B-28), TIMSUBO= (CSEC B-42 TRIPLE PREC.)
|
||||
|
||||
NEWANGLE DLOAD SR # ENTER PD 12D
|
||||
6D
|
||||
14D
|
||||
TAD TLOAD # CHANGE MODE TO TP
|
||||
TIMSUBO
|
||||
MPAC
|
||||
STODL TIMSUBM # T+T0 CSEC B-42
|
||||
TIMSUBM +1
|
||||
DMP # PD 10D MULT BY XDOT IN 10-11D
|
||||
SL* DAD # PD 8D ADD X0 IN 8-9D AFTER SHIFTING
|
||||
5,1 # SUCH THAT SCALING IS B-0
|
||||
PUSH SLOAD # PD 10D SAVE PARTIAL (X0+XDOT*T) IN 8-9D
|
||||
TIMSUBM
|
||||
SL DMP
|
||||
9D
|
||||
10D # XDOT
|
||||
SL* DAD # PD 8D SHIFT SUCH THAT THIS PART OF X
|
||||
10D,1 # IS SCALED REVS/CSEC B-0
|
||||
BOV # TURN OFF OVERFLOW IF SET BY SHIFT
|
||||
+1 # INSTRUCTION BEFORE EXITING.
|
||||
RVQ # MPAC=X= X0+(XDOT)(T+T0) REVS B0
|
||||
|
||||
# Page 1146
|
||||
# ***** EARTHMX SUBROUTINE *****
|
||||
# SUBROUTINE TO COMPUTE THE TRANSFORMATION MATRIX M FOR THE EARTH
|
||||
#
|
||||
# CALLING SEQUENCE
|
||||
# L CALL
|
||||
# L+1 EARTHMX
|
||||
#
|
||||
# SUBROUTINE USED
|
||||
# NEWANGLE
|
||||
#
|
||||
# INPUT
|
||||
# INPUT AVAILABLE FROM LAUNCH DATA AZO REVS B-0
|
||||
# TEPHEM CSEC B-42
|
||||
# 6-7D= TIME CSEC B-28
|
||||
#
|
||||
# OUTPUT
|
||||
# MMATRIX= 3X3 M MATRIX B-1 (STORED IN VAC AREA)
|
||||
|
||||
BANK 26
|
||||
SETLOC PLANTIN1
|
||||
BANK
|
||||
COUNT* $$/LUROT
|
||||
|
||||
EARTHMX STQ SETPD # SET 8-9D=AZO
|
||||
EARTHMXX
|
||||
8D # 10-11D=WEARTH
|
||||
AXT,1 # FOR SL 5, AND SL 10 IN NEWANGLE
|
||||
0
|
||||
DLOAD PDDL # LEAVING PD SET AT 12D FOR NEWANGLE
|
||||
AZO
|
||||
WEARTH
|
||||
PUSH CALL
|
||||
NEWANGLE
|
||||
SETPD PUSH # 18-19D=504AZ
|
||||
18D # COS(AZ) SIN(AZ) 0
|
||||
COS PDDL # 20-37D= MMATRIX= -SIN(AZ) COS(AZ) 0 B-1
|
||||
504AZ # 0 0 1
|
||||
SIN PDDL
|
||||
HI6ZEROS
|
||||
PDDL SIN
|
||||
504AZ
|
||||
DCOMP PDDL
|
||||
504AZ
|
||||
COS PDVL
|
||||
HI6ZEROS
|
||||
PDDL PUSH
|
||||
HIDPHALF
|
||||
GOTO
|
||||
EARTHMXX
|
||||
|
||||
# Page 1147
|
||||
# ***** EARTHL SUBROUTINE *****
|
||||
# SUBROUTINE TO COMPUTE L VECTOR FOR EARTH
|
||||
#
|
||||
# CALLING SEQUENCE
|
||||
# L CALL
|
||||
# L+1 EARTHL
|
||||
#
|
||||
# INPUT
|
||||
# AXO,AYO SET AT LAUNCH TIME WITH AYO IMMEDIATELY FOLLOWING AXO IN CORE
|
||||
#
|
||||
# OUTPUT
|
||||
# -AX
|
||||
# MPAC= -AY RADIANS B-0
|
||||
# 0
|
||||
|
||||
BANK 06
|
||||
SETLOC EARTHLOC
|
||||
BANK
|
||||
COUNT* $$/LUROT
|
||||
|
||||
EARTHL DLOAD DCOMP
|
||||
AXO
|
||||
STODL 504LPL
|
||||
-AYO
|
||||
STODL 504LPL +2
|
||||
LO6ZEROS
|
||||
STOVL 504LPL +4
|
||||
504LPL
|
||||
RVQ
|
||||
|
||||
# Page 1148
|
||||
# CONSTANTS AND ERASABLE ASSIGNMENTS
|
||||
|
||||
1B1 = DP1/2 # 1 SCALED B-1
|
||||
RPREXIT = S1 # R-TO-RP AND RP-TO-R SUBR EXIT
|
||||
EARTHMXX = S2 # EARTHMX, MOONMX SUBR. EXITS
|
||||
504RPR = 0D # 6 REGS R OR RP VECTOR
|
||||
SINNODI = 8D # 2 SIN(NODI)
|
||||
DVECTR = 8D # 6 D VECTOR MOON
|
||||
CVECTR = 8D # 6 C VECTR MOON
|
||||
504AZ = 18D # 2 AZ
|
||||
TIMSUBM = 14D # 3 TIME SUB M (MOON) T+T0 IN GETAZ
|
||||
504LPL = 14D # 6 L OR LP VECTOR
|
||||
AVECTR = 20D # 6 A VECTOR (MOON)
|
||||
BVECTR = 26D # 6 B VECTOR (MOON)
|
||||
MMATRIX = 20D # 18 M MATRIX
|
||||
COB = 32D # 2 COS(B) B-1
|
||||
SOB = 34D # 2 SIN(B) B-1
|
||||
504F = 6D # 2 F(MOON)
|
||||
|
447
Luminary099/POWERED_FLIGHT_SUBROUTINES.agc
Normal file
447
Luminary099/POWERED_FLIGHT_SUBROUTINES.agc
Normal file
@ -0,0 +1,447 @@
|
||||
# Copyright: Public domain.
|
||||
# Filename: POWERED_FLIGHT_SUBROUTINES.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: 1259-1267
|
||||
# Mod history: 2009-05-26 RSB Adapted from the corresponding
|
||||
# Luminary131 file, using page
|
||||
# images from Luminary 1A.
|
||||
# 2011-01-06 JL Fixed pseudo-label indentation.
|
||||
#
|
||||
# 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 1259
|
||||
BANK 14 # SAME FBANK AS THE FINDCDUD SUB-PROGRAM
|
||||
SETLOC POWFLITE
|
||||
BANK
|
||||
|
||||
EBANK= DEXDEX
|
||||
COUNT* $$/POWFL
|
||||
|
||||
# CDUTRIG, CDUTRIG1, CDUTRIG2, AND CD*TR*GS ALL COMPUTE THE SINES AND
|
||||
# COSINES OF THREE 2'S COMPLEMENT ANGLES AND PLACE THE RESULT, DOUBLE
|
||||
# PRECISION, IN THE SAME ORDER AS THE INPUTS, AT SINCDU AND COSCDU. AN
|
||||
# ADDITIONAL OUTPUT IS THE 1'S COMPLEMENT ANGLES AT CDUSPOT. THESE
|
||||
# ROUTINES GO OUT OF THEIR WAY TO LEAVE THE MPAC AREA AS THEY FIND IT.
|
||||
# EXCEPT FOR THE GENERALLY UNIMPORTANT MPAC +2. THEY DIFFER ONLY IN
|
||||
# WHERE THEY GET THE ANGLES, AND IN METHOD OF CALLING.
|
||||
#
|
||||
# CDUTRIG (AND CDUTRIG1, WHICH CAN BE CALLED IN BASIC) COMPUTE THE
|
||||
# SINES AND COSINES FROM THE CURRENT CONTENTS OF THE CDU REGISTERS.
|
||||
# THE CONTENTS OF CDUTEMP, ETC., ARE NOT TOUCHED SO THAT THEY MAY
|
||||
# CONTINUE TO FORM A CONSISTENT SET WITH THE LATEST PIPA READINGS.
|
||||
#
|
||||
# CDUTRIG1 IS LIKE CDUTRIG EXCEPT THAT IT CAN BE CALLED IN BASIC.
|
||||
#
|
||||
# CD*TR*GS FINDS CDU VALUES IN CDUSPOT RATHER THAN IN CDUTEMP. THIS
|
||||
# ALLOWS USERS TO MAKE TRANSFORMATIONS USING ARBITRARY ANGLES, OR REAL
|
||||
# ANGLES IN AN ORDER OTHER THAN X Y Z. A CALL TO THIS ROUTINE IS
|
||||
# NECESSARY IN PREPARATION FOR A CALL TO AX*SR*T IN EITHER OF ITS TWO
|
||||
# MODES (SMNB OR NBSM). SINCE AX*SR*T EXPECTS TO FIND THE SINES AND
|
||||
# COSINES IN THE ORDER Y Z X THE ANGLES MUST HAVE BEEN PLACED IN CDUSPOT
|
||||
# IN THIS ORDER. CD*TR*GS NEED NOT BE REPEATED WHEN AX*SR*T IS CALLED
|
||||
# MORE THAN ONCE, PROVIDED THE ANGLES HAVE NOT CHANGED. NOTE THAT SINCE
|
||||
# IT CLOBBERS BUF2 (IN THE SINE AND COSINE ROUTINES) CD*TR*GS CANNOT BE
|
||||
# CALLED USING BANKCALL. SORRY.
|
||||
#
|
||||
# CD*TR*G IS LIKE CD*TR*GS EXCEPT THAT IT CAN BE CALLED IN
|
||||
# INTERPRETIVE.
|
||||
|
||||
CDUTRIG EXIT
|
||||
TC CDUTRIGS
|
||||
TC INTPRET
|
||||
RVQ
|
||||
|
||||
CD*TR*G EXIT
|
||||
TC CD*TR*GS
|
||||
TC INTPRET
|
||||
RVQ
|
||||
|
||||
CDUTRIGS CA CDUX
|
||||
TS CDUSPOT +4
|
||||
CA CDUY
|
||||
TS CDUSPOT
|
||||
# Page 1260
|
||||
CA CDUZ
|
||||
TS CDUSPOT +2
|
||||
|
||||
CD*TR*GS EXTEND
|
||||
QXCH TEM2
|
||||
CAF FOUR
|
||||
TR*GL**P MASK SIX # MAKE IT EVEN AND SMALLER
|
||||
TS TEM3
|
||||
INDEX TEM3
|
||||
CA CDUSPOT
|
||||
DXCH MPAC # STORING 2'S COMP ANGLE, LOADING MPAC
|
||||
DXCH VBUF +4 # STORING MPAC FOR LATER RESTORATION
|
||||
TC USPRCADR
|
||||
CADR CDULOGIC
|
||||
EXTEND
|
||||
DCA MPAC
|
||||
INDEX TEM3
|
||||
DXCH CDUSPOT # STORING 1'S COMPLEMENT ANGLE
|
||||
TC USPRCADR
|
||||
CADR COSINE
|
||||
DXCH MPAC
|
||||
INDEX TEM3
|
||||
DXCH COSCDU # STORING COSINE
|
||||
EXTEND
|
||||
INDEX TEM3
|
||||
DCA CDUSPOT # LOADING 1'S COMPLEMENT ANGLE
|
||||
TC USPRCADR
|
||||
CADR SINE +1 # SINE +1 EXPECTS ARGUMENT IN A AND L
|
||||
DXCH VBUF +4 # BRINGING UP PRIOR MPAC TO BE RESTORED
|
||||
DXCH MPAC
|
||||
INDEX TEM3
|
||||
DXCH SINCDU
|
||||
CCS TEM3
|
||||
TCF TR*GL**P
|
||||
TC TEM2
|
||||
# Page 1261
|
||||
# *******************************************************************************************************
|
||||
# QUICTRIG, INTENDED FOR QUIDANCE CYCLE USE WHERE TIME IS CRITICAL, IS A MUCH FASTER VERSION OF CD*TR*GS.
|
||||
# QUICTRIG COMPUTES AND STORES THE SINES AND COSINES OF THE 2'S COMPLEMENT ANGLES AT CDUSPOT, CDUSPOT +2,
|
||||
# AND CDUSPOT +4. UNLIKE CD*TR*GS, QUICTRIG DOES NOT LEAVE THE 1'S COMPLEMENT VERSIONS OF THE ANGLES IN
|
||||
# CDUSPOT. QUICTRIG'S EXECUTION TIME IS 4.1 MS; THIS IS 10 TIMES AS FAST AS CD*TR*GS. QUICTRIG MAY BE
|
||||
# CALLED FROM INTERPRETIVE AS AN RTB OP-CODE, OR FROM BASIC VIA BANKCALL OR IBNKCALL.
|
||||
|
||||
QUICTRIG INHINT # INHINT SINCE DAP USES THE SAME TEMPS
|
||||
EXTEND
|
||||
QXCH ITEMP1
|
||||
CAF FOUR
|
||||
+4 MASK SIX
|
||||
TS ITEMP2
|
||||
INDEX ITEMP2
|
||||
CA CDUSPOT
|
||||
TC SPSIN
|
||||
EXTEND
|
||||
MP BIT14 # SCALE DOWN TO MATCH INTERPRETER OUTPUTS
|
||||
INDEX ITEMP2
|
||||
DXCH SINCDU
|
||||
INDEX ITEMP2
|
||||
CA CDUSPOT
|
||||
TC SPCOS
|
||||
EXTEND
|
||||
MP BIT14
|
||||
INDEX ITEMP2
|
||||
DXCH COSCDU
|
||||
CCS ITEMP2
|
||||
TCF QUICTRIG +4
|
||||
CA ITEMP1
|
||||
RELINT
|
||||
TC A
|
||||
|
||||
# Page 1262
|
||||
#****************************************************************************
|
||||
# THESE INTERFACE ROUTINES MAKE IT POSSIBLE TO CALL AX*SR*T, ETC., IN
|
||||
# INTERPRETIVE. LATER, WHERE POSSIBLE, THEY WILL BE ELIMINATED.
|
||||
#
|
||||
# THESE INTERFACE ROUTINES ARE PERMANENT. ALL RESTORE USER'S EBANK
|
||||
# SETTING. ALL ARE STRICT INTERPRETIVE SUBROUTINES, CALLED USING "CALL",
|
||||
# RETURNING VIA QPRET. ALL EXPECT AND RETURN THE VECTOR TO BE TRANSFORMED
|
||||
# INTERPRETER-STYLE IN MPAC; COMPONENTS AT MPAC, MPAC +3, AND MPAC +5.
|
||||
#
|
||||
# TRG*SMNB AND TRG*NBSM BOTH EXPECT TO SEE THE 2'S COMPLEMENT ANGLES
|
||||
# AT CDUSPOT (ORDER Y Z X, AT CDUSPOT, CDUSPOT +2, AND CDUSPOT +4; ODD
|
||||
# LOCATIONS NEED NOT BE ZEROED). TRG*NBSM DOES THE NB TO SM TRANSFORMATION;
|
||||
# TRG*SMNB, VICE VERSA.
|
||||
#
|
||||
# CDU*NBSM DOES ITS TRANSFORMATION USING THE PRESENT CONTENTS OF
|
||||
# THE CDL COUNTERS. OTHERWISE IT IS LIKE TRG*NBSM.
|
||||
#
|
||||
# CDU*SMNB IS THE COMPLEMENT OF CDU*NBSM.
|
||||
|
||||
CDU*SMNB EXIT
|
||||
TC CDUTRIGS
|
||||
TCF C*MM*N1
|
||||
|
||||
TRG*SMNB EXIT
|
||||
TC CD*TR*GS
|
||||
C*MM*N1 TC MPACVBUF # AX*SR*T EXPECTS VECTOR IN VBUF
|
||||
CS THREE # SIGNAL FOR SM TO NB TRANSFORMATION.
|
||||
C*MM*N2 TC AX*SR*T
|
||||
TC INTPRET
|
||||
VLOAD RVQ
|
||||
VBUF
|
||||
|
||||
CDU*NBSM EXIT
|
||||
TC CDUTRIGS
|
||||
TCF C*MM*N3
|
||||
|
||||
TRG*NBSM EXIT
|
||||
TC CD*TR*GS
|
||||
C*MM*N3 TC MPACVBUF # FOR AX*SR*T
|
||||
CA THREE # SIGNAL FOR NB TO SM TRANSFORMATION
|
||||
TCF C*MM*N2
|
||||
|
||||
# *NBSM* AND *SMNB* EXPECT TO SEE THE SINES AND COSINES (AT SINCDU
|
||||
# AND COSCDU) RATHER THAN THE ANGLES THEMSELVES. OTHERWISE THEY ARE
|
||||
# LIKE TRG*NBSM AND TRG*SMNB.
|
||||
#
|
||||
# NOTE THAT JUST AS CD*TR*GS NEED BE CALLED ONLY ONCE FOR EACH SERIES
|
||||
# OF TRANSFORMATIONS USING THE SAME ANGLES, SO TOO ONLY ONE OF TRG*NBSM
|
||||
# Page 1263
|
||||
# AND TRG*SMNB NEED BE CALLED FOR EACH SERIES. FOR SUBSEQUENT TRANFOR-
|
||||
# MATIONS USE *NBSM* AND *SMNB*.
|
||||
|
||||
*SMNB* EXIT
|
||||
TCF C*MM*N1
|
||||
|
||||
*NBSM* EXIT
|
||||
TCF C*MM*N3
|
||||
|
||||
# AX*SR*T COMBINES THE OLD SMNB AND NBSM. FOR THE NB TO SM
|
||||
# TRANSFORMATION, ENTER WITH +3 IN A. FOR SM TO NB, ENTER WITH -3.
|
||||
# THE VECTOR TO BE TRANSFORMED ARRIVES, AND IS RETURNED, IN VBUF.
|
||||
# AX*SR*T EXPECTS TO FIND THE SINES AND COSINES OF THE ANGLES OF ROTATION
|
||||
# AT SINCDU AND COSCDU, IN THE ORDER Y Z X. A CALL TO CD*TR*GS, WITH
|
||||
# THE 2'S COMPLEMENT ANGLES (ORDER Y Z X) AT CDUSPOT, WILL TAKE CARE OF
|
||||
# THIS. HERE IS A SAMPLE CALLING SEQUENCE:--
|
||||
# TC CDUTRIGS
|
||||
# CS THREE # ("CA THREE" FOR NBSM)
|
||||
# TC AX*SR*T
|
||||
# THE CALL TO CD*TR*GS NEED NOT BE REPEATED, WHEN AX*SR*T IS CALLED MORE
|
||||
# THAN ONCE, UNLESS THE ANGLES HAVE CHANGED.
|
||||
#
|
||||
# AX*SR*T IS GUARANTEED SAFE ONLY FOR VECTORS OF MAGNITUDE LESS THAN
|
||||
# UNITY. A LOOK AT THE CASE IN WHICH A VECTOR OF GREATER MAGNITUDE
|
||||
# HAPPENS TO LIE ALONG AN AXIS OF THE SYSTEM TO WHICH IT IS TO BE TRANS-
|
||||
# FORMED CONVINCES ONE THAT THIS IS A RESTRICTION WHICH MUST BE ACCEPTED.
|
||||
|
||||
AX*SR*T TS DEXDEX # WHERE IT BECOMES THE INDEX OF INDEXES.
|
||||
EXTEND
|
||||
QXCH RTNSAVER
|
||||
|
||||
R*TL**P CCS DEXDEX # +3 --> 0 -3 --> 2
|
||||
CS DEXDEX # THUS: +2 --> 1 -2 --> 1
|
||||
AD THREE # +1 --> 2 -1 --> 0
|
||||
EXTEND
|
||||
INDEX A
|
||||
DCA INDEXI
|
||||
DXCH DEXI
|
||||
|
||||
CA ONE
|
||||
TS BUF
|
||||
EXTEND
|
||||
INDEX DEX1
|
||||
DCS VBUF
|
||||
TCF LOOP1 # REALLY BE A SUBTRACT, AND VICE VERSA
|
||||
|
||||
LOOP2 DXCH BUF # LOADING VECTOR COMPONENT, STORING INDEX
|
||||
# Page 1264
|
||||
LOOP1 DXCH MPAC
|
||||
CA SINSLOC
|
||||
AD DEX1
|
||||
TS ADDRWD
|
||||
|
||||
TC DMPSUB # MULTIPLY AT SIN(CDUANGLE)
|
||||
CCS DEXDEX
|
||||
DXCH MPAC # NBSM CASE
|
||||
TCF +3
|
||||
EXTEND # SMNB CASE
|
||||
DCS MPAC
|
||||
DXCH TERM1TMP
|
||||
|
||||
CA SIX # SINCDU AND COSCDU (EACH 6 WORDS) MUST
|
||||
ADS ADDRWD # BE CONSECUTIVE AND IN THAT ORDER
|
||||
|
||||
EXTEND
|
||||
INDEX BUF
|
||||
INDEX DEX1
|
||||
DCA VBUF
|
||||
DXCH MPAC
|
||||
TC DMPSUB # MULTIPLY BY COS(CDUANGLE)
|
||||
DXCH MPAC
|
||||
DAS TERM1TMP
|
||||
DXCH TERM1TMP
|
||||
DDOUBL
|
||||
INDEX BUF
|
||||
INDEX DEX1
|
||||
DXCH VBUF
|
||||
DXCH BUF # LOADING INDEX, STORING VECTOR COMPONENT
|
||||
|
||||
CCS A # 'CAUSE THAT'S WHERE THE INDEX NOW IS
|
||||
TCF LOOP2
|
||||
|
||||
EXTEND
|
||||
DIM DEXDEX # DECREMENT MAGNITUDE PRESERVING SIGN
|
||||
|
||||
TSTPOINT CCS DEXDEX # ONLY THE BRANCHING FUNCTION IS USED
|
||||
TCF R*TL**P
|
||||
TC RTNSAVER
|
||||
TCF R*TL**P
|
||||
TC RTNSAVER
|
||||
|
||||
SINSLOC ADRES SINCDU # FOR USE IN SETTING ADDRWD
|
||||
|
||||
INDEXI DEC 4 # ********** DON'T ***********
|
||||
DEC 2 # ********** TOUCH ***********
|
||||
DEC 0 # ********** THESE ***********
|
||||
# Page 1265
|
||||
DEC 4 # ********** CONSTANTS ***********
|
||||
|
||||
# ******************************************************************************
|
||||
|
||||
BANK 10
|
||||
SETLOC FLESHLOC
|
||||
BANK
|
||||
COUNT* $$/POWFL
|
||||
|
||||
# ROUTINE FLESHPOT COMPUTES THE BODY-STABLE MEMBER TRANSFORMATION MATRIX (COMMONLY CALLED XNB) AND STORES
|
||||
# IT IN THE LOCATIONS SPECIFIED BY THE ECADR ENTERING IN A.
|
||||
|
||||
CALCSMSC EXIT
|
||||
TC BANKCALL
|
||||
CADR FLESHPOT -1
|
||||
TC INTPRET
|
||||
RVQ
|
||||
|
||||
XNBECADR ECADR XNB
|
||||
|
||||
-1 CAF XNBECADR
|
||||
|
||||
FLESHPOT TS TEM2
|
||||
XCH EBANK
|
||||
XCH TEM2
|
||||
MASK LOW8
|
||||
AD OCT1400
|
||||
TS TEM1
|
||||
|
||||
EXTEND
|
||||
DCA COSCDUY
|
||||
DXCH MPAC
|
||||
TC DMP
|
||||
ADRES COSCDUZ
|
||||
DXCH MPAC
|
||||
DDOUBL
|
||||
INDEX TEM1
|
||||
DXCH 0 # = COSY COSZ
|
||||
|
||||
EXTEND
|
||||
DCA SINCDUZ
|
||||
INDEX TEM1
|
||||
DXCH 2 # = SINZ
|
||||
|
||||
EXTEND
|
||||
DCS SINCDUY
|
||||
DXCH MPAC
|
||||
TC DMPSUB # ADDRWD SET TO COSCDUZ
|
||||
# Page 1266
|
||||
DXCH MPAC
|
||||
DDOUBL
|
||||
INDEX TEM1
|
||||
DXCH 4 # = - SINY COSZ
|
||||
|
||||
EXTEND
|
||||
DCS SINCDUX
|
||||
DXCH MPAC
|
||||
TC DMPSUB # ADDRWD SET TO COSCDUZ STILL
|
||||
DXCH MPAC
|
||||
DDOUBL
|
||||
DXCH MPAC +3
|
||||
|
||||
EXTEND
|
||||
DCS SINCDUX
|
||||
DXCH MPAC
|
||||
TC DMP
|
||||
ADRES SINCDUZ
|
||||
EXTEND
|
||||
DCS MPAC
|
||||
DXCH MPAC +5
|
||||
TC DMP
|
||||
ADRES SINCDUY
|
||||
DXCH MPAC
|
||||
DDOUBL
|
||||
DDOUBL
|
||||
DXCH MPAC +5
|
||||
|
||||
DXCH MPAC
|
||||
TC DMP
|
||||
ADRES COSCDUY
|
||||
DXCH MPAC
|
||||
DDOUBL
|
||||
DDOUBL
|
||||
DXCH BUF
|
||||
|
||||
EXTEND
|
||||
DCA COSCDUY
|
||||
DXCH MPAC
|
||||
TC DMP
|
||||
ADRES COSCDUX
|
||||
DXCH MPAC
|
||||
DDOUBL
|
||||
DAS MPAC +5
|
||||
|
||||
EXTEND
|
||||
DCA SINCDUY
|
||||
DXCH MPAC
|
||||
TC DMPSUB # ADDRWD SET TO COSCDUX
|
||||
DXCH MPAC
|
||||
|
||||
# Page 1267
|
||||
DDOUBL
|
||||
DAS BUF
|
||||
|
||||
DXCH BUF
|
||||
DXCH MPAC
|
||||
|
||||
EXTEND
|
||||
DCA MPAC
|
||||
INDEX TEM1
|
||||
DXCH 14 # = - SINY COSX + SINX SINZ COSY
|
||||
|
||||
EXTEND
|
||||
DCA MPAC +3
|
||||
INDEX TEM1
|
||||
DXCH 16 # = - SINX COSZ
|
||||
|
||||
EXTEND
|
||||
DCA MPAC +5
|
||||
INDEX TEM1
|
||||
DXCH 20 # = COSX COSY - SINX SINY SINZ
|
||||
|
||||
CA TEM1
|
||||
TS ADDRWD
|
||||
EXTEND
|
||||
DCA Z
|
||||
AD FOUR
|
||||
DXCH LOC
|
||||
CAF BIT8
|
||||
TS EDOP
|
||||
TCF VXV
|
||||
DXCH MPAC
|
||||
DDOUBL
|
||||
INDEX TEM1
|
||||
DXCH 6
|
||||
|
||||
DXCH MPAC +3
|
||||
DDOUBL
|
||||
INDEX TEM1
|
||||
DXCH 10
|
||||
|
||||
DXCH MPAC +5
|
||||
DDOUBL
|
||||
INDEX TEM1
|
||||
DXCH 12
|
||||
|
||||
CA TEM2
|
||||
TS EBANK
|
||||
TCF SWRETURN
|
||||
|
465
Luminary099/R30.agc
Normal file
465
Luminary099/R30.agc
Normal file
@ -0,0 +1,465 @@
|
||||
# Copyright: Public domain.
|
||||
# Filename: R30.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: 712-722
|
||||
# Mod history: 2009-05-19 RSB Adapted from the corresponding
|
||||
# Luminary131 file, using page
|
||||
# images from Luminary 1A.
|
||||
# 2009-06-07 RSB Removed a space between two components of
|
||||
# a 2OCT that isn't legal in yaYUL.
|
||||
#
|
||||
# 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 712
|
||||
# SUBROUTINE NAME: V82CALL
|
||||
# MOD NO: 0 DATE: 16 FEB 67
|
||||
# MOD BY: R. R. BAIRNSFATHER LOG SECTION: R30
|
||||
# MOD NO: 1 MOD BY: R. R. BAIRNSFATHER DATE: 11 APR 67 SR30.1 CHANGED TO ALLOW MONITOR OPERN
|
||||
# MOD NO: 2 MOD BY: ALONSO DATE: 11 DEC 67 VB82 PROGRAM REWRITTEN
|
||||
# MOD NO: 3 MOD BY: ALONSO DATE: 26 MAR 68 PROG MOD TO HANDLE DIF EARTH/MOON SCALE
|
||||
#
|
||||
# NEW FUNCTIONAL DESCRIPTION: CALLED BY VERB 82 ENTER. PRIORITY 10.
|
||||
# USED THROUGHOUT. CALCULATE AND DISPLAY ORBITAL PARAMETERS
|
||||
#
|
||||
# 1. IF AVERAGE G IS OFF:
|
||||
# FLASH DISPLAY V04N06. R2 INDICATES WHICH SHIP'S STATE VECTOR IS
|
||||
# TO BE UPDATED. INITIAL CHOICE IS THIS SHIP (R2=1). ASTRONAUT
|
||||
# CAN CHANGE TO OTHER SHIP BY V22E XE. WHERE X IS NOT EQ 1.
|
||||
# SELECTED STATE VECTOR UPDATED BY THISPREC (OTHPREC).
|
||||
# CALLS SR30.1 (WHICH CALLS TFFCONMU + TFFRP/RA) TO CALCULATE
|
||||
# RPER (PERIGEE RADIUS), RAPO (APOGEE RADIUS), HPER (PERIGEE
|
||||
# HEIGHT ABOVE LAUNCH PAD OR LUNAR LANDING SITE), HARD (APOGEE
|
||||
# HEIGHT AS ABOVE), TPER (TIME TO PERIGEE), TFF (TIME TO
|
||||
# INTERSECT 300 KFT ABOVE PAD OR 35KFT ABOVE LANDING SITE).
|
||||
# FLASH MONITOR V16N44 (HAPO, HPER, TFF). TFF IS -59M59S IF IT WAS
|
||||
# NOT COMPUTABLE, OTHERWISE IT INCREMENTS ONCE PER SECOND.
|
||||
# ASTRONAUT HAS OPTION TO MONITOR TPER BY KEYING IN N 32 E.
|
||||
# DISPLAY IS IN HMS, IS NEGATIVE (AS WAS TFF), AND INCREMENTS
|
||||
# ONCE PER SECOND ONLY IF TFF DISPLAY WAS -59M59S.
|
||||
# 2. IF AVERAGE G IS ON:
|
||||
# CALLS SR30.1 APPROX EVERY TWO SECS. STATE VECTOR IS ALWAYS
|
||||
# FOR THIS VEHICLE. V82 DOES NOT DISTURB STATE VECTOR. RESULTS
|
||||
# OF SR30.1 ARE RAPO, RPER, HAPO, HPER, TPER, TFF.
|
||||
# FLASH MONITOR V16N44 (HAPO, HPER, TFF).
|
||||
# ADDENDUM: HAPO AND HPER SHOULD BE CHANGED TO READ HAPOX AND HPERX IN THE
|
||||
# ABOVE REMARKS.
|
||||
#
|
||||
# CALLING SEQUENCE: VERB 82 ENTER.
|
||||
#
|
||||
# SUBROUTINES CALLED: SR30.1, GOXDSPF
|
||||
# MAYBE -- THISPREC, OTHPREC, LOADTIME, DELRSPL
|
||||
#
|
||||
# NORMAL EXIT MODES: TC ENDEXT
|
||||
#
|
||||
# ALARMS: NONE
|
||||
#
|
||||
# OUTPUT: HAPOX (-29) M
|
||||
# HPERX (-29) M
|
||||
# RAPO (-29) M EARTH
|
||||
# (-27) M MOON
|
||||
# RPER (-29) M EARTH
|
||||
# (-27) M MOON
|
||||
# TFF (-28) CS CONTAINS NEGATIVE QUANTITY
|
||||
# -TPER (-28) CS CONTAINS NEGATIVE QUANTITY
|
||||
#
|
||||
# Page 713
|
||||
# ERASABLE INITIALIZATION REQUIRED: STATE VECTOR.
|
||||
#
|
||||
# DEBRIS: QPRET, RONE, VONE, TFF/RTMU, HPERMIN, RPADTEM, V82EMFLG.
|
||||
# MAYBE: TSTART82, V82FLAGS, TDEC1.
|
||||
|
||||
EBANK= HAPOX
|
||||
BANK 31
|
||||
SETLOC R30LOC
|
||||
BANK
|
||||
COUNT* $$/R30
|
||||
|
||||
V82CALL TC INTPRET
|
||||
BON GOTO
|
||||
AVEGFLAG
|
||||
V82GON # IF AVERAGE G ON
|
||||
V82GOFF # IF AVERAGE G OFF
|
||||
|
||||
V82GOFF EXIT # ALLOW ASTRONAUT TO SELECT VEHICLE
|
||||
CAF TWO # DESIRED FOR ORBITAL PARAMETERS
|
||||
TS OPTIONX # CALCULATION AND DISPLAY.
|
||||
CAF ONE
|
||||
TS OPTIONX +1
|
||||
CAF OPTIONVN # V 04 N 06
|
||||
TC BANKCALL
|
||||
CADR GOXDSPF
|
||||
TC ENDEXT # TERMINATE
|
||||
TC +2 # PROCEED
|
||||
TC -5 # DATA IN. OPTION1+1 = 1 FOR THIS VEHICLE
|
||||
# UNEQ 1 FOR OTHER VEHICLE
|
||||
CAF BIT4 # 80 MS
|
||||
TC WAITLIST
|
||||
EBANK= TFF
|
||||
2CADR TICKTEST
|
||||
|
||||
RELINT
|
||||
V82GOFLP CAF TFFBANK # MAJOR RECYCLE LOOP ENTRY
|
||||
TS EBANK
|
||||
CAF ZERO
|
||||
TS V82FLAGS # ZERO FLAGS FOR TICKTEST, INHIBITS
|
||||
# DECREMENTING OF TFF AND -TPER.
|
||||
CAF PRIO7
|
||||
TC FINDVAC # V82GOFF1 WILL EXECUTE STATE VECTOR
|
||||
EBANK= TFF # UPDATE AND ORBIT CALCULATIONS FOR
|
||||
2CADR V82GOFF1 # SELECTED VEHICLE ABOUT PROPER BODY.
|
||||
|
||||
RELINT
|
||||
V82STALL CAF THREE # STALL IN THIS LOOP AND WITHOLD V 16 N 44
|
||||
# Page 714
|
||||
MASK V82FLAGS # UNTIL STATE VECTOR UPDATE SETS ONE OF
|
||||
CCS A # OUR FLAG BITS.
|
||||
TC FLAGGON # EXIT FROM STALL LOOP.
|
||||
CAF 1SEC
|
||||
TC BANKCALL
|
||||
CADR DELAYJOB
|
||||
TC V82STALL
|
||||
|
||||
FLAGGON CAF V16N44 # MONITOR HAPO,HPER,TFF.
|
||||
TC BANKCALL
|
||||
CADR GOXDSPF
|
||||
TC B5OFF # TERM. THIS TELLS TICKTEST TO KILL ITSELF
|
||||
TC B5OFF # PROCEED. DITTO
|
||||
TC V82GOFLP # RECYCLE. RECOMPUTE STATE VECT + DISPLAY
|
||||
|
||||
OPTIONVN VN 412
|
||||
V16N44 VN 1644
|
||||
TFFBANK ECADR TFF
|
||||
|
||||
V82GOFF1 TC INTPRET
|
||||
RTB
|
||||
LOADTIME
|
||||
STORE TDEC1 # TIME FOR STATE VECTOR UPDATE.
|
||||
STORE TSTART82 # TIME FOR INTERNAL USE.
|
||||
EXIT
|
||||
CS OPTIONX +1 # 1 FOR THIS VEHICLE, NOT 1 FOR OTHER.
|
||||
AD ONE
|
||||
EXTEND
|
||||
BZF THISSHIP
|
||||
OTHSHIP TC INTPRET
|
||||
CALL # CALL STATE VECTOR UPDATE FOR OTHER SHIP.
|
||||
OTHPREC
|
||||
BOTHSHIP VLOAD # MOVE RESULTS INTO TFFCONIC STORAGE AREAS
|
||||
RATT # TO BE CALLED BY SR30.1.
|
||||
STOVL RONE # RATT AT (-29)M FOR EARTH OR MOON.
|
||||
VATT
|
||||
STORE VONE # VATT AT (-7)M/CS FOR EARTH OR MOON
|
||||
DLOAD*
|
||||
1/RTMUE,2 # X2 IS 0 FOR EARTH CENTERED STATE VEC
|
||||
STORE TFF/RTMU # X2 IS 2 FOR MOON
|
||||
DLOAD* # AS LEFT BY THISPREC OR OTHPREC.
|
||||
MINPERE,2
|
||||
STORE HPERMIN # TFFRTMU, HPERMIN, AND RPADTEM ARE ALL
|
||||
SLOAD BHIZ # EARTH/MOON PARAMETERS AS SET HERE.
|
||||
X2
|
||||
EARTHPAD
|
||||
GOTO
|
||||
MOONPAD
|
||||
# Page 715
|
||||
THISSHIP TC INTPRET
|
||||
CALL # CALL STATE VECTOR UPDATE FOR THIS SHIP.
|
||||
THISPREC
|
||||
GOTO
|
||||
BOTHSHIP
|
||||
|
||||
# THE FOLLOWING CONSTANTS ARE PAIRWISE INDEXED. DO NOT SEPARATE PAIRS.
|
||||
|
||||
MINPERM 2DEC 10668 B-27 # 35 KFT MIN PERIGEE HEIGHT FOR MOON(-27)M
|
||||
|
||||
MINPERE 2DEC 91440 B-29 # 300 KFT (-29)M FOR EARTH
|
||||
|
||||
EARTHPAD DLOAD CLRGO # PAD 37-B RADIUS. SCALED AT (-29)M
|
||||
RPAD
|
||||
V82EMFLG # INDICATE EARTH SCALING FOR SR30.1
|
||||
BOTHPAD
|
||||
|
||||
MOONPAD VLOAD ABVAL # COMPUTE MOON PAD RADIUS FROM RLS VECTOR.
|
||||
RLS # SCALED AT (-27)M
|
||||
SET
|
||||
V82EMFLG # INDICATE MOON SCALILNG FOR SR30.1
|
||||
BOTHPAD STCALL RPADTEM
|
||||
SR30.1 # CALCULATE ORBITAL PARAMETERS
|
||||
RTB DSU
|
||||
LOADTIME
|
||||
TSTART82 # PRESENT TIME -- TIME V82GOFF1 BEGAN
|
||||
STORE TSTART82 # SAVE IT
|
||||
DLOAD BZE # SR30.1 SETS -TPER=0 IF HPER L/
|
||||
-TPER # HPERMIN (300 OR 35) KFT.
|
||||
TICKTIFF # (-TPER = 0)
|
||||
TICKTPER DLOAD DAD # (-TPER NON ZERO) TFF WAS NOT COMPUTED.
|
||||
-TPER # BUT WAS SET TO 59M59S. DON'T DICK TFF, DO
|
||||
TSTART82 # TICK -TPER. DISPLAY BOTH.
|
||||
STORE -TPER # -TPER CORRECTED FOR TIME SINCE V82GOFF1
|
||||
EXIT # BEGAN
|
||||
CAF BIT1
|
||||
TS V82FLAGS # INFORMS TICKTEST TO INCREMENT ONLY -TPER
|
||||
TC ENDOFJOB
|
||||
|
||||
TICKTIFF DLOAD DAD # (-TPER=0) TFF WAS COMPUTED. TICK TFF.
|
||||
TFF # DO NOT TICK -TPER. DISPLAY TFF, BUT NOT
|
||||
TSTART82 # -TPER.
|
||||
STORE TFF # TFF CORRECTED FOR TIME SINCE V82GOFF1
|
||||
EXIT # BEGAN.
|
||||
CAF BIT2
|
||||
TS V82FLAGS # INFORMS TICKTEST TO INCREMENT ONLY TFF.
|
||||
TC ENDOFJOB
|
||||
|
||||
# Page 716
|
||||
TICKTEST CAF BIT5 # THIS WAITLIST PROGRAM PERPETUATES ITSELF
|
||||
MASK EXTVBACT # ONCE A SEC UNTIL BIT 5 OF EXTVBACT =0.
|
||||
CCS A
|
||||
TC DOTICK
|
||||
CAF PRIO25
|
||||
TC NOVAC # TERMINATE V 82. CAN'T CALL ENDEXT IN RUPT.
|
||||
EBANK= EXTVBACT
|
||||
2CADR ENDEXT
|
||||
|
||||
TC TASKOVER
|
||||
DOTICK CAF 1SEC # RE-REQUEST TICKTEST.
|
||||
TC WAITLIST
|
||||
EBANK= TFF
|
||||
2CADR TICKTEST
|
||||
|
||||
CAF THREE
|
||||
MASK V82FLAGS
|
||||
INDEX A
|
||||
TC +1
|
||||
TC TASKOVER # IF NO FLAGBITS SET DONT' CHANGE TFF OR
|
||||
# -TPER, BUT CONTINUE LOOP.
|
||||
TC TPERTICK # ONLY BIT 1 SET. INCR -TPER BY 1 SEC.
|
||||
TFFTICK CAF 1SEC # ONLY BIT 2 SET. INCR TFF BY 1 SEC.
|
||||
TS L
|
||||
CAF ZERO
|
||||
DAS TFF
|
||||
TC TASKOVER
|
||||
TPERTICK CAF 1SEC
|
||||
TS L
|
||||
CAF ZERO
|
||||
DAS -TPER
|
||||
TC TASKOVER
|
||||
|
||||
# Page 717
|
||||
V82GON EXIT # AVERAGE G ON. USE CURRENT STATE VECTOR
|
||||
# FOR ORBITAL PARAMETER CALCULATIONS.
|
||||
CAF PRIO7 # LESS THAN LAMBERT
|
||||
TC FINDVAC # V82GON1 WILL PERFORM ORBIT CALCULATIONS
|
||||
EBANK= TFF # ABOUT PROPER BODY APPROX ONCE PER SEC.
|
||||
2CADR V82GON1
|
||||
|
||||
RELINT
|
||||
CCS NEWJOB # WITHOLD V16 N44 UNTIL FIRST ORBIT CALC
|
||||
TC CHANG1 # IS DONE. NOTE: V82GON1 (PRIO7, FINDVAC
|
||||
# JOB) IS COMPLETED BEFORE V82GON (PRIO7,
|
||||
# NOVAC JOB).
|
||||
V82REDSP CAF V16N44 # MONITOR HAPO, HPER, TFF
|
||||
TC BANKCALL
|
||||
CADR GOXDSPF
|
||||
TC B5OFF # TERM THIS TELLS V82GON1 TO KILL ITSELF.
|
||||
TC B5OFF # PROC DITTO.
|
||||
TC V82REDSP # RECYCLE
|
||||
|
||||
V82GON1 TC INTPRET # THIS EXEC PROGRAM PERPETUATES ITSELF
|
||||
# ONCE A SEC UNTIL BIT 5 OF EXTVBACT =0.
|
||||
VLOAD GOTO # HOLDS OFF CCS NEWJOB BETWEEN RN AND
|
||||
RN # VN FETCH SO RN, VN ARE FROM SAME
|
||||
NEXTLINE # STATE VECTOR UPDATE.
|
||||
NEXTLINE STOVL RONE # RN AT (-29)M FOR EARTH OR MOON
|
||||
VN
|
||||
STORE VONE # VN AT (-7)M/CS FOR EARTH OR MOON
|
||||
BON GOTO
|
||||
MOONTHIS # FLAG INDICATES BODY ABOUT WHICH ORBITAL
|
||||
MOONGON # CALCULATIONS ARE TO BE PERFORMED.
|
||||
EARTHGON # IF SET -- MOON, IF RESET --EARTH.
|
||||
|
||||
MOONGON SET DLOAD
|
||||
V82EMFLG # FLAG MOON SCALING FOR SR30.1
|
||||
1/RTMUM # LUNAR PARAMETERS LOADED HERE FOR SR30.1
|
||||
STODL TFF/RTMU
|
||||
MINPERM
|
||||
STOVL HPERMIN
|
||||
RLS # SCALED AT (-27)M
|
||||
ABVAL GOTO
|
||||
V82GON2
|
||||
EARTHGON CLEAR DLOAD
|
||||
V82EMFLG # INDICATE EARTH SCALING FOR SR30.1
|
||||
1/RTMUE # EARTH PARAMETERS LOADED HERE FOR SR30.1
|
||||
STODL TFF/RTMU
|
||||
MINPERE
|
||||
STODL HPERMIN
|
||||
RPAD
|
||||
V82GON2 STCALL RPADTEM # COMMON CODE FOR EARTH & MOON.
|
||||
SR30.1
|
||||
# Page 718
|
||||
EXIT
|
||||
V82GON3 CAF BIT5
|
||||
MASK EXTVBACT # SEE IF ASTRONAUT HAS SIGNALLED TERMINATE
|
||||
EXTEND
|
||||
BZF ENDEXT # YES, TERMINATE VB 82 LOOP
|
||||
CAF 1SEC
|
||||
TC BANKCALL # WAIT ONE SECOND BEFORE REPEATING
|
||||
CADR DELAYJOB # ORBITAL PARAMETER COMPUTATION.
|
||||
TC V82GON1
|
||||
|
||||
SPLRET = V82GON3
|
||||
|
||||
# Page 719
|
||||
# SUBROUTINE NAME: SR30.1
|
||||
# MOD NO: 0 DATE: 16 FEB 67
|
||||
# MOD BY: R. R. BAIRNSFATHER LOG SECTION: R32
|
||||
# MOD NO: 1 MOD BY: R. R. BAIRNSFATHER DATE: 11 APR 67 SR30.1 CHANGED TO ALLOW MONITOR OPERN
|
||||
# MOD NO: 2 MOD BY: R. R. BAIRNSFATHER DATE: 14 APR 67 ADD OVFL CK FOR RAPO
|
||||
# MOD NO: 3 MOD BY ALONSO DATE: 11 DEC 67 SUBROUTINE REWRITTEN
|
||||
# MOD NO: 4 MOD BY ALONSO DATE: 26 MAR 68 PROG MOD TO HANDLE DIF EARTH/MOON SCALE
|
||||
# MOD NO: 5 MOD BY: R. R. BAIRNSFATHER DATE: 6 AUG 68 OVFL CK FOR HAPO & HPER. VOIDS MOD #2.
|
||||
#
|
||||
# NEW FUNCTIONAL DESCRIPTION: ORBITAL PARAMETERS DISPLAY FOR NOUNS 32 AND 44.
|
||||
# SR30.1 CALLS TFFCONMU AND TFFRP/RA TO CALCULATE RPER (PERIGEE RADIUS),
|
||||
# RAPO (APOGEE RADIUS), HPER (PERIGEE HEIGHT ABOVE LAUNCH PAD OR LUNAR
|
||||
# LANDING SITE), HAPO (APOGEE HEIGHT AS ABOVE), TPER (TIME TO PERIGEE),
|
||||
# TFF (TIME TO INTERSECT 300 KFT ABOVE PAD OR 35KFT ABOVE LANDING SITE).
|
||||
# IF HPER IS GREATER THAN OR EQUAL TO HPERMIN, CALCULATES TPER AND STORES
|
||||
# NEGATIVE IN -TPER. OTHERWISE STORES +0 IN -TPER. WHENEVER TPER IS
|
||||
# CALCULATED, TFF IS NOT COMPUTABLE AND DEFAULTS TO -59MIN 59SEC. IF HAPO
|
||||
# WOULD EXCEED 9999.9 NM, IT IS LIMITED TO THAT VALUE FOR DISPLAY.
|
||||
#
|
||||
# ADDENDUM: HAPO AND HPER SHOULD BE CHANGED TO READ HAPOX AND HPERX IN THE
|
||||
# ABOVE REMARKS.
|
||||
#
|
||||
# CALLING SEQUENCE: CALL
|
||||
# SR30.1
|
||||
#
|
||||
# SUBROUTINES CALLED: TFFCONMU, TFFRP/RA, CALCTPER, CALCTFF
|
||||
#
|
||||
# NORMAL EXIT MODE: CALLING LINE +1 (STILL IN INTERPRETIVE MODE)
|
||||
#
|
||||
# ALARMS: NONE
|
||||
#
|
||||
# OUTPUT: RAPO (-29) M EARTH APOGEE RADIUS EARTH CENTERED COORD.
|
||||
# (-27) M MOON MOON CENTERED COORD.
|
||||
# RPER (-29) M EARTH PERIGEE RADIUS EARTH CENTERED COORD.
|
||||
# (-27) M MOON MOON CENTERED COORD.
|
||||
# HAPOX (-29) M APOGEE ALTITUDE ABOVE PAD OR LAND. SITE MAX VALUE LIMITED TO 9999.9 NM.
|
||||
# HPERX (-29) M PERIGEE ALT. ABOVE PAD OR LAND. SITE MAX VALUE LIMITED TO 9999.9 NM.
|
||||
# TFF (-28) CS TIME TO 300KFT OR 35KFT ALTITUDE
|
||||
# -TPER (-28) CS TIME TO PERIGEE
|
||||
#
|
||||
# ERASABLE INITIALIZATION REQUIRED --
|
||||
# TFF/RTMU (+17) EARTH RECIPROCAL OF PROPER GRAV CONSTANT FOR
|
||||
# (+14) MOON EARTH OR MOON = 1/SQRT(MU).
|
||||
# RONE (-29) M STATE VECTOR
|
||||
# VONE (-7) M/CS STATE VECTOR
|
||||
# RPADTEM (-29) M EARTH RADIUS OF LAUNCH PAD OR LUNAR LANDING
|
||||
# (-27) M MOON SITE.
|
||||
# HPERMIN (-29) M EARTH (300 OR 35) KFT MINIMUM PERIGEE ALTITUDE
|
||||
# (-27) M MOON ABOVE LAUNCH PAD OR LUNAR LANDING SITE.
|
||||
# V82EMFLG (INT SW BIT) RESET FOR EARTH, SET FOR MOON.
|
||||
#
|
||||
# DEBRIS: QPREG, PDL, S2
|
||||
|
||||
# Page 720
|
||||
COUNT* $$/SR30S
|
||||
|
||||
SR30.1 SETPD STQ # INITIALIZE PUSHDOWN LIST.
|
||||
0
|
||||
S2
|
||||
# SR30.1 INPUT: RONE AT (-29)M EARTH/MOON
|
||||
# VONE AT (-7)M/CS
|
||||
# TFFCONMU, TFFRP/RA, CALCTPER, AND CALCTFF
|
||||
# CALLS REQUIRE:
|
||||
# EARTH CENTERED (NO RESCALING REQUIRED)
|
||||
# RONE SCALED TO B-29 M
|
||||
# VONE SCALED TO B-7 M/CS
|
||||
# MOON CENTERED (RESCALING REQUIRED)
|
||||
# RONE SCALED TO B-27 M
|
||||
# VONE SCALED TO B-5 M/CS
|
||||
BOFF VLOAD
|
||||
V82EMFLG # OFF FOR EARTH, ON FOR MOON.
|
||||
TFFCALLS
|
||||
RONE
|
||||
VSL2
|
||||
STOVL RONE
|
||||
VONE
|
||||
VSL2
|
||||
STORE VONE
|
||||
TFFCALLS CALL
|
||||
TFFCONMU
|
||||
CALL # TFFRP/RA COMPUTES RAPO,RPER.
|
||||
TFFRP/RA
|
||||
# RETURNS WITH RAPO IN D(MPAC).
|
||||
DSU
|
||||
RPADTEM
|
||||
BOFF SR2R # NEED HAPO AT (-29)M FOR DISPLAY.
|
||||
# IF MOON CENTERED, RESCALE FROM (-27)M.
|
||||
# IF EARTH CENTERED ALREADY AT (-29)M.
|
||||
V82EMFLG # OFF FOR EARTH, ON FOR MOON.
|
||||
+1
|
||||
CALL # IF RAPO > MAXNM, SET RAPO =9999.9 NM.
|
||||
MAXCHK # OTHERWISE STORE (RAPO-RPADTEM) IN HAPO.
|
||||
STORHAPO STODL HAPOX
|
||||
RPER
|
||||
DSU
|
||||
RPADTEM # GIVES HPER AT (-29)M EARTH, (-27)M MOON.
|
||||
STORE MPAC +4 # SAVE THIS FOR COMPARISON TO HPERMIN.
|
||||
BOFF SR2R # NEED HPER AT (-29)M FOR DISPLAY.
|
||||
# IF MOON CENTERED, RESCALE FROM (-27)M.
|
||||
# IF EARTH CENTERED ALREADY AT (-29)M.
|
||||
V82EMFLG # OFF FOR EARTH, ON FOR MOON.
|
||||
+1
|
||||
CALL # IF HPER > MAXNM, SET HPER = 9999.9 NM.
|
||||
MAXCHK
|
||||
# Page 721
|
||||
STORHPER STODL HPERX # STORE (RPER - RPADTEM) INTO HPERX.
|
||||
MPAC +4
|
||||
DSU BPL # HPERMIN AT (-29)M FOR EARTH, (-27)M MOON
|
||||
HPERMIN # IF HPER L/ HPERMIN (300 OR 35) KFT,
|
||||
DOTPER # THEN ZERO INTO -TPER.
|
||||
DLOAD GOTO # OTHERWISE CALCULATE TPER.
|
||||
HI6ZEROS
|
||||
SKIPTPER
|
||||
DOTPER DLOAD CALL
|
||||
RPER
|
||||
CALCTPER
|
||||
DCOMP # TPER IS PUT NEG INTO -TPER.
|
||||
SKIPTPER STODL -TPER
|
||||
HPERMIN # HPERMIN AT (-29)M FOR EARTH, (-27)M MOON
|
||||
DAD CALL
|
||||
RPADTEM # RPADTEM AT (-29)M FOR EARTH, (-27)M MOON
|
||||
CALCTFF # GIVES 59M59S FOR TFF IF HPER G/
|
||||
DCOMP # HPERMIN + RPADTEM. (TPER WAS NON ZERO)
|
||||
STCALL TFF # OTHERWISE COMPUTES TFF. (GOTO)
|
||||
S2
|
||||
|
||||
MAXCHK DSU BPL # IF C(MPAC) > 9999.9 NM. MPAC = 9999.9 NM.
|
||||
MAXNM
|
||||
+3 # OTHERWISE C(MPAC) - B(MPAC).
|
||||
DAD RVQ
|
||||
MAXNM
|
||||
+3 DLOAD RVQ # (USED BY P30 -- P37 ALSO)
|
||||
MAXNM
|
||||
|
||||
MAXNM 2OCT 0106505603
|
||||
|
||||
# Page 722 (empty page)
|
||||
|
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)
|
||||
|
587
Luminary099/R60_62.agc
Normal file
587
Luminary099/R60_62.agc
Normal file
@ -0,0 +1,587 @@
|
||||
# Copyright: Public domain.
|
||||
# Filename: R60_R62.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: 472-485
|
||||
# Mod history: 2009-05-17 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 472
|
||||
# MOD NO: 0 DATE: 1 MAY 1968
|
||||
# MOD BY: DIGITAL DEVEL GROUP LOG SECTION R60,R62
|
||||
#
|
||||
# FUNCTIONAL DESCRIPTION:
|
||||
#
|
||||
# CALLED AS A GENERAL SUBROUTINE TO MANEUVER THE LM TO A SPECIFIED
|
||||
# ATTITUDE.
|
||||
#
|
||||
# 1. IF THE 3-AXIS FLAG IS NOT SET THE FINAL CDU ANGLES ARE
|
||||
# CALCULATED (VECPOINT).
|
||||
#
|
||||
# 2. THE FDAI BALL ANGLES (NOUN 18) ARE CALCULATED (BALLANGS).
|
||||
#
|
||||
# 3. REQUEST FLASHING DISPLAY V50 N18 PLEASE PERFORM AUTO MANEUVER.
|
||||
#
|
||||
# 4. IF PRIORITY DISPLAY FLAG IS SET DO A PHASECHANGE. THEN AWAIT
|
||||
# ASTRONAUT RESPONSE.
|
||||
#
|
||||
# 5. DISPLAY RESPONSE RETURNS.
|
||||
#
|
||||
# A. ENTER -- RESET 3-AXIS FLAG AND RETURN TO CLIENT.
|
||||
#
|
||||
# B. TERMINATE -- IF IN P00 GO TO STEP 5A. OTHERWISE CHECK IF R61 IS
|
||||
# THE CALLING PROGRAM. IF IN R61 AN EXIT IS MADE TO GOTOV56. IF
|
||||
# NOT IN R61 AN EXIT IS DONE VIA GOTOP00H.
|
||||
#
|
||||
# C. PROCEED -- CONTINUE WITH PROGRAM AT STEP 6.
|
||||
#
|
||||
# 6. IF THE 3-AXISFLAG IS NOT SET, THE FINAL CDU ANGLES ARE CALCULATED
|
||||
# (VECPOINT).
|
||||
#
|
||||
# 7. THE FDAI BALL ANGLES (NOUN 18) ARE CALCULATED (BALLANGS).
|
||||
#
|
||||
# 8. IF THE G+N SWITCH IS NOT SET GO BACK TO STEP 3.
|
||||
#
|
||||
# 9. IF THE AUTO SWITCH IS NOT SET GO BACK TO STEP 3.
|
||||
#
|
||||
# 10. NON-FLASHING DISPLAY V06N18 (FDAI ANGLES).
|
||||
#
|
||||
# 11. DO A PHASE-CHANGE.
|
||||
#
|
||||
# 12. DO A MANEUVER CALCULATION AND ICDU DRIVE ROUTINE TO ACHIEVE FINAL
|
||||
# GIMBAL ANGLES (GOMANUR).
|
||||
#
|
||||
# 13. AT END OF MANEUVER TO TO STEP 3.
|
||||
#
|
||||
# IF SATISFACTORY MANEUVER STEP 5A EXITS R60.
|
||||
# FOR FURTHER ADJUSTMENT OF THE VEHICLE ATTITUDE ABOUT THE
|
||||
# DESIRED VECTOR, THE ROUTINE MAY BE PERFORMED AGAIN STARTING AT
|
||||
# Page 473
|
||||
# STEP 5C.
|
||||
#
|
||||
# CALLING SEQUENCE: TC BANKCALL
|
||||
# CADR R60LEM
|
||||
#
|
||||
# ERASABLE INITIALIZATION REQUIRED: SCAXIS, POINTVSM (FOR VECPOINT)
|
||||
# 3AXISFLG.
|
||||
#
|
||||
# SUBROUTINES CALLED: VECPOINT, BALLANGS, GOPERF24, LINUS, GODSPER,
|
||||
# GOMANUR, DOWNFLAG, PHASCHNG, UPFLAG
|
||||
#
|
||||
# NORMAL EXIT MODES: CAE TEMPR60 (CALLER'S RETURN ADDRESS)
|
||||
# TC BANKJUMP
|
||||
#
|
||||
# ALARMS: NONE
|
||||
#
|
||||
# OUTPUT: NONE
|
||||
#
|
||||
# DEBRIS: CPHI, CTHETA, CPSI, 3AXISFLG, TBASE2
|
||||
|
||||
BANK 34
|
||||
SETLOC MANUVER
|
||||
BANK
|
||||
|
||||
EBANK= TEMPR60
|
||||
|
||||
COUNT* $$/R06
|
||||
R60LEM TC MAKECADR
|
||||
TS TEMPR60
|
||||
|
||||
REDOMANN CAF 3AXISBIT
|
||||
MASK FLAGWRD5 # IS 3-AXIS FLAG SET
|
||||
CCS A
|
||||
TCF TOBALL # YES
|
||||
TC INTPRET
|
||||
CALL
|
||||
VECPOINT # TO COMPUTE FINAL ANGLES
|
||||
STORE CPHI # STORE FINAL ANGLES -- CPHI, CTHETA, CPSI
|
||||
EXIT
|
||||
|
||||
TOBALL TC BANKCALL
|
||||
CADR BALLANGS # TO CONVERT ANGLES TO FDAI
|
||||
TOBALLA CAF V06N18
|
||||
TC BANKCALL
|
||||
CADR GOPERF2R # DISPLAY PLEASE PERFORM AUTO MANEUVER
|
||||
TC R61TEST
|
||||
TC REDOMANC # PROCEED
|
||||
TC ENDMANU1 # ENTER I.E., FINISHED WITH R60
|
||||
# Page 474
|
||||
TC CHKLINUS # TO CHECK FOR PRIORITY DISPLAYS
|
||||
TC ENDOFJOB
|
||||
|
||||
REDOMANC CAF 3AXISBIT
|
||||
MASK FLAGWRD5 # IS 3-AXIS FLAG SET
|
||||
CCS A
|
||||
TCF TOBALLC # YES
|
||||
TC INTPRET
|
||||
CALL
|
||||
VECPOINT # TO COMPUTE FINAL ANGLES
|
||||
STORE CPHI # STORE ANGLES
|
||||
EXIT
|
||||
|
||||
TOBALLC TC BANKCALL
|
||||
CADR BALLANGS # TO CONVERT ANGLES TO FDAI
|
||||
TC G+N,AUTO # CHECK AUTO MODE
|
||||
CCS A
|
||||
TCF TOBALLA # NOT AUTO, GO REREQUEST AUTO MANEUVER.
|
||||
|
||||
AUTOMANV CAF V06N18 # STATIC DISPLAY DURING AUTO MANEUVER
|
||||
TC BANKCALL
|
||||
CADR GODSPR
|
||||
TC CHKLINUS # TO CHECK FOR PRIORITY DISPLAYS
|
||||
|
||||
STARTMNV TC BANKCALL # PERFORM MANEUVER VIA KALCMANU
|
||||
CADR GOMANUR
|
||||
|
||||
ENDMANUV TCF TOBALLA # FINISHED MANEUVER.
|
||||
ENDMANU1 TC DOWNFLAG # RESET 3-AXIS FLAG
|
||||
ADRES 3AXISFLG
|
||||
CAE TEMPR60
|
||||
TC BANKJUMP
|
||||
|
||||
CHKLINUS CS FLAGWRD4
|
||||
MASK PDSPFBIT # IS PRIORITY DISPLAY FLAG SET?
|
||||
CCS A
|
||||
TC Q # NO -- EXIT
|
||||
CA Q
|
||||
TS MPAC +2 # SAVE RETURN
|
||||
CS THREE # OBTAIN LOCATION FOR RESTART
|
||||
AD BUF2 # HOLD Q OF LAST DISPLAY
|
||||
TS TBASE2
|
||||
|
||||
TC PHASCHNG
|
||||
OCT 00132
|
||||
|
||||
CAF BIT7
|
||||
TC LINUS # GO SET BITS FOR PRIORITY DISPLAY
|
||||
TC MPAC +2
|
||||
|
||||
# Page 475
|
||||
RELINUS CAF PRIO26 # RESTORE ORIGINAL PRIORITY
|
||||
TC PRIOCHNG
|
||||
|
||||
CAF TRACKBIT # DON'T CONTINUE R60 UNLESS TRACKFLAG ON.
|
||||
MASK FLAGWRD1
|
||||
CCS A
|
||||
TCF RER60
|
||||
|
||||
CAF RNDVZBIT # IS IT P20?
|
||||
MASK FLAGWRD0
|
||||
CCS A
|
||||
TC +4 # YES
|
||||
TC PHASCHNG # NO, MUST BE P25, SET 2.11 SPOT
|
||||
OCT 40112
|
||||
|
||||
TC ENDOFJOB
|
||||
|
||||
TC PHASCHNG # SET 2.7 SPOT FOR P20
|
||||
OCT 40072
|
||||
|
||||
TC ENDOFJOB
|
||||
|
||||
RER60 TC UPFLAG # SET PRIO DISPLAY FLAG AFTER RESTART
|
||||
ADRES PDSPFLAG
|
||||
|
||||
TC TBASE2
|
||||
|
||||
R61TEST CA MODREG # IF WE ARE IN P00 IT MUST BE V49 OR V89
|
||||
EXTEND
|
||||
BZF ENDMANU1 # THUS WE GO TO ENDEXT VIA USER
|
||||
|
||||
CA FLAGWRD4 # ARE WE IN R61 (P20 OR P25)
|
||||
MASK PDSPFBIT
|
||||
EXTEND
|
||||
BZF GOTOP00H # NO
|
||||
TC GOTOV56 # YES
|
||||
|
||||
BIT14+7 OCT 20100
|
||||
OCT203 OCT 203
|
||||
V06N18 VN 0618
|
||||
|
||||
# SUBROUTINE TO CHECK FOR G+N CONTROL, AUTO STABILIZATION
|
||||
#
|
||||
# RETURNS WITH C(A) = + IF NOT SET FOR G+N, AUTO
|
||||
# RETURNS WITH C(A) = +0 IF SWITCHES ARE SET
|
||||
|
||||
G+N,AUTO EXTEND
|
||||
READ CHAN30
|
||||
MASK BIT10
|
||||
CCS A
|
||||
TC Q # NOT IN G+N C(A) = +
|
||||
# Page 476
|
||||
ISITAUTO EXTEND # CHECK FOR AUTO MODE
|
||||
READ CHAN31
|
||||
MASK BIT14
|
||||
TC Q # (+) = NOT IN AUTO, (+0) = AOK
|
||||
|
||||
# Page 477
|
||||
# PROGRAM DESCRIPTION BALLANGS
|
||||
# MOD NO. LOG SECTION R60,R62
|
||||
#
|
||||
# WRITTEN BY RAMA M. AIYAWAR
|
||||
#
|
||||
# FUNCTIONAL DESCRIPTION
|
||||
#
|
||||
# COMPUTES LM FDAI BALL DISPLAY ANGLES
|
||||
#
|
||||
# CALLING SEQUENCE
|
||||
#
|
||||
# TC BALLANGS
|
||||
#
|
||||
# NORMAL EXIT MODE
|
||||
#
|
||||
# TC BALLEXIT # (SAVED Q)
|
||||
#
|
||||
# ALARM OR EXIT MODE: NIL
|
||||
#
|
||||
# SUBROUTINES CALLED
|
||||
#
|
||||
# CD*TR*G
|
||||
# ARCTAN
|
||||
#
|
||||
# INPUT
|
||||
#
|
||||
# CPHI,CTHETA,CPSI ARE THE ANGLES CORRESPONDING TO AOG, AIG, AMG. THEY ARE
|
||||
# SP,2'S COMPLEMENT SCALED TO HALF REVOLUTION.
|
||||
#
|
||||
# OUTPUT
|
||||
#
|
||||
# FDAIX, FDAIY, FDAIZ ARE THE REQUIRED BALL ANGLES SCALED TO HALF REVOLUTION
|
||||
# SP,2'S COMPEMENT.
|
||||
#
|
||||
# THESE ANGLES WILL BE DISPLAYED AS DEGREES AND HUNDREDTHS, IN THE ORDER ROLL, PITCH, YAW, USING NOUNS 18 & 19.
|
||||
#
|
||||
# ERASABLE INITIALIZATION REQUIRED
|
||||
#
|
||||
# CPHI, CTHETA, CPSI EACH AN SP REGISTER
|
||||
#
|
||||
# DEBRIS
|
||||
#
|
||||
# A,L,Q,MPAC,SINCDU,COSCDU,PUSHLIST,BALLEXIT
|
||||
#
|
||||
# NOMENCLATURE: CPHI, CTHETA, & CPSI REPRESENT THE OUTER, INNER, AND MIDDLE GIMBAL ANGLES, RESPECTIVELY; OR
|
||||
# EQUIVALENTLY, CDUX, CDUY, AND CDUZ.
|
||||
#
|
||||
# NOTE: ARCTAN CHECKS FOR OVERFLOW AND SHOULD BE ABLE TO HANDLE ANY SINGULARITIES.
|
||||
|
||||
SETLOC BAWLANGS
|
||||
BANK
|
||||
|
||||
COUNT* $$/BALL
|
||||
BALLANGS TC MAKECADR
|
||||
TS BALLEXIT
|
||||
CA CPHI
|
||||
# Page 478
|
||||
TS CDUSPOT +4
|
||||
CA CTHETA
|
||||
TS CDUSPOT
|
||||
CA CPSI
|
||||
TS CDUSPOT +2
|
||||
|
||||
TC INTPRET
|
||||
SETPD CALL
|
||||
0D
|
||||
CD*TR*G
|
||||
|
||||
DLOAD DMP
|
||||
SINCDUX # SIN (OGA)
|
||||
COSCDUZ # COS (MGA)
|
||||
|
||||
SL1 DCOMP # SCALE
|
||||
ARCSIN PDDL # YAW = ARCSIN(-SXCZ) INTO 0 PD
|
||||
SINCDUZ
|
||||
STODL SINTH # (SINTH = 18D IN PD)
|
||||
COSCDUZ
|
||||
DMP SL1 # RESCALE
|
||||
COSCDUX
|
||||
STCALL COSTH # (COSTH = 16D IN PD)
|
||||
ARCTAN
|
||||
PDDL DMP # ROLL = ARCTAN(SZ/CZCX) INTO 2 PD
|
||||
SINCDUZ
|
||||
SINCDUX
|
||||
SL2 PUSH # SXSZ INTO 4 PD
|
||||
DMP PDDL # SXSZCY INTO 4 PD
|
||||
COSCDUY
|
||||
DMP PDDL # SXSZSY INTO 6 PD
|
||||
SINCDUY
|
||||
COSCDUX
|
||||
DMP SL1 # CXCY
|
||||
COSCDUY
|
||||
DSU STADR # PULL UP FORM 6 PD
|
||||
STODL COSTH # COSTH = CXCY - SXSZSY
|
||||
SINCDUY
|
||||
DMP SL1
|
||||
COSCDUX # CXSY
|
||||
DAD STADR # PULL UP FORM 4 PD
|
||||
STCALL SINTH # SINTH = CXSY + SXSZCY
|
||||
ARCTAN # RETURNS WITH D(MPAC) = PITCH
|
||||
PDDL VDEF # PITCH INTO 2 PD, ROLL INTO MPAC FROM 2 PD
|
||||
RTB # VDEF MAKES V(MPAC) = ROLL, PITCH, YAW
|
||||
V1STO2S
|
||||
STORE FDAIX # MODE IS TP
|
||||
EXIT
|
||||
|
||||
ENDBALL CA BALLEXIT
|
||||
|
||||
# Page 479
|
||||
TC BANKJUMP
|
||||
|
||||
# Page 480
|
||||
# PROGRAM DESCRIPTION -- VECPOINT
|
||||
#
|
||||
# THIS INTERPRETIVE SUBROUTINE MAY BE USED TO POINT A SPACECRAFT AXIS IN A DESIRED DIRECTION. THE AXIS
|
||||
# TO BE POINTED MUST APPEAR AS A HALF UNIT DOUBLE PRECISION VECTOR IN SUCCESSIVE LOCATIONS OF ERASABLE MEMORY
|
||||
# BEGINNING WITH THE LOCATION CALLED SCAXIS. THE COMPONENTS OF THIS VECTOR ARE GIVEN IN SPACECRAFT COORDINATES.
|
||||
# THE DIRECTION IN WHICH THIS AXIS IS TO BE POINTED MUST APPEAR AS A HALF UNIT DOUBLE PRECISION VECTOR IN
|
||||
# SUCCESSIVE LOCATIONS OF ERASABLE MEMORY BEGINNING WITH THE ADDRESS CALLED POINTVSM. THE COMPONENTS OF THIS
|
||||
# VECTOR ARE GIVEN IN STABLE MEMBER COORDINATES. WITH THIS INFORMTION VECPOINT COMPUTES A SET OF THREE GIMBAL
|
||||
# ANGLES (2'S COMPLEMENT) CORRESPONDING TO THE CROSS-PRODUCT ROTATION BETWEEN SCAXIS AND POINTVSM AND STORES THEM
|
||||
# IN T(MPAC) BEFORE RETURNING TO THE CALLER.
|
||||
#
|
||||
# THIS ROTATION, HOWEVER, MAY BRING THE S/C INTO GIMBAL LOCK. WHEN POINTING A VECTOR IN THE Y-Z PLANE,
|
||||
# THE TRANSPONDER AXIS, OR THE AOT FOR THE LEM, THE PROGRAM WILL CORRECT THIS PROBLEM BY ROTATING THE CROSS-
|
||||
# PRODUCT ATTITUDE ABOUT POINTVSM BY A FIXED AMOUNT SUFFICIENT TO ROTATE THE DESIRED S/C ATTITUDE OUT OF GIMBAL
|
||||
# LOCK. IF THE AXIS TO BE POINTED IS MORE THAN 40.6 DEGREES BUT LESS THAN 60.5 DEG FROM THE +X (OR -X) AXIS,
|
||||
# THE ADDITIONAL ROTATION TO AVOID GIMBAL LOCK IS 35 DEGREES. IF THE AXIS IS MORE THAN 60.5 DEGREES FROM +X (OR -X)
|
||||
# THE ADDITIONAL ROTATION IS 35 DEGREES. THE GIMBAL ANGLES CORRESPONDING TO THIS ATTITUDE ARE THEN COMPUTED AND
|
||||
# STORED AS 2'S COMPLEMENT ANGLES IN T(MPAC) BEFORE RETURNING TO THE CALLER.
|
||||
#
|
||||
# WHEN POINTING THE X-AXIS, OR THE THRUST VECTOR, OR ANY VECTOR WITHIN 40.6 DEG OF THE X-AXIS, VECPOINT
|
||||
# CANNOT CORRECT FOR A CROSS-PRODUCT ROTATION INTO GIMBAL LOCK. IN THIS CASE A PLATFORM REALIGNMENT WOULD BE
|
||||
# REQUIRED TO POINT THE VECTOR IN THE DESIRED DIRECTION. AT PRESENT NO INDICATION IS GIVEN FOR THIS SITUATION
|
||||
# EXCEPT THAT THE FINAL MIDDLE GIMBAL ANGLE IN MPAC +2 IS GREATER THAN 59 DEGREES.
|
||||
#
|
||||
# CALLING SEQUENCE
|
||||
#
|
||||
# 1) LOAD SCAXIS, POINTVSM
|
||||
# 2) CALL
|
||||
# VECPOINT
|
||||
#
|
||||
# RETURNS WITH
|
||||
#
|
||||
# 1) DESIRED OUTER GIMBAL ANGLE IN MPAC
|
||||
# 2) DESIRED INNER GIMBAL ANGLE IN MPAC +1
|
||||
# 3) DESIRED MIDDLE GIMBAL ANGLE IN MPAC +2
|
||||
#
|
||||
# ERASABLES USED --
|
||||
#
|
||||
# 1) SCAXIS 6
|
||||
# 2) POINTVSM 6
|
||||
# 3) MIS 18
|
||||
# 4) DEL 18
|
||||
# 5) COF 6
|
||||
# 6) VECQTEMP 1
|
||||
# 7) ALL OF VAC AREA 43
|
||||
#
|
||||
# TOTAL 99
|
||||
|
||||
SETLOC VECPT
|
||||
BANK
|
||||
# Page 481
|
||||
COUNT* $$/VECPT
|
||||
|
||||
EBANK= BCDU
|
||||
|
||||
VECPNT1 STQ BOV # THIS ENTRY USES DESIRED CDUS
|
||||
VECQTEMP # NOT PRESENT -- ENTER WITH CDUD'S IN MPAC
|
||||
VECPNT2
|
||||
VECPNT2 AXC,2 GOTO
|
||||
MIS
|
||||
STORANG
|
||||
VECPOINT STQ BOV # SAVE RETURN ADDRESS
|
||||
VECQTEMP
|
||||
VECLEAR # AND CLEAR OVFIND
|
||||
VECLEAR AXC,2 RTB
|
||||
MIS # READ THE PRESENT CDU ANGLES AND
|
||||
READCDUK # STORE THEM IN PD25, 26, 27
|
||||
STORANG STCALL 25D
|
||||
CDUTODCM # S/C AXES TO STABLE MEMBER AXES (MIS)
|
||||
VLOAD VXM
|
||||
POINTVSM # RESOLVE THE POINTING DIRECTION VF INTO
|
||||
MIS # INITIAL S/C AXES (VF = POINTVSM)
|
||||
UNIT
|
||||
STORE 28D
|
||||
# PD 28 29 30 31 32 33
|
||||
VXV UNIT # TAKE THE CROSS PRODUCT VF X VI
|
||||
SCAXIS # WHERE VI = SCAXIS
|
||||
BOV VCOMP
|
||||
PICKAXIS
|
||||
STODL COF # CHECK MAGNITUDE
|
||||
36D # OF CROSS PRODUCT
|
||||
DSU BMN # VECTOR, IF LESS
|
||||
DPB-14 # THAN B-14 ASSUME
|
||||
PICKAXIS # UNIT OPERATION
|
||||
VLOAD DOT # INVALID.
|
||||
SCAXIS
|
||||
28D
|
||||
SL1 ARCCOS
|
||||
COMPMATX CALL # NOW COMPUTE THE TRANSFORMATION FROM
|
||||
DELCOMP # FINAL S/C AXES TO INITIAL S/C AXES MFI
|
||||
AXC,1 AXC,2
|
||||
MIS # COMPUTE THE TRANSFORMATION FROM FINAL
|
||||
KEL # S/C AXES TO STABLE MEMBER AXES
|
||||
CALL # MFS = MIS MFI
|
||||
MXM3 # (IN PD LIST)
|
||||
|
||||
DLOAD ABS
|
||||
6 # MFS6 = SIN(CPSI) $2
|
||||
DSU BMN
|
||||
SINGIMLC # = SIN(59 DEGS) $2
|
||||
FINDGIMB # /CPSI/ LESS THAN 59 DEGS.
|
||||
# Page 482
|
||||
# I.E., DESIRED ATTITUDE NOT IN GIMBAL LOCK
|
||||
|
||||
DLOAD ABS # CHECK TO SEE IF WE ARE POINTING
|
||||
SCAXIS # THE THRUST AXIS
|
||||
DSU BPL
|
||||
SINVEC1 # SIN 49.4 DEGS $2
|
||||
FINDGIMB # IF SO, WE ARE TRYING TO POINT IT INTO
|
||||
VLOAD # GIMBAL LOCK, ABORT COULD GO HERE
|
||||
STADR
|
||||
STOVL MIS +12D
|
||||
STADR # STORE MFS (IN PD LIST) IN MIS
|
||||
STOVL MIS +6
|
||||
STADR
|
||||
STOVL MIS
|
||||
MIS +6 # INNER GIMBAL AXIS IN FINAL S/C AXES
|
||||
BPL VCOMP # LOCATE THE IG AXIS DIRECTION CLOSEST TO
|
||||
IGSAMEX # FINAL X S/C AXIS
|
||||
|
||||
IGSAMEX VXV BMN # FIND THE SHORTEST WAY OF ROTATING THE
|
||||
SCAXIS # S/C OUT OF GIMBAL LOCK BY A ROTATION
|
||||
U=SCAXIS # ABOUT +- SCAXIS, I.E., IF (IG (SGN MFS3)
|
||||
# X SCAXIS . XF) LESS THAN 0, U = SCAXIS
|
||||
# OTHERWISE U = -SCAXIS.
|
||||
|
||||
VLOAD VCOMP
|
||||
SCAXIS
|
||||
STCALL COF # ROTATE ABOUT -SCAXIS
|
||||
CHEKAXIS
|
||||
U=SCAXIS VLOAD
|
||||
SCAXIS
|
||||
STORE COF # ROTATE ABOUT + SCAXIS
|
||||
CHEKAXIS DLOAD ABS
|
||||
SCAXIS # SEE IF WE ARE POINTING THE AOT
|
||||
DSU BPL
|
||||
SINVEC2 # SIN 29.5 DEGS $2
|
||||
PICKANG1 # IF SO, ROTATE 50 DEGS ABOUT +- SCAXIS
|
||||
DLOAD GOTO # IF NOT, MUST BE POINTING THE TRANSPONDER
|
||||
VECANG2 # OR SOME VECTOR IN THE Y, OR Z PLANE
|
||||
COMPMFSN # IN THIS CASE ROTATE 35 DEGS TO GET OUT
|
||||
# OF GIMBAL LOCK (VECANG2 $360)
|
||||
PICKANG1 DLOAD
|
||||
VECANG1 # = 50 DEGS. $360
|
||||
COMPMFSN CALL
|
||||
DELCOMP # COMPUTE THE ROTATION ABOUT SCAXIS TO
|
||||
AXC,1 AXC,2 # BRING MFS OUT OF GIMBAL LOCK
|
||||
MIS
|
||||
KEL
|
||||
CALL # COMPUTE THE NEW TRANSFORMATION FROM
|
||||
MXM3 # DESIRED S/C AXES TO STABLE MEMBER AXES
|
||||
# WHICH WILL ALIGN VI WITH VF AND AVOID
|
||||
# Page 483
|
||||
# GIMBAL LOCK
|
||||
FINDGIMB AXC,1 CALL
|
||||
0 # EXTRACT THE COMMANDED CDU ANGLES FROM
|
||||
DCMTOCDU # THIS MATRIX
|
||||
RTB SETPD
|
||||
V1STO2S # CONVERT TO 2'S COMPLEMENT
|
||||
0
|
||||
GOTO
|
||||
VECQTEMP # RETURN TO CALLER
|
||||
|
||||
PICKAXIS VLOAD DOT # IF VF X VI = 0, FIND VF, VI
|
||||
28D
|
||||
SCAXIS
|
||||
BMN TLOAD
|
||||
ROT180
|
||||
25D
|
||||
GOTO # IF VF = VI, CDU DESIRED = PRESENT CDU
|
||||
VECQTEMP # PRESENT CDU ANGLES
|
||||
|
||||
BANK 35
|
||||
SETLOC MANUVER1
|
||||
BANK
|
||||
ROT180 VLOAD VXV # IF VF, VI ANTIPARALLEL, 180 DEG ROTATION
|
||||
MIS +6 # IS REQUIRED. Y STABLE MEMBER AXIS IN
|
||||
HIDPHALF # INITIAL S/C AXES.
|
||||
UNIT VXV # FIND Y(SM) X X(I)
|
||||
SCAXIS # FIND UNIT(VI X UNIT(Y(SM) X X(I)))
|
||||
UNIT BOV # I.E., PICK A VECTOR IN THE PLANE OF X(I),
|
||||
PICKX # Y(SM) PERPENDICULAR TO VI
|
||||
STODL COF
|
||||
36D # CHECK MAGNITUDE
|
||||
DSU BMN # OF THIS VECTOR.
|
||||
DPB-14 # IF LESS THAN B-14,
|
||||
PICKX # PICK X-AXIS.
|
||||
VLOAD
|
||||
COF
|
||||
XROT STODL COF
|
||||
HIDPHALF
|
||||
GOTO
|
||||
COMPMATX
|
||||
PICKX VLOAD GOTO # PICK THE XAXIS IN THIS CASE
|
||||
HIDPHALF
|
||||
XROT
|
||||
SINGIMLC 2DEC .4285836003 # = SIN(59) $2
|
||||
|
||||
SINVEC1 2DEC .3796356537 # = SIN(49.4) $2
|
||||
|
||||
SINVEC2 2DEC .2462117800 # = SIN(29.5) $2
|
||||
|
||||
VECANG1 2DEC .1388888889 # = 50 DEGREES $360
|
||||
# Page 484
|
||||
VECANG2 2DEC .09722222222 # = 35 DEGREES $360
|
||||
|
||||
1BITDP OCT 0 # KEEP THIS BEFORE DPB(-14) ************
|
||||
DPB-14 OCT 00001
|
||||
OCT 00000
|
||||
|
||||
# Page 485
|
||||
# ROUTINE FOR INITIATING AUTOMATIC MANEUVER VIA KEYBOARD (V49)
|
||||
|
||||
BANK 34
|
||||
SETLOC R62
|
||||
BANK
|
||||
EBANK= BCDU
|
||||
|
||||
COUNT* $$/R62
|
||||
|
||||
R62DISP EQUALS R62FLASH
|
||||
|
||||
R62FLASH CAF V06N22 # FLASH V06N22 AND
|
||||
TC BANKCALL # ICDU ANGLES
|
||||
CADR GOFLASH
|
||||
TCF ENDEXT # TERMINATE
|
||||
TCF GOMOVE # PROCEED
|
||||
TCF R62FLASH # ENTER
|
||||
|
||||
# ASTRONAUT MAY LOAD NEW ICDUS AT THIS
|
||||
# POINT.
|
||||
GOMOVE TC UPFLAG # SET FOR 3-AXIS MANEUVER
|
||||
ADRES 3AXISFLG
|
||||
|
||||
TC BANKCALL
|
||||
CADR R60LEM
|
||||
TCF ENDEXT # END R62
|
||||
|
325
Luminary099/RESTARTS_ROUTINE.agc
Normal file
325
Luminary099/RESTARTS_ROUTINE.agc
Normal file
@ -0,0 +1,325 @@
|
||||
# Copyright: Public domain.
|
||||
# Filename: RESTARTS_ROUTINE.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: Onno Hommes <ohommes@cmu.edu>.
|
||||
# Website: www.ibiblio.org/apollo.
|
||||
# Pages: 1303-1309
|
||||
# Mod history: 2009-05-27 OH Transcribed from page images.
|
||||
#
|
||||
# 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 1303
|
||||
BANK 01
|
||||
SETLOC RESTART
|
||||
BANK
|
||||
|
||||
EBANK= PHSNAME1 # GOPROG MUST SWITCH TO THIS EBANK
|
||||
|
||||
COUNT* $$/RSROU
|
||||
RESTARTS CA MPAC +5 # GET GROUP NUMBER -1
|
||||
DOUBLE # SAVE FOR INDEXING
|
||||
TS TEMP2G
|
||||
|
||||
CA PHS2CADR # SET UP EXIT IN CASE IT IS AN EVEN
|
||||
TS TEMPSWCH # TABLE PHASE
|
||||
|
||||
CA RTRNCADR # TO SAVE TIME ASSUME IT WILL GET NEXT
|
||||
TS GOLOC +2 # GROUP AFTER THIS
|
||||
|
||||
CA TEMPPHS
|
||||
MASK OCT1400
|
||||
CCS A # IS IT A VARIABLE OR TABLE RESTART
|
||||
TCF ITSAVAR # IT'S A VARIABLE RESTART
|
||||
|
||||
GETPART2 CCS TEMPPHS # IS IT AN X.1 RESTART
|
||||
CCS A
|
||||
TCF ITSATBL # NO, IT'S A TABLE RESTART
|
||||
|
||||
CA PRIO14 # IT IS AN X.1 RESTART, THEREFORE START
|
||||
TC FINDVAC # THE DISPLAY RESTART JOB
|
||||
EBANK= LST1
|
||||
2CADR INITDSP
|
||||
|
||||
TC RTRNCADR # FINISHED WITH THIS GROUP, GET NEXT ONE
|
||||
|
||||
ITSAVAR MASK OCT1400 # IS IT TYPE B ?
|
||||
CCS A
|
||||
TCF ITSLIKEB # YES, IT IS TYPE B
|
||||
|
||||
EXTEND # STORES THE JOB (OR TASK) 2CADR FOR EXIT
|
||||
NDX TEMP2G
|
||||
DCA PHSNAME1
|
||||
DXCH GOLOC
|
||||
|
||||
CA TEMPPHS # SEE IF THIS IS A JOB, TASK, OR A LONGCALL
|
||||
MASK OCT7
|
||||
AD MINUS2
|
||||
CCS A
|
||||
TCF ITSLNGCL # IT'S A LONGCALL
|
||||
|
||||
RTRNCADR TC SWRETURN # CAN'T GET HERE.
|
||||
# Page 1304
|
||||
TCF ITSAWAIT
|
||||
|
||||
TCF ITSAJOB # IT'S A JOB
|
||||
|
||||
ITSAWAIT CA WTLTCADR # SET UP WAITLIST CALL
|
||||
TS GOLOC -1
|
||||
|
||||
NDX TEMP2G # DIRECTLY STORED
|
||||
CA PHSPRDT1
|
||||
TIMETEST CCS A # IS IT AN IMMEDIATE RESTART
|
||||
INCR A # NO.
|
||||
TCF FINDTIME # FIND OUT WHEN IT SHOULD BEGIN
|
||||
|
||||
TCF ITSINDIR # STORED INDIRECTLY
|
||||
|
||||
TCF IMEDIATE # IT WANTS AN IMMEDIATE RESTART
|
||||
|
||||
# ***** THIS MUST BE IN FIXED FIXED *****
|
||||
|
||||
BLOCK 02
|
||||
SETLOC FFTAG2
|
||||
BANK
|
||||
|
||||
COUNT* $$/RSROU
|
||||
ITSINDIR LXCH GOLOC +1 # GET THE CORRECT E BANK IN CASE THIS IS
|
||||
LXCH BB # SWITCHED ERASABLE
|
||||
|
||||
NDX A # GET THE TIME INDIRECTLY
|
||||
CA 1
|
||||
|
||||
LXCH BB # RESTORE THE BB AND GOLOC
|
||||
LXCH GOLOC +1
|
||||
|
||||
TCF FINDTIME # FIND OUT WHEN IT SHOULD BEGIN
|
||||
|
||||
# ***** YOU MAY RETURN TO SWITCHED FIXED *****
|
||||
|
||||
BANK 01
|
||||
SETLOC RESTART
|
||||
BANK
|
||||
|
||||
COUNT* $$/RSROU
|
||||
FINDTIME COM # MAKE NEGATIVE SINCE IT WILL BE SUBTRACTED
|
||||
TS L # AND SAVE
|
||||
NDX TEMP2G
|
||||
CS TBASE1
|
||||
EXTEND
|
||||
SU TIME1
|
||||
CCS A
|
||||
COM
|
||||
# Page 1305
|
||||
AD OCT37776
|
||||
AD ONE
|
||||
AD L
|
||||
CCS A
|
||||
CA ZERO
|
||||
TCF +2
|
||||
TCF +1
|
||||
IMEDIATE AD ONE
|
||||
TC GOLOC -1
|
||||
ITSLIKEB CA RTRNCADR # TYPE B, SO STORE RETURN IN
|
||||
TS TEMPSWCH # TEMPSWCH IN CASE OF AN EVEN PHASE
|
||||
|
||||
CA PRT2CADR # SET UP EXIT TO GET TABLE PART OF THIS
|
||||
TS GOLOC +2 # VARIABLE TYPE OF PHASE
|
||||
|
||||
CA TEMPPHS # MAKE THE PHASE LOOK RIGHT FOR THE TABLE
|
||||
MASK OCT177 # PART OF THIS VARIABLE PHASE
|
||||
TS TEMPPHS
|
||||
|
||||
EXTEND
|
||||
NDX TEMP2G # OBTAIN THE JOB'S 2CADR
|
||||
DCA PHSNAME1
|
||||
DXCH GOLOC
|
||||
|
||||
ITSAJOB NDX TEMP2G # NOW ADD THE PRIORITY AND LET'S GO
|
||||
CA PHSPRDT1
|
||||
CHKNOVAC TS GOLOC -1 # SAVE PRIO UNTIL WE SEE IF IT'S
|
||||
EXTEND # A FINDVAC OR A NOVAC
|
||||
BZMF ITSNOVAC
|
||||
|
||||
CAF FVACCADR # POSITIVE, SET UP FINDVAC CALL.
|
||||
XCH GOLOC -1 # PICK UP PRIO
|
||||
TC GOLOC -1 # AND GO
|
||||
|
||||
ITSNOVAC CAF NOVACADR # NEGATIVE,
|
||||
XCH GOLOC -1 # SET UP NOVAC CALL,
|
||||
COM # CORRECT PRIO,
|
||||
TC GOLOC -1 # AND GO
|
||||
|
||||
ITSATBL TS CYR # FIND OUT IF THE PHASE IS ODD OR EVEN
|
||||
CCS CYR
|
||||
TCF +1 # IT'S EVEN
|
||||
TCF ITSEVEN
|
||||
|
||||
CA RTRNCADR # IN CASE THIS IS THE SECOND PART OF A
|
||||
TS GOLOC +2 # TYPE B RESTART, WE NEED PROPER EXIT
|
||||
|
||||
CA TEMPPHS # SET UP POINTER FOR FINDING OUR PLACE IN
|
||||
TS SR # THE RESTART TABLES
|
||||
AD SR
|
||||
# Page 1306
|
||||
NDX TEMP2G
|
||||
AD SIZETAB +1
|
||||
TS POINTER
|
||||
|
||||
CONTBL2 EXTEND # FIND OUT WHAT'S IN THE TABLE
|
||||
NDX POINTER
|
||||
DCA CADRTAB # GET THE 2CADR
|
||||
|
||||
LXCH GOLOC +1 # STORE THE BB INFORMATION
|
||||
|
||||
CCS A # IS IT A JOB OR IT IT TIMED
|
||||
INCR A # POSITIVE, MUST BE A JOB
|
||||
TCF ITSAJOB2
|
||||
|
||||
INCR A # MUST BE EITHER A WAITLIST OR LONGCALL
|
||||
TS GOLOC # LET'S STORE THE CORRECT CADR
|
||||
|
||||
CA WTLTCADR # SET UP OUR EXIT TO WAITLIST
|
||||
TS GOLOC -1
|
||||
|
||||
CA GOLOC +1 # NOW FIND OUT IF IT IS A WAITLIST CALL
|
||||
MASK BIT10 # THIS SHOULD BE ONE IF WE HAVE -BB
|
||||
CCS A # FOR THAT MATTER SO SHOULD BE BITS 9,8,7,
|
||||
# 6,5, AND LAST BUT NOT LEAST (PERHAPS NOT
|
||||
# IN IMPORTANCE ANYWAY. BIT 4
|
||||
TCF ITSWTLST # IT IS A WAITLIST CALL
|
||||
|
||||
NDX POINTER # OBTAIN THE ORIGINAL DELTA T
|
||||
CA PRDTTAB # ADDRESS FOR THIS LONGCALL
|
||||
|
||||
TCF ITSLGCL1 # NOW GO GET THE DELTA TIME
|
||||
|
||||
# ***** THIS MUST BE IN FIXED FIXED *****
|
||||
|
||||
BLOCK 02
|
||||
SETLOC FFTAG2
|
||||
BANK
|
||||
|
||||
COUNT* $$/RSROU
|
||||
ITSLGCL1 LXCH GOLOC +1 # OBTAIN THE CORRECT E BANK
|
||||
LXCH BB
|
||||
LXCH GOLOC +1 # AND PRESERVE OUR E AND F BANKS
|
||||
|
||||
EXTEND # GET THE DELTA TIME
|
||||
NDX A
|
||||
DCA 0
|
||||
|
||||
LXCH GOLOC +1 # RESTORE OUR E AND F BANK
|
||||
LXCH BB # RESTORE THE TASKS E AND F BANKS
|
||||
LXCH GOLOC +1 # AND PRESERVE OUR L
|
||||
# Page 1307
|
||||
TCF ITSLGCL2 # NOT LET'S PROCESS THIS LONGCALL
|
||||
|
||||
# ***** YOU MAY RETURN TO SWITCHED FIXED *****
|
||||
|
||||
BANK 01
|
||||
SETLOC RESTART
|
||||
BANK
|
||||
|
||||
COUNT* $$/RSROU
|
||||
ITSLGCL2 DXCH LONGTIME
|
||||
|
||||
EXTEND # CALCULATE TIME LEFT
|
||||
DCS TIME2
|
||||
DAS LONGTIME
|
||||
EXTEND
|
||||
DCA LONGBASE
|
||||
DAS LONGTIME
|
||||
|
||||
CCS LONGTIME # FIND OUT HOW THIS SHOULD BE RESTARTED
|
||||
TCF LONGCLCL
|
||||
TCF +2
|
||||
TCF IMEDIATE -3
|
||||
CCS LONGTIME +1
|
||||
TCF LONGCLCL
|
||||
NOOP # CAN'T GET HERE ************
|
||||
TCF IMEDIATE -3
|
||||
TCF IMEDIATE
|
||||
|
||||
LONGCLCL CA LGCLCADR # WE WILL GO TO LONGCALL
|
||||
TS GOLOC -1
|
||||
|
||||
EXTEND # PREPARE OUR ENTRY TO LONGCALL
|
||||
DCA LONGTIME
|
||||
TC GOLOC -1
|
||||
|
||||
ITSLNGCL CA WTLTCADR # ASSUME IT WILL GO TO WAITLIST
|
||||
TS GOLOC -1
|
||||
|
||||
NDX TEMP2G
|
||||
CS PHSPRDT1 # GET THE DELTA T ADDRESS
|
||||
|
||||
TCF ITSLGCL1 # NOW GET THE DELTA TIME
|
||||
|
||||
ITSWTLST CS GOLOC +1 # CORRECT THE BBCON INFORMATION
|
||||
TS GOLOC +1
|
||||
|
||||
NDX POINTER # GET THE DT AND FIND OUT IF IT WAS STORED
|
||||
CA PRDTTAB # DIRECTOY OR INDIRECTLY
|
||||
|
||||
TCF TIMETEST # FIND OUT HOW THE TIME IS STORED
|
||||
|
||||
# Page 1308
|
||||
ITSAJOB2 XCH GOLOC # STORE THE CADR
|
||||
|
||||
NDX POINTER # ADD THE PRIORITY AND LET'S GO
|
||||
CA PRDTTAB
|
||||
|
||||
TCF CHKNOVAC
|
||||
|
||||
ITSEVEN CA TEMPSWCH # SET FOR EITHER THE SECOND PART OF THE
|
||||
TS GOLOC +2 # TABLE, OR A RETURN FOR THE NEXT GROUP
|
||||
|
||||
NDX TEMP2G # SET UP POINTER FOR OUR LOCATION WITHIN
|
||||
CA SIZETAB # THE TABLE
|
||||
AD TEMPPHS # THIS MAY LOOK BAD BUT LET'S SEE YOU DO
|
||||
AD TEMPPHS # BETTER IN TIME OR NUMBER OF LOCATIONS
|
||||
AD TEMPPHS
|
||||
TS POINTER
|
||||
|
||||
TCF CONTBL2 # NO PROCESS WHAT IS IN THE TABLE
|
||||
|
||||
PHSPART2 CA THREE # SET THE POINTER FOR THE SECOND HALF OF
|
||||
ADS POINTER # THE TABLE
|
||||
|
||||
CA RTRNCADR # THIS WILL BE OUR LAST TIME THROUGH THE
|
||||
TS GOLOC +2 # EVEN TABLE, SO AFTER IT GET THE NEXT
|
||||
# GROUP
|
||||
TCF CONTBL2 # SO LET'S GET THE SECOND ENTRY IN THE TBL
|
||||
|
||||
TEMPPHS EQUALS MPAC
|
||||
TEMP2G EQUALS MPAC +1
|
||||
POINTER EQUALS MPAC +2
|
||||
TEMPSWCH EQUALS MPAC +3
|
||||
GOLOC EQUALS VAC5 +20D
|
||||
MINUS2 EQUALS NEG2
|
||||
OCT177 EQUALS LOW7
|
||||
|
||||
PHS2CADR GENADR PHSPART2
|
||||
PRT2CADR GENADR GETPART2
|
||||
LGCLCADR GENADR LONGCALL
|
||||
FVACCADR GENADR FINDVAC
|
||||
WTLTCADR GENADR WAITLIST
|
||||
NOVACADR GENADR NOVAC
|
||||
|
||||
|
297
Luminary099/RESTART_TABLES.agc
Normal file
297
Luminary099/RESTART_TABLES.agc
Normal file
@ -0,0 +1,297 @@
|
||||
# Copyright: Public domain.
|
||||
# Filename: RESTART_TABLES.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: 238-243
|
||||
# Mod history: 2009-05-10 SN (Sergio Navarro). Started adapting
|
||||
# from the Luminary131/ file of the same
|
||||
# name, using Luminary099 page images.
|
||||
#
|
||||
# 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 238
|
||||
# RESTART TABLES
|
||||
# --------------
|
||||
#
|
||||
# THERE ARE TWO FORMS OF RESTART TABLES FOR EACH GROUP. THEY ARE KNOWN AS THE EVEN RESTART TABLES AND THE ODD
|
||||
# RESTART TABLES. THE ODD TABLES HAVE ONLY ONE ENTRY OF THREE LOCATIONS WHILE THE EVEN TABLES HAVE TWO ENTRIES
|
||||
# EACH USING THREE LOCATIONS. THE INFORMATION AS TO WHETHER IT IS A JOB, WAITLIST, OR A LONGCALL IS GIVEN BY THE
|
||||
# WAY THINGS ARE PUT IN TO THE TABLES.
|
||||
#
|
||||
# A JOB HAS ITS PRIORITY STORED IN A PRDTTAB OF THE CORRECT PHASE SPOT -- A POSITIVE PRIORITY INDICATES A
|
||||
# FINDVAC JOB, A NEGATIVE PRIORITY A NOVAC. THE 2CADR OF THE JOB IS STORED IN THE CADRTAB.
|
||||
# FOR EXAMPLE,
|
||||
#
|
||||
# 5.7SPOT OCT 23000
|
||||
# 2CADR SOMEJOB
|
||||
#
|
||||
# A RESTART OF GROUP 5 WITH PHASE SEVEN WOULD THEN CAUSE SOMEJOB TO BE RESTARTED AS A FINDVAC WITH PRIORITY 23.
|
||||
#
|
||||
# 5.5SPOT OCT -23000
|
||||
# 2CADR ANYJOB
|
||||
#
|
||||
# HERE A RESTART OF GROUP 5 WITH PHASE 7 WOULD CAUSE ANYJOB TO BE RESTARTED AS A NOVAC WITH PRIORITY 23.
|
||||
# A LONGCALL HAS ITS GENADR OF ITS 2CADR STORED NEGATIVELY AND ITS BBCON STORED POSITIVELY. IN ITS PRDTTAB IS
|
||||
# PLACED THE LOCATION OF A DP REGISTER THAT CONTAINS THE DELTA TIME THAT LONGCALL HAD BEEN ORIGINALLY STARTED
|
||||
# WITH. EXAMPLE,
|
||||
#
|
||||
# 3.6SPOT GENADR DELTAT
|
||||
# -GENADR LONGTASK
|
||||
# BBCON LONGTASK
|
||||
# OCT 31000
|
||||
# 2CADR JOBAGAIN
|
||||
#
|
||||
# THIS WOULD START UP LONGTASK AT THE APPROPRIATE TIME, OR IMMEDIATELY IF THE TIME HAD ALREADY PASSED. IT SHOULD
|
||||
# BE NOTED THAT IF DELTAT IS IN A SWITCHED E BANK, THIS INFORMATION SHOULD BE IN THE BBCON OF THE 2CADR OF THE
|
||||
# TASK. FROM ABOVE, WE SEE THAT THE SECOND PART O THIS PHASE WOULD BE STARTED AS A JOB WITH A PRIORITY OF 31.
|
||||
#
|
||||
# WAITLIST CALLS ARE IDENTIFIED BY THE FCT THAT THEIR 2CADR IS STORED NEGATIVELY. IF PRDTTAB OF THE PHASE SPOT
|
||||
# IS POSITIVE, THEN IT CONTAINS THE DELTA TIME, IF PRDTTAB IS NEGATIVE THEN IT IS THE -GENADR OF AN ERASABLE
|
||||
# IF THE TIME IS STORED INDIRECTLY, THE BBCON MUST CONTAIN THE NECESSARY E BANK INFORMATION IF APPLICABLE. WITH
|
||||
# WAITLIST WE HAVE ONE FURTHER OPTION, IF -0 IS STORED IN PRDTTAB, IT WILL CAUSE AN IMMEDIATE RESTART OF THE
|
||||
# TASK. EXAMPLES,
|
||||
#
|
||||
# OCT 77777 # THIS WILL CAUSE AN IMMEDIATE RESTART
|
||||
# -2CADR ATASK # OF THE TASK :ATASK:
|
||||
#
|
||||
# DEC 200 # IF THE TIME OF THE 2 SECONDS SINCE DUMMY
|
||||
# -2CADR DUMMY # WAS PUT ON THE WAITLIST IS UP, IT WILL BEGIN
|
||||
# # IN 10 MS, OTHERWISE IT WILL BEGIN WHEN
|
||||
# # IT NORMALLY WOULD HAVE BEGUN.
|
||||
# Page 239
|
||||
# -GENADR DTIME # WHERE DTIME CONTAINS THE DELTA TIME
|
||||
# -2CADR TASKTASK # OTHERWISE THIS IS AS ABOVE
|
||||
#
|
||||
# ***** NOW THE TABLES THEMSELVES *****
|
||||
|
||||
BANK 01
|
||||
SETLOC RESTART
|
||||
BANK
|
||||
|
||||
PRDTTAB EQUALS 12000 # USED TO FIND THE PRIORITY OR DELTATIME
|
||||
CADRTAB EQUALS 12001 # THIS AND THE NEXT RELATIVE LOC CONTAIN
|
||||
# RESTART 2CADR
|
||||
|
||||
COUNT* $$/RSTAB # TABLES IN BANK 1.
|
||||
SIZETAB TC 1.2SPOT -12006
|
||||
TC 1.3SPOT -12004
|
||||
TC 2.2SPOT -12006
|
||||
TC 2.3SPOT -12004
|
||||
TC 3.2SPOT -12006
|
||||
TC 3.3SPOT -12004
|
||||
TC 4.2SPOT -12006
|
||||
TC 4.3SPOT -12004
|
||||
TC 5.2SPOT -12006
|
||||
TC 5.3SPOT -12004
|
||||
TC 6.2SPOT -12006
|
||||
TC 6.3SPOT -12004
|
||||
1.2SPOT OCT 21000 # A DUMMY EXAMPLE TO BE REPLACED AS SOON
|
||||
EBANK= STATE
|
||||
2CADR ENDOFJOB # AS THERE IS A LEGITIMATE 1.2SPOT
|
||||
|
||||
DEC 100
|
||||
EBANK= STATE
|
||||
2CADR TASKOVER
|
||||
|
||||
# ANY MORE GROUP 1.EVEN RESTART VALUES SHOULD GO HERE.
|
||||
|
||||
1.3SPOT -GENADR SAVET-30
|
||||
EBANK= DVCNTR
|
||||
-2CADR ULLGTASK
|
||||
|
||||
# ANY MORE GROUP 1.ODD RESTART VALUES SHOULD GO HERE.
|
||||
|
||||
2.2SPOT EQUALS 1.2SPOT
|
||||
|
||||
# ANY MORE GROUP 2.EVEN RESTART VALUES SHOULD GO HERE
|
||||
|
||||
2.3SPOT GENADR 600SECS
|
||||
|
||||
-GENADR STATEINT
|
||||
EBANK= RRECTCSM
|
||||
BBCON STATEINT
|
||||
|
||||
# Page 240
|
||||
2.5SPOT OCT 05000
|
||||
EBANK= RRECTCSM
|
||||
2CADR STATINT1
|
||||
|
||||
2.7SPOT DEC 1500
|
||||
EBANK= LOSCOUNT
|
||||
-2CADR P20LEMC1
|
||||
|
||||
2.11SPOT OCT 14000
|
||||
EBANK= P21TIME
|
||||
2CADR P25LEM1
|
||||
|
||||
2.13SPOT OCT 10000
|
||||
EBANK= LOSCOUNT
|
||||
2CADR RELINUS
|
||||
|
||||
2.15SPOT OCT 26000
|
||||
EBANK= LOSCOUNT
|
||||
2CADR R22RSTRT
|
||||
|
||||
2.17SPOT OCT 77777
|
||||
EBANK= VGPREV
|
||||
-2CADR REDO2.17
|
||||
|
||||
2.21SPOT DEC 25
|
||||
EBANK= DVCNTR
|
||||
-2CADR R10,R11
|
||||
|
||||
# ANY MORE GROUP 2.ODD RESTART VALUES SHOULD GO HERE.
|
||||
|
||||
3.2SPOT EQUALS 1.2SPOT
|
||||
|
||||
# ANY MORE GROUP 3.EVEN RESTART VALUES SHOULD GO HERE
|
||||
|
||||
3.3SPOT -GENADR ZOOMTIME
|
||||
EBANK= DVCNTR
|
||||
-2CADR ZOOM
|
||||
|
||||
3.5SPOT OCT 20000
|
||||
EBANK= TTOGO
|
||||
2CADR S40.13
|
||||
|
||||
# ANY MORE GROUP 3.ODD RESTART VALUES SHOULD GO HERE
|
||||
|
||||
4.2SPOT DEC 2500
|
||||
EBANK= TTOGO
|
||||
|
||||
-2CADR TIG-5
|
||||
|
||||
OCT 77777
|
||||
EBANK= TTOGO
|
||||
# Page 241
|
||||
-2CADR REDO4.2
|
||||
|
||||
# ANY MORE GROUP 4.EVEN RESTART VALUES SHOULD GO HERE
|
||||
|
||||
4.3SPOT OCT 25000
|
||||
EBANK= DVCNTR
|
||||
2CADR GOABORT
|
||||
|
||||
4.5SPOT DEC 50
|
||||
EBANK= TTOGO
|
||||
-2CADR ULLAGOFF
|
||||
|
||||
4.7SPOT DEC 500
|
||||
EBANK= DVCNTR
|
||||
-2CADR TIG-0
|
||||
|
||||
4.11SPOT -GENADR TGO +1
|
||||
EBANK= DVCNTR
|
||||
-2CADR ENGOFTSK
|
||||
|
||||
4.13SPOT OCT 12000
|
||||
EBANK= TRKMKCNT
|
||||
2CADR POSTBURN
|
||||
|
||||
4.15SPOT DEC 500
|
||||
EBANK= TTOGO
|
||||
-2CADR TIG-30
|
||||
|
||||
4.17SPOT OCT 77777
|
||||
EBANK= DVCNTR
|
||||
-2CADR TIG-5
|
||||
|
||||
4.21SPOT OCT 13000
|
||||
EBANK= STAR
|
||||
2CADR R51.1 +1
|
||||
|
||||
4.23SPOT OCT 77777
|
||||
EBANK= DVCNTR
|
||||
-2CADR IGNITION
|
||||
|
||||
4.25SPOT GENADR SAVET-30
|
||||
-GENADR TIG-35
|
||||
EBANK= SAVET-30
|
||||
BBCON TIG-35
|
||||
|
||||
|
||||
4.27SPOT OCT 52777
|
||||
EBANK= DVCNTR
|
||||
2CADR P70A
|
||||
# Page 242
|
||||
4.31SPOT OCT 52777
|
||||
EBANK= DVCNTR
|
||||
2CADR P71A
|
||||
|
||||
4.33SPOT OCT 46777
|
||||
EBANK= DVCNTR
|
||||
2CADR GOP00FIX
|
||||
|
||||
4.35SPOT OCT 46777
|
||||
EBANK= DVCNTR
|
||||
2CADR GOP00DOO
|
||||
|
||||
4.37SPOT OCT 52777
|
||||
EBANK= WHICH
|
||||
2CADR COMFAIL
|
||||
|
||||
# ANY MORE 4.ODD RESTART VALUES SHOULD GO HERE.
|
||||
5.2SPOT OCT 22000
|
||||
EBANK= DVCNTR
|
||||
2CADR NORMLIZE
|
||||
|
||||
DEC 200
|
||||
EBANK= DVCNTR
|
||||
-2CADR REREADAC
|
||||
|
||||
5.4SPOT DEC 200
|
||||
EBANK= DVCNTR
|
||||
-2CADR REREADAC
|
||||
|
||||
OCT 20000
|
||||
EBANK= DVCNTR
|
||||
2CADR SERVICER
|
||||
|
||||
# ANY MORE GROUP 5.EVEN RESTART VALUES SHOULD GO HERE
|
||||
|
||||
5.3SPOT DEC 200
|
||||
EBANK= DVCNTR
|
||||
-2CADR REREADAC
|
||||
|
||||
5.5SPOT OCT 77777
|
||||
EBANK= DVCNTR
|
||||
-2CADR REDO5.5
|
||||
|
||||
5.7SPOT OCT 77777
|
||||
EBANK= DVCNTR
|
||||
# Page 243
|
||||
-2CADR BIBIBIAS
|
||||
|
||||
# ANY MORE GROUP 5.ODD RESTART VALUES SHOULD GO HERE
|
||||
|
||||
6.2SPOT EQUALS 1.2SPOT
|
||||
6.3SPOT DEC 100
|
||||
EBANK= TIG
|
||||
-2CADR CLOKTASK
|
||||
|
||||
6.5SPOT OCT 30000 # PROTECT INCREMENTING OF TIME2,TIME1 BY
|
||||
EBANK= TEPHEM # P27(UPDATE PROGRAM) VIA V70 OR V73.
|
||||
2CADR TIMEDIDR
|
||||
|
||||
6.7SPOT OCT 17000
|
||||
EBANK= VGPREV
|
||||
2CADR REDO6.7
|
||||
|
||||
|
224
Luminary099/SERVICE_ROUTINES.agc
Normal file
224
Luminary099/SERVICE_ROUTINES.agc
Normal file
@ -0,0 +1,224 @@
|
||||
# Copyright: Public domain.
|
||||
# Filename: SERVICE_ROUTINES.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: 1374-1380
|
||||
# Mod history: 2009-05-10 SN (Sergio Navarro). Started adapting
|
||||
# from the Luminary131/ file of the same
|
||||
# name, using Luminary099 page images.
|
||||
#
|
||||
# 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 1374
|
||||
BANK 10
|
||||
SETLOC DISPLAYS
|
||||
BANK
|
||||
COUNT* $$/DSPLA
|
||||
|
||||
UPENT2 INHINT
|
||||
MASK OCT77770
|
||||
TS L
|
||||
CS FLAGWRD4
|
||||
MASK L
|
||||
ADS FLAGWRD4
|
||||
JOIN RELINT
|
||||
TCF Q+1
|
||||
|
||||
DOWNENT2 INHINT
|
||||
MASK OCT77770
|
||||
COM
|
||||
MASK FLAGWRD4
|
||||
TS FLAGWRD4
|
||||
TCF JOIN
|
||||
|
||||
OCT7 EQUALS SEVEN
|
||||
|
||||
# Page 1375
|
||||
# UPFLAG AND DOWNFLAG ARE ENTIRELY GENERAL FLAG SETTING AND CLEARING SUBROUTINES. USING THEM, WHETHER OR
|
||||
# NOT IN INTERRUPT, ONE MAY SET OR CLEAR ANY SINGLE, NAMED BIT IN ANY ERASABLE REGISTER, SUBJECT OF COURSE TO
|
||||
# EBANK SETTING. A "NAMED" BIT, AS THE WORD IS USED HERE, IS ANY BIT WITH A NAME FORMALLY ASSIGNED BY THE YUL
|
||||
# ASSEMBLER.
|
||||
#
|
||||
# AT PRESENT THE ONLY NAMED BITS ARE THOSE IN THE FLAGWORDS. ASSEMBLER CHANGES WILL MAKE IT POSSIBLE TO
|
||||
# NAME ANY BIT IN ERASABLE MEMORY.
|
||||
#
|
||||
# CALLING SEQUENCES ARE AS FOLLOWS :-
|
||||
# TC UPFLAG TC DOWNFLAG
|
||||
# ADRES NAME OF FLAG ADRES NAME OF FLAG
|
||||
#
|
||||
# RETURN IS TO THE LOCATION FOLLOWING THE "ADRES" ABOUT .58 MS AFTER THE "TC".
|
||||
# UPON RETURN A CONTAINS THE CURRENT FLAGWRD SETTING.
|
||||
|
||||
BLOCK 02
|
||||
SETLOC FFTAG1
|
||||
BANK
|
||||
COUNT* $$/FLAG
|
||||
|
||||
UPFLAG CA Q
|
||||
TC DEBIT
|
||||
COM # +(15 - BIT)
|
||||
EXTEND
|
||||
ROR LCHAN # SET BIT
|
||||
COMFLAG INDEX ITEMP1
|
||||
TS FLAGWRD0
|
||||
LXCH ITEMP3
|
||||
RELINT
|
||||
TC L
|
||||
|
||||
DOWNFLAG CA Q
|
||||
TC DEBIT
|
||||
MASK L # RESET BIT
|
||||
TCF COMFLAG
|
||||
|
||||
DEBIT AD ONE # CET DE BITS
|
||||
INHINT
|
||||
TS ITEMP3
|
||||
CA LOW4 # DEC15
|
||||
TS ITEMP1
|
||||
INDEX ITEMP3
|
||||
CA 0 -1 # ADRES
|
||||
TS L
|
||||
CA ZERO
|
||||
# Page 1376
|
||||
EXTEND
|
||||
DV ITEMP1 # A = FLAGWRD, L = (15 - BIT)
|
||||
DXCH ITEMP1
|
||||
INDEX ITEMP1
|
||||
CA FLAGWRD0
|
||||
TS L # CURRENT STATE
|
||||
INDEX ITEMP2
|
||||
CS BIT15 # -(15 - BIT)
|
||||
TC Q
|
||||
|
||||
# Page 1377
|
||||
# DELAYJOB -- A GENERAL ROUTINE TO DELAY A JOB A SPECIFIC AMOUNT OF TIME BEFORE PICKING UP AGAIN.
|
||||
#
|
||||
# ENTRANCE REQUIREMENTS ...
|
||||
# CAF DT # DELAY JOB FOR DT CENTISECS
|
||||
# TC BANKCALL
|
||||
# CADR DELAYJOB
|
||||
|
||||
BANK 06
|
||||
SETLOC DLAYJOB
|
||||
BANK
|
||||
|
||||
# THIS MUST REMAIN IN BANK 0 ****************************************
|
||||
|
||||
COUNT* $$/DELAY
|
||||
DELAYJOB INHINT
|
||||
TS Q # STORE DELAY DT IN Q FOR DLY -1 IN
|
||||
CAF DELAYNUM # WAITLIST
|
||||
DELLOOP TS RUPTREG1
|
||||
INDEX A
|
||||
CA DELAYLOC # IS THIS DELAYLOC AVAILABLE
|
||||
EXTEND
|
||||
BZF OK2DELAY # YES
|
||||
|
||||
CCS RUPTREG1 # NO, TRY NEXT DELAYLOC
|
||||
TCF DELLOOP
|
||||
|
||||
DXCH BUF2
|
||||
TC BAILOUT1 # NO AVAILABLE LOCS.
|
||||
OCT 1104
|
||||
|
||||
OK2DELAY CA TCSLEEP # SET WAITLIST IMMEDIATE RETURN
|
||||
TS WAITEXIT
|
||||
|
||||
CA FBANK
|
||||
AD RUPTREG1 # STORE BBANK FOR TASK CALL
|
||||
TS L
|
||||
|
||||
CAF WAKECAD # STORE CADR FOR TASK CALL
|
||||
TCF DLY2 -1 # DLY IS IN WAITLIST ROUTINE
|
||||
|
||||
TCGETCAD TC MAKECADR # GET CALLERS FCADR
|
||||
|
||||
INDEX RUPTREG1
|
||||
TS DELAYLOC # SAVE DELAY CADRS
|
||||
|
||||
TC JOBSLEEP
|
||||
|
||||
WAKER CAF ZERO
|
||||
INDEX BBANK
|
||||
XCH DELAYLOC # MAKE DELAYLOC AVAILABLE
|
||||
# Page 1378
|
||||
TC JOBWAKE
|
||||
|
||||
TC TASKOVER
|
||||
|
||||
TCSLEEP GENADR TCGETCAD -2
|
||||
WAKECAD GENADR WAKER
|
||||
|
||||
# Page 1379
|
||||
# GENTRAN, A BLOCK TRANSFER ROUTINE
|
||||
# WRITTEN BY D. EYLES
|
||||
# MOD 1 BY KERNAN UTILITYM REV 17 11/18/67
|
||||
# MOD 2 BY SCHULENBERG (REMOVE RELINT) SKIPPER REV 4 2/28/68
|
||||
#
|
||||
# THIS ROUTINE IS USEFUL FOR TRANSFERING N CONSECUTIVE ERASABLE OR FIXED QUANTITIES TO SOME OTHER N
|
||||
# CONSECUTIVE ERASABLE LOCATIONS. IF BOTH BLOCKS OF DATA ARE IN SWITCHABLE EBANKS, THEY MUST BE IN THE SAME ONE.
|
||||
#
|
||||
# GENTRAN IS CALLABLE IN A JOB AS WELL AS A RUPT. THE CALLING SEQUENCE IS:
|
||||
# I CA N-1 # # OF QUANTITIES MINUS ONE.
|
||||
# I +1 TC GENTRAN # IN FIXED-FIXED.
|
||||
# I +2 ADRES L # STARTING ADRES OF DATA TO BE MOVED.
|
||||
# I +3 ADRES M # STARTING ADRES OF DUPLICATION BLOCK.
|
||||
# I +4 # RETURNS HERE.
|
||||
#
|
||||
# GENTRAN TAKES 25 MCT'S (300 MICROSECONDS) PER ITEM + 5 MCT'S (60 MICS) FOR ENTERING AND EXITING.
|
||||
# A, L, AND ITEMP1 ARE NOT PRESERVED.
|
||||
|
||||
BLOCK 02
|
||||
SETLOC FFTAG4
|
||||
BANK
|
||||
|
||||
EBANK= ITEMP1
|
||||
|
||||
COUNT* $$/TRAN
|
||||
|
||||
GENTRAN INHINT
|
||||
TS ITEMP1 # SAVE N-1
|
||||
INDEX Q # C(Q) = ADRES L.
|
||||
AD 0 # ADRES (L + N - 1).
|
||||
INDEX A
|
||||
CA 0 # C(ABOVE).
|
||||
TS L # SAVE DATA.
|
||||
CA ITEMP1
|
||||
INDEX Q
|
||||
AD 1 # ADRES (M + N - 1).
|
||||
INDEX A
|
||||
LXCH 0 # STUFF IT.
|
||||
CCS ITEMP1 # LOOP UNTIL N-1 = 0.
|
||||
TCF GENTRAN +1
|
||||
TCF Q+2 # RETURN TO CALLER.
|
||||
|
||||
# Page 1380
|
||||
# B5OFF ZERO BIT 5 OF EXTVBACK, WHICH IS SET BY TESTXACT.
|
||||
# MAY BE USED AS NEEDED BY ANY EXTENDED VERB WHICH HAS DONE TESTXACT
|
||||
|
||||
COUNT* $$/EXTVB
|
||||
|
||||
B5OFF CS BIT5
|
||||
MASK EXTVBACT
|
||||
TS EXTVBACT
|
||||
TC ENDOFJOB
|
||||
|
||||
|
||||
|
69
Luminary099/SINGLE_PRECISION_SUBROUTINES.agc
Normal file
69
Luminary099/SINGLE_PRECISION_SUBROUTINES.agc
Normal file
@ -0,0 +1,69 @@
|
||||
# Copyright: Public domain.
|
||||
# Filename: SINGLE_PRECISION_SUBROUTINES.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: 1102
|
||||
# Mod history: 2009-05-25 RSB Adapted from the corresponding
|
||||
# Luminary131 file, using page
|
||||
# images from Luminary 1A.
|
||||
# 2010-12-31 JL Fixed page number comment.
|
||||
#
|
||||
# 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 1102
|
||||
BLOCK 02
|
||||
|
||||
# SINGLE PRECISION SINE AND COSINE
|
||||
|
||||
COUNT* $$/INTER
|
||||
SPCOS AD HALF # ARGUMENTS SCALED AT PI
|
||||
SPSIN TS TEMK
|
||||
TCF SPT
|
||||
CS TEMK
|
||||
SPT DOUBLE
|
||||
TS TEMK
|
||||
TCF POLLEY
|
||||
XCH TEMK
|
||||
INDEX TEMK
|
||||
AD LIMITS
|
||||
COM
|
||||
AD TEMK
|
||||
TS TEMK
|
||||
TCF POLLEY
|
||||
TCF ARG90
|
||||
POLLEY EXTEND
|
||||
MP TEMK
|
||||
TS SQ
|
||||
EXTEND
|
||||
MP C5/2
|
||||
AD C3/2
|
||||
EXTEND
|
||||
MP SQ
|
||||
AD C1/2
|
||||
EXTEND
|
||||
MP TEMK
|
||||
DDOUBL
|
||||
TS TEMK
|
||||
TC Q
|
||||
ARG90 INDEX A
|
||||
CS LIMITS
|
||||
TC Q # RESULT SCALED AT 1.
|
||||
|
||||
|
441
Luminary099/STABLE_ORBIT.agc
Normal file
441
Luminary099/STABLE_ORBIT.agc
Normal file
@ -0,0 +1,441 @@
|
||||
# Copyright: Public domain.
|
||||
# Filename: STABLE_ORBIT.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: 723-730
|
||||
# Mod history: 2009-05-19 RSB Adapted from the corresponding
|
||||
# Colossus249 file (there being no corresponding
|
||||
# Luminary131 source-code file), using page
|
||||
# images from Luminary 1A.
|
||||
# 2009-06-07 RSB Eliminated an extraneous instruction.
|
||||
# 2011-01-06 JL Fixed pseudo-label indentation.
|
||||
#
|
||||
# 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 723
|
||||
# STABLE ORBIT RENDEZVOUS PROGRAMS (P38 AND P78)
|
||||
#
|
||||
# MOD NO -1 LOG SECTION -- STABLE ORBIT -- P38-P39
|
||||
# MOD BY RUDNICKI.S DATE 26JAN68
|
||||
#
|
||||
# FUNCTIONAL DESCRIPTION
|
||||
#
|
||||
# P38 AND P78 CALCULATE THE REQUIRED DELTA V AND OTHER INITIAL
|
||||
# CONDITIONS REQUIRED BY THE AGC TO (1) PUT THE ACTIVE VEHICLE
|
||||
# ON A TRANSFER TRAJECTORY THAT INTERCEPTS THE PASSIVE VEHICLE
|
||||
# ORBIT A GIVEN DISTANCE, DELTA R, EITHER AHEAD OF OR BEHIND THE
|
||||
# PASSIVE VEHICLE AND (2) ACTUALLY PLACE THE ACTIVE VEHICLE IN THE
|
||||
# PASSIVE VEHICLE ORBIT WITH A DELTA R SEPARATION BETWEEN THE TWO
|
||||
# VEHICLES
|
||||
#
|
||||
# CALLING SEQUENCE
|
||||
#
|
||||
# ASTRONAUT REQUEST THRU DSKY
|
||||
#
|
||||
# V37E38E IF THIS VEHICLE IS ACTIVE VEHICLE
|
||||
# V37E78E IF OTHER VEHICLE IS ACTIVE VEHICLE
|
||||
#
|
||||
# INPUT
|
||||
#
|
||||
# (1) SOI MANEUVER
|
||||
#
|
||||
# (A) TIG TIME OF SOI MANEUVER
|
||||
# (B) CENTANG ORBITAL CENTRAL ANGLE OF THE PASSIVE VEHICLE
|
||||
# DURING THE TRANSFER FROM TIG TO TIME OF INTERCEPT
|
||||
# (C) DELTAR THE DESIRED SEPARATION OF THE TWO VEHICLES
|
||||
# SPECIFIED AS A DISTANCE ALONG THE PASSIVE VEHICLE
|
||||
# ORBIT
|
||||
# (D) OPTION EQUALS 1 FOR SOI
|
||||
#
|
||||
# (2) SOR MANEUVER
|
||||
#
|
||||
# (A) TIG TIME OF SOR MANEUVER
|
||||
# (B) CENTANG AN OPTIONAL RESPECIFICATION OF 1 (B) ABOVE
|
||||
# (C) OPTION EQUALS 2 FOR SOR
|
||||
# (D) DELTTIME THE TIME REQUIRED TO TRAVERSE DELTA R WHEN
|
||||
# TRAVELING AT A VELOCITY EQUAL TO THE HORIZONTAL
|
||||
# VELOCITY OF THE PASSIVE VEHICLE -- SAVED FROM
|
||||
# SOI PHASE
|
||||
# (E) TINT TIME OF INTERCEPT (SOI) -- SAVED FROM SOI PHASE
|
||||
#
|
||||
# OUTPUT
|
||||
#
|
||||
# (1) TRKMKCNT NUMBER OF MARKS
|
||||
# (2) TTOGO TIME TO GO
|
||||
# (3) +MGA MIDDLE GIMBAL ANGLE
|
||||
# Page 724
|
||||
# (4) DSPTEM1 TIME OF INTERCEPT OF PASSIVE VEHICLE ORBIT
|
||||
# (FOR SOI ONLY)
|
||||
# (5) POSTTPI PERIGEE ALTITUDE OF ACTIVE VEHICLE ORBIT AFTER
|
||||
# THE SOI (SOR) MANEUVER
|
||||
# (6) DELVTPI MAGNITUDE OF DELTA V AT SOI (SOR) TIME
|
||||
# (7) DELVTPF MAGNITUDE OF DELTA V AT INTERCEPT TIME
|
||||
# (8) DELTA VELOCITY AT SOI (AND SOR) -- LOCAL VERTICAL
|
||||
# CORDINATES
|
||||
#
|
||||
# SUBROUTINE USED
|
||||
#
|
||||
# AVFLAGA
|
||||
# AVFLAGP
|
||||
# VNDSPLY
|
||||
# BANKCALL
|
||||
# GOFLASHR
|
||||
# GOTOP00H
|
||||
# BLANKET
|
||||
# ENDOFJOB
|
||||
# PREC/TT
|
||||
# SELECTMU
|
||||
# INTRPVP
|
||||
# MAINRTNE
|
||||
|
||||
BANK 04
|
||||
SETLOC STBLEORB
|
||||
BANK
|
||||
|
||||
EBANK= SUBEXIT
|
||||
COUNT* $$/P3879
|
||||
|
||||
P38 TC BANKCALL
|
||||
CADR AVFLAGA # THIS VEHICLE ACTIVE
|
||||
TC +3
|
||||
P78 TC BANKCALL
|
||||
CADR AVFLAGP # OTHER VEHICLE ACTIVE
|
||||
TC BANKCALL
|
||||
CADR P20FLGON # SET UPDATFLG, TRACKFLG
|
||||
CAF DECTWO
|
||||
TS NN
|
||||
CAF V06N33SR # DISPLAY TIG
|
||||
TC VNDSPLY
|
||||
CAF V06N55SR # DISPLAY CENTANG
|
||||
TCR BANKCALL
|
||||
CADR GOFLASHR
|
||||
TCF GOTOP00H # TERMINATE
|
||||
TCF +5 # PROCEED
|
||||
TCF -5 # RECYCLE
|
||||
CAF THREE # IMMEDIATE RETURN -- BLANK R1, R2
|
||||
TCR BLANKET
|
||||
# Page 725
|
||||
TCF ENDOFJOB
|
||||
CAF FIVE
|
||||
TS OPTION1
|
||||
CAF ONE
|
||||
TS OPTION2 # OPTION CODE IS SET TO 1
|
||||
CAF V04N06SR # DISPLAY OPTION CODE -- 1 = SOI, 2 = SOR
|
||||
TCR BANKCALL
|
||||
CADR GOFLASHR
|
||||
TCF GOTOP00H # TERMINATE
|
||||
TCF +5 # PROCEED
|
||||
TCF -5 # RECYCLE
|
||||
CAF BIT3 # IMMEDIATE RETURN -- BLANK R3
|
||||
TCR BLANKET
|
||||
TCF ENDOFJOB
|
||||
TC INTPRET
|
||||
SLOAD SR1
|
||||
OPTION2
|
||||
BHIZ DLOAD
|
||||
OPTN1
|
||||
TINT
|
||||
STORE TINTSOI # STORE FOR SOR PHASE
|
||||
CLRGO
|
||||
OPTNSW # OPTNSW: ON = SOI, OFF = SOR
|
||||
JUNCTN1
|
||||
OPTN1 SET CLEAR # SOI
|
||||
OPTNSW
|
||||
UPDATFLG
|
||||
CALL
|
||||
PREC/TT
|
||||
DAD SET
|
||||
TIG
|
||||
UPDATFLG
|
||||
STORE TINT # TI = TIG + TF
|
||||
EXIT
|
||||
CAF V06N57SR # DISPLAY DELTA R
|
||||
TCR BANKCALL
|
||||
CADR GOFLASHR
|
||||
TCF GOTOP00H # TERMINATE
|
||||
TCF +5 # PROCEED
|
||||
TCF -5 # RECYCLE
|
||||
CAF SIX # IMMEDIATE RETURN -- BLANK R2, R3
|
||||
TCR BLANKET
|
||||
TCF ENDOFJOB
|
||||
+5 EXTEND
|
||||
DCA TINT
|
||||
DXCH DSPTEM1 # FOR DISPLAY
|
||||
CAF V06N34SR # DISPLAY TIME OF INTERCEPT
|
||||
TC VNDSPLY
|
||||
TC INTPRET
|
||||
JUNCTN1 CLEAR CALL
|
||||
# Page 726
|
||||
P39/79SW
|
||||
SELECTMU # SELECT MU, CLEAR FINALFLG, GO TO VN1645
|
||||
RECYCLE CALL
|
||||
PREC/TT
|
||||
BOFF DLOAD
|
||||
OPTNSW
|
||||
OPTN2
|
||||
TINT
|
||||
STCALL TDEC1 # PRECISION UPDATE PASSIVE VEHICLE TO
|
||||
INTRPVP # INTERCEPT TIME
|
||||
VLOAD UNIT
|
||||
RATT # RP/(RP)
|
||||
PDVL VXV
|
||||
VATT
|
||||
ABVAL NORM # (VP X RP/(RP))
|
||||
X1
|
||||
PDDL DDV
|
||||
DELTAR
|
||||
SL* # DELTA R / (VP X RP/RP)
|
||||
0 -7,1
|
||||
STCALL DELTTIME # DELTA T = (RP) DELTA R / (VP X RP)
|
||||
JUNCTN2
|
||||
OPTN2 DLOAD DAD
|
||||
TINTSOI
|
||||
T
|
||||
STORE TINT # TI = TI + TF
|
||||
JUNCTN2 DLOAD DSU
|
||||
TINT
|
||||
DELTTIME
|
||||
STORE TARGTIME # TT = TI - DELTA T
|
||||
|
||||
# .... MAINRTNE ....
|
||||
#
|
||||
# SUBROUTINES USED:
|
||||
#
|
||||
# S3435.25
|
||||
# PERIAPO1
|
||||
# SHIFTR1
|
||||
# VNDSPLY
|
||||
# BANKCALL
|
||||
# GOFLASH
|
||||
# GOTOP00H
|
||||
# VN1645
|
||||
|
||||
MAINRTNE STCALL TDEC1 # PRECISION UPDATE PASSIVE VEHICLE TO
|
||||
INTRPVP # TARGET TIME
|
||||
DLOAD
|
||||
TIG
|
||||
STORE INTIME
|
||||
SSP VLOAD
|
||||
SUBEXIT
|
||||
TEST3979
|
||||
# Page 727
|
||||
RATT
|
||||
CALL
|
||||
S3435.25
|
||||
TEST3979 BOFF BON
|
||||
P39/79SW
|
||||
MAINRTN1
|
||||
FINALFLG
|
||||
P39P79
|
||||
SET
|
||||
UPDATFLG
|
||||
P39P79 EXIT
|
||||
TC DSPLY81 # FOR P39 AND P79
|
||||
MAINRTN1 VLOAD ABVAL
|
||||
DELVEET3
|
||||
STOVL DELVTPI # DELTA V
|
||||
VPASS4
|
||||
VSU ABVAL
|
||||
VTPRIME
|
||||
STOVL DELVTPF # DELTA V (FINAL) = V*T - VT
|
||||
RACT3
|
||||
PDVL CALL
|
||||
VIPRIME
|
||||
PERIAPO1 # GET PERIGEE ALTITUDE
|
||||
CALL
|
||||
SHIFTR1
|
||||
STORE POSTTPI
|
||||
BON SET
|
||||
FINALFLG
|
||||
DSPLY58
|
||||
UPDATFLG
|
||||
DSPLY58 EXIT
|
||||
CAF V06N58SR # DISPLAY HP, DELTA V, DELTA V (FINAL)
|
||||
TC VNDSPLY
|
||||
DSPLY81 CAF V06N81SR # DISPLAY DELTA V (LV)
|
||||
TC VNDSPLY
|
||||
TC INTPRET
|
||||
CLEAR VLOAD
|
||||
XDELVFLG
|
||||
DELVEET3
|
||||
STCALL DELVSIN
|
||||
VN1645 # DISPLAY TRKMKCNT, TTOGO, +MGA
|
||||
BON GOTO
|
||||
P39/79SW
|
||||
P39/P79B
|
||||
RECYCLE
|
||||
|
||||
# STABLE ORBIT MIDCOURSE PROGRAM (P39 AND P79)
|
||||
#
|
||||
# MOD NO -1 LOG SECTION -- STABLE ORBIT -- P38-P39
|
||||
# MOD BY RUDNICKI, S DATE 25JAN68
|
||||
#
|
||||
# Page 728
|
||||
# FUNCTIONAL DESCRIPTION
|
||||
#
|
||||
# P39 AND P79 CALCULATE THE REQUIRED DELTA V AND OTHER INITIAL
|
||||
# CONDITIONS REQUIRED BY THE AGC TO MAKE A MIDCOURSE CORRECTION
|
||||
# MANEUVER AFTER COMPLETING THE SOI MANEUVER BUT BEFORE MAKING
|
||||
# THE SOR MANEUVER.
|
||||
#
|
||||
# CALLING SEQUENCE
|
||||
#
|
||||
# ASTRONAUT REQUEST THRU DSKY
|
||||
#
|
||||
# V37E39E IF THIS VEHICLE IS ACTIVE VEHICLE
|
||||
# V37E79E IF OTHER VEHICLE IS ACTIVE VEHICLE
|
||||
#
|
||||
# INPUT
|
||||
#
|
||||
# (1) TPASS4 TIME OF INTERCEPT -- SAVED FROM P38/P78
|
||||
# (2) TARGTIME TIME THAT PASSIVE VEHICLE IS AT INTERCEPT POINT --
|
||||
# SAVED FROM P38/P78
|
||||
#
|
||||
# OUTPUT
|
||||
#
|
||||
# (1) TRKMKCNT NUMBER OF MARKS.
|
||||
# (2) TTOGO TIME TO GO
|
||||
# (3) +MGA MIDDLE GIMBAL ANGLE
|
||||
# (4) DELVLVC DELTA VELOCITY AT MID - LOCAL VERTICAL COORDINATES
|
||||
#
|
||||
# SUBROUTINES USED
|
||||
#
|
||||
# AVFLAGA
|
||||
# AVFLAGP
|
||||
# LOADTIME
|
||||
# SELECTMU
|
||||
# PRECSET
|
||||
# S34/35.1
|
||||
# MAINRTNE
|
||||
|
||||
P39 TC BANKCALL
|
||||
CADR AVFLAGA # THIS VEHICLE ACTIVE
|
||||
EXTEND
|
||||
DCA ATIGINC
|
||||
TC P39/P79A
|
||||
P79 TC BANKCALL
|
||||
CADR AVFLAGP # OTHER VEHICLE ACTIVE
|
||||
EXTEND
|
||||
DCA PTIGINC
|
||||
P39/P79A DXCH KT # TIME TO PREPARE FOR BURN
|
||||
TC BANKCALL
|
||||
CADR P20FLGON # SET UPDATFLG, TRACKFLG
|
||||
TC INTPRET
|
||||
# Page 729
|
||||
SET CALL
|
||||
P39/79SW
|
||||
SELECTMU # SELECT MU, CLEAR FINALFLG, GO TO VN1645
|
||||
P39/P79B RTB DAD
|
||||
LOADTIME
|
||||
KT
|
||||
STORE TIG # TIG = T (PRESENT) + PREPARATION TIME
|
||||
STCALL TDEC1 # PRECISION UPDATE ACTIVE AND PASSIVE
|
||||
PRECSET # VEHICLES TO TIG
|
||||
CALL
|
||||
S34/35.1 # GET UNIT NORMAL
|
||||
DLOAD GOTO
|
||||
TARGTIME
|
||||
MAINRTNE # CALCULATE DELTA V AND DELTA V (LV)
|
||||
|
||||
# .... PREC/TT ....
|
||||
#
|
||||
# SUBROUTINES USED
|
||||
#
|
||||
# PRECSET
|
||||
# TIMETHET
|
||||
# S34/35.1
|
||||
|
||||
PREC/TT STQ DLOAD
|
||||
RTRN
|
||||
TIG
|
||||
STCALL TDEC1 # PRECISION UPDATE ACTIVE AND PASSIVE
|
||||
PRECSET # VEHICLES TO TIG
|
||||
VLOAD VSR*
|
||||
RPASS3
|
||||
0,2
|
||||
STODL RVEC
|
||||
CENTANG
|
||||
PUSH COS
|
||||
STODL CSTH
|
||||
SIN SET
|
||||
RVSW
|
||||
STOVL SNTH
|
||||
VPASS3
|
||||
VSR*
|
||||
0,2
|
||||
STCALL VVEC # GET TRANSFER TIME BASED ON CENTANG OF
|
||||
TIMETHET # PASSIVE VEHICLE
|
||||
CALL
|
||||
S34/35.1 # GET UNIT NORMAL
|
||||
DLOAD GOTO
|
||||
T
|
||||
RTRN
|
||||
|
||||
# .... INTRPVP ....
|
||||
#
|
||||
# SUBROUTINES USED
|
||||
#
|
||||
# CSMPREC
|
||||
# Page 730
|
||||
# LEMPREC
|
||||
|
||||
INTRPVP STQ BOFF # PRECISION UPDATE PASSIVE VEHICLE TO
|
||||
RTRN # TDEC1
|
||||
AVFLAG
|
||||
OTHERV
|
||||
CALL
|
||||
CSMPREC
|
||||
GOTO
|
||||
RTRN
|
||||
OTHERV CALL
|
||||
LEMPREC
|
||||
GOTO
|
||||
RTRN
|
||||
|
||||
# .... VNDSPLY ....
|
||||
#
|
||||
# SUBROUTINES USED
|
||||
#
|
||||
# BANKCALL
|
||||
# GOFLASH
|
||||
# GOTOP00H
|
||||
|
||||
VNDSPLY EXTEND # FLASH DISPLAY
|
||||
QXCH RTRN
|
||||
TS VERBNOUN
|
||||
CA VERBNOUN
|
||||
TCR BANKCALL
|
||||
CADR GOFLASH
|
||||
TCF GOTOP00H # TERMINATE
|
||||
TC RTRN # PROCEED
|
||||
TCF -5 # RECYCLE
|
||||
V06N33SR VN 0633
|
||||
V06N55SR VN 0655
|
||||
V04N06SR VN 0406
|
||||
V06N57SR VN 0657
|
||||
V06N34SR VN 0634
|
||||
V06N58SR VN 0658
|
||||
V06N81SR VN 0681
|
||||
DECTWO OCT 2
|
||||
|
||||
# *** END OF KISSING .050 ***
|
||||
|
||||
|
||||
|
125
Luminary099/SYSTEM_TEST_STANDARD_LEAD_INS.agc
Normal file
125
Luminary099/SYSTEM_TEST_STANDARD_LEAD_INS.agc
Normal file
@ -0,0 +1,125 @@
|
||||
# Copyright: Public domain.
|
||||
# Filename: SYSTEM_TEST_STANDARD_LEAD_INS.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: 370-372
|
||||
# Mod history: 2009-05-17 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 370
|
||||
EBANK= XSM
|
||||
|
||||
BANK 33
|
||||
SETLOC E/PROG
|
||||
BANK
|
||||
|
||||
COUNT* $$/P07
|
||||
|
||||
# SPECIAL PROGRAMS TO EASE THE PANGS OF ERASABLE MEMORY PROGRAMS.
|
||||
#
|
||||
# E/BKCALL FOR DOING BANKCALLS FROM AND RETURNING TO ERASABLE.
|
||||
#
|
||||
# THIS ROUTINE IS CALLABLE FROM ERASABLE OR FIXED. LIKE BANKCALL, HOWEVER, SWITCHING BETWEEN S3 AND S4
|
||||
# IS NOT POSSIBLE.
|
||||
#
|
||||
# THE CALLING SEQUENCE IS
|
||||
#
|
||||
# TC BANKCALL
|
||||
# CADR E/BKCALL
|
||||
# CADR ROUTINE # WHERE TO WANT TO GO IN FIXED.
|
||||
# RETURN HERE FROM DISPLAY TERMINATE, BAD STALL OR TC Q.
|
||||
# RETURN HERE FROM DISPLAY PROCEED OR GOOD RETURN FROM STALL.
|
||||
# RETURN HERE FROM DISPLAY ENTER OR RECYCLE.
|
||||
#
|
||||
# THIS ROUTINE REQUIRES TWO ERASABLES (EBUF2, +1) IN UNSWITCHED WHICH ARE UNSHARED BY INTERRUPTS AND
|
||||
# OTHER EMEMORY PROGRAMS.
|
||||
#
|
||||
# A + L ARE PRESERVED THROUGH BANKCALL AND E/BKCALL.
|
||||
|
||||
E/BKCALL DXCH BUF2 # SAVE A,L AND GET DP RETURN
|
||||
DXCH EBUF2 # SAVE DP RETURN.
|
||||
INCR EBUF2 # RETURN +1 BECAUSE DOUBLE CADR.
|
||||
CA BBANK
|
||||
MASK LOW10 # GET CURRENT EBANK. (SBANK SOMEDAY)
|
||||
ADS EBUF2 +1 # FORM BBCON. (WAS FBANK)
|
||||
NDX EBUF2
|
||||
CA 0 -1 # GET CADR OF ROUTINE.
|
||||
TC SWCALL # GO TO ROUTINE, SETTING Q TO SWRETURN
|
||||
# AND RESTORING A + L.
|
||||
TC +4 # TX Q, V34, OR BAD STALL RETURN.
|
||||
TC +2 # PROCEED OR GOOD STALL RETURN.
|
||||
INCR EBUF2 # ENTER OR RECYCLE RETURN
|
||||
INCR EBUF2
|
||||
E/SWITCH DXCH EBUF2
|
||||
DTCB
|
||||
|
||||
# Page 371
|
||||
# E/CALL FOR CALLING A FIXED MEMORY INTERPRETIVE SUBROUTINE FROM ERASABLE AND RETURNING TO ERASABLE.
|
||||
#
|
||||
# THE CALLING SEQUENCE IS...
|
||||
#
|
||||
# RTB
|
||||
# E/CALL
|
||||
# CADR ROUTINE # THE INTERPRETIVE SUBROUTINE YOU WANT
|
||||
# # RETURNS HERE IN INTERPRETIVE.
|
||||
|
||||
E/CALL LXCH LOC # ADRES -1 OF CADR.
|
||||
INDEX L
|
||||
CA L # CADR IN A.
|
||||
INCR L
|
||||
INCR L # RETURN ADRES IN L.
|
||||
DXCH EBUF2 # STORE CADR AND RETURN
|
||||
TC INTPRET
|
||||
CALL
|
||||
EBUF2 # INDIRECTLY EXECUTE ROUTING. IT MUST
|
||||
EXIT # LEAVE VIA RVQ OR EQUIVALENT.
|
||||
LXCH EBUF2 +1 # PICK UP RETURN.
|
||||
TCF INTPRET +2 # SET LOC AND RETURN TO CALLER.
|
||||
|
||||
# Page 372
|
||||
# E/JOBWAK FOR WAKING UP ERASABLE MEMORY JOBS.
|
||||
#
|
||||
# THIS ROUTINE MUST BE CALLED IN INTERRUPT OR WITH INTERRUPTS INHIBITED.
|
||||
#
|
||||
# THE CALLING SEQUENCE IS
|
||||
#
|
||||
# INHINT
|
||||
# ...
|
||||
# CA WAKEADR # ADDRESS OF SLEEPING JOB
|
||||
# TC IBNKCALL
|
||||
# CADR E/JOBWAK
|
||||
# ... # RETURNS HERE
|
||||
# RELINT # IF YOU DID AND INHINT
|
||||
|
||||
BANK 33
|
||||
SETLOC E/PROG
|
||||
BANK
|
||||
|
||||
COUNT* $$/P07
|
||||
|
||||
E/JOBWAK TC JOBWAKE # ARRIVE WITH ADRES IN A.
|
||||
CS BIT11
|
||||
NDX LOCCTR
|
||||
ADS LOC # KNOCK FIXED MEMORY BIT OUT OF ADRES.
|
||||
TC RUPTREG3 # RETURN
|
||||
|
1354
Luminary099/T4RUPT_PROGRAM.agc
Normal file
1354
Luminary099/T4RUPT_PROGRAM.agc
Normal file
File diff suppressed because it is too large
Load Diff
347
Luminary099/TAGS_FOR_RELATIVE_SETLOC.agc
Normal file
347
Luminary099/TAGS_FOR_RELATIVE_SETLOC.agc
Normal file
@ -0,0 +1,347 @@
|
||||
# Copyright: Public domain.
|
||||
# Filename: TAGS_FOR_RELATIVE_SETLOC.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: Jim Lawton <jim.lawton@gmail.com>
|
||||
# Website: www.ibiblio.org/apollo.
|
||||
# Pages: 028-037
|
||||
# Mod history: 2009-05-16 JVL Transcribed from page images.
|
||||
#
|
||||
# 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 28
|
||||
# TAGS FOR RELATIVE SETLOC AND BLANK BANK CARDS
|
||||
|
||||
# COUNT BANKSUM
|
||||
|
||||
# MODULE 1 CONTAINS BANKS 0 THROUGH 5
|
||||
|
||||
BLOCK 02
|
||||
RADARFF EQUALS
|
||||
FFTAG1 EQUALS
|
||||
FFTAG2 EQUALS
|
||||
FFTAG3 EQUALS
|
||||
FFTAG4 EQUALS
|
||||
FFTAG7 EQUALS
|
||||
FFTAG8 EQUALS
|
||||
FFTAG9 EQUALS
|
||||
FFTAG10 EQUALS
|
||||
FFTAG11 EQUALS
|
||||
FFTAG12 EQUALS
|
||||
FFTAG13 EQUALS
|
||||
BNKSUM 02
|
||||
|
||||
BLOCK 03
|
||||
FFTAG5 EQUALS
|
||||
FFTAG6 EQUALS
|
||||
BNKSUM 03
|
||||
|
||||
BANK 00
|
||||
DLAYJOB EQUALS
|
||||
BNKSUM 00
|
||||
|
||||
BANK 01
|
||||
RESTART EQUALS
|
||||
LOADDAP1 EQUALS
|
||||
BNKSUM 01
|
||||
|
||||
BANK 04
|
||||
R02 EQUALS
|
||||
VERB37 EQUALS
|
||||
PINBALL4 EQUALS
|
||||
CONICS1 EQUALS
|
||||
KEYRUPT EQUALS
|
||||
R36LM EQUALS
|
||||
UPDATE2 EQUALS
|
||||
E/PROG EQUALS
|
||||
AOTMARK2 EQUALS
|
||||
BNKSUM 04
|
||||
|
||||
# Page 29
|
||||
BANK 05
|
||||
FRANDRES EQUALS
|
||||
DOWNTELM EQUALS
|
||||
ABORTS1 EQUALS
|
||||
EPHEM1 EQUALS
|
||||
ASENT3 EQUALS
|
||||
BNKSUM 05
|
||||
|
||||
# MODULE 2 CONTAINS BANKS 6 THROUGH 13
|
||||
|
||||
BANK 06
|
||||
IMUCOMP EQUALS
|
||||
T4RUP EQUALS
|
||||
RCSMONT EQUALS
|
||||
MIDDGIM EQUALS
|
||||
EARTHLOC EQUALS
|
||||
BNKSUM 06
|
||||
|
||||
BANK 07
|
||||
AOTMARK1 EQUALS
|
||||
MODESW EQUALS
|
||||
ASENT2 EQUALS
|
||||
BNKSUM 07
|
||||
|
||||
BANK 10
|
||||
RTBCODES EQUALS
|
||||
DISPLAYS EQUALS
|
||||
PHASETAB EQUALS
|
||||
FLESHLOC EQUALS
|
||||
SLCTMU EQUALS
|
||||
BNKSUM 10
|
||||
|
||||
BANK 11
|
||||
ORBITAL EQUALS
|
||||
F2DPS*11 EQUALS
|
||||
INTVEL EQUALS
|
||||
BNKSUM 11
|
||||
|
||||
BANK 12
|
||||
CONICS EQUALS
|
||||
ORBITAL1 EQUALS
|
||||
# Page 30
|
||||
INTPRET2 EQUALS
|
||||
BNKSUM 12
|
||||
|
||||
BANK 13
|
||||
LATLONG EQUALS
|
||||
INTINIT EQUALS
|
||||
LEMGEOM EQUALS
|
||||
P76LOC EQUALS
|
||||
ORBITAL2 EQUALS
|
||||
ABTFLGS EQUALS
|
||||
BNKSUM 13
|
||||
|
||||
# Page 31
|
||||
# MODULE 3 CONTAINS BANKS 14 THROUGH 21
|
||||
|
||||
BANK 14
|
||||
P50S1 EQUALS
|
||||
STARTAB EQUALS
|
||||
ASENT4 EQUALS
|
||||
BNKSUM 14
|
||||
|
||||
BANK 15
|
||||
P50S EQUALS
|
||||
EPHEM EQUALS
|
||||
BNKSUM 15
|
||||
|
||||
BANK 16
|
||||
DAPS1 EQUALS
|
||||
BNKSUM 16
|
||||
|
||||
BANK 17
|
||||
DAPS2 EQUALS
|
||||
P40S3 EQUALS
|
||||
BNKSUM 17
|
||||
|
||||
BANK 20
|
||||
DAPS3 EQUALS
|
||||
LOADDAP EQUALS
|
||||
RODTRAP EQUALS
|
||||
BNKSUM 20
|
||||
|
||||
BANK 21
|
||||
DAPS4 EQUALS
|
||||
R10 EQUALS
|
||||
R11 EQUALS
|
||||
BNKSUM 21
|
||||
# Page 32
|
||||
|
||||
# MODULE 4 CONTAINS BANKS 22 THROUGH 27
|
||||
|
||||
BANK 22
|
||||
KALCMON1 EQUALS
|
||||
KALCMON2 EQUALS
|
||||
R30LOC EQUALS
|
||||
RENDEZ EQUALS
|
||||
SERV2 EQUALS
|
||||
LANDCNST EQUALS
|
||||
BNKSUM 22
|
||||
|
||||
BANK 23
|
||||
POWFLITE EQUALS
|
||||
POWFLIT1 EQUALS
|
||||
INFLIGHT EQUALS
|
||||
APOPERI EQUALS
|
||||
R61 EQUALS
|
||||
R62 EQUALS
|
||||
INTPRET1 EQUALS
|
||||
MEASINC EQUALS
|
||||
MEASINC1 EQUALS
|
||||
EXTVB1 EQUALS
|
||||
P12A EQUALS
|
||||
NORMLIZ EQUALS
|
||||
ASENT7 EQUALS
|
||||
BNKSUM 23
|
||||
|
||||
BANK 24
|
||||
PLANTIN EQUALS
|
||||
P20S EQUALS
|
||||
BNKSUM 24
|
||||
|
||||
BANK 25
|
||||
P20S1 EQUALS
|
||||
P20S2 EQUALS
|
||||
RADARUPT EQUALS
|
||||
RRLEADIN EQUALS
|
||||
R29S1 EQUALS
|
||||
PLANTIN3 EQUALS
|
||||
BNKSUM 25
|
||||
|
||||
BANK 26
|
||||
# Page 33
|
||||
P20S3 EQUALS
|
||||
BAWLANGS EQUALS
|
||||
MANUVER EQUALS
|
||||
MANUVER1 EQUALS
|
||||
PLANTIN1 EQUALS
|
||||
PLANTIN2 EQUALS
|
||||
BNKSUM 26
|
||||
|
||||
BANK 27
|
||||
TOF-FF EQUALS
|
||||
TOF-FF1 EQUALS
|
||||
P40S1 EQUALS
|
||||
VECPT EQUALS
|
||||
ASENT1 EQUALS
|
||||
SERV3 EQUALS
|
||||
BNKSUM 27
|
||||
|
||||
# Page 34
|
||||
# MODULE 5 CONTAINS BANKS 30 THROUGH 35
|
||||
|
||||
BANK 30
|
||||
LOWSUPER EQUALS
|
||||
P12 EQUALS
|
||||
ASENT EQUALS
|
||||
FCDUW EQUALS
|
||||
FLOGSUB EQUALS
|
||||
VB67A EQUALS
|
||||
ASENT5 EQUALS
|
||||
BNKSUM 30
|
||||
|
||||
BANK 31
|
||||
FTHROT EQUALS
|
||||
F2DPS*31 EQUALS
|
||||
VB67 EQUALS
|
||||
BNKSUM 31
|
||||
|
||||
BANK 32
|
||||
P20S4 EQUALS
|
||||
F2DPS*32 EQUALS
|
||||
ABORTS EQUALS
|
||||
LRS22 EQUALS
|
||||
P66LOC EQUALS
|
||||
R47 EQUALS
|
||||
SERV EQUALS
|
||||
BNKSUM 32
|
||||
|
||||
BANK 33
|
||||
SERVICES EQUALS
|
||||
R29/SERV EQUALS
|
||||
ASENT6 EQUALS
|
||||
BNKSUM 33
|
||||
|
||||
BANK 34
|
||||
STBLEORB EQUALS
|
||||
P30S1 EQUALS
|
||||
CSI/CDH1 EQUALS
|
||||
ASCFILT EQUALS
|
||||
R12STUFF EQUALS
|
||||
SERV4 EQUALS
|
||||
BNKSUM 34
|
||||
|
||||
# Page 35
|
||||
BANK 35
|
||||
CSI/CDH EQUALS
|
||||
P30S EQUALS
|
||||
GLM EQUALS
|
||||
P40S2 EQUALS
|
||||
BNKSUM 35
|
||||
|
||||
# Page 36
|
||||
# MODULE 6 CONTAINS BANKS 36 THROUGH 43
|
||||
|
||||
BANK 36
|
||||
P40S EQUALS
|
||||
BNKSUM 36
|
||||
|
||||
BANK 37
|
||||
P05P06 EQUALS
|
||||
IMU2 EQUALS
|
||||
IMU4 EQUALS
|
||||
R31 EQUALS
|
||||
IMUSUPER EQUALS
|
||||
SERV1 EQUALS
|
||||
BNKSUM 37
|
||||
|
||||
BANK 40
|
||||
PINBALL1 EQUALS
|
||||
SELFSUPR EQUALS
|
||||
PINSUPER EQUALS
|
||||
R31LOC EQUALS
|
||||
BNKSUM 40
|
||||
|
||||
BANK 41
|
||||
PINBALL2 EQUALS
|
||||
BNKSUM 41
|
||||
|
||||
BANK 42
|
||||
SBAND EQUALS
|
||||
PINBALL3 EQUALS
|
||||
BNKSUM 42
|
||||
|
||||
BANK 43
|
||||
EXTVERBS EQUALS
|
||||
SELFCHEC EQUALS
|
||||
BNKSUM 43
|
||||
|
||||
# Page 37
|
||||
|
||||
HI6ZEROS EQUALS ZEROVECS # ZERO VECTOR ALWAYS IN HIGH MEMORY
|
||||
LO6ZEROS EQUALS ZEROVEC # ZERO VECTOR ALWAYS IN LOW MEMORY
|
||||
HIDPHALF EQUALS UNITX
|
||||
LODPHALF EQUALS XUNIT
|
||||
HIDP1/4 EQUALS DP1/4TH
|
||||
LODP1/4 EQUALS D1/4 # 2DEC .25
|
||||
HIUNITX EQUALS UNITX
|
||||
HIUNITY EQUALS UNITY
|
||||
HIUNITZ EQUALS UNITZ
|
||||
LOUNITX EQUALS XUNIT # 2DEC .5
|
||||
LOUNITY EQUALS YUNIT # 2DEC 0
|
||||
LOUNITZ EQUALS ZUNIT # 2DEC 0
|
||||
|
||||
DELRSPL EQUALS SPLRET # COL PGM, ALSO CALLED BY R30 IN LUMINARY.
|
||||
|
||||
# ROPE-SPECIFIC ASSIGNS OBVIATING NEED TO CHECK COMPUTER FLAG IN DETERMINING INTEGRATION AREA ENTRIES.
|
||||
|
||||
ATOPTHIS EQUALS ATOPLEM
|
||||
ATOPOTH EQUALS ATOPCSM
|
||||
OTHPREC EQUALS CSMPREC
|
||||
MOONTHIS EQUALS LMOONFLG
|
||||
MOONOTH EQUALS CMOONFLG
|
||||
MOVATHIS EQUALS MOVEALEM
|
||||
RMM = LODPMAX
|
||||
RME = LODPMAX1
|
||||
THISPREC EQUALS LEMPREC
|
||||
THISAXIS = UNITZ
|
||||
NB1NB2 EQUALS THISAXIS # FOR R31
|
||||
ERASID EQUALS BITS2-10 # DOWNLINK ERASABLE DUMP ID
|
||||
DELAYNUM EQUALS TWO
|
||||
|
721
Luminary099/TIME_OF_FREE_FALL.agc
Normal file
721
Luminary099/TIME_OF_FREE_FALL.agc
Normal file
@ -0,0 +1,721 @@
|
||||
# Copyright: Public domain.
|
||||
# Filename: TIME_OF_FREE_FALL.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: 1268-1283
|
||||
# Mod history: 2009-05-26 RSB Adapted from the corresponding
|
||||
# Luminary131 file, using page
|
||||
# images from Luminary 1A.
|
||||
# 2011-01-06 JL Fixed pseudo-label indentation.
|
||||
#
|
||||
# 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 1268
|
||||
# THE TFF SUBROUTINES MAY BE USED IN EITHER EARTH OR MOON CENTERED COORDINATES. THE TFF ROUTINES NEVER
|
||||
# KNOW WHICH ORIGIN APPLIES. IT IS THE USER WHO KNOWS, AND WHO SUPPLIES RONE, VONE, AND 1/SQRT(MU) AT THE
|
||||
# APPROPRIATE SCALE LEVEL FOR THE PROPER PRIMARY BODY.
|
||||
#
|
||||
# EARTH ORIGIN POSITION -29 METERS
|
||||
# VELOCITY -7 METERS/CENTISECOND
|
||||
# 1/SQRT(MU) +17 SQRT(CS SQ/METERS CUBED)
|
||||
#
|
||||
# MOON ORIGIN POSITION -27 METERS
|
||||
# VELOCITY -5 METERS/CENTISECONDS
|
||||
# 1/SQRT(MU) +14 SQRT(CS SQ/METERS CUBED)
|
||||
#
|
||||
# ALL DATA PROVIDED TO AND RECEIVED FROM ANY TFF SUBROUTINE WILL BE AT ONE OF THE LEVELS ABOVE. IN ALL CASES,
|
||||
# THE FREE FALL TIME IS RETURNED IN CENTISECONDS AT (-28). PROGRAM TFF/CONIC WILL GENERATE VONE/RTMU AND
|
||||
# LEAVE IT IN VONE' AT (+10) IF EARTH ORIGIN AND (+9) IF MOON ORIGIN.
|
||||
#
|
||||
# THE USER MUST STORE THE STATE VECTOR IN RONE, VONE, AND MU IN THE FORM 1/SQRT(MU) IN TFF/RTMU
|
||||
# AT THE PROPER SCALE BEFORE CALLING TFF/CONIC. SINCE RONE, VONE ARE IN THE EXTENDED VERB STORAGE AREA,
|
||||
# THE USER MUST ALSO LOCK OUT THE EXTENDED VERBS, AND RELEASE THEM WHEN FINISHED.
|
||||
#
|
||||
# PROGRAMS CALC/TFF AND CALC/TPER ASSUME THAT THE TERMINAL RADIUS IS LESS THAN THE PRESENT
|
||||
# RADIUS. THIS RESTRICTION CAN BE REMOVED BY A 15 W CODING CHANGE, BUT AT PRESENT IT IS NOT DEEMED NECESSARY.
|
||||
#
|
||||
# THE FOLLOWING ERASABLE QUANTITIES ARE USED BY THE TFF ROUTINES, AND ARE LOCATED IN THE PUSH LIST.
|
||||
#
|
||||
# BELOW E: IS USED FOR EARTH ORIGIN SCALE
|
||||
# M: IS USED FOR MOON ORIGIN SCALE
|
||||
#
|
||||
#TFFSW = 119D # BIT1 0 = CALCTFF 1 = CALCTPER
|
||||
TFFDELQ = 10D # Q2-Q1 E: (-16) M: (-15)
|
||||
RMAG1 = 12D # ABVAL(RN) M E: (-29) M: (-27)
|
||||
#RPER = 14D # PERIGEE RADIUS M E: (-29) M: (-27)
|
||||
TFFQ1 = 14D # R.V / SQRT(MUE) E: (-16) M: (-15)
|
||||
#SDELF/2 # SIN(THETA) /2
|
||||
CDELF/2 = 14D # COS(THETA) /2
|
||||
#RAPO = 16D # APOGEE RADIUS M E: (-29) M: (-27)
|
||||
NRTERM = 16D # TERMINAL RADIUS M E: (-29+NR)
|
||||
# M: (-27+NR)
|
||||
RTERM = 18D # TERMINAL RADIUS M E: (-29) M: (-27)
|
||||
TFFVSQ = 20D # -(V SQUARED/MU) 1/M E: (20) M: (18)
|
||||
TFF1/ALF = 22D # SEMI MAJ AXIS M E: (-22-2 NA)
|
||||
# M: (-20-2 NA)
|
||||
TFFRTALF = 24D # SQRT(ALFA) E:(10+NA) M: (9+NA)
|
||||
TFFALFA = 26D # ALFA 1/M E:(26-NR) M: (24-NR)
|
||||
TFFNP = 28D # SEMI LATUS RECTUM M E: (-38+2 NR)
|
||||
# M: (-36+2 NR)
|
||||
TFF/RTMU = 30D # 1/SQRT(MU) E: (17) M: (14)
|
||||
NRMAG = 32D # PRESENT RADIUS M E: (-29+NR)
|
||||
# M: (-27+NR)
|
||||
TFFX = 34D #
|
||||
TFFTEM = 36D # TEMPORARY
|
||||
# Page 1269
|
||||
# REGISTERS S1, S2 ARE UNTOUCED BY ANY TFF SUBROUTINE
|
||||
# INDEX REGISTERS X1, X2 ARE USED BY ALL TFF SUBROUTINES. THEY ARE ESTAB-
|
||||
# LISHED IN TFF/CONIC AND MUST BE PRESERVED BETWEEN CALLS TO SUBSEQUENT
|
||||
# SUBROUTINES.
|
||||
# -NR C(X1) = NORM COUNT OF RMAG
|
||||
# -NA C(X2) = NORM COUNT OF SQRT(ABS(ALFA))
|
||||
|
||||
# Page 1270
|
||||
# SUBROUTINE NAME: TFFCONIC DATE: 01.29.67
|
||||
# MOD NO: 0 LOG SECTION: TIME OF FREE FALL
|
||||
# MOD BY: RR BAIRNSFATHER
|
||||
# MOD NO: 1 MOD BY: RR BAIRNSFATHER DATE: 11 APR 67
|
||||
# MOD NO: 2 MOD BY: RR BAIRNSFATHER DATE: 21 NOV 67 ADD MOON MU.
|
||||
# MOD NO: 3 MOD BY: RR BAIRNSFATHER DATE: 21 MAR 68 ACCEPT DIFFERENT EARTH/MOON SCALES
|
||||
#
|
||||
# FUNCTIONAL DESCRIPTION: THIS SUBROUTINE IS CALLED TO COMPUTE THOSE CONIC PARAMETERS REQUIRED BY THE TFF
|
||||
# SUBROUTINES AND TO ESTABLISH THEM IN THE PUSH LIST AREA. THE PARAMETERS ARE LISTED UNDER OUTPUT.
|
||||
# THE EQUATIONS ARE:
|
||||
# _ __ __
|
||||
# H = RN*VN ANGULAR MOMENTUM
|
||||
# _ _
|
||||
# LCP = H.H / MU SEMI LATUS RECTUM
|
||||
# __ __
|
||||
# ALFA = 2/RN - VN.VN / MU RECIPROCAL SEMI-MAJOR AXIS, SIGNED
|
||||
#
|
||||
# AND ALFA IS POS FOR ELLIPTIC ORBITS
|
||||
# 0 FOR PARABOLIC ORBITS
|
||||
# NEG FOR HYPERBOLIC ORBITS
|
||||
# SUBROUTINE ALSO COMPUTES AND SAVES RMAG.
|
||||
#
|
||||
# CALLING SEQUENCE:
|
||||
# TFFCONIC EXPECTS CALLER TO ENTER WITH CORRECT GRAVITATIONAL CONSTANT IN MPAC, IN THE FORM
|
||||
# 1/SQRT(MU). THE PROGRAM WILL SAVE IN TFF/RTMU. THE SCALE IS DETERMINED BY WHETHER EARTH OR MOON
|
||||
# ORIGIN IS USED. THE CALLER MUST LOCK OUT THE EXTENDED VERBS BEFORE PROVIDING STATE VECTOR IN RONE,
|
||||
# VONE AT PROPER SCALE. THE EXTENDED VERBS MUST BE RESTORED WHEN THE CALLER IS FINISHED USING THE
|
||||
# TFF ROUTINES.
|
||||
#
|
||||
# ENTRY POINT TFFCONMU EXPECTS THAT TFF/RTMU IS ALREADY LOADED.
|
||||
#
|
||||
# TO SPECIFY MU: DLOAD CALL IF MU ALREADY STORED: CALL
|
||||
# YOURMU 1/RTMU E:(17) M:(14) TFFCONMU
|
||||
# TFFCONIC
|
||||
# PUSHLOC = PDL+0, ARBITRARY IF LEQ 18D
|
||||
#
|
||||
# SUBROUTINES CALLED: NONE
|
||||
#
|
||||
# NORMAL EXIT MODES: RVQ
|
||||
#
|
||||
# ALARMS: NONE
|
||||
#
|
||||
# OUTPUT: THE FOLLOWING ARE STORED IN THE PUSH LIST AREA.
|
||||
# RMAG1 E:(-29) M:(-27) M RN, PRESENT RADIUS LENGTH.
|
||||
# NRMAG E:(-29+NR) M RMAG, NORMALIZED
|
||||
# M:(-27+NR)
|
||||
# X1 -NR, NORM COUNT
|
||||
# TFFNP E:(-38+2NR) M LCP, SEMI LATUS RECTUM, WEIGHTED BY NR. FOR VGAMCALC.
|
||||
# M:(-36+2NR)
|
||||
# TFF/RTMU E:(17) M:(14) 1/SQRT(MU)
|
||||
# TFFVSQ E:(20) M:(18) 1/M -(V SQ/MU): PRESENT VELOCITY, NORMALIZED. FOR VGAMCALC
|
||||
# TFFALFA E:(26-NR) 1/M ALFA, WEIGHTED BY NR
|
||||
# M:(24-NR)
|
||||
# TFFRTALF E:(10+NA) SQRT(ALFA), NORMALIZED
|
||||
# M:(9+NA)
|
||||
# Page 1271
|
||||
# X2 -NA, NORMCOUNT
|
||||
# TFF1/ALF E:(-22-2NA) SIGNED SEMI MAJ AXIS, WEIGHTED BY NA
|
||||
# M:(-20-2NA)
|
||||
# PUSHLOC AT PDL+0
|
||||
#
|
||||
# THE FOLLOWING IS STORED IN GENERAL ERASABLE
|
||||
# VONE' E:(10) M:(9) V/RT(MU), NORMALIZED VELOCITY
|
||||
#
|
||||
# ERASABLE INITIALIZATION REQUIRED:
|
||||
# RONE E:(-29) M:(-27) M STATE VECTOR LEFT BY CALLER
|
||||
# VONE E:(-7) M:(-5) M/CS STATE VECTOR LEFT BY CALLER
|
||||
# TFF/RTMU E:(17) M:(14) 1/RT(CS SQ/M CUBE) IF ENTER VIA TFFCONMU.
|
||||
#
|
||||
# DEBRIS: QPRET PDL+0 ... PDL+3
|
||||
|
||||
BANK 33
|
||||
SETLOC TOF-FF
|
||||
BANK
|
||||
|
||||
COUNT* $$/TFF
|
||||
|
||||
TFFCONIC STORE TFF/RTMU # 1/SQRT(MU) E:(17) M:(14)
|
||||
|
||||
TFFCONMU VLOAD UNIT # COME HERE WITH TFFRTMU LOADED.
|
||||
RONE # SAVED RN. M E:(-29) M:(-27)
|
||||
PDDL # UR/2 TO PDL+0, +5
|
||||
36D # MAGNITUDE
|
||||
STORE RMAG1 # M E:(-29) M:(-27)
|
||||
|
||||
NORM
|
||||
X1 # -NR
|
||||
STOVL NRMAG # RMAG M E:(-29+NR) M:(-27+NR)
|
||||
VONE # SAVED VN. M/CS E:(-7) M:(-5)
|
||||
VXSC
|
||||
TFF/RTMU # E:(17) M:(14)
|
||||
STORE VONE' # VN/SQRT(MU) E:(10) M:(9)
|
||||
|
||||
VXSC VXV
|
||||
NRMAG # E:(-29+NR) M:(-27+NR)
|
||||
# UR/2 FROM PDL
|
||||
VSL1 VSQ # BEFORE: E:(-19+NR) M:(-18+NR)
|
||||
STODL TFFNP # LC P M E:(-38+2NR) M:(-36+2NR)
|
||||
# SAVE ALSO FOR VGAMCALC
|
||||
TFF1/4
|
||||
DDV PDVL # (2/RMAG) 1/M E:(26-NR) M:(24-NR)
|
||||
NRMAG # RMAG M E:(-29+NR) M:(-27+NR)
|
||||
VONE' # SAVED VN. E:(10) M:(9)
|
||||
VSQ DCOMP # KEEP MPAC+2 HONEST FOR SQRT.
|
||||
STORE TFFVSQ # -(V SQ/MU) E:(20) M:(18)
|
||||
# SAVE FOR VGAMCALC
|
||||
SR* DAD
|
||||
# Page 1272
|
||||
0 -6,1 # GET -VSQ/MU E:(26-NR) M:(24-NR)
|
||||
STADR
|
||||
# 2/RMAG FROM PDL+2
|
||||
STORE TFFALFA # ALFA 1/M E:(26-NR) M:(24-NR)
|
||||
SL* PUSH # TEMP SAVE ALFA E:(20) M:(18)
|
||||
0 -6,1
|
||||
ABS SQRT # E:(10) M:(9)
|
||||
NORM
|
||||
X2 # X2 = -NA
|
||||
STORE TFFRTALF # SQRT( ABS(ALFA) ) E:(10+NA) M:(9+NA)
|
||||
DSQ SIGN # NOT SO ACCURATE, BUT OK
|
||||
# ALFA FROM PDL+2 E:(20) M:(18)
|
||||
BZE BDDV # SET 1/ALFA =0, TO SHOW SMALL ALFA
|
||||
+2
|
||||
TFF1/4
|
||||
+2 STORE TFF1/ALF # 1/ALFA E:(-22-2NA) M:(-20-2NA)
|
||||
DUMPCNIC RVQ
|
||||
|
||||
# 39 W
|
||||
# Page 1273
|
||||
# SUBROUTINE NAME: TFFRP/RA DATE: 01.17.67
|
||||
# MOD NO: 0 LOG SECTION: TIME OF FREE FALL
|
||||
# MOD NO: 1 MOD BY: RR BAIRNSFATHER DATE: 11 APR 67
|
||||
# MOD NO: 2 MOD BY: RR BAIRNSFATHER DATE: 21 MAR 68 ACCEPT DIFFERENT EARTH/MOON SCALES
|
||||
# ALSO IMPROVE ACCURACY OF RAPO.
|
||||
#
|
||||
# FUNCTIONAL DESCRIPTION: USED BY CALCTPER AND TFF DISPLAYS TO CALCULATE PERIGEE RADIUS AND ALSO
|
||||
# APOGEE RADIUS FOR A GENERAL CONIC.
|
||||
# PROGRAM GIVES PERIGEE RADIUS AS APOGEE RADIUS IS GIVEN BY
|
||||
# RP = P/(1+E) RA = (1+E) / ALFA
|
||||
# WHERE 2
|
||||
# E = 1 - P ALFA
|
||||
# IF RA IS NEGATIVE OR SHOWS DIVIDE OVERFLOW, THEN RA = POSMAX BECAUSE
|
||||
# 1. APOGEE RADIUS IS NOT MEANINGFUL FOR HYPERBOLA
|
||||
# 2. APOGEE RADIUS IS NOT DEFINED FOR PARABOLA
|
||||
# 3. APOGEE RADIUS EXCEEDS THE SCALING FOR ELLIPSE.
|
||||
#
|
||||
# THIS SUBROUTINE REQUIRED THE SIGNED RECIPROCAL SEMI MAJ AXIS, ALFA, AND SEMI-LATUS RECTUM AS DATA.
|
||||
#
|
||||
# CALLING SEQUENCE: CALL
|
||||
# TFFRP/RA
|
||||
# PUSHLOC = PDL+0, ARBITRARY IF LEQ 10D
|
||||
# C(MPAC) UNSPECIFIED
|
||||
#
|
||||
# SUBROUTINES CALLED: NONE
|
||||
#
|
||||
# NORMAL EXIT MODE: RVQ
|
||||
# IF ELLIPSE, WITHIN NORMAL SCALING, RAPO IS CORRECT.
|
||||
# OTHERWISE, RAPO = POSMAX.
|
||||
#
|
||||
# ALARMS: NONE
|
||||
#
|
||||
# OUTPUT: STORED IN PUSH LIST AREA. SCALE OF OUTPUT AGREES WITH DATA SUPPLIED TO TFF/CONIC.
|
||||
# RPER E:(-29) M:(-27) M PERIGEE RADIUS DESTROYED BY CALCTFF/CALCTPER, TFFTRIG.
|
||||
# RAPO E:(-29) M:(-27) M APOGEE RADIUS WILL BE DESTROYED BY CALCTFF/CALCTPER
|
||||
# PUSHLOC AT PDL+0
|
||||
#
|
||||
# ERASABLE INITIALIZATION REQUIRED:
|
||||
# TFFALFA E:(26-NR) M 1/SEMI MAJ AXIS LEFT BY TFFCONIC
|
||||
# M:(24-NR)
|
||||
# TFFNP E:(-38+2NR) M LC P, SEMI LATUS RECTUM LEFT BY TFFCONIC
|
||||
# M:(-36+2NR)
|
||||
# X1 -NR, NORM COUNT OF RMAG LEFT BY TFFCONIC
|
||||
# X2 -NA, NORM COUNT OF ALFA LEFT BY TFFCONIC
|
||||
#
|
||||
# DEBRIS: QPRET, PDL+0 ... PDL+1
|
||||
|
||||
# Page 1274
|
||||
RAPO = 16D # APOGEE RADIUS M E:(-29) M:(-27)
|
||||
RPER = 14D # PERIGEE RADIUS M E:(-29) M:(-27)
|
||||
|
||||
TFFRP/RA DLOAD DMP
|
||||
TFFALFA # ALFA 1/M E:(26-NR) M:(24-NR)
|
||||
TFFNP # LC P M E:(-38+2NR) M:(-36+2NR)
|
||||
SR* DCOMP # ALFA P (-12+NR)
|
||||
0 -8D,1 # ALFA P (-4)
|
||||
DAD ABS # (DCOMP GIVES VALID TP RESULT FOR SQRT)
|
||||
# (ABS PROTECTS SQRT IF E IS VERY NEAR 0)
|
||||
DP2(-4)
|
||||
SQRT DAD # E SQ = (1- P ALFA) (-4)
|
||||
TFF1/4
|
||||
PUSH BDDV # (1+E) (-2) TO PDL+0
|
||||
TFFNP # LCP M E:(-38+2NR) M:(-36+2NR)
|
||||
SR* SR* # (DOES SR THEN SL TO AVOID OVFL)
|
||||
0,1 # X1=-NR
|
||||
0 -7,1 # (EFFECTIVE SL)
|
||||
STODL RPER # PERIGEE RADIUS M E:(-29) M:(-27)
|
||||
# (1+E) (-2) FROM PDL+0
|
||||
DMP BOVB
|
||||
TFF1/ALF # E:(-22-2NA) M:(-20-2NA)
|
||||
TCDANZIG # CLEAR OVFIND, IF ON.
|
||||
BZE SL*
|
||||
MAXRA # SET POSMAX IF ALFA=0
|
||||
0 -5,2 # -5+NA
|
||||
SL* BOV
|
||||
0,2
|
||||
MAXRA # SET POSMAX IF OVFL.
|
||||
BPL # CONTINUE WITH VALID RAPO.
|
||||
+3
|
||||
MAXRA DLOAD # RAPO CALC IS NOT VALID. SET RAPO =
|
||||
NEARONE # POSMAX AS A TAG.
|
||||
+3 STORE RAPO # APOGEE RADIUS M E:(-29) M:(-27)
|
||||
DUMPRPRA RVQ
|
||||
|
||||
# 30 W
|
||||
# Page 1275
|
||||
# SUBROUTINE NAME: CALCTPER / CALCTFF DATE: 01.29.67
|
||||
# MOD NO: 0 LOG SECTION: TIME OF FREE FALL
|
||||
# MOD BY: RR BAIRNSFATHER
|
||||
# MOD NO: 1 MOD BY: RR BAIRNSFATHER DATE: 21 MAR 67
|
||||
# MOD NO: 2 MOD BY: RR BAIRNSFATHER DATE: 14 APR 67
|
||||
# MOD BY: 3 MOD BY: RR BAIRNSFATHER DATE: 8 JUL 67 NEAR EARTH MUE AND NEG TFF (GONEPAST)
|
||||
# MOD BY: 4 MOD BY: RR BAIRNSFATHER DATE: 21 NOV 67 ADD VARIABLE MU.
|
||||
# MOD BY: 5 MOD BY: RR BAIRNSFATHER DATE: 21 MAR 68 ACCEPT DIFFERENT EARTH/MOON SCALES
|
||||
#
|
||||
# FUNCTIONAL DESCRIPTION: PROGRAM CALCULATES THE FREE-FALL TIME OF FLIGHT FROM PRESENT POSITION RN AND
|
||||
# VELOCITY VN TO A RADIUS LENGTH SPECIFIED BY RTERM, SUPPLIED BY THE USER. THE POSITION VECTOR
|
||||
# RN MAY BE ON EITHER SIDE OF THE CONIC, BUT RTERM IS CONSIDERED ON THE INBOUND SIDE.
|
||||
# THE EQUATIONS ARE:
|
||||
#
|
||||
# Q2 = -SQRT(RTERM (2-RTERM ALFA) - LCP) (INBOUND SIDE) LEQ +- LCE/SQRT(ALFA)
|
||||
# __ __
|
||||
# Q1 = RN.VN / SQRT(MU) LEQ +- LCE/SQRT(ALFA)
|
||||
#
|
||||
# Z = NUM / DEN LEQ +- 1/SQRT(ALFA)
|
||||
#
|
||||
# WHERE, IF INBOUND
|
||||
# NUM = RTERM -RN LEQ +- 2 LCE/ALFA
|
||||
# DEN = Q2+Q1 LEQ +- 2 LCE/SQRT(ALFA)
|
||||
#
|
||||
# AND, IF OUTBOUND
|
||||
# NUM = Q2-Q1 LEQ +- 2 LCE/SQRT(ALFA)
|
||||
# DEN = 2 - ALFA (RTERM + RN). LEQ +- 2 LCE
|
||||
#
|
||||
# IF ALFA ZZ < 1.0 (FOR ALL CONICS EXCEPT ELLIPSES HAVING ABS(DEL ECC ANOM) G 90 DEG)
|
||||
# THEN X = ALFA Z Z
|
||||
# AND TFF = (RTERM +RN -2 ZZ T(X) ) Z/SQRT(MU)
|
||||
# EXCEPT IF ALFA PNZ, AND IF TFF NEG,
|
||||
# THEN TFF = 2 PI /(ALFA SQRT(ALFA)) + TFF
|
||||
# OR IF ALFA ZZ GEQ 1.0 (FOR ELLIPSES HAVING ABS(DEL ECC ANOM) GEQ 90 DEG)
|
||||
# THEN X = 1/ALFA Z Z
|
||||
# AND TFF = (PI/SQRT(ALFA) -Q2 +Q1 +2(X T(X) -1) /ALFA Z) /ALFA SQRT(MU)
|
||||
# WHERE T(X) IS A POLYNOMIAL APPROXIMATION TO THE SERIES
|
||||
# 2 3 2
|
||||
# 1/3 - X/5 + X /7 - X /8 ... (X < 1.0)
|
||||
#
|
||||
# CALLING SEQUENC: TIME TO RTERM TIME TO PERIGEE
|
||||
# CALL CALL
|
||||
# CALCTFF CALCTPER
|
||||
# C(MPAC) = TERMNL RAD M C(MPAC) = PERIGEE RAD M
|
||||
# FOR EITHER, E:(-29) M:(-27)
|
||||
# FOR EITHER, PUSHLOC = PDL+0, ARBITRARY IF LEQ 8D.
|
||||
# Page 1276
|
||||
#
|
||||
# SUBROUTINES CALLED: T(X), VIA RTB
|
||||
#
|
||||
# NORMAL EXIT MODE: RVQ
|
||||
# HOWEVER, PROGRAM EXITS WITH ONE OF THE FOLLOWING VALUES FOR TFF (-28) CS IN MPAC. USER MUST STORE.
|
||||
# A. TFF = FLIGHT TIME. NORMAL CASE FOR POSITIVE FLIGHT TIME LESS THAN ONE ORBITAL PERIOD.
|
||||
# B. (THIS OPTION IS NO LONGER USED.)
|
||||
# C. TFF = POSMAX. THIS INDICATES THAT THE CONIC FROM THE PRESENT POSITION WILL NOT RETURN TO
|
||||
# THE SPECIFIED ALTITUDE. ALSO INDICATES OUTBOUND PARABOLA OR HYPERBOLA.
|
||||
#
|
||||
# OUTPUT: C(MPAC) (-28) CS TIME OF FLIGHT, OR TIME TO PERIGEE
|
||||
# TFFX (0) X LEFT FOR ENTRY DISPLAY TFF ROUTINES
|
||||
# NRTERM E:(-29+NR) M RTERM, WEIGHTED BY NR LEFT FOR ENTRY DISPLAY TFF ROUTINES
|
||||
# M:(-27+NR)
|
||||
# TFFTEM E:(-59+2NR) LCP Z Z SGN(SDELF) LEFT FOR ENTRY DISPLAY TFF ROUTINES
|
||||
# M:(-55+2NR) LCP /ALFA SGN(SDELF) LEFT FOR ENTRY DISPLAY TFF ROUTINES
|
||||
# NOTE: TFFTEM = PDL 36D AND WILL BE DESTROYED BY .:UNIT:.
|
||||
# RMAG1 E:(-29) M:(-27) PDL 12 NOT TOUCHED.
|
||||
# TFFQ1 E:(-16) M:(-15) PDL 14D
|
||||
# TFFDELQ E:(-16) M:(-15) PDL 10D
|
||||
# PUSHLOC AT PDL+0
|
||||
#
|
||||
# ERASABLE INITIALIZATION REQUIRED:
|
||||
# RONE E:(-29) M:(-27) M STATE VECTOR LEFT BY USER
|
||||
# VONE' E:(+10) M:(+9) VN/SQRT(NU) LEFT BY TFF/CONIC
|
||||
# RMAG1 E:(-29) M:(-27) PRESENT RADIUS, M LEFT BY TFFCONIC
|
||||
# C(MPAC) E:(-29) M:(-27) RTERM, TERMINAL RADIUS LENGTH, M LEFT BY USER
|
||||
#
|
||||
# THE FOLLOWING ARE STORED IN THE PUSH LIST AREA.
|
||||
# TFF/RTMU E:(17) M:(14) 1/SQRT(MU) LEFT BY TFFCONIC.
|
||||
# NRMAG E:(-29+NR) M RMAG, NORMALIZED LEFT BY TFFCONIC
|
||||
# M:(-27+NR)
|
||||
# X1 -NR, NORM COUNT LEFT BY TFFCONIC
|
||||
# TFFNP E:(-38+2NR) M LCP, SEMI LATUS RECTUM, WEIGHT NR LEFT BY TFFCONIC
|
||||
# M:(-36+2N4)
|
||||
# TFFALFA E:(26-NR) 1/M ALFA, WEIGHT NR LEFT BY TFFCONIC
|
||||
# M:(24-NR)
|
||||
# TFFRTALF E:(10+NA) SQRT(ALFA), NORMALIZED LEFT BY TFFCONIC
|
||||
# M:(9+NA)
|
||||
# X2 -NA, NORMCOUNT LEFT BY TFFCONIC
|
||||
# TFF1/ALF E:(-22-2NA) SIGNED SEMI-MAJOR AXIS, WEIGHTED BY NA LEFT BY TFFCONIC
|
||||
# M:(-20-2NA)
|
||||
#
|
||||
# DEBRIS: QPRET, PDL+0 ... PDL+3
|
||||
# RTERM E:(-29) M(-27) RTERM, TERMINAL RADIUS LENGTH
|
||||
# RAPO E:(-29) M(-27) PDL 16D (=NRTERM)
|
||||
# RPER E:(-29) M(-27) PDL 14D (=TFFQ1)
|
||||
|
||||
# Page 1277
|
||||
CALCTPER SETGO # ENTER WITH RPER IN MPAC
|
||||
TFFSW
|
||||
+3
|
||||
CALCTFF CLEAR # ENTER WITH RTERM IN MPAC
|
||||
TFFSW
|
||||
+3 STORE RTERM # E:(-29) M:(-27)
|
||||
SL*
|
||||
0,1 # X1=-NR
|
||||
STORE NRTERM # RTERM E:(-29+NR) M:(-27+NR)
|
||||
DMP BDSU
|
||||
TFFALFA # ALFA E:(26-NR) M:(24-NR)
|
||||
TFF1/4
|
||||
PUSH DMP # (2-ALFA RTERM) (-3) TO PDL+0
|
||||
NRTERM # E:(-29+NR) M:(-27+NR)
|
||||
PDDL SR* # RTERM(2-ALFA RTERM) TO PDL+2
|
||||
# E:(-32+NR) M:(-30+NR)
|
||||
TFFNP # LC P E:(-38+2NR) M:(-36+2NR)
|
||||
0 -6,1 # X1 = -NR
|
||||
DCOMP DAD # DUE TO SHIFTS, KEEP PRECISION FOR SQRT
|
||||
# RTERM(2-ALFA RTERM) FROM PDL +2
|
||||
# E:(-32+NR) M:(-30+NR)
|
||||
SR* # LEAVE E:(-32) M:(-30)
|
||||
0,1 # X1 = -NR
|
||||
BOFF DLOAD # CHECK TFF /TPER SWITCH
|
||||
TFFSW
|
||||
+2 # IF TFF, CONTINUE
|
||||
TFFZEROS # IF TPER, SET Q2 = 0
|
||||
+2 BMN SQRT # E:(-16) M:(-15)
|
||||
|
||||
MAXTFF1 # NO FREE FALL CONIC TO RTERM FROM HERE
|
||||
# RESET PDL, SET TFF=POSMAX, AND EXIT.
|
||||
|
||||
DCOMP BOVB # RT IS ON INBOUND SIDE. ASSURE OVFIND=0
|
||||
TCDANZIG # ANY PORT IN A STORM.
|
||||
STOVL TFFTEM # Q2 E:(-16) M:(-15)
|
||||
VONE' # VN/SQRT(MU) E:(10) M:(9)
|
||||
DOT SL3
|
||||
RONE # SAVED RN. E:(-29) M:(-27)
|
||||
STORE TFFQ1 # Q1, SAVE FOR GONEPAST TEST.
|
||||
# E:(-16) M:(-15)
|
||||
BMN BDSU
|
||||
INBOUND # USE ALTERNATE Z
|
||||
TFFTEM # Q2 E:(-16) M:(-15)
|
||||
|
||||
# OUTBOUND Z CALC CONTINUES HERE
|
||||
|
||||
STODL TFFX # NUM=Q2-Q1 E:(-16) M:(-15)
|
||||
TFFALFA # ALFA E:(26-NR) M:(24-NR)
|
||||
DMP BDSU
|
||||
# Page 1278
|
||||
NRMAG # RMAG E:(-29+NR) M:(-27+NR)
|
||||
# (2-RTERM ALFA) (-3) FROM PDL+0
|
||||
SAVEDEN PUSH ABS # DEN TO PDL+0 E:(-3) OR (-16)
|
||||
# M:(-3) OR (-15)
|
||||
DAD BOV # INDETERMINANCY TEST
|
||||
LIM(-22) # =1.0-B(-22)
|
||||
TFFXTEST # GO IF DEN >/= B(-22)
|
||||
DLOAD PDDL # SET DEN=0 OTHERWISE
|
||||
TFFZEROS
|
||||
# XCH ZERO WITH PDL+0
|
||||
DLOAD DCOMP
|
||||
TFFALFA # ALFA E:(26-NR) M:(24-NR)
|
||||
BMN DLOAD # FOR TPER: Z INDET AT DELE/2=0 AND 90.
|
||||
TFFEL1 # ASSUME 90, AND LEAVE 0 IN PDL: 1/Z=D/N
|
||||
|
||||
# Z INDET. AT PERIGEE FOR PARAB OR HYPERB.
|
||||
DUMPTFF1 RVQ # RETURN TFF =0
|
||||
|
||||
# INBOUND Z CALC CONTINUES HERE
|
||||
|
||||
INBOUND DLOAD # RESET PDL+0
|
||||
DLOAD DSU # ALTERNATE Z CALC
|
||||
RTERM # E:(-29) M:(-27)
|
||||
RMAG1 # E:(-29) M:(-27)
|
||||
STODL TFFX # NUM=RTERM-RN E:(-29) M:(-27)
|
||||
TFFTEM # Q2 E:(-16) M:(-15)
|
||||
DAD GOTO
|
||||
TFFQ1 # Q1 E:(-16) M:(-15)
|
||||
SAVEDEN # DEN = Q2+Q1 E:(-16) M:(-15)
|
||||
|
||||
TFFXTEST DAD PDDL # (ABS(DEN) TO PDL+2) E:(-3) OR (-16)
|
||||
# M:(-3) OR (-15)
|
||||
DP(-22) # RESTORE ABS(DEN) TO MPAC
|
||||
TFFX # NUM E:(-16) OR (-29) M:(-15) OR (-27)
|
||||
DMP SR*
|
||||
TFFRTALF # SQRT(ALFA) E:(10+NA) M:(9+NA)
|
||||
0 -3,2 # X2=-NA
|
||||
DDV # C(MPAC) =NUM SQRT(ALFA) E:(-3) OR (-16)
|
||||
# M:(-3) OR (-15)
|
||||
# ABS(DEN) FROM PDL+2 E:(-3) OR (-16)
|
||||
# M:(-3) OR (-15)
|
||||
DLOAD BOV # (THE DLOAD IS SHARED WITH TFFELL)
|
||||
TFFX # NUM E:(-16) OR (-29) M:(-15) OR (-27)
|
||||
TFFELL # USE EQN FOR DELE GEQ 90, LEQ -90
|
||||
|
||||
# OTHERWISE, CONTINUE FOR GENERAL CONIC FOR TFF EQN
|
||||
|
||||
DDV STADR
|
||||
# DEN FROM PDL+0 E:(-3) OR (-16)
|
||||
# M:(-3) OR (-15)
|
||||
STORE TFFTEM # Z SAVE FOR SIGN OF SDELF.
|
||||
# Page 1279
|
||||
# E:(-13) M:(-12)
|
||||
PUSH DSQ # Z TO PDL+0
|
||||
PUSH DMP # Z SQ TO PDL+2 E:(-26) M:(-24)
|
||||
TFFNP # LC P E:(-38+2NR) M:(-36+NR)
|
||||
SL SIGN
|
||||
5
|
||||
TFFTEM # AFFIX SIGN FOR SDELF (ENTRY DISPLAY)
|
||||
STODL TFFTEM # P ZSQ E:(-59+2NR) M:(-55+2NR)
|
||||
# (ARG IS USED IN TFF/TRIG)
|
||||
# ZSQ FROM PDL+2 E:(-26) M:(-24)
|
||||
PUSH DMP # RESTORE PUSH LOC
|
||||
TFFALFA # ALFA E:(26-NR) M:(24-NR)
|
||||
SL*
|
||||
0,1 # X1=-NR
|
||||
STORE TFFX # X
|
||||
RTB DMP
|
||||
T(X) # POLY
|
||||
# ZSQ FROM PDL+2 E:(-26) M:(-24)
|
||||
SR2 BDSU # 2 ZSQ T(X) E:(-29) M:(-27)
|
||||
RTERM # RTERM E:(-29) M:(-27)
|
||||
DAD DMP
|
||||
RMAG1 # E:(-29) M:(-27)
|
||||
# Z FROM PDL+0 E:(-13) M:(-12)
|
||||
SR3 BPL # TFF SQRT(MU) E:(-45) M:(-42)
|
||||
ENDTFF # (NO PUSH UP)
|
||||
PUSH SIGN # TFF SQRT(MU) TO PDL+0
|
||||
TFFQ1 # Q1 FOR GONEPAST TEST
|
||||
BPL DLOAD # GONE PAST ?
|
||||
NEGTFF # YES. TFF < 0.
|
||||
TFF1/ALF # 1/ALFA E:(-22-2NA) M:(-20-2NA)
|
||||
DCOMP BPL # ALFA > 0 ?
|
||||
NEGTFF # NO. TFF IS NEGATIVE.
|
||||
|
||||
# CORRECT FOR ORBITAL PERIOD.
|
||||
|
||||
DCOMP # YES. CORRECT FOR ORB PERIOD.
|
||||
DMP DDV
|
||||
PI/16 # 2 PI (-5)
|
||||
TFFRTALF # SQRT(ALFA) E:(10+NA) M:(9+NA)
|
||||
SL* SL*
|
||||
0 -4,2 # X2=-NA
|
||||
0 -4,2
|
||||
SL* DAD
|
||||
0,2
|
||||
# TFF SQRT(MU) FROM PDL+0 E:(-45) M:(-42)
|
||||
ENDTFF DMP BOV # TFF SQRT(MU) IN MPAC E:(-45) M:(-42)
|
||||
TFF/RTMU # E:(17) M:(14)
|
||||
MAXTFF # SET POSMAX IN OVFL.
|
||||
|
||||
DUMPTFF2 RVQ # RETURN TFF (-28) CS IN MPAC.
|
||||
|
||||
# Page 1280
|
||||
NEGTFF DLOAD
|
||||
# TFF SQRT(MU) FROM PDL+0, NEGATIVE.
|
||||
GOTO
|
||||
ENDTFF
|
||||
|
||||
MAXTFF1 DLOAD # RESET PDL
|
||||
MAXTFF DLOAD RVQ
|
||||
NEARONE
|
||||
|
||||
# TIME OF FLIGHT ELLIPSE WHEN DEL (ECCENTRIC ANOM) GEQ 90 AND LEQ -90.
|
||||
|
||||
# NUM FROM TFFX. E:(-16) OR (-29)
|
||||
# M:(-15) OR (-27)
|
||||
TFFELL SL2 # NUM E:(-14) OR (-27) M:(-13) OR (-25)
|
||||
BDDV PUSH # TEMP SAVE D/N IN PDL+0
|
||||
# DEN FROM PDL+0 E:(-3)/(-16) M:(-3)/(-15)
|
||||
# N/D TO PDL+0 E:(11) M:(10)
|
||||
TFFEL1 DLOAD DSU # (ENTER WITH D/N=0 IN PDL+0)
|
||||
TFFTEM # Q2 E:(-16) M:(-15)
|
||||
TFFQ1 # Q1 E:(-16) M:(-15)
|
||||
STODL TFFDELQ # Q2-Q1 E:(-16) M:(-15)
|
||||
# D/N FROM PDL+0
|
||||
STADR
|
||||
STORE TFFTEM # D/N E:(11) M:(10)
|
||||
DMP SL*
|
||||
TFF1/ALF # 1/ALFA E:(-22-2NA) M:(-20-2NA)
|
||||
0,2 # 1/ALFA Z E:(-11-NA) M:(-10-NA)
|
||||
PUSH DMP # TO PDL+0
|
||||
TFFTEM # 1/Z E:(11) M:(10
|
||||
SL* BOVB
|
||||
0,2 # X2= -NA
|
||||
SIGNMPAC # IN CASE X= 1.0, CONTINUE
|
||||
STORE TFFX # X=1/ALFA ZSQ
|
||||
RTB DMP
|
||||
T(X) # POLY
|
||||
TFFX
|
||||
SR3 DSU
|
||||
DP2(-3)
|
||||
DMP PUSH # 2(X T(X)-1) /Z ALFA E:(-15-NA)
|
||||
# M:(-14-NA)
|
||||
# 1/ALFA Z FROM PDL+0 E:(-11-NA)
|
||||
# M:(-10-NA)
|
||||
DLOAD DMP # GET SIGN FOR SDELF
|
||||
TFFTEM # 1/Z E:(11) M:(10)
|
||||
RMAG1 # E:(-29) M:(-27)
|
||||
SL2 DAD
|
||||
TFFQ1 # Q1 E:(-16) M:(-15)
|
||||
STODL TFFTEM # (Q1+R 1/Z) =SGN OF SDELF E:(-16) M:(-15)
|
||||
TFFNP # LC P E:(-38+2NR) M:(-36+2NR)
|
||||
DMP SL* # CALC FOR ARG FOR TFF/TRIG.
|
||||
# Page 1281
|
||||
TFF1/ALF # 1/ALFA E:(-22-2NA) M:(-20-2NA)
|
||||
1,2 # X2=-NA
|
||||
SIGN SL*
|
||||
TFFTEM # AFFIX SIGN FOR SDELF
|
||||
0,2
|
||||
STODL TFFTEM # P/ALFA E:(-59+2NR) M:(-55+2NR)
|
||||
# (ARG FOR USE IN TFF/TRIG)
|
||||
TFF1/ALF # 1/ALFA E:(-22-2NA) M:(-20-2NA)
|
||||
SQRT DMP
|
||||
PI/16 # PI (-4)
|
||||
DAD
|
||||
# 2(XT(X)-1)/Z ALFA FROM PDL E:(-15-NA)
|
||||
# M:(-14-NA)
|
||||
SL* DSU
|
||||
0 -1,2
|
||||
TFFDELQ # Q2-Q1 E:(-16) M:(-15)
|
||||
DMP SL*
|
||||
TFF1/ALF # 1/ALFA E:(-22-2NA) M:(-20-2NA)
|
||||
0 -3,2
|
||||
SL* GOTO
|
||||
0 -4,2
|
||||
ENDTFF # TFF SQRT(MU) IN MPAC E:(-45) M:(-42)
|
||||
|
||||
# Page 1282
|
||||
# PROGRAM NAME: T(X) DATE: 01.17.67
|
||||
# MOD NO: 0 LOG SECTION: TIME OF FREE FALL
|
||||
# MOD BY: RR BAIRNSFATHER
|
||||
#
|
||||
# FUNCTIONAL DESCRIPTION: THE POLYNOMIAL T(X) IS USED BY TIME OF FLIGHT SUBROUTINES CALCTFF AND
|
||||
# CALCTPER TO APPROXIMATE THE SERIES
|
||||
# 2 3
|
||||
# 1/3 -X/5 +X /7 -X /9 ...
|
||||
#
|
||||
# WHERE X = ALFA Z Z IF ALFA Z Z LEQ 1
|
||||
# X = 1/(ALFA Z Z) IF ALFA Z Z G 1
|
||||
#
|
||||
# ALSO X IS NEG FOR HYPERBOLIC ORBITS
|
||||
# X = 0 FOR PARABOLIC ORBITS
|
||||
# X IS POSITIVE FOR ELLIPTIC ORBITS
|
||||
#
|
||||
# FOR FLIGHT 278, THE POLYNOMIAL T(X) IS FITTED OVER THE RANGE (0,+1) AND HAS A MAXIMUM
|
||||
# DEVIATION FROM THE SERIES OF 2 E-5. (T(X) IS A CHEBYCHEV TYPE FIT AND WAS OBTAINED USING
|
||||
# MAX PROGRAM AUTOCURFIT294RRB AND IS VALID TO THE SAME TOLERANCE OVER THE RANGE (-.08,+1).)
|
||||
#
|
||||
# CALLING SEQUENCE: RTB
|
||||
# T(X)
|
||||
# C(MPAC) = X
|
||||
#
|
||||
# SUBROUTINE CALLED: NONE
|
||||
#
|
||||
# NORMAL EXIT MODE: TC TANZIG
|
||||
#
|
||||
# ALARMS: NONE
|
||||
#
|
||||
# OUTPUT: C(MPAC) = T(X)
|
||||
#
|
||||
# ERASABLE INITIALIZATION REQUIRED:
|
||||
# C(MPAC) = X
|
||||
#
|
||||
# DEBRIS: NONE
|
||||
|
||||
T(X) TC POLY
|
||||
DEC 4 # N-1
|
||||
2DEC 3.333333333 E-1
|
||||
|
||||
2DEC* -1.999819135 E-1*
|
||||
|
||||
2DEC* 1.418148467 E-1*
|
||||
|
||||
2DEC* -1.01310997 E-1*
|
||||
|
||||
2DEC* 5.609004986 E-2*
|
||||
|
||||
2DEC* -1.536156925 E-2*
|
||||
|
||||
ENDT(X) TC DANZIG
|
||||
|
||||
TCDANZIG = ENDT(X)
|
||||
|
||||
# Page 1283
|
||||
# TFF CONSTANTS
|
||||
|
||||
BANK 32
|
||||
|
||||
SETLOC TOF-FF1
|
||||
BANK
|
||||
|
||||
# # NOTE: ADJUSTED MUE FOR NEAR EARTH TRAJ.
|
||||
#MUE = 3.990815471 E10 # M CUBE/CS SQ
|
||||
#RTMUE = 1.997702549 E5 B-18* # MODIFIED EARTH MU
|
||||
#
|
||||
# # NOTE: ADJUSTED MUE FOR NEAR EARTH TRAJ.
|
||||
#MUM = 4.902778 E8 # M CUBE/CS SQ
|
||||
#RTMUM 2DEC* 2.21422176 E4 B-18*
|
||||
|
||||
PI/16 2DEC 3.141592653 B-4
|
||||
|
||||
LIM(-22) 2OCT 3777737700 # 1.0 -B(-22)
|
||||
|
||||
DP(-22) 2OCT 0000000100 # B(-22)
|
||||
|
||||
DP2(-3) 2DEC 1 B-3
|
||||
|
||||
DP2(-4) 2DEC 1 B-4 # 1/16
|
||||
|
||||
# RPAD1 2DEC 6373338 B-29 # M (-29) = 20909901.57 FT
|
||||
|
||||
RPAD1 = RPAD
|
||||
|
||||
R300K 2DEC 6464778 B-29 # (-29) M
|
||||
|
||||
NEARONE 2DEC .999999999
|
||||
|
||||
TFFZEROS EQUALS HI6ZEROS
|
||||
TFF1/4 EQUALS HIDP1/4
|
||||
|
548
Luminary099/UPDATE_PROGRAM.agc
Normal file
548
Luminary099/UPDATE_PROGRAM.agc
Normal file
@ -0,0 +1,548 @@
|
||||
# Copyright: Public domain.
|
||||
# Filename: UPDATE_PROGRAM.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: 1386-1396
|
||||
# Mod history: 2009-05-10 SN (Sergio Navarro). Started adapting
|
||||
# from the Luminary131/ file of the same
|
||||
# name, using Luminary099 page images.
|
||||
# 2009-06-07 RSB Added an SBANK= to account for incompatibilities
|
||||
# between YUL and yaYUL.
|
||||
# 2011-01-06 JL Fixed pseudo-label indentation.
|
||||
# 2011-05-07 JL Flag SBANK= workaround.
|
||||
|
||||
# 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 1386
|
||||
# PROGRAM NAME: P27
|
||||
# WRITTEN BY: KILROY/ DE WOLF
|
||||
#
|
||||
# MOD NO: 6
|
||||
# MOD BY: KILROY
|
||||
# DATE: 01DEC67
|
||||
#
|
||||
# LOG SECTION: UPDATE PROGRAM.
|
||||
#
|
||||
# FUNCT. DESCR.: P27 (THE UPDATE PROGRAM) PROCESSES COMMANDS AND DATA
|
||||
# INSERTIONS REQUESTED BY THE GROUND VIA UPLINK.
|
||||
# THE P27 PROGRAM WILL ACCEPT UPDATES
|
||||
# ONLY DURING P00 FOR THE LM, AND ONLY DURINT P00,
|
||||
# P02, AND FRESH START FOR THE CSM
|
||||
#
|
||||
# CALLING SEQ: PROGRAM IS INITIATED BY UPLINK ENTRY OF VERBS 70, 71, 72, AND 73.
|
||||
#
|
||||
# SUBROUTINES: TESTXACT, NEWMODEX, NEWMODEX +3, GOXDSPF, BANKCALL, FINDVAC, INTPRET, INTSTALL, TPAGREE,
|
||||
# INTWAKEU, ENDEXT, POSTJUMP, FALTON, NEWPHASE, PHASCHNG
|
||||
#
|
||||
# NORMAL EXIT: TC ENDEXT
|
||||
#
|
||||
# ALARM/ABORT: TC FALTON FOLLOWED BY TC ENDEXT
|
||||
#
|
||||
# RESTARTS: P27 IS RESTART PROTECTED IN TWO WAYS ...
|
||||
# 1. PRIOR TO VERIFLAG INVERSION (WHICH IS CAUSED BY THE GROUND/ASTRONAUT'S VERIFICATION OF UPDATE
|
||||
# DATA BY SENDING A V33E WHEN V21N02 IS FLASHING)---
|
||||
# NO PROTECTION EXCEPT PRE-P27 MODE IS RESTROED, COAST + ALIGN DOWNLIST IS SELECTED AND UPLINK
|
||||
# ACTIVITY LIGHT IS TURNED OFF. (JUST AS IF A V34E WAS SENT DURING P27 DATA LOADS).
|
||||
# V70,V71,V72, OR V73 WILL HAVE TO BE COMPLETELY RESENT BY USER.
|
||||
# 2. AFTER VERIFLAG INVERSION (WHEN UPDATE OF THE SPECIFIED ERASABLES IS BEING PERFORMED)---
|
||||
# PROTECTED AGAINST RESTARTS.
|
||||
#
|
||||
# DEBRIS: UPBUFF (20D) TEMP STORAGE FOR ADDRESSES AND CONTENTS.
|
||||
# UPVERB (1) VERB NUMBER MINUS 70D (E.G., FOR V72, UPVERB = 72D - 70D = 2)
|
||||
# UPOLDMOD(1) FOR MAJOR MODE INTERRUPTED BY P27.
|
||||
# COMPNUMB(1) TOTAL NUMBER OF COMPONENTS TO BE TRANSMITTED.
|
||||
# UPCOUNT (1) ACTUAL NUMBER OF COMPONENTS RECEIVED.
|
||||
# UPTEMP (1) SCRATCH, BUT USUALLY CONTAINS COMPONENT NUMBER TO BE CHANGED DURING VERIFY CYCLE
|
||||
#
|
||||
# INPUT:
|
||||
#
|
||||
# ENTRY DESCRIPTION
|
||||
# V70EXXXXXEXXXXXE (LIFTOFF TIME INCREMENT) DOUBLE PRECISION OCTAL TIME INCREMENT, XXXXX XXXXX,
|
||||
# IS ADDED TO TEPHEM, SUBTRACTED FROM AGC CLOCK(TIME2,TIME1), SUBTRACTED FROM CSM STATE
|
||||
# VECTOR TIME(TETCSM) AND SUBTRACTED FROM LEM STATE VECTOR TIME(TETLEM).
|
||||
# THE DP OCTAL TIME INCREMENT IS SCALED AT 2(28).
|
||||
# Page 1387
|
||||
# V71EIIEAAAAE (CONTIGUOUS BLOCK UPDATE) II-2 OCTAL COMPONENTS, XXXXX,
|
||||
# XXXXXE ARE LOADED INTO ERASABLE STARTING AT ECADR, AAAA.
|
||||
# XXXXXE IT IS .GE. 3 .AND. .LE. 200.,
|
||||
# ... AND (AAAA + II -3) DOES NOT PRODUCE AN ADDRESS IN THE
|
||||
# NEXT BANK.
|
||||
# SCALING IS SAME AS INTERNAL REGISTERS.
|
||||
# V72EIIE (SCATTER UPDATE) (II-1)/2 OCTAL COMPONENTS, XXXXX, ARE
|
||||
# AAAAEXXXXXE LOADED INTO ERASABLE LOCATIONS, AAAA.
|
||||
# AAAAEXXXXXE II IS .GE. 3 .AND. .LE. 19D, AND MUST BE ODD.
|
||||
# ... SCALING IS SAME AS INTERNAL REGISTERS.
|
||||
#
|
||||
# V73EXXXXXEXXXXXE (OCTAL CLOCK INCREMENT) DOUBLE PRECISION OCTAL TIME
|
||||
# INCREMENT XXXXX XXXXX, IS ADDED TO THE AGC CLOCK, IN
|
||||
# CENTISECONDS SCALED AT (2)28).
|
||||
# THIS LOAD IS THE OCTAL EQUIVALENT OF V55.
|
||||
#
|
||||
# OUTPUT: IN ADDITION TO THE ABOVE REGISTER LOADS, ALL UPDATES
|
||||
# COMPLEMENT BIT3 OF FLAGWORD7.
|
||||
#
|
||||
# ADDITIONAL NOTES: VERB 71, JUST DEFINED ABOVE WILL BE USED TO PERFORM BUT NOT LIMITED TO THE FOLLOWING UPDATES --
|
||||
# 1. CSM/LM STATE VECTOR UPDATE
|
||||
# 2. REFSMMAT UPDATE
|
||||
#
|
||||
# THE FOLLOWING COMMENTS DELINEATE EACH SPECIAL UPDATE ---
|
||||
#
|
||||
# 1. CSM/LM STATE VECTOR UPDATE (ALL DATA ENTRIES IN OCTAL)
|
||||
# ENTRIES: DATA DEFINITION: SCALE FACTORS:
|
||||
# V71E CONTIGUOUS BLOCK UPDATE VERB
|
||||
# 21E NUMBER OF COMPONENTS FOR STATE VECTOR UPDATE
|
||||
# AAAAE ECADR OF `UPSVFLAG'
|
||||
# XXXXXE STATE VECTOR IDENTIFIER: 00001 FOR CSM, 77776 FOR LEM -- EARTH SPHERE OF INFLUENCE SCALING
|
||||
# 00002 FOR CSM, 77775 FOR LEM -- LUNAR SPHERE OF INFLUENCE SCALING
|
||||
# XXXXXEXXXXXE X POSITION
|
||||
# XXXXXEXXXXXE Y POSITION
|
||||
# XXXXXEXXXXXE Z POSITION
|
||||
# XXXXXEXXXXXE X VELOCITY
|
||||
# XXXXXEXXXXXE Y VELOCITY
|
||||
# XXXXXEXXXXXE Z VELOCITY
|
||||
# XXXXXEXXXXXE TIME FROM AGC CLOCK ZERO
|
||||
# V33E VERB 33 TO SIGNAL THAT THE STATE VECTOR IS READY TO BE STORED.
|
||||
#
|
||||
# 2. REFSMMAT (ALL DATA ENTRIES IN OCTAL)
|
||||
# ENTRIES: DATA DEFINITITIONS: SCALE FACTORS:
|
||||
# Page 1388
|
||||
# V71E CONTIGUOUS BLOCK UPDATE VERB
|
||||
# 24E NUMBER OF COMPONENTS FOR REFSMMAT UPDATE
|
||||
# AAAAE ECADR OF `REFSMMAT'
|
||||
# XXXXXEXXXXXE ROW 1 COLUMN 1 2(-1)
|
||||
# XXXXXEXXXXXE ROW 1 COLUMN 2 2(-1)
|
||||
# XXXXXEXXXXXE ROW 1 COLUMN 3 2(-1)
|
||||
# XXXXXEXXXXXE ROW 2 COLUMN 1 2(-1)
|
||||
# XXXXXEXXXXXE ROW 2 COLUMN 2 2(-1)
|
||||
# XXXXXEXXXXXE ROW 2 COLUMN 3 2(-1)
|
||||
# XXXXXEXXXXXE ROW 3 COLUMN 1 2(-1)
|
||||
# XXXXXEXXXXXE ROW 3 COLUMN 2 2(-1)
|
||||
# XXXXXEXXXXXE ROW 3 COLUMN 3 2(-1)
|
||||
# V33E VERB 33 TO SIGNAL THAT REFSMMAT IS READY TO BE STORED
|
||||
|
||||
|
||||
|
||||
BANK 07
|
||||
SETLOC EXTVERBS
|
||||
BANK
|
||||
|
||||
EBANK= TEPHEM
|
||||
|
||||
COUNT* $$/P27
|
||||
V70UPDAT CAF UP70 # COMES HERE ON V70E
|
||||
TCF V73UPDAT +1
|
||||
|
||||
V71UPDAT CAF UP71 # COMES HERE ON V71E
|
||||
TCF V73UPDAT +1
|
||||
|
||||
V72UPDAT CAF UP72 # COMES HERE ON V72E
|
||||
TCF V73UPDAT +1
|
||||
|
||||
V73UPDAT CAF UP73 # COMES HERE ON V73E
|
||||
|
||||
+1 TS UPVERBSV # SAVE UPVERB UNTIL IT'S OK TO ENTER P27
|
||||
|
||||
TC TESTXACT # GRAB DISPLAY IF AVAILABLE, OTHERWISE
|
||||
# TURN*OPERATOR ERROR* ON AND TERMINATEJOB
|
||||
|
||||
CA MODREG # CHECK IF UPDATE ALLOWED
|
||||
EXTEND # FIRST CHECK FOR MODREG = +0, -0
|
||||
BZF +3 # (+0 = P00, -0 = FRESHSTART)
|
||||
UPERROR TC POSTJUMP # TURN ON 'OPERATOR ERROR' LIGHT
|
||||
CADR UPERROUT +2 # GO TO COMMON UPDATE PROGRAM EXIT
|
||||
|
||||
CAE MODREG # UPDATE ALLOWED.
|
||||
CKMDMORE = UPERROR
|
||||
TS UPOLDMOD # SAVE CURRENT MAJOR MODE
|
||||
# Page 1389
|
||||
CAE UPVERBSV # SET UPVERB TO INDICDATE TO P27
|
||||
|
||||
TS UPVERB # WHICH EXTENDED VERB CALLED IT.
|
||||
|
||||
CAF ONE
|
||||
TS UPCOUNT # INITIALIZE UPCOUNT TO 1
|
||||
|
||||
TC POSTJUMP # LEAVE EXTENDED VERB BANK AND
|
||||
CADR UPPART2 # GO TO UPDATE PROGRAM (P27) BANK.
|
||||
|
||||
UP70 EQUALS ZERO
|
||||
UP71 EQUALS ONE
|
||||
UP72 EQUALS TWO
|
||||
UP73 EQUALS THREE
|
||||
|
||||
BANK 04
|
||||
SETLOC UPDATE2
|
||||
BANK
|
||||
|
||||
COUNT* $$/P27
|
||||
|
||||
UPPART2 EQUALS # UPDATE PROGRAM -- PART 2
|
||||
|
||||
TC PHASCHNG # SET RESTART GROUP 6 TO RESTORE OLD MODE
|
||||
OCT 07026 # AND DOWNLIST AND EXIT IF RESTART OCCURS.
|
||||
OCT 30000 # PRIORITY SAME AS CHRPRIO
|
||||
## [WORKAROUND] RSB 2009
|
||||
SBANK= PINSUPER
|
||||
## [WORKAROUND]
|
||||
EBANK= UPBUFF
|
||||
2CADR UPOUT +1
|
||||
|
||||
CAF ONE
|
||||
TS DNLSTCOD # DOWNLIST
|
||||
|
||||
TC NEWMODEX # SET MAJOR MODE = 27
|
||||
DEC 27
|
||||
|
||||
INDEX UPVERB # BRANCH DEPENDING ON WHETHER THE UPDATE
|
||||
TCF +1 # VERB REQUIRES A FIXED OR VARIABLE NUMBER
|
||||
TCF +3 # V70 FIXED (OF COMPONENTS)
|
||||
TCF OHWELL1 # V71 VARIABLE -- GO GET NO. OF COMPONENTS
|
||||
TCF OHWELL1 # V72 VARIABLE -- GO GET NO. OF COMPONENTS
|
||||
CA TWO # V73 (AND V70) FIXED
|
||||
TS COMPNUMB # SET NUMBER OF COMPONENTS TO 2.
|
||||
TCF OHWELL2 # GO GET THE TWO UPDATE COMPONENTS
|
||||
|
||||
OHWELL1 CAF ADUPBUFF # * REQUEST USER TO SEND NUMBER *
|
||||
TS MPAC +2 # * OF COMPONENTS PARAMETER(II).*
|
||||
+2 CAF UPLOADNV # (CKV432 RETURNS HERE IF V32 ENCOUNTERED)
|
||||
TC BANKCALL # DISPLAY A FLASHING V21N01
|
||||
# Page 1390
|
||||
CADR GOXDSPF # TO REQUEST II.
|
||||
|
||||
TCF UPOUT4 # V34 TERMINATE UPDATE (P27) RETURN
|
||||
TCF OHWELL1 +2
|
||||
TC CK4V32 # DATA OR V32 RETURN
|
||||
CS BIT2
|
||||
AD UPBUFF # IS II (NUMBER OF COMPONENTS PARAMETER)
|
||||
EXTEND # .GE. 3 AND .LE. 20D.
|
||||
BZMF OHWELL1 +2
|
||||
CS UPBUFF
|
||||
AD UP21
|
||||
EXTEND
|
||||
BZMF OHWELL1 +2
|
||||
CAE UPBUFF
|
||||
TS COMPNUMB # SAVE II IN COMPNUMB
|
||||
|
||||
# UPBUFF LOADING SEQUENCE
|
||||
|
||||
INCR UPCOUNT # INCREMENT COUNT OF COMPONENTS RECEIVED.
|
||||
OHWELL2 CAF ADUPBFM1 # CALCULATE LOCATION (ECADR) IN UPBUFF
|
||||
AD UPCOUNT # WHERE NEXT COMPONENT SHOULD BE STORED
|
||||
+2 TS MPAC +2 # PLACE ECADR INTO R3.
|
||||
+3 CAF UPLOADNV # (CK4V32 RETURNS HERE IF V32 ENCOUNTERED)
|
||||
TC BANKCALL # DISPLAY A FLASHING V21N01
|
||||
CADR GOXDSPF # TO REQUEST DATA.
|
||||
TCF UPOUT4 # V34 TERMINATE UPDATE (P27) RETURN.
|
||||
TCF OHWELL2 +3 # V33 PROCEED RETURN
|
||||
TC CK4V32 # DATA OR V32 RETURN
|
||||
CS UPCOUNT # HAVE WE FINISHED RECEIVING ALL
|
||||
AD COMPNUMB # THE DATA WE EXPECTED.
|
||||
EXTEND
|
||||
BZMF UPVERIFY # YES -- GO TO VERIFICATION SEQUENCE
|
||||
TCF OHWELL2 -1 # NO -- REQUEST ADDITIONAL DATA.
|
||||
|
||||
# VERIFY SEQUENCE
|
||||
|
||||
UPVERIFY CAF ADUPTEMP # PLACE ECADR WHERE COMPONENT NO. INDEX
|
||||
TS MPAC +2 # IS TO BE STORED INTO R3.
|
||||
CAF UPVRFYNV # (CK4V32 RETURNS HERE IF V32 ENCOUNTERED)
|
||||
TC BANKCALL # DISPLAY A FLASHING V21N02 TO REQUEST
|
||||
CADR GOXDSPF # DATA CORRECTION OR VERIFICATION.
|
||||
TCF UPOUT4 # V34 TERMINATE UPDATE (P27) RETURN
|
||||
TCF UPSTORE # V33 DATA SENT IS GOOD. GO STORE IT.
|
||||
TC CK4V32 # COMPONENT NO. INDEX OR V32 RETURN
|
||||
CA UPTEMP # DOES THE COMPONENT NO. INDEX JUST SENT
|
||||
EXTEND # SPECIFY A LEGAL COMPONENT NUMBER?
|
||||
BZMF UPVERIFY # NO, IT IS NOT POSITIVE NONZERO
|
||||
CS UPTEMP
|
||||
AD COMPNUMB
|
||||
# Page 1391
|
||||
AD BIT1
|
||||
EXTEND
|
||||
BZMF UPVERIFY # NO
|
||||
CAF ADUPBFM1 # YES -- BASED ON THE COMPONENT NO. INDEX
|
||||
AD UPTEMP # CALCULATE THE ECADR OF LOCATION IN
|
||||
TCF OHWELL2 +2 # UPBUFF WHICH USER WANTS TO CHANGE.
|
||||
|
||||
UPOUT4 EQUALS UPOUT +1 # COMES HERE ON V34 TO TERMINATE UPDATE
|
||||
|
||||
# CHECK FOR VERB 32 SEQUENCE
|
||||
|
||||
CK4V32 CS MPAC # ON DATA RETURN FROM `GOXDSPF'
|
||||
MASK BIT6 # ON DATA RETURN FROM "GOXDSP" & THE CON-
|
||||
CCS A # TENTS OF MPAC = VERB. SO TEST FOR V32.
|
||||
TC Q # IT'S NOT A V32, IT'S DATA. PROCEED.
|
||||
INDEX Q
|
||||
TC 0 -6 # V32 ENCOUNTERED -- GO BACK AND GET DATA
|
||||
|
||||
ADUPTEMP ADRES UPTEMP # ADDRESS OF TEMP STORAGE FOR CORRECTIONS
|
||||
ADUPBUFF ADRES UPBUFF # ADDRESS OF UPDATE DATA STORAGE BUFFER
|
||||
UPLOADNV VN 2101 # VERB 21 NOUN 01
|
||||
UPVRFYNV VN 2102 # VERB 21 NOUN 02
|
||||
UP21 = MD1 # DEC 21 = MAX NO OF COMPONENTS +1
|
||||
UPDTPHAS EQUALS FIVE
|
||||
|
||||
# PRE-STORE AND FAN TO APPROPRIATE BRANCH SEQUENCE
|
||||
|
||||
UPSTORE EQUALS # GROUND HAS VERIFIED UPDATE. STORE DATA.
|
||||
|
||||
INHINT
|
||||
|
||||
CAE FLAGWRD7 # INVERT VERIFLAG (BIT 3 OF FLAGWRD7) TO
|
||||
XCH L # INDICATE TO THE GROUND (VIA DOWNLINK)
|
||||
CAF VERIFBIT # THAT THE V33 (WHICH THE GROUND SENT TO
|
||||
EXTEND # VERIFY THE UPDATE) HAS BEEN SUCCESSFULLY
|
||||
RXOR LCHAN # RECEIVED BY THE UPDATE PROGRAM
|
||||
TS FLAGWRD7
|
||||
|
||||
TC PHASCHNG # SET RESTART GROUP 6 TO REDO THE UPDATE
|
||||
OCT 04026 # DATA STORE IF A RESTART OCCURS.
|
||||
INHINT # (BECAUSE PHASCHNG DID A RELINT)
|
||||
|
||||
CS TWO # GO TO UPFNDVAC IF INSTALL IS REQUIRED.
|
||||
AD UPVERB # THAT IS, IF IT'S A V70 - V72.
|
||||
EXTEND # GO TO UPEND73 IF IT'S A V73.
|
||||
BZMF UPFNDVAC
|
||||
|
||||
# VERB 73 BRANCH
|
||||
# Page 1392
|
||||
UPEND73 EXTEND # V73 -- PERFORM DP OCTAL AGC CLOCK INCREMENT
|
||||
|
||||
DCA UPBUFF
|
||||
DXCH UPBUFF +8D
|
||||
TC TIMEDIDL
|
||||
TC FALTON # ERROR -- TURN ON *OPERATOR ERROR* LIGHT
|
||||
TC UPOUT +1 # GO TO COMMON UPDATE PROGRAM EXIT
|
||||
|
||||
UPFNDVAC CAF CHRPRIO # (USE EXTENDED VERB PRIORITY)
|
||||
TC FINDVAC # GET VAC AREA FOR 'CALL INTSTALL'
|
||||
EBANK= TEPHEM
|
||||
2CADR UPJOB # (NOTE: THIS WILL ALSO SET EBANK FOR
|
||||
TC ENDOFJOB # 'TEPHEM' UPDATE BY V70)
|
||||
|
||||
UPJOB TC INTPRET # THIS COULD BE A STATE VECTOR UPDATE -- SO
|
||||
CALL # WAIT (PUT JOB TO SLEEP) IF ORBIT INT(OI)
|
||||
INTSTALL # IS IN PROGRESS -- OR -- GRAB OI AND RETURN
|
||||
# TO UPWAKE IF OI IS NOT IN PROGRESS.
|
||||
|
||||
UPWAKE EXIT
|
||||
|
||||
TC PHASCHNG # RESTART PROTECT (GROUP 6)
|
||||
OCT 04026
|
||||
|
||||
TC UPFLAG # SET INTEGRATION RESTART BIT
|
||||
ADRES REINTFLG
|
||||
INHINT
|
||||
UPPART3 EQUALS
|
||||
|
||||
INDEX UPVERB # BRANCH TO THE APPROPRIATE UPDATE VERB
|
||||
TCF +1 # ROUTINE TO ACTUALLY PERFORM THE UPDATE
|
||||
TCF UPEND70 # V70
|
||||
TCF UPEND71 # V71
|
||||
TCF UPEND72 # V72
|
||||
|
||||
# ROUTINE TO INCREMENT CLOCK (TIME2,TIME1) WITH CONTENTS OF DP WORD AT UPBUFF.
|
||||
|
||||
TIMEDIDL EXTEND
|
||||
QXCH UPTEMP # SAVE Q FOR RETURN
|
||||
CAF ZERO # ZERO AND SAVE TIME2,TIME1
|
||||
ZL
|
||||
DXCH TIME2
|
||||
DXCH UPBUFF +18D # STORE IN CASE OF OVERFLOW
|
||||
|
||||
CAF UPDTPHAS # SO
|
||||
TS L # A
|
||||
COM # QUICK
|
||||
DXCH -PHASE6 # PHASCHNG
|
||||
# Page 1393
|
||||
TIMEDIDR INHINT
|
||||
|
||||
CAF ZERO
|
||||
ZL # PICK UP INCRMENTER (AND ZERO
|
||||
TS MPAC +2 # IT IN CASE OF RESTARTS) AND
|
||||
DXCH UPBUFF +8D # STORE IT
|
||||
DXCH MPAC # INTO MPAC FOR TPAGREE.
|
||||
|
||||
EXTEND
|
||||
DCA UPBUFF +18D
|
||||
DAS MPAC # FORM SUM IN MPAC
|
||||
EXTEND
|
||||
BZF DELTAOK # TEST FOR OVERFLOW
|
||||
CAF ZERO
|
||||
DXCH UPBUFF +18D # OVERFLOW, RESTORE OLD VALUE OF CLOCK
|
||||
DAS TIME2 # AND TURN ON OPERATOR ERROR
|
||||
|
||||
TC PHASCHNG # RESTART PROTECT (GROUP 6)
|
||||
OCT 04026
|
||||
|
||||
TC UPTEMP # GO TO ERROR EXIT
|
||||
|
||||
DELTAOK TC TPAGREE # FORCE SIGN AGREEMENT
|
||||
DXCH MPAC
|
||||
DAS TIME2 # INCREMENT TIME2,TIME1
|
||||
|
||||
TC PHASCHNG # RESTART PROTECT (GROUP 6)
|
||||
OCT 04026
|
||||
|
||||
INHINT
|
||||
INDEX UPTEMP # (CODED THIS WAY FOR RESTART PROTECTION)
|
||||
TC 1 # NORMAL RETURN
|
||||
|
||||
# VERB 71 BRANCH
|
||||
|
||||
UPEND71 CAE UPBUFF +1 # SET EBANK
|
||||
TS EBANK # AND
|
||||
MASK LOW8 # CALCULATE
|
||||
TS UPTEMP # S-REG VALUE OF RECEIVING AREA
|
||||
|
||||
AD NEG3 # IN THE PROCESS OF
|
||||
AD COMPNUMB # PERFORMING
|
||||
EXTEND # THIS UPDATE
|
||||
BZF STORLP71 # WILL WE
|
||||
MASK BIT9 # OVERFLOW
|
||||
CCS A # INTO THE NEXT EBANK....
|
||||
TCF UPERROUT # YES
|
||||
|
||||
CA NEG3 # NO -- CALCULATE NUMBER OF
|
||||
AD COMPNUMB # WORDS TO BE STORED MINUS ONE
|
||||
STORLP71 TS MPAC # SAVE NO. OF WORDS REMAINING MINUS ONE
|
||||
# Page 1394
|
||||
INDEX A # TAKE NEXT UPDATE WORD FROM
|
||||
CA UPBUFF +2 # UPBUFF AND
|
||||
|
||||
TS L # SAVE IT IN L
|
||||
CA MPAC # CALCULATE NEXT
|
||||
AD UPTEMP # RECEIVING ADDRESS
|
||||
INDEX A
|
||||
EBANK= 1400
|
||||
LXCH 1400 # UPDATE THE REGISTER BY CONTENTS OF L
|
||||
EBANK= TEPHEM
|
||||
CCS MPAC # ARE THERE ANY WORDS LEFT TO BE STORED
|
||||
TCF STORLP71 # YES
|
||||
TCF UPOUT # NO -- THEN EXIT UPDATE PROGRAM
|
||||
ADUPBFM1 ADRES UPBUFF -1 # SAME AS ADUPBUFF BUT LESS 1 (DON'T MOVE)
|
||||
TCF UPOUT # NO -- EXIT UPDATE (HERE WHEN COMPNUMB = 3)
|
||||
|
||||
# VERB 72 BRANCH
|
||||
|
||||
UPEND72 CAF BIT1 # HAVE AN ODD NO. OF COMPONENTS
|
||||
MASK COMPNUMB # BEEN SENT FOR A V72 UPDATE ...
|
||||
CCS A
|
||||
TCF +2 # YES
|
||||
TCF UPERROUT # ERROR -- SHOULD BE ODD NO. OF COMPONENTS
|
||||
CS BIT2
|
||||
AD COMPNUMB
|
||||
LDLOOP72 TS MPAC # NOW PERFORM THE UPDATE
|
||||
INDEX A
|
||||
CAE UPBUFF +1 # PICK UP NEXT UPDATE WORD
|
||||
LXCH A
|
||||
CCS MPAC # SET POINTER TO ECADR (MUST BE CCS)
|
||||
TS MPAC
|
||||
INDEX A
|
||||
CAE UPBUFF +1 # PICK UP NEXT ECADR OF REG TO BE UPDATED
|
||||
TS EBANK # SET EBANK
|
||||
MASK LOW8 # ISOLATE RELATIVE ADDRESS
|
||||
INDEX A
|
||||
EBANK= 1400
|
||||
LXCH 1400 # UPDATE THE REGISTER BY CONTENTS OF L
|
||||
EBANK= TEPHEM
|
||||
CCS MPAC # ARE WE THORUGH THE V72 UPDATE...
|
||||
TCF LDLOOP72 # NO
|
||||
|
||||
# NORMAL FINISH OF P27
|
||||
|
||||
UPOUT EQUALS
|
||||
TC INTWAKEU # RELEASE GRAB OF ORBITAL INTEGRATION
|
||||
+1 CAE UPOLDMOD # RESTORE PRIOR P27 MODE
|
||||
TC NEWMODEX +3
|
||||
CAF ZERO
|
||||
# Page 1395
|
||||
TS DNLSTCOD
|
||||
TC UPACTOFF # TURN OFF 'UPLINK ACTIVITY' LIGHT
|
||||
|
||||
EXTEND # KILL GROUP 6.
|
||||
DCA NEG0
|
||||
DXCH -PHASE6
|
||||
|
||||
TC ENDEXT # EXTENDED VERB EXIT
|
||||
|
||||
# VERB TO BRANCH
|
||||
|
||||
UPEND70 EXTEND # V70 DOES THE FOLLOWING WITH DP DELTA
|
||||
DCS UPBUFF # TIME IN UPBUFF
|
||||
DXCH UPBUFF +8D
|
||||
TC TIMEDIDL # DECREMENT AGC CLOCK
|
||||
|
||||
TC UPERROUT # ERROR WHILE DECREMENTING CLOCK -- EXIT
|
||||
|
||||
EBANK= TEPHEM
|
||||
EXTEND
|
||||
DCS UPBUFF # COPY DECREMENTERS FOR
|
||||
DXCH UPBUFF +10D # RESTART PROTECTION
|
||||
EXTEND
|
||||
DCS UPBUFF
|
||||
DXCH UPBUFF +12D
|
||||
|
||||
TC PHASCHNG # RESTART PROTECT (GROUP 6)
|
||||
OCT 04026
|
||||
|
||||
CAF ZERO
|
||||
ZL
|
||||
DXCH UPBUFF +10D # DECREMENT CSM STATE VECTOR TIME
|
||||
DAS TETCSM
|
||||
|
||||
CAF ZERO
|
||||
ZL
|
||||
DXCH UPBUFF +12D # DECREMENT LEM STATE VECTOR TIME
|
||||
DAS TETLEM
|
||||
|
||||
CAF ZERO
|
||||
ZL
|
||||
DXCH UPBUFF
|
||||
DAS TEPHEM +1 # INCREMENT TP TEPHEM
|
||||
ADS TEPHEM
|
||||
|
||||
TC PHASCHNG # RESTART PROTECT (GROUP 6)
|
||||
OCT 04026
|
||||
|
||||
EBANK= UPBUFF
|
||||
# Page 1396
|
||||
TC UPOUT # GO TO STANDARD UPDATE PROGRAM EXIT
|
||||
|
||||
|
||||
# ERROR SEQUENCE
|
||||
|
||||
UPERROUT TC FALTON # TURN ON *OPERATOR ERROR* LIGHT
|
||||
TCF UPOUT # GO TO COMMON UPDATE PROGRAM EXIT
|
||||
|
||||
+2 TC FALTON # TURN ON 'OPERATOR ERROR' LIGHT
|
||||
TC UPACTOFF # TURN OFF 'UPLINK ACTIVITY' LIGHT
|
||||
TC ENDEXT # EXTENDED VERB EXIT
|
||||
# (THE PURPOS OF UPERROUT +2 EXIT IS
|
||||
# TO PROVIDE AN ERROR EXIT WHICH DOES NOT
|
||||
# RESET ANY RESTART GROUPS)
|
||||
|
||||
# 'UPACTOFF' IS A ROUTINE TO TURN OFF UPLINK ACTIVITY LIGHT ON ALL EXITS FROM UPDATE PROGRAM (P27).
|
||||
|
||||
UPACTOFF CS BIT3
|
||||
EXTEND # TURN OFF UPLINK ACTIVITY LIGHT
|
||||
WAND DSALMOUT # (BIT 3 OF CHANNEL 11)
|
||||
TC Q
|
||||
|
564
Luminary099/WAITLIST.agc
Normal file
564
Luminary099/WAITLIST.agc
Normal file
@ -0,0 +1,564 @@
|
||||
# Copyright: Public domain.
|
||||
# Filename: WAITLIST.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: 1117-1132
|
||||
# Mod history: 2009-05-25 RSB Adapted from the corresponding
|
||||
# Luminary131 file, using page
|
||||
# images from Luminary 1A.
|
||||
# 2011-01-06 JL Fixed pseudo-label indentation.
|
||||
# 2011-05-07 JL Removed workarounds.
|
||||
#
|
||||
# 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 1117
|
||||
# PROGRAM DESCRIPTION DATE -- 10 OCTOBER 1966
|
||||
# MOD NO -- 2 LOG SECTION -- WAITLIST
|
||||
# MOD BY -- MILLER (DTMAX INCREASED TO 162.5 SEC) ASSEMBLY -- SUNBURST REV 5
|
||||
# MOD 3 BY KERNAN (INHINT INSERTED AT WAITLIST) 2/28/68 SKIPPER REV 4
|
||||
# MOD 4 BY KERNAN (TWIDDLE IN 54) 3/28/68 SKIPPER REV 13.
|
||||
#
|
||||
# FUNCTIONAL DESCRIPTION --
|
||||
# PART OF A SECTION OF PROGRAMS -- WAITLIST, TASKOVER, T3RUPT, USED TO CALL A PROGRAM (CALLED A TASK),
|
||||
# WHICH IS TO BEGIN IN C(A) CENTISECONDS. WAITLIST UPDATES TIME3, LST1, AND LST2. THE MEANING OF THESE LISTS
|
||||
# FOLLOW.
|
||||
#
|
||||
# C(TIME3) = 16384 -(T1-T) CENTISECONDS, (T=PRESENT TIME, T1-TIME FOR TASK1)
|
||||
#
|
||||
# C(LST1) = -(T2-T1)+1
|
||||
# C(LST1 +1) = -(T3-T2)+1
|
||||
# C(LST1 +2) = -(T4-T3)+1
|
||||
# ...
|
||||
# C(LST1 +6) = -(T8-T7)+1
|
||||
# C(LST1 +7) = -(T9-T8)+1
|
||||
#
|
||||
# C(LST2) = 2CADR OF TASK1
|
||||
# C(LST2 +2) = 2CADR OF TASK2
|
||||
# ...
|
||||
# C(LST2 +14) = 2CADR OF TASK8
|
||||
# C(LST2 +16) = 2CADR OF TASK9
|
||||
#
|
||||
# WARNINGS --
|
||||
# 1) 1 <= C(A) <= 16250D (1 CENTISECOND TO 162.5 SEC)
|
||||
# 2) 9 TASKS MAXIMUM
|
||||
# 3) TASKS CALLED UNDER INTERRUPT INHIBITED
|
||||
# 4) TASKS END BY TC TASKOVER
|
||||
#
|
||||
# CALLING SEQUENCE --
|
||||
# L-1 CA DELTAT (TIME IN CENTISECONDS TO TASK START)
|
||||
# L TC WAITLIST
|
||||
# L+1 2CADR DESIRED TASK.
|
||||
# L+2 (MINOR OF 2CADR)
|
||||
# L+3 RELINT (RETURNS HERE)
|
||||
#
|
||||
# TWIDDLE --
|
||||
# TWIDDLE IS FOR USE WHEN THE TASK BEING SET UP IS IN THE SAME EBANK AND FBANK AS THE USER. IN
|
||||
# SUCH CASES, IT IMPROVES UPON WAITLIST BY ELIMINATING THE NEED FOR THE BBCON HALF OF THE 2CADR,
|
||||
# Page 1118
|
||||
# SAVING A WORD. TWIDDLE IS LIKE WAITLIST IN EVERY RESPECT EXCEPT CALLING SEQUENCE, TO WIT,
|
||||
# L-1 CA DELTAT
|
||||
# L TC TWIDDLE
|
||||
# L+1 ADRES DESIRED TASK
|
||||
# L+2 RELINT (RETURNS HERE)
|
||||
#
|
||||
# NORMAL EXIT MODES --
|
||||
# AT L+3 OF CALLING SEQUENCE.
|
||||
#
|
||||
# ALARM OR ABORT EXIT MODES --
|
||||
# TC ABORT
|
||||
# OCT 1203 (WAITLIST OVERFLOW -- TOO MANY TASKS)
|
||||
#
|
||||
# ERASABLE INITIALIZATION REQUIRED --
|
||||
# ACCOMPLISHED BY FRESH START -- LST2, ..., LST2 +16 = ENDTASK
|
||||
# LST1, ..., LST1 +7 = NEG1/2
|
||||
#
|
||||
# OUTPUT --
|
||||
# LST1 AND LST2 UPDATED WTIH NEW TASK AND ASSOCIATED TIME.
|
||||
#
|
||||
# DEBRIS --
|
||||
# CENTRALS -- A,Q,L
|
||||
# OTHER -- WAITEXIT, WAITADR, WAITTEMP, WAITBANK
|
||||
#
|
||||
# DETAILED ANALYSIS OF TIMING --
|
||||
# CONTROL WILL NOT BE RETURNED TO THE SPECIFIED ADDRESS (2CADR) IN EXACTLY DELTA T CENTISECONDS.
|
||||
# THE APPROXIMATE TIME MAY BE CALCULATED AS FOLLOWS:
|
||||
# LET T0 = THE TIME OF THE TC WAITLIST
|
||||
# LET TS = T0 +147U + COUNTER INCREMENTS (SET UP TIME)
|
||||
# LET X = TS -(100TS)/100 (VARIANCE FROM COUNTERS)
|
||||
# LET Y = LENGTH OF TIME OF INHIBIT INTERRUPT AFTER T3RUPT
|
||||
# LET Z = LENGTH OF TIME TO PROCESS TASKS WHICH ARE DUE THIS T3RUPT BUT DISPATCHED EARLIER.
|
||||
# (Z=0, USUALLY).
|
||||
# LET DELTD = THE ACTUAL TIME TAKEN TO GIVE CONTROL TO 2CADR
|
||||
# THEN DELTD = TS+DELTA T -X +Y +Z +1.05MS* +COUNTERS*
|
||||
# *THE TIME TAKEN BY WAITLIST ITSELF AND THE COUNTER TICKING DURING THIS WAITLIST TIME.
|
||||
# IN SHORT, THE ACTUAL TIME TO RETURN CONTROL TO A 2CADR IS AUGMENTED BY THE TIME TO SET UP THE TASK'S
|
||||
# INTERRUPT, ALL COUNTERS TICKING, THE T3RUPT PROCESSING TIME, THE WAITLIST PROCESSING TIME AND THE POSSIBILITY
|
||||
# OF OTHER TASKS INHIBITING THE INTERRUPT.
|
||||
|
||||
BLOCK 02
|
||||
# Page 1119
|
||||
EBANK= LST1 # TASK LISTS IN SWITCHED E BANK.
|
||||
|
||||
COUNT* $$/WAIT
|
||||
TWIDDLE INHINT
|
||||
TS L # SAVE DELAY TIME IN L
|
||||
CA POSMAX
|
||||
ADS Q # CREATING OVERFLOW AND Q-1 IN Q
|
||||
CA BBANK
|
||||
EXTEND
|
||||
ROR SUPERBNK
|
||||
XCH L
|
||||
|
||||
WAITLIST INHINT
|
||||
XCH Q # SAVE DELTA T IN Q AND RETURN IN
|
||||
TS WAITEXIT # WAITEXIT.
|
||||
EXTEND
|
||||
INDEX WAITEXIT # IF TWIDDLING, THE TS SKIPS TO HERE
|
||||
DCA 0 # PICK UP 2CADR OF TASK.
|
||||
-1 TS WAITADR # BBCON WILL REMAIN IN L
|
||||
DLY2 CAF WAITBB # ENTRY FROM FIXDELAY AND VARDELAY.
|
||||
XCH BBANK
|
||||
TCF WAIT2
|
||||
|
||||
# RETURN TO CALLER AFTER TASK INSERTION:
|
||||
|
||||
LVWTLIST DXCH WAITEXIT
|
||||
AD TWO
|
||||
DTCB
|
||||
|
||||
EBANK= LST1
|
||||
WAITBB BBCON WAIT2
|
||||
|
||||
# RETURN TO CALLER +2 AFTER WAITING DT SPECIFIED AT CALLER +1.
|
||||
|
||||
FIXDELAY INDEX Q # BOTH ROUTINES MUST BE CALLED UNDER
|
||||
CAF 0 # WAITLIST CONTROL AND TERMINATE THE TASK
|
||||
INCR Q # IN WHICH THEY WERE CALLED.
|
||||
|
||||
# RETURN TO CALLER +1 AFTER WAITING THE DT AS ARRIVING IN A.
|
||||
|
||||
VARDELAY XCH Q # DT TO Q. TASK ADRES TO WAITADR.
|
||||
TS WAITADR
|
||||
CA BBANK # BBANK IS SAVED DURING DELAY.
|
||||
EXTEND
|
||||
ROR SUPERBNK # ADD SBANK TO BBCON.
|
||||
TS L
|
||||
CAF DELAYEX
|
||||
TS WAITEXIT # GO TO TASKOVER AFTER TASK ENTRY.
|
||||
TCF DLY2
|
||||
|
||||
# Page 1120
|
||||
DELAYEX TCF TASKOVER -2 # RETURNS TO TASKOVER.
|
||||
|
||||
# Page 1121
|
||||
# ENDTASK MUST ENTERED IN FIXED-FIXED SO IT IS DISTINGUISHABLE BY ITS ADRES ALONE.
|
||||
|
||||
EBANK= LST1
|
||||
ENDTASK -2CADR SVCT3
|
||||
|
||||
SVCT3 CCS FLAGWRD2 # DRIFT FLAG
|
||||
TCF TASKOVER
|
||||
TCF TASKOVER
|
||||
TCF +1
|
||||
|
||||
CKIMUSE CCS IMUCADR # DON'T DO NBDONLY IF SOMEONE ELSE IS IN
|
||||
TCF SVCT3X # IMUSTALL.
|
||||
TCF +3
|
||||
TCF SVCT3X
|
||||
TCF SVCT3X
|
||||
|
||||
+3 CAF PRIO35 # COMPENSATE FOR NBD COEFFICIENTS ONLY.
|
||||
TC NOVAC # ENABLE EVERY 81.93 SECONDS
|
||||
EBANK= NBDX
|
||||
2CADR NBDONLY
|
||||
|
||||
TCF TASKOVER
|
||||
|
||||
SVCT3X TC FIXDELAY # DELAY MAX OF 2 TIMES FOR IMUZERO.
|
||||
DEC 500
|
||||
TC SVCT3 # CHECK DRIFT FLAG AGAIN.
|
||||
|
||||
# Page 1122
|
||||
# BEGIN TASK INSERTION.
|
||||
|
||||
BANK 01
|
||||
COUNT* $$/WAIT
|
||||
WAIT2 TS WAITBANK # BBANK OF CALLING PROGRAM.
|
||||
CA Q
|
||||
EXTEND
|
||||
BZMF WAITP00H
|
||||
|
||||
CS TIME3
|
||||
AD BIT8 # BIT 8 = OCT 200
|
||||
CCS A # TEST 200 - C(TIME3). IF POSITIVE,
|
||||
# IT MEANS THAT TIME3 OVERFLOW HAS OCCURRED PRIOR TO CS TIME3 AND THAT
|
||||
# C(TIME3) = T - T1, INSTEAD OF 1.0 - (T1 - T). THE FOLLOWING FOUR
|
||||
# ORDERS SET C(A) = TD - T1 + 1 IN EITHER CASE.
|
||||
|
||||
AD OCT40001 # OVERFLOW HAS OCCURRED. SET C(A) =
|
||||
CS A # T - T1 + 1.0 - 201
|
||||
|
||||
# NORMAL CASE (C(A) NNZ) YIELDS SAME C(A): -( -(1.0-(T1-T)) + 200) - 1
|
||||
|
||||
AD OCT40201
|
||||
AD Q # RESULT = TD - T1 + 1.
|
||||
|
||||
CCS A # TEST TD - T1 + 1.
|
||||
|
||||
AD LST1 # IF TD - T1 POS, GO TO WTLST5 WITH
|
||||
TCF WTLST5 # C(A) = (TD - T1) + C(LST1) = TD-T2+1
|
||||
|
||||
NOOP
|
||||
CS Q
|
||||
|
||||
# NOTE THAT THIS PROGRAM SECTION IS NEVER ENTERED WHEN T-T1 G/E -1,
|
||||
# SINCE TD-T1+1 = (TD-T) + (T-T1+1), AND DELTA T = TD-T G/E +1. (G/E
|
||||
# SYMBOL MEANS GREATER THAN OR EQUAL TO). THUS THERE NEED BE NO CON-
|
||||
# CERN OVER A PREVIOUS OR IMMINENT OVEFLOW OF TIME3 HERE.
|
||||
|
||||
AD POS1/2 # WHEN TD IS NEXT, FORM QUANTITY
|
||||
AD POS1/2 # 1.0 - DELTA T = 1.0 - (TD - T)
|
||||
XCH TIME3
|
||||
AD NEGMAX
|
||||
AD Q # 1.0 - DELTAT T NOW COMPLETE.
|
||||
EXTEND # ZERO INDEX Q.
|
||||
QXCH 7 # (ZQ)
|
||||
|
||||
# Page 1123
|
||||
WTLST4 XCH LST1
|
||||
XCH LST1 +1
|
||||
XCH LST1 +2
|
||||
XCH LST1 +3
|
||||
XCH LST1 +4
|
||||
XCH LST1 +5
|
||||
XCH LST1 +6
|
||||
XCH LST1 +7
|
||||
|
||||
CA WAITADR # (MINOR PART OF TASK CADR HAS BEEN IN L.)
|
||||
INDEX Q
|
||||
TCF +1
|
||||
|
||||
DXCH LST2
|
||||
DXCH LST2 +2
|
||||
DXCH LST2 +4
|
||||
DXCH LST2 +6
|
||||
DXCH LST2 +8D
|
||||
DXCH LST2 +10D # AT END, CHECK THAT C(LST2 +10) IS STD
|
||||
DXCH LST2 +12D
|
||||
DXCH LST2 +14D
|
||||
DXCH LST2 +16D
|
||||
AD ENDTASK # END ITEM, AS CHECK FOR EXCEEDING
|
||||
# THE LENGTH OF THE LIST.
|
||||
EXTEND # DUMMY TASK ADRES SHOULD BE IN FIXED-
|
||||
BZF LVWTLIST # FIXED SO ITS ADRES ALONE DISTINGUISHES
|
||||
TCF WTABORT # IT.
|
||||
|
||||
# Page 1124
|
||||
WTLST5 CCS A # TEST TD - T2 + 1
|
||||
AD LST1 +1
|
||||
TCF +4
|
||||
AD ONE
|
||||
TC WTLST2
|
||||
OCT 1
|
||||
|
||||
+4 CCS A # TEST TD - T3 + 1
|
||||
AD LST1 +2
|
||||
TCF +4
|
||||
AD ONE
|
||||
TC WTLST2
|
||||
OCT 2
|
||||
|
||||
+4 CCS A # TEST TD - T4 + 1
|
||||
AD LST1 +3
|
||||
TCF +4
|
||||
AD ONE
|
||||
TC WTLST2
|
||||
OCT 3
|
||||
|
||||
+4 CCS A # TEST TD - T5 + 1
|
||||
AD LST1 +4
|
||||
TCF +4
|
||||
AD ONE
|
||||
TC WTLST2
|
||||
OCT 4
|
||||
|
||||
+4 CCS A # TEST TD - T6 + 1
|
||||
AD LST1 +5
|
||||
TCF +4
|
||||
AD ONE
|
||||
TC WTLST2
|
||||
OCT 5
|
||||
|
||||
+4 CCS A # TEST TD - T7 + 1
|
||||
AD LST1 +6
|
||||
TCF +4
|
||||
AD ONE
|
||||
TC WTLST2
|
||||
OCT 6
|
||||
|
||||
# Page 1125
|
||||
+4 CCS A # TEST TD - T2 + 1
|
||||
AD LST1 +7
|
||||
TCF +4
|
||||
AD ONE
|
||||
TC WTLST2
|
||||
OCT 7
|
||||
|
||||
+4 CCS A
|
||||
WTABORT TC FILLED
|
||||
NOOP # CAN'T GET HERE
|
||||
AD ONE
|
||||
TC WTLST2
|
||||
OCT 10
|
||||
|
||||
OCT40201 OCT 40201
|
||||
|
||||
# Page 1126
|
||||
FILLED DXCH WAITEXIT
|
||||
TC BAILOUT1 # NO ROOM IN THE INN
|
||||
OCT 01203
|
||||
|
||||
# Page 1127
|
||||
# THE ENTRY TC WTLST2 JUST PRECEDING OCT N IS FOR T LE TD LE T -1.
|
||||
# N N+1
|
||||
# (LE MEANS LESS THAN OR EQUAL TO). AT ENTRY, C(A) = -(TD - T + 1)
|
||||
# N+1
|
||||
# THE LST1 ENTRY -(T -T +1) IS TO BE REPLACED BY -(TD - T + 1), AND
|
||||
# N+1 N N
|
||||
# THE ENTRY -(T - TD + 1) IS TO BE INSERTED IMMEDIATELY FOLLOWING.
|
||||
# N+1
|
||||
|
||||
WTLST2 TS WAITTEMP # C(A) = -(TD - T + 1)
|
||||
INDEX Q
|
||||
CAF 0
|
||||
TS Q # INDEX VALUE INTO Q.
|
||||
|
||||
CAF ONE
|
||||
AD WAITTEMP
|
||||
INDEX Q # C(A) = -(TD - T ) + 1.
|
||||
ADS LST1 -1 # N
|
||||
|
||||
CS WAITTEMP
|
||||
INDEX Q
|
||||
TCF WTLST4
|
||||
|
||||
# C(TIME3) = 1.0 - (T1 - T)
|
||||
#
|
||||
# C(LST1) = - (T2 - T1) + 1
|
||||
# C(LST1+1) = - (T3 - T2) + 1
|
||||
# C(LST1+2) = - (T4 - T3) + 1
|
||||
# C(LST1+3) = - (T5 - T4) + 1
|
||||
# C(LST1+4) = - (T6 - T5) + 1
|
||||
#
|
||||
# C(LST2) = 2CADR TASK1
|
||||
# C(LST2+2) = 2CADR TASK2
|
||||
# C(LST2+4) = 2CADR TASK3
|
||||
# C(LST2+6) = 2CADR TASK4
|
||||
# C(LST2+8) = 2CADR TASK5
|
||||
# C(LST2+10) = 2CADR TASK6
|
||||
|
||||
# Page 1128
|
||||
# ENTERS HERE ON T3 RUPT TO DISPATCH WAITLISTED TASK.
|
||||
|
||||
T3RUPT EXTEND
|
||||
ROR SUPERBNK # READ CURRENT SUPERBANK VALUE AND
|
||||
TS BANKRUPT # SAVE WITH E AND F BANK VALUES.
|
||||
EXTEND
|
||||
QXCH QRUPT
|
||||
|
||||
T3RUPT2 CAF NEG1/2 # DISPATCH WAITLIST TASK.
|
||||
XCH LST1 +7
|
||||
XCH LST1 +6
|
||||
XCH LST1 +5
|
||||
XCH LST1 +4 # 1. MOVE UP LST1 CONTENTS, ENTERING
|
||||
XCH LST1 +3 # A VALUE OF 1/2 +1 AT THE BOTTOM
|
||||
XCH LST1 +2 # FOR T6-T5, CORRESPONDING TO THE
|
||||
XCH LST1 +1 # INTERVAL 81.91 SEC FOR ENDTASK.
|
||||
XCH LST1
|
||||
AD POSMAX # 2. SET T3 = 1.0 - T2 - T USING LIST 1.
|
||||
ADS TIME3 # SO T3 WON'T TICK DURING UPDATE.
|
||||
TS RUPTAGN
|
||||
CS ZERO
|
||||
TS RUPTAGN # SETS RUPTAGN TO +1 ON OVERFLOW.
|
||||
|
||||
EXTEND # DISPATCH TASK.
|
||||
DCS ENDTASK
|
||||
DXCH LST2 +16D
|
||||
DXCH LST2 +14D
|
||||
DXCH LST2 +12D
|
||||
DXCH LST2 +10D
|
||||
DXCH LST2 +8D
|
||||
DXCH LST2 +6
|
||||
DXCH LST2 +4
|
||||
DXCH LST2 +2
|
||||
DXCH LST2
|
||||
|
||||
XCH L
|
||||
EXTEND
|
||||
WRITE SUPERBNK # SET SUPERBANK FROM BBCON OF 2CADR
|
||||
XCH L # RESTORE TO L FOR DXCH Z.
|
||||
DTCB
|
||||
|
||||
# Page 1129
|
||||
# RETURN, AFTER EXECUTION OF T3 OVERFLOW TASK:
|
||||
|
||||
BLOCK 02
|
||||
COUNT* $$/WAIT
|
||||
TASKOVER CCS RUPTAGN # IF +1 RETURN TO T3RUPT, IF -0 RESUME.
|
||||
CAF WAITBB
|
||||
TS BBANK
|
||||
TCF T3RUPT2 # DISPATCH NEXT TASK IF IT WAS DUE.
|
||||
|
||||
CA BANKRUPT
|
||||
EXTEND
|
||||
WRITE SUPERBNK # RESTORE SUPERBANK BEFORE RESUME IS DONE
|
||||
|
||||
RESUME EXTEND
|
||||
QXCH QRUPT
|
||||
NOQRSM CA BANKRUPT
|
||||
XCH BBANK
|
||||
NOQBRSM DXCH ARUPT
|
||||
RELINT
|
||||
RESUME
|
||||
|
||||
# Page 1130
|
||||
# LONGCALL
|
||||
# PROGRAM DESCRIPTION DATE -- 17 MARCH 1967
|
||||
# PROGRAM WRITTEN BY W.H.VANDEVER LOG SECTION WAITLIST
|
||||
# MOD BY -- R. MELANSON TO ADD DOCUMENTATION ASSEMBLY SUNDISK REV. 100
|
||||
#
|
||||
# FUNCTIONAL DESCRIPTION --
|
||||
# LONGCALL IS CALLED WITH THE DELTA TIME ARRIVING IN A,L SCALED AS TIME2,TIME1 WITH THE 2CADR OF THE TASK
|
||||
# IMMEDIATELY FOLLOWING THE TC LONGCALL. FOR EXAMPLE, IT MIGHT BE DONE AS FOLLOWS WHERE TIMELOC IS THE NAME OF
|
||||
# A DP REGISTER CONTAINING A DELTA TIME AND WHERE TASKTODO IS THE NAME OF THE LOCATION AT WHICH LONGCALL IS TO
|
||||
# START.
|
||||
# CALLING SEQUENCE --
|
||||
# EXTEND
|
||||
# DCA TIMELOC
|
||||
# TC LONGCALL
|
||||
# 2CADR TASKTODO
|
||||
# NORMAL EXIT MODE --
|
||||
# 1) TC WAITLIST
|
||||
# 2) DTCB (TC L+3 OF CALLING ROUTINE 1ST PASS THRU LONGCYCL)
|
||||
# 3) DTCB (TO TASKOVER ON SUBSEQUENT PASSES THRU LONGCYCL)
|
||||
# ALARM OR ABORT EXIT MODE --
|
||||
# NONE
|
||||
# OUTPUT --
|
||||
# LONGTIME AND LONGTIME+1 = DELTA TIME
|
||||
# LONGEXIT AND LONGEXIT+1 = RETURN 2CADR
|
||||
# LONGCADR AND LONGCADR+1 = TASK 2CADR
|
||||
# A = SINGLE PRECISION TIME FOR WAITLIST
|
||||
# ERASABLE INITIALIZATION --
|
||||
# A = MOST SIGNIFICANT PART OF DELTA TIME
|
||||
# L = LEAST SIGNIFICANT PART OF DELTA TIME
|
||||
# Q = ADDRESS OF 2CADR TASK VALUE
|
||||
# DEBRIS --
|
||||
# A,Q,L
|
||||
# LONGCADR AND LONGCADR+1
|
||||
# LONGEXIT AND LONGEXIT+1
|
||||
# LONGTIME AND LONGTIME+1
|
||||
# *** THE FOLLOWING IS TO BE IN FIXED-FIXED AND UNSWITCHED ERASIBLE **
|
||||
|
||||
BLOCK 02
|
||||
EBANK= LST1
|
||||
LONGCALL DXCH LONGTIME # OBTAIN THE DELTA TIME
|
||||
|
||||
EXTEND # OBTAIN THE 2CADR
|
||||
# Page 1131
|
||||
NDX Q
|
||||
DCA 0
|
||||
DXCH LONGCADR
|
||||
|
||||
EXTEND # NOW GO TO THE APPROPRIATE SWITCHED BANK
|
||||
DCA LGCL2CDR # FOR THE REST OF LONGCALL
|
||||
DTCB
|
||||
|
||||
EBANK= LST1
|
||||
LGCL2CDR 2CADR LNGCALL2
|
||||
|
||||
# *** THE FOLLOWING MAY BE IN A SWITCHED BANK, INCLUDING ITS ERASABLE ***
|
||||
|
||||
BANK 01
|
||||
COUNT* $$/WAIT
|
||||
LNGCALL2 LXCH LONGEXIT +1 # SAVE THE CORRECT BB FOR RETURN
|
||||
CA TWO # OBTAIN THE RETURN ADDRESS
|
||||
ADS Q
|
||||
TS LONGEXIT
|
||||
|
||||
CA LONGTIME # CHECK FOR LEGITIMATE DELTA-TIME
|
||||
CCS A
|
||||
TCF LONGCYCL # HI-ORDER OK --> ALL IS OK.
|
||||
TCF +2 # HI-ORDER ZERO --> CHECK LO-ORDER.
|
||||
TCF LONGP00H # HI-ORDER NEG. --> NEG. DT
|
||||
+2 CA LONGTIME +1 # CHECK LO-ORDER FOR ZERO OR NEGATIVE.
|
||||
EXTEND
|
||||
BZMF LONGP00H # BAD DELTA-TIME. ABORT
|
||||
|
||||
# *** WAITLIST TASK LONGCYCL ***
|
||||
|
||||
LONGCYCL EXTEND # CAN WE SUCCESFULLY TAKE ABOUT 1.25
|
||||
DCS DPBIT14 # MINUTES OFF OF LONGTIME
|
||||
DAS LONGTIME
|
||||
|
||||
CCS LONGTIME +1 # THE REASONING BEHIND THIS PART IS
|
||||
TCF MUCHTIME # INVOLVED, TAKING INTO ACCOUNT THAT THE
|
||||
# WORDS MAY NOT BE SIGNED CORRECTED (DP
|
||||
# BASIC INSTRUCTIONS
|
||||
# DO NOT SIGN CORRECT) AND THAT WE SUBTRAC-
|
||||
# TED BIT14 (1 OVER HALF THE POS. VALUE
|
||||
# REPRESENTABLE IN SINGLE WORD)
|
||||
NOOP # CAN'T GET HERE *************
|
||||
TCF +1
|
||||
CCS LONGTIME
|
||||
TCF MUCHTIME
|
||||
DPBIT14 OCT 00000
|
||||
OCT 20000
|
||||
|
||||
# LONGCALL
|
||||
# Page 1132
|
||||
LASTTIME CA BIT14 # GET BACK THE CORRECT DELTA T FOR WAITLIST
|
||||
ADS LONGTIME +1
|
||||
TC WAITLIST
|
||||
EBANK= LST1
|
||||
2CADR GETCADR # THE ENTRY TO OUR LONGCADR
|
||||
|
||||
LONGRTRN CA TSKOVCDR # SET IT UP SO THAT ONLY THE FIRST EXIT IS
|
||||
DXCH LONGEXIT # TO THE CALLER OF LONGCALL
|
||||
DTCB # THE REST ARE TO TASKOVER
|
||||
|
||||
MUCHTIME CA BIT14 # WE HAVE OVER OUR ABOUT 1.25 MINUTES
|
||||
TC WAITLIST # SO SET UP FOR ANOTHER CYCLE THROUGH HERE
|
||||
EBANK= LST1
|
||||
2CADR LONGCYCL
|
||||
|
||||
TCF LONGRTRN # NOW EXIT PROPERLY
|
||||
|
||||
# *** WAITLIST TASK GETCADR ***
|
||||
|
||||
GETCADR DXCH LONGCADR # GET THE LONGCALL THAT WE WISHED TO START
|
||||
DTCB # AND TRANSFER CONTROL TO IT
|
||||
|
||||
TSKOVCDR GENADR TASKOVER
|
||||
LONGP00H DXCH LONGEXIT
|
||||
TCF +2
|
||||
WAITP00H DXCH WAITEXIT
|
||||
+2 TC P00DOO1
|
||||
OCT 01204
|
||||
|
Loading…
Reference in New Issue
Block a user