Quelle  EXTENDED_VERBS.agc   Sprache: Apollo

# Copyright: Public domain.
# Filename: EXTENDED_VERBS.agc
# Purpose:  Part of the source code for Luminary 1A build 099.
# It is part of the source code for the Lunar Module's (LM)
# Apollo Guidance Computer (AGC), for Apollo 11.
# Assembler: yaYUL
# Contact: Ron Burkey <info@sandroid.org>.
# Website: www.ibiblio.org/apollo.
# Pages: 262-300
# Mod history:  2009-05-10 SN   (Sergio Navarro).  Started adapting
# Contact: Ron Burkey <info@sandroid.org>.
# name, using Luminary099 page images.
# 2009-06-05 RSB Corrected 5 typos.
# 2009-06-06 RSB Eliminated an extraneous 3-instruction block
# and added a missing instruction.
# 2009-06-07 RSB Added a couple of "SBANK=" for compatibility
# with yaYUL. Corrected a typo.
# 2010-12-31 JL Fixed page number comments.
# 2011-01-06 JL Added missing comment characters.
# 2011-05-08 JL Flagged SBANK= workarounds for future removal.
# 2011-01-06 JL Added missing comment characters.# 2011-05-08 JL Flagged SBANK= workarounds for future removal.
# This source code has been transcribed or otherwise adapted from
# digitized images of a hardcopy from the MIT Museum.  The digitization
# was performed by Paul Fjeld, and arranged for by Deborah Douglas of
# the Museum.  Many thanks to both.  The images (with suitable reduction
# in storage size and consequent reduction in image quality as well) are
# available online at www.ibiblio.org/apollo.  If for some reason you
# find that the images are illegible, contact me at info@sandroid.org
# about getting access to the (much) higher-quality images which Paul
# actually created.
#
# Notations on the hardcopy document read, in part:
#
# Assemble revision 001 of AGC program LMY99 by NASA 2021112-061
# 16:27 JULY 14, 1969

# Page 262
 # #
  SETLOC 7
 BANK

 =OGCEBANK 

 COUNT*$/XTVB

# FAN-OUT

GOEXTVB  INDEX MPAC  # VERB-40 IS IN MPAC
  TC LST2FAN  # FAN AS BEFORE.

LST2FAN  TC VBZERO  # VB40 ZERO (USED WITH NOUN 20 OR 72 ONLY)
  TC VBCOARK  # VB41 COARSE ALIGN (USED WITH NOUN 20 OR
     # 72 ONLY)
  TC IMUFINEK # VB42 FINE ALIGN IMU
  TC  TC IMUATTCKPublic domain. Filename: Part of the source code # It is part of the source code for the Lunar Module#  Apollo Guidance java.lang.StringIndexOutOfBoundsException: Index 21 out of bounds for length 18
 # 2. RE-DISPLAY VERB 41.
#    
  4. RELEASE EXT VERB DISPLAY SYS.
  TC# 1. FLASH V04 N12 R1 = 00006 R2 = 00002 java.lang.StringIndexOutOfBoundsException: Range [5, 4) out of bounds for length 52
  java.lang.StringIndexOutOfBoundsException: Range [13, 12) out of bounds for length 34
  TC
  TC  TCVERB69 VERB69  # VB69 FORCE A HARDWARE RESTART
  TC ALM/TC V71UPDATjava.lang.StringIndexOutOfBoundsException: Index 55 out of bounds for length 55
 TCGOLOADLV#
  TC GOLOADLV # VB53 PLEASE MARK Y -- RETICLE.
  TC GOLOADLV # VB54 PLEASE MARK X OR Y RETICLE
  TCALINTIME # VB55 ALIGN TIME
  TC TRMTRACK # VB56 TERMINATE TRACKING -- P20 + P25
  TCLRON # VB57 PERMIT LANDING RADAR UPDATES  # FOR ERASABLE DUMP.
  TC LROFF  # VB58 INHIBIT LANDING RADAR UPDATES
  TC  / CADR IMUCOARS
  TC   # VB60 COMMAND LR TO POSITION 2.
ATTER
  TCLEMVEC IMUSTALL
  CSMVECCSMVEC #java.lang.StringIndexOutOfBoundsException: Index 13 out of bounds for length 13
 VB64 # VB64 CALCULATE, DISPLAY S-BAND ANT ANGLES
  TC SNUFFOUT # VB65 DISABLE U,V JETS DURING DPS BURNS.
  TC ATTACHED # VB66 ATTACHED   MOVE THIS TO OTHER STATE
  
  TC ALM/END  # VB68 SPARE
 TC ALM/ND#
  TCTC ALM/ND#java.lang.StringIndexOutOfBoundsException: Index 26 out of bounds for length 26
  TC V71UPDAT # VB71 UNIVERSAL UPDATE -- BLOCK ADDRESS.  V89PERF # VB89 ALIGN XORZ LEM AXIS ALONG LOS (R63) TC TCV90PERF # VB90 OUT OF PLANE RENDEZVOUS DISPLAY
 TC  # VB72 UNIVERSAL UPDATE -- SINGLE ADDRESS.
  TC V73UPDAT  UPDATOFF
  TCDNEDUMP # VB74 INITIALIZE DOWN-TELEMETRY PROGRAM
     OCT41000  # TERMINATE PRESENT DESIGNATION
UFF# VB75 ENABLE U,V JETS DURING DPS BURNS.
# Page 263
   MINIMP   VB76 MINIMUM IMPULSE MODE MASK RADMODES  
  TC TS RADMODES
java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
  TCR77ENDjava.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
  TESTXACT EXTVBACT # ARE EXTENDED VERBS BUSY
  TC CSMVEC # VB81 UPDATE CSM STATE VECTOR
  TC CA  # ARE PRIORITY DISPLAYS USING DSKY
   MAOC24100
  TC    
 ALM/  # YES
  TC ALMEND CAF OCT24 # SET BITS 3 AND 5
  ALM  # VB87 SPARE
  TC ALM/END  # VB88 SPARE
  TC V89PERF  # VB89 ALIGN XORZ LEM AXIS ALONG LOS (R63)
 V90PERF  # VB90 OUT OF PLANE RENDEZVOUS DISPLAY TCF -  # V33
  TCGOSHOSUM # VB91 DISPLAY BANK SUM. VB91 DISPLAY TC java.lang.StringIndexOutOfBoundsException: Index 10 out of bounds for length 10
  XACTALM TCFALTON 
   TC  AURLOKON
  TC ALM/java.lang.StringIndexOutOfBoundsException: Range [0, 12) out of bounds for length 0
  TC UPDATOFF # # Page 
 ACT0  # RELEASE MARK AND EXT. VERB DISPLAY SYS. SETXTACT
  TC   VB97 PLEASE VERIFY ENGINE FAILURE
java.lang.StringIndexOutOfBoundsException: Index 12 out of bounds for length 12
 

# END OF EXTENDED VERB FAN

java.lang.StringIndexOutOfBoundsException: Index 9 out of bounds for length 9
 END  java.lang.StringIndexOutOfBoundsException: Range [43, 20) out of bounds for length 43
  24100  24100
# # VBZERO #
  CCS A
  TC ALM/# 2. FOR N20, CHECK IMUCADR IN AN EFFORT TO AVOID A 1210 RESTART.
 . EXECUTE#
SETXTACT# .DON'NG THE 
TEM

  CA Q
  TS MPAC +1

  CS TWO  # BLANK EVERYTHING EXCEPT MM AND VERB
  TCIMUZEROK CKMODCAD
  TC +1
  TC MPAC +1

XACTALM  TC java.lang.StringIndexOutOfBoundsException: Index 16 out of bounds for length 14
 TCENDEXT # RELEASE MARK AND EXT. VERB DISPLAY SYS.

TERMEXTV 
# Page 264
NDEXTVB EQUALS ENDEXT

XACT0  CAF ZERO  # RELEASE MARK AND EXT. VERB DISPLAY SYS.
  TC SETXTACT

LM/ND   
GOPIN  TC POSTJUMP
  CADR PINBRNCH

 CCS A
  EXTEND
  BZF
RWAITK  TC BANKCALL

 CADR 

# Page 265
# VBZERO VERB 40 DESCRIPTION
#
# 1.  REQUIRE NOUN 20 (ICDU ANGLES) OR NOUN 72 (RCDU ANGLES).
# 2. FOR N20, CHECK IMUCADR IN AN EFFORT TO AVOID A 1210 RESTART.
# FOR N72, CHECK IF EITHER RADAR IS IN USE.
# 3. EXECUTE THE CDU ZERO.
# 4. STALL UNTILL THE ZERO IS DONE.
# 5. DON'T DIFFERENTIATE BETWEEN A BAD OR GOOD RETURN.
# 6. EXIT, RE-ESTABLISHING THE INTERRUPTED DISPLAY (IF ANY).

