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

proof: VNP00H to VNPOOH

Browse Source 
Excluding Luminary099 P30_P37 as covered by existing PR.

This was missed when the other `POO(H)` names were checked and fixed several months ago.
This commit is contained in:
James Harris 2020-10-08 23:00:42 +01:00
parent 3570f3fd22
commit 497515d96f
19 changed files with 83 additions and 83 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
Comanche055/EXTENDED_VERBS.agc
View File

@ -10,7 +10,7 @@
# Website: http://www.ibiblio.org/apollo. # Website: http://www.ibiblio.org/apollo.
# Mod history: 2009-05-18 FB Transcription Batch 3 Assignment. # Mod history: 2009-05-18 FB Transcription Batch 3 Assignment.
# 2009-05-20 RSB Corrections: POODOO -> P00DOO, # 2009-05-20 RSB Corrections: POODOO -> P00DOO,
# GOTOPOOH -> GOTOP00H, added a couple of # GOTOPOOH -> GOTOPOOH, added a couple of
# missing instructions in Verb 96. # missing instructions in Verb 96.
# 2009-05-23 RSB In SYSTEST, corrected TC FLAGWRD1 to # 2009-05-23 RSB In SYSTEST, corrected TC FLAGWRD1 to
# CA FLAGWRD1. Added a variety of SBANK= # CA FLAGWRD1. Added a variety of SBANK=
@ -462,7 +462,7 @@ VNLODDT VN 2524 # V25N24 FOR LOAD DELTA TIME
COUNT 04/EXTVB COUNT 04/EXTVB
SYSTEST TC CHKP00H SYSTEST TC CHKPOOH
CA FLAGWRD1 # IS NODOP01 FLAGBIT ON? (SET BY P11) CA FLAGWRD1 # IS NODOP01 FLAGBIT ON? (SET BY P11)
MASK NOP01BIT MASK NOP01BIT
EXTEND EXTEND
@ -524,7 +524,7 @@ CHAZFOGC TC CHECKMM # IS IT PRELAUNCH
# TRANSFER LOADED VALUES TO REGISTERS, AND SEND COMMANDS. # TRANSFER LOADED VALUES TO REGISTERS, AND SEND COMMANDS.
# 6. IF BUSY FLAG SET, RESET IT TO RELEASE EXT VERB DISPLAY. # 6. IF BUSY FLAG SET, RESET IT TO RELEASE EXT VERB DISPLAY.
IMUATTCK TC CHKP00H IMUATTCK TC CHKPOOH
CAF OCTAL30 # CHECK IF IMU ZERO AND IMU COARSE ARE ON CAF OCTAL30 # CHECK IF IMU ZERO AND IMU COARSE ARE ON
EXTEND EXTEND
@ -586,7 +586,7 @@ CKLFTBTS CAF GRRBKBIT # HAS LIFTOFF OCCURRED
XACT0Q TC Q # YES XACT0Q TC Q # YES
OCTAL30 OCT 30 OCTAL30 OCT 30
VB64 TC CHKP00H # DEMAND PROGRAM 00. VB64 TC CHKPOOH # DEMAND PROGRAM 00.
TC TESTXACT # IF DISPLAY SYS. NOT BUSY,MAKE IT BUSY. TC TESTXACT # IF DISPLAY SYS. NOT BUSY,MAKE IT BUSY.
INHINT INHINT
CAF PRIO4 CAF PRIO4
@ -675,7 +675,7 @@ STABLISH CAF EBANK6 # V46 - SET EBANK TO E6
# C. ENTER # C. ENTER
# 1. REPEAT FLASHING V06,N22. # 1. REPEAT FLASHING V06,N22.
CREWMANU TC CHKP00H # DEMAND P00 CREWMANU TC CHKPOOH # DEMAND P00
TC TESTXACT TC TESTXACT
@ -1004,7 +1004,7 @@ LFTFLGON TC UPFLAG # VB 75 - SET LIFTOFF FLAG BIT
TC GOPIN TC GOPIN
# Page 261 # Page 261
CHKP00H CA MODREG CHKPOOH CA MODREG
EXTEND EXTEND
BZF TCQ BZF TCQ
TCF ALM/END TCF ALM/END
@ -1058,7 +1058,7 @@ IDLECADR 2CADR T5IDLOC
# TERMINATE- EXIT R63 ROUTINE # TERMINATE- EXIT R63 ROUTINE
# PROCEED- RESET 3AXISFLG AND CALL R60CSM FOR ATTITUDE MANEUVER. # PROCEED- RESET 3AXISFLG AND CALL R60CSM FOR ATTITUDE MANEUVER.
V89PERF TC CHKP00H # DEMAND P00 V89PERF TC CHKPOOH # DEMAND P00
TC TESTXACT TC TESTXACT
INHINT INHINT
CAF PRIO10 CAF PRIO10
@ -1078,7 +1078,7 @@ WMATRXNG TC DOWNFLAG # RESET RENDWFLG
GOSHOSUM EQUALS SHOWSUM GOSHOSUM EQUALS SHOWSUM
SHOWSUM TC CHKP00H SHOWSUM TC CHKPOOH
TC TESTXACT # * TC TESTXACT # *
CAF S+1 # * CAF S+1 # *
TS SKEEP6 # * SHOWSUM OPTION TS SKEEP6 # * SHOWSUM OPTION

