# 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 CHECKRRTSjava.lang.StringIndexOutOfBoundsException: Index 11 out of bounds for length 0
  CCSA
  MASK LRBYBIT
  CCS A
  TC ALM/ TC ALM/END TC 
CHECKRR  GOPIN
  MASK V16N72 CS 
  CCS A
  TCF CHECKP22 # NO, CHECK FOR P22.

CKRNDBIT FLAGWRD0# YES, BUT IS IT P25?
  MASK V50N25X VN 502
   TC java.lang.StringIndexOutOfBoundsException: Index 6 out of bounds for length 6
  TC ALM EQUALS 
CHECKP22 java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
  java.lang.StringIndexOutOfBoundsException: Range [0, 4) out of bounds for length 0

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

DEC22  DECjava.lang.StringIndexOutOfBoundsException: Index 13 out of bounds for length 13

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

java.lang.StringIndexOutOfBoundsException: Index 1 out of bounds for length 0
  A
   
  TC FINDVAC#
  EBANK=  MASKLRBYBITOARSE AND  java.lang.StringIndexOutOfBoundsException: Index 50 out of bounds for length 33
  2CADR SBANDANT # CALC., DISPLAY S-BAND ANTENNA ANGLES.

  TC ENDOFJOB

# 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

 IF ALIGNENABLEAND ZEROIMU
  EXTEND   # CDUS BITS ARE ON  EXTEND
 RAND CHAN12 TC/ND
  CCS A
 TCFE # NOT ALLOWED IF IMU COARSE OR IMU ZERO ON

  CAF BIT13-14 # BOTH BITS 13 AND 14 MUST BE 1Q
  EXTEND  java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
 RXOR
  MASK BIT13-14  CHKPOOH java.lang.StringIndexOutOfBoundsException: Index 38 out of bounds for length 38
  EXTEND
  BZF PRIO4
   / # EXIT.  NEEDLES IS ON.  V43K  REDISPLAY OUR VERB.

  TC TESTXACT

 CAF
  TC BANKCALL 2CADRSBANDANT 
  java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
  TWO
    WAITLIST# PUT OUT COMMANDS IN .32 SECONDS.# 2. REQUIRE COARSE ALIGN ENABLE AND ZERO ICDU BITS OFF.
 CAF V43K #
  TC BANKCALL
  CADR EXDSPRET
  CAF BIT6IMUATTCK  #
  java.lang.StringIndexOutOfBoundsException: Index 5 out of bounds for length 0
  WOR CHAN12  # ENABLE ERROR COUNTERS.
  TWO
 TC  # PUT OUT COMMANDS IN .32 SECONDS.

   java.lang.StringIndexOutOfBoundsException: Range [7, 8) out of bounds for length 7

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

  BANK 42
  SETLOC  CAF BIT13-14   CA
 MP

  COUNT* $$/  
# Page 282
ATTCK2  CAF CAF   PUT OUT COMMANDS.
 +1  TS Qjava.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
  INDEX A
  CA THETAD
  EXTEND
  MP ATTSCALE
  INDEX Q
  XCH CDUXCMD
  CCS Q
  java.lang.StringIndexOutOfBoundsException: Index 1 out of bounds for length 0

  13,,java.lang.StringIndexOutOfBoundsException: Index 14 out of bounds for length 14
  EXTEND
  
  TCF TASKOVER # LEAVE ERROR COUNTERS ENABLED.

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

  BANK 7
  SETLOC EXTVERBS
  BANK

  COUNT* $$/EXTVB

V43K  VN 4300

# 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    #

  CAF  PRIOCHNG
  TC PRIOCHNG
 
  DCA V82CON
  TC SUPDXCHZATTCK2  EXTEND

  EBANK 1    # CDU WILL LIMIT EXCESS DATA.
DR java.lang.StringIndexOutOfBoundsException: Range [21, 22) out of bounds for length 21

# 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
# R3 THETA

