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

  EBANK= OGC

  COUNT* $$/EXTVB

# 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 IMUATTCK # VB43 LOAD IMU ATTITUDE ERROR METERS.
  TC RRDESEND # VB44 TERMINATE CONTINUOUS DESIGNATE
  TC ALM/END  # VB45 SPARE
  TC ALM/END  # VB46 SPARE
  TC V47TXACT # VB47 AGS INITIALIZATION
  TC DAPDISP  # VB48 LOAD A/P DATA
  TCF CREWMANU # VB49 START AUTOMATIC ATTITUDE MANEUVER
  TC GOLOADLV # VB50 PLEASE PERFORM
  TC ALM/END  # VB51 SPARE
  TC GOLOADLV # VB52 PLEASE MARK X -- RETICLE.
  TC GOLOADLV # VB53 PLEASE MARK Y -- RETICLE.
  TC GOLOADLV # VB54 PLEASE MARK X OR Y RETICLE
  TC ALINTIME # VB55 ALIGN TIME
  TC TRMTRACK # VB56 TERMINATE TRACKING -- P20 + P25
  TC LRON  # VB57 PERMIT LANDING RADAR UPDATES
  TC LROFF  # VB58 INHIBIT LANDING RADAR UPDATES
  TC ALM/END  # VB59 SPARE
  TC LRPOS2K  # VB60 COMMAND LR TO POSITION 2.
  TC DAPATTER # VB61 DISPLAY DAP ATTITUDE ERROR
  TC TOTATTER # VB62 DISPLAY TOTAL ATTITUDE ERROR
  TC R04  # VB63 SAMPLE RADAR ONCE PER SECOND
  TC 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 V67  # VB67 W MATRIX MONITOR
  TC ALM/END  # VB68 SPARE
VERB69  TC VERB69  # VB69 FORCE A HARDWARE RESTART
  TC V70UPDAT # VB70 UPDATE LIFTOFF TIME.
  TC V71UPDAT # VB71 UNIVERSAL UPDATE -- BLOCK ADDRESS.
  TC V72UPDAT # VB72 UNIVERSAL UPDATE -- SINGLE ADDRESS.
  TC V73UPDAT # VB73 UPDATE AGC TIME (OCTAL).
  TC DNEDUMP  # VB74 INITIALIZE DOWN-TELEMETRY PROGRAM
     # FOR ERASABLE DUMP.
  TC OUTSNUFF # VB75 ENABLE U,V JETS DURING DPS BURNS.
# Page 263
  TC MINIMP  # VB76 MINIMUM IMPULSE MODE
  TC NOMINIMP # VB77 RATE COMMAND MODE
  TC R77  # VB78 START LR SPURIOUS RETURN TEST
  TC R77END  # VB79 TERMINATE LR SPURIOUS RETURN TEST
  TC LEMVEC  # VB80 UPDATE LEM STATE VECTOR
  TC CSMVEC  # VB81 UPDATE CSM STATE VECTOR
  TC V82PERF  # VB82 REQUEST ORBIT PARAM DISPLAY (R30)
  TC V83PERF  # VB83 REQUEST REND PARAM DISPLAY (R31)
  TC ALM/END  # VB84 SPARE
  TC VERB85  # VB85 DISPLAY RR LOS AZ AND ELEV
  TC ALM/END  # VB86 SPARE
  TC ALM/END  # VB87 SPARE
  TC ALM/END  # VB88 SPARE
  TC V89PERF  # VB89 ALIGN XORZ LEM AXIS ALONG LOS (R63)
  TC V90PERF  # VB90 OUT OF PLANE RENDEZVOUS DISPLAY
  TC GOSHOSUM # VB91 DISPLAY BANK SUM.
  TC SYSTEST  # VB92 OPERAT IMU PERFORMANCE TEST.
  TC WMATRXNG # VB93 CLEAR RENDWFLG
  TC ALM/END  # VB94 SPARE
  TC UPDATOFF # VB95 NO STATE VECTOR UPDATE ALLOWED
  TC VERB96  # VB96 INTERRUPT INTEGRATION AND GO TO P00
  TC GOLOADLV # VB97 PLEASE VERIFY ENGINE FAILURE
  TC ALM/END  # VB98 SPARE
  TC GOLOADLV # VB99 PLEASE ENABLE ENGINE

# END OF EXTENDED VERB FAN

TESTXACT CCS EXTVBACT # ARE EXTENDED VERBS BUSY
  TC ALM/END  # YES, TURN ON OPERATOR LIGHT
  CA FLAGWRD4 # ARE PRIORITY DISPLAYS USING DSKY
  MASK OC24100
  CCS A
  TC ALM/END  # YES
  CAF OCT24  # SET BITS 3 AND 5