10
Comanche055/FRESH_START_AND_RESTART.agc
View File

@ -116,7 +116,7 @@
# CADR SLAP1 # CADR SLAP1
# ENEMA - TC POSTJUMP *** DO NOT CALL ENEMA WITHOUT *** # ENEMA - TC POSTJUMP *** DO NOT CALL ENEMA WITHOUT ***
# CADR ENEMA *** CONSULTING P00H PEOPLE *** # CADR ENEMA *** CONSULTING POOH PEOPLE ***
# B. OUTPUT # B. OUTPUT
@ -471,7 +471,7 @@ PTBAD TC ALARM # SET ALARM TO SHOW PHASE TABLE FAILURE.
# ******** ****** ****** # ******** ****** ******
# #
# DO NOT USE GOPROG2 OR ENEMA WITHOUT CONSULTING P00H PEOPLE # DO NOT USE GOPROG2 OR ENEMA WITHOUT CONSULTING POOH PEOPLE
# #
GOPROG2 EQUALS ENEMA GOPROG2 EQUALS ENEMA
OCT10000 = BIT13 OCT10000 = BIT13
@ -945,12 +945,12 @@ DUMMYAD EXIT
TC DOWNFLAG TC DOWNFLAG
ADRES R21MARK ADRES R21MARK
CCS MMNUMBER # IS THIS A P00H REQUEST CCS MMNUMBER # IS THIS A POOH REQUEST
TCF NOUVEAU # NO, PICK UP NEW PROGRAM TCF NOUVEAU # NO, PICK UP NEW PROGRAM
COUNT 04/P00 COUNT 04/P00
P00H TC RELDSP # RELEASE DISPLAY SYSTEM POOH TC RELDSP # RELEASE DISPLAY SYSTEM
CAF PRIO5 # SET VARIABLE RESTART REGISTER FOR P00. CAF PRIO5 # SET VARIABLE RESTART REGISTER FOR P00.
TS PHSPRDT2 TS PHSPRDT2
@ -985,7 +985,7 @@ SEUDOP00 TS DNLSTCOD # SET UP APPROPRIATE DOWNLIST.
GROUPKIL TC IBNKCALL # KILL GROUPS 3(5,6 GROUPKIL TC IBNKCALL # KILL GROUPS 3(5,6
CADR V37KLEAN CADR V37KLEAN
CCS MMNUMBER # IS IT P00H CCS MMNUMBER # IS IT POOH
TCF RENDV00 # NO TCF RENDV00 # NO
# Page 201 # Page 201
TC IBNKCALL TC IBNKCALL

6
Comanche055/INTEGRATION_INITIALIZATION.agc
View File

@ -742,13 +742,13 @@ DT/2COMP DLOAD DSU
GETMAXDT GETMAXDT
DSU BMN # IS TIME TO INTEG. TO GR THAN MAXTIME DSU BMN # IS TIME TO INTEG. TO GR THAN MAXTIME
12D 12D
P00HCHK POOHCHK
USEMAXDT DLOAD SIGN USEMAXDT DLOAD SIGN
12D 12D
DT/2 DT/2
# Page 1324 # Page 1324
STCALL DT/2 STCALL DT/2
P00HCHK POOHCHK
MAXDT DLOAD PDDL # EXCHANGE DT/2MAX WITH COMPUTED MAX. MAXDT DLOAD PDDL # EXCHANGE DT/2MAX WITH COMPUTED MAX.
DT/2MAX DT/2MAX
GOTO GOTO
@ -757,7 +757,7 @@ GETMAXDT RTB
SIGNMPAC SIGNMPAC
STCALL DT/2 STCALL DT/2
USEMAXDT USEMAXDT
P00HCHK DLOAD ABS POOHCHK DLOAD ABS
DT/2 DT/2
DSU BMN DSU BMN
DT/2MIN DT/2MIN

4
Comanche055/P20-P25.agc
View File

@ -11,7 +11,7 @@
# of the same name, using Comanche055 page # of the same name, using Comanche055 page
# images. # images.
# 2009-05-20 RSB Corrections: P2OS -> P20S, STO -> STQ, # 2009-05-20 RSB Corrections: P2OS -> P20S, STO -> STQ,
# GOTOPOOH -> GOTOP00H, a duplicated EXTEND # GOTOPOOH -> GOTOPOOH, a duplicated EXTEND
# was fixed, P23.10 -> R23.10, # was fixed, P23.10 -> R23.10,
# S22B0X44 -> S22BOX44, S22SUBSCL -> 22SUBSCL, # S22B0X44 -> S22BOX44, S22SUBSCL -> 22SUBSCL,
# S22DPP -> S22DSPP, changed some instructions in # S22DPP -> S22DSPP, changed some instructions in
@ -2685,7 +2685,7 @@ S22UOFF = LEMPOS # 6 U SUB OFF
# #
# CALLING SEQUENCE: V 89 E # CALLING SEQUENCE: V 89 E
# #
# SUBROUTINES CALLED: CHKP00H, R02BOTH, GOXDSPF, R63COMP, R60CSM # SUBROUTINES CALLED: CHKPOOH, R02BOTH, GOXDSPF, R63COMP, R60CSM
# #
# ALARMS 1. OPERATOR ERROR IF NOT IN P00 # ALARMS 1. OPERATOR ERROR IF NOT IN P00
# 2. PROGRAM ALARM IF IMU IS OFF # 2. PROGRAM ALARM IF IMU IS OFF