V83PERF  TC TESTXACT

  CAF java.lang.StringIndexOutOfBoundsException: Index 10 out of bounds for length 10
  TC WAITLIST
  EBANK= TSTRT
    BIT2

  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  # PROCEED -- RESET 3AXISFLG AND # IF MODE IS P11, THEN CALL DELRSPL SO java.lang.StringIndexOutOfBoundsException: Index 47 out of bounds for length 0
  TC TC  TESTXACT
  CAF= RONE
  TC FINDVAC
  EBANK= RONE
 2V89CALL

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

# 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  CAF #
  
  FINDVAC
=
  2CADR R36

  TCF ENDOFJOB

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


  
   MASK  PULSES = 1 INDICATES MIN IMP MODE
  ADS DAPBOOLSVIAFINAL()
  TCF GOPIN  # RETURN VIA PINBRNCH

# 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.


NOMINIMP INHINT
  NOMINIMP java.lang.StringIndexOutOfBoundsException: Index 15 out of bounds for length 15
  MASK DAPBOOLS
java.lang.StringIndexOutOfBoundsException: Index 52 out of bounds for length 52
  TC IBNKCALL 
 java.lang.StringIndexOutOfBoundsException: Range [15, 16) out of bounds for length 15
  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 TC

  TC TESTXACT

  CAF # 1. SET EXT VERB java.lang.StringIndexOutOfBoundsException: Range [0, 25) out of bounds for length 12
  TC FINDVAC
  EBANK= BCDU
  OUT-F-PLANE  - NAUTICALMILES

  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).

java.lang.StringIndexOutOfBoundsException: Range [9, 8) out of bounds for length 45
  
  EXTEND
 BZFCS

  TC DOWNFLAGTC java.lang.StringIndexOutOfBoundsException: Range [13, 14) out of bounds for length 13
  ADRES RNDVZFLG

 ADRES 
  ADRES P25FLAG

  TC DOWNFLAG # ENSURE SEARCH FLAG IS OFF
   ADRES

  CA TRACKBIT 
  FLAGWRD1
java.lang.StringIndexOutOfBoundsException: Index 8 out of bounds for length 8
 

  TC POSTJUMP
  CADR TRMTRAK1# CREMANU VERB 49 DESCRIPTION

BITS97OCT500

  SETLOC SBAND  # BANK 42
  BANK

  COUNT* $$ ADRES 1. DISPLAY FLASHING # RESPONSES

TRMTRAK1 TC AXISFLG java.lang.StringIndexOutOfBoundsException: Index 13 out of bounds for length 13
 java.lang.StringIndexOutOfBoundsException: Index 6 out of bounds for length 6

  ADRES TRACKFLG # TRACK FLAG DOWN
   DOWNFLAG
  ADRES IMUSE

   INTPRET
 TC FINDVAC
     DON'T INTERRUPT INTEGRATION
# Page 288
  EXIT

  TC PHASCHNG
  # 2 RESTORDB

#java.lang.StringIndexOutOfBoundsException: Index 40 out of bounds for length 40
 IBNKCALL # ZERO THE COMMANDED RATES TO STOP
  CADR STOPRATE # MANEUVER  # 3. TRANSFER CONTROL TO GOPROG2 (SOFTWARE RESTART).

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

  TC CLRADMOD # CLEAR BITS 10 + 15 OF RADMODES.# 1. SET EXT VERB DISPLAY BUSY FLAG.

   CS BIT14
  EXTEND
  WAND CHAN12
  TC POSTJUMP
  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.

  LDNDUMPI REMADR Djava.lang.StringIndexOutOfBoundsException: Index 23 out of bounds for length 23
  BANK

  COUNT* $$/EXTVB

400

   DNTMGOTO
  TC GOPIN

V74MSTATE VECTOR
LDNDUMPI REMADR DNDUMPI

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

LEMVEC  TC DOWNFLAG
  ADRES VEHUPFLG # VB 80 -- VEHUPFLG DOWN INDICATES LEM

  TC NOUPDOWN

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

