# 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
# name, using Luminary099 page images.
# from the Luminary131/ file of the same
# 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.

# 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
  BANK
  SETLOC EXTVERBS BANK
   EBANK=

  =OGC

   COUNT* $/XTVB

# FAN-OUT

java.lang.StringIndexOutOfBoundsException: Index 4 out of bounds for length 0
#  # A. TERMINATE

LST2FAN  TC# B. PROCEED OR ENTER
  TC VBCOARK  # VB41 COARSE ALIGN (USED WITH NOUN 20 OR
    # 72 ONLY)
#java.lang.StringIndexOutOfBoundsException: Index 36 out of bounds for length 36
  TC IMUATTCK # VB43 LOAD IMU ATTITUDE ERROR METERS.# RESPONSES
  TC RRDESEND # 2. SET CONTINUOUS DESIGNATE FLAG
  TC ALM# 3. DISABLE R25
  TC #  C. V22 E 1 E, R1 = 00001, PROCEED
  TC V47TXACT # VB47 AGS INITIALIZATION
  TC DAPDISP  # VB48 LOAD A/P DATA
  java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
  TCGOLOADLV# VB50 PLEASE PERFORM
  TC ALM/END  # VB51 SPARE
  TC GOLOADLV # VB52 PLEASE MARK X -- RETICLE.
  TC GOLOADLV # VB53 PLEASE MARK Y -- RETICLE.
   GOLOADLV # VB54 PLEASE MARK X OR Y RETICLE
  TC ALINTIME # VB55 ALIGN TIME
  TC TRMTRACK
  TC LRON  # VB57 PERMIT LANDING RADAR UPDATESADNOUNREG
  TC LROFF  # IF = 20.
  TC ALM/java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
  TC java.lang.StringIndexOutOfBoundsException: Index 8 out of bounds for length 8
  TC  TC ALM/END
  java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
  TC R04  # VB63 SAMPLE RADAR ONCE PER SECOND
  TC  java.lang.StringIndexOutOfBoundsException: Range [14, 13) out of bounds for length 44
  TC SNUFFOUT # VB65 DISABLE U,V JETS DURING DPS BURNS.
 #VB66   THIS  TCDAPDISP  
  TC V67  # VB67 W MATRIX MONITOR
   ALM/END  # VB68 SPARE
java.lang.StringIndexOutOfBoundsException: Range [10, 6) out of bounds for length 50
  TC V70UPDAT # VB70 UPDATE LIFTOFF TIME.
   # VB71 UNIVERSAL UPDATE -- BLOCK ADDRESS.
  TC V72UPDAT # VB72 UNIVERSAL UPDATE -- SINGLE ADDRESS. TC  # VB52 PLEASE MARK X -- RETICLE.
  TC V73UPDAT # VB73 UPDATE AGC TIME (OCTAL). # VB55 ALIGN TIME
  TC DNEDUMP   #
   # FOR ERASABLE DUMP.
  TC OUTSNUFF # VB75 ENABLE U,V JETS DURING DPS BURNS.
# Page 263
  TC ALM/ND  IMUCOARS
  TC NOMINIMPTCLRPOS2K#
  TC R77
  TC  TC BANKCALL
    CADR 
 TC   TC ENDEXTVB
   TC 
  TC java.lang.StringIndexOutOfBoundsException: Index 13 out of bounds for length 13
   ALM/ TC#
  TC VERB85  # VB85 DISPLAY RR LOS AZ AND ELEV TC V67
  /   VB86 SPARE
  TC/  # VB87 SPARE
  TC ALM/END  # DESIGNATE TO DESIRED GIMBAL ANGLES.
 TC  #
  java.lang.StringIndexOutOfBoundsException: Index 52 out of bounds for length 52
  GOSHOSUM# VB91 DISPLAY BANK SUM.
  TC SYSTEST  # VB92 OPERAT IMU PERFORMANCE TEST.
  TC V72UPDAT
    CCS A
 TC  # VB95 NO STATE VECTOR UPDATE ALLOWED 
  TC VERB96# PageTC  #
 java.lang.StringIndexOutOfBoundsException: Range [13, 4) out of bounds for length 49
TC
  java.lang.StringIndexOutOfBoundsException: Range [0, 1) out of bounds for length 0

# END OF EXTENDED VERB FAN

CCS
  TC ALM/END  # VB81 UPDATE CSM STATE VECTOR
 FLAGWRD4java.lang.StringIndexOutOfBoundsException: Index 48 out of bounds for length 48
 SK 