18
Comanche055/P32-P33_P72-P73.agc
View File

@ -189,7 +189,7 @@
# GOFLASH # GOFLASH
# GOTOPOOH # GOTOPOOH
# Page 652 # Page 652
# VNP00H # VNPOOH
# GOFLASHR # GOFLASHR
# BLANKET # BLANKET
# ENDOFJOB # ENDOFJOB
@ -237,7 +237,7 @@ P32/P72A TC P20FLGON
STORE NN STORE NN
EXIT EXIT
CAF V06N11 # TCSI CAF V06N11 # TCSI
TC VNP00H TC VNPOOH
CAF V06N55 # NN. ELEV(RGL05) CAF V06N55 # NN. ELEV(RGL05)
# Page 653 # Page 653
TC BANKCALL TC BANKCALL
@ -246,7 +246,7 @@ P32/P72A TC P20FLGON
TC +2 TC +2
TC -5 TC -5
CAF V06N37 # TTPI CAF V06N37 # TTPI
TC VNP00H TC VNPOOH
TC INTPRET TC INTPRET
DLOAD DLOAD
TCSI TCSI
@ -295,7 +295,7 @@ P32/P72F STORE T2TOT3
P32/P72F P32/P72F
EXIT EXIT
CAF V06N75 CAF V06N75
TC VNP00H TC VNPOOH
TC INTPRET TC INTPRET
VLOAD CALL VLOAD CALL
DELVEET1 DELVEET1
@ -453,7 +453,7 @@ P32/P72F STORE T2TOT3
# AVFLAGA # AVFLAGA
# AVFLAGP # AVFLAGP
# P20FLGON # P20FLGON
# VNP00H # VNPOOH
# SELECTMU # SELECTMU
# ADVANCE # ADVANCE
# CDHMVR # CDHMVR
@ -476,7 +476,7 @@ P33 TC AVFLAGA
P73 TC AVFLAGP P73 TC AVFLAGP
P33/P73A TC P20FLGON P33/P73A TC P20FLGON
CAF V06N13 # TCDH CAF V06N13 # TCDH
TC VNP00H TC VNPOOH
TC INTPRET TC INTPRET
DLOAD DLOAD
TTPIO TTPIO
@ -560,7 +560,7 @@ P33/P73F ABS DSU
STORE T2TOT3 STORE T2TOT3
EXIT EXIT
CAF V06N75 CAF V06N75
TC VNP00H TC VNPOOH
TC INTPRET TC INTPRET
VLOAD CALL VLOAD CALL
DELVEET2 DELVEET2
@ -578,7 +578,7 @@ P33/P73F ABS DSU
# SUBROUTINES USED # SUBROUTINES USED
# S32/33.X # S32/33.X
# VNP00H # VNPOOH
SETLOC CDHTAG3 SETLOC CDHTAG3
BANK BANK
@ -595,7 +595,7 @@ DISDVLVC STORE DELVLVC
STORE DELVLVC STORE DELVLVC
EXIT EXIT
CA VERBNOUN CA VERBNOUN
TC VNP00H TC VNPOOH
TC INTPRET TC INTPRET
GOTO GOTO
NORMEX NORMEX

18
Comanche055/P34-35_P74-75.agc
View File