SETXTACT TS EXTVBACT # NO.  SET FLAG TO SHOW EXT VERB DISPLAY
     # SYSTEM BUSY

  CA Q
  TS MPAC +1

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

XACTALM  TC FALTON  # TURN ON OPERATOR ERROR LIGHT.
  TC ENDEXT  # RELEASE MARK AND EXT. VERB DISPLAY SYS.

TERMEXTV  EQUALS  ENDEXT
# Page 264
ENDEXTVB EQUALS ENDEXT

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

ALM/END  TC FALTON  # TURN ON OPERATOR ERROR LIGHT
GOPIN  TC POSTJUMP
  CADR PINBRNCH

CHKPOOH  CA MODREG  # CHECK FOR P00 OR P00-.
  EXTEND
  BZF TCQ
  TC ALM/END

OC24100  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  TC OP/INERT
  TC IMUZEROK # RETURN HERE IF NOUN = ICDU(20)
  TC RRZEROK  # RETURN HERE IF NOUN = RCDU(72)
IMUZEROK TC CKMODCAD
  TC BANKCALL # KEYBOARD REQ FOR ISS CDUZERO
  CADR IMUZERO

  TC BANKCALL # STALL
  CADR IMUSTALL
  TC +1

  TC GOPIN  # IMUZERO

RRZEROK  TC RDRUSECK
  TC BANKCALL
  CADR RRZERO

RWAITK  TC BANKCALL
  CADR RADSTALL
  TCF +1
  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 RDRUSECK
  TC BANKCALL # COMMAND LR TO POSITION 2
  CADR LRPOS2
  TC BANKCALL
  CADR RADSTALL
  TC LRP2ALM
  TC GOPIN

LRP2ALM  TC ALARM
  OCT 523
  TC GOPIN
# Page 266

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

DAPATTER TC 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

VBCOARK  TC  # VB50 PLEASE PERFORM
    # VB52 PLEASE MARK X -- RETICLE.
  TCTC #

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

CT24
  AD 
  EXTEND
# Page 268
  BZFTCQ  # IF = 20.

  AD RRIMUDIF  # -52
  EXTEND
  BZF Q+1

   # ILLEGAL.

RRIMUDIF DEC -52   # THE IMU
IMUCOARK TC CKMODCAD
 TC TESTXACT  # COARSE ALIGN FROM KEYBOARD.
  CAF VNLODCDU  # CALL FOR THETAD LOAD
  TC BANKCALL
  CADR GOXDSPF
  TC TERMEXTV
  TCF +1

ICORK2  CAF IMUCOARV  # RE-DISPLAY COARSE ALIGN VERB.
  TC BANKCALL
  CADR  TC ATTACHED   ATTACHED MOVE  TO TC ATTACHED # VB66 ATTACHED   MOVE THIS TO OTHER # VB48 LOAD A/P DATA

  TCjava.lang.StringIndexOutOfBoundsException: Range [50, 17) out of bounds for length 50
CADRjava.lang.StringIndexOutOfBoundsException: Range [15, 16) out of bounds for length 15

  # STALL
  
 java.lang.StringIndexOutOfBoundsException: Index 13 out of bounds for length 13
  TC ENDEXTVB

VNLODCDU  TC/TCATTACHED
IMUCOARV# VB67 W MATRIX MONITOR

# Page 269
# DESIGNATE TO DESIRED GIMBAL ANGLES.

RRDESNBKTC 
  TC TESTXACT
  TC GOSHOSUM # VB91 DISPLAY BANK SUM.
  MASK FLAGWRD0
A
  
 CS   
  INHINT   # VB75 ENABLE U,V JETS DURING DPS BURNS.
 MASKTC GOLOADLV# VB97 PLEASE VERIFY ENGINE FAILURE
   RADMODES

  CAF  TC R77END java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
ALM TCALM/CAF #
  END
  TC java.lang.StringIndexOutOfBoundsException: Range [9, 8) out of bounds for length 26
 TCF- 

 #java.lang.StringIndexOutOfBoundsException: Range [1, 28) out of bounds for length 10
CADR

PLAY OUR OWN VERB
  # PageVBENDEXT
  CADR  CAFZERO  # RELEASE MARK AND EXT. VERB DISPLAY SYS. 

  CAF PRIO20
  java.lang.StringIndexOutOfBoundsException: Range [1, 4) out of bounds for length 0
  EBANK /END# YES
  2CADR RRDESK2

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