CCS A
 TC END  
 #
SETXTACT TS EXTVBACT # NO.  SET FLAG TO SHOW EXT VERB DISPLAYTC /#
     # SYSTEM BUSY

  CA Q
   TCjava.lang.StringIndexOutOfBoundsException: Range [13, 12) out of bounds for length 52

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

    # TURN ON OPERATOR ERROR LIGHT.
 ENDEXT  

TERMEXTV  EQUALS   CAF OPTCOARV # RE-DISOWNVERB
# Page 264
EQUALS 

ACT0 ZERO#
 TC

ALM/END  GOLOADLV#
GOPIN  TC POSTJUMP
  CADR  CAF PRIO20CAF

java.lang.StringIndexOutOfBoundsException: Index 2 out of bounds for length 0
  EXTEND
  BZF TCQ
   TCALMEND YES, TURN ON OPERATOR LIGHT

24100  OCT 24100

# 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   # SYS BUSY
java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
  TC java.lang.StringIndexOutOfBoundsException: Index 9 out of bounds for length 0
TC java.lang.StringIndexOutOfBoundsException: Index 20 out of bounds for length 20
  java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
  CADR IMUZERO

  TC BANKCALL # STALL
  CADR   
  TC +

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

RRZEROK  
 /  TCFALTON java.lang.StringIndexOutOfBoundsException: Index 20 out of bounds for length 11
  CADRCCS

 TC
 RADSTALL
  # # VBZERO#
  TC GOPIN  # 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.

LRPOS2K  TC  TC IMUZEROK # RETU# RETURN HERE IF NOUN = ICDU(20)

  CADR LRPOS2
  TC BANKCALL
  CADR RADSTALL
  TC  TC BANKCAL  
  TC GOPIN

LRP2ALM  TC  TC  # GOODEND-LOCKON ACHIEVED
  OCT 523
  TC GOPIN
# Page 266

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

DAPATTER DOWNFLAG
  ADRES NEEDLFLG
  TC GOPIN

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

TOTATTER TC UPFLAG
  ADRES NEEDLFLG
  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

   INERT
 523
  TC

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

/ CS  java.lang.StringIndexOutOfBoundsException: Range [6, 7) out of bounds for length 6
 TCUPFLAG
  
# Page 268
 # Page RK

  AD RRIMUDIF  # -52
  EXTEND
  BZF #    CASE 1, # 3. SET EXT VERB DISPLAY ACTIVE FLAG.

  # 1. RELEASE EXT VERB DISPLAY SYSTEM

RRIMUDIF DEC -52 TS OPTIONX +1
# ICORK2
  # 1. RE-DISPLAY VERB 41.
  CAF # 2. EXECUTE IMUCCARS (IMU COARSE ALIGN).
  TC # 3. EXECUTE IMUSTALL (ALLOW TIME FOR DATA TRANSFER).
  CADR -5  CASE 2 NOUN 72 (RCDU ANGLES)
  TC TERMEXTV
java.lang.StringIndexOutOfBoundsException: Range [13, 8) out of bounds for length 8

ICORK2  #  A. TERMINATE
  TC BANKCALL
  # B. PROCEED#   1. EXECUTE AURLOKON (ASK java.lang.StringIndexOutOfBoundsException: Index 37 out of bounds for length 26

  TC BANKCALL    TCF# RESPONSES
  CADR java.lang.StringIndexOutOfBoundsException: Index 11 out of bounds for length 10

  TC BANKCALL  # STALL
  IMUSTALL
  TC #   1.java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
  TC ENDEXTVB

VNLODCDUMASK 
IMUCOARV  4100

# Page 269
# DESIGNATE TO DESIRED GIMBAL ANGLES.

RRDESNBK TC RDRUSECK
  TC TESTXACT
   # IS P20 RUNNING?
   BZF  # IF = 20.