@ -159,7 +159,7 @@
# AVFLAGA # AVFLAGA
# Page 463 # Page 463
# AVFLAGP # AVFLAGP
# VNP00H # VNPOOH
# DISPLAYE # DISPLAYE
# SELECTMU # SELECTMU
# PRECSET # PRECSET
@ -185,7 +185,7 @@ P34 TC AVFLAGA
P74 TC AVFLAGP P74 TC AVFLAGP
P34/P74A TC P20FLGON # SET UPDATFLG, TRACKFLG P34/P74A TC P20FLGON # SET UPDATFLG, TRACKFLG
CAF V06N37 # TTPI CAF V06N37 # TTPI
TC VNP00H # Onno: The scans look like O not zero TC VNPOOH # Onno: The scans look like O not zero
TC INTPRET TC INTPRET
SSP EXIT SSP EXIT
NN NN
@ -240,7 +240,7 @@ SWCHCLR BONCLR BON
TC P34/P74E TC P34/P74E
P34/P74D EXIT P34/P74D EXIT
CAF V06N37 # TTPI CAF V06N37 # TTPI
TC VNP00H TC VNPOOH
P34/P74E TC INTPRET P34/P74E TC INTPRET
SETPD DLOAD SETPD DLOAD
0D 0D
@ -287,7 +287,7 @@ P34/P74E TC INTPRET
STORE TIG STORE TIG
EXIT EXIT
CAF V06N58 CAF V06N58
TC VNP00H TC VNPOOH
TC INTPRET TC INTPRET
CALL CALL
S34/35.5 S34/35.5
@ -821,7 +821,7 @@ ALLSET STOVL TET
# GOTOPOOH # GOTOPOOH
# S34/35.3 # S34/35.3
# S34.35.4 # S34.35.4
# VNP00H # VNPOOH
S34/35.5 STQ BON S34/35.5 STQ BON
SUBEXIT SUBEXIT
@ -835,7 +835,7 @@ FLAGON VLOAD
STORE DVLOS # SAVE DELTA V BEFORE DISPLAY STORE DVLOS # SAVE DELTA V BEFORE DISPLAY
EXIT EXIT
CAF V06N81 CAF V06N81
TC VNP00H TC VNPOOH
TC INTPRET TC INTPRET
VLOAD VSU # TEST FOR OVERWRITE OF COMPUTED VLOAD VSU # TEST FOR OVERWRITE OF COMPUTED
DELVLVC # DELTA V DELVLVC # DELTA V
@ -852,7 +852,7 @@ FLAGOFF CALL
S34/35.4 S34/35.4
EXIT EXIT
CAF V06N59 CAF V06N59
TC VNP00H TC VNPOOH
TC INTPRET TC INTPRET
GOTO GOTO
SUBEXIT SUBEXIT
@ -955,7 +955,7 @@ P3XORP7X CAF HIGH9
INCR Q INCR Q
RETURN RETURN
# ***** VNP00H ***** # ***** VNPOOH *****
# #
# SUBROUTINES USED # SUBROUTINES USED
# BANKCALL # BANKCALL
@ -965,7 +965,7 @@ P3XORP7X CAF HIGH9
SETLOC P30SUBS SETLOC P30SUBS
BANK BANK
VNP00H EXTEND VNPOOH EXTEND
QXCH RTRN QXCH RTRN
TS VERBNOUN TS VERBNOUN
CAF VNBANK # ***** THIS ROUTINE MUST REMAIN IN CAF VNBANK # ***** THIS ROUTINE MUST REMAIN IN

2
Comanche055/P51-P53.agc
View File

@ -10,7 +10,7 @@
# Mod history: 2009-05-12 RSB Adapted from Colossus249 file of the same # Mod history: 2009-05-12 RSB Adapted from Colossus249 file of the same
# name, and Comanche 055 page images. # name, and Comanche 055 page images.
# 2009-05-20 RSB Corrections: SETI/PDT -> SET1/PDT, # 2009-05-20 RSB Corrections: SETI/PDT -> SET1/PDT,
# GOTOPOOH -> GOTOP00H, R33EXIT -> R53EXIT, # GOTOPOOH -> GOTOPOOH, R33EXIT -> R53EXIT,
# V853 -> VB53, R56A -> R56A1 (some places # V853 -> VB53, R56A -> R56A1 (some places
# only), added missing R56A1 label, added a # only), added missing R56A1 label, added a
# missing CAF in COARSTYP, corrected a SETLOC # missing CAF in COARSTYP, corrected a SETLOC

2
Comanche055/P61-P67.agc
View File

@ -447,7 +447,7 @@ P66 TC NEWMODEX # ENTER VIA RTB WHEN D < Q7 FPSS
# MOD BY: R. HIRSCHKOP # MOD BY: R. HIRSCHKOP
# FUNCTION: TO TERMINATE STEERING WHEN THE CM VELOCITY WRT EARTH = 1000 FT/SEC # FUNCTION: TO TERMINATE STEERING WHEN THE CM VELOCITY WRT EARTH = 1000 FT/SEC
# CALLING SEQUENCE: # CALLING SEQUENCE:
# EXIT: TO P00H # EXIT: TO POOH
# SUBROUTINE CALLS: GOFLASH # SUBROUTINE CALLS: GOFLASH
# THIS DISPLAY IS CALLED EACH PASS THROUGH STEERING. RESTART PROTECTION IS VIA STEERING. # THIS DISPLAY IS CALLED EACH PASS THROUGH STEERING. RESTART PROTECTION IS VIA STEERING.

4
Comanche055/PINBALL_GAME_BUTTONS_AND_LIGHTS.agc
View File

@ -11,7 +11,7 @@
# of the same name, using Comanche055 page # of the same name, using Comanche055 page
# images. Finished through page 329. # images. Finished through page 329.
# 2009-05-09 RSB Finished first draft. # 2009-05-09 RSB Finished first draft.
# 2009-05-20 RSB Corrected a CHKPOOH to CHKP00H. # 2009-05-20 RSB Corrected a CHKPOOH to CHKPOOH.
# #
# This source code has been transcribed or otherwise adapted from digitized # This source code has been transcribed or otherwise adapted from digitized
# images of a hardcopy from the MIT Museum. The digitization was performed # images of a hardcopy from the MIT Museum. The digitization was performed
@ -3605,7 +3605,7 @@ PINTEST EQUALS LST2FAN
COUNT 41/PIN COUNT 41/PIN
VBTSTLTS TC BANKCALL VBTSTLTS TC BANKCALL
CADR CHKP00H CADR CHKPOOH
INHINT INHINT
CS BIT1 # SET BIT 1 OF IMODES33 SO IMUMON WON'T CS BIT1 # SET BIT 1 OF IMODES33 SO IMUMON WON'T

