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 RESUME
TC POSTJUMP # RESUME SENDS CONTROL HERE TC POSTJUMP # RESUME SENDS CONTROL HERE
CADR ENEMA CADR ENEMA
P00DOO INHINT POODOO INHINT
CA Q CA Q
ABORT2 TS ALMCADR ABORT2 TS ALMCADR
INDEX Q INDEX Q

12
Luminary099/AOTMARK.agc
View File

@ -38,7 +38,7 @@ AOTMARK INHINT
CCS MARKSTAT # SEE IF AOTMARK BUSY CCS MARKSTAT # SEE IF AOTMARK BUSY
TC +2 # MARK SYSTEM BUSY -- DO ALARM TC +2 # MARK SYSTEM BUSY -- DO ALARM
TC EXTVBCHK TC EXTVBCHK
TC P00DOO TC POODOO
OCT 00105 OCT 00105
EXTVBCHK CAF SIX # SEE IF EXT. VERB WORKING EXTVBCHK CAF SIX # SEE IF EXT. VERB WORKING
@ -94,7 +94,7 @@ MKRELEAS CAF ZERO
# Page 246 # Page 246
KILLAOT CAF ZERO KILLAOT CAF ZERO
TS EXTVBACT # TERMINATE AOTMARK -- ALLOW EXT VERB TS EXTVBACT # TERMINATE AOTMARK -- ALLOW EXT VERB
TC GOTOP00H TC GOTOPOOH
GETDAT CS MARKSTAT # SET BIT12 TO DISCOURAGE MARKRUPT GETDAT CS MARKSTAT # SET BIT12 TO DISCOURAGE MARKRUPT
MASK BIT12 # BIT12 RESET AT GETMARK MASK BIT12 # BIT12 RESET AT GETMARK
ADS MARKSTAT ADS MARKSTAT
@ -103,7 +103,7 @@ GETDAT CS MARKSTAT # SET BIT12 TO DISCOURAGE MARKRUPT
TC BANKCALL TC BANKCALL
CADR GOMARKF CADR GOMARKF
TCF KILLAOT # V34 -- DOES GOTOP00H TCF KILLAOT # V34 -- DOES GOTOPOOH
TCF DODAT # V33 -- PROCEED -- USE THIS STAR FOR MARKS TCF DODAT # V33 -- PROCEED -- USE THIS STAR FOR MARKS
ENTERDAT TCF GETDAT # ENTER -- REDISPLAY STAR CODE 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 TC BANKCALL # AZ AND EL OF SIGHTING DEVICE FROM ASTRO
CADR GOMARKF CADR GOMARKF
TCF KILLAOT # V34 -- DOES GOTOP00H TCF KILLAOT # V34 -- DOES GOTOPOOH
TCF +2 # PROCEED TCF +2 # PROCEED
TCF CODE7 # ON ENTER, RECYCLE TCF CODE7 # ON ENTER, RECYCLE
EXTEND EXTEND
@ -326,7 +326,7 @@ GETMKS CAF ZERO # INITIALIZE MARK ID REGISTER AND MARK CNT
PASTIT TC BANKCALL PASTIT TC BANKCALL
CADR GOMARK4 CADR GOMARK4
TCF KILLAOT # V34 -- DOES GOTOP00H TCF KILLAOT # V34 -- DOES GOTOPOOH
TCF MARKCHEX # VB33 -- PROCEED, GOT MARKS, COMPUTE LOS TCF MARKCHEX # VB33 -- PROCEED, GOT MARKS, COMPUTE LOS
TCF GETDAT # ENTER -- RECYCLE TO V01N71 TCF GETDAT # ENTER -- RECYCLE TO V01N71
@ -660,7 +660,7 @@ DSPV6N79 CAF V06N79* # CURSOR -- SPIRAL DISPLAY
TC BANKCALL TC BANKCALL
CADR GOMARKF CADR GOMARKF
TCF KILLAOT # V34 -- DOES GOTOP00H TCF KILLAOT # V34 -- DOES GOTOPOOH
TCF SURFEND # V33 -- PROCEED, END MARKING TCF SURFEND # V33 -- PROCEED, END MARKING
CAF BIT6 # IF V32(OCT40) IN MPAC DO RECYCLE CAF BIT6 # IF V32(OCT40) IN MPAC DO RECYCLE
MASK MPAC # OTHERWISE IT IS LOAD VB ENTER SO 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 CADR RESTORDB
TC DOWNFLAG # DISALLOW ABORTS AT THIS TIME. TC DOWNFLAG # DISALLOW ABORTS AT THIS TIME.
ADRES LETABORT ADRES LETABORT
TCF GOTOP00H TCF GOTOPOOH
V16N85C VN 1685 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. CA 0 # DISPLAY; IT IS INITIATED AT TIG-5 SEC.
TC BANKCALL # THE DISPLAY IS A V99NXX, WHERE XX IS TC BANKCALL # THE DISPLAY IS A V99NXX, WHERE XX IS
CADR CLOCPLAY # NOUN THAT HAD PREVIOUSLY BEEN DISPLAYED 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 *PROCEED
TCF *ENTER TCF *ENTER
@ -788,7 +788,7 @@ BLANKDEX = TWO # NEGATIVE OF THIS IS PROPER FOR DISPDEX
DISPNOT TCF ENDOFJOB # AVERAGE G IS STARTING. DISPNOT TCF ENDOFJOB # AVERAGE G IS STARTING.
STOPCLOK TC NULLCLOK # STOP CLOKTASK & TURN OFF ULLAGE ON THE 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 NULLCLOK INHINT
EXTEND EXTEND
@ -886,7 +886,7 @@ REP40ALM CAF V05N09 # (14)
TC BANKCALL TC BANKCALL
CADR GOFLASH CADR GOFLASH
TCF GOTOP00H # V34E TERMINATE TCF GOTOPOOH # V34E TERMINATE
TCF +2 # PROCEED CHECK FOR P42 TCF +2 # PROCEED CHECK FOR P42
TCF REP40ALM # V32E REDISPLAY ALARM 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 TURNITON CAF P40A/PMD # DISPLAYS V50N25 R1=203 PLEASE PERFORM
TC BANKCALL # CHECKLIST 203 TURN ON PGNCS ETC. TC BANKCALL # CHECKLIST 203 TURN ON PGNCS ETC.
CADR GOPERF1 CADR GOPERF1
TCF GOTOP00H # V34E TERMINATE TCF GOTOPOOH # V34E TERMINATE
TCF P40A/P # RECYCLE TCF P40A/P # RECYCLE
GOBACK CA TEMPR60 GOBACK CA TEMPR60
TC BANKJUMP # GOODBYE. COME AGAIN SOON. TC BANKJUMP # GOODBYE. COME AGAIN SOON.
@ -951,7 +951,7 @@ DSP2CADR 2CADR P63DISPS -2
EBANK= DVCNTR EBANK= DVCNTR
ATMAGADR 2CADR ATMAG ATMAGADR 2CADR ATMAG
? = GOTOP00H ? = GOTOPOOH
D29.9SEC 2DEC 2990 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 # Page 1201
ABTCONIC EXIT ABTCONIC EXIT
TC P00DOO TC POODOO
OCT 00607 OCT 00607
# Page 1202 # Page 1202

