ryan/Apollo-11
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Trim whitespace

Browse Source
This commit is contained in:
James Harris
2016-12-28 16:11:25 +00:00
parent 7c33b5996c
commit 4f3a1d4374
166 changed files with 5357 additions and 5357 deletions
Download Patch File Download Diff File Expand all files Collapse all files

28
Comanche055/UPDATE_PROGRAM.agc
View File

@ -10,14 +10,14 @@
# Mod history: 2009-05-07 RSB Adapted from Colossus249/UPDATE_PROGRAM.agc
# and page images. Corrected various typos
# in the transcription of program comments,
# and these should be back-ported to
# and these should be back-ported to
# Colossus249.
#
# The contents of the "Comanche055" files, in general, are transcribed
# from scanned documents.
# The contents of the "Comanche055" files, in general, are transcribed
# from scanned documents.
#
# Assemble revision 055 of AGC program Comanche by NASA
# 2021113-051. April 1, 1969.
# 2021113-051. April 1, 1969.
#
# This AGC program shall also be referred to as Colossus 2A
#
@ -166,7 +166,7 @@ V73UPDAT CAF UP73 # COMES HERE ON V73E
BZF +2 # (+0 = P00, -0 = FRESHSTART)
TC CKMDMORE # NOW CHECK FOR PROGRAM WHICH CAN BE
# INTERRUPTED BY P27.
CAE MODREG # UPDATE ALLOWED
TS UPOLDMOD # SAVE CURRENT MAJOR MODE
# Page 1500
@ -178,7 +178,7 @@ V73UPDAT CAF UP73 # COMES HERE ON V73E
TC POSTJUMP # LEAVE EXTENDED VERB BANK AND
CADR UPPART2 # GO TO UPDATE PROGRAM (P27) BANK.
CKMDMORE CS FLAGWRD5
MASK BIT8 # CHECK IF COMPUTER IS LGC
CCS A # IS COMPUER LGC OR AGC
@ -189,7 +189,7 @@ UPERLEM TCF UPERROR # ERROR: IT'S THE LEM + MODE IS NOT P00.
UPERCMC TCF UPERROR # ERROR: IT'S THE CMC AND MODE IS NOT
# P00 OR P02.
TC Q # ALLOW UPDATE TO PROCEED.
UPERROR TC POSTJUMP # TURN ON 'OPERATOR ERROR' LIGHT
CADR UPERROUT +2 # GO TO COMMON UPDATE PROGRAM EXIT
@ -217,7 +217,7 @@ UPPART2 EQUALS # UPDATE PROGRAM -- PART 2
TS DNLSTCOD # DOWNLIST
TC NEWMODEX # SET MAJOR MODE = 27
# Page 1501
# Page 1501
DEC 27
INDEX UPVERB # BRANCH DEPENDING ON WHETHER THE UPDATE
@ -315,7 +315,7 @@ UPSTORE EQUALS # GROUND HAS VERIFIED UPDATE. STORE DATA.
CAE FLAGWRD7 # INVERT VERIFLAG (BIT 3 OF FLAGWRD7) TO
XCH L # INDICATE TO THE GROUND (VIA DOWNLINK)
CAF BIT3 # THAT THE V33 (WHICH THE GROUND SENT TO
# Page 1503
# Page 1503
EXTEND # VERIFY THE UPDATE) HAS BEEN SUCCESSFULLY
RXOR LCHAN # RECEIVED BY THE UPDATE PROGRAM
TS FLAGWRD7
@ -415,7 +415,7 @@ DELTAOK TC TPAGREE # FORCE SIGN AGREEMENT
UPEND71 CAE UPBUFF +1 # SET EBANK
TS EBANK # AND
# Page 1505
# Page 1505
MASK LOW8 # CALCULATE
TS UPTEMP # S-REG VALUE OF RECEIVING AREA
AD NEG3 # IN THE PROCESS OF
@ -465,7 +465,7 @@ LDLOOP72 TS MPAC # NOW PERFORM THE UPDATE
MASK LOW8 # ISOLATE RELATIVE ADDRESS
INDEX A
# Page 1506
# Page 1506
EBANK= 1400
LXCH 1400 # UPDATE THE REGISTER BY CONTENTS OF L
EBANK= TEPHEM
@ -513,8 +513,8 @@ UPEND70 EXTEND # V70 DOES THE FOLLOWING WITH DP DELTA
DAS TETCSM
CAF ZERO
# Page 1507
# Page 1507
ZL
DXCH UPBUFF +12D # DECREMENT LEM STATE VECTOR TIME
DAS TETLEM
@ -549,6 +549,6 @@ UPACTOFF CS BIT3
EXTEND # TURN OFF UPLINK ACTIVITY LIGHT
WAND DSALMOUT # (BIT 3 OF CHANNEL 11)
TC Q