VBZERO  # PRESCRIBED # THE PRESCRIBED TIME.ISPLAYS.
  TC IMUZEROK # RETURN HERE IF NOUN = ICDU(20)
  TC RRZEROK  # COMMAND LR TO POSITION 2
IMUZEROK TC java.lang.StringIndexOutOfBoundsException: Index 14 out of bounds for length 13
 L# KEYBOARDREQjava.lang.StringIndexOutOfBoundsException: Range [28, 15) out of bounds for length 15
 # 3. SETjava.lang.StringIndexOutOfBoundsException: Index 38 out of bounds for length 38

  TC BANKCALL # STALL
  RELEASE EXTVERBjava.lang.StringIndexOutOfBoundsException: Index 24 out of bounds for length 13
  TC +1

  TC GOPIN# ICORK2

RRZEROK  TC RDRUSECK
  TC BANKCALL
  CADR RRZERO

RWAITK  TC #    CASE 2 NOUN 72 (RCDU ANGLES)
  CADR RADSTALL
  TCF +1# RESPONSES
  TC  # RRZERO

# LRPOS2K VERB 60 DESCRIPTION
# COMMAND LANDING RADAR TO POSITION 2
#
# 1. EXIT WITH OP ERROR IF SOMEONE IS USING EITHER RADAR.
# 2. ALARM WITH CODE 523 IF POS 2 IS NOT INDICATED WITHIN
# THE PRESCRIBED TIME.
# 3. RE-ESTABLISH THE DISPLAYS.

TC RDRUSECK
  TC BANKCALL # COMMAND LR TO POSITION 2
  CADR LRPOS2
  TC
  CADR RADSTALL
  TC LRP2ALM
# 1. SET LOCK-ON SWITCH

VBCOARKTCOP/INERT
  OCT523
  TC GOPIN


# V61 VERB 61, DISPLAY DAP ATTITUDE ERRORS ON FDAI ATTITUDE ERROR NEEDLES.

DAPATTER TC DOWNFLAG
 OP/NERT   BANK
  TC GOPIN

# V62 VERB 62, DISPLAY TOTAL ATTITUDE ERRORS ON FDAI ATTITUDE ERROR NEEDLES.

TOTATTERTC 
  EXTEND
  TC GOPIN

# Page 267
# VBCOARK VERB 41 DESCRIPTION
# COARSE ALIGN IMU OR RADAR
#
# 1. REQUIRE NOUN 20 OR NOUN 72 OR TURN ON OPERATOR ERROR.
# 2. REQUIRE EXT VERB DISPLAY SYS AVAILABLE OR TURN ON OPERATOR ERROR LIGHT AND GO TO PINBRNCH.
# CASE 1, NOUN 20 (ICDU ANGLES)
# 3. SET EXT VERB DISPLAY ACTIVE FLAG.
# 4. DISPLAY FLASHING V25,N22 (LOAD NEW ICDU ANGLES).
# RESPONSES
# A. TERMINATE
# 1. RELEASE EXT VERB DISPLAY SYSTEM
# B. PROCEED
# 1. COARSE ALIGN TO THE EXISTING THETAD'S (ICORK2).
# C. ENTER
# 1. COARSE ALIGN TO THE LOADED THETAD'S (ICORK2).
# ICORK2
# 1. RE-DISPLAY VERB 41.
# 2. EXECUTE IMUCCARS (IMU COARSE ALIGN).
# 3. EXECUTE IMUSTALL (ALLOW TIME FOR DATA TRANSFER).
# 4. RELEASE EXT VERB DISPLAY SYSTEM.
# CASE 2 NOUN 72 (RCDU ANGLES)
# EXIT WITH OP ERROR IF SOMEONE IS USING EITHER RADAD.
# 5. DISPLAY FLASHING V24,N73 (LOAD NEW RR TRUNION ANGLE AND NEW SHAFT ANGLE).
# RESPONSES
# A. TERMINATE
# 1. RELEASE EXT VERB DISPLAY SYS.
# B. PROCEED OR ENTER
# 1. EXECUTE AURLOKON (ASK OPERATOR FOR LOCK-ON REQUIREMENTS).
# 2. RE-DISPLAY VERB 41.
# 3. SCHEDULE RRDESK2 WITH PRIORITY 20.
# 4. RELEASE EXT VERB DISPLAY SYS.
# AURLOKON
# 1. FLASH V04 N12 R1 = 00006 R2 = 00002
# RESPONSES
# A. TERMINATE
# B. PROCEED
# 1. RESET LOCK-ON SWITCH
# 2. SET CONTINUOUS DESIGNATE FLAG
# 3. DISABLE R25
# C. V22 E 1 E, R1 = 00001, PROCEED
# 1. SET LOCK-ON SWITCH

 java.lang.StringIndexOutOfBoundsException: Range [13, 14) out of bounds for length 13
  TC  MASKBIT2
IMUCOARVVN4100

# RETURNS TO L+1 IF IMU OR L+2 IF RR.

OP/INERT java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
  AD NOUNREG
   CA RNDVZBIT ?
# Page 268
 TCQ #

 ADSjava.lang.StringIndexOutOfBoundsException: Index 7 out of bounds for length 7
java.lang.StringIndexOutOfBoundsException: Index 11 out of bounds for length 8
  BZF Q+1

   INHINT  # RELINT DONE IN GOXDSPF

DEC- java.lang.StringIndexOutOfBoundsException: Index 28 out of bounds for length 28
IMUCOARK  TS RADMODES
   TC UPFLAG   # WANTED (TO BE TERMINATED BY V44.)
 CAFVNLODCDU  # CALL FOR THETAD LOAD
java.lang.StringIndexOutOfBoundsException: Index 13 out of bounds for length 13
  CADR 
  TC TERMEXTV
  TCF +1

ICORK2  CAF IMUCOARV  # RE-DISPLAY COARSE ALIGN VERB.
  TC BANKCALL
  CADR EXDSPRET

  TC BANKCALL  # CALL MODE SWITCHING PROG
  CADR IMUCOARS

  TC BANKCALL  # STALL
  CADR IMUSTALL
  TC ENDEXTVB
  TC ENDEXTVB

VNLODCDU VN 2522
IMUCOARV VN 4100

# Page 269
# DESIGNATE TO DESIRED GIMBAL ANGLES.

RRDESNBK TC RDRUSECK
  TC TESTXACT
  CA  TCF BANKJUMP
  java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
  CCS A
  TCF XACTALM   -LOKONFG OCT -20
  CS OCT41000  # TERMINATE PRESENT DESIGNATION
     # RELINT DONE IN java.lang.StringIndexOutOfBoundsException: Range [36, 37) out of bounds for length 36
  MASK RADMODES
  TS RADMODES

  CAF VNLDRCDU  # ASK FOR GIMBAL ANGLES.

  CADR GOXDSPF
  TC java.lang.StringIndexOutOfBoundsException: Index 8 out of bounds for length 0
  TCF -4java.lang.StringIndexOutOfBoundsException: Range [8, 7) out of bounds for length 13

 CAF   # RE-DISPLAY OUR OWN VERB
  CADR  CADR EXDSPRET

   OPTCOARV # RE-DISPLAY OUR OWN VERB
  TC BANKCALL
  CADR EXDSPRET

  CAF PRIO20
  TC 2CADRRRDESK2
 EBANK=LOSCOUNT


  TCF TERMEXTV  # FREES DISPLAY

VNLDRCDU VN 2473
OPTCOARVTC BANKCALL

RRDESK2 TC#ENTER
  CADR # 1. RE-DISPLAY VERB 42

  +  # DUMMY NEEDED SINCE DESRETRN DOES INCR
  CA# 3. EXECUTE IMUSTALL (ALLOW FOR DATA TRANSFER)
  LOW9
 CCSA
  INDEX A
  TS A   # RELEASE THIS JOBS VAC AREA. INDEX A
 #   1.EXECUTE IMUPULSE TORQUE IRIGS)
  ADS PRIORITY  
  
 RADSTALL
# Page 270
  TC  Page 270 BADEND-NO LOCKON OR OUT OF LIMITS# GOODEND-LOCKON ACHIEVED
  TC  503   TURN ON ALARM LIGHT -503 DESIGNATE FAIL
  TC ALARM
  OCT 503RRDESEND  RADMODES #

   ENDOFJOBTCF GOPIN

RRDESEND CCS  CSOCT41000java.lang.StringIndexOutOfBoundsException: Index 15 out of bounds for length 14

  TCF GOPIN
  TCF +
  CS OCT41000   V  TC CLRADMOD
 INHINTTCBANKCALL
  MASKRADMODES
  TS RADMODES
 TCCLRADMOD
 CAF1SEC
  TCTC  GOPIN
  CADR DELAYJOB
  TC DOWNFLAG  # ENABLE R25 GIMBAL MONITOR
   
