Trim whitespace
This commit is contained in:
@@ -7,8 +7,8 @@
|
||||
# Contact: Ron Burkey <info@sandroid.org>.
|
||||
# Website: www.ibiblio.org/apollo.
|
||||
# Pages: 490-491
|
||||
# Mod history: 2009-05-17 RSB Adapted from the corresponding
|
||||
# Luminary131 file, using page
|
||||
# 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
|
||||
@@ -24,67 +24,67 @@
|
||||
# Notations on the hardcopy document read, in part:
|
||||
#
|
||||
# Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
|
||||
# 16:27 JULY 14, 1969
|
||||
# 16:27 JULY 14, 1969
|
||||
|
||||
# Page 490
|
||||
BANK 25
|
||||
SETLOC RRLEADIN
|
||||
BANK
|
||||
|
||||
|
||||
EBANK= RSTACK
|
||||
|
||||
|
||||
# RADAR SAMPLING LOOP.
|
||||
|
||||
COUNT* $$/RLEAD
|
||||
RADSAMP CCS RSAMPDT # TIMES NORMAL ONCE-PER-SECOND SAMPLING.
|
||||
TCF +2
|
||||
TCF TASKOVER # +0 INSERTED MANUALLY TERMINATES TEST.
|
||||
|
||||
|
||||
TC WAITLIST
|
||||
EBANK= RSTACK
|
||||
2CADR RADSAMP
|
||||
|
||||
|
||||
CAF PRIO25
|
||||
TC NOVAC
|
||||
EBANK= RSTACK
|
||||
2CADR DORSAMP
|
||||
|
||||
|
||||
CAF BIT14 # FOR CYCLIC SAMPLING, RTSTDEX =
|
||||
EXTEND # RTSTLOC/2 + RTSTBASE
|
||||
MP RTSTLOC
|
||||
AD RTSTBASE # 0 FOR RR, 2 FOR LR.
|
||||
TS RTSTDEX
|
||||
TCF TASKOVER
|
||||
|
||||
|
||||
# DO THE ACTUAL RADAR SAMPLE.
|
||||
|
||||
DORSAMP TC VARADAR # SELECTS VARIABLE RADAR CHANNEL.
|
||||
TC BANKCALL
|
||||
CADR RADSTALL
|
||||
|
||||
|
||||
INCR RFAILCNT # ADVANCE FAIL COUNTER BUT ACCEPT BAD DATA
|
||||
|
||||
|
||||
DORSAMP2 INHINT
|
||||
CA FLAGWRD5 # DON'T UPDATE RSTACK IF IN R77.
|
||||
MASK R77FLBIT
|
||||
CCS A
|
||||
TCF +4
|
||||
|
||||
|
||||
DXCH SAMPLSUM
|
||||
INDEX RTSTLOC
|
||||
DXCH RSTACK
|
||||
|
||||
|
||||
CS RTSTLOC # CYCLE RTSTLOC.
|
||||
AD RTSTMAX
|
||||
EXTEND
|
||||
|
||||
# Page 491
|
||||
|
||||
# Page 491
|
||||
BZF +3
|
||||
CA RTSTLOC
|
||||
AD TWO # STORAGE IS DP
|
||||
TS RTSTLOC
|
||||
TCF ENDOFJOB # CONTINUOUS SAMPLING AND 2N TRIES -- GONE.
|
||||
|
||||
|
||||
# VARIABLE RADAR DATA CALLER FOR ONE MEASUREMENT ONLY.
|
||||
|
||||
VARADAR CAF ONE # WILL BE SENT TO RADAR ROUTINE IN A BY
|
||||
@@ -92,12 +92,12 @@ VARADAR CAF ONE # WILL BE SENT TO RADAR ROUTINE IN A BY
|
||||
INDEX RTSTDEX
|
||||
CAF RDRLOCS
|
||||
TCF SWCALL # NOT TOUCHING Q.
|
||||
|
||||
|
||||
RDRLOCS CADR RRRANGE # =0
|
||||
CADR RRRDOT # =1
|
||||
CADR LRVELX # =2
|
||||
CADR LRVELY # =3
|
||||
CADR LRVELZ # =4
|
||||
CADR LRALT # =5
|
||||
|
||||
|
||||
|
||||
|
Reference in New Issue
Block a user