CSMVEC  # DON'T INTERRUPT INTEGRATION
   ADRES VEHUPFLG

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

  TCF GOPIN

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

UPDATOFF TC  TESTXACT
  ADRES NOUPFLAG


# 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 SBANK# 1. SET EXT VERB DISPLAY BUSY FLAG.

SYSTEST  TC CHKPOOH# 3. RELEASE EXT VERB DISPLAY.

  TC TESTXACT

  CAF PRIO22
  TC  COUNT* $Ejava.lang.StringIndexOutOfBoundsException: Index 17 out of bounds for length 17
CE
  SBANK=DNTMGOTO
  2CADR REDO

  TC ENDOFJOB

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

# UPDATE LEM 
  
  MASK FLAGWRD5
  TS FLAGWRD5

  TC GOPIN

GOSHOSUM# CSMVEC VERB 81 DESCRIPTION

SHOWSUM  TC java.lang.StringIndexOutOfBoundsException: Index 15 out of bounds for length 14
   ADRES
  CAFS+java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
  TC PRIOCHNG # *
  SELFADRS
  TS SKEEP6java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
  CAF S+ZERO  # *
  TS SMODE #  SET NOUPFLAG TO 1

  TS SELFRET  # *  NOUPFLAG
    

java.lang.StringIndexOutOfBoundsException: Index 22 out of bounds for length 1
java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
NOKILL  CA   =
  # *
  CA VNCON
  TC BANKCALL # *
  CADRTC java.lang.StringIndexOutOfBoundsException: Range [16, 11) out of bounds for length 16
  TC +3  # *
  TC NXTBNK  # *
# Page 291
  TC  TC ENDEXT  
  CA SELFADRS
  TS TC

  TC ENDEXT  # *
VNCON  VN 501  # *
ENDSUMS  CA SKEEP6SHOWSUM    SELFCHK  * ROPECHK, START SELFCHK AGAIN.
  EXTEND   # *
  BZF SELFCHK  # * ROPECHK, START SELFCHK AGAIN.  292
  TC STSHOSUM # * START SHOWSUM AGAIN.

# 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.

TC
 PRIO7 # R03
  TC PRIOCHNG
  TC POSTJUMP
  CADR DAPDATA1

  BANK 34
  LOADDAP
  java.lang.StringIndexOutOfBoundsException: Range [6, 7) out of bounds for length 6

  COUNT $$/R03

  SBANK= LOWSUPER # FOR SUBSEQUENT LOW 2CADR'S

DAPDATA1  java.lang.StringIndexOutOfBoundsException: Index 1 out of bounds for length 0
  MASK java.lang.StringIndexOutOfBoundsException: Index 10 out of bounds for length 10
  CA SELFADRS
10#java.lang.StringIndexOutOfBoundsException: Index 55 out of bounds for length 55
  MASK APSFLBIT
  CCS   # *
  CAF BIT14
  ADS DAPDATR1
CAE CHKDATA1java.lang.StringIndexOutOfBoundsException: Index 62 out of bounds for length 62
  MASK BIT13-14 # A ONE INTO BIT 13.EXTEND
  EXTENDjava.lang.StringIndexOutOfBoundsException: Range [14, 13) out of bounds for length 38
  BZF FORCEONE
  CAEjava.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
MSKDATR1 MASK DSPLYMSK
  TS DAPDATR1
  CAF V01N46 # 1. REQUIRE EXT TCFDPDAT1 # V33E PROCEED
  # 3. RELEASE EXT VERB DISPLAY SYSTEM.
  CADR GOXDSPFR
  TCF ENDEXT  # V34E TERMINATE
  TCF DPDAT1  # V33E PROCEED
  TCF java.lang.StringIndexOutOfBoundsException: Index 13 out of bounds for length 13
  CAF  SETLOC LOADDAP
  TC BLANKET
java.lang.StringIndexOutOfBoundsException: Index 42 out of bounds for length 14
  /
  ADS java.lang.StringIndexOutOfBoundsException: Range [0, 14) out of bounds for length 0
  TCF MSKDATR1