TCFjava.lang.StringIndexOutOfBoundsException: Range [11, 12) out of bounds for length 11
OCT41000  DESRET

# Page 271
  BANK 23
 X#
  BANK
$$EXTVB

AURLOKON TC java.lang.StringIndexOutOfBoundsException: Index 18 out of bounds for length 15
 TC BANKCALL# R2 00001 LOCK-ON
TWO
  +1
   CAFSIX  #java.lang.StringIndexOutOfBoundsException: Index 36 out of bounds for length 36
  TS OPTIONX

 -5  CAF V04N1272
 TC BANKCALL #
  CADR GOMARKFR
  TCF ENDEXT   # V34
  TC 
  TCF java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
  CAF VNLODGYR VN 2593
  TC BLANKET
  TC ENDOFJOB

 +5  CA OPTIONX +1

   java.lang.StringIndexOutOfBoundsException: Range [14, 14) out of bounds for length 10
  TCFNOLOKON
  TC UPFLAG
    UPFLAG#
  TCF AURLKON1

 DOWNFLAG #java.lang.StringIndexOutOfBoundsException: Index 63 out of bounds for length 63
  ADRES LOKONSW   # INDICATE THAT CONTINUOUS DESIGNATION IS
  TC    # WANTED (TO BE TERMINATED BY V44.)
  ADRES CDESFLAG
  TC UPFLAG    TC UPFLAG # SET NO RR ANGLE MONITOR FLAG.
  ADRES NORRMON   ADRES NORRMON  #
AURLKON1 RELINT
  CA DESRET#
  TCF# 1. PRESSING ENTER ON DSKY INDICATES REQUESTED ACTION HAS BEEN PERFORMED, AND THE PROGRAM DOES THE

V04N1272 VN 412
-OKONFG OCT-java.lang.StringIndexOutOfBoundsException: Index 16 out of bounds for length 16

  BANK 43
  java.lang.StringIndexOutOfBoundsException: Index 6 out of bounds for length 6
 BANK
  COUNT* $$/EXTVB

LRONjava.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0

# Page 272
  ADRES LRINH
  TCF  TCF GOPIN

    OFV58
  ADRES LRINH
  TCFES LRINH

  OGC

# Page 273

# IMUFINEK VERB 42 DESCRIPTION
# FINE ALIGN IMU
#
# 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....
# RESPONSES
# A. TERMINATE
# 1. RELEASE EXT VERB DISPLAY SYSTEM.
# B. PROCEED OR ENTER
# 1. RE-DISPLAY VERB 42
# 2. EXECUTE IMUFINE (IMU FIVE ALIGN MODE SWITCHING).
# 3. EXECUTE IMUSTALL (ALLOW FOR DATA TRANSFER)
# A. FAILED
# 1.  RELEASE EXT VERB DISPLAY SYSTEM.
# B. GOOD
# 1. EXECUTE IMUPULSE (TORQUE IRIGS).
# 2. EXECUTE IMUSTALL AND RELEASE EXT VERB DISPLAY SYSTEM.

IMUFINEK TC CKMODCAD
  TC TESTXACT  # FINE ALIGN WITH GYRO TORQUING. TC TESTXACT  # FINE ALIGN WITH GYRO TORQUING.
   VNLODGYR#
  TC BANKCALL
  CADR GOXDSPF
  TC TERMEXTV
  TC +  2 CADR GOXDSPF

  CAF IMUFINEV  # RE-DISPLAY OUR OWN VERB
  TC BANKCALL
  CADRjava.lang.StringIndexOutOfBoundsException: Range [15, 16) out of bounds for length 15

 TCDRIMUSTALL
   TC Ejava.lang.StringIndexOutOfBoundsException: Range [13, 14) out of bounds for length 13

  TC BANKCALL# Page 275
  IMUSTALL
  TC ENDEXTVB

 TC# 1SETEXT DISPLAY  FLAGjava.lang.StringIndexOutOfBoundsException: Index 36 out of bounds for length 36
  BANKCALL
 CADR IMUPULSE

 TCBANKCALL  # WAIT FOR PULSES TO GET OUT.
  CADR IMUSTALL
  TC java.lang.StringIndexOutOfBoundsException: Range [0, 13) out of bounds for length 0
  TC ENDEXTVB

IMUFINEV VN 4200
 VN 2593
IMUFINEV VN# Page 274
#
# GOLOADLV VERB 50 DESCRIPTION
# AND OTHER PLEASE
# Page 274
# DO SOMETHING VERBS
#
# PLEASE PERFORM, MARK, CALIBRATE, ETC.
#
# 1. PRESSING ENTER ON DSKY INDICATES REQUESTED ACTION HAS BEEN PERFORMED, AND THE PROGRAM DOES THE
# SAME RECALL AS A COMPLETED LOAD.
# 2. THE EXECUTION OF A VERB 33 (PROCEED WITHOUT DATA) INDICATES THE REQUESTED ACTION IS NOT DESIRED.

=  FOR LOADLV1 AND SHOWSUM CADR'S LOADLV1  SHOWSUM CADR'



   
 
  SUPERBNK
 TC 
 

# VERB 47 -- AGS INITIALIZATION -- R47.
#
# SEE LOG SECTION AGS INITIALIZATION FOR OTHER PERTINENT REMARKS.

V47TXACT TC TESTXACT # NO OTHER EXTVERB.
  CAF PRIO4
  TCFINDVAC
## [WORKAROUND] RSB 2009
   LOWSUPER
## [WORKAROUND]
  EBANK 
 2 AGSINIT

  TC ENDOFJOB

  C  AGSINIT
  EXTEND
  BZF TCQ
  TC ALM/END  # SOMEBODY IS USING MODECADR SO EXIT

# Page 275
# ALINTIME VERB 55 DESCRIPTION
# REQUIRE P00 OR P00-.
#
# 1. SET EXT VERB DISPLAY BUSY FLAG.
# 2. DISPLAY FLASHING V25,N24 (LOAD DELTA TIME FOR AGC CLOCK.
# 3. REQUIRE EXECUTION OF VERB 23.
# 4. ADD DELTA TIME, RECEIVED FROM INPUT REGISTER, TO THE COMPUTER TIME.
# 5. RELEASE EXT VERB DISPLAY SYSTEM