2
Luminary099/DISPLAY_INTERFACE_ROUTINES.agc
View File

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

2
Luminary099/EXTENDED_VERBS.agc
View File

@ -1073,7 +1073,7 @@ NOMINIMP INHINT
# 1. DISPLAY FLASHING V06,N22. # 1. DISPLAY FLASHING V06,N22.
# RESPONSES # RESPONSES
# A. TERMINATE # A. TERMINATE
# 1. GOTOP00H # 1. GOTOPOOH
# B. PROCEED # B. PROCEED
# 1. SET 3AXISFLG TO INDICATE MANEUVER IS SPECIFIED BY 3 AXIS. # 1. SET 3AXISFLG TO INDICATE MANEUVER IS SPECIFIED BY 3 AXIS.
# 2. EXECUTE R60LEM (ATTITUDE MANEUVER). # 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 CAF BIT15 # IS MODE -0
MASK MODREG MASK MODREG
EXTEND EXTEND
BZF GOTOP00H # NO BZF GOTOPOOH # NO
TCF ENDRSTRT # YES TCF ENDRSTRT # YES
PTBAD TC ALARM # SET ALARM TO SHOW PHASE TABLE FAILURE. PTBAD TC ALARM # SET ALARM TO SHOW PHASE TABLE FAILURE.
OCT 1107 OCT 1107
@ -614,7 +614,7 @@ SWINIT OCT 0
OCT 40000 # BIT 15 = LRBYPASS. OCT 40000 # BIT 15 = LRBYPASS.
# Page 224 # Page 224
# PROGRAM NAME GOTOP00H ASSEMBLY SUNDANCE # PROGRAM NAME GOTOPOOH ASSEMBLY SUNDANCE
# LOG SECTION FRESH START AND RESTART # LOG SECTION FRESH START AND RESTART
# #
# FUNCTIONAL DESCRIPTION # FUNCTIONAL DESCRIPTION
@ -623,7 +623,7 @@ SWINIT OCT 0
# #
# INPUT/OUTPUT INFORMATION # INPUT/OUTPUT INFORMATION
# #
# A. CALLING SEQUENCE TC GOTOP00H # A. CALLING SEQUENCE TC GOTOPOOH
# B. ERASABLE INITIALIZATION NONE # B. ERASABLE INITIALIZATION NONE
# C. OUTPUT FLASH V 37 ON DSKY # C. OUTPUT FLASH V 37 ON DSKY
# D. DEBRIS L # D. DEBRIS L
@ -639,7 +639,7 @@ SWINIT OCT 0
BANK BANK
COUNT* $$/P00 COUNT* $$/P00
GOTOP00H CAF OCT33 # 4.33 SPOT FOR GOP00FIX GOTOPOOH CAF OCT33 # 4.33 SPOT FOR GOP00FIX
TS L TS L
COM COM
DXCH -PHASE4 DXCH -PHASE4