2
Comanche055/TPI_SEARCH.agc
View File

@ -476,7 +476,7 @@ P17 TC AVFLAGA # AVFLAG = CSM , SET TRACK + UPDATE FLAGS
P77 TC AVFLAGP # AVFLAG = LEM , SET TRACK + UPDATE FLAGS P77 TC AVFLAGP # AVFLAG = LEM , SET TRACK + UPDATE FLAGS
P17.1 TC P20FLGON # SET UPDATE FLAG P17.1 TC P20FLGON # SET UPDATE FLAG
CAF V06N37 # DISPLAY TTPI TIME CAF V06N37 # DISPLAY TTPI TIME
TC VNP00H TC VNPOOH
TC INTPRET TC INTPRET
CLEAR CALL CLEAR CALL
UPDATFLG UPDATFLG

2
Luminary099/BURN_BABY_BURN--MASTER_IGNITION_ROUTINE.agc
View File

@ -745,7 +745,7 @@ VB97DEX = OCT35 # NEGATIVE OF THIS IS PROPER FOR DISPDEX
CA NVWORD +2 # NVWORD+2 CONTAINS V06 & APPROPRIATE NOUN CA NVWORD +2 # NVWORD+2 CONTAINS V06 & APPROPRIATE NOUN
TC BANKCALL TC BANKCALL
CADR CLOCPLAY CADR CLOCPLAY
TCF STOPCLOK # TERMINATE CLOKTASK ON THE WAY TO P00H TCF STOPCLOK # TERMINATE CLOKTASK ON THE WAY TO POOH
TCF COMFAIL1 TCF COMFAIL1
TCF COMFAIL2 TCF COMFAIL2

16
Luminary099/EXTENDED_VERBS.agc
View File

@ -146,7 +146,7 @@ ALM/END TC FALTON # TURN ON OPERATOR ERROR LIGHT
GOPIN TC POSTJUMP GOPIN TC POSTJUMP
CADR PINBRNCH CADR PINBRNCH
CHKP00H CA MODREG # CHECK FOR P00 OR P00-. CHKPOOH CA MODREG # CHECK FOR P00 OR P00-.
EXTEND EXTEND
BZF TCQ BZF TCQ
TC ALM/END TC ALM/END
@ -827,7 +827,7 @@ DEC22 DEC 22
COUNT* $$/EXTVB COUNT* $$/EXTVB
VB64 TC CHKP00H # DEMAND PROGRAM 00. VB64 TC CHKPOOH # DEMAND PROGRAM 00.
TC TESTXACT # IF DISPLAY SYS. NOT BUSY MAKE IT BUSY. TC TESTXACT # IF DISPLAY SYS. NOT BUSY MAKE IT BUSY.
CAF PRIO4 CAF PRIO4
TC FINDVAC TC FINDVAC
@ -846,7 +846,7 @@ VB64 TC CHKP00H # DEMAND PROGRAM 00.
# 4. REQUEST LOAD OF N22 (VALUES TO BE DISPLAYED). # 4. REQUEST LOAD OF N22 (VALUES TO BE DISPLAYED).
# 5. ON PROCEED OR ENTER RE-DISPLAY V43 AND SEND PULSES. # 5. ON PROCEED OR ENTER RE-DISPLAY V43 AND SEND PULSES.
IMUATTCK TC CHKP00H # VB 76 -- LOAD IMU ATT. ERROR METERS IMUATTCK TC CHKPOOH # VB 76 -- LOAD IMU ATT. ERROR METERS
CAF BITS4&5 # SEE IF COARSE ALIGN ENABLE AND ZERO IMU CAF BITS4&5 # SEE IF COARSE ALIGN ENABLE AND ZERO IMU
EXTEND # CDUS BITS ARE ON EXTEND # CDUS BITS ARE ON
@ -1002,7 +1002,7 @@ V83PERF TC TESTXACT
# TERMINATE -- EXIT R63. # TERMINATE -- EXIT R63.
# PROCEED -- RESET 3AXISFLG AND CALL R60LEM FOR ATTITUDE MANEUVER. # PROCEED -- RESET 3AXISFLG AND CALL R60LEM FOR ATTITUDE MANEUVER.
V89PERF TC CHKP00H V89PERF TC CHKPOOH
TC TESTXACT TC TESTXACT
CAF PRIO10 CAF PRIO10
TC FINDVAC TC FINDVAC
@ -1080,7 +1080,7 @@ NOMINIMP INHINT
# C. ENTER # C. ENTER
# 1. REPEAT FLASHING V06,N22. # 1. REPEAT FLASHING V06,N22.
CREWMANU TC CHKP00H # DEMAND P00 CREWMANU TC CHKPOOH # DEMAND P00
TC TESTXACT TC TESTXACT
@ -1096,7 +1096,7 @@ CREWMANU TC CHKP00H # DEMAND P00
# TERMINATE TRACKING (P20 AND P25). # TERMINATE TRACKING (P20 AND P25).
# #
# 1. KNOCK DOWN RENDEZVOUS, TRACK, AND UPDATE FLAGS. # 1. KNOCK DOWN RENDEZVOUS, TRACK, AND UPDATE FLAGS.
# 2. REQUIRE P20 OR P25 NOT RUNNING ALONE OR GO TO GOGOP00H (REQUEST PROGRAM 00). # 2. REQUIRE P20 OR P25 NOT RUNNING ALONE OR GO TO GOGOPOOH (REQUEST PROGRAM 00).
# 3. SCHEDULE V56TOVAC WITH PRIORITY 30. # 3. SCHEDULE V56TOVAC WITH PRIORITY 30.
# #
# V56TOVAC # V56TOVAC
@ -1223,7 +1223,7 @@ UPDATOFF TC UPFLAG # VB 95 SET NOUPFLAG
EBANK= QPLACE EBANK= QPLACE
SYSTEST TC CHKP00H # DEMAND P00 SYSTEST TC CHKPOOH # DEMAND P00
TC TESTXACT TC TESTXACT
@ -1246,7 +1246,7 @@ WMATRXNG INHINT
GOSHOSUM EQUALS SHOWSUM GOSHOSUM EQUALS SHOWSUM
SHOWSUM TC CHKP00H # * SHOWSUM TC CHKPOOH # *
TC TESTXACT # * TC TESTXACT # *
CAF PRIO7 # * ALLOW OTHER CHARINS. CAF PRIO7 # * ALLOW OTHER CHARINS.
TC PRIOCHNG # * TC PRIOCHNG # *

