kjodle/Apollo-11
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Proof EXTENDED_VERBS #206 (#400)

Browse Source 
* Proof FIXED_FIXED_CONSTANT_POOL (#207)

* wip(pp. 0236-0250): Proof EXTENDED_VERBS #206

* wip(pp. 0236-0260): Proof EXTENDED_VERBS #206

* done(pp. 0236-0267): Proof EXTENDED_VERBS #206
This commit is contained in:
Glenn Dwiyatcita 2019-09-16 02:04:12 +07:00 committed by James Harris
parent e113d1cd93
commit 2de1a339ba
1 changed files with 268 additions and 289 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

217
Comanche055/EXTENDED_VERBS.agc
View File

@ -50,25 +50,25 @@
GOEXTVB INDEX MPAC # VERB-40 IS IN MPAC GOEXTVB INDEX MPAC # VERB-40 IS IN MPAC
TC LST2FAN # FAN AS BEFORE. TC LST2FAN # FAN AS BEFORE.
LST2FAN TC VBZERO # VB40 ZERO (USED WITH NOUN 20 ONLY) LST2FAN TC VBZERO # VB40 ZERO (USED WITH NOUN 20 ONLY).
TC VBCOARK # VB41 COARSE ALIGN (USED WITH NOUN 20 OR TC VBCOARK # VB41 COARSE ALIGN (USED WITH NOUN 20 OR
# 91 ONLY) # 91 ONLY)
TC IMUFINEK # VB42 FINE ALIGN IMU TC IMUFINEK # VB42 FINE ALIGN IMU
TC IMUATTCK # VB43 LOAD IMU ATTITUDE ERROR METERS. TC IMUATTCK # VB43 LOAD IMU ATTITUDE ERROR METERS.
TC SETSURF # VB44 SET SURFACE FLAG TC SETSURF # VB44 SET SURFACE FLAG
TC RESTSRF # VB45 RESET SURFACE FLAG TC RESTSRF # VB45 RESET SURFACE FLAG
TC STABLISH # VB46 ESTABLISH G+C CONTROL TC STABLISH # VB46 ESTABLISH G+C CONTROL.
TC LMTOCMSV # VB47 MOVE LM STATE VECTOR INTO CM TC LMTOCMSV # VB47 MOVE LM STATE VECTOR INTO CM
TC DAPDISP # VB48 LOAD A/P DATA TC DAPDISP # VB48 LOAD A/P DATA.
TCF CREWMANU # VB 49 START AUTOMATIC ATTITUDE MANEUVER TCF CREWMANU # VB 49 START AUTOMATIC ATTITUDE MANEUVER
TC GOLOADLV # VB50 PLEASE PERFORM TC GOLOADLV # VB50 PLEASE PERFORM
TC GOLOADLV # VB51 PLEASE MARK TC GOLOADLV # VB51 PLEASE MARK
TC V52 # VB52 SET OFFSET NO. FOR P22 TC V52 # VB52 SET OFFSET NO. FOR P22
TC GOLOADLV # VB 53 PLEASE PERFORM COAS MARK TC GOLOADLV # VB 53 PLEASE PERFORM COAS MARK
TC GOTOR23 # VB54 PLEASE MARK (R-21 BACKUP) TC GOTOR23 # VB54 PLEASE MARK (R-21-BACKUP)
TC ALINTIME # VB55 ALIGN TIME TC ALINTIME # VB55 ALIGN TIME
TC TRACKTRM # VB56 TERMINATE TRACKING (P20 +P25) TC TRACKTRM # VB56 TERMINATE TRACKING (P20 +P25)
TC GOTOR21 # VB57 START R21 REND TRACK SIGHT MARK ROUT TC GOTOR21 # V57 START R21 REND TRACK SIGHT MARK ROUT
TC ENATMA # VB58 ENABLE AUTOMATIC ATTITUDE MANEUVER TC ENATMA # VB58 ENABLE AUTOMATIC ATTITUDE MANEUVER
TC GOLOADLV # VB59 PLEASE CALIBRATE TC GOLOADLV # VB59 PLEASE CALIBRATE
TC V60 # VB60 SET CPHIX (N17) EQUAL TO CDU TC V60 # VB60 SET CPHIX (N17) EQUAL TO CDU
@ -82,9 +82,9 @@ LST2FAN TC VBZERO # VB40 ZERO (USED WITH NOUN 20 ONLY)
TC STROKON # VB68 CSM STROKE TEST ON. TC STROKON # VB68 CSM STROKE TEST ON.
VERB69 TC VERB69 # VB 69 CAUSE RESTART VERB69 TC VERB69 # VB 69 CAUSE RESTART
TC V70UPDAT # VB70 UPDATE LIFTOFF TIME. TC V70UPDAT # VB70 UPDATE LIFTOFF TIME.
TC V71UPDAT # VB71 UNIVERSAL UPDATE -- BLOCK ADDRESS TC V71UPDAT # VB71 UNIVERSAL UPDATE - BLOCK ADDRESS.
TC V72UPDAT # VB72 UNIVERSAL UPDATE -- SINGLE ADDRESS TC V72UPDAT # VB72 UNIVERSAL UPDATE - SINGLE ADDRESS.
TC V73UPDAT # VB73 UPDATE AGC TIME (OCTAL) TC V73UPDAT # VB73 UPDATE AGC TIME (OCTAL).
TC DNEDUMP # VB74 INITIALIZE DOWN-TELEMETRY PROGRAM TC DNEDUMP # VB74 INITIALIZE DOWN-TELEMETRY PROGRAM
# FOR ERASABLE DUMP. # FOR ERASABLE DUMP.
TC LFTFLGON # VB75 SET LIFTOFF FLAG. TC LFTFLGON # VB75 SET LIFTOFF FLAG.
@ -103,7 +103,7 @@ VERB69 TC VERB69 # VB69 CAUSE RESTART
TC SETVHFLG # VB87 SET VHF RANGE FLAG TC SETVHFLG # VB87 SET VHF RANGE FLAG
TC RESETVHF # VB88 RESET VHF RANGE FLAG TC RESETVHF # VB88 RESET VHF RANGE FLAG
TC V89PERF # V89-ALIGN X OR PRF CSM AXIS TO LOS (R63) TC V89PERF # V89-ALIGN X OR PRF CSM AXIS TO LOS (R63)
TC V90PERF # VB90-OUT OF PLAN PARAMETERS (R36) TC V90PERF # VB90-OUT OF PLAN PARAMETERS %R36"
TC GOSHOSUM # VB91 TEMP FOR HYBRID AND STG. TC GOSHOSUM # VB91 TEMP FOR HYBRID AND STG.
TC SYSTEST # VB92 OPERATE IMU PERFORMANCE TEST TC SYSTEST # VB92 OPERATE IMU PERFORMANCE TEST
TC WMATRXNG # VB93 CLEAR RENDWFLG TC WMATRXNG # VB93 CLEAR RENDWFLG
@ -116,6 +116,7 @@ VERB69 TC VERB69 # VB69 CAUSE RESTART
# END OF EXTENDED VERB FAN # END OF EXTENDED VERB FAN
TESTXACT CCS EXTVBACT TESTXACT CCS EXTVBACT
TC ALM/END # YES, TURN ON OPERATOR ERROR LIGHT TC ALM/END # YES, TURN ON OPERATOR ERROR LIGHT
CA FLAGWRD4 # ARE PRIOS USING DSKY CA FLAGWRD4 # ARE PRIOS USING DSKY
@ -152,7 +153,7 @@ OC24100 OCT 24100
# Page 239 # Page 239
# VBZERO VERB 40 DESCRIPTION # VBZERO VERB 40 DESCRIPTION
# # ZERO
# 1. REQUIRE NOUN 20 (ICDU ANGLES) # 1. REQUIRE NOUN 20 (ICDU ANGLES)
# 2. REQUIRE AVAILABILITY OF EXT VERB DISPLAY SYSTEM # 2. REQUIRE AVAILABILITY OF EXT VERB DISPLAY SYSTEM
# 3. IF EITHER OF ABOVE CONDITIONS NOT PRESENT, TURN ON OPERATOR ERROR LIGHT AND GO TO PINBRNCH. # 3. IF EITHER OF ABOVE CONDITIONS NOT PRESENT, TURN ON OPERATOR ERROR LIGHT AND GO TO PINBRNCH.
@ -193,51 +194,46 @@ OPIMDIFF DEC -71
# Page 240 # Page 240
# VBCOARK VERB 41 DESCRIPTION # VBCOARK VERB 41 DESCRIPTION
# COARSE ALIGN IMU OR RADAR # COARSE ALIGN IMU OR RADAR
# # 1. REQUIRE NOUN 20 OR NOUN 91 OR TURN ON OPERATOR ERROR
# 1. REQUIRE NOUN 20 OR NOUN 91 OR TURN ON OPERATOR ERROR.
# 2. REQUIRE EXT VERB DISPLAY SYS AVAILABLE OR TURN ON OPERATOR ERROR LIGHT AND GO TO PINBRNCH. # 2. REQUIRE EXT VERB DISPLAY SYS AVAILABLE OR TURN ON OPERATOR ERROR LIGHT AND GO TO PINBRNCH.
#
# CASE 1 NOUN 20 (ICDU ANGLES) # CASE 1 NOUN 20 (ICDU ANGLES)
# 3. SET EXT VERB DISPLAY ACTIVE FLAG. # 3. SET EXT VERB DISPLAY ACTIVE FLAG.
# 4. DISPLAY FLASHING V25,N22 (LOAD NEW ICDU ANGLES). # 4. DISPLAY FLASHING V25,N22 (LOAD NEW ICDU ANGLES).
# RESPONSES # RESPONSES
# A. TERMINATE # A. TERMINATE
# 1. RELEASE EXT VERB DISPLAY SYSTEM. # 1. RELEASE EXT VERB DISPLAY SYSTEM
# B. PROCEED # B. PROCEED
# 1. DISPLAY FLASHING V25,N23 (LOAD DELTA ICDU ANGLES). # 1. DISPLAY FLASHING V25,N23 (LOAD DELTA ICDU ANGLES).
# RESPONSES: # RESPONSES
# A. TERMINATE # A. TERMINATE
# 1. RELEASE EXT VERB DISPLAY SYSTEM. # 1. RELEASE EXT VERB DISPLAY SYSTEM.
# B. PROCEED # B. PROCEED
# 1. EXECUTE ICORK2. # 1. EXECUTE ICORK2.
# C. ENTER # C. ENTER
# 1. INCREMENT CDU ANGLES # 1. INCREMENT CDU ANGLES
# 2. EXECUTE ICORK2 # 2. EXECUTE ICORK2.
# C. ENTER # C. ENTER
# 1. EXECUTE ICORK2 # 1. EXECUTE ICORK2.
# ICORK2 # ICORK2
# 1. RE-DISPLAY VERB 41. # 1. RE-DISPLAY VERB 41.
# 2. EXECUTE IMUCCARS (IMU COARSE ALIGN). # 2. EXECUTE IMUCCARS (IMU COARSE ALIGN).
# 3. EXECUTE IMUSTALL (ALLOW TIME FOR DATA TRANSFER). # 3. EXECUTE IMUSTALL (ALLOW TIME FOR DATA TRANSFER).
# 4. RELEASE EXT VERB DISPLAY SYSTEM. # 4. RELEASE EXT VERB DISPLAY SYSTEM.
#
# CASE 2 NOUN 91 (OCDU ANGLES) # CASE 2 NOUN 91 (OCDU ANGLES)
# 5. (REQUIRE OPTICS SWITCH TO BE AT COMUTER OR TURN ON OPERATOR ERROR AND ALARM 115) AND (REQUIRE # 5. (REQUIRE OPTICS SWITCH TO BE AT COMPUTER OR TURN ON OPERATOR ERROR AND ALARM 115) AND (REQUIRE
# OPTICS AVAILABLE AND DISPLAY FLASHING V24,N92....LOAD NEW OPTICS ANGLES....OR TURN ON ALARM 117 # OPTICS AVAILABLE AND DISPLAY FLASHING V24,N92....LOAD NEW OPTICS ANGLES....OR TURN ON ALARM 117
# AND RELEASE EXT VERB DISPLAY SYSTEM). # AND RELEASE EXT VERB DISPLAY SYSTEM).
# 6. RESPONSES TO V29,N92 # 6. RESPONSES TO V29,N92.
# A. TERMINATE # A. TERMINATE
# RELEASE EXT VERB DISPLAY SYS. # RELEASE EXT VERB DISPLAY SYSTEM
# B. PROCEED OR ENTER # B. PROCEED OR ENTER
# RE-DISPLAY VERB 41, SET SWITCH TO INDICATE COURSE ALIGN OPTICS WORKING. # RE-DISPLAY V41, SET SWITCH TO INDICATE COURSE ALIGN OPTICS WORKING.
# RELEASE EXT VERB DISPLAY SYSTEM. # RELEASE EXT VERB DISPLAY SYSTEM.
VBCOARK TC OP/INERT VBCOARK TC OP/INERT
TC IMUCOARK # RETURN HERE IF NOUN = ICDU(20) TC IMUCOARK # RETURN HERE IF NOUN = ICDU(20)
TC OPTCOARK # RETURN HERE IF NOUN = OCDU(91) TC OPTCOARK # RETURN HERE IF NOUN = OCDU(91)
# RETURNS TO L+1 IF NOUN 20 - TO L+2 IF NOUN 91.
# RETURNS TO L+1 IF NOUN 20 -- TO L+2 IF NOUN 91.
IMUCOARK TC CKMODCAD # COARSE ALIGN FROM KEYBOARD IMUCOARK TC CKMODCAD # COARSE ALIGN FROM KEYBOARD
TC TESTXACT TC TESTXACT
CAF VNLODCDU # CALL FOR THETAD LOAD CAF VNLODCDU # CALL FOR THETAD LOAD
@ -313,7 +309,6 @@ OPTCOARV EQUALS IMUCOARV # DIFFERENT NOUNS.
# Page 243 # Page 243
# IMUFINEK VERB 42 DESCRIPTION # IMUFINEK VERB 42 DESCRIPTION
# FINE ALIGN IMU # FINE ALIGN IMU
#
# 1. REQUIRE EXT VERB DISPLAY AVAILABLE AND SET BUSY FLAG OR TURN ON OPER ERROR AND GO TO PINBRNCH. # 1. REQUIRE EXT VERB DISPLAY AVAILABLE AND SET BUSY FLAG OR TURN ON OPER ERROR AND GO TO PINBRNCH.
# 2. DISPLAY FLASHING V25,N93....LOAD DELTA GYRO ANGLES.... # 2. DISPLAY FLASHING V25,N93....LOAD DELTA GYRO ANGLES....
# RESPONSES # RESPONSES
@ -329,7 +324,7 @@ OPTCOARV EQUALS IMUCOARV # DIFFERENT NOUNS.
# 1. EXECUTE IMUPULSE (TORQUE IRIGS). # 1. EXECUTE IMUPULSE (TORQUE IRIGS).
# 2. EXECUTE IMUSTALL AND RELEASE EXT VERB DISPLAY SYSTEM. # 2. EXECUTE IMUSTALL AND RELEASE EXT VERB DISPLAY SYSTEM.
IMUFINEK TC CKMODCAD # FINE ALIGN WITH GYRO TORQUING. IMUFINEK TC CKMODCAD # FINE ALIGN WITH GYRO TORQUING
TC TESTXACT TC TESTXACT
CAF VNLODGYR # CALL FOR LOAD OF GYRO COMMANDS CAF VNLODGYR # CALL FOR LOAD OF GYRO COMMANDS
TC BANKCALL TC BANKCALL
@ -348,7 +343,7 @@ IMUFINEK TC CKMODCAD # FINE ALIGN WITH GYRO TORQUING.
CADR IMUSTALL CADR IMUSTALL
TC ENDEXTVB TC ENDEXTVB
FINEK2 CAF LGYROBIN # PINBALL LEFT COMMANDS IN OGC REGISTERS FINEK2 CAF LGYROBIN # PINBALL LEFT COMMANDS IN OGC REGIST5RS
TC BANKCALL TC BANKCALL
CADR IMUPULSE CADR IMUPULSE
@ -366,13 +361,10 @@ CKMODCAD CA MODECADR
EXTEND EXTEND
BZF TCQ BZF TCQ
TC ALM/END # SOMEBODY IS USING MODECADR SO EXIT TC ALM/END # SOMEBODY IS USING MODECADR SO EXIT
# GOLOADLV VERB 50 DESCRIPTION # GOLOADLV VERB 50 DESCRIPTION
# AND OTHER PLEASE # AND OTHER PLEASE
# DO SOMETHING VERBS # DO SOMETHING VERBS
#
# PLEASE PERFORM, MARK, CALIBRATE, ETC. # PLEASE PERFORM, MARK, CALIBRATE, ETC.
#
# 1. PRESSING ENTER ON DSKY INDICATES REQUESTED ACTION HAS BEEN PERFORMED, AND THE PROGRAM DOES THE # 1. PRESSING ENTER ON DSKY INDICATES REQUESTED ACTION HAS BEEN PERFORMED, AND THE PROGRAM DOES THE
# SAME RECALL AS A COMPLETED LOAD. # SAME RECALL AS A COMPLETED LOAD.
# 2. THE EXECUTION OF A VERB 33 (PROCEED WITHOUT DATA) INDICATES THE REQUESTED ACTION IS NOT DESIRED. # 2. THE EXECUTION OF A VERB 33 (PROCEED WITHOUT DATA) INDICATES THE REQUESTED ACTION IS NOT DESIRED.
@ -410,19 +402,18 @@ V62 TC UPFLAG # SET NEEDLFLG TO 1 (FLAGWRD0,BIT9),
V63 TC UPFLAG # SET NEEDLFLG TO 1 (FLAGWRD0,BIT9), V63 TC UPFLAG # SET NEEDLFLG TO 1 (FLAGWRD0,BIT9),
ADRES NEEDLFLG # TOTAL ATTITUDE ERROR DISPLAYED ADRES NEEDLFLG # TOTAL ATTITUDE ERROR DISPLAYED
TC DOWNFLAG # SET N22ORN17 TO 0 (FLAGWRD9,BIT6), TC DOWNFLAG # SET N22ORN17 TO 0 (FLAGWRD9,BIT6,
# Page 245 # Page 245
ADRES N22ORN17 # COMPUTE TOAL ASTRONAUT ATTITUDE ERROR ADRES N22ORN17 # COMPUTE TOTAL ASTRONAUT ATTITUDE ERROR
TC GOPIN TC GOPIN
# Page 246 # Page 246
# ALINTIME VERB 55 DESCRIPTION # ALINTIME VERB 55 DESCRIPTION
#
# 1. SET EXT VERB DISPLAY BUSY FLAG. # 1. SET EXT VERB DISPLAY BUSY FLAG.
# 2. DISPLAY FLASHING V25,N24 (LOAD DELTA TIME FOR AGC CLOCK. # 2. DISPLAY FLASHING V25,N24 (LOAD DELTA TIME FOR AGC CLOCK.
# 3. REQUIRE EXECUTION OF VERB 23. # 3. REQUIRE EXECUTION OF VERB 23.
# 4. ADD DELTA TIME, RECEIVED FROM INPUT REGISTER, TO THE COMPUTER TIME. # 4. ADD DELTA TIME, RECEIVED FROM INPUT REGISTER, TO THE COMPUTER TIME.
# 5. RELEASE EXT VERB DISPLAY SYSTEM. # 5. RELEASE EXT VERB DISPLAY SYSTEM
COUNT 04/R33 COUNT 04/R33
@ -438,11 +429,10 @@ ALINTIME TC TESTXACT
EXTEND EXTEND
BZF UPDATIME # GO AHEAD WITH UPDATE ONLY IF RECALL BZF UPDATIME # GO AHEAD WITH UPDATE ONLY IF RECALL
TC ENDEXT # WITH V23 (DATA IN). TC ENDEXT # WITH V23 (DATA IN).
UPDATIME INHINT # DELTA TIME IS IN DSPTEM1, +1. UPDATIME INHINT # DELTA TIME IS IN DSPTEM1, +1.
CAF ZERO CAF ZERO
TS MPAC +2 # NEEDED FOR TP AGREE TS MPAC +2 # NEEDED FOR TP AGREE
TS L # ZERO T1 + 2 WHILE ALIGNING. TS L # ZERO T1 & 2 WHILE ALIGNING.
DXCH TIME2 DXCH TIME2
DXCH MPAC DXCH MPAC
DXCH DSPTEM2 +1 # INCREMENT DXCH DSPTEM2 +1 # INCREMENT
@ -459,13 +449,11 @@ VNLODDT VN 2524 # V25N24 FOR LOAD DELTA TIME
# Page 247 # Page 247
# SYSTEST VERB 92 DESCRIPTION # SYSTEST VERB 92 DESCRIPTION
# OPERATE SELECTED SYSTEM TEST. # OPERATE SELECTED SYSTEM TEST
#
# 1. REQUIRE P00 OR P00- OR TURN ON OPERATOR ERROR. # 1. REQUIRE P00 OR P00- OR TURN ON OPERATOR ERROR.
# 2. TURN OFF DAP IF IT IS ON. # 2. TURN OFF DAP IF IT IS ON.
# 3. DISPLAY FLASHING V21,N01 (LOAD TEST NUMBER 1 THRU 17). # 3. DISPLAY FLASHING V21,N01 (LOAD TEST NUMBER 1 THRU 17).
# 4. UPON ENTRY OF TEST NUMBER, SCHEDULE TSELECT WITH PRIORITY 20. # 4. UPON ENTRY OF TEST NUMBER, SCHEDULE TSELECT WITH PRIORITY 20.
#
# TSELECT # TSELECT
# 1. IF LOADED TEST NUMBER IS VALID, GO TO THAT TEST ROUTINE, OTHERWISE TURN ON OPERATOR ERROR AND # 1. IF LOADED TEST NUMBER IS VALID, GO TO THAT TEST ROUTINE, OTHERWISE TURN ON OPERATOR ERROR AND
# REPEAT LOAD REQUEST DISPLAY. (NO. 3 ABOVE) # REPEAT LOAD REQUEST DISPLAY. (NO. 3 ABOVE)
@ -490,6 +478,7 @@ V92CONT TC EXDAPOFF # TURN DAP OFF IF IT'S ON
TC GOPIN TC GOPIN
# REDO AND TSELECT ARE NOW IN SYSTEM TEST. # REDO AND TSELECT ARE NOW IN SYSTEM TEST.
COUNT* $$/EXTVB COUNT* $$/EXTVB
@ -513,7 +502,7 @@ CKOPTVB TC CHECKMM
CHAZFOGC TC CHECKMM # IS IT PRELAUNCH CHAZFOGC TC CHECKMM # IS IT PRELAUNCH
MM 02 MM 02
TC ALM/END # NO -- OPERATOR ERROR TC ALM/END # NO - OPERA TOR ERROR
CAF PRIO16 # PRELAUNCH AZIMUTH CHANGE CAF PRIO16 # PRELAUNCH AZIMUTH CHANGE
TC FINDVAC TC FINDVAC
@ -526,11 +515,10 @@ CHAZFOGC TC CHECKMM # IS IT PRELAUNCH
# Page 249 # Page 249
# IMUATTCK VERB 43 DESCRIPTION # IMUATTCK VERB 43 DESCRIPTION
# LOAD IMU ATTITUDE ERROR METERS # LOAD IMU ATTITUDE ERROR METERS
#
# 1. REQUIRE PROGRAM 00 ACTIVE, COARSE ALIGN ENABLE BIT OFF AND ZERO ICDU BIT OFF. # 1. REQUIRE PROGRAM 00 ACTIVE, COARSE ALIGN ENABLE BIT OFF AND ZERO ICDU BIT OFF.
# 2. IF GUID REF RELEASE OR LIFTOFF HAS OCCURRED REQUIRE EXT VERB DISPLAY AVAILABLE AND SET BUSY # 2. IF GUID REF RELEASE OR LIFTOFF HAS OCCURRED REQUIRE EXT VERB DISPLAY AVAILABLE AND SET BUSY
# FLAG, OTHERWISE ALLOW CURRENT EXT VERB DISPLAY TO BE OVER-RIDDEN. # FLAG, OTHERWISE ALLOW CURRENT EXT VERB DISPLAY TO BE OVER-RIDDEN.
# 3. REMOVE COARSE ALIGN ENABLE AND IMU ERROR COUNTER ENABLE. # 3. REMOVE COARSE ALIGN ENABLE AND IMU ERROR COUNTER ENABLE
# 4. DISPLAY FLASHING V25,N22 (LOAD NEW ICDU ANGLES). # 4. DISPLAY FLASHING V25,N22 (LOAD NEW ICDU ANGLES).
# 5. UPON PROCEED OR ENTER RESPONSE, INITIALIZE CURRENT DAC AND COMMAND VALUES, ENABLE ERROR COUNTERS # 5. UPON PROCEED OR ENTER RESPONSE, INITIALIZE CURRENT DAC AND COMMAND VALUES, ENABLE ERROR COUNTERS
# TRANSFER LOADED VALUES TO REGISTERS, AND SEND COMMANDS. # TRANSFER LOADED VALUES TO REGISTERS, AND SEND COMMANDS.
@ -538,7 +526,7 @@ CHAZFOGC TC CHECKMM # IS IT PRELAUNCH
IMUATTCK TC CHKP00H IMUATTCK TC CHKP00H
CAF OCTAL30 # SEE IF IMU ZERO AND IMU COARSE ARE ON CAF OCTAL30 # CHECK IF IMU ZERO AND IMU COARSE ARE ON
EXTEND EXTEND
RAND CHAN12 RAND CHAN12
CCS A CCS A
@ -546,7 +534,7 @@ IMUATTCK TC CHKP00H
TC CKLFTBTS # IS IT BEFORE OR AFTER LIFTOFF TC CKLFTBTS # IS IT BEFORE OR AFTER LIFTOFF
TC TESTXACT # AFTER TC TESTXACT # AFTER
CS OCT50 # REMOVE COARSE AND ECTR ENABLE CS OCT50 # REMOVE COARSE AND ECTR ENABLE.
EXTEND EXTEND
WAND CHAN12 WAND CHAN12
@ -561,7 +549,7 @@ IMUATTCK TC CHKP00H
EBANK= AK EBANK= AK
TC BANKCALL # INITIALIZE CURRENT DAC AND TC BANKCALL # INITIALIZE CURRENT DAC AND
CADR NEEDLE11 # COMMAND VALUES. CADR NEEDLE11 # COMMAND VALUES
TC BANKCALL # ENABLE ERROR COUNTERS. TC BANKCALL # ENABLE ERROR COUNTERS.
CADR NEEDLER2 CADR NEEDLER2
@ -571,11 +559,11 @@ IMUATTCK TC CHKP00H
EBANK= AK EBANK= AK
2CADR ATTCK1 2CADR ATTCK1
TRMATTCK TC CKLFTBTS # IS IT BEFORE OR AFTER LIFTOFF TRMATTCK TC CKLFTBTS # IS IT BEFORE OR AFRER LIFTOFF
TCF ENDEXT # AFTER TCF ENDEXT # AFTER
TC GOPIN TC GOPIN
# Page 250 # Page 250
ATTCK1 EXTEND # TRANSFER LOADED VALUES TO DESIRED REQS. ATTCK1 EXTEND # TRANSFER LOADED VALUES TO DESIRED REGS.
DCA THETAD DCA THETAD
DXCH AK DXCH AK
CAE THETAD +2 CAE THETAD +2
@ -610,9 +598,9 @@ VB64 TC CHKP00H # DEMAND PROGRAM 00.
# ENATMA VERB 58 DESCRIPTION # ENATMA VERB 58 DESCRIPTION
# ENABLE AUTOMATIC ATTITUDE MANEUVER # ENABLE AUTOMATIC ATTITUDE MANEUVER
#
# VERB58 RESETS STIKFLAG TO ENABLE R61 TO PERFORM AUTOMATIC TRACKING MANEUVERS, AFTER INTERRUPTS BY THE RHC # VERB58 RESETS STIKFLAG TO ENABLE R61 TO PERFORM AUTOMATIC TRACKING MANEUVERS, AFTER INTERRUPTS BY THE RHC ACT-
# ACTIVITY. # IVITY.
ENATMA TC DOWNFLAG # RESET STIKFLAG. ENATMA TC DOWNFLAG # RESET STIKFLAG.
ADRES STIKFLAG # BIT 14 FLAG 1 ADRES STIKFLAG # BIT 14 FLAG 1
@ -620,6 +608,7 @@ ENATMA TC DOWNFLAG # RESET STIKFLAG.
# Page 251 # Page 251
# STROKON VERB 68 DESCRIPTION # STROKON VERB 68 DESCRIPTION
# STROKE TEST SETUP/ENABLE # STROKE TEST SETUP/ENABLE
# 1. SET EXT VERB DISPLAY BUSY FLAG # 1. SET EXT VERB DISPLAY BUSY FLAG
# 2. SCHEDULE STRKTST1 WITH PRIORITY 30. # 2. SCHEDULE STRKTST1 WITH PRIORITY 30.
@ -632,14 +621,14 @@ STROKON CS FLAGWRD6 # V68 PERMITTED ONLY DURING TVC
BZMF ALM/END # NOT TVC....FLASH OP ERROR LIGHT BZMF ALM/END # NOT TVC....FLASH OP ERROR LIGHT
CAF PRIO30 # JOB REQUEST, TO SET UP STROKE TEST, CAF PRIO30 # JOB REQUEST, TO SET UP STROKE TEST,
TC NOVAC # INCLUDING INITIALIZATIONS TC NOVAC # INCLUDING INITIALIZATIONS
SBANK= PINSUPER # Added RSB 2009.
EBANK= STROKER EBANK= STROKER
2CADR STRKTSTI 2CADR STRKTSTI
TC GOPIN TC GOPIN
# STABLISH VERB 46 DESCRIPTION # STABLISH VERB 46 DESCRIPTION
# ESTABLISH G AND N AUTOPILOT CONTROL # ESTABLISH G & N AUTOPILOT CONTROL
# 1. SETS UP EITHER RCS, ENTRY, OR SATURN # 1. SETS UP EITHER RCS, ENTRY, OR SATURN
# 2. IF TVC IS ON, SETS UP CSM/LM SWITCH-OVER # 2. IF TVC IS ON, SETS UP CSM/LM SWITCH-OVER
# FROM HIGH BW TO LOW BW # FROM HIGH BW TO LOW BW
@ -653,7 +642,7 @@ STABLISH CAF EBANK6 # V46 - SET EBANK TO E6
EXTEND EXTEND
BZMF +8 BZMF +8
CAE DAPDATR1 # TET FOR CSM/LM CAE DAPDATR1 # TEST FOR CSM/LM
MASK BIT14 MASK BIT14
EXTEND EXTEND
BZMF +3 BZMF +3
@ -661,25 +650,24 @@ STABLISH CAF EBANK6 # V46 - SET EBANK TO E6
TC POSTJUMP # CSM/LM, SO PERFORM HB TO LB SWITCH-OVER TC POSTJUMP # CSM/LM, SO PERFORM HB TO LB SWITCH-OVER
CADR PRESWTCH CADR PRESWTCH
+3 TC ALM/END +3 TC ALM/END # CSM, SO ALARM AND EXIT
+8 TC POSTJUMP # SET UP RCS, ENTRY, OR SATURN-STICK DAP +8 TC POSTJUMP # SET UP RCS, ENTRY, OR SATURN-STICK DAP
CADR DAPFIG CADR DAPFIG
# Page 252 # Page 252
# CREMANU VERB 49 DESCRIPTION # CREMANU VERB 49 DESCRIPTION
# START AUTOMATIC ATTITUDE MANEUVER # START AUTOMATIC ATTITUDE MANEUVER
#
# 1. REQUIRE PROGRAM 00 ACTIVE. # 1. REQUIRE PROGRAM 00 ACTIVE.
# 2. SET EXT VERB DISPLAY BUSY FLAG. # 2. SET EXT VERB DISPLAY BUSY FLAG.
# 3. SCHEDULE R62DISP WITH PRIORITY 10. # 3. SCHEDULE R62DISP WITH PRIORITY 10.
# 4. RELEASE EXT VERB DISPLAY. # 4. RELEASE EXT VERB DISPLAY.
#
# R62DISP # R62DISP
# 1. DISPLAY FLASHING V06,N22 (DECIMAL DISPLAY NEW ICDU ANGLES). UPON IMMEDIATE RETURN, SET-UP GROUP # 1. DISPLAY FLASHING V06,N22 (DECIMAL DISPLAY NEW ICDU ANGLES). UPON IMMEDIATE RETURN, SET-UP GROUP
# 4 FOR RESTART OF DISPLAY SEQUENCE. # 4 FOR RESTART OF DISPLAY SEQUENCE.
# RESPONSES # RESPONSES
# A. TERMINATE # A. TERMINATE
# 1. GOTOP00H # 1. GO TO GOTOP00H.
# B. PROCEED # B. PROCEED
# 1. SET 3AXISFLG TO INDICATE MANEUVER IS SPECIFIED BY 3 AXIS. # 1. SET 3AXISFLG TO INDICATE MANEUVER IS SPECIFIED BY 3 AXIS.
# 2. EXECUTE R60CSM (ATTITUDE MANEUVER). # 2. EXECUTE R60CSM (ATTITUDE MANEUVER).
@ -701,17 +689,15 @@ CREWMANU TC CHKP00H # DEMAND P00
# Page 253 # Page 253
# DAPDISP VERB 48 DESCRIPTION # DAPDISP VERB 48 DESCRIPTION
# LOAD AUTOPILOT DATA (ROUTINE R03) # LOAD AUTOPILOT DATA (ROUTINE R03)
#
# 0. CHECKFAIL AND RETURN IF TVC. # 0. CHECKFAIL AND RETURN IF TVC.
# 1. REQUIRE EXT VERB DISPLAY AVAILABLE AND SET BUSY FLAG. # 1. REQUIRE EXT VERB DISPLAY AVAILABLE AND SET BUSY FLAG.
# 2. LOWER PRIORITY TO 10. # 2. LOWER PRIORITY TO 10.
# 3. DISPLAY FLASHING V04,N46 (DISPLAY AUTOPILOT CONFIGURATION). # 3. DISPLAY FLASHING V04,N46 (DISPLAY AUTOPILOT CONFIGURATION)
# 4. UPON PROCEED RESPONSE, EXECUTE S41.2. # 4. UPON PROCEED RESPONSE, EXECUTE S41.2.
# 5. DISPLAY FLASHING V06,N47 (DISPLAY CSM WGT., LEM WGT.) # 5. DISPLAY FLASHING V06,N47 (DISPLAY CSM WGT.. LEM WGT.)
# 6. UPON PROCEED RESPONSE EXECUTE S40.14. # 6. UPON PROCEED RESPONSE EXECUTE S40.14.
# 7. DISPLAY FLASHING V06,N48 (DISPLAY PITCH TRIM, YAW TRIM) # 7. DISPLAY FLASHING V06,N48 (DISPLAY PITCH TRIM, YAW TRIM)
# 8. UPON PROCEED RESPONSE, RELEASE EXTENDED VERB DISPLAY SYSTEM. # 8. UPON PROCEED RESPONSE, RELEASE EXTENDED VERB DESPLAY SYSTEM
COUNT* $$/EXTVB COUNT* $$/EXTVB
DAPDISP CS FLAGWRD6 DAPDISP CS FLAGWRD6
@ -798,11 +784,10 @@ V04N46 VN 0446
# V82PERF VERB82 DESCRIPTION # V82PERF VERB82 DESCRIPTION
# REQUEST ORBIT PARAMETERS DISPLAY (R30) # REQUEST ORBIT PARAMETERS DISPLAY (R30)
#
# 1. IF AVERAGE G IS OFF: # 1. IF AVERAGE G IS OFF:
# FLASH DISPLAY V04N06. R2 INDICATES WHICH SHIP'S STATE VECTOR IS # FLASH DISPLAY V04N06. R2 INDICATES WHICH SHIP'S STATE VECTOR IS
# TO BE UPDATED. INITIAL CHOICE IS THIS SHIP (R2=1). ASTRONAUT # TO BE UPDATED. INITIAL CHOICE IS THIS SHIP (R2=1). ASTRONAUT
# CAN CHANGE TO OTHER SHIP BY V22EXE, WHERE X NOT EQ I. # CAN CHANGE TO OTHER SHIP BY V22EXE, WHERE X NOT EQ 1.
# SELECTED STATE VECTOR UPDATED BY THISPREC (OTHPREC). # SELECTED STATE VECTOR UPDATED BY THISPREC (OTHPREC).
# CALLS SR30.1 (WHICH CALLS TFFCONMU + TFFRP/RA) TO CALCULATE # CALLS SR30.1 (WHICH CALLS TFFCONMU + TFFRP/RA) TO CALCULATE
# Page 255 # Page 255
@ -823,10 +808,10 @@ V04N46 VN 0446
# FLASH MONITOR V16N44 (HAPO, HPER, TFF). # FLASH MONITOR V16N44 (HAPO, HPER, TFF).
# IF MODE IS P11, THEN CALL DELRSPL SO ASTRONAUT CAN MONITOR # IF MODE IS P11, THEN CALL DELRSPL SO ASTRONAUT CAN MONITOR
# RESULTS BY N50E. SPLASH COMPUTATION DONE ONCE PER TWO SECS. # RESULTS BY N50E. SPLASH COMPUTATION DONE ONCE PER TWO SECS.
#
# ADDENDUM: HAPO AND HPER SHOULD BE CHANGED TO READ HAPOX AND HPERX IN THE # ADDENDUM: HAPO AND HPER SHOULD BE CHANGED TO READ HAPOX AND HPERX IN THE
# ABOVE REMARKS. # ABOVE REMARKS.
V82PERF TC TESTXACT V82PERF TC TESTXACT
CAF PRIO7 CAF PRIO7
@ -834,9 +819,9 @@ V82PERF TC TESTXACT
TC POSTJUMP TC POSTJUMP
CADR V82CALL # ***** V82CALL MUST NOT BE A FINDVAC JOB. CADR V82CALL # ***** V82CALL MUST NOT BE A FINDVAC JOB.
# VB83PERF VERB 83 DESCRIPTION # VB83PERF VERB 83 DESCRIPTION
# REQUEST RENDEZVOUS PARAMETER DISPLAY (R31) # REQUEST RENDEZVOUS PARAMETER DISPLAY (R31)
#
# 1. SET EXT VERB DISPLAY BUSY FLAG. # 1. SET EXT VERB DISPLAY BUSY FLAG.
# 2. SCHEDULE V83CALL WITH PRIORITY 10. # 2. SCHEDULE V83CALL WITH PRIORITY 10.
# A. DISPLAY # A. DISPLAY
@ -851,7 +836,6 @@ V83PERF TC TESTXACT
ADS FLAGWRD9 ADS FLAGWRD9
CAF PRIO5 CAF PRIO5
TC NOVAC TC NOVAC
SBANK= LOWSUPER # Added by RSB 2009
EBANK= SUBEXIT EBANK= SUBEXIT
2CADR R31CALL 2CADR R31CALL
@ -872,7 +856,6 @@ V85PERF TC TESTXACT
# 2. IF REND (P20 RUNNING) + TRACK (TRACKING ALLOWED) FLAGS ARE SET, # 2. IF REND (P20 RUNNING) + TRACK (TRACKING ALLOWED) FLAGS ARE SET,
# SCHEDULE R21 OR R23 WITH PRIORITY 16, OTHERWISE TURN ON ALARM 406 # SCHEDULE R21 OR R23 WITH PRIORITY 16, OTHERWISE TURN ON ALARM 406
# 3. RELEASE EXT VERB DISPLAY SYSTEM # 3. RELEASE EXT VERB DISPLAY SYSTEM
GOTOR21 TC DOWNFLAG # CLEAR R23FLG GOTOR21 TC DOWNFLAG # CLEAR R23FLG
ADRES R23FLG # BIT 9 FLAG 1 ADRES R23FLG # BIT 9 FLAG 1
TC +3 TC +3
@ -913,7 +896,6 @@ R22ALARM TC ALARM # VERB 57 WAS SELECTED AND NEITHER REND
# VERB 86 DESCRIPTION # VERB 86 DESCRIPTION
# V86 IS TO R23 AS MARK REJECT IS TO R21 # V86 IS TO R23 AS MARK REJECT IS TO R21
# V86 IS THE MARK REJECT FOR R23(THE BACKUP MARKING ROUTINE) # V86 IS THE MARK REJECT FOR R23(THE BACKUP MARKING ROUTINE)
EBANK= MRKBUF1 EBANK= MRKBUF1
V86PERF CAF EBANK7 # BACKUP MARK REJECT (R23) V86PERF CAF EBANK7 # BACKUP MARK REJECT (R23)
XCH EBANK XCH EBANK
@ -927,11 +909,11 @@ V86PERF CAF EBANK7 # BACKUP MARK REJECT (R23)
# 1. KNOCK DOWN RENDEZVOUS, TRACK, AND UPDATE FLAGS. # 1. KNOCK DOWN RENDEZVOUS, TRACK, AND UPDATE FLAGS.
# 2. REQUIRE P20 NOT RUNNING ALONE OR GO TO GOTOP00H (REQUEST PROGRAM 00). # 2. REQUIRE P20 NOT RUNNING ALONE OR GO TO GOTOP00H (REQUEST PROGRAM 00).
# 3. REQUIRE R22 RUNNING OR GO TO PINBRNCH. # 3. REQUIRE R22 RUNNING OR GO TO PINBRNCH.
# 4. IF INTEGRATION RUNNING, STALL UNTIL IT IS COMPLETED, THEN ZERO GROUPS 2 AND 3 TO KILL R21 + R22 # 4. IF INTEGRATION RUNNING, STALL UNTIL IT IS COMPLETED, THEN ZERO GROUPS 2 AND 3 TO KILL R21 + R22.
# 3. KNOCK DOWN RENDEZFOUS, R22, R21, TRACK, UPDATE, AND TARG1 FLAGS. # 3. KNOCK DOWN RENDEZFOUS, R22, R21, TRACK, UPDATE, AND TARG1 FLAGS.
# 4. GO TO ENEMA (SOFTWARE RESTART). # 4. GO TO ENEMA (SOFTWARE RESTART).
# REFERENCE # REFERENCE
# P20 RENDEZVOUS NAVIGATION # P20 RENDEZVOUS NAVIGATION.
# R21 RENDEZVOUS TRACKING SIGHTING MARK. # R21 RENDEZVOUS TRACKING SIGHTING MARK.
# R22 RENDEZVOUS TRACKING DATA PROCESSING. # R22 RENDEZVOUS TRACKING DATA PROCESSING.
@ -968,7 +950,7 @@ TRACKTRM CA RNDVZBIT # IS REND FLAG ON
TC INTPRET TC INTPRET
CALL CALL
INTSTALL # DON'T INTERRUPT INTEGRATION INTSTALL # DONT INTERRUPT INTEGRATION
EXIT EXIT
TC 2PHSCHNG TC 2PHSCHNG
@ -994,13 +976,12 @@ LEMVEC TC DOWNFLAG
# SET VEHUPFLG TO 1 # SET VEHUPFLG TO 1
CSMVEC TC UPFLAG CSMVEC TC UPFLAG
ADRES VEHUPFLG # VEHUPFLG UP INDICATES CM ADRES VEHUPFLG # VEHUPFLG UP INDICATES CM.
TCF GOPIN TCF GOPIN
# DNEDUMP VERB 74 DESCRIPTION # DNEDUMP VERB 74 DESCRIPTION
# INITIALZE DOWN-TELEMETRY PROGRAM FOR ERASABLE MEMORY DUMP. # INITIALIZE DOWN-TELEMETRY PROGRAM FOR ERASABLE MEMORY DUMP.
#
# 1. SET EXT VERB DISPLAY BUSY FLAG. # 1. SET EXT VERB DISPLAY BUSY FLAG.
# 2. REPLACE CURRENT DOWNLIST WITH ERASABLE MEMORY. # 2. REPLACE CURRENT DOWNLIST WITH ERASABLE MEMORY.
# 3. RELEASE EXT VERB DISPLAY. # 3. RELEASE EXT VERB DISPLAY.
@ -1015,10 +996,10 @@ LDNDUMPI REMADR DNDUMPI
# LFTFLGON VERB 75 DESCRIPTION # LFTFLGON VERB 75 DESCRIPTION
# SET LIFT-OFF FLAG # SET LIFT-OFF FLAG
# 1. SETUP GRRBKFLG, GUIDANCE REFERENCE RELEASE BACK-UP FLAG. # 1. SETUP GGRBKFLG, GUIDANCE REFERENCE RELEASE BACK-UP FLAG.
# 2. RETURN VIA PINBRNCH # 2. RETURN VIA PINBRNCH
LFTFLGON TC UPFLAG # VB 75 -- SET LIFTOFF FLAG BIT LFTFLGON TC UPFLAG # VB 75 - SET LIFTOFF FLAG BIT
ADRES GRRBKFLG # BIT 5 FLAG 5 ADRES GRRBKFLG # BIT 5 FLAG 5
TC GOPIN TC GOPIN
@ -1036,60 +1017,58 @@ EXDAPOFF EXTEND
TS FLAGWRD6 TS FLAGWRD6
TC Q TC Q
SBANK= PINSUPER # Added RSB 2009
EBANK= PACTOFF EBANK= PACTOFF
IDLECADR 2CADR T5IDLOC IDLECADR 2CADR T5IDLOC
# Page 262 # Page 262
# VERB 89 DESCRIPTION RENDEZVOUS FINAL ATTITUDE ROUTINE (R63) # VERB 89 DESCRIPTION RENDEZVOUS FINAL ATTITUDE ROUTINE (R63)
#
# CALLED BY VERB 89 ENTER DURING P00. PRIO 10 IS USED. CALCULATES AND # CALLED BY VERB 89 ENTER DURING P00. PRIO 10 IS USED. CALCULATES AND
# DISPLAYS FINAL GIMBAL ANGLES TO POINT CSM +X AXIS OR PREFERRED AXIS # DISPLAYS FINAL GIMBAL ANGLES TO POINT CSM +X AXIS OR PREFERRED AXIS
# (UNIT(Z)COS55 DEG + UNIT(X)SIN55 DEG) AT LM. # (UNIT(Z)COS55 DEG + UNIT(X)SIN55 DEG) AT LM.
#
# 1. KEY IN V 89 E ONLY IF IN PROG 00. IF NOT IN P00, OPERATOR ERROR AND # 1. KEY IN V 89 E ONLY IF IN PROG 00. IF NOT IN P00, OPERATOR ERROR AND
# EXIT R63, OTHERWISE CONTINUE. # EXIT R63, OTHERWISE CONTINUE.
#
# 2. IF IN P00, DO IMU STATUS CHECK ROUTINE (R02BOTH). IF IMU ON AND ITS # 2. IF IN P00, DO IMU STATUS CHECK ROUTINE (R02BOTH). IF IMU ON AND ITS
# ORIENTATION KNOWN TO CGC, CONTINUE. # ORIENTATION KNOWN TO CGC, CONTINUE.
#
# 3. FLASH DISPLAY V 04 N 06. R2 INDICATES WHICH SPACECRAFT AXIS IS TO # 3. FLASH DISPLAY V 04 N 06. R2 INDICATES WHICH SPACECRAFT AXIS IS TO
# BE POINTED AT LM. INITIAL CHOICE IS PREFERRED AXIS (R2=1). # BE POINTED AT LM. INITIAL CHOICE IS PREFERRED AXIS. (R2=1).
# ASTRONAUT CAN CHANGE TO (+X) AXIS (R2 NOT= 1) BY V 22 E 2 E. CONTINUE # ASTRONAUT CAN CHANGE TO (+X) AXIS (R2 NOT= 1) BY V 22 E 2 E. CONTINUE
# AFTER KEYING IN PROCEED. # AFTER KEYING IN PROCEED.
#
# 4. SET PREFERRED ATTITUDE FLAG ACCORDING TO OPTION DESIRED. SET FLAG # 4. SET PREFERRED ATTITUDE FLAG ACCORDING TO OPTION DESIRED. SET FLAG
# FOR PREFERRED AXIS. RESET FLAG FOR X AXIS. # FOR PREFERRED AXIS. RESET FLAG FOR X AXIS.
#
# 5. CURRENT TIME IS STORED AND R63COMP IS CALLED # 5. CURRENT TIME IS STORED AND R63COMP IS CALLED
#
# R63COMP JOB: # R63COMP JOB:
#
# UPDATES CSM AND LM STATE VECTORS USING CONIC EQUATIONS. # UPDATES CSM AND LM STATE VECTORS USING CONIC EQUATIONS
#
# CALCULATES BOTH PREFERRED AND X AXIS TRACKING ATT FROM CSM TO LM. # CALCULATES BOTH PREFERRED AND X AXIS TRACKING ATT FROM CSM TO LM.
#
# DESIRED GIMBAL ANGLES AS INDICATED BY PREFERRED ATTITUDE FLAG # DESIRED GIMBAL ANGLES AS INDICATED BY PREFERRED ATTITUDE FLAG
# ARE STORED FOR LATER R60CSM CALL. # ARE STORED FOR LATER R60CSM CALL.
#
# 6. FLASH DISPLAY V 06 N18 AND AWAIT RESPONSE. # 6. FLASH DISPLAY V 06 N18 AND AWAIT RESPONSE.
#
# 7. RECYCLE: RETURN TO STEP 5. # 7. RECYCLE- RETURN TO STEP 5.
# TERMINATE: EXIT R63 ROUTINE # TERMINATE- EXIT R63 ROUTINE
# PROCEED: RESET 3AXISFLG AND CALL R60CSM FOR ATTITUDE MANEUVER. # PROCEED- RESET 3AXISFLG AND CALL R60CSM FOR ATTITUDE MANEUVER.
V89PERF TC CHKP00H # DEMAND P00 V89PERF TC CHKP00H # DEMAND P00
TC TESTXACT TC TESTXACT
INHINT INHINT
CAF PRIO10 CAF PRIO10
TC FINDVAC TC FINDVAC
SBANK= LOWSUPER # Added by RSB 2009.
EBANK= P21TIME EBANK= P21TIME
2CADR V89CALL 2CADR V89CALL
TCF ENDOFJOB TCF ENDOFJOB
WMATRXNG TC DOWNFLAG # RESET RENDWFLAG WMATRXNG TC DOWNFLAG # RESET RENDWFLG
ADRES RENDWFLG ADRES RENDWFLG
# Page 263 # Page 263
@ -1132,27 +1111,29 @@ ENDSUMS CA SKEEP6 # *
TC STSHOSUM # * START SHOWSUM AGAIN. TC STSHOSUM # * START SHOWSUM AGAIN.
# VB 76 --- SET PREFERRED ATTITUDE FLAG --- DRIVE TO PREFERRED. # VB 76 SET PREFERRED ATTITUDE FLAG - DRIVE TO PREFERRED.
SETPRFLG TC UPFLAG SETPRFLG TC UPFLAG
ADRES PRFTRKAT # BIT 10 FLAG 5 ADRES PRFTRKAT # BIT 10 FLAG 5
TC GOPIN TC GOPIN
# VB 77 --- RESET PREFERRED ATTITUDE FLAG --- DRIVE TO +X-AXIS ATT.
# VB 77 RESET PREFERRED ATTITUDE FLAG - DRIVE TO +X-AXIS ATT.
RESETPRF TC DOWNFLAG RESETPRF TC DOWNFLAG
ADRES PRFTRKAT # BIT 10 FLAG 5 ADRES PRFTRKAT # BIT 10 FLAG 5
TC GOPIN TC GOPIN
# Page 264 # Page 264
# VB 87 --- SET VHF RANGE FLAG --- ALLOWS R22 TO ACCEPT RANGE DATA. # VB 87 SET VHF RANGE FLAG - ALLOWS R22 TO ACCEPT RANGE DATA.
SETVHFLG TC INTPRET SETVHFLG TC INTPRET
SET EXIT SET EXIT
VHFRFLAG VHFRFLAG
TC GOPIN TC GOPIN
# VB 88 --- RESET VHF RANGE FLAG --- STOPS ACCEPTANCE OF RANGE DATA.
# VB 88 RESET VHF RANGE FLAG - STOPS ACCEPTANCE OF RANGE DATA.
RESETVHF TC INTPRET RESETVHF TC INTPRET
CLEAR EXIT CLEAR EXIT
@ -1161,7 +1142,8 @@ RESETVHF TC INTPRET
TC GOPIN TC GOPIN
# VERB 66. VEHICLES ARE ATTACHED. --- MOVE THIS VEHICLE STATE VECTOR TO
# VERB 66. VEHICLES ARE ATTACHED.- MOVE THIS VEHICLE STATE VECTOR TO
# OTHER VEHICLE STATE VECTOR. # OTHER VEHICLE STATE VECTOR.
# USE SUBROUTINE GENTRAN. # USE SUBROUTINE GENTRAN.
@ -1213,7 +1195,7 @@ TCPIN RTB
OCT51 OCT 51 OCT51 OCT 51
TCPINAD CADR TCPIN TCPINAD CADR TCPIN
# VERB 47. MOVE LM STATE VECTOR INTO CSM STATE VECTOR # VERB 47 MOVE LM STATE VECTOR INTO CSM STATE VECTOR.
LMTOCMSV CAF PRIO10 LMTOCMSV CAF PRIO10
TC FINDVAC TC FINDVAC
@ -1240,20 +1222,20 @@ LMTOCM TC INTPRET
TCF TACHEXIT TCF TACHEXIT
# VERB 94 --- DO R64 VIA ENEMA TO PICK UP IN P23. # VERB 94 DO R64 VIA ENEMA TO PICK UP IN P23.
VERB94 CAF V94FLBIT VERB94 CAF V94FLBIT
MASK FLAGWRD9 # IS V94FLAG SET MASK FLAGWRD9 # IS V94FLAG SET
# Page 266 # Page 266
EXTEND EXTEND
BZF ALM/END # NO --- OPERATOR ERROR BZF ALM/END # NO - OPERATOR ERROR
TC DOWNFLAG TC DOWNFLAG
ADRES V94FLAG ADRES V94FLAG
TC CHECKMM # IS IT P23 TC CHECKMM # IS IT P23
MM 23 MM 23
TC ALM/END # NO -- OPERATOR ERROR TC ALM/END # NO - OPERATOR ERROR
TC PHASCHNG TC PHASCHNG
OCT 112 # SET GROUP 2 TO DO R64 OCT 112 # SET GROUP 2 TO DO R64
@ -1261,26 +1243,22 @@ VERB94 CAF V94FLBIT
# V90PERF VERB 90 DESCRIPTION # V90PERF VERB 90 DESCRIPTION
# REQUEST RENDEZVOUS OUT-OF-PLANE DISPLAY (R36) # REQUEST RENDEZVOUS OUT-OF-PLANE DISPLAY (R36)
#
# 1. SET EXT VERB DISPLAY BUSY FLAG. # 1. SET EXT VERB DISPLAY BUSY FLAG.
# 2. SCHEDULE R36 CALL WITH PRIORITY 10 # 2. SCHEDULE R36 CALL WITH PRIORITY 10
# A. DISPLAY # A. DISPLAY
# TIME OF EVENT -- HOURS, MINUTES, SECONDS # TIME OF EVENT - HOURS , MINUTES , SECONDS
# Y OUT-OF-PLANE POSITION -- NAUTICAL MILES # Y OUT-OF-PLANE POSITION - NAUTICAL MILES
# YDOT OUT-OF-PLANE VELOCITY -- FEET/SECOND # YDOT OUT-OF-PLANE VELOCITY - FEET/SECOND
# PSI ANGLE BTW LINE OF SIGHT AND FORWARD # PSI ANGLE BTW LINE OF SIGHT AND FORWARD
# DIRECTION VECTOR IN HORIZONTAL PLANE -- DEGREES # DIRECTION VECTOR IN HORIZONTAL PLANE - DEGREES
V90PERF TC TESTXACT V90PERF TC TESTXACT
CAF PRIO7 # R36,V90 CAF PRIO7 # R36,V90
TC FINDVAC TC FINDVAC
SBANK= PINSUPER # Added RSB 2009
EBANK= RPASS36 EBANK= RPASS36
2CADR R36 2CADR R36
TCF ENDOFJOB TCF ENDOFJOB
# VERB 96 SET QUITFLAG TO STOP INTEGRATION.
# VERB 96 SET QUITFLAG TO STOP INTEGRATION
VERB96 TC UPFLAG # QUITFLAG WILL CAUSE INTEGRATION TO EXIT VERB96 TC UPFLAG # QUITFLAG WILL CAUSE INTEGRATION TO EXIT
ADRES QUITFLAG # AT NEXT TIMESTEP ADRES QUITFLAG # AT NEXT TIMESTEP
@ -1312,6 +1290,7 @@ V52 TC CHECKMM # IS P22 OPERATING
ADS LANDMARK ADS LANDMARK
TC GOPIN TC GOPIN
LANDBANK ECADR LANDMARK LANDBANK ECADR LANDMARK
#
# VERB 67 ASTRONAUT DISPLAY OF W MATRIX # VERB 67 ASTRONAUT DISPLAY OF W MATRIX
@ -1322,14 +1301,14 @@ V67 TC TESTXACT
2CADR V67CALL 2CADR V67CALL
TC ENDOFJOB TC ENDOFJOB
# VB 44. SET SURFACE FLAG. # VB 44. SET SURFACE FLAG.
SETSURF TC UPFLAG SETSURF TC UPFLAG
ADRES SURFFLAG ADRES SURFFLAG
TCF GOPIN TCF GOPIN
# VB 45. RESET SURFACE FLAG
# VB 45. RESET SURFACE FLAG.
RESTSRF TC DOWNFLAG RESTSRF TC DOWNFLAG
ADRES SURFFLAG ADRES SURFFLAG