8
Luminary099/GROUND_TRACKING_DETERMINATION_PROGRAM.agc
View File

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

2
Luminary099/INTERPRETER.agc
View File

@ -2530,7 +2530,7 @@ ZEROANS CAF ZERO # FORCE ANSWER TO ZERO HERE.
TCF FIXROOT TCF FIXROOT
SQRTABRT DXCH LOC SQRTABRT DXCH LOC
TC P00DOO1 TC POODOO1
OCT 1302 OCT 1302
# Page 1080 # 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 CAF V06N64 # OTHERWISE USE FLASHING DISPLAY
TC BANKCALL TC BANKCALL
CADR REFLASHR CADR REFLASHR
TCF GOTOP00H # TERMINATE TCF GOTOPOOH # TERMINATE
TCF P64CEED # PROCEED PERMIT REDESIGNATIONS TCF P64CEED # PROCEED PERMIT REDESIGNATIONS
TCF P64DISPS # RECYCLE TCF P64DISPS # RECYCLE
# Page 815 # Page 815
@ -1409,7 +1409,7 @@ TDISPSET CA TTF/8
ADS TREDES ADS TREDES
TC Q TC Q
1406P00 TC P00DOO 1406P00 TC POODOO
OCT 01406 OCT 01406
1406ALM TC ALARM 1406ALM TC ALARM
OCT 01406 OCT 01406

2
Luminary099/ORBITAL_INTEGRATION.agc
View File

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

4
Luminary099/P12.agc
View File