8
Luminary099/FRESH_START_AND_RESTART.agc
View File

@ -350,7 +350,7 @@ PTBAD TC ALARM # SET ALARM TO SHOW PHASE TABLE FAILURE.
TCF DOFSTRT1 TCF DOFSTRT1
#******** ****** ****** #******** ****** ******
# Page 218 # Page 218
# DO NOT USE GOPROG2 OR ENEMA WITHOUT CONSULTING P00H PEOPLE. # DO NOT USE GOPROG2 OR ENEMA WITHOUT CONSULTING POOH PEOPLE.
OCT10000 = BIT13 OCT10000 = BIT13
OCT30000 = PRIO30 OCT30000 = PRIO30
@ -844,10 +844,10 @@ DUMMYAD EXIT
TC DOWNFLAG # ALLOW X-AXIS OVERRIDE. TC DOWNFLAG # ALLOW X-AXIS OVERRIDE.
ADRES XOVINFLG ADRES XOVINFLG
CCS MMNUMBER # IS THIS A P00H REQUEST CCS MMNUMBER # IS THIS A POOH REQUEST
TCF NOUVEAU # NO, PICK UP NEW PROGRAM TCF NOUVEAU # NO, PICK UP NEW PROGRAM
P00H TC RELDSP # RELEASE DISPLAY SYSTEM POOH TC RELDSP # RELEASE DISPLAY SYSTEM
CAF PRIO5 # SET VARIABLE RESTART PRIORITY FOR CAF PRIO5 # SET VARIABLE RESTART PRIORITY FOR
TS PHSPRDT2 # P00 INTEGRATION. TS PHSPRDT2 # P00 INTEGRATION.
@ -887,7 +887,7 @@ SEUDOP00 TS DNLSTCOD # SET UP APPROPRIATE DOWNLIST CODE
TC IBNKCALL # KILL GROUPS 1,3,5,6 TC IBNKCALL # KILL GROUPS 1,3,5,6
CADR V37KLEAN CADR V37KLEAN
CCS MMNUMBER # IS IT P00H CCS MMNUMBER # IS IT POOH
TCF RENDV00 # NO TCF RENDV00 # NO
GOMOD TC IBNKCALL # REDUNDANT EXCEPT FOR GROUP 4 GOMOD TC IBNKCALL # REDUNDANT EXCEPT FOR GROUP 4
CADR P00KLEAN CADR P00KLEAN

6
Luminary099/INTEGRATION_INITIALIZATION.agc
View File

@ -729,13 +729,13 @@ DT/2COMP DLOAD DSU
GETMAXDT GETMAXDT
DSU BMN # IS TIME TO INTEG. TO GR THAN MAXTIME DSU BMN # IS TIME TO INTEG. TO GR THAN MAXTIME
12D 12D
P00HCHK POOHCHK
USEMAXDT DLOAD SIGN USEMAXDT DLOAD SIGN
12D 12D
DT/2 DT/2
# Page 1219 # Page 1219
STCALL DT/2 STCALL DT/2
P00HCHK POOHCHK
MAXDT DLOAD PDDL # EXCHANGE DT/2MAX WITH COMPUTED MAX. MAXDT DLOAD PDDL # EXCHANGE DT/2MAX WITH COMPUTED MAX.
DT/2MAX DT/2MAX
GOTO GOTO
@ -744,7 +744,7 @@ GETMAXDT RTB
SIGNMPAC SIGNMPAC
STCALL DT/2 STCALL DT/2
USEMAXDT USEMAXDT
P00HCHK DLOAD ABS POOHCHK DLOAD ABS
DT/2 DT/2
DSU BMN DSU BMN
DT/2MIN DT/2MIN