# 3 THE# 4. STALL UNTILL THE ZERO IS DONE.SETXTACT 5 T # 6. EXIT, RE-ESTABLISHITHE INTERRUPTEDjava.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
OPTCOARV java.lang.StringIndexOutOfBoundsException: Index 14 out of bounds for length 10

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


  java.lang.StringIndexOutOfBoundsException: Range [16, 15) out of bounds for length 22
java.lang.StringIndexOutOfBoundsException: Index 20 out of bounds for length 11
 CCS

 java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
  COM 
# COMMAND LANDING RADAR TO POSITION 2
  6# 2. ALARM WITH CODE 523 IF POS 2 IS NOT INDICATED WITHIN# THEjava.lang.StringIndexOutOfBoundsException: Range [23, 17) out of bounds for length 31

# Page 270
  TC +
   ENDOFJOB#
  TC ALARM
  OCT 503   # TURN ON ALARM LIGHT -503 DESIGNATE FAIL

  TC ENDOFJOB

RRDESEND DAPATTER TC
  TCF GOPIN
  TCF GOPIN
  TCF# V62 VERB 62, DISPLAY TOTAL ATTITUDE ERRORS java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
  CS OCT41000  # BEGDES GOES TO ENDRADAR
  INHINT    # RELINT DONE IN DOWNFLAG
  MASK RADMODES
  TS RADMODES
  TC CLRADMOD
  CAF    EXT VERB DISPLAY ACTIVE FLAG.
 #   CADR EXT  java.lang.StringIndexOutOfBoundsException: Range [24, 13) out of bounds for length 13
  CADR# 2. EXECUTE IMUCCARS (IMU COARSE ALIGN).java.lang.StringIndexOutOfBoundsException: Range [20, 21) out of bounds for length 20
  TC DOWNFLAG  # ENABLE R25 GIMBAL MONITOR
  ADRES GOPIN # RRZERO
  TCF # 1. FLASH V04 N12 R1 # RESPONSES
# 3. Djava.lang.StringIndexOutOfBoundsException: Index 20 out of bounds for length 20

# Page 271
  BANK 23
 java.lang.StringIndexOutOfBoundsException: Index 9 out of bounds for length 9
 
  # V62 VERB 62, DISPLAY TOTAL ATTITUDE ERRORS ON FDAI ATTITUDE ERROR NEEDLES.

AURLOKONRRIMUDIF
  EXTEND
 java.lang.StringIndexOutOfBoundsException: Range [2, 1) out of bounds for length 34
java.lang.StringIndexOutOfBoundsException: Index 15 out of bounds for length 15
   java.lang.StringIndexOutOfBoundsException: Index 24 out of bounds for length 24
  TS OPTIONX

 - #java.lang.StringIndexOutOfBoundsException: Index 33 out of bounds for length 33
  TC BANKCALL
  CADR GOMARKFR
  TCF ENDEXT   java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
  TCF# 3. SCHEDULE RRDESK2 WITH PRIORITY 20.
 TCF # RESPONSES
    2. SET #   # C. V22 E 1 E, R1 = 00001, PROCEED
  TC CADR IMUSTALL
  TC ENDOFJOB

 +5  CA OPTIONX +1
 BIT2
  CCS A
  TCF java.lang.StringIndexOutOfBoundsException: Index 9 out of bounds for length 0
  TC UPFLAG
  ADRES java.lang.StringIndexOutOfBoundsException: Index 13 out of bounds for length 8
   

  TC
  ADRES LOKONSW   # INDICATE THAT CONTINUOUS DESIGNATION ISQ+java.lang.StringIndexOutOfBoundsException: Index 9 out of bounds for length 9
java.lang.StringIndexOutOfBoundsException: Range [12, 11) out of bounds for length 49
  ADRES  
 java.lang.StringIndexOutOfBoundsException: Index 13 out of bounds for length 13
  ADRES java.lang.StringIndexOutOfBoundsException: Index 13 out of bounds for length 0
AURLKON1
  # Page # DESIGNATE TO DESIRED GIMBAL ANGLES.
 TCF

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

  BANK 43 INHINT # RELINT DONE IN GOXDSPF   GOXDSPF
  SETLOC EXTVERBS
  BANK
  COUNT* $java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0

LRON  TC UPFLAG  # PERMIT INCORPORATION OF LR DATA      V57

# Page 272
  ADRES LRINH
  TCF GOPIN

