Trim whitespace
This commit is contained in:
@@ -7,8 +7,8 @@
|
||||
# Contact: Ron Burkey <info@sandroid.org>.
|
||||
# Website: www.ibiblio.org/apollo.
|
||||
# Pages: 988-997
|
||||
# Mod history: 2009-05-24 RSB Adapted from the corresponding
|
||||
# Luminary131 file, using page
|
||||
# Mod history: 2009-05-24 RSB Adapted from the corresponding
|
||||
# Luminary131 file, using page
|
||||
# images from Luminary 1A.
|
||||
#
|
||||
# This source code has been transcribed or otherwise adapted from
|
||||
@@ -24,7 +24,7 @@
|
||||
# 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 988
|
||||
# PROGRAM NAME -- DOWN TELEMETRY PROGRAM
|
||||
@@ -161,7 +161,7 @@
|
||||
BANK
|
||||
|
||||
EBANK= DNTMBUFF
|
||||
|
||||
|
||||
COUNT* $$/DPROG
|
||||
DODOWNTM TS BANKRUPT
|
||||
EXTEND
|
||||
@@ -184,7 +184,7 @@ MINTIME2 -1DNADR TIME2 # NEGATIVE OF TIME2 1DNADR
|
||||
|
||||
CCS SUBLIST # IS THE SUBLIST IN CONTROL
|
||||
TCF NEXTINSL # YES
|
||||
# Page 992
|
||||
# Page 992
|
||||
DNADRDCR OCT 74001 # DNADR COUNT AND ECADR DECREMENTER
|
||||
|
||||
CHKLIST CA CTLIST
|
||||
@@ -235,7 +235,7 @@ DODNCHAN TC 6 # (EXECUTED AS EXTEND) IT'S A CHANNEL
|
||||
WOZERO CS BIT7
|
||||
EXTEND
|
||||
WAND CHAN13 # SET WORD ORDER CODE TO ZERO
|
||||
# Page 993
|
||||
# Page 993
|
||||
TC Q # RETURN TO CALLER
|
||||
|
||||
DODNPTR INDEX DNECADR # DNECADR CONTAINS ADRES OF SUBLIST
|
||||
@@ -415,7 +415,7 @@ DNDUMP CA TWO # INCREMENT ECADR IN DUMPLOC
|
||||
TCF DNPHASE1 # YES -- START SENDING INTERRUPTED DOWNLIST
|
||||
# AGAIN
|
||||
TCF DNDUMPI +2 # NO -- GO BACK AND INITIALIZE NEXT BANK
|
||||
|
||||
|
||||
DNDUMP1 CA LDNDUMP # SET DNTMGOTO
|
||||
TS DNTMGOTO # FOR WORDS 3 TO 256D OF CURRENT EBANK
|
||||
|
||||
@@ -439,7 +439,7 @@ SENDID EXTEND # ** ENTRANCE USED BY ERASABLE DUMP PROG. **
|
||||
CAF ERASID # TO LOCATION FOLLOWING `TC SENDID'
|
||||
|
||||
TS L # ** ENTRANCE USED BY REGULAR DOWNLINK PG **
|
||||
# Page 997
|
||||
# Page 997
|
||||
TC WOZERO # GO SET WORD ORDER CODE TO ZERO
|
||||
CAF LOWIDCOD # PLACE SPECIAL ID CODE INTO L
|
||||
XCH L # AND ID BACK INTO A
|
||||
@@ -452,4 +452,4 @@ WOTEST CA BIT7 # AT THE BEGINNING OF THE LIST THE WORD
|
||||
TC DNTMGOTO
|
||||
CA BIT7
|
||||
TCF WO1
|
||||
|
||||
|
||||
|
Reference in New Issue
Block a user