@ -62,7 +62,7 @@ P12LM TC PHASCHNG
CAF V06N33A CAF V06N33A
TC BANKCALL # FLASH TIG TC BANKCALL # FLASH TIG
CADR GOFLASH CADR GOFLASH
TCF GOTOP00H TCF GOTOPOOH
TCF +2 # PROCEED TCF +2 # PROCEED
TCF -5 # ENTER TCF -5 # ENTER
@ -111,7 +111,7 @@ P12LMB DLOAD
NEWLOAD CAF V06N76 # FLASH CROSS-RANGE, AND APOLUNE VALUES. NEWLOAD CAF V06N76 # FLASH CROSS-RANGE, AND APOLUNE VALUES.
TC BANKCALL TC BANKCALL
CADR GOFLASH CADR GOFLASH
TCF GOTOP00H TCF GOTOPOOH
TCF +2 # PROCEED TCF +2 # PROCEED
TCF NEWLOAD # ENTER NEW DATA. 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 CAF OCT00012
TC BANKCALL # DISPLAY ASSUMED CSM ORBIT OPTION TC BANKCALL # DISPLAY ASSUMED CSM ORBIT OPTION
CADR GOPERF4 CADR GOPERF4
TC GOTOP00H # TERMINATE TC GOTOPOOH # TERMINATE
TC ORBCHG1 # PROCEED VALUE OF ASSUMED OPTION OK TC ORBCHG1 # PROCEED VALUE OF ASSUMED OPTION OK
TC -5 # R2 LOADED THRU DSKY TC -5 # R2 LOADED THRU DSKY
ORBCHG1 CS P22ONE ORBCHG1 CS P22ONE
@ -121,7 +121,7 @@ ORBCHG1 CS P22ONE
CAF V06N33* CAF V06N33*
TC BANKCALL # FLASH VERB-NOUN TO REQUEST ESTIMATED TC BANKCALL # FLASH VERB-NOUN TO REQUEST ESTIMATED
CADR GOFLASH # TIME OF LAUNCH CADR GOFLASH # TIME OF LAUNCH
TC GOTOP00H # TERMINATE TC GOTOPOOH # TERMINATE
TC ORBCHG2 # PROCEED VALUES OK TC ORBCHG2 # PROCEED VALUES OK
TC -5 # TIME LOADED THRU DSKY TC -5 # TIME LOADED THRU DSKY
ORBCHG2 TC INTPRET ORBCHG2 TC INTPRET
@ -4410,7 +4410,7 @@ ZERO/SP EQUALS HI6ZEROS
BANK BANK
COUNT* $$/P20 COUNT* $$/P20
GOTOV56 EXTEND # P20 TERMINATES BY GOTOV56 INSTEAD OF GOTOV56 EXTEND # P20 TERMINATES BY GOTOV56 INSTEAD OF
DCA VB56CADR # GOTOP00H DCA VB56CADR # GOTOPOOH
TCF SUPDXCHZ TCF SUPDXCHZ
EBANK= WHOCARES EBANK= WHOCARES
VB56CADR 2CADR TRMTRACK VB56CADR 2CADR TRMTRACK

4
Luminary099/P30_P37.agc
View File

@ -41,10 +41,10 @@
# #
# CALLING SEQUENCE VIA JOB FROM V37 # 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 # 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 # TIG/N35, MIDGIM, DISPMGA
# #
# ERASABLE INITIALIZATION -- STATE VECTOR # ERASABLE INITIALIZATION -- STATE VECTOR

10
Luminary099/P32-P35_P72-P75.agc
View File

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

20
Luminary099/P34-35_P74-75.agc
View File

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

12
Luminary099/P40-P47.agc
View File

@ -60,7 +60,7 @@
# ALLCOAST DAP COASTING INITIALIZATION # ALLCOAST DAP COASTING INITIALIZATION
# CLOKTASK ERGO CLOCKJOB -- COUNT DOWN # CLOKTASK ERGO CLOCKJOB -- COUNT DOWN
# PHASCHANG, INTPRET, FLAGUP, FLAGDOWN, WAITLIST, LONGCALL, GOFLASH, GOFLASHR, GOPERF1, ALARM, # 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. # KILLTASK, SGNAGREE, TPAGREE, ETC.
# #
# RESTARTS VIA GROUP 4 # RESTARTS VIA GROUP 4
@ -85,9 +85,9 @@
# ALARM OR ABORT EXIT MODES # ALARM OR ABORT EXIT MODES
# #
# PROGRAM ALARM, FLASHING DISPLAY OF ALARM CODE 1706 IF P40 SELECTED WITH DESCENT UNIT STAGED. # 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. # TIG BY 45 SECS.
# #
# ERASABLE INITIALIZATION # ERASABLE INITIALIZATION
@ -209,7 +209,7 @@ TERM40 EXTEND
TC IBNKCALL TC IBNKCALL
CADR RESTORDB CADR RESTORDB
RELINT RELINT
TC GOTOP00H TC GOTOPOOH
EBANK= WHICH EBANK= WHICH
COUNT* $$/P41 COUNT* $$/P41
@ -402,8 +402,8 @@ CALCN83 TC INTPRET
P47BOD CAF V1683 P47BOD CAF V1683
TC BANKCALL TC BANKCALL
CADR GOFLASHR CADR GOFLASHR
TC GOTOP00H TC GOTOPOOH
TC GOTOP00H TC GOTOPOOH
TCF P47BODY TCF P47BODY

62
Luminary099/P51-P53.agc
View File

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

2
Luminary099/P76.agc
View File