LROFF  TC DOWNFLAG  # INHIBIT INCORPORATION OF LR DATA V58
  ADRES LRINH
  TCF GOPIN

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

 
   Page 270java.lang.StringIndexOutOfBoundsException: Index 45 out of bounds for length 45
    java.lang.StringIndexOutOfBoundsException: Index 13 out of bounds for length 13
  TCTC TCF

  TC TERMEXTV
  TC +1   # PROCEED WITHOUT A LOAD

V #
  TC  java.lang.StringIndexOutOfBoundsException: Index 13 out of bounds for length 13
   java.lang.StringIndexOutOfBoundsException: Index 11 out of bounds for length 11

  TC BANKCALL BANK23
    GOPIN

  TC BANKCALL  # HIBERNATION
  CADR IMUSTALL
   TS OPTIONX +1

SETLOC   OPTION CODE FOR V04N12
  
  CADR V04N1272

  TC java.lang.StringIndexOutOfBoundsException: Index 11 out of bounds for length 11
  CADR   SIX   OPTION CODE FOR V04N12 5  # V33
  TC ENDEXTVB
  TCENDEXTVB

LGYROBIN ECADR java.lang.StringIndexOutOfBoundsException: Range [2, 1) out of bounds for length 13
java.lang.StringIndexOutOfBoundsException: Range [9, 8) out of bounds for length 16
IMUFINEV VN java.lang.StringIndexOutOfBoundsException: Range [0, 1) out of bounds for length 0

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

  java.lang.StringIndexOutOfBoundsException: Range [0, 4) out of bounds for length 0

LROFF TCDOWNFLAG   java.lang.StringIndexOutOfBoundsException: Range [44, 43) out of bounds for length 58

  CAF java.lang.StringIndexOutOfBoundsException: Index 12 out of bounds for length 0
  EXTEND
  WRITE SUPERBNK#
  TC POSTJUMP
  CADR LOADLV1

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

# 1. EXECUTE# B. GOOD
  CAF PRIO4
  TCIMUFINEK java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
## [WORKAROUND] RSB 2009
  = VNLODGYR
## [WORKAROUND]
   TC
 2CADRCADR

  TC java.lang.StringIndexOutOfBoundsException: Range [6, 5) out of bounds for length 41

CKMODCAD
  EXTEND
  BZF   CA
  TC

# 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

ALINTIMEVNLODGYRVN2593
  TC SOMETHING VERBS
  # GOLOADLV VERB 50 DESCRIPTION

  BANK 42
  SETLOC SBAND
  BANK
  COUNT* $# # SAME RECALL AS A COMPLETED LOAD.

CAF PRIO7
   PINSUPER FORLOADLV1ANDSHOWSUM CADR'
  CAF VNLODDT
 CAF PINSUPBT
  WRITE
  TCCADRCADRLOADLV1
  java.lang.StringIndexOutOfBoundsException: Index 3 out of bounds for length 1
  CS DEC23  # DATA IN OR RESEQUENCE (UNLIKELY)
  ADMPACSBANK LOWSUPER
  EXTEND=AGSBUFF
  BZF
  TC ENDEXT  ADR

UPDATIME INHINT
# java.lang.StringIndexOutOfBoundsException: Index 8 out of bounds for length 8
  TS REQUIRE java.lang.StringIndexOutOfBoundsException: Index 21 out of bounds for length 0
 
  DXCH# 3. REQUIREjava.lang.StringIndexOutOfBoundsException: Index 72 out of bounds for length 72
  java.lang.StringIndexOutOfBoundsException: Index 9 out of bounds for length 6
   java.lang.StringIndexOutOfBoundsException: Range [9, 8) out of bounds for length 14
  DAS MPACjava.lang.StringIndexOutOfBoundsException: Range [6, 5) out of bounds for length 13

TC  java.lang.StringIndexOutOfBoundsException: Index 22 out of bounds for length 22
  DXCH MPAC  EXTEND
  DAS TIME2
  RELINT
UPDTMEND TC ENDEXT

DEC23   GO AHEAD WITH UPDATE ONLY IF RECALL ENDEXT   

TS MPAC +2

# Page 276
# SET UP FOR RADAR SAMPLING.

 DXCHMPAC

  BANK

  EBANKTC 

  COUNT* $$/R0477

DXCH DXCH java.lang.StringIndexOutOfBoundsException: Index 10 out of bounds for length 10
  DEC23
    RADAR
   SET  R04java.lang.StringIndexOutOfBoundsException: Index 32 out of bounds for length 31
Djava.lang.StringIndexOutOfBoundsException: Range [13, 0) out of bounds for length 0
  TCUPFLAG
  ADRESFLAG
  TCF R04Z

