diff --git a/Comanche055/EXTENDED_VERBS.agc b/Comanche055/EXTENDED_VERBS.agc index 8399f1c..23a1b5a 100644 --- a/Comanche055/EXTENDED_VERBS.agc +++ b/Comanche055/EXTENDED_VERBS.agc @@ -10,7 +10,7 @@ # Website: http://www.ibiblio.org/apollo. # Mod history: 2009-05-18 FB Transcription Batch 3 Assignment. # 2009-05-20 RSB Corrections: POODOO -> P00DOO, -# GOTOPOOH -> GOTOP00H, added a couple of +# GOTOPOOH -> GOTOPOOH, added a couple of # missing instructions in Verb 96. # 2009-05-23 RSB In SYSTEST, corrected TC FLAGWRD1 to # CA FLAGWRD1. Added a variety of SBANK= @@ -462,7 +462,7 @@ VNLODDT VN 2524 # V25N24 FOR LOAD DELTA TIME COUNT 04/EXTVB -SYSTEST TC CHKP00H +SYSTEST TC CHKPOOH CA FLAGWRD1 # IS NODOP01 FLAGBIT ON? (SET BY P11) MASK NOP01BIT EXTEND @@ -524,7 +524,7 @@ CHAZFOGC TC CHECKMM # IS IT PRELAUNCH # TRANSFER LOADED VALUES TO REGISTERS, AND SEND COMMANDS. # 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 EXTEND @@ -586,7 +586,7 @@ CKLFTBTS CAF GRRBKBIT # HAS LIFTOFF OCCURRED XACT0Q TC Q # YES 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. INHINT CAF PRIO4 @@ -675,7 +675,7 @@ STABLISH CAF EBANK6 # V46 - SET EBANK TO E6 # C. ENTER # 1. REPEAT FLASHING V06,N22. -CREWMANU TC CHKP00H # DEMAND P00 +CREWMANU TC CHKPOOH # DEMAND P00 TC TESTXACT @@ -1004,7 +1004,7 @@ LFTFLGON TC UPFLAG # VB 75 - SET LIFTOFF FLAG BIT TC GOPIN # Page 261 -CHKP00H CA MODREG +CHKPOOH CA MODREG EXTEND BZF TCQ TCF ALM/END @@ -1058,7 +1058,7 @@ IDLECADR 2CADR T5IDLOC # TERMINATE- EXIT R63 ROUTINE # PROCEED- RESET 3AXISFLG AND CALL R60CSM FOR ATTITUDE MANEUVER. -V89PERF TC CHKP00H # DEMAND P00 +V89PERF TC CHKPOOH # DEMAND P00 TC TESTXACT INHINT CAF PRIO10 @@ -1078,7 +1078,7 @@ WMATRXNG TC DOWNFLAG # RESET RENDWFLG GOSHOSUM EQUALS SHOWSUM -SHOWSUM TC CHKP00H +SHOWSUM TC CHKPOOH TC TESTXACT # * CAF S+1 # * TS SKEEP6 # * SHOWSUM OPTION diff --git a/Comanche055/FRESH_START_AND_RESTART.agc b/Comanche055/FRESH_START_AND_RESTART.agc index 7e3a757..c26e1ef 100644 --- a/Comanche055/FRESH_START_AND_RESTART.agc +++ b/Comanche055/FRESH_START_AND_RESTART.agc @@ -116,7 +116,7 @@ # CADR SLAP1 # ENEMA - TC POSTJUMP *** DO NOT CALL ENEMA WITHOUT *** -# CADR ENEMA *** CONSULTING P00H PEOPLE *** +# CADR ENEMA *** CONSULTING POOH PEOPLE *** # 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 OCT10000 = BIT13 @@ -945,12 +945,12 @@ DUMMYAD EXIT TC DOWNFLAG ADRES R21MARK - CCS MMNUMBER # IS THIS A P00H REQUEST + CCS MMNUMBER # IS THIS A POOH REQUEST TCF NOUVEAU # NO, PICK UP NEW PROGRAM COUNT 04/P00 -P00H TC RELDSP # RELEASE DISPLAY SYSTEM +POOH TC RELDSP # RELEASE DISPLAY SYSTEM CAF PRIO5 # SET VARIABLE RESTART REGISTER FOR P00. TS PHSPRDT2 @@ -985,7 +985,7 @@ SEUDOP00 TS DNLSTCOD # SET UP APPROPRIATE DOWNLIST. GROUPKIL TC IBNKCALL # KILL GROUPS 3(5,6 CADR V37KLEAN - CCS MMNUMBER # IS IT P00H + CCS MMNUMBER # IS IT POOH TCF RENDV00 # NO # Page 201 TC IBNKCALL diff --git a/Comanche055/INTEGRATION_INITIALIZATION.agc b/Comanche055/INTEGRATION_INITIALIZATION.agc index 3a6d0aa..37e6239 100644 --- a/Comanche055/INTEGRATION_INITIALIZATION.agc +++ b/Comanche055/INTEGRATION_INITIALIZATION.agc @@ -742,13 +742,13 @@ DT/2COMP DLOAD DSU GETMAXDT DSU BMN # IS TIME TO INTEG. TO GR THAN MAXTIME 12D - P00HCHK + POOHCHK USEMAXDT DLOAD SIGN 12D DT/2 # Page 1324 STCALL DT/2 - P00HCHK + POOHCHK MAXDT DLOAD PDDL # EXCHANGE DT/2MAX WITH COMPUTED MAX. DT/2MAX GOTO @@ -757,7 +757,7 @@ GETMAXDT RTB SIGNMPAC STCALL DT/2 USEMAXDT -P00HCHK DLOAD ABS +POOHCHK DLOAD ABS DT/2 DSU BMN DT/2MIN diff --git a/Comanche055/P20-P25.agc b/Comanche055/P20-P25.agc index ad7f54e..ed93153 100644 --- a/Comanche055/P20-P25.agc +++ b/Comanche055/P20-P25.agc @@ -11,7 +11,7 @@ # of the same name, using Comanche055 page # images. # 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, # S22B0X44 -> S22BOX44, S22SUBSCL -> 22SUBSCL, # S22DPP -> S22DSPP, changed some instructions in @@ -2685,7 +2685,7 @@ S22UOFF = LEMPOS # 6 U SUB OFF # # 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 # 2. PROGRAM ALARM IF IMU IS OFF diff --git a/Comanche055/P32-P33_P72-P73.agc b/Comanche055/P32-P33_P72-P73.agc index 6df3257..7200821 100644 --- a/Comanche055/P32-P33_P72-P73.agc +++ b/Comanche055/P32-P33_P72-P73.agc @@ -189,7 +189,7 @@ # GOFLASH # GOTOPOOH # Page 652 -# VNP00H +# VNPOOH # GOFLASHR # BLANKET # ENDOFJOB @@ -237,7 +237,7 @@ P32/P72A TC P20FLGON STORE NN EXIT CAF V06N11 # TCSI - TC VNP00H + TC VNPOOH CAF V06N55 # NN. ELEV(RGL05) # Page 653 TC BANKCALL @@ -246,7 +246,7 @@ P32/P72A TC P20FLGON TC +2 TC -5 CAF V06N37 # TTPI - TC VNP00H + TC VNPOOH TC INTPRET DLOAD TCSI @@ -295,7 +295,7 @@ P32/P72F STORE T2TOT3 P32/P72F EXIT CAF V06N75 - TC VNP00H + TC VNPOOH TC INTPRET VLOAD CALL DELVEET1 @@ -453,7 +453,7 @@ P32/P72F STORE T2TOT3 # AVFLAGA # AVFLAGP # P20FLGON -# VNP00H +# VNPOOH # SELECTMU # ADVANCE # CDHMVR @@ -476,7 +476,7 @@ P33 TC AVFLAGA P73 TC AVFLAGP P33/P73A TC P20FLGON CAF V06N13 # TCDH - TC VNP00H + TC VNPOOH TC INTPRET DLOAD TTPIO @@ -560,7 +560,7 @@ P33/P73F ABS DSU STORE T2TOT3 EXIT CAF V06N75 - TC VNP00H + TC VNPOOH TC INTPRET VLOAD CALL DELVEET2 @@ -578,7 +578,7 @@ P33/P73F ABS DSU # SUBROUTINES USED # S32/33.X -# VNP00H +# VNPOOH SETLOC CDHTAG3 BANK @@ -595,7 +595,7 @@ DISDVLVC STORE DELVLVC STORE DELVLVC EXIT CA VERBNOUN - TC VNP00H + TC VNPOOH TC INTPRET GOTO NORMEX diff --git a/Comanche055/P34-35_P74-75.agc b/Comanche055/P34-35_P74-75.agc index 8fc64c1..0d5f619 100644 --- a/Comanche055/P34-35_P74-75.agc +++ b/Comanche055/P34-35_P74-75.agc @@ -159,7 +159,7 @@ # AVFLAGA # Page 463 # AVFLAGP -# VNP00H +# VNPOOH # DISPLAYE # SELECTMU # PRECSET @@ -185,7 +185,7 @@ P34 TC AVFLAGA P74 TC AVFLAGP P34/P74A TC P20FLGON # SET UPDATFLG, TRACKFLG 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 SSP EXIT NN @@ -240,7 +240,7 @@ SWCHCLR BONCLR BON TC P34/P74E P34/P74D EXIT CAF V06N37 # TTPI - TC VNP00H + TC VNPOOH P34/P74E TC INTPRET SETPD DLOAD 0D @@ -287,7 +287,7 @@ P34/P74E TC INTPRET STORE TIG EXIT CAF V06N58 - TC VNP00H + TC VNPOOH TC INTPRET CALL S34/35.5 @@ -821,7 +821,7 @@ ALLSET STOVL TET # GOTOPOOH # S34/35.3 # S34.35.4 -# VNP00H +# VNPOOH S34/35.5 STQ BON SUBEXIT @@ -835,7 +835,7 @@ FLAGON VLOAD STORE DVLOS # SAVE DELTA V BEFORE DISPLAY EXIT CAF V06N81 - TC VNP00H + TC VNPOOH TC INTPRET VLOAD VSU # TEST FOR OVERWRITE OF COMPUTED DELVLVC # DELTA V @@ -852,7 +852,7 @@ FLAGOFF CALL S34/35.4 EXIT CAF V06N59 - TC VNP00H + TC VNPOOH TC INTPRET GOTO SUBEXIT @@ -955,7 +955,7 @@ P3XORP7X CAF HIGH9 INCR Q RETURN -# ***** VNP00H ***** +# ***** VNPOOH ***** # # SUBROUTINES USED # BANKCALL @@ -965,7 +965,7 @@ P3XORP7X CAF HIGH9 SETLOC P30SUBS BANK -VNP00H EXTEND +VNPOOH EXTEND QXCH RTRN TS VERBNOUN CAF VNBANK # ***** THIS ROUTINE MUST REMAIN IN diff --git a/Comanche055/P51-P53.agc b/Comanche055/P51-P53.agc index 277cca8..6267181 100644 --- a/Comanche055/P51-P53.agc +++ b/Comanche055/P51-P53.agc @@ -10,7 +10,7 @@ # Mod history: 2009-05-12 RSB Adapted from Colossus249 file of the same # name, and Comanche 055 page images. # 2009-05-20 RSB Corrections: SETI/PDT -> SET1/PDT, -# GOTOPOOH -> GOTOP00H, R33EXIT -> R53EXIT, +# GOTOPOOH -> GOTOPOOH, R33EXIT -> R53EXIT, # V853 -> VB53, R56A -> R56A1 (some places # only), added missing R56A1 label, added a # missing CAF in COARSTYP, corrected a SETLOC diff --git a/Comanche055/P61-P67.agc b/Comanche055/P61-P67.agc index 0220679..1c2dbac 100644 --- a/Comanche055/P61-P67.agc +++ b/Comanche055/P61-P67.agc @@ -447,7 +447,7 @@ P66 TC NEWMODEX # ENTER VIA RTB WHEN D < Q7 FPSS # MOD BY: R. HIRSCHKOP # FUNCTION: TO TERMINATE STEERING WHEN THE CM VELOCITY WRT EARTH = 1000 FT/SEC # CALLING SEQUENCE: -# EXIT: TO P00H +# EXIT: TO POOH # SUBROUTINE CALLS: GOFLASH # THIS DISPLAY IS CALLED EACH PASS THROUGH STEERING. RESTART PROTECTION IS VIA STEERING. diff --git a/Comanche055/PINBALL_GAME_BUTTONS_AND_LIGHTS.agc b/Comanche055/PINBALL_GAME_BUTTONS_AND_LIGHTS.agc index fd73b11..96250b8 100644 --- a/Comanche055/PINBALL_GAME_BUTTONS_AND_LIGHTS.agc +++ b/Comanche055/PINBALL_GAME_BUTTONS_AND_LIGHTS.agc @@ -11,7 +11,7 @@ # of the same name, using Comanche055 page # images. Finished through page 329. # 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 # images of a hardcopy from the MIT Museum. The digitization was performed @@ -3605,7 +3605,7 @@ PINTEST EQUALS LST2FAN COUNT 41/PIN VBTSTLTS TC BANKCALL - CADR CHKP00H + CADR CHKPOOH INHINT CS BIT1 # SET BIT 1 OF IMODES33 SO IMUMON WON'T diff --git a/Comanche055/TPI_SEARCH.agc b/Comanche055/TPI_SEARCH.agc index d9ba115..230bff1 100644 --- a/Comanche055/TPI_SEARCH.agc +++ b/Comanche055/TPI_SEARCH.agc @@ -476,7 +476,7 @@ P17 TC AVFLAGA # AVFLAG = CSM , SET TRACK + UPDATE FLAGS P77 TC AVFLAGP # AVFLAG = LEM , SET TRACK + UPDATE FLAGS P17.1 TC P20FLGON # SET UPDATE FLAG CAF V06N37 # DISPLAY TTPI TIME - TC VNP00H + TC VNPOOH TC INTPRET CLEAR CALL UPDATFLG diff --git a/Luminary099/BURN_BABY_BURN--MASTER_IGNITION_ROUTINE.agc b/Luminary099/BURN_BABY_BURN--MASTER_IGNITION_ROUTINE.agc index 67b81c1..1baf1ca 100644 --- a/Luminary099/BURN_BABY_BURN--MASTER_IGNITION_ROUTINE.agc +++ b/Luminary099/BURN_BABY_BURN--MASTER_IGNITION_ROUTINE.agc @@ -745,7 +745,7 @@ VB97DEX = OCT35 # NEGATIVE OF THIS IS PROPER FOR DISPDEX CA NVWORD +2 # NVWORD+2 CONTAINS V06 & APPROPRIATE NOUN TC BANKCALL CADR CLOCPLAY - TCF STOPCLOK # TERMINATE CLOKTASK ON THE WAY TO P00H + TCF STOPCLOK # TERMINATE CLOKTASK ON THE WAY TO POOH TCF COMFAIL1 TCF COMFAIL2 diff --git a/Luminary099/EXTENDED_VERBS.agc b/Luminary099/EXTENDED_VERBS.agc index 01e1c90..f59ca91 100644 --- a/Luminary099/EXTENDED_VERBS.agc +++ b/Luminary099/EXTENDED_VERBS.agc @@ -146,7 +146,7 @@ ALM/END TC FALTON # TURN ON OPERATOR ERROR LIGHT GOPIN TC POSTJUMP CADR PINBRNCH -CHKP00H CA MODREG # CHECK FOR P00 OR P00-. +CHKPOOH CA MODREG # CHECK FOR P00 OR P00-. EXTEND BZF TCQ TC ALM/END @@ -827,7 +827,7 @@ DEC22 DEC 22 COUNT* $$/EXTVB -VB64 TC CHKP00H # DEMAND PROGRAM 00. +VB64 TC CHKPOOH # DEMAND PROGRAM 00. TC TESTXACT # IF DISPLAY SYS. NOT BUSY MAKE IT BUSY. CAF PRIO4 TC FINDVAC @@ -846,7 +846,7 @@ VB64 TC CHKP00H # DEMAND PROGRAM 00. # 4. REQUEST LOAD OF N22 (VALUES TO BE DISPLAYED). # 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 EXTEND # CDUS BITS ARE ON @@ -1002,7 +1002,7 @@ V83PERF TC TESTXACT # TERMINATE -- EXIT R63. # PROCEED -- RESET 3AXISFLG AND CALL R60LEM FOR ATTITUDE MANEUVER. -V89PERF TC CHKP00H +V89PERF TC CHKPOOH TC TESTXACT CAF PRIO10 TC FINDVAC @@ -1080,7 +1080,7 @@ NOMINIMP INHINT # C. ENTER # 1. REPEAT FLASHING V06,N22. -CREWMANU TC CHKP00H # DEMAND P00 +CREWMANU TC CHKPOOH # DEMAND P00 TC TESTXACT @@ -1096,7 +1096,7 @@ CREWMANU TC CHKP00H # DEMAND P00 # TERMINATE TRACKING (P20 AND P25). # # 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. # # V56TOVAC @@ -1223,7 +1223,7 @@ UPDATOFF TC UPFLAG # VB 95 SET NOUPFLAG EBANK= QPLACE -SYSTEST TC CHKP00H # DEMAND P00 +SYSTEST TC CHKPOOH # DEMAND P00 TC TESTXACT @@ -1246,7 +1246,7 @@ WMATRXNG INHINT GOSHOSUM EQUALS SHOWSUM -SHOWSUM TC CHKP00H # * +SHOWSUM TC CHKPOOH # * TC TESTXACT # * CAF PRIO7 # * ALLOW OTHER CHARINS. TC PRIOCHNG # * diff --git a/Luminary099/FRESH_START_AND_RESTART.agc b/Luminary099/FRESH_START_AND_RESTART.agc index 145c8b7..ba89b58 100644 --- a/Luminary099/FRESH_START_AND_RESTART.agc +++ b/Luminary099/FRESH_START_AND_RESTART.agc @@ -350,7 +350,7 @@ PTBAD TC ALARM # SET ALARM TO SHOW PHASE TABLE FAILURE. TCF DOFSTRT1 #******** ****** ****** # Page 218 -# DO NOT USE GOPROG2 OR ENEMA WITHOUT CONSULTING P00H PEOPLE. +# DO NOT USE GOPROG2 OR ENEMA WITHOUT CONSULTING POOH PEOPLE. OCT10000 = BIT13 OCT30000 = PRIO30 @@ -844,10 +844,10 @@ DUMMYAD EXIT TC DOWNFLAG # ALLOW X-AXIS OVERRIDE. ADRES XOVINFLG - CCS MMNUMBER # IS THIS A P00H REQUEST + CCS MMNUMBER # IS THIS A POOH REQUEST 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 TS PHSPRDT2 # P00 INTEGRATION. @@ -887,7 +887,7 @@ SEUDOP00 TS DNLSTCOD # SET UP APPROPRIATE DOWNLIST CODE TC IBNKCALL # KILL GROUPS 1,3,5,6 CADR V37KLEAN - CCS MMNUMBER # IS IT P00H + CCS MMNUMBER # IS IT POOH TCF RENDV00 # NO GOMOD TC IBNKCALL # REDUNDANT EXCEPT FOR GROUP 4 CADR P00KLEAN diff --git a/Luminary099/INTEGRATION_INITIALIZATION.agc b/Luminary099/INTEGRATION_INITIALIZATION.agc index 40e4885..b18a9bc 100644 --- a/Luminary099/INTEGRATION_INITIALIZATION.agc +++ b/Luminary099/INTEGRATION_INITIALIZATION.agc @@ -729,13 +729,13 @@ DT/2COMP DLOAD DSU GETMAXDT DSU BMN # IS TIME TO INTEG. TO GR THAN MAXTIME 12D - P00HCHK + POOHCHK USEMAXDT DLOAD SIGN 12D DT/2 # Page 1219 STCALL DT/2 - P00HCHK + POOHCHK MAXDT DLOAD PDDL # EXCHANGE DT/2MAX WITH COMPUTED MAX. DT/2MAX GOTO @@ -744,7 +744,7 @@ GETMAXDT RTB SIGNMPAC STCALL DT/2 USEMAXDT -P00HCHK DLOAD ABS +POOHCHK DLOAD ABS DT/2 DSU BMN DT/2MIN diff --git a/Luminary099/LAMBERT_AIMPOINT_GUIDANCE.agc b/Luminary099/LAMBERT_AIMPOINT_GUIDANCE.agc index 8f81a99..b2b733d 100644 --- a/Luminary099/LAMBERT_AIMPOINT_GUIDANCE.agc +++ b/Luminary099/LAMBERT_AIMPOINT_GUIDANCE.agc @@ -103,7 +103,7 @@ COUNT* $$/P31 P31 TC P20FLGON CAF V06N33 # T16 - TC VNP00H + TC VNPOOH TC INTPRET CLEAR DLOAD UPDATFLG @@ -154,9 +154,9 @@ P31 TC P20FLGON STORE HAPO EXIT CAF V06N81 # DELVLVC - TC VNP00H + TC VNPOOH CAF V06N42 # HAPO, HPER, VGDISP - TC VNP00H + TC VNPOOH TC INTPRET REVN1645 SET CALL # TRKMKCNT, TTOGO, +MGA FINALFLG diff --git a/Luminary099/P20-P25.agc b/Luminary099/P20-P25.agc index 50bc927..627b060 100644 --- a/Luminary099/P20-P25.agc +++ b/Luminary099/P20-P25.agc @@ -1100,7 +1100,7 @@ OUTOFLIM RELINT CAF OCT501PV TC BANKCALL # ISSUE ALARM -- RR ANTENNA NOT WITHIN 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 R23LEM3 # RECYCLE -- TO ANOTHER MANEUVER TC ENDOFJOB diff --git a/Luminary099/P32-P35_P72-P75.agc b/Luminary099/P32-P35_P72-P75.agc index 3d144e8..c2435e8 100644 --- a/Luminary099/P32-P35_P72-P75.agc +++ b/Luminary099/P32-P35_P72-P75.agc @@ -182,7 +182,7 @@ # GOFLASH # GOTOPOOH # Page 621 -# VNP00H +# VNPOOH # GOFLASHR # BLANKET # ENDOFJOB @@ -226,7 +226,7 @@ P32/P72A TC P20FLGON TS TCSI TS TCSI +1 VN0611 CAF V06N11 # TCSI - TC VNP00H + TC VNPOOH TC INTPRET DLOAD DCOMP TCSI @@ -261,7 +261,7 @@ VN0655 EXIT TC +2 TC -5 CAF V06N37 # TTPI - TC VNP00H + TC VNPOOH TC INTPRET DLOAD TCSI @@ -303,7 +303,7 @@ P32/P72F STORE T2TOT3 P32/P72F EXIT CAF V06N75 - TC VNP00H + TC VNPOOH TC INTPRET VLOAD CALL DELVEET1 @@ -462,7 +462,7 @@ P32/P72F STORE T2TOT3 # AVFLAGA # AVFLAGP # P20FLGON -# VNP00H +# VNPOOH # SELECTMU # ADVANCE # CDHMVR @@ -484,7 +484,7 @@ P33 TC AVFLAGA P73 TC AVFLAGP P33/P73A TC P20FLGON CAF V06N13 # TCDH - TC VNP00H + TC VNPOOH TC INTPRET DLOAD TTPIO @@ -560,7 +560,7 @@ P33/P73F ABS DSU STORE T2TOT3 EXIT CAF V06N75 - TC VNP00H + TC VNPOOH TC INTPRET VLOAD CALL DELVEET2 @@ -602,7 +602,7 @@ P20FLGON EXTEND # SUBROUTINES USED # # S32/33.X -# VNP00H +# VNPOOH DISDVLVC STORE DELVLVC STQ CALL @@ -616,7 +616,7 @@ DISDVLVC STORE DELVLVC STORE DELVLVC EXIT CA VERBNOUN - TC VNP00H + TC VNPOOH TC INTPRET GOTO NORMEX diff --git a/Luminary099/P34-35_P74-75.agc b/Luminary099/P34-35_P74-75.agc index 8ecfe52..cb8a0dc 100644 --- a/Luminary099/P34-35_P74-75.agc +++ b/Luminary099/P34-35_P74-75.agc @@ -184,7 +184,7 @@ # AVFLAGA # Page 661 # AVFLAGP -# VNP00H +# VNPOOH # DISPLAYE # SELECTMU # PRECSET @@ -209,7 +209,7 @@ P34 TC AVFLAGA P74 TC AVFLAGP P34/P74A TC P20FLGON # SET UPDATFLG, TRACKFLG CAF V06N37 # TTPI - TC VNP00H + TC VNPOOH EXTEND DCA 130DEG DXCH CENTANG @@ -265,7 +265,7 @@ SWCHCLR BONCLR BON TC P34/P74E P34/P74D EXIT CAF V06N37 # TTPI - TC VNP00H + TC VNPOOH P34/P74E TC INTPRET SETPD DLOAD 0D @@ -312,7 +312,7 @@ P34/P74E TC INTPRET STORE TIG EXIT CAF V06N58 - TC VNP00H + TC VNPOOH TC INTPRET CALL S34/35.5 @@ -856,7 +856,7 @@ ALLSET STOVL TET # GOTOPOOH # S34/35.3 # S34.35.4 -# VNP00H +# VNPOOH S34/35.5 STQ BON SUBEXIT @@ -909,7 +909,7 @@ FLAGOFF CALL S34/35.4 EXIT CAF V06N59 - TC VNP00H + TC VNPOOH TC INTPRET GOTO SUBEXIT @@ -1012,14 +1012,14 @@ P3XORP7X CAF HIGH9 INCR Q RETURN -# ***** VNP00H ***** +# ***** VNPOOH ***** # # SUBROUTINES USED # BANKCALL # GOFLASH # GOTOPOOH -VNP00H EXTEND +VNPOOH EXTEND QXCH RTRN TS VERBNOUN CA VERBNOUN diff --git a/Luminary099/WAITLIST.agc b/Luminary099/WAITLIST.agc index 70b0f33..5165895 100644 --- a/Luminary099/WAITLIST.agc +++ b/Luminary099/WAITLIST.agc @@ -203,7 +203,7 @@ SVCT3X TC FIXDELAY # DELAY MAX OF 2 TIMES FOR IMUZERO. WAIT2 TS WAITBANK # BBANK OF CALLING PROGRAM. CA Q EXTEND - BZMF WAITP00H + BZMF WAITPOOH CS TIME3 AD BIT8 # BIT 8 = OCT 200 @@ -506,10 +506,10 @@ LNGCALL2 LXCH LONGEXIT +1 # SAVE THE CORRECT BB FOR RETURN CCS A TCF LONGCYCL # HI-ORDER OK --> ALL IS OK. 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. EXTEND - BZMF LONGP00H # BAD DELTA-TIME. ABORT + BZMF LONGPOOH # BAD DELTA-TIME. ABORT # *** WAITLIST TASK LONGCYCL *** @@ -556,9 +556,9 @@ GETCADR DXCH LONGCADR # GET THE LONGCALL THAT WE WISHED TO START DTCB # AND TRANSFER CONTROL TO IT TSKOVCDR GENADR TASKOVER -LONGP00H DXCH LONGEXIT +LONGPOOH DXCH LONGEXIT TCF +2 -WAITP00H DXCH WAITEXIT +WAITPOOH DXCH WAITEXIT +2 TC POODOO1 OCT 01204