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

44
Comanche055/P34-35_P74-75.agc
View File

@ -11,11 +11,11 @@
# 2009-05-23 RSB In DISPLAYE, corrected a CADR GOFLASHR
# to CADR GOFLASH.
#
# 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
#
@ -179,7 +179,7 @@
BANK
EBANK= SUBEXIT
COUNT 35/P3474
P34 TC AVFLAGA
TC P34/P74A
P74 TC AVFLAGP
@ -657,7 +657,7 @@ S34/35.1 VLOAD VSU
# ADVANCE PASSIVE VEH TO RENDEZVOUS TIME AND GET REQ VEL FROM LAMBERT
SETLOC CSI/CDH
BANK
S34/35.2 STQ VLOAD
SUBEXIT
VPASS3
@ -833,7 +833,7 @@ S34/35.5 STQ BON
FLAGON VLOAD
DELVLVC
STORE DVLOS # SAVE DELTA V BEFORE DISPLAY
EXIT
EXIT
CAF V06N81
TC VNP00H
TC INTPRET
@ -944,7 +944,7 @@ DISPLAYE EXTEND
TCF GOTOP00H
TC NORMEX
TCF -5
# Page 484
# ***** P3XORP7X *****
@ -971,7 +971,7 @@ VNP00H EXTEND
CAF VNBANK # ***** THIS ROUTINE MUST REMAIN IN
XCH FBANK # FIXED-FIXED *****
TS TBASE5 # * WATCH OUT *
CA VERBNOUN
TCR BANKCALL
CADR GOFLASH
@ -994,7 +994,7 @@ V06N81 VN 0681
V16N45 VN 1645
SETLOC CSI/CDH
BANK
TWOPI 2DEC 6.283185307 B-4
MAX250 2DEC 25 E3 B-28 # RSB 2004 added the B-28. OH 2009 leave?
THIRD 2DEC .333333333
@ -1325,12 +1325,12 @@ INITVELX SETPD VLOAD
HALFREV 2DEC 1 B-1
MIDGIM BON BOFF
MIDGIM BON BOFF
AVFLAG
MIDGIM1
COMPUTER
GET.LVC
# COMPUTE +MGA IF AVFLAG AND COMPUTER HAVE OPPOSITE VALUES.
GET+MGA VLOAD UNIT # (PL 0D) V (+7) TO MPAC UNITIZE UV (+1)
@ -1344,13 +1344,13 @@ GET+MGA VLOAD UNIT # (PL 0D) V (+7) TO MPAC UNITIZE UV (+1)
SETMGA STORE +MGA
CLR RVQ # CLEAR MGLVFLAG TO INDICATE +MGA CALC
MGLVFLAG # AND EXIT
MIDGIM1 BOFF
COMPUTER
GET+MGA
# COMPUTE DELVLVC IF AVFLAG AND COMPUTER HAVE SAME VALUES
GET.LVC VLOAD UNIT # (PL 6D) R (+29) IN MPAC UNITZE UR
RINIT
VCOMP # U(-R)
@ -1587,7 +1587,7 @@ SHIFTR1 LXA,2 SL*
BANK
# Page 502
EBANK= RPASS36
SBANK= R36A
COUNT* $$/R36
@ -1603,7 +1603,7 @@ R36 CAF TWO
TC -5 # R2 LOADED VIA DSKY
TC POSTJUMP
CADR R36A
OPTION36 VN 0412
SETLOC R36LM
@ -1627,10 +1627,10 @@ ASTROTIM DXCH MPAC # A-REG NON-ZERO, TIME = ASTRO INPUT TIME
RTB GOTO
DPMODE
R36INT
SETLOC R36LM1
BANK
R36INT STORE TDEC1
SLOAD SR1
OPTIONY
@ -1664,7 +1664,7 @@ R36PROG4 CALL
R36PROG5 VLOAD PDVL # _
VATT # VELOCITY VECTOR V 00D
RATT # A
PDDL
PDDL
TAT # SAVE TIME IN LOCATION 30D FOR REDISPLAY
STOVL 30D # _
PUSH PUSH # POSITION VECTOR R IN 06D AND 12D
@ -1685,7 +1685,7 @@ R36PROG5 VLOAD PDVL # _
VSL2 UNIT # RA A RA A
UNIT GOTO
R36B
SETLOC R36CM1
# Page 504
BANK
@ -1710,10 +1710,10 @@ R36B STOVL 00D # UNIT HORIZONTAL IN FORWARD DIR. 00D
RTHETA
STCALL RTHETA
R36TAG2
SETLOC R36LM
BANK
R36TAG2 DLOAD RTB
30D
SGNAGREE