A
  TCF NOLOKON java.lang.StringIndexOutOfBoundsException: Range [0, 11) out of bounds for length 8
  CS OCT41000 
     # RELINT DONE IN GOXDSPF
  RRIMUDIF DEC 52  # THE IMU
  java.lang.StringIndexOutOfBoundsException: Range [11, 4) out of bounds for length 13

  CAF VNLDRCDU     #
  TC BANKCALL
   GOXDSPF
  TC TERMEXTV TC
  TCF -4   # V33

  TC BANKCALL  # ASK OP FOR LOCK ON REQUIREMENTS.
  CADR java.lang.StringIndexOutOfBoundsException: Index 12 out of bounds for length 0

 OPTCOARV
  TC BANKCALL
 

  CAF  CAF  #
  TC FINDVAC
  EBANK= java.lang.StringIndexOutOfBoundsException: Index 15 out of bounds for length 15
 2 

  TCF TERMEXTV   =

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

  
  CADRRRDESK2 # B. PROCEED ORjava.lang.StringIndexOutOfBoundsException: Index 22 out of bounds for length 22

  TC + TC1 # DUMMY NEEDED SINCE DESRETRN DOES INCR
  CA PRIORITY
   MASK
   java.lang.StringIndexOutOfBoundsException: Range [7, 8) out of bounds for length 7
 java.lang.StringIndexOutOfBoundsException: Range [8, 7) out of bounds for length 9
  TS  #  1 IMUPULSE(TORQUE)
 COM   # INSURE ENDOFJOB DOES A NOVAC END (BZMF).
  IMUFINEK TCCKMODCAD
   CADR RADSTALL
  CADR RADSTALL# Page 270
# Page 270
#java.lang.StringIndexOutOfBoundsException: Index 45 out of bounds for length 45
  TC ENDOFJOB  # GOODEND-LOCKON ACHIEVED
  TC ALARM
 OCT #

  TCENDOFJOB

CCS # TERMINATE CONTINOUS DESIGNATE ONLY
  TCF GOPIN
  TCF
 
    java.lang.StringIndexOutOfBoundsException: Range [15, 15) out of bounds for length 14
  INHINT     TCF GOPIN
  MASK TCF+
 TS RADMODES

  CAF 1SEC
   
  CADR DELAYJOBMASK 
   
   1SEC
 TCF 
OCT41000 java.lang.StringIndexOutOfBoundsException: Index 15 out of bounds for length 15

# Page 271
   23
 SETLOC EXTVB1
TCFGOPIN
  COUNT* $$/EXTVB

AURLOKON TC MAKECADR
 TS 
  CAF TWO
  java.lang.StringIndexOutOfBoundsException: Index 15 out of bounds for length 15
   OPTION CODE FOR V04N12
  TS  COUNT* /

F java.lang.StringIndexOutOfBoundsException: Index 17 out of bounds for length 17
 TC  # R2 00001 LOCK-ON
   CAF
  TCF  TS OPTIONXjava.lang.StringIndexOutOfBoundsException: Index 15 out of bounds for length 15
  TCF +5   # V33
  TCF -5   # V32
   # R2 00001 LOCK-ON ENDEXTVB 
  TC BLANKET
ENDOFJOB

 +5  CA OPTIONX +1
  MASK BIT2
  CCS A
  java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
  TC UPFLAG
  # GOLOADLV VERB  MASK BIT2
 TCF TCF AURLKON1

NOLOKON#
  ADRES# PLEASE PERFORM, MARK, CALIBRATE, ETC. 
 TC   # WANTED (TO BE TERMINATED BY V44.)
  ADRES NOLOKON TC   IF NO LOCK-ON, SET BIT15 OF RADMADES TOUPFLAG # WANTED (TO BE TERMINATED BY V44.)
java.lang.StringIndexOutOfBoundsException: Index 45 out of bounds for length 45
  DISABLE R25 RR GIMBAL MONITOR IN T4RUPT
AURLKON1 java.lang.StringIndexOutOfBoundsException: Index 12 out of bounds for length 11
  CA DESRET
  TCF BANKJUMP

V04N1272 java.lang.StringIndexOutOfBoundsException: Index 10 out of bounds for length 0
--OCT 20

  BANK 43
  SETLOC EXTVERBS
  BANK
  COUNT* $$ 

LRON  TC UPFLAG

# Page 272
  ADRES java.lang.StringIndexOutOfBoundsException: Range [0, 13) out of bounds for length 0
  

LROFFTC  #INHIBIT INCORPORATION  LR DATA 

  TCF  EBANK=java.lang.StringIndexOutOfBoundsException: Range [12, 13) out of bounds for length 12

  EBANK= 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
# A. FAILED
# B. GOOD
# 1. EXECUTE IMUPULSE (TORQUE IRIGS).
# 2. EXECUTE IMUSTALL AND RELEASE EXT VERB DISPLAY SYSTEM.

