kjodle/Apollo-11
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Fix YaYUL Fatal Errors in Luminary099 (#665)

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Luminary099/ALARM_AND_ABORT.agc
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

12
Luminary099/AOTMARK.agc
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

2
Luminary099/ASCENT_GUIDANCE.agc
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

10
Luminary099/BURN_BABY_BURN--MASTER_IGNITION_ROUTINE.agc
View File

@ -776,7 +776,7 @@ V99RECYC EQUALS
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
@ -788,7 +788,7 @@ BLANKDEX = TWO # NEGATIVE OF THIS IS PROPER FOR DISPDEX
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

2
Luminary099/CONIC_SUBROUTINES.agc
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

2
Luminary099/DISPLAY_INTERFACE_ROUTINES.agc
View File

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

2
Luminary099/EXTENDED_VERBS.agc
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).

8
Luminary099/FRESH_START_AND_RESTART.agc
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

8
Luminary099/GROUND_TRACKING_DETERMINATION_PROGRAM.agc
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

2
Luminary099/INTERPRETER.agc
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

4
Luminary099/LUNAR_LANDING_GUIDANCE_EQUATIONS.agc
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

2
Luminary099/ORBITAL_INTEGRATION.agc
View File

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

4
Luminary099/P12.agc
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.

6
Luminary099/P20-P25.agc
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

4
Luminary099/P30_P37.agc
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

10
Luminary099/P32-P35_P72-P75.agc
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

20
Luminary099/P34-35_P74-75.agc
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

12
Luminary099/P40-P47.agc
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

62
Luminary099/P51-P53.agc
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

2
Luminary099/P76.agc
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

4
Luminary099/PINBALL_GAME_BUTTONS_AND_LIGHTS.agc
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.

4
Luminary099/R60_62.agc
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

2
Luminary099/RESTART_TABLES.agc
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

4
Luminary099/SERVICER.agc
View File

@ -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.
@ -1636,7 +1636,7 @@ 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

14
Luminary099/STABLE_ORBIT.agc
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

6
Luminary099/THE_LUNAR_LANDING.agc
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

2
Luminary099/WAITLIST.agc
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