Apollo-11/Luminary099/RADAR_LEADIN_ROUTINES.agc

104 lines
2.5 KiB
Plaintext
Raw Permalink Normal View History

2016-07-07 08:47:26 +00:00
# Copyright: Public domain.
# Filename: RADAR_LEADIN_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: 490-491
2016-12-28 16:11:25 +00:00
# Mod history: 2009-05-17 RSB Adapted from the corresponding
# Luminary131 file, using page
2016-07-07 08:47:26 +00:00
# images from Luminary 1A.
#
# 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
2016-12-28 16:11:25 +00:00
# 16:27 JULY 14, 1969
2016-07-07 08:47:26 +00:00
# Page 490
BANK 25
SETLOC RRLEADIN
BANK
2016-12-28 16:11:25 +00:00
2016-07-07 08:47:26 +00:00
EBANK= RSTACK
2016-12-28 16:11:25 +00:00
2016-07-07 08:47:26 +00:00
# RADAR SAMPLING LOOP.
COUNT* $$/RLEAD
2016-07-13 07:59:10 +00:00
RADSAMP CCS RSAMPDT # TIMES NORMAL ONCE-PER-SECOND SAMPLING.
2016-07-07 08:47:26 +00:00
TCF +2
TCF TASKOVER # +0 INSERTED MANUALLY TERMINATES TEST.
2016-12-28 16:11:25 +00:00
2016-07-07 08:47:26 +00:00
TC WAITLIST
EBANK= RSTACK
2CADR RADSAMP
2016-12-28 16:11:25 +00:00
2016-07-07 08:47:26 +00:00
CAF PRIO25
TC NOVAC
EBANK= RSTACK
2CADR DORSAMP
2016-12-28 16:11:25 +00:00
2016-07-13 07:59:10 +00:00
CAF BIT14 # FOR CYCLIC SAMPLING, RTSTDEX =
2016-07-07 08:47:26 +00:00
EXTEND # RTSTLOC/2 + RTSTBASE
MP RTSTLOC
AD RTSTBASE # 0 FOR RR, 2 FOR LR.
TS RTSTDEX
TCF TASKOVER
2016-12-28 16:11:25 +00:00
2016-07-07 08:47:26 +00:00
# DO THE ACTUAL RADAR SAMPLE.
DORSAMP TC VARADAR # SELECTS VARIABLE RADAR CHANNEL.
TC BANKCALL
CADR RADSTALL
2016-12-28 16:11:25 +00:00
2016-07-07 08:47:26 +00:00
INCR RFAILCNT # ADVANCE FAIL COUNTER BUT ACCEPT BAD DATA
2016-12-28 16:11:25 +00:00
2016-07-07 08:47:26 +00:00
DORSAMP2 INHINT
CA FLAGWRD5 # DON'T UPDATE RSTACK IF IN R77.
MASK R77FLBIT
CCS A
TCF +4
2016-12-28 16:11:25 +00:00
2016-07-07 08:47:26 +00:00
DXCH SAMPLSUM
INDEX RTSTLOC
DXCH RSTACK
2016-12-28 16:11:25 +00:00
2016-07-07 08:47:26 +00:00
CS RTSTLOC # CYCLE RTSTLOC.
AD RTSTMAX
EXTEND
2016-12-28 16:11:25 +00:00
# Page 491
2016-07-07 08:47:26 +00:00
BZF +3
CA RTSTLOC
AD TWO # STORAGE IS DP
TS RTSTLOC
TCF ENDOFJOB # CONTINUOUS SAMPLING AND 2N TRIES - GONE.
2016-12-28 16:11:25 +00:00
2016-07-07 08:47:26 +00:00
# VARIABLE RADAR DATA CALLER FOR ONE MEASUREMENT ONLY.
VARADAR CAF ONE # WILL BE SENT TO RADAR ROUTINE IN A BY
TS BUF2 # SWCALL.
2016-07-07 08:47:26 +00:00
INDEX RTSTDEX
CAF RDRLOCS
TCF SWCALL # NOT TOUCHING Q.
2016-12-28 16:11:25 +00:00
2016-07-13 07:59:10 +00:00
RDRLOCS CADR RRRANGE # =0
CADR RRRDOT # =1
CADR LRVELX # =2
CADR LRVELY # =3
CADR LRVELZ # =4
CADR LRALT # =5
2016-12-28 16:11:25 +00:00
2016-07-07 08:47:26 +00:00