IMUFINEK java.lang.StringIndexOutOfBoundsException: Index 2 out of bounds for length 0
 TCTESTXACTjava.lang.StringIndexOutOfBoundsException: Index 47 out of bounds for length 47
  CAF VNLODGYR  # CALL FOR LOAD OF GYRO COMMANDSSBANK=   CAF   # CALL FOR LOAD OF GYRO COMMANDS
  TC BANKCALL
  
  TC TERMEXTV
  TC

  CAF IMUFINEV  # RE-DISPLAY OUR OWN VERB
  TC BANKCALL
  CADR EXDSPRET

  TC BANKCALL  # CALL MODE SWITCH PROG
  CADR IMUFINE

  TC BANKCALL  # HIBERNATION
 
NDEXTVB

FINEK2  CAF java.lang.StringIndexOutOfBoundsException: Index 18 out of bounds for length 0
  TCCADR 
  CADR IMUPULSE

 TC#1. SET  VERBBUSY.
   TC
   
  TC TC java.lang.StringIndexOutOfBoundsException: Range [14, 13) out of bounds for length 44

LGYROBIN ECADR OGC
VNLODGYR
java.lang.StringIndexOutOfBoundsException: Range [9, 8) out of bounds for length 16

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

  R33  PRIO7

  SBANK=#java.lang.StringIndexOutOfBoundsException: Index 50 out of bounds for length 50

  java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
  EXTEND EXTEND
 SUPERBNK
   POSTJUMP
  CADR  CADR LOADLV1

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

V47TXACT TC java.lang.StringIndexOutOfBoundsException: Index 16 out of bounds for length 0
  
  TC  SBANK= L=
EBANK= AGSBUFF
  SBANK= CADR
## [WORKAROUND]
  EBANK= AGSBUFF
  2 AGSINIT

  TC

CKMODCAD CA  MODECADR
  EXTEND
  BZF TCQ# 1. SET EXT VERB DISPLAY BUSY FLAG.
  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 TESTXACT BANK 42
  
  CADR R33 $/R33

  BANK 42
  SETLOC SBAND
  BANK
  COUNT* $$/R33

 PRIO7
  TC  TC PRIOCHNG
  CAFVNLODDT
  TC   TC 
 CADR GOXDSPF
  TC   TC ENDEXT
  TC  TC ENDEXTTC ENDEXT  # PROCEED
CS  # DATA IN OR RESEQUENCE (UNLIKELY)
  AD MPAC  # RECALL LEFT VERB IN MPAC MPAC java.lang.StringIndexOutOfBoundsException: Index 12 out of bounds for length 8
  EXTENDZERO
 UPDATIME#
 TC ENDEXT    L#

UPDATIMEDXCHTIME2
  CAF  
 TS  # NEEDED FOR TP AGREE
  TS L   DAS MPACDASMPAC
   DXCH
  DXCH 
  DXCH DSPTEM2 +1 DXCHMPACTVERBS
   DASjava.lang.StringIndexOutOfBoundsException: Index 11 out of bounds for length 11

  TC DEC23  DEC 23java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
 276
  DAS TIME2
 
UPDTMEND TC ENDEXT

DEC23

VNLODDT  VN 2524  # V25N24 FOR LOAD DELTA TIME

# Page 276
# SET UP FOR RADAR SAMPLING.

  BANK 42
  SETLOCEXTVERBSS RUNNING?
  MASKR04FLBIT

  EBANKMTCALM/ND  YES.

  COUNT* $$/R0477

TCFR04Z
  CA java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
  MASK R04FLBITR04 TC  TCTESTXACT
 CCS
  TC ALM/END  # YES.  TCUPFLAG
  TC UPFLAG
  ADRES R77FLAG
  TCF R04Z

R04  TC RDRUSECK # TRY TO AVOID THE 1210.
  TC TESTXACT
  TC UPFLAGCAF1 java.lang.StringIndexOutOfBoundsException: Range [10, 9) out of bounds for length 16
   SET R04FLAG FOR ALARMS

FEBANK4
    LRPOSCAL# INITIALIZE
  CAF 1SEC MASK # BIT 9 LR RANGE LOW SCALE =0
 TS RSAMPDT
ZERO
  TS RTSTLOC
  TS java.lang.StringIndexOutOfBoundsException: Index 13 out of bounds for length 13

  INHINT
  CS LRPOSCAL # INITIALIZE