R04   RDRUSECK 
   TC CC A
 TC java.lang.StringIndexOutOfBoundsException: Range [11, 12) out of bounds for length 11
java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0

  EBANK4
  TSTS 
  CAF 1  TSRTSTLOC
  TS RSAMPDT
  CAF java.lang.StringIndexOutOfBoundsException: Index 9 out of bounds for length 8
  TS RTSTLOC
    TSRSAMPDT

  INHINT
  CS LRPOSCAL # INITIALIZE
  MASK RADMODES 
  TS RADMODES CSRADMODES#
OWjava.lang.StringIndexOutOfBoundsException: Range [0, 41) out of bounds for length 7
  EXTEND
  RAND CHAN33
  ADSjava.lang.StringIndexOutOfBoundsException: Index 8 out of bounds for length 8
  RELINT

  CS FLAGWRD3 # CHECK R04FLAG R04 =1 R77 =0
    OPTIONX
  CCS CAFV04N12X
  TCF R04K

ONE #
  TS OPTIONX +1
R04A  CAF  java.lang.StringIndexOutOfBoundsException: Range [1, 0) out of bounds for length 0

# Page 277
  TS OPTIONX
  CAF BIT3 java.lang.StringIndexOutOfBoundsException: Index 12 out of bounds for length 12
    CADR   1 
  CADR java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
   TCFTCF  RTSTDEX
     A
  TCF R04A  +2 # R2
  BIT3
  TC BLANKET
  TC ENDOFJOB

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

java.lang.StringIndexOutOfBoundsException: Index 3 out of bounds for length 0
   BZF java.lang.StringIndexOutOfBoundsException: Range [11, 10) out of bounds for length 17
  CCSBANKCALL
  TCF R04L  CAFjava.lang.StringIndexOutOfBoundsException: Index 14 out of bounds for length 14
  TS  201R04

R04B  CAF java.lang.StringIndexOutOfBoundsException: Index 14 out of bounds for length 13
    java.lang.StringIndexOutOfBoundsException: Index 8 out of bounds for length 8
  RAND CHAN33
  EXTEND
  BZF  # YES

   201R04
  TS  WAITLIST
  CAF V50N25X
  
  CADR GOMARK4
  TCF R04END  # V34
java.lang.StringIndexOutOfBoundsException: Index 17 out of bounds for length 17
   7 

java.lang.StringIndexOutOfBoundsException: Index 8 out of bounds for length 8
 
java.lang.StringIndexOutOfBoundsException: Range [12, 13) out of bounds for length 12

CAF TWO
  TS RTSTMAX  

      # R2 + XXX.XX DEG SHAFT
## [WORKAROUND] RSB 2009
  SBANK  # V34 R3   BLANK
## [WORKAROUND]
  EBANK= RSTACK CADR GOMARKF  # R2 +- XXXXX. FPS RANGE RATE
  2 RADSAMP

  RELINT

  CS java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
  MASK R04FLBIT
# Page 278
  CCS A
   T+2#

  CAF SIX  # RR OR LR
  MASK RTSTDEX
  java.lang.StringIndexOutOfBoundsException: Range [0, 5) out of bounds for length 0
  TCF R04LR # LRTC # R1 +- XXXXX. FPS LR V(X)

R04RR   
  TC BANKCALL # R1 + XXX.XX DEG TRUNNION
  CADR GOMARKF#
  TCF java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
  TCF +2  # V33
  TCF R04RR 

  CAF
  TC  MASK 
  CADR GOMARKF  # R2 +- XXXXX. FPS RANGE RATE CAF #java.lang.StringIndexOutOfBoundsException: Index 33 out of bounds for length 33
  TCF R04ENDTCFR04X
  TCF R04YMS+java.lang.StringIndexOutOfBoundsException: Index 55 out of bounds for length 55
  TCF R04RR  # V32

R04LR CAFR04L TWO
  TC  TSjava.lang.StringIndexOutOfBoundsException: Range [4, 0) out of bounds for length 0
  CADR R04C +  TS RSAMPDT
R04L   TWO TS java.lang.StringIndexOutOfBoundsException: Index 37 out of bounds for length 37
  TCF +  CAF SIX
  TCF R04LR  # V32

  CAF V16N67  # DISPLAY LR VELX, VELY, VELZ (1/SEC)
  TC BANKCALL  INHINT
   GOMARKF
 TCF R04END  # V34 R3 +- XXXXX. FPS  LR V(Z)
  TCF R04Y  # V33
 TCFR04LR  #