6
Luminary099/LAMBERT_AIMPOINT_GUIDANCE.agc
View File

@ -103,7 +103,7 @@
COUNT* $$/P31 COUNT* $$/P31
P31 TC P20FLGON P31 TC P20FLGON
CAF V06N33 # T16 CAF V06N33 # T16
TC VNP00H TC VNPOOH
TC INTPRET TC INTPRET
CLEAR DLOAD CLEAR DLOAD
UPDATFLG UPDATFLG
@ -154,9 +154,9 @@ P31 TC P20FLGON
STORE HAPO STORE HAPO
EXIT EXIT
CAF V06N81 # DELVLVC CAF V06N81 # DELVLVC
TC VNP00H TC VNPOOH
CAF V06N42 # HAPO, HPER, VGDISP CAF V06N42 # HAPO, HPER, VGDISP
TC VNP00H TC VNPOOH
TC INTPRET TC INTPRET
REVN1645 SET CALL # TRKMKCNT, TTOGO, +MGA REVN1645 SET CALL # TRKMKCNT, TTOGO, +MGA
FINALFLG FINALFLG

2
Luminary099/P20-P25.agc
View File

@ -1100,7 +1100,7 @@ OUTOFLIM RELINT
CAF OCT501PV CAF OCT501PV
TC BANKCALL # ISSUE ALARM -- RR ANTENNA NOT WITHIN TC BANKCALL # ISSUE ALARM -- RR ANTENNA NOT WITHIN
CADR PRIOLARM # LIMITS CADR PRIOLARM # LIMITS
TC R23LEM2 # TERMINATE -- EXIT R23 TO R00 (GO TO P00H) TC R23LEM2 # TERMINATE -- EXIT R23 TO R00 (GO TO POOH)
TC OUTOFLIM +1 # PROCEED ILLEGAL TC OUTOFLIM +1 # PROCEED ILLEGAL
TC R23LEM3 # RECYCLE -- TO ANOTHER MANEUVER TC R23LEM3 # RECYCLE -- TO ANOTHER MANEUVER
TC ENDOFJOB TC ENDOFJOB

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

@ -182,7 +182,7 @@
# GOFLASH # GOFLASH
# GOTOPOOH # GOTOPOOH
# Page 621 # Page 621
# VNP00H # VNPOOH
# GOFLASHR # GOFLASHR
# BLANKET # BLANKET
# ENDOFJOB # ENDOFJOB
@ -226,7 +226,7 @@ P32/P72A TC P20FLGON
TS TCSI TS TCSI
TS TCSI +1 TS TCSI +1
VN0611 CAF V06N11 # TCSI VN0611 CAF V06N11 # TCSI
TC VNP00H TC VNPOOH
TC INTPRET TC INTPRET
DLOAD DCOMP DLOAD DCOMP
TCSI TCSI
@ -261,7 +261,7 @@ VN0655 EXIT
TC +2 TC +2
TC -5 TC -5
CAF V06N37 # TTPI CAF V06N37 # TTPI
TC VNP00H TC VNPOOH
TC INTPRET TC INTPRET
DLOAD DLOAD
TCSI TCSI
@ -303,7 +303,7 @@ P32/P72F STORE T2TOT3
P32/P72F P32/P72F
EXIT EXIT
CAF V06N75 CAF V06N75
TC VNP00H TC VNPOOH
TC INTPRET TC INTPRET
VLOAD CALL VLOAD CALL
DELVEET1 DELVEET1
@ -462,7 +462,7 @@ P32/P72F STORE T2TOT3
# AVFLAGA # AVFLAGA
# AVFLAGP # AVFLAGP
# P20FLGON # P20FLGON
# VNP00H # VNPOOH
# SELECTMU # SELECTMU
# ADVANCE # ADVANCE
# CDHMVR # CDHMVR
@ -484,7 +484,7 @@ P33 TC AVFLAGA
P73 TC AVFLAGP P73 TC AVFLAGP
P33/P73A TC P20FLGON P33/P73A TC P20FLGON
CAF V06N13 # TCDH CAF V06N13 # TCDH
TC VNP00H TC VNPOOH
TC INTPRET TC INTPRET
DLOAD DLOAD
TTPIO TTPIO
@ -560,7 +560,7 @@ P33/P73F ABS DSU
STORE T2TOT3 STORE T2TOT3
EXIT EXIT
CAF V06N75 CAF V06N75
TC VNP00H TC VNPOOH
TC INTPRET TC INTPRET
VLOAD CALL VLOAD CALL
DELVEET2 DELVEET2
@ -602,7 +602,7 @@ P20FLGON EXTEND
# SUBROUTINES USED # SUBROUTINES USED
# #
# S32/33.X # S32/33.X
# VNP00H # VNPOOH
DISDVLVC STORE DELVLVC DISDVLVC STORE DELVLVC
STQ CALL STQ CALL
@ -616,7 +616,7 @@ DISDVLVC STORE DELVLVC
STORE DELVLVC STORE DELVLVC
EXIT EXIT
CA VERBNOUN CA VERBNOUN
TC VNP00H TC VNPOOH
TC INTPRET TC INTPRET
GOTO GOTO
NORMEX NORMEX

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