SK # BIT 9 LR RANGE LOW SCALE =0
  TS RADMODES # BIT 6 LR POS 1 =0 java.lang.StringIndexOutOfBoundsException: Range [0, 41) out of bounds for length 7
 CAFLRPOSCAL # BIT 3 RR RANGE LOW SCALE =0
END
  RAND CHAN33   
 
  RELINT

  CS  
  java.lang.StringIndexOutOfBoundsException: Index 13 out of bounds for length 13
  CCS A  CADR INDICATES RENDEZVOUS DESIRED
 TCF R04K

  CAF ONE  # INDICATES RENDEZVOUS DESIRED
  TS OPTIONX +1
R04A  CAF BIT3 

# Page 277
  TSOPTIONX
   TC
  TC  TC ENDOFJOB
 CADR CA OPTIONX 1 # SAVE DESIRED OPTION RR =1 LR =2
  TCF R04END  # V34
 04XCAF  # RR OR LR DESIRED
    MASK 
 CAF  CCS java.lang.StringIndexOutOfBoundsException: Index 7 out of bounds for length 7
BLANKET CAF BIT3
  TC ENDOFJOB

 CAOPTIONX +java.lang.StringIndexOutOfBoundsException: Index 15 out of bounds for length 0
  R04B  BIT2 # IS RR AUTO MODE DISCRETE

R04X  CAF SIX  # RR OR LR DESIREDRANDCHAN33
 BZFR04C #
  CCS A
  TCF R04L  CAF   # REQUEST SELECTION OF RR AUTO MODE
  TS RTSTBASE # FOR RR BASE =0, MAX =1CAF V50N25X

R04B    CADRGOMARK4
  EXTEND

  EXTEND
  BZF R04C  # YES

 CAF 201R04  # REQUEST SELECTION OF RR AUTO MODE
  TS  TS DSPTEM1V33
  CAF - # E
  TC BANKCALL
  CADR EXTEND
  TCF R04ENDWOR CHAN12
  TCF R04B  # V33 CAF java.lang.StringIndexOutOfBoundsException: Index 12 out of bounds for length 0
  TCF - TCjava.lang.StringIndexOutOfBoundsException: Index 13 out of bounds for length 13

R04C  CAF BIT14  # ENABLE RR AUTO TRACKER 
  EXTEND
  WOR CHAN12

  CAF TWO
  TS RTSTMAX  # FOR SEQUENTIAL STORAGE

  TC WAITLIST
## [WORKAROUND] RSB 2009
  SBANK=PINSUPER
## [WORKAROUND]
  EBANK CAF     TCF-7
  

  

  CS FLAGWRD3R04RR CAF V16N72   EXTEND
 R04FLBIT
# Page 278
  CCS A
  TCFWOR CHAN12

 CAF SIX # RR OR LR
  TCF 2 # V33
  CCS  CAF TWO
 TCF R04LR  # LR

R04RR  CAF V16N72  # DISPLAY RR CDU ANGLES (1/SEC)
  TC BANKCALL # R1 + XXX.XX DEG TRUNNION
  CADRGOMARKFjava.lang.StringIndexOutOfBoundsException: Index 40 out of bounds for length 40
  TCFR04END  # V34 R3   BLANK
  TCF +2  # V33
  TCF R04RR  # V32

  CAF V16N78  # DISPLAY RR RANGE AND RANGE RATE (1/SEC)
  TC BANKCALL # R1 +- XXX.XX NM RANGE
 GOMARKF# R2 +- XXXXX. FPS RANGE RATE
   2CADR 
 R04Y#
  TCF R04RR TCF R04RR # V32

   V16N66 # DISPLAY LR RANGE AND POSITON (1/SEC) LRRANGE  POSITON 1)
  TC BANKCALL # R1 +- XXXXX, FT LR RANGE
  CADR GOMARKF  # R2 +  0000X.  POS. NO.
  TCF R04END  # V34 R3    BLANK
  CF+ # V33
  TCF R04LR java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0

  CAF V16N67java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
 TCBANKCALL# R1 +- XXXXX. FPS LR V(X)
  CADR GOMARKF  # R2 +- XXXXX. FPS LR V(Y)
  TCF R04END  # V34 R3 +- XXXXX. FPS  LR V(Z) CADR GOMARKF #
 TCF R04Y  # V33
  TCF R04LR  # V32

R04Y  CAF ZERO  # TO TERMINATE SAMPLING.
  TS RSAMPDT
  CAF TCF R04LR # V32
  TC BANKCALL
  CADR DELAYJOB
   TSRSAMPDT