R04Y  CAF ZERO
  TS RSAMPDT
  CAF 2SECS  # WAIT FOR LAST RADARUP R04FLAG
  TC BANKCALL
  CADR DELAYJOB
java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
  TS RSAMPDT
  CAF ZERO TC  # PENDING RUPT.
  TS RTSTLOC

   CAFV16N66   java.lang.StringIndexOutOfBoundsException: Index 15 out of bounds for length 15
  CCS2X  VN 412
  CS ONE  # WAS LR
  AD TWOV50N25X ADRES R77FLAG
# Page 279

    -

250+  # SAMPLE 4 LR COMPONENTS PER SECOND.
  TS RSAMPDT

R04L  CAF TWO
  
  CAF  CS R04   00201
 TCF R04C +4
R04END CAF ZERO  # ZERO RSAMPDT
  TS RSAMPDT  # TO TERMINATE SAMPLING
  CAF BIT8  # WAIT 1.28 SECONDS FOR POSSIBLEFLAGWRD5
  TC BANKCALL # PENDING RUPT. A
  CADR DELAYJOB

  INHINT
  CS BIT14  # DISABLE RR AUTO TRACKER.
  EXTEND
  WAND CHAN12 MASKV37FLBIT # R12 USING THE LR?

  TC DOWNFLAG
  ADRES R04FLAG  # SIGNAL END OF R04.    FLGWRD11# YES, IS R12 ON?

  TC CHECKRR CS # IS THE TRACK FLAG SET AND HENCE POSSIBLY

R77END  CAF EBANK4  # TO TERMINATE SAMPLING
  TS EBANK
  CAF ZERO
   java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
  CAF BIT6     A
  TC BANKCALL # PENDING RUPT.
  CADR DELAYJOB

  DOWNFLAG
  ADRES R77FLAG
  TCF 

V16N72  CS MODREG
V16N78 C22
V16N66  
V16N67    ALM/END
V04N12XCKRNDBITCA 
5
201 TC Q
1SEC+1  DEC 101
 EQUALS 
LRPOSCAL OCT 444

# Page 280
RDRUSECK CS FLAGWRD3  TC CHKPOOH
  MASK NR29FBIT
  CCS A
  TC#java.lang.StringIndexOutOfBoundsException: Index 19 out of bounds for length 19
   FLAGWRD5 # IS R77 RUNNING?
  MASK R77FLBIT
  CCS A
  TC ENDOFJOB
  CS FLAGWRD7
  # Page 281
 CCS A
  TCF CAFPRIO4
  CS FLGWRD11 # YES, IS R12 ON?
  MASK LRBYBIT ALIGN ENABLE  ZEROICDU# 3. REQUIRE THAT # 4. REQUEST LOAD OF N22 (VALUES TO BE#  2CADRSBANDANT
  CCS A
  TC ALM/END  # YES
CHECKRR# 2. REQUIRE COARSE CHAN12
  MASK TRACKBIT  TCF ALM/END # NOT ALLOWED IF IMU COARSE OR IMU ZERO ON
 CCS A
  TCF CHECKP22java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0

CKRNDBIT CA FLAGWRD0 COARSEALIGN ENABLE AND  IMU
  EXTEND
  CCS A
   ALMND
CHECKP22 CS java.lang.StringIndexOutOfBoundsException: Index 14 out of bounds for length 7
  AD DEC22
  EXTEND
  BZF ALM/END
  TC java.lang.StringIndexOutOfBoundsException: Range [6, 7) out of bounds for length 6

DEC22  DEC 22

   CADRCADR RXOR 