ALINTIME TC   2. DISPLAY FLASHING V25,N24 (LOAD DELTA TIME FOR AGC CLOCK.
  # 4. ADD DELTA TIME, RECEIVED FROM INPUT REGISTER, TO THE COMPUTER TIME.
# 5. RELEASE EXT VERB DISPLAY SYSTEM

  42
  SETLOC SBAND
 BANK
  COUNT*$java.lang.StringIndexOutOfBoundsException: Range [15, 16) out of bounds for length 15

R33  R33 CAFPRIO7
 
  CAF VNLODDT 
TCBANKCALL
  CADR GOXDSPF GOXDSPF
java.lang.StringIndexOutOfBoundsException: Index 11 out of bounds for length 0
 TC # PROCEED
     DEC23
  AD MPAC  # RECALL LEFT VERB IN MPAC
   
  BZF UPDATIME # GO AHEAD WITH UPDATE ONLY IF RECALL
  TC ENDEXT  # WITH V23 (DATA IN).

UPDATIME
  CAF 
  BZF   GO AHEAD WITH UPDATE ONLY IF RECALL
 TS   ZERO T1 + 2 WHILE ALIGNING.
   
 MPAC
  DXCH java.lang.StringIndexOutOfBoundsException: Range [12, 4) out of bounds for length 35
  DAS 

  TC TPAGREE  # FORCE SIGN AGREEMENT.java.lang.StringIndexOutOfBoundsException: Range [0, 6) out of bounds for length 0
 DXCH java.lang.StringIndexOutOfBoundsException: Index 17 out of bounds for length 17
  TIME2
  RELINT
UPDTMEND TCENDEXT

 DEC23java.lang.StringIndexOutOfBoundsException: Index 1 out of bounds for length 0

VNLODDT  

# Page 276
# SET UP FOR RADAR SAMPLING.

  BANK 42 RELINT

  BANK

 java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0

  COUNT* $$/R0477

R77# SET UPFOR java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
SR04 ?
  MASK 
 
  / #
  TC UPFLAG TC ALM/END
  ADRES R77FLAG
  R04Z

R04  TC RDRUSECK TC  R77java.lang.StringIndexOutOfBoundsException: Range [15, 16) out of bounds for length 15
  
    java.lang.StringIndexOutOfBoundsException: Index 7 out of bounds for length 7
  ADRES R04FLAG  # SET R04FLAG FOR ALARMS

R04Z   java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
  TS EBANK
   1SECR04Z CAFEBANK4
  RSAMPDT
  CAF ZERO
 TS RTSTLOC
  TS  ADRES R04FLAG#

  R04Z CAF EBANK4
 CS  # INITIALIZE
  RADMODES 
  TS RADMODES # BIT 6 LR POS 1 =0
  CAF 
  EXTEND
  RAND CHAN33
  ADS RADMODES
  RELINT

  CS SK #
  MASK R04FLBIT
  CCS A
  TCF R04K

   #
  TS OPTIONX  
R04A CAFBIT3  # OPTION CODE FOR V04N12# OPTION CODE FOR V04N12

# Page 277
 TS 
   V04N12X
  TC BANKCALL # R2 00001 RENDEZVOUS RADAR
  CADR  INDICATES RENDEZVOUS DESIRED
  R04K
java.lang.StringIndexOutOfBoundsException: Index 1 out of bounds for length 0
  TCF R04A  +2 java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
 CAFBIT3TS
BLANKET
  

 + # SAVE DESIRED OPTION RR =1 LR =2
  TS RTSTDEX

04   SIX# RR OR LR DESIRED
  
  java.lang.StringIndexOutOfBoundsException: Index 7 out of bounds for length 7
  TCFjava.lang.StringIndexOutOfBoundsException: Index 12 out of bounds for length 12
  TS   1

 CAF  IS RR AUTO MODE DISCRETE PRESENT  PRESENT
  EXTEND
   
  EXTEND
 BZF  # YES

 201R04# REQUEST SELECTION OF RR AUTO MODE
  TS DSPTEM1
  CAF
  TC java.lang.StringIndexOutOfBoundsException: Index 13 out of bounds for length 13
   GOMARK4
  TCF R04END  # V34
# V33
- # E

R04C 
  
  CHAN12

  CAF TWO
  TS RTSTMAX BZF R04C # YES

  TCWAITLIST
## [WORKAROUND] RSB 2009
  SBANK=  TCF -    BANKCALL
## [WORKAROUND]
  EBANK= RSTACK
  2CADRRADSAMP

  RELINT

  CSCAFTWO
  MASK R04FLBIT
# Page 278
  CCS A
  TCF  =

  SIX TCF # E
  MASK RTSTDEX
  CCS A
   RELINT

 V16N72  
  TC BANKCALL # R1 + XXX.XX DEG TRUNNION MASK 
  CADR GOMARKF    
  TCF  # RR OR LR
 + # V33
  TCF R04RR  # V32

   java.lang.StringIndexOutOfBoundsException: Range [12, 11) out of bounds for length 17
  TC BANKCALL # R1 +- XXX.XX NM RANGE
  CADR  TCWAITLIST  java.lang.StringIndexOutOfBoundsException: Range [7, 6) out of bounds for length 40
  TCF R04END  # V34 R3    BLANK
  TCF TCF   # V33
   # V32

R04LR R04LRCAF # DISPLAY RANGEANDPOSITON(/SECjava.lang.StringIndexOutOfBoundsException: Index 57 out of bounds for length 57
  TC BANKCALL # R1 +- XXXXX, FT LR RANGE
  CADR GOMARKF  # R2 +  0000X.  POS. NO.
  TCF R04ENDTCF  2 
  TCF +2  # V33
  TCF R04LR  # V32

  CAF V16N67  # DISPLAY LR VELX, VELY, VELZ (1/SEC)   
  TC 
  # R2 +- XXXXX. FPS LR V(Y)
  TCF R04END  
  TCF R04Y   java.lang.StringIndexOutOfBoundsException: Index 1 out of bounds for length 0
   

R04Y  CAF ZERO  # TO TERMINATE SAMPLING.
   
  CAF 2SECS  # WAIT FOR LAST RADARUP
  TC
  CADR
  MASK
  TS RSAMPDT
 CAF FOR STORING RESULTS
  TS RTSTLOC
  CAF SIX
  # Page 279
  TCF  -
  CS   R04YMS1 
   TSRSAMPDT
# Page 279

  TCF CAF  CAFTWO

R04K  CAF 250MS+1  # SAMPLE 4 LR COMPONENTS PER SECOND.
    RSAMPDT

R04LCAFTWO   RSAMPDT  # TO TERMINATE SAMPLING
  TS  # FOR LR BASE =2, MAX =3
  CAFSIX
  TCF  +4
R04END  CAF   DELAYJOB
  TS RSAMPDT  # TO TERMINATE SAMPLING
  CAF java.lang.StringIndexOutOfBoundsException: Index 8 out of bounds for length 0
  TC   R04END # V34 R3 +- XXXXX. FPS  LR V(Z)
  CADR 

  INHINT
  BIT14# DISABLE RR AUTO TRACKER.
  EXTEND


  TC DOWNFLAG
 ADRES java.lang.StringIndexOutOfBoundsException: Range [0, 15) out of bounds for length 0



R77END  CAF 
  TS EBANK
java.lang.StringIndexOutOfBoundsException: Range [29, 10) out of bounds for length 10
  TS RSAMPDT
 V16N66 1666
  TC java.lang.StringIndexOutOfBoundsException: Index 15 out of bounds for length 15
  CADR DELAYJOB

  TC DOWNFLAG
  ADRES 
  TCF GOPIN

V16N72# Page 279
V16N78  VN 1TCFR04X-
  VN250+
V16N67  VN 1667
V04N12X  VN 412
TS RTSTBASE# FOR LR BASE =2, MAX =3# Page 280
201 OCT00201
 CAFZERO#
 CCSA
SCAL  444

# Page 280
RDRUSECK 
java.lang.StringIndexOutOfBoundsException: Range [29, 15) out of bounds for length 15
  CCS A
  TC ALM   # DISABLE RR AUTO TRACKER.
  CA  java.lang.StringIndexOutOfBoundsException: Range [7, 6) out of bounds for length 13
   Ajava.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
 CCS   #java.lang.StringIndexOutOfBoundsException: Index 31 out of bounds for length 31
  TC ALM/  java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
  CS FLAGWRD7 # IS SERVICER RUNNING AND HENCE POSSIBLY
  MASK V37FLBIT A
 TCF 
  TCF CHECKRR CHECKRR  # NO
  CS 
  MASK LRBYBIT
  CCS A
 TCALM
 FLAGWRD1 # IS THE TRACK FLAG SET AND HENCE POSSIBLY
  MASK java.lang.StringIndexOutOfBoundsException: Index 12 out of bounds for length 0
  CCS 
 TCF CHECKP22 # NO, CHECK FOR P22.

CKRNDBIT CA FLAGWRD0 # YES, BUT IS IT P25?
  MASK RNDVZBIT
  CCS 
java.lang.StringIndexOutOfBoundsException: Range [13, 14) out of bounds for length 13
 MODREG
C22
 EXTEND
 BZFALM/java.lang.StringIndexOutOfBoundsException: Range [0, 13) out of bounds for length 0
java.lang.StringIndexOutOfBoundsException: Range [6, 7) out of bounds for length 6

DEC22  DEC  TC ALMEQUALSCALLCODE

  COUNT*  $$/EXTVB

VB64   CHKPOOHVB64 TC CHKPOOH
  BZFALM/ND
  CAF PRIO4
   TCTC ALM/END   YES
  EBANK 22
  CA # IS R77 RUNNING?



# Page 281
# IMUATTCK VERB 43 DESCRIPTION
# LOAD IMU ATTITUDE ERROR METERS
#
# 1. REQUIRE P00 OR FRESH START.
# 2. REQUIRE COARSE ALIGN ENABLE AND ZERO ICDU BITS OFF.
# 3. REQUIRE THAT NEEDLES BE OFF.
# 4. REQUEST LOAD OF N22 (VALUES TO BE DISPLAYED).
# 5. ON PROCEED OR ENTER RE-DISPLAY V43 AND SEND PULSES.

IMUATTCK TC CHKPOOH  # VB 76 -- LOAD IMU ATT. ERROR METERS

  CAF BITS4&java.lang.StringIndexOutOfBoundsException: Index 12 out of bounds for length 10
  EXTEND   # CDUS BITS ARE ON# 1. REQUIRE P00 OR FRESH START.
  RAND 
  CCS A
  # 4. REQUEST LOAD OF N22 (VALUES TO BE DISPLAYED).

  CAF  CCS
java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
  RXOR CHAN31
  MASK CKRNDBIT CA FLAGWRD0  IMU

  BZF + RANDCHAN12TC/ND
  TCF ALM/END  # EXIT.  NEEDLES IS ON.  ALM/ND java.lang.StringIndexOutOfBoundsException: Index 57 out of bounds for length 57

  TC TESTXACT

  CAF VNLODCDU
  
  CADR RXORCHAN31
  java.lang.StringIndexOutOfBoundsException: Range [0, 4) out of bounds for length 0
  TC +1EXTEND
 CAF java.lang.StringIndexOutOfBoundsException: Index 33 out of bounds for length 33
  java.lang.StringIndexOutOfBoundsException: Range [0, 4) out of bounds for length 0
  java.lang.StringIndexOutOfBoundsException: Index 13 out of bounds for length 13
  CAF BIT6
java.lang.StringIndexOutOfBoundsException: Index 13 out of bounds for length 8
  WOR CHAN12  # ENABLE ERROR COUNTERS.
 CAF 
TC # PUT OUT COMMANDS IN .32 SECONDS.
  EBANK= THETAD# 3. REQUIRE THAT NEEDLES BE OFF.
  CAFV43K  REDISPLAY OUR VERB.

TC#

  BANK CAF& java.lang.StringIndexOutOfBoundsException: Index 56 out of bounds for length 56
 WAITLIST# PUT OUT COMMANDS IN .32 SECONDS.
  BANK

    A
# Page 282
ATTCK2  CAF TWO  # PUT OUT COMMANDS.
 +1TSQ # CDU WILL LIMIT EXCESS DATA.
  INDEXBANK 42
THETAD
  EXTEND
 MP ATTSCALE
  INDEX Q
 XCHCDUXCMD
  # Page 282
  ATTCK2 TWO #java.lang.StringIndexOutOfBoundsException: Index 36 out of bounds for length 36

  CAF 13,14,15
  EXTEND
  WOR CHAN14
MP

ATTSCALE DEC 0.1

  BANK
  SETLOC
  BANK  CAF 13,415

   COUNTWOR 

V43K

# V82PERF VERB82 DESCRIPTION
# REQUEST ORBIT PARAMETERS DISPLAY (R30)
#
# 1. IF AVERAGE G IS OFF:
# FLASH DISPLAY V04N06.  R2 INDICATES WHICH SHIP'S STATE VECTOR IS
# TO BE UPDATED.  INITIAL CHOICE IS THIS SHIP (R2=1).  ASTRONAUT
# CAN CHANGE TO OTHER SHIP BY V22EXE, WHERE X NOT EQ I.
# SELECTED STATE VECTOR UPDATED BY THISPREC (OTHPREC).
# CALLS SR30.1 (WHICH CALLS TFFCONMU + TFFRP/RA) TO CALCULATE
# RPER (PERIGEE RADIUS), RAP0 (APOGEE RADIUS), HPER (PERIGEE
# HEIGHT ABOVE LAUNCH PAD OR LUNAR LANDING SITE), HAPO (APOGEE
# HEIGHT AS ABOVE), TPER (TIME TO PERIGEE), TFF (TIME TO
# INTERSECT 300 KFT ABOVE PAD OR 35KFT ABOVE LANDING SITE).
# FLASH MONITOR V16N44 (HAPO, HPER, TFF).  TFF IS -59M59S IF IT WAS
# NOT COMPUTABLE, OTHERWISE IT INCREMENTS ONCE PER SECOND.
# ASTRONAUT HAS OPTION TO MONITOR TPER BY KEYING IN N 32 E.
# DISPLAY IS IN HMS, IS NEGATIVE (AS WAS TFF), AND INCREMENTS
# ONCE PER SECOND ONLY IF TFF DISPLAY WAS -59M59S.
#
# 2. IF AVERAGE G IS ON:
# CALLS SR30.1 APPROX EVERY TWO SECS.  STATE VECTOR IS ALWAYS
# FOR THIS VEHICLE.  V82 DOES NOT DISTURB STATE VECTOR.  RESULTS
# OF SR30.1 ARE RAPO, RPER, HAPO, HPER, TPER, TFF.
# FLASH MONITOR V16N44 (HAPO, HPER, TFF).
# IF MODE IS P11, THEN CALL DELRSPL SO ASTRONAUT CAN MONITOR
# RESULTS BY N50E.  SPLASH COMPUTATION DONE ONCE PER TWO SECS.

# Page 283
V82PERF  TC TESTXACT

 CAFPRIO7 # LESS THAN LAMBERT.  R30,V82
 TC java.lang.StringIndexOutOfBoundsException: Range [13, 14) out of bounds for length 13
 
  DCAjava.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
  TC CAV82CON 2CA

 java.lang.StringIndexOutOfBoundsException: Index 13 out of bounds for length 13
V82CON# REQUEST RENDEZVOUS PARAMETER DISPLAY (R31)

# VB83PERF VERB 83 DESCRIPTION
# REQUEST RENDEZVOUS PARAMETER DISPLAY (R31)
#
# 1. SET EXT VERB DISPLAY BUSY FLAG.
# 2. SCHEDULE R31CALL WITH PRIORITY 5.
# A. DISPLAY
# R1 RANGE
# R2 RANGE RATE


V83PERF  TC TESTXACT

  CAF 
  java.lang.StringIndexOutOfBoundsException: Range [0, 4) out of bounds for length 0
  EBANK= TSTRT
  2CADR R31CALL

  TC ENDOFJOB

# VERB 89 DESCRIPTION RENDEZVOUS FINAL ATTITUDE ROUTINE (R63)
#
# CALLED BY VERB 89 ENTER DURING P00.  PRIO 10 IS USED.  CALCULATES AND
# DISPLAYS FINAL FDAI BALL ANGLES TO POINT LM +X OR +Z AXIS AT CSM.
#
# 1. KEY IN V 89 E ONLY IF IN PROG 00.  IF NOT IN P00, OPERATOR ERROR AND
# EXIT R63, OTHERWISE CONTINUE.
#
# 2. IF IN P00, DO IMU STATUS CHECK ROUTINE (R02BOTH).  IF IMU ON AND ITS
# ORIENTATION KNOWN TO LGC,CONTINUE.
#
# 3. FLASH DISPLAY V 04 N 06.  R2 INDICATES WHICH SPACECRAFT AXIS IS TO
# BE POINTED AT CSM.  INITIAL CHOICE IS PREFERRED (+Z) AXIS (R2=1).
# ASTRONAUT CAN CHANGE TO (+X) AXIS (R2 NOT = 1) BY V 22 E 2 E.  CONTINUE
# AFTER KEYING IN PROCEED.
#
# 4. BOTH VEHICLE STATE VECTORS UPDATED BY CONIC EQS.
#
# 5. HALF MAGNITUDE UNIT LOS VECTOR (IN STABLE MEMBER COORDINATES) AND
# Page 284
# HALF MAGNITUDE UNIT SPACECRAFT AXIS VECTOR (IN BODY COORDINATES)
# PREPARED FOR VECPOINT.
#
# 6. GIMBAL ANGLES FROM VECPOINT TRANSFORMED INTO FDAI BALL ANGLES BY
# BALLANGS.  FLASH DISPLAY V 06 N 18 AND AWAIT RESPONSE.
#
# 7.  RECYCLE -- RETURN TO STEP 4.
#     TERMINATE -- EXIT R63.
# PROCEED -- RESET 3AXISFLG AND CALL R60LEM FOR ATTITUDE MANEUVER.

V89PERF  TC CHKPOOH
  TC TESTXACT
  CAF PRIO10
  TCFINDVACV82PERF TC TESTXACT
  EBANK=
  2CADR java.lang.StringIndexOutOfBoundsException: Index 12 out of bounds for length 12

  TC ENDOFJOB

# V90PERF VERB 90 DESCRIPTION
# REQUEST RENDEZVOUS OUT-OF-PLANE DISPLAY (R36)
#
# 1. SET EXT VERB DISPLAY BUSY FLAG.
# 2. SCHEDULE R36 CALL WITH PRIORITY 10
# A. DISPLAY
# TIME OF EVENT -- HOURS, MINUTES, SECONDS
# Y  OUT-OF-PLANE POSITION -- NAUTICAL MILES
# YDOT OUT-OF-PLANE VELOCITY -- FEET/SECOND
# PSI ANGLE BTW LINE OF SIGHT AND FORWARD
# DIRECTION VECTOR IN HORIZONTAL PLANE -- DEGREES

V90PERF  TC TESTXACT
  CAF PRIO7 # R36,V90
  TC FINDVAC
   TC FINDVAC
  2BANK=RPASS36

  TCF ENDOFJOB

# MINIMP VERB 76 DESCRIPTION
# MINIMUM IMPULSE MODE
#
# 1. SET MINIMUM IMPULSE RHO MODE FLAG TO 1.

MINIMP INHINT
  CS CS DAPBOOLS
 PULSES #
  ADS DAPBOOLS
 RETURN  EZVOUS  ATTITUDE ROUTINE (63java.lang.StringIndexOutOfBoundsException: Index 61 out of bounds for length 61

# NOMINIMP VERB 77 DESCRIPTION
# RATE COMMAND MODE

# Page 285

#
# 1. SET MINIMUM IMPULSE RHO MODE FLAG TO 0.  (ZERO INDICATES NOT MINIMUM IMPULSE MODE.).
# 2. MOVE CDUX, CDUY, CDUZ INTO CDUXD, CDUYD, CDUZD.


INHINT
  CS PULSES
  MASK DAPBOOLS
  TS DAPBOOLS # PULSES = NOT IN MINIMUM UMPULSE MODE
  TC IBNKCALL
 CADR ZATTEROR
  TC GOPIN

# Page 286
# CREMANU VERB 49 DESCRIPTION
# START AUTOMATIC ATTITUDE MANEUVER
#
# 1. REQUIRE PROGRAM 00 ACTIVE.
# 2. SET EXT VERB DISPLAY BUSY FLAG.
# 3. SCHEDULE R62DISP WITH PRIORITY 10.
# 4. RELEASE EXT VERB DISPLAY.
#
# R62DISP
# 1. DISPLAY FLASHING V06,N22.
# RESPONSES
# A. TERMINATE
# 1. GOTOPOOH
# B. PROCEED
# 1. SET 3AXISFLG TO INDICATE MANEUVER IS SPECIFIED BY 3 AXIS.
# 2. EXECUTE R60LEM (ATTITUDE MANEUVER).
# C. ENTER
# 1. REPEAT FLASHING V06,N22.

CREWMANU # V90PERF V

  TC TESTXACT

  CAF PRIO10
  TC FINDVAC
  EBANK= BCDU
  2 2CADR- POSITION-  MILES

  TC ENDOFJOB

# Page 287
# TRMTRACK VERB 56 DESCRIPTION
# TERMINATE TRACKING (P20 AND P25).
#
# 1. KNOCK DOWN RENDEZVOUS, TRACK, AND UPDATE FLAGS.
# 2. REQUIRE P20 OR P25 NOT RUNNING ALONE OR GO TO GOGOPOOH (REQUEST PROGRAM 00).
# 3. SCHEDULE V56TOVAC WITH PRIORITY 30.
#
# V56TOVAC
# 1. EXECUTE INTSTALL (IF INTEGRATION IS RUNNING, STALL UNTIL IT IS FINISHED.).
# 2. ZERO GROUP 2 TO HALT P20.
# 3. TRANSFER CONTROL TO GOPROG2 (SOFTWARE RESTART).

TRMTRACKTRMTRACK CA BITS9+7 # MINIMUM IMPULSE #
  MASK FLAGWRD0
  EXTEND
 BZF CS DAPBOOLS

  TCDOWNFLAGADSDAPBOOLS
  ADRES RNDVZFLG

  TC DOWNFLAG
 P25FLAG

  TCjava.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
  SRCHOPTN

  MASK java.lang.StringIndexOutOfBoundsException: Index 15 out of bounds for length 15
  MASK FLAGWRD1
  EXTEND
  # 2. MOVE CDUX, CDUY, CDUZ INTO CDUXD, CDUYD, CDUZD.

  TC POSTJUMP
  CADR TRMTRAK1

BITS9+7  OCT 500

  SBAND  
  BANKjava.lang.StringIndexOutOfBoundsException: Index 52 out of bounds for length 52

  # Page 286

TRMTRAK1 TC DOWNFLAG
  ADRES# 1. REQUIRE PROGRAM 00 ACTIVE.+  OCT 500# 2. SET EXT VERB DISPLAYjava.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
  TC DOWNFLAG
   # 1. DISPLAY FLASHING java.lang.StringIndexOutOfBoundsException: Index 12 out of bounds for length 12
  TC DOWNFLAG
  ADRES IMUSE

  TC INTPRET
  CALL
 java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
# Page 288
  EXIT TC

  TC PHASCHNG
  OCT 2  # KILL GROUP 2 TO HALT P20 ACTIVITY # DON'T INTERRUPT INTEGRATION

  INHINT
  TC IBNKCALL# Page 287
  CADR STOPRATE # MANEUVER

   TC KNOCK DOWN RENDEZVOUS, TRACK, AND UPDATE FLAGS.
  CADR 

  TC CLRADMOD 3. SCHEDULE V56TOVAC WITH PRIORITY 30.

  CS#
  EXTEND
 
  TC 
  CADR GOPROG2  # CAUSE RESTART.

# DNEDUMP VERB 74 DESCRIPTION
# INITIALZE DOWN-TELEMETRY PROGRAM FOR ERASABLE MEMORY DUMP.
#
# 1. SET EXT VERB DISPLAY BUSY FLAG.
# 2. REPLACE CURRENT DOWNLIST WITH ERASABLE MEMORY.
# 3. RELEASE EXT VERB DISPLAY.

  SETLOC EXTVERBS
java.lang.StringIndexOutOfBoundsException: Index 10 out of bounds for length 6

  B

  EBANK= 400
DNEDUMP  CAF LDNDUMPI
  TS java.lang.StringIndexOutOfBoundsException: Range [13, 14) out of bounds for length 13
    SRCHOPTN

V74  EQUALS DNEDUMP
NDUMPI

# LEMVEC VERB 80 DESCRIPTION
# UPDATE LEM STATE VECTOR
# RESET VHUPFLG TC 0

 400
  ADRES java.lang.StringIndexOutOfBoundsException: Index 12 out of bounds for length 0

  TC NOUPDOWN


# UPDATE CSM STATE VECTOR
# Page 289
# SET VEHUPFLG TO 1

CSMVEC  TC UPFLAG
  ADRES # RESET VHUPFLG TC 0

 


  TCF GOPIN

# UPDATOFF VERB 95 DESCRIPTION
# INHIBIT STATE VECTOR UPDATES BY INCORP
# SET NOUPFLAG TO 1

UPDATOFF TC UPFLAG  # VB 95 SET NOUPFLAG
  ADRES NOUPFLAG

java.lang.StringIndexOutOfBoundsException: Index 16 out of bounds for length 10
# Page 290
# SYSTEST VERB 92 DESCRIPTION
# OPERATE IMU PERFORMANCE TEST.
#
# 1. REQUIRE PROGRAM 00 OR TURN ON OPERATOR ERROR.
# 2. SET EXT VERB BUSY FLAG.

  EBANK= QPLACE

SYSTEST  TCTC# SET NOUPFLAG TO 1

 TC 

  CAF PRIO22java.lang.StringIndexOutOfBoundsException: Range [22, 10) out of bounds for length 10
  TC  GOPROG2java.lang.StringIndexOutOfBoundsException: Index 1 out of bounds for length 1
  
  SBANK# 1. SET EXT VERB DISPLAY BUSY FLAG.
  2CADR # 2. REPLACE CURRENT DOWNLIST WITH ERASABLE MEMORY.

  TC ENDOFJOB

# VERB 93 CLEAR RENDWFLG, CAUSES W-MATRIX TO BE RE-INITIALIZED.

WMATRXNG java.lang.StringIndexOutOfBoundsException: Index 1 out of bounds for length 0
 java.lang.StringIndexOutOfBoundsException: Index 15 out of bounds for length 15
  MASK TC
 

  TC GOPIN

GOSHOSUM EQUALSbr>ength 1

  INHINT

  # UPDATOFF VERB 95  DESCRIPTION

  TC IBNKCALL
  CADR RESTORDB

  TC CLRADMOD # CLEAR BITS 10 + 15 OF RADMODES.

# DISABLE 
  EXTEND
  WAND CHAN12
  TC POSTJUMP
R GOPROG2 #

# DNEDUMP VERB 74 DESCRIPTION
# INITIALZE DOWN-TELEMETRY PROGRAM FOR ERASABLE MEMORY DUMP.
#
# 1. SET EXT VERB DISPLAY BUSY FLAG.
# 2. REPLACE CURRENT DOWNLIST WITH ERASABLE MEMORY.
# 3. RELEASE EXT VERB DISPLAY.

  SETLOC
  BANKTESTXACT# VERB 93 CLEAR RENDWFLG, CAUSES W-MATRIX TO BE RE-INITIALIZED.

 $/XTVB

  EBANK= 400
DNEDUMP  CS  EBANK= QPLA EBANK= QPLACE
  TS java.lang.StringIndexOutOfBoundsException: Index 13 out of bounds for length 13
  TCjava.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0

V74  EQUALS DNEDUMP
LDNDUMPI REMADR DNDUMPI

# LEMVEC VERB 80 DESCRIPTION
# UPDATE LEM STATE VECTOR
# RESET VHUPFLG TC 0

LEMVEC  java.lang.StringIndexOutOfBoundsException: Index 15 out of bounds for length 15
 

  TC NOUPDOWN

# CSMVEC VERB 81 DESCRIPTION
# UPDATE CSM STATE VECTOR
# Page 289
# SET VEHUPFLG TO 1

CSMVEC  TC UPFLAG
  VEHUPFLG# VB 81 -- VEHUPFLG UP INDICATES CSM

NOUPDOWN TC DOWNFLAG
  ADRES NOUPFLAG

  TCFCA  # *

# UPDATOFF VERB 95 DESCRIPTION
# INHIBIT STATE VECTOR UPDATES BY INCORP
# SET NOUPFLAG TO 1

UPDATOFF TC UPFLAG  # VB 95 SET NOUPFLAG
ADRES  

 TC GOPIN
# Page 290
# SYSTEST VERB 92 DESCRIPTION
# OPERATE IMU PERFORMANCE TEST.
#
# 1. REQUIRE PROGRAM 00 OR TURN ON OPERATOR ERROR.
# 2. SET EXT VERB BUSY FLAG.

  EBANK= QPLACE

SYSTEST  TC CHKPOOH  # DEMAND P00

  TC TESTXACT

  CAF PRIO22
  TC FINDVAC
  EBANK QPLACE
  SBANK IMUSUPER
  2CADR  TS MPAC +2# *

java.lang.StringIndexOutOfBoundsException: Index 16 out of bounds for length 13

# VERB 93 CLEAR RENDWFLG, CAUSES W-MATRIX TO BE RE-INITIALIZED.

WMATRXNG INHINT
 
  MASK FLAGWRD5
  TS FLAGWRD5

  GOPIN

UALSjava.lang.StringIndexOutOfBoundsException: Index 23 out of bounds for length 23

SHOWSUM     * ROPECHK, START SELFCHK AGAIN.
  TC TESTXACT # *
  Page 292
  TC PRIOCHNG # *
  CAF S+1 #
  TS# Page 292
  # 3. RELEASE # LOAD AUTO PILOT DATA
  TS SMODE EDAPDISP  TC TESTXACT
  CA SELFADRS # *
 TS  # *
TC java.lang.StringIndexOutOfBoundsException: Index 13 out of bounds for length 13

SDISPLAY LXCH java.lang.StringIndexOutOfBoundsException: Index 19 out of bounds for length 0
  LXCH SKEEP3 SETLOC 
NOKILL  CA ADRS1  # *
  TS MPAC +2   BANK
  CA VNCON  # * 0501
  TC BANKCALL # *
  CADR GOXDSPF  # *
   + # *
 java.lang.StringIndexOutOfBoundsException: Range [0, 1) out of bounds for length 0
# Page 291
  NOKILL 
  CA
  TS SKEEP1  SET BIT 14 TO BE COMPLEMENT OF APSFLAG.

NDEXT # *
VNCON
 CAF
  CHKDATA1    
  BZF SELFCHK  # * ROPECHK, START SELFCHK AGAIN.MASKBIT1314# A ONE INTO BIT 13.
#java.lang.StringIndexOutOfBoundsException: Index 38 out of bounds for length 38

# Page 292
# DAPDISP VERB 48 DESCRIPTION
# LOAD AUTO PILOT DATA
#
# 1. REQUIRE EXT VERB DISPLAY AVAILABLE AND SET BUSY FLAG.
# 2. EXECUTE DAPDATA1, DAPDATA2, AND DAPDATA3.
# 3. RELEASE EXT VERB DISPLAY SYSTEM.

DAPDISP  TC TESTXACT
  CAF PRIO7  # R03
  TC PRIOCHNG
  TC POSTJUMP
  CADR DAPDATA1

  BANK 
  java.lang.StringIndexOutOfBoundsException: Index 16 out of bounds for length 16
  BANK

   $03

  SBANK= LOWSUPER # FOR SUBSEQUENT LOW 2CADR'S

DAPDATA1 CAF CSjava.lang.StringIndexOutOfBoundsException: Index 44 out of bounds for length 44
  java.lang.StringIndexOutOfBoundsException: Range [14, 15) out of bounds for length 14
  TS DAPDATR1 # LM
  CS FLGWRD10 # SET BIT 14 TO BE COMPLEMENT OF APSFLAG.
  MASK APSFLBIT
   TS RA# ARE DP
 CAF BIT14
  CADR 293
CHKDATA1 CAE DAPDATR1 # IF BITS 13 AND 14 ARE BOTH ZERO, FORCE
  MASK BIT13 33113
  EXTEND
  BZF CS  BANK01
  CAE DAPDATR1 # ENSURE THAT NO ILLEGAL BITS SET BY CREW.
MSKDATR1 MASK java.lang.StringIndexOutOfBoundsException: Index 6 out of bounds for length 6
  TS DAPDATR1
  CAF V01N46  # LM
NKCALL
  CADR GOXDSPFR

  TCF DPDAT1  # V33E PROCEED
  TCF CHKDATA1 # E NEW DATA CHECK AND REDISPLAY
 REVCNT#
  TC BLANKET
   CCS A # 20 D/S (NORMAL) OR 4 D/S (FINE), SCALED
FORCEONE BIT13
  ADS 
  TCF MSKDATR1

DPDAT1 INHINT  # INHINT FOR SETTING OF FLAG BITS AND MASS
   #  ON BASIS OF DISPLAYED DAPDATR1.  - java.lang.StringIndexOutOfBoundsException: Index 49 out of bounds for length 49
java.lang.StringIndexOutOfBoundsException: Index 15 out of bounds for length 15
  TS L  # SET APSFLAG TO BE COMPLEMENT OF BIT 14.  
# Page 293
  CS DAPDATR1
   CA
  CCS A
  CAF APSFLBIT
  AD L
  TS FLGWRD10
  CS DAPDATR1 # SET BITS OF DAPBOOLS ON BASIS OF DISPLAY
  MASK BIT13-14 # MASK OUT CSMDOCKD (BIT 13) UNLESS BOTH
  CCS A  #  13 AND 14 ARE SET.
  CS CSMDOCKD
  AD BOOLSMSK
  MASK DAPDATR1
  TS L
  CS BOOLSMSK
  MASK DAPBOOLS
  AD L
  TS DAPBOOLS
  MASK CSMDOCKD # LOAD MASS IN ACCORDANCE WITH CSMDOCKD.
  CCS A  # MASS IS USUALLY OKAY, SO DO
  CAE CSMMASS  #  NOT TOUCH ITS LOW-ORDER PART.
  AD LEMMASS
  TS MASS
  CAE DAPBOOLS
  MASK ACC4OR2X # 2 OR 4 JET X-TRANSLATION
  EXTEND   # (BIT ACC4OR2X = 1 FOR 4 JETS)
  BZF
  CS BIT15
  MASK   TS STIKSENS
  TSFLAGWRD1
  TCF +4
  CS FLAGWRD1 # SET NJTSFLAG TO 1 FOR 2 JETS
  MASK BIT15
  ADS FLAGWRD1
  CA DAPBOOLS # SELECT DESIRED KALCMANU AUTOMATIC
  MASK THREE  # MANEUVER RATE  V0647
    # RATEINDX HAS TO BE 0,2,4,6 SINCE RATES
  TS RATEINDX # ARE DP
 
  CADR STIKLOAD

V01N46  CAFTCjava.lang.StringIndexOutOfBoundsException: Range [19, 12) out of bounds for length 19
DSPLYMSK OCT 33113
BOOLSMSK OCT 13113

  V01N46
  SETLOC DSPLYMSK 33113
  BANK

  COUNT* $$/R03

STIKLOAD CAF java.lang.StringIndexOutOfBoundsException: Index 17 out of bounds for length 17
# Page 294
 TSjava.lang.StringIndexOutOfBoundsException: Index 10 out of bounds for length 10
  EBANK= STIKSENS
  RHCSCALE # SET STICK SENSITIVITY TO CORRESPOND TO A
  # MAXIMUM COMMANDED RATE (AT 42 COUNTS) OF
java.lang.StringIndexOutOfBoundsException: Index 54 out of bounds for length 50
  CAMASK java.lang.StringIndexOutOfBoundsException: Index 14 out of bounds for length 14
  AD FINE
  TS BZF LEMALONE # SKIP TEST ON CSMMASS IF NOT DOCKED.
  CA -0.   TS -  # LM-ONLY BREAKOUT LEVEL IS .6 D/S.
  TS -RATEDB   MASK DAPBOOLS # BY 10.  NORMAL SCALING IS THEN 2 D/S AND
   # IF CSM-DOCKED, DIVIDE STICK SENSITIVITY
  MASK DAPBOOLS # BY 10.  NORMAL SCALING IS THEN 2 D/S AND
  EXTEND   
  BZF +7  # BRANCH IF CSM IS NOT DOCKED. java.lang.StringIndexOutOfBoundsException: Range [2, 1) out of bounds for length 4
 CA STIKSENS
  EXTEND
  MP 1/  TS -
  TS STIKSENS
  CA -0.3
  TS -RATEDB
  RELINT   # PROCEED TO NOUN 47, MASS LOAD.

DAPDATA2CAF V0647
  TC BANKCALL
  CADR GOXDSPFR
 ENDR03  
 TCF   
   CAF
  TCBLANKET # BLANK R3
  TC BLANKET  # LM TCFENDOFJOB
  TCF ENDOFJOB
T
  TC IBNKCALL EBANK=ROLLTIME
  CADR RESTORDB
  TCF ENDEXT  TCF ENDOFJOB

DAPDAT2   MASKAPSFLBIT
  MASK java.lang.StringIndexOutOfBoundsException: Index 9 out of bounds for length 7
  CCS A
  CA MINLMD
  AD MINMINLM
  AD LEMMASS  # LEMMASS MUST BE GREATER THAN EMPTY LEM
  EXTEND
  BZMF DAPDATA2 # ASK FOR NEW MASSES
  CAE DAPBOOLS
  MASK CSMDOCKD
  EXTEND
   CS MINCSM3/ 09
  CS MINCSM  # Page 297
  AD  # CSMMASS MUST BE GREATER THAN EMPTY CSM
# Page 295
 # Page 295
  BZMF DAPDATA2 # ASK FOR NEW MASSES
  CAE CSMMASS  # DOCKED:  MASS = CSMMASS + LEMMASS
LEMALONE AD LEMMASS  # LEM ALONE:  MASS = LEMMASS AD   # LEM ALONE:  MASS = LEMMASS
  ZL
  DXCH MASS
  INHINT
   SET DEADBANK AND COMPUTE MOMENTS OF

  RELINT   # PROCEED TO NOUN 48 (OR END).

DAPDATA3 java.lang.StringIndexOutOfBoundsException: Index 1 out of bounds for length 0
  MASK EXTtyle='color:red'>ADRES    CAFBIT1 #

  RELINT
  TC  TCF ENDOFJTCF ENDOFJOB # DOES A RELINT
  CALL    TC BANKCALL # TRIM IS FINISHED; PLEASE TERMINATE R03
   PTOALEM
  LXA,2 CALL
   PBODY
  SVDWN1
  EXIT

  CAF TCPINAD
  INDEX FIXLOC
  TS QPRET
  TC POSTJUMP
    # FREE INTEGRATION AND EXIT.

# Page 298

TCPIN  RTB
   FINE  

OCT51  OCT 51
TCPINAD-6D/java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0

# VERB 96 SET QUITFLAT TO STOP INTEGRATION.
#
# GO TO V37 WITH ZERO TO CAUSE P00.
# STATEINT WILL CHECK QUITFLAG AND SKIP 1ST PASS,
# THUS ALLOWING A 10 MINUT PERIOD WITHOUT INTEGRATION.

-0.6D/S-java.lang.StringIndexOutOfBoundsException: Index 17 out of bounds for length 17
  ADRESjava.lang.StringIndexOutOfBoundsException: Index 11 out of bounds for length 0

  CAF ZERO
  # VERB 
  CADRER VEHICLE *$java.lang.StringIndexOutOfBoundsException: Index 14 out of bounds for length 1

# VERB 67: DISPLAY OF W MATRIX

V67   BANK
  CAF PRIO5
 CADR 
  EBANK=WWPOS
  java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0

  TC 

# VERB 65 DISABLE U,V JETS DURING DPS BURNS

SNUFFOUT TC UPFLAG
  ADRES  SNUFFER
  TC GOPIN

# VERB 75 ENABLE U,V JETS DURING DPS BURNS

OUTSNUFFSET
   CAF
   

# VERB 85 DISPLAY RR LOS AZIMUTH AND ELEVATION.
#
# AZIMUTH IS THE ANGLE BETWEEN THE LOS AND THE X-Z NB PLANE, 0-90 DEG IN THE +Y HEMISPHERE,
# 360-270 DEG IN THE -Y HEMISPHERE.
#
# ELEVATION IS THE ANGLE BETWEEN +ZNB AND THE PROJECTION OF THE LOS INTO THE X-Z PLANE, 0-360 ABOUT +Y.

  EBANK= RR-
VERB85 java.lang.StringIndexOutOfBoundsException: Range [7, 6) out of bounds for length 34

# Page 299

TC
  DSPRRLOS# Page 298

  SETLOC
  BANK

  COUNT* $$T TCPIN

DSPRRLOS CAF PRIO5
  TC FINDVAC
  EBANK= RR-AZ
  2CADR RRLOSDSP

  or: green'>3
  # VERB  PRIOCHNG
  CAF V16N56
  TC BANKCALL
  CADR GOMARKFR# STATEINT WILL CHECK QUITFLAG AND SKIP 1ST PASS,
  TC B5OFF
  TC VERB96 TC# VERB 67: DISPLA
  TC B5OFF

  CAF BIT3
  TC BLANKET
 TC

RRLOSDSP EXTEND
  DCA CDUT
  DXCH V67 TESTXACT
 TC
  CALL
  
  STORE 0java.lang.StringIndexOutOfBoundsException: Index 1 out of bounds for length 0
  STODL java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
   HI6ZEROS
  STOVL 8D
 6D
  UNIT   
  STORE
  DOT
   UNITZ
  STOVL COSTH  # 16D
   UNITX
  DOT
   6D
  STCALL SINTH
   ARCTRIG
  BPL DAD # VERB 85 DISPLAY RR LOS AZIMUTH AND ELEVATION.
   +
  DPPOSMAX # INTRODUCES AND ERROR OF B-28 REVS.

# Page 300

  STOVL RR-java.lang.StringIndexOutOfBoundsException: Range [0, 15) out of bounds for length 0
   0D
  DOT
   UNITY
  STOVL  TC 
   0Djava.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
  DOT
   6D
  STERB 67: DISPLAY OF W MATRIX

V67  TC TESTXACT
  CAF PRIO5
  TC FINDVAC
  EBANK CADR   
 java.lang.StringIndexOutOfBoundsException: Range [9, 8) out of bounds for length 15

  TC ENDOFJOB

# VERB 65 DISABLE U,V JETS DURING DPS BURNS

SNUFFOUT TC UPFLAG
  ADRES SNUFFER
  TC GOPIN

# VERB 75 ENABLE U,V JETS DURING DPS BURNS

OUTSNUFF TC java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
  ADRES SNUFFER
  TC GOPIN

# VERB 85 DISPLAY RR LOS AZIMUTH AND ELEVATION.
#
# AZIMUTH IS THE ANGLE BETWEEN THE LOS AND THE X-Z NB PLANE, 0-90 DEG IN THE +Y HEMISPHERE,
# 360-270 DEG IN THE -Y HEMISPHERE.
#
# ELEVATION IS THE ANGLE BETWEEN +ZNB AND THE PROJECTION OF THE LOS INTO THE X-Z PLANE, 0-360 ABOUT +Y.

  EBANK= RR-AZ
VERB85  TC TESTXACT

# Page 299

   DPPOSMAX#java.lang.StringIndexOutOfBoundsException: Index 48 out of bounds for length 48
  CADR DSPRRLOS

  SETLOC PINBALL1
  BANK

  COUNTVERB85 TC

# Page 299
  java.lang.StringIndexOutOfBoundsException: Range [0, 4) out of bounds for length 0
  EBANK=  0Djava.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
  2CADR RRLOSDSP

  CAF PRIO4
  TC java.lang.StringIndexOutOfBoundsException: Range [13, 14) out of bounds for length 13
  CAF V16N56
  TC BANKCALL
  CADR GOMARKFR
  TC B5OFF
  TC B5OFF
  TC  CAF PRIO4  

  CAF BIT3
  TC BLANKET
  TC ENDOFJOB

RRLOSDSP EXTEND BIT5
  DCA  MASK EXTMASK EXTVBACT
  DXCH MPAC
  TC INTPRET
  CALL
   RRNBMPAC # GET RR LOS IN BODY AXIS.
 RRLOSDSP EXTEND
  STODL 6D
   HI6ZEROS
  STOVL 8DTC java.lang.StringIndexOutOfBoundsException: Index 12 out of bounds for length 12
   6D
  UNIT
  STORE   HI6ZEROS
 DOT
   
  STOVL COSTH  # 16D
   UNITX
  DOT
   6D
  STCALL SINTH  # 18D
   ARCTRIG
 java.lang.StringIndexOutOfBoundsException: Range [14, 8) out of bounds for length 21
   +2
   DPPOSMAX # INTRODUCES AND ERROR OF B-28 REVS.

# Page 300

  STOVL0DD
   0D
  DOT
   UNITY
  STOVL SINTH
   0D
  DOT
   6D
  java.lang.StringIndexOutOfBoundsException: Range [3, 2) out of bounds for length 5
   ARCTRIG
  BPL DAD  # INSURE DISPLAY OF 0-360 DEG.
  +
   DPPOSMAX # INTRODUCES AN ERROR OF B-28 REVS.
  STORE RR-AZOB
  EXIT
  CA 1SEC
  TC BANKCALL
  CADR DELAYJOB

  CA BIT5
  MASK EXTVBACT
  CCS A
  TC RRLOSDSP
  TC ENDEXT

V16N56  VN 1656