MASK
  CS APSFLBIT #  ON BASIS OF DISPLAYED DAPDATR1.
  MASK FLGWRD10   #java.lang.StringIndexOutOfBoundsException: Index 29 out of bounds for length 29
  TS L  CCSjava.lang.StringIndexOutOfBoundsException: Index 22 out of bounds for length 22
# Page 293
  CS DAPDATR1
  MASK BIT14
  CCS A

  AD L
  TS FLGWRD10
 CSDAPDATR1java.lang.StringIndexOutOfBoundsException: Index 9 out of bounds for length 9
  SETLOC
  BANK
  CS CSMDOCKD
  AD BOOLSMSK
  MASK DAPDATR1
  TS # Page 294
  CS BOOLSMSK
  MASK DAPBOOLS
  AD L
   CA RHCSCALE # SET STICK SENSITIVITY TO CORRESPOND TO A
  MASK CSMDOCKD # LOAD MASS IN ACCORDANCE WITH CSMDOCKD.
  CCS  CAF R # BITS 2 & 3:  BLANKS R2 & R3.
  CAE CSMMASS  #  NOT TOUCH ITS LOW-ORDER PART.
  LEMMASS
  TS  ADSDAPDATR1
  CAE DAPBOOLS
 MASK ACC4OR2X # 2 OR 4 JET X-TRANSLATION 
  CS APSFLBIT
  BZF +5
  CS BIT15
 MASKFLAGWRD1  FLGWRD10
  TS FLAGWRD1
  TCF +4
  CS  EXTEND    
  MASK BIT15
  ADS FLAGWRD1
  CA DAPBOOLS # SELECT DESIRED KALCMANU AUTOMATIC
  MASK THREE DOUBLE # RATEINDX HAS TO BE 0,2,4,6 SINCE RATES
  DOUBLE   # RATEINDX HAS TO BE 0,2,4,6 SINCE RATES
  java.lang.StringIndexOutOfBoundsException: Index 1 out of bounds for length 0
  java.lang.StringIndexOutOfBoundsException: Index 14 out of bounds for length 14
  CADR STIKLOAD

  VN 0146
 OCT 33113
BOOLSMSK BANK

  BANK 01
  SETLOC LOADDAP1
  BANK

  COUNT* $$ java.lang.StringIndexOutOfBoundsException: Range [0, 12) out of bounds for length 10

CARHCSCALE # SET STICK SENSITIVITY TO CORRESPOND TO A
# Page 294
  TS   MASKDAPBOOLS # MAXIMUM COMMANDED RATE (AT 42 COUNTS) OF
   AD LE   AD LEMMASS # LEMMASS MUST BE GREATER THAN EMPTY LEM
  CA BZMF DAPDATA2#
   APBOOLS
 A#
  CA NORMAL  # AT 45 D/S.
  AD FINE

  CA -0.6D/S
  ATEDB# LM-ONLY BREAKOUT LEVEL IS .6 D/S.
  CA CSMDOCKD # IF CSM-DOCKED, DIVIDE STICK SENSITIVITY
  java.lang.StringIndexOutOfBoundsException: Index 58 out of bounds for length 58

  BZF +7  # BRANCH IF CSM IS NOT DOCKED.
  CA STIKSENS
  EXTEND
    java.lang.StringIndexOutOfBoundsException: Range [4, 5) out of bounds for length 4
  TS STIKSENS
  CA -0.3D/S  # CSM-DOCKED BREAKOUT LEVEL IS .3 D/S.  
 TS -
  RELINT   # PROCEED TO NOUN 47, MASS LOAD.

DAPDATA2 CAF V0647
  TC BANKCALL
  CADR GOXDSPFR
  TCF ENDR03  # V34E TERMINATE. FIRST SET DB.  DO 1/ACCS CAFV0647
   TCF  # V33E GO DO TRIM (WAITLIST TO TRIMGIMB)
  TCF DAPDATA2 #  LOAD NEW DATA AND RECYCLE
  CAF BIT3  # BLANKS R3
  TC BLANKET   
  TCF ENDOFJOB