VB64 TC  # DEMAND PROGRAM 00.
  TC TESTXACT # IF DISPLAY SYS. NOT BUSY MAKE IT BUSY.
  CAF PRIO4
  TC TCFALM/END  # EXIT.  NEEDLES IS ON.CAFV43K #java.lang.StringIndexOutOfBoundsException: Index 33 out of bounds for length 33
  EBANK  CAF VNLODCDU
  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

  CAF BITS4&5 # SEE IF COARSE ALIGN ENABLE AND ZERO IMU
  EXTEND  CAFjava.lang.StringIndexOutOfBoundsException: Index 9 out of bounds for length 9
  RAND CHAN12
 CCS java.lang.StringIndexOutOfBoundsException: Range [7, 8) out of bounds for length 7
  TCF ALM/END   TCF ENDEXT    # CDU WILL LIMIT EXCESS DATA.

 CAF
  java.lang.StringIndexOutOfBoundsException: Range [0, 8) out of bounds for length 6
  RXOR CHAN31
  MASK BIT13-14
  EXTEND
  BZF +2  # NEEDLES IS OFF.
 

  TC TESTXACT

  CAF VNLODCDU
   7
  CADR GOXDSPF
  TC ENDEXT  # V34
  TC   COUNT CHAN14
  CAF V43K  # REDISPLAY OUR VERB.
  TC BANKCALL
 java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
  CAF BIT6
  java.lang.StringIndexOutOfBoundsException: Range [9, 7) out of bounds for length 17
  WOR CHAN12  # ENABLE ERROR COUNTERS.
  CAF TWO# SELECTED STATE VECTOR UPDATED BY THISPREC (OTHPREC).#
  TC WAITLIST # RPER (PERIGEE RADIUS), RAP0 (APOGEE RADIUS), HPER (PERIGEE# TO BE UPDATED.  INITIAL CHOICE IS THIS SHIP (R2=1).  ASTRONAUT
  EBANK= # CALLS SR30.1#   INTERSECT 300 KFT# RPER (PERIGEE RADIUS), RAP0 (APOGEE RADIUS), HPER (PERIGEE
  2CADR RSECT 300 KFT ABOVE PAD OR 35KFT# FLASH MONITOR V16N44 (HAPO, HPER, TFF).  TFF IS -59M59S IF IT WAS

  TCF ENDEXT

  java.lang.StringIndexOutOfBoundsException: Index 3 out of bounds for length 1
  # #   OF SR30.1 ARE RAPO, #   RESULTS BY N50E.   IF MODE java.lang.StringIndexOutOfBoundsException: Index 13 out of bounds for length 0
  BANK

  COUNT*  EXTEND
# Page 282
 java.lang.StringIndexOutOfBoundsException: Index 9 out of bounds for length 8
+ TS Q
  INDEX A
  CA THETADV82CALL
  EXTEND
  MP  EBANK= HAPO
  INDEX Q
  XCH CDUXCMD
  CCS Q
 # REQUEST RENDEZVOUS PARAMETER DISPLAY# A. DISPLAY

  CAF 13,14,15
  EXTEND
  #  A. DISPLAY
  TCF TASKOVER # LEAVE ERROR COUNTERS ENABLED.BIT2

ATTSCALE DEC 0.1

  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
 TCjava.lang.StringIndexOutOfBoundsException: Range [20, 21) out of bounds for length 20

  CAF 2CADRCADR 
  TC PRIOCHNG
  EXTEND
  DCA V82CON
  TC SUPDXCHZ # V82CALL IN DIFF SUPERBANK FROM V82PERF

  EBANK# 2. SCHEDULE# 1. SET EXT VERB DISPLAY BUSY FLAG.
V82CON  2CADR V82CALL

# 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   java.lang.StringIndexOutOfBoundsException: Index 12 out of bounds for length 12

  CAF BIT2
  TC WAITLIST
  EBANK= java.lang.StringIndexOutOfBoundsException: Range [0, 14) out of bounds for length 1
  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# RESPONSES
  TC FINDVAC
  EBANK= RONE
#   1. SET#   1. SET 3AXISFLG TO # 2. EXECUTE R60LEM (ATTITUDE MANEUVER).

  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# 3. SCHEDULE V56TOVAC WITH PRIORITY 30.
  CAF PRIO7  # R36,V90
  TC FINDVAC
  EBANK= RPASS36
  2CADR R36

# 3.# 3. TRANSFER CONTROL TO GOPROG2 (SOFTWARE RESTART).

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

MINIMP  INHINT
  DAPBOOLS
  MASK PULSES  # PULSES = 1 INDICATES MIN IMP MODE
  ADS 
  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.


java.lang.StringIndexOutOfBoundsException: Index 13 out of bounds for length 13
  CSTEND
  MASK SETLOC  # BANK 42
  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 TC CHKPOOH  

  TC java.lang.StringIndexOutOfBoundsException: Range [0, 13) out of bounds for length 10

  CAF PRIO10TC
  
   INTSTALL#
  2CADR R62DISP



# 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
TC IBNKCALL # ZERO THE COMMANDED RATES TO STOP
# 2. ZERO GROUP 2 TO HALT P20.
# 3. TRANSFER CONTROL TO GOPROG2 (SOFTWARE RESTART).