java.lang.StringIndexOutOfBoundsException: Index 12 out of bounds for length 12
  CAF ZERO  # FOR STORING RESULTS
  TS RTSTLOC
SIX
  RTSTDEX
  CCS A
  CS ONE  ZERO #java.lang.StringIndexOutOfBoundsException: Index 33 out of bounds for length 33
  AD TWO  # WAS RR
# Page 279

  TCFR04X -

250MS+  # SAMPLE 4 LR COMPONENTS PER SECOND.
  TS java.lang.StringIndexOutOfBoundsException: Index 12 out of bounds for length 12

R04L  TWO
  java.lang.StringIndexOutOfBoundsException: Range [4, 0) out of bounds for length 0
  CAF SIX
  TCF +4
R04END
  
  CAF BIT8  # WAIT 1.28 SECONDS FOR POSSIBLERTSTBASE
  TCR04C4
 CADRjava.lang.StringIndexOutOfBoundsException: Range [15, 16) out of bounds for length 15

   INHINT
  CS BIT14  CADR   # R2 +- XXXXX. FPS LR V(Y)
  EXTEND
  WAND CHAN12

  TC DOWNFLAG
  ADRES R04FLAG TCF   CS # DISABLE RR AUTO TRACKER.

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

R77END  CAF EBANK4  # TO TERMINATE SAMPLING
  TS EBANK
  CAF ZERO
  TS RSAMPDT
 CAF BIT6  # WAIT 320 MS FOR POSSIBLE
  BANKCALL# PENDING RUPT.
  CADR DELAYJOB

  TC DOWNFLAG
  ADRES R77FLAG
  TCF GOPIN

V16N72  VN 1672

V16N66 VN1666
V16N67  VN 1667
2Xjava.lang.StringIndexOutOfBoundsException: Index 15 out of bounds for length 15
 
201R04java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
S  -
250MS+1  V16N66MS1 java.lang.StringIndexOutOfBoundsException: Index 55 out of bounds for length 55
LRPOSCALjava.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0

# Page 280
RDRUSECK CS201R04 00201
  java.lang.StringIndexOutOfBoundsException: Index 14 out of bounds for length 13
   A
  TCSCALOCT 444
  CA  CA FLAGWRD5
  MASKR77FLBIT
  CCSjava.lang.StringIndexOutOfBoundsException: Index 7 out of bounds for length 7
  TC ALM/END
  java.lang.StringIndexOutOfBoundsException: Range [5, 4) out of bounds for length 19
  java.lang.StringIndexOutOfBoundsException: Index 35 out of bounds for length 35
CCS
  TCF 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 EQUALS SHOWSUM

SHOWSUM  TC CHKPOOH  # *java.lang.StringIndexOutOfBoundsException: Range [1, 0) out of bounds for length 0
  TC TESTXACT java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
  CAF PRIO7java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
  TC PRIOCHNG # *
  # SET VEHUPFLG TO 1
  TS SKEEP6  # * SHOWSUM OPTION
 ZERO 
  TS SMODE  # * TURN OFF SELF-CHECK
java.lang.StringIndexOutOfBoundsException: Range [17, 13) out of bounds for length 17
 
  TC TC java.lang.StringIndexOutOfBoundsException: Range [10, 11) out of bounds for length 10

SDISPLAY LXCH SKEEP2  java.lang.StringIndexOutOfBoundsException: Range [22, 1) out of bounds for length 1
  LXCHjava.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
NOKILLjava.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
  TS MPAC=
  CA VNCON  # * 0501
  TC BANKCALL # *
  CADR GOXDSPF  
  TC +3  # *
  NXTBNK  # *
# Page 291
  TC NOKILL  # *
  java.lang.StringIndexOutOfBoundsException: Index 4 out of bounds for length 0
   CS RENDWBIT

  TCENDEXT # *
java.lang.StringIndexOutOfBoundsException: Index 1 out of bounds for length 0
ENDSUMS  GOSHOSUM EQ SHOWSUMjava.lang.StringIndexOutOfBoundsException: Index 16 out of bounds for length 16
  EXTEND   # *
BZFSELFCHK#
  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.

java.lang.StringIndexOutOfBoundsException: Range [8, 7) out of bounds for length 20
  CAF   SELFRET
  PRIOCHNG
  TC CAF  # R03
  CADR DAPDATA1

  BANK 34
  SETLOC LOADDAP
  BANK