@ -146,7 +146,7 @@ INTOTHIS STCALL TDEC1
OUT EXIT OUT EXIT
ENDP76 CAF ZERO ENDP76 CAF ZERO
TS MARKCTR # CLEAR RR TRACKING MARK COUNTER TS MARKCTR # CLEAR RR TRACKING MARK COUNTER
TCF GOTOP00H TCF GOTOPOOH
V06N84 NV 0684 V06N84 NV 0684
NV 0633 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 TC PASTEVB # PUT MONITOR VERB BACK IN VERBREG
CHARALRM TC FALTON # NO NVSUB INITATED. TURN ON OPR ERROR CHARALRM TC FALTON # NO NVSUB INITATED. TURN ON OPR ERROR
TC ENDOFJOB TC ENDOFJOB
TC P00DOO TC POODOO
OCT 01501 OCT 01501
MONADR GENADR PASTEVB MONADR GENADR PASTEVB
NVSBENDL TC NVSUBEND 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. ISLIST+0 CCS DSPLIST # ABORTS (CODE 01206) IF DSPLIST NOT= +0.
TC DSPABORT # RETURNS IF DSPLIST = +0. TC DSPABORT # RETURNS IF DSPLIST = +0.
TC Q TC Q
DSPABORT TC P00DOO DSPABORT TC POODOO
OCT 01206 OCT 01206
# JAMTERM ALLOWS PROGRAMS TO PERFORM THE TERMINATE FUNCTION. # 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 # 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 # 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. # 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) CA FLAGWRD4 # ARE WE IN R61 (P20 OR P25)
MASK PDSPFBIT MASK PDSPFBIT
EXTEND EXTEND
BZF GOTOP00H # NO BZF GOTOPOOH # NO
TC GOTOV56 # YES TC GOTOV56 # YES
BIT14+7 OCT 20100 BIT14+7 OCT 20100

2
Luminary099/RESTART_TABLES.agc
View File

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

4
Luminary099/SERVICER.agc
View File

@ -424,7 +424,7 @@ SERVIDLE EXTEND # DISCONNECT SERVICER FROM ALL GUIDANCE
DXCH -PHASE4 DXCH -PHASE4
TCF WHIMPER # PERFORM A SOFTWARE RESTART AND PROCEED 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 # RUN, ALBEIT IN A GROUND STATE WHERE
# ONLY STATE-VECTOR DEPENDENT FUNCTIONS # ONLY STATE-VECTOR DEPENDENT FUNCTIONS
# ARE MAINTAINED. # ARE MAINTAINED.
@ -1636,7 +1636,7 @@ POSGOOD CA PRIO23 # REDUCE PRIORITY FOR INTERPRETIVE COMPS.
POSALARM CA OCT523 POSALARM CA OCT523
TC BANKCALL TC BANKCALL
CADR PRIOLARM # FLASH ALARM CODE CADR PRIOLARM # FLASH ALARM CODE
TCF GOTOP00H # TERMINATE TCF GOTOPOOH # TERMINATE
TCF +3 # PROCEED -- TRY AGAIN TCF +3 # PROCEED -- TRY AGAIN
TCF ENDOFJOB # V 32 E TERMINATE R12 TCF ENDOFJOB # V 32 E TERMINATE R12
TC ENDOFJOB TC ENDOFJOB

14
Luminary099/STABLE_ORBIT.agc
View File