java.lang.StringIndexOutOfBoundsException: Index 1 out of bounds for length 0
  # DNEDUMP VERB 74  # INITIALZE DOWN-TELEMETRY PROGRAM FOR
  EXTEND
  BZF GOPIN  # NO

  TC CSjava.lang.StringIndexOutOfBoundsException: Range [0, 10) out of bounds for length 6
  ADRES COUNT* $$/EXTVB

  TC java.lang.StringIndexOutOfBoundsException: Range [0, 13) out of bounds for length 12
  ADRES P25FLAGDNTMGOTO

  TC java.lang.StringIndexOutOfBoundsException: Index 11 out of bounds for length 1
 ADRES 

  CA TRACKBITSETLOC java.lang.StringIndexOutOfBoundsException: Range [17, 8) out of bounds for length 23
  MASK FLAGWRD1
  EXTEND
LEMVEC   400

  TS
  CADR java.lang.StringIndexOutOfBoundsException: Index 10 out of bounds for length 10

EQUALS  

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

  COUNT* $$/EXTVB

NOUPDOWNTC DOWNFLAG
  ADRES UPDATFLG # UPDATE FLAG DOWN
  TC DOWNFLAG
  ADRES TRACKFLG # TRACK FLAG DOWN
  TC DOWNFLAG
  ADRES IMUSE

  TC INTPRET
  CALL
  INTSTALL
# Page 288
   ADRESVEHUPFLG

  TC PHASCHNG# Page 290
  OCT 2   ADRESjava.lang.StringIndexOutOfBoundsException: Index 10 out of bounds for length 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 EXTEND
  EXTEND   
BZF 
  CAF V06N48  # DISPLAY TRIM ANGLES AND REQUEST RESPONSE
  TC BANKCALL
   GOXDSPFR
  TC ENDEXT
  TCF DPDAT3  # V33E GO DO TRIM (WAITLIST TO TRIMGIMB)
  TCF -5  # LOAD NEW DATA AND RECYCLE
  CAF BIT3
  TC BLANKET  # BLANK R3
  TCF ENDOFJOB
DPDAT3  CAF BIT1  # GO TO TRIMGIMB VIA WAITLIST SO IT
  INHINT   # CAN USE FIXDELAY AND VARDELAY
  TC WAITLIST
 PDAT3 CAF BIT1 # GO TO TRIMGIMB VIA WAITLIST SO IT
  2CADR TRIMGIMB

  TCF#
DONECAF V50N48
java.lang.StringIndexOutOfBoundsException: Index 54 out of bounds for length 54
   EBANK ROLLTIME
  TC ENDEXT  # V34E TERMINATE
  TC ENDEXT
  TC
   TCF SVDWN1
  TC java.lang.StringIndexOutOfBoundsException: Index 10 out of bounds for length 0
  TCF ENDOFJOB

V0647  VN 0647
V06N48  VN 0648

V50N48# Page 298
NORMAL  DEC .660214
     # NORMAL SCALING IS 20 D/S
TCFENDOFJOB
1/10java.lang.StringIndexOutOfBoundsException: Range [4, 0) out of bounds for length 0
-.6D/  

# Page 296

-DEC.java.lang.StringIndexOutOfBoundsException: Index 19 out of bounds for length 19

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

  BANK  ADRES java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
  # Page 297


  COUNT $/#

  EBANK= RRECTHIS

ATTACHED CAF PRIO10
  java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
  EBANK= RRECTHIS

  2ATTACHIT

  TC ENDOFJOB

java.lang.StringIndexOutOfBoundsException: Range [17, 8) out of bounds for length 19
  CALL
   java.lang.StringIndexOutOfBoundsException: Index 7 out of bounds for length 0
  SET java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
   ADRESjava.lang.StringIndexOutOfBoundsException: Index 15 out of bounds for length 15
   MOONTHIS
   +3
  # VERB 75 ENABLE U,V JETS DURING DPS BURNS
   MOONOTH
  EXIT
CAF OCT51
  TC GENTRAN
  ADRES RRECTHIS  +3
  ADRES RRECTOTH

  RELINT
 TC INTPRET
  CALL   # UPDATE R-OTHER, V-OTHER
   PTOALEM
  ,2CALL
   PBODY
   SVDWN1
  EXIT

  CAF TCPINADVERB85    # UPDATE R-OTHER, V-OTHER
  INDEX FIXLOC
  TS QPRET
  TCPOSTJUMP
  CADR INTWAKE  # FREE INTEGRATION AND EXIT.

# Page 298

TCPIN  RTB
   PINBRNCH

OCT51  OCT 51
CPINAD CADR TCPIN

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

VERB96  TC UPFLAG  # QUITFLAG WILL CAUSE INTEGRATION TO EXITCAF PRIO4
  ADRES QUITFLAG # AT NEXT TIMESTEP

  CAF ZERO
  TC POSTJUMP
  CADR V37  # GO TO P00

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