ENDR03 
  TC IBNKCALL
  CADR RESTORDBOCT24#
  TCF ENDEXT  # DOES RELINT

V0647VN0647
   
  CCS A
  MINLMD
 MINMINLM
  AD LEMMASSjava.lang.StringIndexOutOfBoundsException: Index 31 out of bounds for length 31
  EXTEND
 DAPDATA2#
  CAE DAPBOOLS
  MASK CSMDOCKD-6/ DEC218
  EXTEND
# EXTEND
  MINCSM 03/ -java.lang.StringIndexOutOfBoundsException: Index 17 out of bounds for length 17
  AD CSMMASSAD  CSMMASS java.lang.StringIndexOutOfBoundsException: Index 54 out of bounds for length 54
# Page 295
  EXTEND
  BZMF DAPDATA2 # ASK FOR NEW MASSES
 #
LEMALONELEMMASS# BANK
  ZL
  DXCH MASS
  INHINT
  TC INHINT
 TC IBNKCALL
  RELINT   # PROCEED TO NOUN 48 (OR END).

DAPDATA3 CS FLGWRD10
  MASK APSFLBIT 2CADR 
   # END ROUTINE IF LEM HAS STAGED.
  BZF ENDEXT
  CAF V06N48  # DISPLAY TRIM ANGLES AND REQUEST RESPONSE
  TC BANKCALL
  CADR java.lang.StringIndexOutOfBoundsException: Index 13 out of bounds for length 10
  TC ENDEXT
  TCF DPDAT3  # V33E GO DO TRIM (WAITLIST TO TRIMGIMB)
  TCF  
  BIT3
 TC
 TCF 
java.lang.StringIndexOutOfBoundsException: Range [8, 6) out of bounds for length 53
  INHINT   # CAN USE FIXDELAY AND VARDELAY
  TRIM java.lang.StringIndexOutOfBoundsException: Range [13, 12) out of bounds for length 19
=java.lang.StringIndexOutOfBoundsException: Index 17 out of bounds for length 17
  2CADR TRIMGIMB

   SVDWN1
TRIMDONE CAF V50N48
  TC BANKCALL # TRIM IS FINISHED; PLEASE TERMINATE R03
  CADR java.lang.StringIndexOutOfBoundsException: Range [0, 15) out of bounds for length 10
 CADR INTWAKE#
  TC ENDEXT
  TC ENDEXT
  CAF OCT24  # BIT5 TO CHANGE TO PERFORM, 3 TO BLANK 43
  TC BLANKET
   ENDOFJOB

V0647  VN 0647
V06N48  VN 0648

V50N48  VN 5048java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
ORMAL   .660214
     # NORMAL SCALING IS 20 D/S
FINE  DEC .165054  # FINE STICK SCALING (4 D/S).
1/10  #   THUS ALLOWING A 10 # OTHER VEHICLE STATE VECTOR.
 DEC -18

# Page 296

-0.3D/S  DEC -109

# Page 297
# VERB 66 VEHICLES ARE ATTACHED. MOVE THIS VEHICLE STATE VECTOR TO
# OTHER VEHICLE STATE VECTOR.
#
# USE SUBROUTINE GENTRAN.

  BANK 7
 
 java.lang.StringIndexOutOfBoundsException: Range [6, 7) out of bounds for length 6

  EBANK WWPOS

  EBANK= ATTACHIT TC INTPRET

