Fix YaYUL Fatal Errors in Luminary099 (#665)
This commit is contained in:
parent
8b2fca34e6
commit
fe25f9d905
@ -147,7 +147,7 @@ WHIMPER CA TWO
|
||||
RESUME
|
||||
TC POSTJUMP # RESUME SENDS CONTROL HERE
|
||||
CADR ENEMA
|
||||
P00DOO INHINT
|
||||
POODOO INHINT
|
||||
CA Q
|
||||
ABORT2 TS ALMCADR
|
||||
INDEX Q
|
||||
|
@ -589,7 +589,7 @@ EPSILON EQUALS MPAC +1
|
||||
|
||||
COUNT* $$/DAPAO
|
||||
|
||||
-1 TS INGTS # ZERO INGTS IN ASCENT
|
||||
-1 TS INGTS # ZERO INGTS IN ASCENT
|
||||
1/ACCONT CA DB # INITIALIZE DBVAL1,2,3
|
||||
EXTEND
|
||||
MP BIT13
|
||||
|
@ -38,7 +38,7 @@ AOTMARK INHINT
|
||||
CCS MARKSTAT # SEE IF AOTMARK BUSY
|
||||
TC +2 # MARK SYSTEM BUSY -- DO ALARM
|
||||
TC EXTVBCHK
|
||||
TC P00DOO
|
||||
TC POODOO
|
||||
OCT 00105
|
||||
|
||||
EXTVBCHK CAF SIX # SEE IF EXT. VERB WORKING
|
||||
@ -94,7 +94,7 @@ MKRELEAS CAF ZERO
|
||||
# Page 246
|
||||
KILLAOT CAF ZERO
|
||||
TS EXTVBACT # TERMINATE AOTMARK -- ALLOW EXT VERB
|
||||
TC GOTOP00H
|
||||
TC GOTOPOOH
|
||||
GETDAT CS MARKSTAT # SET BIT12 TO DISCOURAGE MARKRUPT
|
||||
MASK BIT12 # BIT12 RESET AT GETMARK
|
||||
ADS MARKSTAT
|
||||
@ -103,7 +103,7 @@ GETDAT CS MARKSTAT # SET BIT12 TO DISCOURAGE MARKRUPT
|
||||
TC BANKCALL
|
||||
CADR GOMARKF
|
||||
|
||||
TCF KILLAOT # V34 -- DOES GOTOP00H
|
||||
TCF KILLAOT # V34 -- DOES GOTOPOOH
|
||||
TCF DODAT # V33 -- PROCEED -- USE THIS STAR FOR MARKS
|
||||
ENTERDAT TCF GETDAT # ENTER -- REDISPLAY STAR CODE
|
||||
|
||||
@ -126,7 +126,7 @@ CODE7 CAF V06N87* # CODE 7, COAS SIGHTING, GET OPTIC AXIS
|
||||
TC BANKCALL # AZ AND EL OF SIGHTING DEVICE FROM ASTRO
|
||||
CADR GOMARKF
|
||||
|
||||
TCF KILLAOT # V34 -- DOES GOTOP00H
|
||||
TCF KILLAOT # V34 -- DOES GOTOPOOH
|
||||
TCF +2 # PROCEED
|
||||
TCF CODE7 # ON ENTER, RECYCLE
|
||||
EXTEND
|
||||
@ -326,7 +326,7 @@ GETMKS CAF ZERO # INITIALIZE MARK ID REGISTER AND MARK CNT
|
||||
PASTIT TC BANKCALL
|
||||
CADR GOMARK4
|
||||
|
||||
TCF KILLAOT # V34 -- DOES GOTOP00H
|
||||
TCF KILLAOT # V34 -- DOES GOTOPOOH
|
||||
TCF MARKCHEX # VB33 -- PROCEED, GOT MARKS, COMPUTE LOS
|
||||
TCF GETDAT # ENTER -- RECYCLE TO V01N71
|
||||
|
||||
@ -660,7 +660,7 @@ DSPV6N79 CAF V06N79* # CURSOR -- SPIRAL DISPLAY
|
||||
TC BANKCALL
|
||||
CADR GOMARKF
|
||||
|
||||
TCF KILLAOT # V34 -- DOES GOTOP00H
|
||||
TCF KILLAOT # V34 -- DOES GOTOPOOH
|
||||
TCF SURFEND # V33 -- PROCEED, END MARKING
|
||||
CAF BIT6 # IF V32(OCT40) IN MPAC DO RECYCLE
|
||||
MASK MPAC # OTHERWISE IT IS LOAD VB ENTER SO
|
||||
|
@ -560,7 +560,7 @@ TERMASC TC PHASCHNG
|
||||
CADR RESTORDB
|
||||
TC DOWNFLAG # DISALLOW ABORTS AT THIS TIME.
|
||||
ADRES LETABORT
|
||||
TCF GOTOP00H
|
||||
TCF GOTOPOOH
|
||||
|
||||
V16N85C VN 1685
|
||||
|
||||
|
@ -602,7 +602,7 @@ COMFAIL TC UPFLAG # (15)
|
||||
TCF +3 # YES
|
||||
TC BANKCALL # OTHERWISE, START IT UP
|
||||
CADR STCLOK1
|
||||
+3 CS VB97DEX
|
||||
+3 CS VB97DEX
|
||||
TS DISPDEX
|
||||
TC PHASCHNG # TURN OFF GROUP 4.
|
||||
OCT 00004
|
||||
@ -740,7 +740,7 @@ CLOKJOB EXTEND
|
||||
|
||||
VB97DEX = OCT35 # NEGATIVE OF THIS IS PROPER FOR DISPDEX
|
||||
|
||||
-35 CS ZERO # INDICATE VERB 97 PASTE
|
||||
-35 CS ZERO # INDICATE VERB 97 PASTE
|
||||
TS NVWORD1
|
||||
CA NVWORD +2 # NVWORD+2 CONTAINS V06 & APPROPRIATE NOUN
|
||||
TC BANKCALL
|
||||
@ -750,7 +750,7 @@ VB97DEX = OCT35 # NEGATIVE OF THIS IS PROPER FOR DISPDEX
|
||||
TCF COMFAIL2
|
||||
|
||||
# THIS DISPLAY IS CALLED VIA ASTNCLOK
|
||||
-25 CAF V06N61 # IT IS PRIMARILY USED BY THE CREW IN P63
|
||||
-25 CAF V06N61 # IT IS PRIMARILY USED BY THE CREW IN P63
|
||||
TC BANKCALL # TO RESET HIS EVENT TIMER TO AGREE WITH
|
||||
CADR REFLASH # TIG.
|
||||
TCF STOPCLOK
|
||||
@ -759,7 +759,7 @@ VB97DEX = OCT35 # NEGATIVE OF THIS IS PROPER FOR DISPDEX
|
||||
|
||||
CNTDNDEX = LOW4 # OCT17: NEGATIVE PROPER FOR DISPDEX
|
||||
|
||||
-17 INDEX WHICH # THIS DISPLAY COMES UP AT ONE SECOND
|
||||
-17 INDEX WHICH # THIS DISPLAY COMES UP AT ONE SECOND
|
||||
# Was CAF --- RSB 2009
|
||||
CA 0 # INTERVALS. IT IS NORMALLY OPERATED
|
||||
TC BANKCALL # BETWEEN TIG-30 SECONDS AND TIG-5 SECONDS
|
||||
@ -769,26 +769,26 @@ VB99DEX = ELEVEN # OCT13: NEGATIVE PROPER FOR DISPDEX
|
||||
|
||||
V99RECYC EQUALS
|
||||
|
||||
-13 CS BIT9 # INDICATE VERB 99 PASTE
|
||||
-13 CS BIT9 # INDICATE VERB 99 PASTE
|
||||
TS NVWORD1
|
||||
INDEX WHICH # THIS IS THE "PLEASE ENABLE ENGINE"
|
||||
# Was CAF --- RSB 2004
|
||||
CA 0 # DISPLAY; IT IS INITIATED AT TIG-5 SEC.
|
||||
TC BANKCALL # THE DISPLAY IS A V99NXX, WHERE XX IS
|
||||
CADR CLOCPLAY # NOUN THAT HAD PREVIOUSLY BEEN DISPLAYED
|
||||
TCF STOPCLOK # TERMINATE GOTOP00H TURNS OFF ULLAGE.
|
||||
TCF STOPCLOK # TERMINATE GOTOPOOH TURNS OFF ULLAGE.
|
||||
TCF *PROCEED
|
||||
TCF *ENTER
|
||||
|
||||
# Page 746
|
||||
BLANKDEX = TWO # NEGATIVE OF THIS IS PROPER FOR DISPDEX
|
||||
|
||||
-2 TC BANKCALL # BLANK DSKY. THE DSKY IS BLANKED FOR
|
||||
-2 TC BANKCALL # BLANK DSKY. THE DSKY IS BLANKED FOR
|
||||
CADR CLEANDSP # 5 SECONDS AT TIG-35 TO INDICATE THAT
|
||||
DISPNOT TCF ENDOFJOB # AVERAGE G IS STARTING.
|
||||
|
||||
STOPCLOK TC NULLCLOK # STOP CLOKTASK & TURN OFF ULLAGE ON THE
|
||||
TCF GOTOP00H # WAY TO P00 (GOTOP00H RELINTS)
|
||||
TCF GOTOPOOH # WAY TO P00 (GOTOPOOH RELINTS)
|
||||
|
||||
NULLCLOK INHINT
|
||||
EXTEND
|
||||
@ -886,7 +886,7 @@ REP40ALM CAF V05N09 # (14)
|
||||
TC BANKCALL
|
||||
CADR GOFLASH
|
||||
|
||||
TCF GOTOP00H # V34E TERMINATE
|
||||
TCF GOTOPOOH # V34E TERMINATE
|
||||
TCF +2 # PROCEED CHECK FOR P42
|
||||
TCF REP40ALM # V32E REDISPLAY ALARM
|
||||
|
||||
@ -919,7 +919,7 @@ P40A/P TC BANKCALL # SUBROUTINE TO CHECK PGNCS CONTROL
|
||||
TURNITON CAF P40A/PMD # DISPLAYS V50N25 R1=203 PLEASE PERFORM
|
||||
TC BANKCALL # CHECKLIST 203 TURN ON PGNCS ETC.
|
||||
CADR GOPERF1
|
||||
TCF GOTOP00H # V34E TERMINATE
|
||||
TCF GOTOPOOH # V34E TERMINATE
|
||||
TCF P40A/P # RECYCLE
|
||||
GOBACK CA TEMPR60
|
||||
TC BANKJUMP # GOODBYE. COME AGAIN SOON.
|
||||
@ -951,7 +951,7 @@ DSP2CADR 2CADR P63DISPS -2
|
||||
EBANK= DVCNTR
|
||||
ATMAGADR 2CADR ATMAG
|
||||
|
||||
? = GOTOP00H
|
||||
? = GOTOPOOH
|
||||
|
||||
D29.9SEC 2DEC 2990
|
||||
|
||||
|
@ -1726,7 +1726,7 @@ INFINAPO DLOAD GOTO # RETURNS WITH APOAPSIS IN MPAC, PERIAPSIS
|
||||
|
||||
# Page 1201
|
||||
ABTCONIC EXIT
|
||||
TC P00DOO
|
||||
TC POODOO
|
||||
OCT 00607
|
||||
|
||||
# Page 1202
|
||||
|
@ -85,7 +85,7 @@ RESTORDB CAE DAPBOOLS # DETERMINE CREW-SELECTED DEADBAND.
|
||||
BZF SETMINDB
|
||||
|
||||
SETMAXDB CAF WIDEDB # SET 5 DEGREE DEADBAND.
|
||||
+1 TS DB
|
||||
+1 TS DB
|
||||
|
||||
EXTEND # SET UP JOB TO RE-POSITION SWITCH CURVES.
|
||||
QXCH RUPTREG1
|
||||
@ -124,7 +124,7 @@ ZATTEROR CAF EBANK6
|
||||
STOPRATE CAF EBANK6
|
||||
XCH EBANK
|
||||
TS L # SAVE CALLERS EBANK IN L.
|
||||
+3 CAF ZERO
|
||||
+3 CAF ZERO
|
||||
TS OMEGAPD
|
||||
TS OMEGAQD
|
||||
TS OMEGARD
|
||||
|
@ -770,7 +770,7 @@ IFLEGAL CAF TWO
|
||||
EXTEND
|
||||
BZF OKTOPLAY # NO
|
||||
|
||||
PRIOBORT TC P00DOO
|
||||
PRIOBORT TC POODOO
|
||||
OCT 1502
|
||||
|
||||
OKTOPLAY TC COPIES2
|
||||
|
@ -204,7 +204,7 @@ NEXTINCL INDEX CTLIST
|
||||
XCH CTLIST # SET CTLIST TO NEGATIVE AND PLACE(CODING)
|
||||
COM # UNCOMPLEMENTED DNADR INTO A. (FOR LA)
|
||||
XCH CTLIST # (ST IN )
|
||||
+4 INCR A # (CTLIST)
|
||||
+4 INCR A # (CTLIST)
|
||||
TS DNECADR # SAVE DNADR
|
||||
AD MINTIME2 # TEST FOR TIME2 (NEG. OF ECADR)
|
||||
CCS A
|
||||
@ -212,8 +212,8 @@ NEXTINCL INDEX CTLIST
|
||||
MINB1314 OCT 47777 # MINUS BIT 13 AND 14 (CAN'T GET HERE)
|
||||
TCF SETWO +1 # DON'T SET WORD ORDER CODE
|
||||
SETWO TC WOZERO # GO SET WORD ORDER CODE TO ZERO.
|
||||
+1 CA DNECADR # RELOAD A WITH THE DNADR.
|
||||
+2 AD MINB1314 # IS THIS A REGULAR DNADR?
|
||||
+1 CA DNECADR # RELOAD A WITH THE DNADR.
|
||||
+2 AD MINB1314 # IS THIS A REGULAR DNADR?
|
||||
EXTEND
|
||||
BZMF FETCH2WD # YES. (A MUST NEVER BE ZERO)
|
||||
AD MINB12 # NO. IS IT A POINTER (DNPTR) OR A
|
||||
@ -310,7 +310,7 @@ NEXTINSL INDEX SUBLIST
|
||||
TS SUBLIST # SAVE A.
|
||||
CA NEGONE # SET SUBLIST TO MINUS
|
||||
XCH SUBLIST # RETRIEVE A.
|
||||
+4 INCR A
|
||||
+4 INCR A
|
||||
TS DNECADR # SAVE DNADR
|
||||
TCF SETWO +2 # GO USE COMMON CODING (PROLEMS WOULD
|
||||
# OCCUR IF THE PROGRAM ENCOUNTERED A
|
||||
@ -392,7 +392,7 @@ SUBLIST EQUALS DNQ
|
||||
# Page 996
|
||||
DNDUMPI CA ZERO # INITIALIZE DOWNLINK
|
||||
TS DUMPLOC # ERASABLE DUMP
|
||||
+2 TC SENDID # GO SEND ID AND SYNCH BITS
|
||||
+2 TC SENDID # GO SEND ID AND SYNCH BITS
|
||||
CA LDNDUMP1 # SET DNTMGOTO
|
||||
TS DNTMGOTO # TO LOCATION FOR NEXT PASS
|
||||
CA TIME1 # PLACE TIME1
|
||||
|
@ -1073,7 +1073,7 @@ NOMINIMP INHINT
|
||||
# 1. DISPLAY FLASHING V06,N22.
|
||||
# RESPONSES
|
||||
# A. TERMINATE
|
||||
# 1. GOTOP00H
|
||||
# 1. GOTOPOOH
|
||||
# B. PROCEED
|
||||
# 1. SET 3AXISFLG TO INDICATE MANEUVER IS SPECIFIED BY 3 AXIS.
|
||||
# 2. EXECUTE R60LEM (ATTITUDE MANEUVER).
|
||||
|
@ -342,7 +342,7 @@ PINACT CCS MPAC +5 # PROCESS ALL RESTART GROUPS.
|
||||
CAF BIT15 # IS MODE -0
|
||||
MASK MODREG
|
||||
EXTEND
|
||||
BZF GOTOP00H # NO
|
||||
BZF GOTOPOOH # NO
|
||||
TCF ENDRSTRT # YES
|
||||
PTBAD TC ALARM # SET ALARM TO SHOW PHASE TABLE FAILURE.
|
||||
OCT 1107
|
||||
@ -614,7 +614,7 @@ SWINIT OCT 0
|
||||
OCT 40000 # BIT 15 = LRBYPASS.
|
||||
|
||||
# Page 224
|
||||
# PROGRAM NAME GOTOP00H ASSEMBLY SUNDANCE
|
||||
# PROGRAM NAME GOTOPOOH ASSEMBLY SUNDANCE
|
||||
# LOG SECTION FRESH START AND RESTART
|
||||
#
|
||||
# FUNCTIONAL DESCRIPTION
|
||||
@ -623,7 +623,7 @@ SWINIT OCT 0
|
||||
#
|
||||
# INPUT/OUTPUT INFORMATION
|
||||
#
|
||||
# A. CALLING SEQUENCE TC GOTOP00H
|
||||
# A. CALLING SEQUENCE TC GOTOPOOH
|
||||
# B. ERASABLE INITIALIZATION NONE
|
||||
# C. OUTPUT FLASH V 37 ON DSKY
|
||||
# D. DEBRIS L
|
||||
@ -639,7 +639,7 @@ SWINIT OCT 0
|
||||
BANK
|
||||
|
||||
COUNT* $$/P00
|
||||
GOTOP00H CAF OCT33 # 4.33 SPOT FOR GOP00FIX
|
||||
GOTOPOOH CAF OCT33 # 4.33 SPOT FOR GOP00FIX
|
||||
TS L
|
||||
COM
|
||||
DXCH -PHASE4
|
||||
|
@ -91,13 +91,13 @@ PROG21 CAF ONE
|
||||
CAF BIT2 # OPTION 2
|
||||
TC BANKCALL
|
||||
CADR GOPERF4
|
||||
TC GOTOP00H # TERMINATE
|
||||
TC GOTOPOOH # TERMINATE
|
||||
TC +2 # PROCEED VALUE OF ASSUMED VEHICLE OK
|
||||
TC -5 # R2 LOADED THROUGH DSKY
|
||||
P21PROG1 CAF V6N34 # LOAD DESIRED TIME OF LAT-LONG.
|
||||
TC BANKCALL
|
||||
CADR GOFLASH
|
||||
TC GOTOP00H # TERM
|
||||
TC GOTOPOOH # TERM
|
||||
TC +2 # PROCEED VALUES OK
|
||||
TC -5 # TIME LOADED THROUGH DSKY
|
||||
TC INTPRET
|
||||
@ -188,8 +188,8 @@ P21DSP CLEAR SLOAD # GENERATE DISPLAY DATA
|
||||
CAF V06N43 # DISPLAY LAT, LONG, ALT
|
||||
TC BANKCALL # LAT, LONG = 1/2 REVS B0
|
||||
CADR GOFLASH # ALT = KM B14
|
||||
TC GOTOP00H # TERM
|
||||
TC GOTOP00H
|
||||
TC GOTOPOOH # TERM
|
||||
TC GOTOPOOH
|
||||
TC INTPRET # V32E RECYCLE
|
||||
DLOAD DAD
|
||||
P21TIME
|
||||
|
@ -411,7 +411,7 @@ FINETIME INHINT # RETURNS WITH INTERRUPT INHIBITED
|
||||
EXTEND
|
||||
READ LOSCALAR
|
||||
TS L
|
||||
+4 CS POSMAX
|
||||
+4 CS POSMAX
|
||||
AD L
|
||||
EXTEND
|
||||
BZF FINETIME +1
|
||||
|
@ -2530,7 +2530,7 @@ ZEROANS CAF ZERO # FORCE ANSWER TO ZERO HERE.
|
||||
TCF FIXROOT
|
||||
|
||||
SQRTABRT DXCH LOC
|
||||
TC P00DOO1
|
||||
TC POODOO1
|
||||
OCT 1302
|
||||
|
||||
# Page 1080
|
||||
|
@ -865,7 +865,7 @@ P64DISPS CA TREDES # HAS TREDES REACHED ZERO?
|
||||
CAF V06N64 # OTHERWISE USE FLASHING DISPLAY
|
||||
TC BANKCALL
|
||||
CADR REFLASHR
|
||||
TCF GOTOP00H # TERMINATE
|
||||
TCF GOTOPOOH # TERMINATE
|
||||
TCF P64CEED # PROCEED PERMIT REDESIGNATIONS
|
||||
TCF P64DISPS # RECYCLE
|
||||
# Page 815
|
||||
@ -1409,7 +1409,7 @@ TDISPSET CA TTF/8
|
||||
ADS TREDES
|
||||
TC Q
|
||||
|
||||
1406P00 TC P00DOO
|
||||
1406P00 TC POODOO
|
||||
OCT 01406
|
||||
1406ALM TC ALARM
|
||||
OCT 01406
|
||||
|
@ -324,7 +324,7 @@ GOBAQUE VLOAD ABVAL
|
||||
TESTLOOP
|
||||
|
||||
INT-ABRT EXIT
|
||||
TC P00DOO
|
||||
TC POODOO
|
||||
OCT 00430
|
||||
|
||||
# Page 1234
|
||||
|
@ -106,7 +106,7 @@ SUBDIVDE EXTEND # OVERFLOW PROTECTION ROUTINE TO GIVE
|
||||
MP DAPTEMP3 # POSMAX OR NEGMAX IF THE DIVIDE WOULD
|
||||
DAS OMEGAU # OVERFLOW
|
||||
|
||||
+3 EXTEND
|
||||
+3 EXTEND
|
||||
DCA OMEGAU
|
||||
DXCH DAPTEMP5
|
||||
CCS OMEGAU
|
||||
@ -259,7 +259,7 @@ LMONLY EXTEND # UNDOCKED
|
||||
DCA LMOMEGAN
|
||||
DXCH DAPTREG4
|
||||
CA LMTRAP
|
||||
+5 TS DAPTREG6
|
||||
+5 TS DAPTREG6
|
||||
CCS TRAPEDP
|
||||
TCF +2
|
||||
TCF SMALPDIF
|
||||
@ -990,7 +990,7 @@ SELECTP CA SIX
|
||||
TCF JETSOFF # ********** TCF ALARMJET **********
|
||||
SELECTYZ TS NUMBERT
|
||||
TCF SELECTP +1
|
||||
-1 TCF ABORTYZ +2
|
||||
-1 TCF ABORTYZ +2
|
||||
JETSALL OCT 00252
|
||||
OCT 00125 # +P
|
||||
OCT 00140 # -Y
|
||||
|
@ -62,7 +62,7 @@ P12LM TC PHASCHNG
|
||||
CAF V06N33A
|
||||
TC BANKCALL # FLASH TIG
|
||||
CADR GOFLASH
|
||||
TCF GOTOP00H
|
||||
TCF GOTOPOOH
|
||||
TCF +2 # PROCEED
|
||||
TCF -5 # ENTER
|
||||
|
||||
@ -111,7 +111,7 @@ P12LMB DLOAD
|
||||
NEWLOAD CAF V06N76 # FLASH CROSS-RANGE, AND APOLUNE VALUES.
|
||||
TC BANKCALL
|
||||
CADR GOFLASH
|
||||
TCF GOTOP00H
|
||||
TCF GOTOPOOH
|
||||
TCF +2 # PROCEED
|
||||
TCF NEWLOAD # ENTER NEW DATA.
|
||||
|
||||
|
@ -111,7 +111,7 @@ ORBCHGO TC UPFLAG # SET VEHUPFLG -- CSM STATE
|
||||
CAF OCT00012
|
||||
TC BANKCALL # DISPLAY ASSUMED CSM ORBIT OPTION
|
||||
CADR GOPERF4
|
||||
TC GOTOP00H # TERMINATE
|
||||
TC GOTOPOOH # TERMINATE
|
||||
TC ORBCHG1 # PROCEED VALUE OF ASSUMED OPTION OK
|
||||
TC -5 # R2 LOADED THRU DSKY
|
||||
ORBCHG1 CS P22ONE
|
||||
@ -121,7 +121,7 @@ ORBCHG1 CS P22ONE
|
||||
CAF V06N33*
|
||||
TC BANKCALL # FLASH VERB-NOUN TO REQUEST ESTIMATED
|
||||
CADR GOFLASH # TIME OF LAUNCH
|
||||
TC GOTOP00H # TERMINATE
|
||||
TC GOTOPOOH # TERMINATE
|
||||
TC ORBCHG2 # PROCEED VALUES OK
|
||||
TC -5 # TIME LOADED THRU DSKY
|
||||
ORBCHG2 TC INTPRET
|
||||
@ -4410,7 +4410,7 @@ ZERO/SP EQUALS HI6ZEROS
|
||||
BANK
|
||||
COUNT* $$/P20
|
||||
GOTOV56 EXTEND # P20 TERMINATES BY GOTOV56 INSTEAD OF
|
||||
DCA VB56CADR # GOTOP00H
|
||||
DCA VB56CADR # GOTOPOOH
|
||||
TCF SUPDXCHZ
|
||||
EBANK= WHOCARES
|
||||
VB56CADR 2CADR TRMTRACK
|
||||
|
@ -41,10 +41,10 @@
|
||||
#
|
||||
# CALLING SEQUENCE VIA JOB FROM V37
|
||||
#
|
||||
# EXIT VIA V37 CALL OR TO GOTOP00H (V34E)
|
||||
# EXIT VIA V37 CALL OR TO GOTOPOOH (V34E)
|
||||
#
|
||||
# SUBROUTINE CALLS -- FLAGUP, PHASCHNG, BANKCALL, ENDOFJOB, GOFLASH, GOFLASHR
|
||||
# GOPERF3R, INTPRET, BLANKET, GOTOP00H, R02BOTH, S30.1,
|
||||
# GOPERF3R, INTPRET, BLANKET, GOTOPOOH, R02BOTH, S30.1,
|
||||
# TIG/N35, MIDGIM, DISPMGA
|
||||
#
|
||||
# ERASABLE INITIALIZATION -- STATE VECTOR
|
||||
|
@ -180,7 +180,7 @@
|
||||
# VARALARM
|
||||
# BANKCALL
|
||||
# GOFLASH
|
||||
# GOTOP00H
|
||||
# GOTOPOOH
|
||||
# Page 621
|
||||
# VNP00H
|
||||
# GOFLASHR
|
||||
@ -218,7 +218,7 @@ ALMXIT LXC,1
|
||||
CAF V05N09
|
||||
TC BANKCALL
|
||||
CADR GOFLASH
|
||||
TC GOTOP00H
|
||||
TC GOTOPOOH
|
||||
TC -4
|
||||
P32/P72A TC P20FLGON
|
||||
CAF P30ZERO
|
||||
@ -257,7 +257,7 @@ VN0655 EXIT
|
||||
CAF V06N55 # NN, ELEV(RGLOS)
|
||||
TC BANKCALL
|
||||
CADR GOFLASH
|
||||
TC GOTOP00H
|
||||
TC GOTOPOOH
|
||||
TC +2
|
||||
TC -5
|
||||
CAF V06N37 # TTPI
|
||||
@ -473,7 +473,7 @@ P32/P72F STORE T2TOT3
|
||||
# ALARM
|
||||
# BANKCALL
|
||||
# GOFLASH
|
||||
# GOTOP00H
|
||||
# GOTOPOOH
|
||||
# S32/33.1
|
||||
# Page 627
|
||||
# VN1645
|
||||
@ -524,7 +524,7 @@ P33/P73B CALL
|
||||
CAF V05N09
|
||||
TC BANKCALL
|
||||
CADR GOFLASH
|
||||
TC GOTOP00H
|
||||
TC GOTOPOOH
|
||||
TC +2
|
||||
# Page 628
|
||||
TC P33/P73A
|
||||
|
@ -192,7 +192,7 @@
|
||||
# ALARM
|
||||
# BANKCALL
|
||||
# GOFLASH
|
||||
# GOTOP00H
|
||||
# GOTOPOOH
|
||||
# TIMETHET
|
||||
# S34/35.2
|
||||
# PERIAPO1
|
||||
@ -251,7 +251,7 @@ INTLOOP DLOAD DAD
|
||||
CAF V05N09
|
||||
TC BANKCALL
|
||||
CADR GOFLASH
|
||||
TC GOTOP00H
|
||||
TC GOTOPOOH
|
||||
TC P34/P74A # PROCEED
|
||||
TC -7 # V32
|
||||
|
||||
@ -853,7 +853,7 @@ ALLSET STOVL TET
|
||||
# SUBROUTINES USED
|
||||
# BANKCALL
|
||||
# GOFLASH
|
||||
# GOTOP00H
|
||||
# GOTOPOOH
|
||||
# S34/35.3
|
||||
# S34.35.4
|
||||
# VNP00H
|
||||
@ -873,7 +873,7 @@ FLAGON CLEAR VLOAD
|
||||
+5 CAF V06N81
|
||||
TC BANKCALL
|
||||
CADR GOFLASH
|
||||
TC GOTOP00H
|
||||
TC GOTOPOOH
|
||||
TC +2 # PRO
|
||||
TC FLAGON +5 # LOAD
|
||||
+2 CA EBANK7
|
||||
@ -924,7 +924,7 @@ FLAGOFF CALL
|
||||
# DELAYJOB
|
||||
# COMPTGO
|
||||
# GOFLASHR
|
||||
# GOTOP00H
|
||||
# GOTOPOOH
|
||||
# FLAGUP
|
||||
|
||||
VN1645 STQ DLOAD
|
||||
@ -965,7 +965,7 @@ GET45 EXIT
|
||||
KILCLOCK CA Z
|
||||
TS DISPDEX
|
||||
# Page 681
|
||||
TC GOTOP00H
|
||||
TC GOTOPOOH
|
||||
N45PROC CS FLAGWRD2
|
||||
MASK BIT6
|
||||
EXTEND
|
||||
@ -989,7 +989,7 @@ CLUPDATE CA Z
|
||||
# SUBROUTINES USED
|
||||
# BANKCALL
|
||||
# GOFLASHR
|
||||
# GOTOP00H
|
||||
# GOTOPOOH
|
||||
# BLANKET
|
||||
# ENDOFJOB
|
||||
|
||||
@ -998,7 +998,7 @@ DISPLAYE EXTEND
|
||||
CAF V06N55
|
||||
TCR BANKCALL
|
||||
CADR GOFLASH
|
||||
TCF GOTOP00H
|
||||
TCF GOTOPOOH
|
||||
TC NORMEX
|
||||
TCF -5
|
||||
|
||||
@ -1017,7 +1017,7 @@ P3XORP7X CAF HIGH9
|
||||
# SUBROUTINES USED
|
||||
# BANKCALL
|
||||
# GOFLASH
|
||||
# GOTOP00H
|
||||
# GOTOPOOH
|
||||
|
||||
VNP00H EXTEND
|
||||
QXCH RTRN
|
||||
@ -1025,7 +1025,7 @@ VNP00H EXTEND
|
||||
CA VERBNOUN
|
||||
TCR BANKCALL
|
||||
CADR GOFLASH
|
||||
TCF GOTOP00H
|
||||
TCF GOTOPOOH
|
||||
TC RTRN
|
||||
TCF -5
|
||||
|
||||
|
@ -60,7 +60,7 @@
|
||||
# ALLCOAST DAP COASTING INITIALIZATION
|
||||
# CLOKTASK ERGO CLOCKJOB -- COUNT DOWN
|
||||
# PHASCHANG, INTPRET, FLAGUP, FLAGDOWN, WAITLIST, LONGCALL, GOFLASH, GOFLASHR, GOPERF1, ALARM,
|
||||
# PRIOLARM, GOTOP00H, ENDOFJOB, BANKCALL, SETMAXDB, SETMINDB, CHECKMM, FLATOUT, OUTFLAT,
|
||||
# PRIOLARM, GOTOPOOH, ENDOFJOB, BANKCALL, SETMAXDB, SETMINDB, CHECKMM, FLATOUT, OUTFLAT,
|
||||
# KILLTASK, SGNAGREE, TPAGREE, ETC.
|
||||
#
|
||||
# RESTARTS VIA GROUP 4
|
||||
@ -85,9 +85,9 @@
|
||||
# ALARM OR ABORT EXIT MODES
|
||||
#
|
||||
# PROGRAM ALARM, FLASHING DISPLAY OF ALARM CODE 1706 IF P40 SELECTED WITH DESCENT UNIT STAGED.
|
||||
# V34E (TERMINATE) IS THE ONLY RESPONSE ACCEPTED. TC GOTOP00H.
|
||||
# V34E (TERMINATE) IS THE ONLY RESPONSE ACCEPTED. TC GOTOPOOH.
|
||||
#
|
||||
# PROGRAM ALARM, FLASH CODE 1703: TIG LESS THAN 45 SECS AWAY. V34E= GOTOP00H OR V33E= SLIP
|
||||
# PROGRAM ALARM, FLASH CODE 1703: TIG LESS THAN 45 SECS AWAY. V34E= GOTOPOOH OR V33E= SLIP
|
||||
# TIG BY 45 SECS.
|
||||
#
|
||||
# ERASABLE INITIALIZATION
|
||||
@ -209,7 +209,7 @@ TERM40 EXTEND
|
||||
TC IBNKCALL
|
||||
CADR RESTORDB
|
||||
RELINT
|
||||
TC GOTOP00H
|
||||
TC GOTOPOOH
|
||||
|
||||
EBANK= WHICH
|
||||
COUNT* $$/P41
|
||||
@ -402,8 +402,8 @@ CALCN83 TC INTPRET
|
||||
P47BOD CAF V1683
|
||||
TC BANKCALL
|
||||
CADR GOFLASHR
|
||||
TC GOTOP00H
|
||||
TC GOTOP00H
|
||||
TC GOTOPOOH
|
||||
TC GOTOPOOH
|
||||
|
||||
TCF P47BODY
|
||||
|
||||
|
@ -139,7 +139,7 @@ P52A CAF BIT1
|
||||
P52B CAF BIT1
|
||||
TC BANKCALL # FLASH OPTION CODE AND ORIENTATION CODE
|
||||
CADR GOPERF4R # FLASH V04N06
|
||||
TC GOTOP00H
|
||||
TC GOTOPOOH
|
||||
TCF +5 # V33 -- PROCEED
|
||||
TC P52B # NEW CODE -- NEW ORIENTATION CODE INPUT
|
||||
TC PHASCHNG # DISPLAY RETURN
|
||||
@ -167,7 +167,7 @@ P52T EXTEND
|
||||
CAF V06N34*
|
||||
TC BANKCALL
|
||||
CADR GOFLASH
|
||||
TC GOTOP00H
|
||||
TC GOTOPOOH
|
||||
TC +2
|
||||
TC -5
|
||||
DXCH DSPTEM1
|
||||
@ -197,7 +197,7 @@ P52D CALL # READ VEHICLE ATTITUDE AND
|
||||
CAF V06N22
|
||||
TC BANKCALL # DISPLAY GIMBAL ANGLES
|
||||
CADR GOFLASH
|
||||
TC GOTOP00H
|
||||
TC GOTOPOOH
|
||||
TCF COARSTYP # V33 -- PROCEED, SEE IF GYRO TORQUE COARSE
|
||||
P52H TC INTPRET
|
||||
GOTO
|
||||
@ -211,7 +211,7 @@ COARSRET SET CLEAR
|
||||
P52F CALL
|
||||
R51
|
||||
P52OUT EXIT
|
||||
TC GOTOP00H
|
||||
TC GOTOPOOH
|
||||
VB05N09 = V05N09
|
||||
V06N34* VN 634
|
||||
|
||||
@ -221,7 +221,7 @@ V06N34* VN 634
|
||||
COARSTYP CAF OCT13
|
||||
TC BANKCALL # DISPLAY V 50N25 WITH COARSE ALIGN OPTION
|
||||
CADR GOPERF1
|
||||
TCF GOTOP00H # V34 -- TERMIN&OE
|
||||
TCF GOTOPOOH # V34 -- TERMIN&OE
|
||||
TCF REGCOARS # V33 -- NORMAL COARSE
|
||||
TC INTPRET # V32 -- GYRO TORQUE COARSE
|
||||
VLOAD MXV
|
||||
@ -290,7 +290,7 @@ N89DISP STQ
|
||||
LSDISP CAF V06N89* # DISPLAY LAT,LONG/2,ALT
|
||||
TC BANKCALL
|
||||
CADR GOFLASH
|
||||
TCF GOTOP00H # V34 -- TERMINATE -- EXIT P57
|
||||
TCF GOTOPOOH # V34 -- TERMINATE -- EXIT P57
|
||||
TCF +2 # V33 -- PROCEED -- ACCEPT LS DATA
|
||||
TCF LSDISP # V32 OR E -- LOOK AGAIN AND/OR LOAD NEW LS
|
||||
|
||||
@ -637,7 +637,7 @@ R51.1 EXIT
|
||||
R51C CAF OCT15
|
||||
TC BANKCALL
|
||||
CADR GOPERF1
|
||||
TC GOTOP00H
|
||||
TC GOTOPOOH
|
||||
TC +2 # V33E
|
||||
TC R51E # ENTER
|
||||
TC INTPRET
|
||||
@ -656,7 +656,7 @@ R51I TC ALARM
|
||||
CAF VB05N09
|
||||
TC BANKCALL
|
||||
CADR GOFLASH
|
||||
TC GOTOP00H
|
||||
TC GOTOPOOH
|
||||
TC R51E
|
||||
TC R51C
|
||||
R51E CAF ZERO
|
||||
@ -715,7 +715,7 @@ R51K EXIT
|
||||
R51P63 CAF OCT14
|
||||
TC BANKCALL
|
||||
CADR GOPERF1
|
||||
TC GOTOP00H
|
||||
TC GOTOPOOH
|
||||
TC R51C
|
||||
TC INTPRET
|
||||
GOTO
|
||||
@ -790,7 +790,7 @@ PULSEM EXIT
|
||||
R55.1 CAF V06N93
|
||||
TC BANKCALL
|
||||
CADR GOFLASH
|
||||
TC GOTOP00H
|
||||
TC GOTOPOOH
|
||||
TC R55.2
|
||||
TC R55RET
|
||||
R55.2 TC PHASCHNG
|
||||
@ -873,7 +873,7 @@ CHKSD DLOAD DSU
|
||||
CAF VB6N5
|
||||
TC BANKCALL
|
||||
CADR GOFLASH
|
||||
TCF GOTOP00H
|
||||
TCF GOTOPOOH
|
||||
TC CHKSDA # PROCEED
|
||||
TC INTPRET
|
||||
CLEAR GOTO
|
||||
@ -1008,12 +1008,12 @@ RDCDUS INHINT # READ CDUS
|
||||
COUNT* $$/P51
|
||||
# Page 950
|
||||
P51 TC BANKCALL # IS ISS ON - IF NOT, IMUCHK WILL SEND
|
||||
CADR IMUCHK # ALARM CODE 210 AND EXIT VIA GOTOP00H.
|
||||
CADR IMUCHK # ALARM CODE 210 AND EXIT VIA GOTOPOOH.
|
||||
|
||||
CAF OCT15
|
||||
TC BANKCALL
|
||||
CADR GOPERF1
|
||||
TC GOTOP00H # TERM.
|
||||
TC GOTOPOOH # TERM.
|
||||
TCF P51B # V33
|
||||
TC PHASCHNG
|
||||
OCT 04024
|
||||
@ -1107,7 +1107,7 @@ P51G CALL
|
||||
MATMOVE
|
||||
SET EXIT
|
||||
REFSMFLG
|
||||
TC GOTOP00H # FINIS
|
||||
TC GOTOPOOH # FINIS
|
||||
# Page 952
|
||||
V41K VN 4100
|
||||
COARSE EXIT
|
||||
@ -1232,7 +1232,7 @@ R52 STQ EXIT
|
||||
R52A CAF V01N70
|
||||
TC BANKCALL
|
||||
CADR GOFLASH # DISPLAY STARCODE AND WAIT FOR RESPONSE
|
||||
TC GOTOP00H # V34 -- TERMINATE
|
||||
TC GOTOPOOH # V34 -- TERMINATE
|
||||
TCF R52B # V33 -- PROCEED TO ORIENT LEM
|
||||
TCF R52A # ENTER -- SELECT NEW STARCODE -- RECYCLE
|
||||
|
||||
@ -1268,7 +1268,7 @@ R52B TC DOWNFLAG
|
||||
GETAZEL CAF V06N87 # CODE 0 OR 7, GET AZ AND EL KEY IN
|
||||
TC BANKCALL
|
||||
CADR GOFLASH
|
||||
TC GOTOP00H # V34 -- TERMINATE
|
||||
TC GOTOPOOH # V34 -- TERMINATE
|
||||
TCF +2 # PROCEED -- CALC OPTIC AXIS
|
||||
TCF GETAZEL # ENTER -- RECYCLE
|
||||
|
||||
@ -1319,7 +1319,7 @@ R59 CS FLAGWRD3
|
||||
CAF V01N70* # SELECT STAR CODE FOR ACQUISITION
|
||||
TC BANKCALL
|
||||
CADR GOFLASH
|
||||
TC GOTOP00H # V34 -- TERMINATE
|
||||
TC GOTOPOOH # V34 -- TERMINATE
|
||||
TCF R59A # V33 -- PROCEED
|
||||
TCF R59 # V32 -- RECYCLE
|
||||
|
||||
@ -1449,14 +1449,14 @@ R59ALM TC ALARM # THIS STAR CAN'T BE LOCATED IN AOT FIELD
|
||||
CAF VB05N09 # DISPLAY ALARM
|
||||
TC BANKCALL
|
||||
CADR GOFLASH
|
||||
TCF GOTOP00H # VB34 -- TERMINATE
|
||||
TCF GOTOPOOH # VB34 -- TERMINATE
|
||||
TCF R59OUT # VB33 -- PROCEED, GO WITHOUT ACQUIRE
|
||||
TCF R59 # VB32 -- RECYCLE AND TRY ANOTHER STAR
|
||||
|
||||
79DISP CAF V06N79 # DISPLAY CURSOR, SPIRAL AND POS CODE
|
||||
TC BANKCALL
|
||||
CADR GOFLASH
|
||||
TCF GOTOP00H # V34 -- TERMINATE
|
||||
TCF GOTOPOOH # V34 -- TERMINATE
|
||||
# Page 960
|
||||
TCF R59E # V33 -- PROCEED TO MARK ROUTINE
|
||||
TCF R59 # V32 -- RECYCLE TO TOP OF R59 AGAIN
|
||||
@ -1683,7 +1683,7 @@ GRAVEL VLOAD* CALL
|
||||
CA DISGRVER
|
||||
TC BANKCALL
|
||||
CADR GOFLASH
|
||||
TC GOTOP00H
|
||||
TC GOTOPOOH
|
||||
TCF PROGRAV # VB33 -- PROCEED
|
||||
TC UPFLAG # VB32 -- RECYCLE -- STORE GRAV AND DO IT AGAIN
|
||||
ADRES FREEFLAG # AND SET FREEFLAG TO SHOW RECYCLE
|
||||
@ -1919,7 +1919,7 @@ INITBY CALL
|
||||
CAF DISPGYRO # DISPLAY GYRO TORQ ANGLES V 06N93
|
||||
TC BANKCALL
|
||||
CADR GOFLASH
|
||||
TC GOTOP00H # V34 -- TERMINATE
|
||||
TC GOTOPOOH # V34 -- TERMINATE
|
||||
TCF 5DEGTEST # VB33 -- PROCEED TO COARSE OR FINE
|
||||
TCF P57POST +1 # VB32 -- RECYCLE, MAYBE RE-ALIGN
|
||||
|
||||
@ -1964,13 +1964,13 @@ P57POST EXIT
|
||||
CAF OCT14 # DISPLAY V50N25 CHK CODE 14
|
||||
TC BANKCALL
|
||||
CADR GOPERF1
|
||||
TCF GOTOP00H # VB34 -- TERMINATE
|
||||
TCF GOTOPOOH # VB34 -- TERMINATE
|
||||
TCF P57JUMP # VB33 -- PROCEED TO RE-ALIGN
|
||||
CS BIT2 # TEST TO SEE IF ALIGNED BY OPTION 2
|
||||
AD OPTION2
|
||||
EXTEND
|
||||
BZF +2 # YES -- GO CALCULATE LANDING SITE
|
||||
TCF GOTOP00H # NO -- EXIT P57
|
||||
TCF GOTOPOOH # NO -- EXIT P57
|
||||
TC PHASCHNG # RESTART PLACE
|
||||
OCT 04024
|
||||
TC INTPRET
|
||||
@ -1998,7 +1998,7 @@ P57POST EXIT
|
||||
R-TO-RP
|
||||
STORE RLS # RLS IN MOON-FIXED COORDS
|
||||
EXIT
|
||||
TCF GOTOP00H # EXIT P57
|
||||
TCF GOTOPOOH # EXIT P57
|
||||
|
||||
# Page 974
|
||||
# COARSE AND FINE ALIGN IMU
|
||||
@ -2020,7 +2020,7 @@ COATRIM AXC,1 AXC,2
|
||||
CAF V06N22 # THAN 5 DEGREES
|
||||
TC BANKCALL
|
||||
CADR GOFLASH
|
||||
TC GOTOP00H
|
||||
TC GOTOPOOH
|
||||
TCF +2
|
||||
TCF -5
|
||||
TC PHASCHNG
|
||||
@ -2041,14 +2041,14 @@ DISPGYRO VN 0693
|
||||
# LUNAR SURFACE IMU ALIGNMENT PROGRAM
|
||||
|
||||
P57 TC BANKCALL # IS ISS ON -- IF NOT, IMUCHK WILL SEND
|
||||
CADR IMUCHK # ALARM CODE 210 AND EXIT VIA GOTOP00H
|
||||
CADR IMUCHK # ALARM CODE 210 AND EXIT VIA GOTOPOOH
|
||||
|
||||
CAF THREE # JAM REFSMMAT OPTION 3 FOR INITIAL DISP.
|
||||
TS OPTION2
|
||||
P57OPT CAF BIT1
|
||||
TC BANKCALL
|
||||
CADR GOPERF4R # FLASH V04N06 FOR ALIGNMENT CODE
|
||||
TC GOTOP00H # V34 TERMINATE
|
||||
TC GOTOPOOH # V34 TERMINATE
|
||||
TCF ALIGNOPT # V33 PROCEED
|
||||
TCF P57OPT # V32 RECYCLE
|
||||
|
||||
@ -2080,7 +2080,7 @@ P57A STORE DSPTEM1
|
||||
P57AA CAF V06N34* # DISPLAY TALIGN, TALIGN : DSPTEM1
|
||||
TC BANKCALL
|
||||
CADR GOFLASH
|
||||
TCF GOTOP00H # V34 -- TERMINATE
|
||||
TCF GOTOPOOH # V34 -- TERMINATE
|
||||
TCF +2
|
||||
TCF P57AA # VB32 -- RECYCLE
|
||||
|
||||
@ -2126,7 +2126,7 @@ PACKOPTN CAF ZERO # PACK FLAG BITS FOR OPTION DISPLAY
|
||||
DSPOPTN CAF VB05N06 # DISPLAY OPTION CODE AND FLAG BITS
|
||||
TC BANKCALL
|
||||
CADR GOFLASH
|
||||
TCF GOTOP00H # VB34 -- TERMINATE
|
||||
TCF GOTOPOOH # VB34 -- TERMINATE
|
||||
TCF +2 # V33 -- PROCEED
|
||||
TCF DSPOPTN # V32 -- RECYCLE
|
||||
|
||||
@ -2148,7 +2148,7 @@ DSPOPTN CAF VB05N06 # DISPLAY OPTION CODE AND FLAG BITS
|
||||
CAF VB05N09 # DISPLAY ALARM FOR ACTION
|
||||
TC BANKCALL
|
||||
CADR GOFLASH
|
||||
TCF GOTOP00H # VB34 -- TERMINATE
|
||||
TCF GOTOPOOH # VB34 -- TERMINATE
|
||||
TCF DSPOPTN # V33 -- PROCEED *********TEMPORARY
|
||||
TCF DSPOPTN # VB32 -- RECYCLE TO OPTION DISPLAY V 05N06
|
||||
|
||||
@ -2314,7 +2314,7 @@ IMUCHK CS IMODES30
|
||||
|
||||
TC ALARM # NO, SEND ALARM AND EXIT
|
||||
OCT 210
|
||||
TC GOTOP00H
|
||||
TC GOTOPOOH
|
||||
|
||||
TC UPFLAG
|
||||
ADRES IMUSE # SET IMUSE FLAG
|
||||
|
@ -146,7 +146,7 @@ INTOTHIS STCALL TDEC1
|
||||
OUT EXIT
|
||||
ENDP76 CAF ZERO
|
||||
TS MARKCTR # CLEAR RR TRACKING MARK COUNTER
|
||||
TCF GOTOP00H
|
||||
TCF GOTOPOOH
|
||||
|
||||
V06N84 NV 0684
|
||||
NV 0633
|
||||
|
@ -2743,7 +2743,7 @@ DSPALARM CS NVSBENDL
|
||||
TC PASTEVB # PUT MONITOR VERB BACK IN VERBREG
|
||||
CHARALRM TC FALTON # NO NVSUB INITATED. TURN ON OPR ERROR
|
||||
TC ENDOFJOB
|
||||
TC P00DOO
|
||||
TC POODOO
|
||||
OCT 01501
|
||||
MONADR GENADR PASTEVB
|
||||
NVSBENDL TC NVSUBEND
|
||||
@ -3164,7 +3164,7 @@ ISCADR+0 CCS CADRSTOR # ABORTS (CODE 01206) IF CADRSTOR NOT= +0.
|
||||
ISLIST+0 CCS DSPLIST # ABORTS (CODE 01206) IF DSPLIST NOT= +0.
|
||||
TC DSPABORT # RETURNS IF DSPLIST = +0.
|
||||
TC Q
|
||||
DSPABORT TC P00DOO
|
||||
DSPABORT TC POODOO
|
||||
OCT 01206
|
||||
|
||||
# JAMTERM ALLOWS PROGRAMS TO PERFORM THE TERMINATE FUNCTION.
|
||||
|
@ -529,7 +529,7 @@ TJLAW CA TJLAWADR
|
||||
TCF +3
|
||||
TC TJETLAW
|
||||
TCF AFTERTJ
|
||||
+3 CS DAPBOOLS # DOCKED. IF GIMBAL USABLE DO GTS CONTROL
|
||||
+3 CS DAPBOOLS # DOCKED. IF GIMBAL USABLE DO GTS CONTROL
|
||||
MASK USEQRJTS # ON THE NEXT PASS.
|
||||
CCS A # USEQRJTS BIT MUST NOT BE BIT 15.
|
||||
TS COTROLER # GIMBAL USABLE. STORE POSITIVE VALUE.
|
||||
|
@ -51,7 +51,7 @@
|
||||
#
|
||||
# B. TERMINATE -- IF IN P00 GO TO STEP 5A. OTHERWISE CHECK IF R61 IS
|
||||
# THE CALLING PROGRAM. IF IN R61 AN EXIT IS MADE TO GOTOV56. IF
|
||||
# NOT IN R61 AN EXIT IS DONE VIA GOTOP00H.
|
||||
# NOT IN R61 AN EXIT IS DONE VIA GOTOPOOH.
|
||||
#
|
||||
# C. PROCEED -- CONTINUE WITH PROGRAM AT STEP 6.
|
||||
#
|
||||
@ -211,7 +211,7 @@ R61TEST CA MODREG # IF WE ARE IN P00 IT MUST BE V49 OR V89
|
||||
CA FLAGWRD4 # ARE WE IN R61 (P20 OR P25)
|
||||
MASK PDSPFBIT
|
||||
EXTEND
|
||||
BZF GOTOP00H # NO
|
||||
BZF GOTOPOOH # NO
|
||||
TC GOTOV56 # YES
|
||||
|
||||
BIT14+7 OCT 20100
|
||||
|
@ -241,7 +241,7 @@ SIZETAB TC 1.2SPOT -12006
|
||||
|
||||
4.35SPOT OCT 46777
|
||||
EBANK= DVCNTR
|
||||
2CADR GOP00DOO
|
||||
2CADR GOPOODOO
|
||||
|
||||
4.37SPOT OCT 52777
|
||||
EBANK= WHICH
|
||||
|
@ -82,7 +82,7 @@ READACCS CS OCT37771 # THIS PIECE OF CODING ATTEMPTS TO
|
||||
CS ONE # OCCUR APPROXIMATELY 70 MILLISECONDS
|
||||
TCF +2 # FOLLOWING THE READACCS RUPT. THE 70 MS
|
||||
CA ONE # OFFSET WAS CHOSEN SO THAT THE PAXIS
|
||||
+2 ADS TIME5 # RUPT WOULD NOT OCCUR SIMULTANEOUSLY
|
||||
+2 ADS TIME5 # RUPT WOULD NOT OCCUR SIMULTANEOUSLY
|
||||
# WITH ANY OF THE 8 SUBSEQUENT R10,R11
|
||||
# INTERRUPTS -- THUS MINIMIZING THE POSS-
|
||||
# IBILITY OF LOSING DOWNRUPTS.
|
||||
@ -410,7 +410,7 @@ SERVIDLE EXTEND # DISCONNECT SERVICER FROM ALL GUIDANCE
|
||||
DCA NEG0
|
||||
DXCH -PHASE2
|
||||
|
||||
+4 EXTEND
|
||||
+4 EXTEND
|
||||
DCA NEG0
|
||||
DXCH -PHASE3
|
||||
|
||||
@ -424,7 +424,7 @@ SERVIDLE EXTEND # DISCONNECT SERVICER FROM ALL GUIDANCE
|
||||
DXCH -PHASE4
|
||||
|
||||
TCF WHIMPER # PERFORM A SOFTWARE RESTART AND PROCEED
|
||||
# TO GOTOP00H WHILE SERVICER CONTINUES TO
|
||||
# TO GOTOPOOH WHILE SERVICER CONTINUES TO
|
||||
# RUN, ALBEIT IN A GROUND STATE WHERE
|
||||
# ONLY STATE-VECTOR DEPENDENT FUNCTIONS
|
||||
# ARE MAINTAINED.
|
||||
@ -490,8 +490,8 @@ NORMLIZ2 CA EIGHTEEN
|
||||
TC ENDOFJOB
|
||||
|
||||
COPYCYC CA OCT24 # DEC 20
|
||||
+1 INHINT
|
||||
+2 MASK NEG1 # REDUCE BY 1 IF ODD
|
||||
+1 INHINT
|
||||
+2 MASK NEG1 # REDUCE BY 1 IF ODD
|
||||
TS ITEMP1
|
||||
EXTEND
|
||||
INDEX ITEMP1
|
||||
@ -543,7 +543,7 @@ PIPASR EXTEND
|
||||
# Page 870
|
||||
DCA TIME2
|
||||
DXCH PIPTIME1 # CURRENT TIME POSITIVE VALUE
|
||||
+3 CS ZERO # INITIALIZE THESE AT NEG. ZERO.
|
||||
+3 CS ZERO # INITIALIZE THESE AT NEG. ZERO.
|
||||
TS TEMX
|
||||
TS TEMY
|
||||
TS TEMZ
|
||||
@ -1344,7 +1344,7 @@ USEVF INDEX VSELECT*
|
||||
CA LRWVFZ # USE APPROPRIATE CONSTANT WEIGHT
|
||||
TCF WSTOR
|
||||
|
||||
-1 CA ZERO
|
||||
-1 CA ZERO
|
||||
WSTOR TS MPAC
|
||||
CS BIT7 # (=64D)
|
||||
AD MODREG
|
||||
@ -1355,7 +1355,7 @@ WSTOR TS MPAC
|
||||
CA LRWVFF
|
||||
TS MPAC
|
||||
|
||||
+3 CA EBANK7
|
||||
+3 CA EBANK7
|
||||
TS EBANK # CHANGE EBANKS
|
||||
|
||||
EBANK= ABVEL
|
||||
@ -1636,12 +1636,12 @@ POSGOOD CA PRIO23 # REDUCE PRIORITY FOR INTERPRETIVE COMPS.
|
||||
POSALARM CA OCT523
|
||||
TC BANKCALL
|
||||
CADR PRIOLARM # FLASH ALARM CODE
|
||||
TCF GOTOP00H # TERMINATE
|
||||
TCF GOTOPOOH # TERMINATE
|
||||
TCF +3 # PROCEED -- TRY AGAIN
|
||||
TCF ENDOFJOB # V 32 E TERMINATE R12
|
||||
TC ENDOFJOB
|
||||
|
||||
+3 CA BIT7 # SEE IF IN POS2 YET
|
||||
+3 CA BIT7 # SEE IF IN POS2 YET
|
||||
EXTEND
|
||||
RAND CHAN33
|
||||
EXTEND
|
||||
|
@ -181,7 +181,7 @@ SPSSTART CA EDOT # OUTER RATE LIMIT TEST
|
||||
BZMF TJZERO
|
||||
NEGTHRST CS HALF
|
||||
TCF POSTHRST +1
|
||||
+7 CS RATELIM2
|
||||
+7 CS RATELIM2
|
||||
AD EDOT
|
||||
EXTEND
|
||||
BZMF POSTHRST
|
||||
|
@ -97,7 +97,7 @@
|
||||
# VNDSPLY
|
||||
# BANKCALL
|
||||
# GOFLASHR
|
||||
# GOTOP00H
|
||||
# GOTOPOOH
|
||||
# BLANKET
|
||||
# ENDOFJOB
|
||||
# PREC/TT
|
||||
@ -126,7 +126,7 @@ P78 TC BANKCALL
|
||||
CAF V06N55SR # DISPLAY CENTANG
|
||||
TCR BANKCALL
|
||||
CADR GOFLASHR
|
||||
TCF GOTOP00H # TERMINATE
|
||||
TCF GOTOPOOH # TERMINATE
|
||||
TCF +5 # PROCEED
|
||||
TCF -5 # RECYCLE
|
||||
CAF THREE # IMMEDIATE RETURN -- BLANK R1, R2
|
||||
@ -140,7 +140,7 @@ P78 TC BANKCALL
|
||||
CAF V04N06SR # DISPLAY OPTION CODE -- 1 = SOI, 2 = SOR
|
||||
TCR BANKCALL
|
||||
CADR GOFLASHR
|
||||
TCF GOTOP00H # TERMINATE
|
||||
TCF GOTOPOOH # TERMINATE
|
||||
TCF +5 # PROCEED
|
||||
TCF -5 # RECYCLE
|
||||
CAF BIT3 # IMMEDIATE RETURN -- BLANK R3
|
||||
@ -169,7 +169,7 @@ OPTN1 SET CLEAR # SOI
|
||||
CAF V06N57SR # DISPLAY DELTA R
|
||||
TCR BANKCALL
|
||||
CADR GOFLASHR
|
||||
TCF GOTOP00H # TERMINATE
|
||||
TCF GOTOPOOH # TERMINATE
|
||||
TCF +5 # PROCEED
|
||||
TCF -5 # RECYCLE
|
||||
CAF SIX # IMMEDIATE RETURN -- BLANK R2, R3
|
||||
@ -224,7 +224,7 @@ JUNCTN2 DLOAD DSU
|
||||
# VNDSPLY
|
||||
# BANKCALL
|
||||
# GOFLASH
|
||||
# GOTOP00H
|
||||
# GOTOPOOH
|
||||
# VN1645
|
||||
|
||||
MAINRTNE STCALL TDEC1 # PRECISION UPDATE PASSIVE VEHICLE TO
|
||||
@ -415,7 +415,7 @@ OTHERV CALL
|
||||
#
|
||||
# BANKCALL
|
||||
# GOFLASH
|
||||
# GOTOP00H
|
||||
# GOTOPOOH
|
||||
|
||||
VNDSPLY EXTEND # FLASH DISPLAY
|
||||
QXCH RTRN
|
||||
@ -423,7 +423,7 @@ VNDSPLY EXTEND # FLASH DISPLAY
|
||||
CA VERBNOUN
|
||||
TCR BANKCALL
|
||||
CADR GOFLASH
|
||||
TCF GOTOP00H # TERMINATE
|
||||
TCF GOTOPOOH # TERMINATE
|
||||
TC RTRN # PROCEED
|
||||
TCF -5 # RECYCLE
|
||||
V06N33SR VN 0633
|
||||
|
@ -245,7 +245,7 @@ P63SPOT3 CA BIT6 # IS THE LR ANTENNA IN POSITION 1 YET
|
||||
CAF CODE500 # ASTRONAUT: PLEASE CRANK THE
|
||||
TC BANKCALL # SILLY THING AROUND
|
||||
CADR GOPERF1
|
||||
TCF GOTOP00H # TERMINATE
|
||||
TCF GOTOPOOH # TERMINATE
|
||||
TCF P63SPOT3 # PROCEED SEE IF HE'S LYING
|
||||
|
||||
P63SPOT4 TC BANKCALL # ENTER INITIALIZE LANDING RADAR
|
||||
@ -317,7 +317,7 @@ LANDJUNK TC PHASCHNG
|
||||
CAF V06N43* # ASTRONAUT: NOW LOOK WHERE YOU ENDED UP
|
||||
TC BANKCALL
|
||||
CADR GOFLASH
|
||||
TCF GOTOP00H # TERMINATE
|
||||
TCF GOTOPOOH # TERMINATE
|
||||
TCF +2 # PROCEED
|
||||
TCF -5 # RECYCLE
|
||||
|
||||
@ -329,7 +329,7 @@ LANDJUNK TC PHASCHNG
|
||||
REFMF
|
||||
EXIT
|
||||
|
||||
TCF GOTOP00H # ASTRONAUT: PLEASE SELECT P57
|
||||
TCF GOTOPOOH # ASTRONAUT: PLEASE SELECT P57
|
||||
|
||||
V06N43* VN 0643
|
||||
|
||||
|
@ -235,7 +235,7 @@ ZONE5 TS L # TEMPORARILY STORE FUNCTION IN L.
|
||||
# Page 1464
|
||||
ADS ADRSDIF2
|
||||
|
||||
+4 CAE L
|
||||
+4 CAE L
|
||||
EXTEND
|
||||
INDEX ADRSDIF2 # TTOAXIS AND HH ARE THE PARAMETERS UPON
|
||||
MP ACCFCTZ5 # WHICH THE APPROXIMATIONS TO TJET ARE
|
||||
@ -489,7 +489,7 @@ RUFLAW3 TC RUFSETUP # EXECUTE COMMON RUFLAW SUBROUTINE.
|
||||
|
||||
RUFSETUP CS ROTSENSE # REVERSE ROTSENSE WHEN ENTER HERE.
|
||||
TS ROTSENSE
|
||||
+2 CAF FOUR # REQUIRE MAXIMUM (2) JETS IN U,V-AXES.
|
||||
+2 CAF FOUR # REQUIRE MAXIMUM (2) JETS IN U,V-AXES.
|
||||
TS NUMBERT
|
||||
CAF NEGMAX # SUGGEST MAXIMUM (4) JETS IN P-AXIS.
|
||||
TS FIREFCT
|
||||
|
@ -559,6 +559,6 @@ TSKOVCDR GENADR TASKOVER
|
||||
LONGP00H DXCH LONGEXIT
|
||||
TCF +2
|
||||
WAITP00H DXCH WAITEXIT
|
||||
+2 TC P00DOO1
|
||||
+2 TC POODOO1
|
||||
OCT 01204
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user