*/

  SBANK= LOWSUPERTC+ #

DAPDATA1 CAF BOOLSMSK # SET DISPLAY ACCORDING TO DAPBOOLS BITS.
  MASK  TC NOKILL  # *
  TS DAPDATR1 # LM
  CS FLGWRD10 # SET BIT 14 TO BE COMPLEMENT OF APSFLAG.
  MASK
   A
 CAF BIT14
  ADS DAPDATR1
CAE DAPDATR1# IF BITS 13 AND 14 ARE BOTH ZERO, FORCE
   BIT13- # A ONE INTO BIT 13.
  EXTEND
  BZF FORCEONE
  CAE DAPDATR1 # ENSURE THAT NO ILLEGAL BITS SET BY CREW. EXTENDHOSUM  * START SHOWSUM AGAIN.
MSKDATR1 MASK DSPLYMSK
  TS DAPDATR1
  CAF V01N46  # LM
  TC BANKCALL
  CADR GOXDSPFR
  TCF ENDEXT  # V34E TERMINATE
  TCF DPDAT1  java.lang.StringIndexOutOfBoundsException: Index 28 out of bounds for length 28
  TCF CHKDATA1 # E NEW DATA CHECK AND REDISPLAY
  CAF REVCNT  # BITS 2 & 3:  BLANKS R2 & R3.
  TC BLANKET
  TCF ENDOFJOB
FORCEONE CAF BIT13
  ADS DAPDATR1
  TCF MSKDATR1

DPDAT1  INHINT   # INHINT FOR SETTING OF FLAG BITS AND MASS
  CS APSFLBIT #  ON BASIS OF DISPLAYED DAPDATR1.
  MASK FLGWRD10
  TS L  # SET APSFLAG TO BE COMPLEMENT OF BIT 14.
# Page 293
  CS DAPDATR1
  MASK BIT14
  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 +5
  FORC  COUNT* $/03
  MASK FLAGWRD1 # CLEAR NJTSFLAG TO 0 FOR 4 JETS
  TS FLAGWRD1
  TCF +4
  FLAGWRD1 # SET NJTSFLAG TO 1 FOR 2 JETS
   BIT15
 ADS FLAGWRD1
  CA DAPBOOLS # SELECT DESIRED KALCMANU AUTOMATIC
  MASK THREE  MANEUVER RATE
  DOUBLE   # RATEINDX HAS TO BE 0,2,4,6 SINCE RATES
 TEINDX 
  CAFBIT14
  293

V01N46  VN 0146
DSPLYMSKOCT 33113
BOOLSMSK OCT 13113

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

  COUNT* $$/R03

STIKLOAD CAF EBANK6
# Page 294
  TS EBANK
   TC BAjava.lang.StringIndexOutOfBoundsException: Range [13, 14) out of bounds for length 13
RHCSCALEjava.lang.StringIndexOutOfBoundsException: Index 56 out of bounds for length 30
     CAF  # BITS 2 & 3:  BLANKS R2 & R3.
 
  CAAD  CAF
  AD FINE
  TS STIKSENS
  CA -0.6D/ MASKACC4OR2X # 2 OR 4 JET X-TRANSLATION  #
 TS-ATEDB # LM-ONLY BREAKOUT LEVEL IS .6 D/S.
  CA CSMDOCKD # IF CSM-DOCKED, DIVIDE STICK SENSITIVITY
  MASK DAPBOOLS # BY 10.  NORMAL SCALING IS THEN 2 D/S AND  FLAGWRD1  MASK java.lang.StringIndexOutOfBoundsException: Index 15 out of bounds for length 15
 EXTEND  # FINE SCALING IS 0.4 D/S
  BZF +7  # BRANCH IF CSM IS NOT DOCKED.MASK 
  STIKSENS
  EXTEND
  MP 1/10
 TS
  CA -0.3D/S  # CSM-DOCKED BREAKOUT LEVEL IS .3 D/S. 
  TS -RATEDB
  java.lang.StringIndexOutOfBoundsException: Index 12 out of bounds for length 12

DAPDATA2CAF V0647
  TC BANKCALL
  CADR GOXDSPFR
  TCF ENDR03  # V34E TERMINATE. FIRST SET DB.  DO 1/ACCS
  TCF DAPDAT2 TC POSTJUMP
  TCF DAPDATA2 #  LOAD NEW DATA AND RECYCLE
  CAF BIT3  # BLANKS R3
  TC BLANKET  # LM
  TCF ENDOFJOB