ATTACHED CAF PRIO10
  TC FINDVAC
  EBANK= RRECTHIS

  2CADR SET

  TC ENDOFJOB


  CALL
   INTSTALL
   BON
 CAF
  MOONTHIS
   +
  CLEAR
   MOONOTH
  EXIT
  AZIMUTH IS THE  java.lang.StringIndexOutOfBoundsException: Range [12, 4) out of bounds for length 12
  TC GENTRAN
  ADRES RRECTHISLXA,2 CALL
  ADRES RRECTOTH

  RELINT
  TC INTPRET
 CALLjava.lang.StringIndexOutOfBoundsException: Index 34 out of bounds for length 34
   PTOALEM
  Page TC 
   PBODY
  TC POSTJUMP
   CADR#

  CAF TCPINAD
  INDEX FIXLOC
  TS QPRET
  TC POSTJUMP
  CADR java.lang.StringIndexOutOfBoundsException: Index 12 out of bounds for length 0

# Page 298

TCPIN  RTB
   PINBRNCH

java.lang.StringIndexOutOfBoundsException: Index 5 out of bounds for length 0
TCPINAD  CADR TCPIN

CAF V16N56
#
# GO TO V37 WITH ZERO TO CAUSE P00.
# STATEINT WILL CHECK QUITFLAG AND SKIP 1ST PASS,
# THUS ALLOWING A 10 MINUT PERIOD WITHOUT INTEGRATION.

 UPFLAGY OF W MATRIX
  ADRES 

  CAF ZERO
  TC POSTJUMP
 V37 # GO TO P00 TC ENDOFJOB

# VERB 67: DISPLAY OF W MATRIX

V67 TC 
    INTPRET
  TC FINDVAC
  EBANK# VERB 65 DISABLE RRNBMPAC # GET RR LOS IN BODY AXIS.
  2CADR V67CALL

  TC ENDOFJOB

# VERB 65 DISABLE U,V JETS DURING DPS BURNS

SNUFFOUT TC  6
 ADRESSNUFFER
  TC GOPIN

# VERB 75 ENABLE U,V JETS DURING DPS BURNS

OUTSNUFF TC DOWNFLAG
  ADRES SNUFFER java.lang.StringIndexOutOfBoundsException: Index 8 out of bounds for length 8
  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-
   TESTXACT

# Page 299

 TCPOSTJUMP
  CADR DSPRRLOS

  SETLOC PINBALL1
  BANK

  COUNT* $$/EXTVB

DSPRRLOS CAF PRIO5
  TC FINDVAC
 2
  2CADR RRLOSDSP

  java.lang.StringIndexOutOfBoundsException: Range [6, 5) out of bounds for length 11
  TC PRIOCHNG
  CAF
  TC BANKCALL
  CADR GOMARKFR
 TCjava.lang.StringIndexOutOfBoundsException: Index 10 out of bounds for length 10
  TC B5OFF
  TC B5OFF

  CAF 
  BLANKET
  TC ENDOFJOB

RRLOSDSPjava.lang.StringIndexOutOfBoundsException: Range [15, 16) out of bounds for length 15
  DCA CDUT
  DXCH MPAC
   INTPRET
  CALL
   RRNBMPAC # GET RR LOS IN BODY AXIS.
  STORE 0D  # UNIT LOS
  STODL 6D
   
  STOVL  
     UNITZ
  UNIT
  STORE 6D  # UNIT OF LOS PROJ IN X-Z PLANE
  DOT
   UNITZ
  STOVL COSTH  # 16D
   UNITX
  DOT
   6D
  STCALL SINTH  # 18D
   ARCTRIG
  BPL DAD  # INSURE DISPLAY OF 0-360 DEG.
   +2
   DPPOSMAX # INTRODUCES AND ERROR OF B-28 REVS.

# Page 300

  STOVL RR-ELEV
   0D
  DOT
   UNITY
  STOVL SINTH
   0java.lang.StringIndexOutOfBoundsException: Range [5, 6) out of bounds for length 5
  DOT
   6D
  STCALL COSTH
   ARCTRIG
  BPL DAD  # INSURE DISPLAY OF 0-360 DEG.
   +2
   DPPOSMAX # INTRODUCES AN ERROR OF B-28 REVS.
  STORE RR-AZ
  EXIT
    +
  TC BANKCALL
OB

  CA BIT5
  MASK EXTVBACT
  CCS A
  TC RRLOSDSP
  TC ENDEXT

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