Trim whitespace
This commit is contained in:
James Harris
@ -12,11 +12,11 @@
|
||||
# of 25DECML fixed.
|
||||
# 2009-05-23 RSB At SPECSTS, corrected to PRIO22.
|
||||
#
|
||||
# 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
|
||||
#
|
||||
@ -48,7 +48,7 @@
|
||||
BANK 33
|
||||
SETLOC IMUCAL
|
||||
BANK
|
||||
|
||||
|
||||
EBANK= POSITON
|
||||
IMUTEST CA ZERO
|
||||
TS DRIFTT
|
||||
@ -58,11 +58,11 @@ IMUTEST CA ZERO
|
||||
TC COAALIGN # TAKE CARE OF DRIFT FLAG
|
||||
CAF 1SECX
|
||||
TS 1SECXT1
|
||||
|
||||
|
||||
CA OC14400
|
||||
TS 1/PIPADT
|
||||
TS 1/PIPADT
|
||||
GUESS TC INTPRET # CALCULATE -COS LATITUDE AND SIN LATITUDE
|
||||
CALL
|
||||
CALL
|
||||
LATAZCHK
|
||||
COS DCOMP
|
||||
SL1
|
||||
@ -122,10 +122,10 @@ NBPOSPL CA DEC17
|
||||
EXTEND
|
||||
DCA PERFDLAY
|
||||
TC LONGCALL
|
||||
SBANK= LOWSUPER # RSB 2004, OH 2009: Ask Ron
|
||||
SBANK= LOWSUPER # RSB 2004, OH 2009: Ask Ron
|
||||
EBANK= POSITON
|
||||
2CADR GOESTIMS
|
||||
|
||||
|
||||
CA ESTICADR
|
||||
TC JOBSLEEP
|
||||
GOESTIMS CA ESTICADR
|
||||
@ -140,11 +140,11 @@ TORQUE CA ZERO
|
||||
INDEX POSITON
|
||||
TS SOUTHDR -1
|
||||
TC SHOW
|
||||
|
||||
|
||||
PIPACHK INDEX NDXCTR # PIPA TEST
|
||||
TC +1
|
||||
TC EARTHR*
|
||||
CA DEC57
|
||||
CA DEC57
|
||||
TS LENGTHOT
|
||||
CA ONE
|
||||
TS RESULTCT
|
||||
@ -173,9 +173,9 @@ STARTPIP CAF PRIO20
|
||||
TC FINDVAC
|
||||
EBANK= XSM
|
||||
2CADR PIPJOBB
|
||||
|
||||
|
||||
TC TASKOVER
|
||||
|
||||
|
||||
PIPJOBB INDEX NDXCTR
|
||||
TC +1
|
||||
TC EARTHR*
|
||||
@ -190,7 +190,7 @@ PIPJOBB INDEX NDXCTR
|
||||
EXTEND
|
||||
DCS DATAPL
|
||||
DAS DATAPL +4
|
||||
|
||||
|
||||
TC INTPRET
|
||||
DLOAD DSU
|
||||
DATAPL +6
|
||||
@ -222,7 +222,7 @@ PON4 CS BIT5 # OFFSET PLATFORM
|
||||
CA BIT5
|
||||
ADS ERCOMP1
|
||||
TCF PONG
|
||||
PON2 CS BIT5
|
||||
PON2 CS BIT5
|
||||
ADS ERCOMP1 +2
|
||||
CA BIT5
|
||||
ADS ERCOMP1 +4
|
||||
@ -242,7 +242,7 @@ VALMIS CA DRIFTO
|
||||
CA ZERO
|
||||
TS DSPTEM2
|
||||
TC SHOW
|
||||
|
||||
|
||||
ENDTEST1 TC DOWNFLAG # IMU NOT IN USE
|
||||
ADRES IMUSE # BIT 8 FLAG 0
|
||||
CS ZERO
|
||||
@ -251,12 +251,12 @@ ENDTEST1 TC DOWNFLAG # IMU NOT IN USE
|
||||
CADR MKRELEAS
|
||||
TC ENDEXT
|
||||
# Page 428
|
||||
|
||||
|
||||
OVERFFIX DAD DAD
|
||||
DPPOSMAX
|
||||
ONEDPP
|
||||
RVQ
|
||||
|
||||
|
||||
COAALIGN EXTEND # COARSE ALIGN SUBROUTINE
|
||||
QXCH QPLACE
|
||||
CA ZERO
|
||||
@ -273,7 +273,7 @@ COAALIGN EXTEND # COARSE ALIGN SUBROUTINE
|
||||
IMUSTLLG EXTEND
|
||||
QXCH QPLACE
|
||||
TC COAALIGN +10
|
||||
|
||||
|
||||
CHECKG EXTEND # PIP PULSE CATCHING ROUTINE
|
||||
QXCH QPLACE
|
||||
TC +6
|
||||
@ -359,7 +359,7 @@ ERTHR SL VXSC
|
||||
PULSEIMU
|
||||
GOTO
|
||||
S2
|
||||
|
||||
|
||||
EARTHR* EXTEND
|
||||
QXCH QPLACES
|
||||
TC INTPRET
|
||||
@ -369,7 +369,7 @@ PROUT EXIT
|
||||
TC IMUSTLLG
|
||||
TC QPLACES
|
||||
# Page 431
|
||||
|
||||
|
||||
SHOW EXTEND
|
||||
QXCH QPLACE
|
||||
SHOW1 CA POSITON
|
||||
@ -380,7 +380,7 @@ SHOW1 CA POSITON
|
||||
TC ENDTEST1 # V34
|
||||
TC QPLACE # V33
|
||||
TCF SHOW1
|
||||
|
||||
|
||||
OC14400 OCT 14400
|
||||
3990DEC = OMEG/MS
|
||||
VB06N98 VN 0698
|
||||
@ -395,7 +395,7 @@ OMEG/MS 2DEC .24339048
|
||||
|
||||
P11OUT TC BANKCALL
|
||||
CADR MATRXJOB # RETURN TO P11
|
||||
|
||||
|
||||
COUNT 02/COMST
|
||||
|
||||
BLOCK 2
|
||||
@ -417,7 +417,7 @@ FINETIME INHINT # RETURNS WITH INTERRUPT INHIBITED
|
||||
EXTEND
|
||||
READ HISCALAR
|
||||
TC Q
|
||||
|
||||
|
||||
# Page 432
|
||||
# PROGRAM NAME: OPTIMUM PRELAUNCH ALIGNMENT CALIBRATION
|
||||
# DATE: NOVEMBER 2 1966
|
||||
@ -437,7 +437,7 @@ FINETIME INHINT # RETURNS WITH INTERRUPT INHIBITED
|
||||
# A RESTART IN GYROCOMPASS DURING GYRO TORQUING CAUSES PULSES TO BE LOST.
|
||||
# THE PRELAUNCH ALIGNMENT TECHNIQUE IS BASICALLY THE SAME AS IN BLOCK 1
|
||||
# EXCEPT THAT IT HAS BEEN SIMPLIFIED IN THE SENSE THAT SMALL ANGLE APPROX.
|
||||
# HAVE BEEN USED. THE DRIFT TESTS USE A UNIQUE IMPLEMENTATION OF THE
|
||||
# HAVE BEEN USED. THE DRIFT TESTS USE A UNIQUE IMPLEMENTATION OF THE
|
||||
# OPTIMUM STATISTICAL FILTER. FOR A DESCRIPTION SEE E-1973. BOTH OF THESE
|
||||
# ROUTINES USE STANDARD SYSTEM TEST LEADIN PROCEDURES. THE INITIALIZATION
|
||||
# PROCEDURE THE DRIFT TESTS IS IN THE JDC'S. THE INITIALIZATION METHOD
|
||||
@ -493,7 +493,7 @@ FINETIME INHINT # RETURNS WITH INTERRUPT INHIBITED
|
||||
# ON THE NEXT FEW PAGES.
|
||||
|
||||
COUNT 33/P02
|
||||
|
||||
|
||||
EBANK= XSM
|
||||
BANK 33
|
||||
SETLOC IMUCAL
|
||||
@ -524,7 +524,7 @@ RSTGTS1 INHINT # COMES HERE PHASE1 RESTART
|
||||
STORE GCOMP
|
||||
STORE DELVX # GCOMPZER SUBROUTINE NO LONGER NEEDED
|
||||
EXIT
|
||||
|
||||
|
||||
CCS GEOCOMP1 # NON ZERO IF COMPASS.
|
||||
TC +2
|
||||
TC SLEEPIE +1
|
||||
@ -534,11 +534,11 @@ RSTGTS1 INHINT # COMES HERE PHASE1 RESTART
|
||||
EXIT
|
||||
CA LENGTHOT # TIMES FIVE IS THE NUM OF SEC ERECTING
|
||||
TS ERECTIME
|
||||
|
||||
|
||||
TC NEWMODEX
|
||||
MM 02
|
||||
TC BANKCALL # SET UP PIPA FAIL TO CAUSE ISS ALARM
|
||||
# Page 435
|
||||
# Page 435
|
||||
CADR PIPUSE # COMPASS NEVER TURNS THIS OFF
|
||||
TC ANNNNNN # END OF FIRST TIME THROUGH
|
||||
|
||||
@ -554,7 +554,7 @@ SLEEPIE TS LENGTHOT # TEST NOT OVER-DECREMENT LENGHOT
|
||||
WTLISTNT TC CHKCOMED # SEE IF COMPASS OVER
|
||||
TC SETGWLST
|
||||
TC ENDOFJOB
|
||||
|
||||
|
||||
SETGWLST EXTEND
|
||||
QXCH MPAC # CALLED EVERY WAITLIST OR AZIMUTH CHANGE
|
||||
INHINT
|
||||
@ -572,7 +572,7 @@ WTGTSMPL TC TWIDDLE
|
||||
TC MPAC
|
||||
RIGHTGTS CAF FOUR # SET UP NEXT WAITLIST-ALLOW SOME TIME
|
||||
TC WTGTSMPL # END OF WAITLIST SECTION
|
||||
|
||||
|
||||
# STORE AND LOAD DATA SECTIONS FOR RESTART PROOFING
|
||||
|
||||
25DECML EQUALS OCT31
|
||||
@ -597,9 +597,9 @@ LOADSTDT CAF 25DECML
|
||||
CCS MPAC
|
||||
TCF LOADSTDT +1
|
||||
TC Q
|
||||
|
||||
|
||||
# COMES HERE EVERY ITERATION BY A WAITLIST CALL SET IN SLEEPIE
|
||||
|
||||
|
||||
ALLOOP CA TIME1
|
||||
TS GTSWTLT1 # STORE TIME TO SET UP NEXT WAITLIST.
|
||||
ALLOOP3 CA ALTIM
|
||||
@ -629,9 +629,9 @@ SPECSTS CAF PRIO22
|
||||
TC FINDVAC
|
||||
EBANK= GEOSAVE1
|
||||
2CADR ALFLT # START THE JOB
|
||||
|
||||
|
||||
TC TASKOVER
|
||||
|
||||
|
||||
# Page 438
|
||||
# THIS IS PART OF THE JOB DONE EVERY ITERATION
|
||||
|
||||
@ -659,20 +659,20 @@ NORMLOP TC INTPRET
|
||||
STODL DPIPAY
|
||||
MPAC +5
|
||||
STORE DPIPAZ
|
||||
|
||||
|
||||
SETPD AXT,1
|
||||
0
|
||||
8D
|
||||
SLOAD DCOMP
|
||||
GEOCOMP1
|
||||
BMN
|
||||
BMN
|
||||
ALWAYSG # DO A QUICK COMPASS
|
||||
|
||||
# Page 439
|
||||
# NOW WE HAVE JUST THE CALIBRATION PARTS OF THE PROGRAM-NEXT PAGES
|
||||
|
||||
COUNT 33/COMST
|
||||
|
||||
|
||||
ALCGKK SLOAD BMN
|
||||
ALTIMS
|
||||
ALFLT3 # NO NEW GAINS NEEDED
|
||||
@ -686,7 +686,7 @@ ALKCG2 DLOAD* INCR,1
|
||||
TIX,2 SXA,1
|
||||
ALKCG2
|
||||
ALX1S
|
||||
|
||||
|
||||
ALFLT3 AXT,1 # MEASUREMENT INCORPORATION ROUTINES
|
||||
8D # AND GAIN UPDATES
|
||||
DELMLP DLOAD* DMP
|
||||
@ -740,7 +740,7 @@ ALKLP LXC,1 SXA,1
|
||||
TIX,2 AXT,1
|
||||
ALKLP
|
||||
8D
|
||||
|
||||
|
||||
LOOSE DLOAD* PDDL* # EXTRAPOLATE SWAY VARIABLES
|
||||
ACCWD +8D,1
|
||||
VLAUN +8D,1
|
||||
@ -759,7 +759,7 @@ LOOSE DLOAD* PDDL* # EXTRAPOLATE SWAY VARIABLES
|
||||
STORE ACCWD +8D,1
|
||||
TIX,1
|
||||
LOOSE
|
||||
|
||||
|
||||
AXT,2 AXT,1 # EVALUATE SINES AND COSINES
|
||||
6
|
||||
2
|
||||
@ -777,13 +777,13 @@ BOOP DLOAD* DMPR
|
||||
STORE 22D,2 # COSINES
|
||||
TIX,2
|
||||
BOOP
|
||||
|
||||
|
||||
PERFERAS EXIT
|
||||
CA EBANK7
|
||||
EBANK= LAT(SPL)
|
||||
TS EBANK
|
||||
TC LAT(SPL) # GOTO ERASABLE ONLY TO RETURN
|
||||
|
||||
|
||||
# CAUTION
|
||||
#
|
||||
# THE ERASABLE PROGRAM THAT DOES THE CALCULATIONS MUST BE LOADED
|
||||
@ -809,9 +809,9 @@ SETUPER1 TC INTPRET # DRIFT TEST OVER
|
||||
XSM
|
||||
STORE OGC
|
||||
EXIT
|
||||
|
||||
|
||||
TORQINCH TC PHASCHNG
|
||||
OCT 00005
|
||||
OCT 00005
|
||||
CA OGCPL
|
||||
TC BANKCALL
|
||||
CADR IMUPULSE
|
||||
@ -824,39 +824,39 @@ TORQINCH TC PHASCHNG
|
||||
ERTHRVSE
|
||||
EXIT
|
||||
TC TORQUE # GO TO IMU2 FOR A PIPA TEST AND DISPLAY
|
||||
|
||||
|
||||
SOMEERRR TC ALARM
|
||||
OCT 1600
|
||||
TC +3
|
||||
SOMERR2 TC ALARM
|
||||
OCT 1601
|
||||
OCT 1601
|
||||
TC PHASCHNG
|
||||
OCT 00005
|
||||
TC ENDTEST1
|
||||
|
||||
# THE FAMOUS MAGIC NUMBERS OF SCHMIDT ARE NOW PART OF AN ERASABLE LOAD
|
||||
|
||||
|
||||
# THE FAMOUS MAGIC NUMBERS OF SCHMIDT ARE NOW PART OF AN ERASABLE LOAD
|
||||
|
||||
DEC585 OCT 02222 # 1170 B+14 ORDER IS NOW IMPORTANT
|
||||
SCHZEROS 2DEC .00000000
|
||||
2DEC .00000000
|
||||
OCT 00000
|
||||
ONEDPP OCT 00000
|
||||
OCT 00001 # ABOVE ORDER IS IMPORTANT
|
||||
|
||||
|
||||
INTVAL OCT 4
|
||||
OCT 2
|
||||
DEC 144
|
||||
DEC -1
|
||||
SOUPLY 2DEC .93505870 # INITIAL GAINS FOR PIP OUTPUTS
|
||||
2DEC .26266423 # INITIAL GAINS/4 FOR ERECTION ANGLES
|
||||
|
||||
|
||||
77DECML DEC 77
|
||||
ALXXXZ GENADR ALX1S -1
|
||||
|
||||
# GYROCOMPASS PORTIONS FINISH THIS LOG SECTION
|
||||
|
||||
COUNT 33/P01
|
||||
|
||||
|
||||
# INITIALIZATION SECTION
|
||||
|
||||
GTSCPSS CA FLAGWRD1 # CALLED BY V37
|
||||
@ -866,7 +866,7 @@ GTSCPSS CA FLAGWRD1 # CALLED BY V37
|
||||
BZF GTSCPSSA
|
||||
TC P00DOO
|
||||
OCT 1521 # NODO ALARM FOR P01 - P11 ALREADY DONE
|
||||
|
||||
|
||||
GTSCPSSA CAF ONE
|
||||
TS GEOCOMP1 # THIS IS THE LEAD IN FOR COMPASS
|
||||
CA 1/PIPAGT
|
||||
@ -892,8 +892,8 @@ SETUPGC CA DEC17
|
||||
TC ZEROING
|
||||
TC POSN17C
|
||||
TC GEOIMUTT # GO TO IMU2 FOR FURTHER INITIALIZATION
|
||||
|
||||
|
||||
|
||||
|
||||
POSN17C EXTEND # COMPASS POSITION Z DOWN, X DOWNRANGE
|
||||
QXCH QPLACE # FROM NORTH IN REVOLUTIONS + CLOCKWISE
|
||||
CS HALF # ALL THIS TO INITIALIZE MATRIX
|
||||
@ -910,12 +910,12 @@ POSN17C EXTEND # COMPASS POSITION Z DOWN, X DOWNRANGE
|
||||
STORE XSM +2
|
||||
EXIT
|
||||
TC QPLACE
|
||||
|
||||
|
||||
# Page 444
|
||||
# JOB DONE EVERY ITERATION THROUGH COMPASS PROGRAM. SET BY TASK ALLOOP
|
||||
|
||||
COUNT 33/P02
|
||||
|
||||
|
||||
ALWAYSG DLOAD* DSU* # COMPASS AND ERECT
|
||||
DPIPAY +8D,1
|
||||
FILDELV1 +8D,1
|
||||
@ -962,7 +962,7 @@ COMPGS DLOAD DAD # COMPASS
|
||||
GEOCONS4
|
||||
BDSU STADR
|
||||
STORE THETAN1 +2
|
||||
# Page 445
|
||||
# Page 445
|
||||
ADDINDRF EXIT
|
||||
|
||||
|
||||
@ -971,7 +971,7 @@ ENDGTSAL CCS LENGTHOT # IS 5 SEC OVER-THE TIME TO TORQ PLATFORM
|
||||
TC CHKCOMED
|
||||
CCS LGYRO # YES BUT ARE GYROS BUSY
|
||||
TCF SLEEPIE +1 # BUSY-GET THEM .5 SECONDS FROM NOW
|
||||
|
||||
|
||||
LASTGTS TC INTPRET
|
||||
VLOAD
|
||||
ERCOMP1
|
||||
@ -979,7 +979,7 @@ LASTGTS TC INTPRET
|
||||
TMARK
|
||||
STORE ALK
|
||||
EXIT # PREVIOUS SECTION WAS FOR RESTARTS
|
||||
|
||||
|
||||
RESTAIER TC PHASCHNG
|
||||
OCT 00275
|
||||
TC INTPRET # ADD COMPASS COMMANDS INTO ERATE
|
||||
@ -1040,19 +1040,19 @@ SPITGYRO CA ERCOMPPL
|
||||
CADR IMUSTALL
|
||||
TC SOMERR2
|
||||
TC ESTIMS # RE-INITIALIZE
|
||||
|
||||
|
||||
|
||||
|
||||
NOAZCHGE EXIT
|
||||
CA ONE
|
||||
TS PREMTRXC
|
||||
NOCHORLD CCS GEOSAVE1
|
||||
TS ERECTIM1 # COUNTS DOWN FOR ERECTION.
|
||||
|
||||
|
||||
ANNNNNN CAF NINE
|
||||
TS LENGTHOT
|
||||
TC SLEEPIE +1
|
||||
|
||||
|
||||
|
||||
|
||||
CHKCOMED INHINT
|
||||
CS MODREG # CHECK FOR MM 07 FIRST
|
||||
AD SEVEN
|
||||
@ -1064,13 +1064,13 @@ CHKCOMED INHINT
|
||||
MASK BIT5 # LIFTOFF BIT
|
||||
CCS A
|
||||
TCF PRELTERM # LIFTOFF HAS OCCURRED
|
||||
|
||||
|
||||
# Page 447
|
||||
CA GRRBKBIT # CHECK FOR BACKUP LIFTOFF
|
||||
MASK FLAGWRD5 # BIT5 FLAGWRD5
|
||||
CCS A
|
||||
TCF PRELTERM # BACKUP RECEIVED
|
||||
|
||||
|
||||
RELINT
|
||||
GOBKCALB TC Q
|
||||
|
||||
@ -1079,8 +1079,8 @@ PRELTERM CA PRIO22 # PRELAUNCH DONE -- SET UP P11
|
||||
INHINT
|
||||
TC POSTJUMP
|
||||
CADR P11
|
||||
|
||||
|
||||
|
||||
|
||||
ERCOMPPL ECADR ERCOMP
|
||||
|
||||
GEOCONS5 EQUALS HIDPHALF
|
||||
@ -1097,7 +1097,7 @@ GEOSTRT4 EQUALS ENDOFJOB
|
||||
# OPTICAL VERIFICATION ROUTINES FOR GYROCOMPASS
|
||||
|
||||
COUNT 33/P03
|
||||
|
||||
|
||||
GCOMPVER TC PHASCHNG # OPTICAL VERIFICATION ROUTINE
|
||||
OCT 00154
|
||||
TC NEWMODEX # ENTERED BY VERB 65 ENTER
|
||||
@ -1131,9 +1131,9 @@ VN0641 VN 0641
|
||||
CAF TWO
|
||||
TS L
|
||||
TCF OPTDATA +2 # MPAC 1ST PASS=0 2ND PASS=2
|
||||
|
||||
|
||||
TC CONTIN33
|
||||
|
||||
|
||||
V05N30E VN 0530
|
||||
|
||||
TC INTPRET # UNDYNAMIC ASSEMBLER
|
||||
@ -1146,7 +1146,7 @@ TAR/EREF AXT,1 AXT,2 # TARGET VECTOR
|
||||
# Page 450
|
||||
0
|
||||
TAR1 SLOAD* SR2 # X1=2 X2=12 S2=6 X1=0 X2=6 S2=6
|
||||
TAZEL1 +3,1
|
||||
TAZEL1 +3,1
|
||||
STORE 0 # PD00 ELEVATION PD00
|
||||
SIN
|
||||
STORE 18D,2 # PD06 *** SIN(EL) ***PD12
|
||||
@ -1169,13 +1169,13 @@ TAR1 SLOAD* SR2 # X1=2 X2=12 S2=6 X1=0 X2=6 S2=6
|
||||
STORE 20D,2 # PD08 *** -COS(AZ)COS(EL) ***PD14
|
||||
TIX,2 RVQ
|
||||
TAR1
|
||||
|
||||
|
||||
|
||||
|
||||
BANK 33
|
||||
SETLOC IMUCAL
|
||||
BANK
|
||||
COUNT* $$/P03
|
||||
|
||||
|
||||
CONTIN33 CA ONE
|
||||
TS STARCODE
|
||||
CA ZERO
|
||||
@ -1186,7 +1186,7 @@ CONTIN33 CA ONE
|
||||
NEXTBNKS VLOAD MXV
|
||||
6D
|
||||
XSM
|
||||
VSL1
|
||||
VSL1
|
||||
STOVL STARAD
|
||||
12D
|
||||
MXV VSL1
|
||||
@ -1198,8 +1198,8 @@ NEXTBNKS VLOAD MXV
|
||||
EXIT
|
||||
TC BANKCALL
|
||||
CADR MKRELEAS
|
||||
|
||||
|
||||
|
||||
|
||||
NEXBNKSS CAF TWO
|
||||
TS STARCODE
|
||||
CAF SIX
|
||||
@ -1230,7 +1230,7 @@ GCOMP5 TC BANKCALL
|
||||
CADR MKRELEAS
|
||||
TC DOWNFLAG
|
||||
ADRES TRM03FLG
|
||||
|
||||
|
||||
TC NEWMODEX
|
||||
MM 02
|
||||
TC PHASCHNG
|
||||
@ -1240,15 +1240,15 @@ V06N93S VN 0693
|
||||
GTSOPTCS TC ALARM
|
||||
GTSOPTSS OCT 01602
|
||||
TC GCOMP5
|
||||
|
||||
|
||||
|
||||
|
||||
BANK 34
|
||||
SETLOC IMUCAL1
|
||||
BANK
|
||||
# Page 452
|
||||
|
||||
COUNT 34/COMST
|
||||
|
||||
|
||||
LATAZCHK DLOAD SL2 # CALLS FOR AZIMUTH AND LATITUDE
|
||||
LATITUDE
|
||||
STODL DSPTEM1 +1
|
||||
@ -1278,8 +1278,8 @@ VNG0641 VN 0641
|
||||
BANK 33
|
||||
SETLOC IMUCAL
|
||||
BANK
|
||||
|
||||
|
||||
|
||||
|
||||
COUNT* $$/P03
|
||||
TARGDRVE EXTEND
|
||||
QXCH QPLAC
|
||||
@ -1311,14 +1311,14 @@ RETARG CAF ZERO
|
||||
MASK TRM03BIT
|
||||
CCS A
|
||||
TC GCOMP5
|
||||
|
||||
|
||||
INDEX MARKSTAT
|
||||
CA QPRET
|
||||
EXTEND
|
||||
BZF RETARG1
|
||||
TC QPLAC
|
||||
|
||||
|
||||
|
||||
|
||||
RETARG1 CA ZERO # RELEASE PREVIOUSLY GRABBED VAC AREA
|
||||
XCH MARKSTAT
|
||||
CCS A
|
||||
@ -1336,7 +1336,7 @@ VELSC 2DEC -.52223476
|
||||
ALSK 2DEC .17329931
|
||||
|
||||
2DEC -.00835370
|
||||
|
||||
|
||||
GEORGEJ 2DEC .63661977
|
||||
|
||||
GEOCONS1 2DEC .1
|
||||
@ -1361,8 +1361,8 @@ LITTLSUB STQ
|
||||
TRG*NBSM
|
||||
GOTO
|
||||
QPLAC
|
||||
|
||||
|
||||
|
||||
|
||||
EXIT
|
||||
AZMTHCG1 TC INTPRET
|
||||
DLOAD RTB
|
||||
@ -1391,7 +1391,7 @@ AZMTHCG1 TC INTPRET
|
||||
OCT 00004
|
||||
TC POSTJUMP
|
||||
CADR PINBRNCH
|
||||
|
||||
|
||||
VN0629 VN 0629
|
||||
|
||||
# Page 455
|
||||
|
||||
Reference in New Issue
Block a user