@ -97,7 +97,7 @@
# VNDSPLY # VNDSPLY
# BANKCALL # BANKCALL
# GOFLASHR # GOFLASHR
# GOTOP00H # GOTOPOOH
# BLANKET # BLANKET
# ENDOFJOB # ENDOFJOB
# PREC/TT # PREC/TT
@ -126,7 +126,7 @@ P78 TC BANKCALL
CAF V06N55SR # DISPLAY CENTANG CAF V06N55SR # DISPLAY CENTANG
TCR BANKCALL TCR BANKCALL
CADR GOFLASHR CADR GOFLASHR
TCF GOTOP00H # TERMINATE TCF GOTOPOOH # TERMINATE
TCF +5 # PROCEED TCF +5 # PROCEED
TCF -5 # RECYCLE TCF -5 # RECYCLE
CAF THREE # IMMEDIATE RETURN -- BLANK R1, R2 CAF THREE # IMMEDIATE RETURN -- BLANK R1, R2
@ -140,7 +140,7 @@ P78 TC BANKCALL
CAF V04N06SR # DISPLAY OPTION CODE -- 1 = SOI, 2 = SOR CAF V04N06SR # DISPLAY OPTION CODE -- 1 = SOI, 2 = SOR
TCR BANKCALL TCR BANKCALL
CADR GOFLASHR CADR GOFLASHR
TCF GOTOP00H # TERMINATE TCF GOTOPOOH # TERMINATE
TCF +5 # PROCEED TCF +5 # PROCEED
TCF -5 # RECYCLE TCF -5 # RECYCLE
CAF BIT3 # IMMEDIATE RETURN -- BLANK R3 CAF BIT3 # IMMEDIATE RETURN -- BLANK R3
@ -169,7 +169,7 @@ OPTN1 SET CLEAR # SOI
CAF V06N57SR # DISPLAY DELTA R CAF V06N57SR # DISPLAY DELTA R
TCR BANKCALL TCR BANKCALL
CADR GOFLASHR CADR GOFLASHR
TCF GOTOP00H # TERMINATE TCF GOTOPOOH # TERMINATE
TCF +5 # PROCEED TCF +5 # PROCEED
TCF -5 # RECYCLE TCF -5 # RECYCLE
CAF SIX # IMMEDIATE RETURN -- BLANK R2, R3 CAF SIX # IMMEDIATE RETURN -- BLANK R2, R3
@ -224,7 +224,7 @@ JUNCTN2 DLOAD DSU
# VNDSPLY # VNDSPLY
# BANKCALL # BANKCALL
# GOFLASH # GOFLASH
# GOTOP00H # GOTOPOOH
# VN1645 # VN1645
MAINRTNE STCALL TDEC1 # PRECISION UPDATE PASSIVE VEHICLE TO MAINRTNE STCALL TDEC1 # PRECISION UPDATE PASSIVE VEHICLE TO
@ -415,7 +415,7 @@ OTHERV CALL
# #
# BANKCALL # BANKCALL
# GOFLASH # GOFLASH
# GOTOP00H # GOTOPOOH
VNDSPLY EXTEND # FLASH DISPLAY VNDSPLY EXTEND # FLASH DISPLAY
QXCH RTRN QXCH RTRN
@ -423,7 +423,7 @@ VNDSPLY EXTEND # FLASH DISPLAY
CA VERBNOUN CA VERBNOUN
TCR BANKCALL TCR BANKCALL
CADR GOFLASH CADR GOFLASH
TCF GOTOP00H # TERMINATE TCF GOTOPOOH # TERMINATE
TC RTRN # PROCEED TC RTRN # PROCEED
TCF -5 # RECYCLE TCF -5 # RECYCLE
V06N33SR VN 0633 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 CAF CODE500 # ASTRONAUT: PLEASE CRANK THE
TC BANKCALL # SILLY THING AROUND TC BANKCALL # SILLY THING AROUND
CADR GOPERF1 CADR GOPERF1
TCF GOTOP00H # TERMINATE TCF GOTOPOOH # TERMINATE
TCF P63SPOT3 # PROCEED SEE IF HE'S LYING TCF P63SPOT3 # PROCEED SEE IF HE'S LYING
P63SPOT4 TC BANKCALL # ENTER INITIALIZE LANDING RADAR P63SPOT4 TC BANKCALL # ENTER INITIALIZE LANDING RADAR
@ -317,7 +317,7 @@ LANDJUNK TC PHASCHNG
CAF V06N43* # ASTRONAUT: NOW LOOK WHERE YOU ENDED UP CAF V06N43* # ASTRONAUT: NOW LOOK WHERE YOU ENDED UP
TC BANKCALL TC BANKCALL
CADR GOFLASH CADR GOFLASH
TCF GOTOP00H # TERMINATE TCF GOTOPOOH # TERMINATE
TCF +2 # PROCEED TCF +2 # PROCEED
TCF -5 # RECYCLE TCF -5 # RECYCLE
@ -329,7 +329,7 @@ LANDJUNK TC PHASCHNG
REFMF REFMF
EXIT EXIT
TCF GOTOP00H # ASTRONAUT: PLEASE SELECT P57 TCF GOTOPOOH # ASTRONAUT: PLEASE SELECT P57
V06N43* VN 0643 V06N43* VN 0643

2
Luminary099/WAITLIST.agc
View File

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