@ -184,7 +184,7 @@
# AVFLAGA # AVFLAGA
# Page 661 # Page 661
# AVFLAGP # AVFLAGP
# VNP00H # VNPOOH
# DISPLAYE # DISPLAYE
# SELECTMU # SELECTMU
# PRECSET # PRECSET
@ -209,7 +209,7 @@ P34 TC AVFLAGA
P74 TC AVFLAGP P74 TC AVFLAGP
P34/P74A TC P20FLGON # SET UPDATFLG, TRACKFLG P34/P74A TC P20FLGON # SET UPDATFLG, TRACKFLG
CAF V06N37 # TTPI CAF V06N37 # TTPI
TC VNP00H TC VNPOOH
EXTEND EXTEND
DCA 130DEG DCA 130DEG
DXCH CENTANG DXCH CENTANG
@ -265,7 +265,7 @@ SWCHCLR BONCLR BON
TC P34/P74E TC P34/P74E
P34/P74D EXIT P34/P74D EXIT
CAF V06N37 # TTPI CAF V06N37 # TTPI
TC VNP00H TC VNPOOH
P34/P74E TC INTPRET P34/P74E TC INTPRET
SETPD DLOAD SETPD DLOAD
0D 0D
@ -312,7 +312,7 @@ P34/P74E TC INTPRET
STORE TIG STORE TIG
EXIT EXIT
CAF V06N58 CAF V06N58
TC VNP00H TC VNPOOH
TC INTPRET TC INTPRET
CALL CALL
S34/35.5 S34/35.5
@ -856,7 +856,7 @@ ALLSET STOVL TET
# GOTOPOOH # GOTOPOOH
# S34/35.3 # S34/35.3
# S34.35.4 # S34.35.4
# VNP00H # VNPOOH
S34/35.5 STQ BON S34/35.5 STQ BON
SUBEXIT SUBEXIT
@ -909,7 +909,7 @@ FLAGOFF CALL
S34/35.4 S34/35.4
EXIT EXIT
CAF V06N59 CAF V06N59
TC VNP00H TC VNPOOH
TC INTPRET TC INTPRET
GOTO GOTO
SUBEXIT SUBEXIT
@ -1012,14 +1012,14 @@ P3XORP7X CAF HIGH9
INCR Q INCR Q
RETURN RETURN
# ***** VNP00H ***** # ***** VNPOOH *****
# #
# SUBROUTINES USED # SUBROUTINES USED
# BANKCALL # BANKCALL
# GOFLASH # GOFLASH
# GOTOPOOH # GOTOPOOH
VNP00H EXTEND VNPOOH EXTEND
QXCH RTRN QXCH RTRN
TS VERBNOUN TS VERBNOUN
CA VERBNOUN CA VERBNOUN

10
Luminary099/WAITLIST.agc
View File

@ -203,7 +203,7 @@ SVCT3X TC FIXDELAY # DELAY MAX OF 2 TIMES FOR IMUZERO.
WAIT2 TS WAITBANK # BBANK OF CALLING PROGRAM. WAIT2 TS WAITBANK # BBANK OF CALLING PROGRAM.
CA Q CA Q
EXTEND EXTEND
BZMF WAITP00H BZMF WAITPOOH
CS TIME3 CS TIME3
AD BIT8 # BIT 8 = OCT 200 AD BIT8 # BIT 8 = OCT 200
@ -506,10 +506,10 @@ LNGCALL2 LXCH LONGEXIT +1 # SAVE THE CORRECT BB FOR RETURN
CCS A CCS A
TCF LONGCYCL # HI-ORDER OK --> ALL IS OK. TCF LONGCYCL # HI-ORDER OK --> ALL IS OK.
TCF +2 # HI-ORDER ZERO --> CHECK LO-ORDER. TCF +2 # HI-ORDER ZERO --> CHECK LO-ORDER.
TCF LONGP00H # HI-ORDER NEG. --> NEG. DT TCF LONGPOOH # HI-ORDER NEG. --> NEG. DT
+2 CA LONGTIME +1 # CHECK LO-ORDER FOR ZERO OR NEGATIVE. +2 CA LONGTIME +1 # CHECK LO-ORDER FOR ZERO OR NEGATIVE.
EXTEND EXTEND
BZMF LONGP00H # BAD DELTA-TIME. ABORT BZMF LONGPOOH # BAD DELTA-TIME. ABORT
# *** WAITLIST TASK LONGCYCL *** # *** WAITLIST TASK LONGCYCL ***
@ -556,9 +556,9 @@ GETCADR DXCH LONGCADR # GET THE LONGCALL THAT WE WISHED TO START
DTCB # AND TRANSFER CONTROL TO IT DTCB # AND TRANSFER CONTROL TO IT
TSKOVCDR GENADR TASKOVER TSKOVCDR GENADR TASKOVER
LONGP00H DXCH LONGEXIT LONGPOOH DXCH LONGEXIT
TCF +2 TCF +2
WAITP00H DXCH WAITEXIT WAITPOOH DXCH WAITEXIT
+2 TC POODOO1 +2 TC POODOO1
OCT 01204 OCT 01204