Fix YaYUL Fatal Errors in Luminary099 (#665)

This commit is contained in:
James Harris 2020-03-04 17:17:16 +00:00 committed by GitHub
parent 8b2fca34e6
commit fe25f9d905
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
35 changed files with 136 additions and 136 deletions

View File

@ -147,7 +147,7 @@ WHIMPER CA TWO
RESUME
TC POSTJUMP # RESUME SENDS CONTROL HERE
CADR ENEMA
P00DOO INHINT
POODOO INHINT
CA Q
ABORT2 TS ALMCADR
INDEX Q

View File

@ -589,7 +589,7 @@ EPSILON EQUALS MPAC +1
COUNT* $$/DAPAO
-1 TS INGTS # ZERO INGTS IN ASCENT
-1 TS INGTS # ZERO INGTS IN ASCENT
1/ACCONT CA DB # INITIALIZE DBVAL1,2,3
EXTEND
MP BIT13

View File

@ -38,7 +38,7 @@ AOTMARK INHINT
CCS MARKSTAT # SEE IF AOTMARK BUSY
TC +2 # MARK SYSTEM BUSY -- DO ALARM
TC EXTVBCHK
TC P00DOO
TC POODOO
OCT 00105
EXTVBCHK CAF SIX # SEE IF EXT. VERB WORKING
@ -94,7 +94,7 @@ MKRELEAS CAF ZERO
# Page 246
KILLAOT CAF ZERO
TS EXTVBACT # TERMINATE AOTMARK -- ALLOW EXT VERB
TC GOTOP00H
TC GOTOPOOH
GETDAT CS MARKSTAT # SET BIT12 TO DISCOURAGE MARKRUPT
MASK BIT12 # BIT12 RESET AT GETMARK
ADS MARKSTAT
@ -103,7 +103,7 @@ GETDAT CS MARKSTAT # SET BIT12 TO DISCOURAGE MARKRUPT
TC BANKCALL
CADR GOMARKF
TCF KILLAOT # V34 -- DOES GOTOP00H
TCF KILLAOT # V34 -- DOES GOTOPOOH
TCF DODAT # V33 -- PROCEED -- USE THIS STAR FOR MARKS
ENTERDAT TCF GETDAT # ENTER -- REDISPLAY STAR CODE
@ -126,7 +126,7 @@ CODE7 CAF V06N87* # CODE 7, COAS SIGHTING, GET OPTIC AXIS
TC BANKCALL # AZ AND EL OF SIGHTING DEVICE FROM ASTRO
CADR GOMARKF
TCF KILLAOT # V34 -- DOES GOTOP00H
TCF KILLAOT # V34 -- DOES GOTOPOOH
TCF +2 # PROCEED
TCF CODE7 # ON ENTER, RECYCLE
EXTEND
@ -326,7 +326,7 @@ GETMKS CAF ZERO # INITIALIZE MARK ID REGISTER AND MARK CNT
PASTIT TC BANKCALL
CADR GOMARK4
TCF KILLAOT # V34 -- DOES GOTOP00H
TCF KILLAOT # V34 -- DOES GOTOPOOH
TCF MARKCHEX # VB33 -- PROCEED, GOT MARKS, COMPUTE LOS
TCF GETDAT # ENTER -- RECYCLE TO V01N71
@ -660,7 +660,7 @@ DSPV6N79 CAF V06N79* # CURSOR -- SPIRAL DISPLAY
TC BANKCALL
CADR GOMARKF
TCF KILLAOT # V34 -- DOES GOTOP00H
TCF KILLAOT # V34 -- DOES GOTOPOOH
TCF SURFEND # V33 -- PROCEED, END MARKING
CAF BIT6 # IF V32(OCT40) IN MPAC DO RECYCLE
MASK MPAC # OTHERWISE IT IS LOAD VB ENTER SO

View File

@ -560,7 +560,7 @@ TERMASC TC PHASCHNG
CADR RESTORDB
TC DOWNFLAG # DISALLOW ABORTS AT THIS TIME.
ADRES LETABORT
TCF GOTOP00H
TCF GOTOPOOH
V16N85C VN 1685

View File

@ -602,7 +602,7 @@ COMFAIL TC UPFLAG # (15)
TCF +3 # YES
TC BANKCALL # OTHERWISE, START IT UP
CADR STCLOK1
+3 CS VB97DEX
+3 CS VB97DEX
TS DISPDEX
TC PHASCHNG # TURN OFF GROUP 4.
OCT 00004
@ -740,7 +740,7 @@ CLOKJOB EXTEND
VB97DEX = OCT35 # NEGATIVE OF THIS IS PROPER FOR DISPDEX
-35 CS ZERO # INDICATE VERB 97 PASTE
-35 CS ZERO # INDICATE VERB 97 PASTE
TS NVWORD1
CA NVWORD +2 # NVWORD+2 CONTAINS V06 & APPROPRIATE NOUN
TC BANKCALL
@ -750,7 +750,7 @@ VB97DEX = OCT35 # NEGATIVE OF THIS IS PROPER FOR DISPDEX
TCF COMFAIL2
# THIS DISPLAY IS CALLED VIA ASTNCLOK
-25 CAF V06N61 # IT IS PRIMARILY USED BY THE CREW IN P63
-25 CAF V06N61 # IT IS PRIMARILY USED BY THE CREW IN P63
TC BANKCALL # TO RESET HIS EVENT TIMER TO AGREE WITH
CADR REFLASH # TIG.
TCF STOPCLOK
@ -759,7 +759,7 @@ VB97DEX = OCT35 # NEGATIVE OF THIS IS PROPER FOR DISPDEX
CNTDNDEX = LOW4 # OCT17: NEGATIVE PROPER FOR DISPDEX
-17 INDEX WHICH # THIS DISPLAY COMES UP AT ONE SECOND
-17 INDEX WHICH # THIS DISPLAY COMES UP AT ONE SECOND
# Was CAF --- RSB 2009
CA 0 # INTERVALS. IT IS NORMALLY OPERATED
TC BANKCALL # BETWEEN TIG-30 SECONDS AND TIG-5 SECONDS
@ -769,26 +769,26 @@ VB99DEX = ELEVEN # OCT13: NEGATIVE PROPER FOR DISPDEX
V99RECYC EQUALS
-13 CS BIT9 # INDICATE VERB 99 PASTE
-13 CS BIT9 # INDICATE VERB 99 PASTE
TS NVWORD1
INDEX WHICH # THIS IS THE "PLEASE ENABLE ENGINE"
# Was CAF --- RSB 2004
CA 0 # DISPLAY; IT IS INITIATED AT TIG-5 SEC.
TC BANKCALL # THE DISPLAY IS A V99NXX, WHERE XX IS
CADR CLOCPLAY # NOUN THAT HAD PREVIOUSLY BEEN DISPLAYED
TCF STOPCLOK # TERMINATE GOTOP00H TURNS OFF ULLAGE.
TCF STOPCLOK # TERMINATE GOTOPOOH TURNS OFF ULLAGE.
TCF *PROCEED
TCF *ENTER
# Page 746
BLANKDEX = TWO # NEGATIVE OF THIS IS PROPER FOR DISPDEX
-2 TC BANKCALL # BLANK DSKY. THE DSKY IS BLANKED FOR
-2 TC BANKCALL # BLANK DSKY. THE DSKY IS BLANKED FOR
CADR CLEANDSP # 5 SECONDS AT TIG-35 TO INDICATE THAT
DISPNOT TCF ENDOFJOB # AVERAGE G IS STARTING.
STOPCLOK TC NULLCLOK # STOP CLOKTASK & TURN OFF ULLAGE ON THE
TCF GOTOP00H # WAY TO P00 (GOTOP00H RELINTS)
TCF GOTOPOOH # WAY TO P00 (GOTOPOOH RELINTS)
NULLCLOK INHINT
EXTEND
@ -886,7 +886,7 @@ REP40ALM CAF V05N09 # (14)
TC BANKCALL
CADR GOFLASH
TCF GOTOP00H # V34E TERMINATE
TCF GOTOPOOH # V34E TERMINATE
TCF +2 # PROCEED CHECK FOR P42
TCF REP40ALM # V32E REDISPLAY ALARM
@ -919,7 +919,7 @@ P40A/P TC BANKCALL # SUBROUTINE TO CHECK PGNCS CONTROL
TURNITON CAF P40A/PMD # DISPLAYS V50N25 R1=203 PLEASE PERFORM
TC BANKCALL # CHECKLIST 203 TURN ON PGNCS ETC.
CADR GOPERF1
TCF GOTOP00H # V34E TERMINATE
TCF GOTOPOOH # V34E TERMINATE
TCF P40A/P # RECYCLE
GOBACK CA TEMPR60
TC BANKJUMP # GOODBYE. COME AGAIN SOON.
@ -951,7 +951,7 @@ DSP2CADR 2CADR P63DISPS -2
EBANK= DVCNTR
ATMAGADR 2CADR ATMAG
? = GOTOP00H
? = GOTOPOOH
D29.9SEC 2DEC 2990

View File

@ -1726,7 +1726,7 @@ INFINAPO DLOAD GOTO # RETURNS WITH APOAPSIS IN MPAC, PERIAPSIS
# Page 1201
ABTCONIC EXIT
TC P00DOO
TC POODOO
OCT 00607
# Page 1202

View File

@ -85,7 +85,7 @@ RESTORDB CAE DAPBOOLS # DETERMINE CREW-SELECTED DEADBAND.
BZF SETMINDB
SETMAXDB CAF WIDEDB # SET 5 DEGREE DEADBAND.
+1 TS DB
+1 TS DB
EXTEND # SET UP JOB TO RE-POSITION SWITCH CURVES.
QXCH RUPTREG1
@ -124,7 +124,7 @@ ZATTEROR CAF EBANK6
STOPRATE CAF EBANK6
XCH EBANK
TS L # SAVE CALLERS EBANK IN L.
+3 CAF ZERO
+3 CAF ZERO
TS OMEGAPD
TS OMEGAQD
TS OMEGARD

View File

@ -770,7 +770,7 @@ IFLEGAL CAF TWO
EXTEND
BZF OKTOPLAY # NO
PRIOBORT TC P00DOO
PRIOBORT TC POODOO
OCT 1502
OKTOPLAY TC COPIES2

View File

@ -204,7 +204,7 @@ NEXTINCL INDEX CTLIST
XCH CTLIST # SET CTLIST TO NEGATIVE AND PLACE(CODING)
COM # UNCOMPLEMENTED DNADR INTO A. (FOR LA)
XCH CTLIST # (ST IN )
+4 INCR A # (CTLIST)
+4 INCR A # (CTLIST)
TS DNECADR # SAVE DNADR
AD MINTIME2 # TEST FOR TIME2 (NEG. OF ECADR)
CCS A
@ -212,8 +212,8 @@ NEXTINCL INDEX CTLIST
MINB1314 OCT 47777 # MINUS BIT 13 AND 14 (CAN'T GET HERE)
TCF SETWO +1 # DON'T SET WORD ORDER CODE
SETWO TC WOZERO # GO SET WORD ORDER CODE TO ZERO.
+1 CA DNECADR # RELOAD A WITH THE DNADR.
+2 AD MINB1314 # IS THIS A REGULAR DNADR?
+1 CA DNECADR # RELOAD A WITH THE DNADR.
+2 AD MINB1314 # IS THIS A REGULAR DNADR?
EXTEND
BZMF FETCH2WD # YES. (A MUST NEVER BE ZERO)
AD MINB12 # NO. IS IT A POINTER (DNPTR) OR A
@ -310,7 +310,7 @@ NEXTINSL INDEX SUBLIST
TS SUBLIST # SAVE A.
CA NEGONE # SET SUBLIST TO MINUS
XCH SUBLIST # RETRIEVE A.
+4 INCR A
+4 INCR A
TS DNECADR # SAVE DNADR
TCF SETWO +2 # GO USE COMMON CODING (PROLEMS WOULD
# OCCUR IF THE PROGRAM ENCOUNTERED A
@ -392,7 +392,7 @@ SUBLIST EQUALS DNQ
# Page 996
DNDUMPI CA ZERO # INITIALIZE DOWNLINK
TS DUMPLOC # ERASABLE DUMP
+2 TC SENDID # GO SEND ID AND SYNCH BITS
+2 TC SENDID # GO SEND ID AND SYNCH BITS
CA LDNDUMP1 # SET DNTMGOTO
TS DNTMGOTO # TO LOCATION FOR NEXT PASS
CA TIME1 # PLACE TIME1

View File

@ -1073,7 +1073,7 @@ NOMINIMP INHINT
# 1. DISPLAY FLASHING V06,N22.
# RESPONSES
# A. TERMINATE
# 1. GOTOP00H
# 1. GOTOPOOH
# B. PROCEED
# 1. SET 3AXISFLG TO INDICATE MANEUVER IS SPECIFIED BY 3 AXIS.
# 2. EXECUTE R60LEM (ATTITUDE MANEUVER).

View File

@ -342,7 +342,7 @@ PINACT CCS MPAC +5 # PROCESS ALL RESTART GROUPS.
CAF BIT15 # IS MODE -0
MASK MODREG
EXTEND
BZF GOTOP00H # NO
BZF GOTOPOOH # NO
TCF ENDRSTRT # YES
PTBAD TC ALARM # SET ALARM TO SHOW PHASE TABLE FAILURE.
OCT 1107
@ -614,7 +614,7 @@ SWINIT OCT 0
OCT 40000 # BIT 15 = LRBYPASS.
# Page 224
# PROGRAM NAME GOTOP00H ASSEMBLY SUNDANCE
# PROGRAM NAME GOTOPOOH ASSEMBLY SUNDANCE
# LOG SECTION FRESH START AND RESTART
#
# FUNCTIONAL DESCRIPTION
@ -623,7 +623,7 @@ SWINIT OCT 0
#
# INPUT/OUTPUT INFORMATION
#
# A. CALLING SEQUENCE TC GOTOP00H
# A. CALLING SEQUENCE TC GOTOPOOH
# B. ERASABLE INITIALIZATION NONE
# C. OUTPUT FLASH V 37 ON DSKY
# D. DEBRIS L
@ -639,7 +639,7 @@ SWINIT OCT 0
BANK
COUNT* $$/P00
GOTOP00H CAF OCT33 # 4.33 SPOT FOR GOP00FIX
GOTOPOOH CAF OCT33 # 4.33 SPOT FOR GOP00FIX
TS L
COM
DXCH -PHASE4

View File

@ -91,13 +91,13 @@ PROG21 CAF ONE
CAF BIT2 # OPTION 2
TC BANKCALL
CADR GOPERF4
TC GOTOP00H # TERMINATE
TC GOTOPOOH # TERMINATE
TC +2 # PROCEED VALUE OF ASSUMED VEHICLE OK
TC -5 # R2 LOADED THROUGH DSKY
P21PROG1 CAF V6N34 # LOAD DESIRED TIME OF LAT-LONG.
TC BANKCALL
CADR GOFLASH
TC GOTOP00H # TERM
TC GOTOPOOH # TERM
TC +2 # PROCEED VALUES OK
TC -5 # TIME LOADED THROUGH DSKY
TC INTPRET
@ -188,8 +188,8 @@ P21DSP CLEAR SLOAD # GENERATE DISPLAY DATA
CAF V06N43 # DISPLAY LAT, LONG, ALT
TC BANKCALL # LAT, LONG = 1/2 REVS B0
CADR GOFLASH # ALT = KM B14
TC GOTOP00H # TERM
TC GOTOP00H
TC GOTOPOOH # TERM
TC GOTOPOOH
TC INTPRET # V32E RECYCLE
DLOAD DAD
P21TIME

View File

@ -411,7 +411,7 @@ FINETIME INHINT # RETURNS WITH INTERRUPT INHIBITED
EXTEND
READ LOSCALAR
TS L
+4 CS POSMAX
+4 CS POSMAX
AD L
EXTEND
BZF FINETIME +1

View File

@ -2530,7 +2530,7 @@ ZEROANS CAF ZERO # FORCE ANSWER TO ZERO HERE.
TCF FIXROOT
SQRTABRT DXCH LOC
TC P00DOO1
TC POODOO1
OCT 1302
# Page 1080

View File

@ -865,7 +865,7 @@ P64DISPS CA TREDES # HAS TREDES REACHED ZERO?
CAF V06N64 # OTHERWISE USE FLASHING DISPLAY
TC BANKCALL
CADR REFLASHR
TCF GOTOP00H # TERMINATE
TCF GOTOPOOH # TERMINATE
TCF P64CEED # PROCEED PERMIT REDESIGNATIONS
TCF P64DISPS # RECYCLE
# Page 815
@ -1409,7 +1409,7 @@ TDISPSET CA TTF/8
ADS TREDES
TC Q
1406P00 TC P00DOO
1406P00 TC POODOO
OCT 01406
1406ALM TC ALARM
OCT 01406

View File

@ -324,7 +324,7 @@ GOBAQUE VLOAD ABVAL
TESTLOOP
INT-ABRT EXIT
TC P00DOO
TC POODOO
OCT 00430
# Page 1234

View File

@ -106,7 +106,7 @@ SUBDIVDE EXTEND # OVERFLOW PROTECTION ROUTINE TO GIVE
MP DAPTEMP3 # POSMAX OR NEGMAX IF THE DIVIDE WOULD
DAS OMEGAU # OVERFLOW
+3 EXTEND
+3 EXTEND
DCA OMEGAU
DXCH DAPTEMP5
CCS OMEGAU
@ -259,7 +259,7 @@ LMONLY EXTEND # UNDOCKED
DCA LMOMEGAN
DXCH DAPTREG4
CA LMTRAP
+5 TS DAPTREG6
+5 TS DAPTREG6
CCS TRAPEDP
TCF +2
TCF SMALPDIF
@ -990,7 +990,7 @@ SELECTP CA SIX
TCF JETSOFF # ********** TCF ALARMJET **********
SELECTYZ TS NUMBERT
TCF SELECTP +1
-1 TCF ABORTYZ +2
-1 TCF ABORTYZ +2
JETSALL OCT 00252
OCT 00125 # +P
OCT 00140 # -Y

View File

@ -62,7 +62,7 @@ P12LM TC PHASCHNG
CAF V06N33A
TC BANKCALL # FLASH TIG
CADR GOFLASH
TCF GOTOP00H
TCF GOTOPOOH
TCF +2 # PROCEED
TCF -5 # ENTER
@ -111,7 +111,7 @@ P12LMB DLOAD
NEWLOAD CAF V06N76 # FLASH CROSS-RANGE, AND APOLUNE VALUES.
TC BANKCALL
CADR GOFLASH
TCF GOTOP00H
TCF GOTOPOOH
TCF +2 # PROCEED
TCF NEWLOAD # ENTER NEW DATA.

View File

@ -111,7 +111,7 @@ ORBCHGO TC UPFLAG # SET VEHUPFLG -- CSM STATE
CAF OCT00012
TC BANKCALL # DISPLAY ASSUMED CSM ORBIT OPTION
CADR GOPERF4
TC GOTOP00H # TERMINATE
TC GOTOPOOH # TERMINATE
TC ORBCHG1 # PROCEED VALUE OF ASSUMED OPTION OK
TC -5 # R2 LOADED THRU DSKY
ORBCHG1 CS P22ONE
@ -121,7 +121,7 @@ ORBCHG1 CS P22ONE
CAF V06N33*
TC BANKCALL # FLASH VERB-NOUN TO REQUEST ESTIMATED
CADR GOFLASH # TIME OF LAUNCH
TC GOTOP00H # TERMINATE
TC GOTOPOOH # TERMINATE
TC ORBCHG2 # PROCEED VALUES OK
TC -5 # TIME LOADED THRU DSKY
ORBCHG2 TC INTPRET
@ -4410,7 +4410,7 @@ ZERO/SP EQUALS HI6ZEROS
BANK
COUNT* $$/P20
GOTOV56 EXTEND # P20 TERMINATES BY GOTOV56 INSTEAD OF
DCA VB56CADR # GOTOP00H
DCA VB56CADR # GOTOPOOH
TCF SUPDXCHZ
EBANK= WHOCARES
VB56CADR 2CADR TRMTRACK

View File

@ -41,10 +41,10 @@
#
# CALLING SEQUENCE VIA JOB FROM V37
#
# EXIT VIA V37 CALL OR TO GOTOP00H (V34E)
# EXIT VIA V37 CALL OR TO GOTOPOOH (V34E)
#
# SUBROUTINE CALLS -- FLAGUP, PHASCHNG, BANKCALL, ENDOFJOB, GOFLASH, GOFLASHR
# GOPERF3R, INTPRET, BLANKET, GOTOP00H, R02BOTH, S30.1,
# GOPERF3R, INTPRET, BLANKET, GOTOPOOH, R02BOTH, S30.1,
# TIG/N35, MIDGIM, DISPMGA
#
# ERASABLE INITIALIZATION -- STATE VECTOR

View File

@ -180,7 +180,7 @@
# VARALARM
# BANKCALL
# GOFLASH
# GOTOP00H
# GOTOPOOH
# Page 621
# VNP00H
# GOFLASHR
@ -218,7 +218,7 @@ ALMXIT LXC,1
CAF V05N09
TC BANKCALL
CADR GOFLASH
TC GOTOP00H
TC GOTOPOOH
TC -4
P32/P72A TC P20FLGON
CAF P30ZERO
@ -257,7 +257,7 @@ VN0655 EXIT
CAF V06N55 # NN, ELEV(RGLOS)
TC BANKCALL
CADR GOFLASH
TC GOTOP00H
TC GOTOPOOH
TC +2
TC -5
CAF V06N37 # TTPI
@ -473,7 +473,7 @@ P32/P72F STORE T2TOT3
# ALARM
# BANKCALL
# GOFLASH
# GOTOP00H
# GOTOPOOH
# S32/33.1
# Page 627
# VN1645
@ -524,7 +524,7 @@ P33/P73B CALL
CAF V05N09
TC BANKCALL
CADR GOFLASH
TC GOTOP00H
TC GOTOPOOH
TC +2
# Page 628
TC P33/P73A

View File

@ -192,7 +192,7 @@
# ALARM
# BANKCALL
# GOFLASH
# GOTOP00H
# GOTOPOOH
# TIMETHET
# S34/35.2
# PERIAPO1
@ -251,7 +251,7 @@ INTLOOP DLOAD DAD
CAF V05N09
TC BANKCALL
CADR GOFLASH
TC GOTOP00H
TC GOTOPOOH
TC P34/P74A # PROCEED
TC -7 # V32
@ -853,7 +853,7 @@ ALLSET STOVL TET
# SUBROUTINES USED
# BANKCALL
# GOFLASH
# GOTOP00H
# GOTOPOOH
# S34/35.3
# S34.35.4
# VNP00H
@ -873,7 +873,7 @@ FLAGON CLEAR VLOAD
+5 CAF V06N81
TC BANKCALL
CADR GOFLASH
TC GOTOP00H
TC GOTOPOOH
TC +2 # PRO
TC FLAGON +5 # LOAD
+2 CA EBANK7
@ -924,7 +924,7 @@ FLAGOFF CALL
# DELAYJOB
# COMPTGO
# GOFLASHR
# GOTOP00H
# GOTOPOOH
# FLAGUP
VN1645 STQ DLOAD
@ -965,7 +965,7 @@ GET45 EXIT
KILCLOCK CA Z
TS DISPDEX
# Page 681
TC GOTOP00H
TC GOTOPOOH
N45PROC CS FLAGWRD2
MASK BIT6
EXTEND
@ -989,7 +989,7 @@ CLUPDATE CA Z
# SUBROUTINES USED
# BANKCALL
# GOFLASHR
# GOTOP00H
# GOTOPOOH
# BLANKET
# ENDOFJOB
@ -998,7 +998,7 @@ DISPLAYE EXTEND
CAF V06N55
TCR BANKCALL
CADR GOFLASH
TCF GOTOP00H
TCF GOTOPOOH
TC NORMEX
TCF -5
@ -1017,7 +1017,7 @@ P3XORP7X CAF HIGH9
# SUBROUTINES USED
# BANKCALL
# GOFLASH
# GOTOP00H
# GOTOPOOH
VNP00H EXTEND
QXCH RTRN
@ -1025,7 +1025,7 @@ VNP00H EXTEND
CA VERBNOUN
TCR BANKCALL
CADR GOFLASH
TCF GOTOP00H
TCF GOTOPOOH
TC RTRN
TCF -5

View File

@ -60,7 +60,7 @@
# ALLCOAST DAP COASTING INITIALIZATION
# CLOKTASK ERGO CLOCKJOB -- COUNT DOWN
# PHASCHANG, INTPRET, FLAGUP, FLAGDOWN, WAITLIST, LONGCALL, GOFLASH, GOFLASHR, GOPERF1, ALARM,
# PRIOLARM, GOTOP00H, ENDOFJOB, BANKCALL, SETMAXDB, SETMINDB, CHECKMM, FLATOUT, OUTFLAT,
# PRIOLARM, GOTOPOOH, ENDOFJOB, BANKCALL, SETMAXDB, SETMINDB, CHECKMM, FLATOUT, OUTFLAT,
# KILLTASK, SGNAGREE, TPAGREE, ETC.
#
# RESTARTS VIA GROUP 4
@ -85,9 +85,9 @@
# ALARM OR ABORT EXIT MODES
#
# PROGRAM ALARM, FLASHING DISPLAY OF ALARM CODE 1706 IF P40 SELECTED WITH DESCENT UNIT STAGED.
# V34E (TERMINATE) IS THE ONLY RESPONSE ACCEPTED. TC GOTOP00H.
# V34E (TERMINATE) IS THE ONLY RESPONSE ACCEPTED. TC GOTOPOOH.
#
# PROGRAM ALARM, FLASH CODE 1703: TIG LESS THAN 45 SECS AWAY. V34E= GOTOP00H OR V33E= SLIP
# PROGRAM ALARM, FLASH CODE 1703: TIG LESS THAN 45 SECS AWAY. V34E= GOTOPOOH OR V33E= SLIP
# TIG BY 45 SECS.
#
# ERASABLE INITIALIZATION
@ -209,7 +209,7 @@ TERM40 EXTEND
TC IBNKCALL
CADR RESTORDB
RELINT
TC GOTOP00H
TC GOTOPOOH
EBANK= WHICH
COUNT* $$/P41
@ -402,8 +402,8 @@ CALCN83 TC INTPRET
P47BOD CAF V1683
TC BANKCALL
CADR GOFLASHR
TC GOTOP00H
TC GOTOP00H
TC GOTOPOOH
TC GOTOPOOH
TCF P47BODY

View File

@ -139,7 +139,7 @@ P52A CAF BIT1
P52B CAF BIT1
TC BANKCALL # FLASH OPTION CODE AND ORIENTATION CODE
CADR GOPERF4R # FLASH V04N06
TC GOTOP00H
TC GOTOPOOH
TCF +5 # V33 -- PROCEED
TC P52B # NEW CODE -- NEW ORIENTATION CODE INPUT
TC PHASCHNG # DISPLAY RETURN
@ -167,7 +167,7 @@ P52T EXTEND
CAF V06N34*
TC BANKCALL
CADR GOFLASH
TC GOTOP00H
TC GOTOPOOH
TC +2
TC -5
DXCH DSPTEM1
@ -197,7 +197,7 @@ P52D CALL # READ VEHICLE ATTITUDE AND
CAF V06N22
TC BANKCALL # DISPLAY GIMBAL ANGLES
CADR GOFLASH
TC GOTOP00H
TC GOTOPOOH
TCF COARSTYP # V33 -- PROCEED, SEE IF GYRO TORQUE COARSE
P52H TC INTPRET
GOTO
@ -211,7 +211,7 @@ COARSRET SET CLEAR
P52F CALL
R51
P52OUT EXIT
TC GOTOP00H
TC GOTOPOOH
VB05N09 = V05N09
V06N34* VN 634
@ -221,7 +221,7 @@ V06N34* VN 634
COARSTYP CAF OCT13
TC BANKCALL # DISPLAY V 50N25 WITH COARSE ALIGN OPTION
CADR GOPERF1
TCF GOTOP00H # V34 -- TERMIN&OE
TCF GOTOPOOH # V34 -- TERMIN&OE
TCF REGCOARS # V33 -- NORMAL COARSE
TC INTPRET # V32 -- GYRO TORQUE COARSE
VLOAD MXV
@ -290,7 +290,7 @@ N89DISP STQ
LSDISP CAF V06N89* # DISPLAY LAT,LONG/2,ALT
TC BANKCALL
CADR GOFLASH
TCF GOTOP00H # V34 -- TERMINATE -- EXIT P57
TCF GOTOPOOH # V34 -- TERMINATE -- EXIT P57
TCF +2 # V33 -- PROCEED -- ACCEPT LS DATA
TCF LSDISP # V32 OR E -- LOOK AGAIN AND/OR LOAD NEW LS
@ -637,7 +637,7 @@ R51.1 EXIT
R51C CAF OCT15
TC BANKCALL
CADR GOPERF1
TC GOTOP00H
TC GOTOPOOH
TC +2 # V33E
TC R51E # ENTER
TC INTPRET
@ -656,7 +656,7 @@ R51I TC ALARM
CAF VB05N09
TC BANKCALL
CADR GOFLASH
TC GOTOP00H
TC GOTOPOOH
TC R51E
TC R51C
R51E CAF ZERO
@ -715,7 +715,7 @@ R51K EXIT
R51P63 CAF OCT14
TC BANKCALL
CADR GOPERF1
TC GOTOP00H
TC GOTOPOOH
TC R51C
TC INTPRET
GOTO
@ -790,7 +790,7 @@ PULSEM EXIT
R55.1 CAF V06N93
TC BANKCALL
CADR GOFLASH
TC GOTOP00H
TC GOTOPOOH
TC R55.2
TC R55RET
R55.2 TC PHASCHNG
@ -873,7 +873,7 @@ CHKSD DLOAD DSU
CAF VB6N5
TC BANKCALL
CADR GOFLASH
TCF GOTOP00H
TCF GOTOPOOH
TC CHKSDA # PROCEED
TC INTPRET
CLEAR GOTO
@ -1008,12 +1008,12 @@ RDCDUS INHINT # READ CDUS
COUNT* $$/P51
# Page 950
P51 TC BANKCALL # IS ISS ON - IF NOT, IMUCHK WILL SEND
CADR IMUCHK # ALARM CODE 210 AND EXIT VIA GOTOP00H.
CADR IMUCHK # ALARM CODE 210 AND EXIT VIA GOTOPOOH.
CAF OCT15
TC BANKCALL
CADR GOPERF1
TC GOTOP00H # TERM.
TC GOTOPOOH # TERM.
TCF P51B # V33
TC PHASCHNG
OCT 04024
@ -1107,7 +1107,7 @@ P51G CALL
MATMOVE
SET EXIT
REFSMFLG
TC GOTOP00H # FINIS
TC GOTOPOOH # FINIS
# Page 952
V41K VN 4100
COARSE EXIT
@ -1232,7 +1232,7 @@ R52 STQ EXIT
R52A CAF V01N70
TC BANKCALL
CADR GOFLASH # DISPLAY STARCODE AND WAIT FOR RESPONSE
TC GOTOP00H # V34 -- TERMINATE
TC GOTOPOOH # V34 -- TERMINATE
TCF R52B # V33 -- PROCEED TO ORIENT LEM
TCF R52A # ENTER -- SELECT NEW STARCODE -- RECYCLE
@ -1268,7 +1268,7 @@ R52B TC DOWNFLAG
GETAZEL CAF V06N87 # CODE 0 OR 7, GET AZ AND EL KEY IN
TC BANKCALL
CADR GOFLASH
TC GOTOP00H # V34 -- TERMINATE
TC GOTOPOOH # V34 -- TERMINATE
TCF +2 # PROCEED -- CALC OPTIC AXIS
TCF GETAZEL # ENTER -- RECYCLE
@ -1319,7 +1319,7 @@ R59 CS FLAGWRD3
CAF V01N70* # SELECT STAR CODE FOR ACQUISITION
TC BANKCALL
CADR GOFLASH
TC GOTOP00H # V34 -- TERMINATE
TC GOTOPOOH # V34 -- TERMINATE
TCF R59A # V33 -- PROCEED
TCF R59 # V32 -- RECYCLE
@ -1449,14 +1449,14 @@ R59ALM TC ALARM # THIS STAR CAN'T BE LOCATED IN AOT FIELD
CAF VB05N09 # DISPLAY ALARM
TC BANKCALL
CADR GOFLASH
TCF GOTOP00H # VB34 -- TERMINATE
TCF GOTOPOOH # VB34 -- TERMINATE
TCF R59OUT # VB33 -- PROCEED, GO WITHOUT ACQUIRE
TCF R59 # VB32 -- RECYCLE AND TRY ANOTHER STAR
79DISP CAF V06N79 # DISPLAY CURSOR, SPIRAL AND POS CODE
TC BANKCALL
CADR GOFLASH
TCF GOTOP00H # V34 -- TERMINATE
TCF GOTOPOOH # V34 -- TERMINATE
# Page 960
TCF R59E # V33 -- PROCEED TO MARK ROUTINE
TCF R59 # V32 -- RECYCLE TO TOP OF R59 AGAIN
@ -1683,7 +1683,7 @@ GRAVEL VLOAD* CALL
CA DISGRVER
TC BANKCALL
CADR GOFLASH
TC GOTOP00H
TC GOTOPOOH
TCF PROGRAV # VB33 -- PROCEED
TC UPFLAG # VB32 -- RECYCLE -- STORE GRAV AND DO IT AGAIN
ADRES FREEFLAG # AND SET FREEFLAG TO SHOW RECYCLE
@ -1919,7 +1919,7 @@ INITBY CALL
CAF DISPGYRO # DISPLAY GYRO TORQ ANGLES V 06N93
TC BANKCALL
CADR GOFLASH
TC GOTOP00H # V34 -- TERMINATE
TC GOTOPOOH # V34 -- TERMINATE
TCF 5DEGTEST # VB33 -- PROCEED TO COARSE OR FINE
TCF P57POST +1 # VB32 -- RECYCLE, MAYBE RE-ALIGN
@ -1964,13 +1964,13 @@ P57POST EXIT
CAF OCT14 # DISPLAY V50N25 CHK CODE 14
TC BANKCALL
CADR GOPERF1
TCF GOTOP00H # VB34 -- TERMINATE
TCF GOTOPOOH # VB34 -- TERMINATE
TCF P57JUMP # VB33 -- PROCEED TO RE-ALIGN
CS BIT2 # TEST TO SEE IF ALIGNED BY OPTION 2
AD OPTION2
EXTEND
BZF +2 # YES -- GO CALCULATE LANDING SITE
TCF GOTOP00H # NO -- EXIT P57
TCF GOTOPOOH # NO -- EXIT P57
TC PHASCHNG # RESTART PLACE
OCT 04024
TC INTPRET
@ -1998,7 +1998,7 @@ P57POST EXIT
R-TO-RP
STORE RLS # RLS IN MOON-FIXED COORDS
EXIT
TCF GOTOP00H # EXIT P57
TCF GOTOPOOH # EXIT P57
# Page 974
# COARSE AND FINE ALIGN IMU
@ -2020,7 +2020,7 @@ COATRIM AXC,1 AXC,2
CAF V06N22 # THAN 5 DEGREES
TC BANKCALL
CADR GOFLASH
TC GOTOP00H
TC GOTOPOOH
TCF +2
TCF -5
TC PHASCHNG
@ -2041,14 +2041,14 @@ DISPGYRO VN 0693
# LUNAR SURFACE IMU ALIGNMENT PROGRAM
P57 TC BANKCALL # IS ISS ON -- IF NOT, IMUCHK WILL SEND
CADR IMUCHK # ALARM CODE 210 AND EXIT VIA GOTOP00H
CADR IMUCHK # ALARM CODE 210 AND EXIT VIA GOTOPOOH
CAF THREE # JAM REFSMMAT OPTION 3 FOR INITIAL DISP.
TS OPTION2
P57OPT CAF BIT1
TC BANKCALL
CADR GOPERF4R # FLASH V04N06 FOR ALIGNMENT CODE
TC GOTOP00H # V34 TERMINATE
TC GOTOPOOH # V34 TERMINATE
TCF ALIGNOPT # V33 PROCEED
TCF P57OPT # V32 RECYCLE
@ -2080,7 +2080,7 @@ P57A STORE DSPTEM1
P57AA CAF V06N34* # DISPLAY TALIGN, TALIGN : DSPTEM1
TC BANKCALL
CADR GOFLASH
TCF GOTOP00H # V34 -- TERMINATE
TCF GOTOPOOH # V34 -- TERMINATE
TCF +2
TCF P57AA # VB32 -- RECYCLE
@ -2126,7 +2126,7 @@ PACKOPTN CAF ZERO # PACK FLAG BITS FOR OPTION DISPLAY
DSPOPTN CAF VB05N06 # DISPLAY OPTION CODE AND FLAG BITS
TC BANKCALL
CADR GOFLASH
TCF GOTOP00H # VB34 -- TERMINATE
TCF GOTOPOOH # VB34 -- TERMINATE
TCF +2 # V33 -- PROCEED
TCF DSPOPTN # V32 -- RECYCLE
@ -2148,7 +2148,7 @@ DSPOPTN CAF VB05N06 # DISPLAY OPTION CODE AND FLAG BITS
CAF VB05N09 # DISPLAY ALARM FOR ACTION
TC BANKCALL
CADR GOFLASH
TCF GOTOP00H # VB34 -- TERMINATE
TCF GOTOPOOH # VB34 -- TERMINATE
TCF DSPOPTN # V33 -- PROCEED *********TEMPORARY
TCF DSPOPTN # VB32 -- RECYCLE TO OPTION DISPLAY V 05N06
@ -2314,7 +2314,7 @@ IMUCHK CS IMODES30
TC ALARM # NO, SEND ALARM AND EXIT
OCT 210
TC GOTOP00H
TC GOTOPOOH
TC UPFLAG
ADRES IMUSE # SET IMUSE FLAG

View File

@ -146,7 +146,7 @@ INTOTHIS STCALL TDEC1
OUT EXIT
ENDP76 CAF ZERO
TS MARKCTR # CLEAR RR TRACKING MARK COUNTER
TCF GOTOP00H
TCF GOTOPOOH
V06N84 NV 0684
NV 0633

View File

@ -2743,7 +2743,7 @@ DSPALARM CS NVSBENDL
TC PASTEVB # PUT MONITOR VERB BACK IN VERBREG
CHARALRM TC FALTON # NO NVSUB INITATED. TURN ON OPR ERROR
TC ENDOFJOB
TC P00DOO
TC POODOO
OCT 01501
MONADR GENADR PASTEVB
NVSBENDL TC NVSUBEND
@ -3164,7 +3164,7 @@ ISCADR+0 CCS CADRSTOR # ABORTS (CODE 01206) IF CADRSTOR NOT= +0.
ISLIST+0 CCS DSPLIST # ABORTS (CODE 01206) IF DSPLIST NOT= +0.
TC DSPABORT # RETURNS IF DSPLIST = +0.
TC Q
DSPABORT TC P00DOO
DSPABORT TC POODOO
OCT 01206
# JAMTERM ALLOWS PROGRAMS TO PERFORM THE TERMINATE FUNCTION.

View File

@ -529,7 +529,7 @@ TJLAW CA TJLAWADR
TCF +3
TC TJETLAW
TCF AFTERTJ
+3 CS DAPBOOLS # DOCKED. IF GIMBAL USABLE DO GTS CONTROL
+3 CS DAPBOOLS # DOCKED. IF GIMBAL USABLE DO GTS CONTROL
MASK USEQRJTS # ON THE NEXT PASS.
CCS A # USEQRJTS BIT MUST NOT BE BIT 15.
TS COTROLER # GIMBAL USABLE. STORE POSITIVE VALUE.

View File

@ -51,7 +51,7 @@
#
# B. TERMINATE -- IF IN P00 GO TO STEP 5A. OTHERWISE CHECK IF R61 IS
# THE CALLING PROGRAM. IF IN R61 AN EXIT IS MADE TO GOTOV56. IF
# NOT IN R61 AN EXIT IS DONE VIA GOTOP00H.
# NOT IN R61 AN EXIT IS DONE VIA GOTOPOOH.
#
# C. PROCEED -- CONTINUE WITH PROGRAM AT STEP 6.
#
@ -211,7 +211,7 @@ R61TEST CA MODREG # IF WE ARE IN P00 IT MUST BE V49 OR V89
CA FLAGWRD4 # ARE WE IN R61 (P20 OR P25)
MASK PDSPFBIT
EXTEND
BZF GOTOP00H # NO
BZF GOTOPOOH # NO
TC GOTOV56 # YES
BIT14+7 OCT 20100

View File

@ -241,7 +241,7 @@ SIZETAB TC 1.2SPOT -12006
4.35SPOT OCT 46777
EBANK= DVCNTR
2CADR GOP00DOO
2CADR GOPOODOO
4.37SPOT OCT 52777
EBANK= WHICH

View File

@ -82,7 +82,7 @@ READACCS CS OCT37771 # THIS PIECE OF CODING ATTEMPTS TO
CS ONE # OCCUR APPROXIMATELY 70 MILLISECONDS
TCF +2 # FOLLOWING THE READACCS RUPT. THE 70 MS
CA ONE # OFFSET WAS CHOSEN SO THAT THE PAXIS
+2 ADS TIME5 # RUPT WOULD NOT OCCUR SIMULTANEOUSLY
+2 ADS TIME5 # RUPT WOULD NOT OCCUR SIMULTANEOUSLY
# WITH ANY OF THE 8 SUBSEQUENT R10,R11
# INTERRUPTS -- THUS MINIMIZING THE POSS-
# IBILITY OF LOSING DOWNRUPTS.
@ -410,7 +410,7 @@ SERVIDLE EXTEND # DISCONNECT SERVICER FROM ALL GUIDANCE
DCA NEG0
DXCH -PHASE2
+4 EXTEND
+4 EXTEND
DCA NEG0
DXCH -PHASE3
@ -424,7 +424,7 @@ SERVIDLE EXTEND # DISCONNECT SERVICER FROM ALL GUIDANCE
DXCH -PHASE4
TCF WHIMPER # PERFORM A SOFTWARE RESTART AND PROCEED
# TO GOTOP00H WHILE SERVICER CONTINUES TO
# TO GOTOPOOH WHILE SERVICER CONTINUES TO
# RUN, ALBEIT IN A GROUND STATE WHERE
# ONLY STATE-VECTOR DEPENDENT FUNCTIONS
# ARE MAINTAINED.
@ -490,8 +490,8 @@ NORMLIZ2 CA EIGHTEEN
TC ENDOFJOB
COPYCYC CA OCT24 # DEC 20
+1 INHINT
+2 MASK NEG1 # REDUCE BY 1 IF ODD
+1 INHINT
+2 MASK NEG1 # REDUCE BY 1 IF ODD
TS ITEMP1
EXTEND
INDEX ITEMP1
@ -543,7 +543,7 @@ PIPASR EXTEND
# Page 870
DCA TIME2
DXCH PIPTIME1 # CURRENT TIME POSITIVE VALUE
+3 CS ZERO # INITIALIZE THESE AT NEG. ZERO.
+3 CS ZERO # INITIALIZE THESE AT NEG. ZERO.
TS TEMX
TS TEMY
TS TEMZ
@ -1344,7 +1344,7 @@ USEVF INDEX VSELECT*
CA LRWVFZ # USE APPROPRIATE CONSTANT WEIGHT
TCF WSTOR
-1 CA ZERO
-1 CA ZERO
WSTOR TS MPAC
CS BIT7 # (=64D)
AD MODREG
@ -1355,7 +1355,7 @@ WSTOR TS MPAC
CA LRWVFF
TS MPAC
+3 CA EBANK7
+3 CA EBANK7
TS EBANK # CHANGE EBANKS
EBANK= ABVEL
@ -1636,12 +1636,12 @@ POSGOOD CA PRIO23 # REDUCE PRIORITY FOR INTERPRETIVE COMPS.
POSALARM CA OCT523
TC BANKCALL
CADR PRIOLARM # FLASH ALARM CODE
TCF GOTOP00H # TERMINATE
TCF GOTOPOOH # TERMINATE
TCF +3 # PROCEED -- TRY AGAIN
TCF ENDOFJOB # V 32 E TERMINATE R12
TC ENDOFJOB
+3 CA BIT7 # SEE IF IN POS2 YET
+3 CA BIT7 # SEE IF IN POS2 YET
EXTEND
RAND CHAN33
EXTEND

View File

@ -181,7 +181,7 @@ SPSSTART CA EDOT # OUTER RATE LIMIT TEST
BZMF TJZERO
NEGTHRST CS HALF
TCF POSTHRST +1
+7 CS RATELIM2
+7 CS RATELIM2
AD EDOT
EXTEND
BZMF POSTHRST

View File

@ -97,7 +97,7 @@
# VNDSPLY
# BANKCALL
# GOFLASHR
# GOTOP00H
# GOTOPOOH
# BLANKET
# ENDOFJOB
# PREC/TT
@ -126,7 +126,7 @@ P78 TC BANKCALL
CAF V06N55SR # DISPLAY CENTANG
TCR BANKCALL
CADR GOFLASHR
TCF GOTOP00H # TERMINATE
TCF GOTOPOOH # TERMINATE
TCF +5 # PROCEED
TCF -5 # RECYCLE
CAF THREE # IMMEDIATE RETURN -- BLANK R1, R2
@ -140,7 +140,7 @@ P78 TC BANKCALL
CAF V04N06SR # DISPLAY OPTION CODE -- 1 = SOI, 2 = SOR
TCR BANKCALL
CADR GOFLASHR
TCF GOTOP00H # TERMINATE
TCF GOTOPOOH # TERMINATE
TCF +5 # PROCEED
TCF -5 # RECYCLE
CAF BIT3 # IMMEDIATE RETURN -- BLANK R3
@ -169,7 +169,7 @@ OPTN1 SET CLEAR # SOI
CAF V06N57SR # DISPLAY DELTA R
TCR BANKCALL
CADR GOFLASHR
TCF GOTOP00H # TERMINATE
TCF GOTOPOOH # TERMINATE
TCF +5 # PROCEED
TCF -5 # RECYCLE
CAF SIX # IMMEDIATE RETURN -- BLANK R2, R3
@ -224,7 +224,7 @@ JUNCTN2 DLOAD DSU
# VNDSPLY
# BANKCALL
# GOFLASH
# GOTOP00H
# GOTOPOOH
# VN1645
MAINRTNE STCALL TDEC1 # PRECISION UPDATE PASSIVE VEHICLE TO
@ -415,7 +415,7 @@ OTHERV CALL
#
# BANKCALL
# GOFLASH
# GOTOP00H
# GOTOPOOH
VNDSPLY EXTEND # FLASH DISPLAY
QXCH RTRN
@ -423,7 +423,7 @@ VNDSPLY EXTEND # FLASH DISPLAY
CA VERBNOUN
TCR BANKCALL
CADR GOFLASH
TCF GOTOP00H # TERMINATE
TCF GOTOPOOH # TERMINATE
TC RTRN # PROCEED
TCF -5 # RECYCLE
V06N33SR VN 0633

View File

@ -245,7 +245,7 @@ P63SPOT3 CA BIT6 # IS THE LR ANTENNA IN POSITION 1 YET
CAF CODE500 # ASTRONAUT: PLEASE CRANK THE
TC BANKCALL # SILLY THING AROUND
CADR GOPERF1
TCF GOTOP00H # TERMINATE
TCF GOTOPOOH # TERMINATE
TCF P63SPOT3 # PROCEED SEE IF HE'S LYING
P63SPOT4 TC BANKCALL # ENTER INITIALIZE LANDING RADAR
@ -317,7 +317,7 @@ LANDJUNK TC PHASCHNG
CAF V06N43* # ASTRONAUT: NOW LOOK WHERE YOU ENDED UP
TC BANKCALL
CADR GOFLASH
TCF GOTOP00H # TERMINATE
TCF GOTOPOOH # TERMINATE
TCF +2 # PROCEED
TCF -5 # RECYCLE
@ -329,7 +329,7 @@ LANDJUNK TC PHASCHNG
REFMF
EXIT
TCF GOTOP00H # ASTRONAUT: PLEASE SELECT P57
TCF GOTOPOOH # ASTRONAUT: PLEASE SELECT P57
V06N43* VN 0643

View File

@ -235,7 +235,7 @@ ZONE5 TS L # TEMPORARILY STORE FUNCTION IN L.
# Page 1464
ADS ADRSDIF2
+4 CAE L
+4 CAE L
EXTEND
INDEX ADRSDIF2 # TTOAXIS AND HH ARE THE PARAMETERS UPON
MP ACCFCTZ5 # WHICH THE APPROXIMATIONS TO TJET ARE
@ -489,7 +489,7 @@ RUFLAW3 TC RUFSETUP # EXECUTE COMMON RUFLAW SUBROUTINE.
RUFSETUP CS ROTSENSE # REVERSE ROTSENSE WHEN ENTER HERE.
TS ROTSENSE
+2 CAF FOUR # REQUIRE MAXIMUM (2) JETS IN U,V-AXES.
+2 CAF FOUR # REQUIRE MAXIMUM (2) JETS IN U,V-AXES.
TS NUMBERT
CAF NEGMAX # SUGGEST MAXIMUM (4) JETS IN P-AXIS.
TS FIREFCT

View File

@ -559,6 +559,6 @@ TSKOVCDR GENADR TASKOVER
LONGP00H DXCH LONGEXIT
TCF +2
WAITP00H DXCH WAITEXIT
+2 TC P00DOO1
+2 TC POODOO1
OCT 01204