ENDR03  INHINT
  TC IBNKCALL
  CADR RESTORDB
 TCF   EBANK

DAPDAT2  CS java.lang.StringIndexOutOfBoundsException: Index 17 out of bounds for length 17
  MASK APSFLBIT
  CCS A
  CA java.lang.StringIndexOutOfBoundsException: Index 10 out of bounds for length 10
  AD MINMINLM
MMASS#
  EXTEND
   # ASK FOR NEW MASSES
APBOOLS
  MASK  CCS   # 20 D/S (NORMAL) OR 4 D/S (FINE), SCALED
  EXTEND
  java.lang.StringIndexOutOfBoundsException: Range [13, 5) out of bounds for length 52
  CS MINCSM #TEST TS-java.lang.StringIndexOutOfBoundsException: Range [14, 12) out of bounds for length 49
  AD CSMMASS  # CSMMASS MUST BE GREATER THAN EMPTY CSM
# Page 295
  EXTEND
  BZMF   CACSMDOCKD 
  CAE CSMMASS  # DOCKED:  MASS = CSMMASS + LEMMASS
LEMALONE  EXTEND  # FINE SCALING IS 0.4 D/S
 ZL
  DXCH MASS
  INHINT
  TC IBNKCALL # SET DEADBANK AND COMPUTE MOMENTS OF
  CADR RESTORDB # INERTIA.
 RELINT   TS-TEDB

DAPDATA3 CS FLGWRD10
  MASK APSFLBIT
  EXTEND   # END ROUTINE IF LEM HAS STAGED.
  BZF ENDEXT
java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
  TC BANKCALL
  CADR GOXDSPFR
  TC ENDEXT
#
  TCF - DAPDAT2  # V33E PROCEED
  CAF BIT3
 TC   
 TCFENDOFJOB
DPDAT3   TCFENDOFJOB
  INHINT   # CAN USE FIXDELAY AND VARDELAY INHINT
  TC ENDR03 INHIN
  EBANK=
  2CADR TRIMGIMB

  TCF ENDOFJOB # DOES A RELINT
TRIMDONE CAF V50N48
  TC BANKCALL # TRIM IS FINISHED; PLEASE TERMINATE R03
  CADR GOMARK3R
  TC ENDEXT  # V34E TERMINATE
  TC ENDEXT
  TC ENDEXT
  CAF    BIT5 TO CHANGE TO PERFORM, 3 TO BLANK 43

 TCFENDOFJOB

   0647
V06N48  VN CS  MASK 

CA
NORMAL  DEC . AD MINMINLM
     # NORMAL SCALING IS 20 D/S
FINE  DEC .165054  # FINE STICK SCALING (4 D/S).
1/10  DEC .1 BZMF DAPDATA2  ASK FOR NEW MASSES
-.DS  -java.lang.StringIndexOutOfBoundsException: Index 17 out of bounds for length 17

# Page 296

-.D/S DEC -

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

  BANK 7
  SETLOC  CAE CSMMASS  DOCKED:  MASS = CSMMASS + LEMMASS
 BANK

  COUNT* $$/EXTVB

  EBANK= RRECTHIS

ATTACHED CAF PRIO10   #java.lang.StringIndexOutOfBoundsException: Index 51 out of bounds for length 51
  TC FINDVAC
  EBANK= RRECTHIS

 2CADRATTACHIT

  TC ENDOFJOB

ATTACHIT TC   ENDEXT
  CALL
   INTSTALL
  SET BON
   CADRjava.lang.StringIndexOutOfBoundsException: Index 15 out of bounds for length 15
   MOONTHIS
   +3
  CLEAR
   MOONOTH
 EXIT
 CAF BIT3
  GENTRAN
   TCFENDOFJOB
  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

  CAFPRIO4
  TC 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
  STCALL COSTH
   ARCTRIGTCPRIOCHNG
  BPL DAD  # INSURE DISPLAY OF 0-360 DEG.
  +java.lang.StringIndexOutOfBoundsException: Index 5 out of bounds for length 5
  TC
  STORE RR-AZ
 EXIT
  CA 1SEC
  TC BANKCALL
  CADR DELAYJOB V16N56

  CA  B5OFF
  EXTVBACT
  CCS A
  TC RRLOSDSP
  TC CAFBIT3

V16N56  VN  TC