From 8b2fca34e6580a9828a633d39e3bfb5545aa46a5 Mon Sep 17 00:00:00 2001 From: James Harris Date: Wed, 4 Mar 2020 17:17:07 +0000 Subject: [PATCH] Fix YaYUL Fatal Errors in Comanche055 (#664) --- Comanche055/CONIC_SUBROUTINES.agc | 6 +- Comanche055/DISPLAY_INTERFACE_ROUTINES.agc | 2 +- Comanche055/EXTENDED_VERBS.agc | 6 +- Comanche055/FRESH_START_AND_RESTART.agc | 8 +- .../GROUND_TRACKING_DETERMINATION_PROGRAM.agc | 8 +- Comanche055/IMU_CALIBRATION_AND_ALIGNMENT.agc | 2 +- Comanche055/IMU_MODE_SWITCHING_ROUTINES.agc | 10 +- Comanche055/INTERPRETER.agc | 2 +- Comanche055/MAIN.agc | 99 +++++++++++++++++++ Comanche055/ORBITAL_INTEGRATION.agc | 2 +- Comanche055/P20-P25.agc | 32 +++--- Comanche055/P30-P37.agc | 14 +-- Comanche055/P32-P33_P72-P73.agc | 10 +- Comanche055/P34-35_P74-75.agc | 18 ++-- Comanche055/P37_P70.agc | 10 +- Comanche055/P40-P47.agc | 10 +- Comanche055/P51-P53.agc | 40 ++++---- Comanche055/P61-P67.agc | 12 +-- Comanche055/P76.agc | 2 +- .../PINBALL_GAME_BUTTONS_AND_LIGHTS.agc | 4 +- Comanche055/R60_62.agc | 2 +- Comanche055/STABLE_ORBIT.agc | 14 +-- Comanche055/SXTMARK.agc | 2 +- Comanche055/TPI_SEARCH.agc | 6 +- Comanche055/WAITLIST.agc | 2 +- 25 files changed, 211 insertions(+), 112 deletions(-) create mode 100644 Comanche055/MAIN.agc diff --git a/Comanche055/CONIC_SUBROUTINES.agc b/Comanche055/CONIC_SUBROUTINES.agc index 5b8670c..95cfca7 100644 --- a/Comanche055/CONIC_SUBROUTINES.agc +++ b/Comanche055/CONIC_SUBROUTINES.agc @@ -337,7 +337,7 @@ # L+6 ... # CONTINUE. # # ABORT EXIT MODES -- -# IF COGAFLAG AND/OR INFINFLG IS SET AT THE EXIT TO TIME-THETA, TIME-THETA WILL TRANSFER TO P00DOO WITH +# IF COGAFLAG AND/OR INFINFLG IS SET AT THE EXIT TO TIME-THETA, TIME-THETA WILL TRANSFER TO POODOO WITH # AN ALARM CODE (ORIGINALLY 00607), AND NOT RETURN TO THE CALLING PROGRAM. (PCR 692 AND 721). # # OUTPUT -- @@ -448,7 +448,7 @@ # # ABORT EXIT MODES -- # IF SOLNSW AND/OR COGAFLAG AND/OR INFINFLG IS SET AT THE EXIT TO TIME-RADIUS, TIME-RADIUS WILL TRANSFER -# TO P00DOO WITH AN ALARM CODE (ORIGINALLY 00607), AND NOT RETURN TO THE CALLING PROGRAM. (PCR 692 & 721). +# TO POODOO WITH AN ALARM CODE (ORIGINALLY 00607), AND NOT RETURN TO THE CALLING PROGRAM. (PCR 692 & 721). # # OUTPUT -- # SCALE FACTOR @@ -1749,7 +1749,7 @@ INFINAPO DLOAD GOTO # RETURNS WITH APOAPSIS IN MPAC, PERIAPSIS # Page 1304 ABTCONIC EXIT - TC P00DOO + TC POODOO OCT 00607 # Page 1305 diff --git a/Comanche055/DISPLAY_INTERFACE_ROUTINES.agc b/Comanche055/DISPLAY_INTERFACE_ROUTINES.agc index bfb3a2f..62b70d9 100644 --- a/Comanche055/DISPLAY_INTERFACE_ROUTINES.agc +++ b/Comanche055/DISPLAY_INTERFACE_ROUTINES.agc @@ -798,7 +798,7 @@ IFLEGAL CAF TWO EXTEND BZF OKTOPLAY # NO -PRIOBORT TC P00DOO +PRIOBORT TC POODOO OCT 1502 # Page 1471 diff --git a/Comanche055/EXTENDED_VERBS.agc b/Comanche055/EXTENDED_VERBS.agc index d617a8d..8399f1c 100644 --- a/Comanche055/EXTENDED_VERBS.agc +++ b/Comanche055/EXTENDED_VERBS.agc @@ -467,7 +467,7 @@ SYSTEST TC CHKP00H MASK NOP01BIT EXTEND BZF V92CONT # IF IT'S NOT YET SET, CONTINUE - TC P00DOO # IT'S ON. SEND NODO ALARM FOR P07 + TC POODOO # IT'S ON. SEND NODO ALARM FOR P07 OCT 1521 V92CONT TC EXDAPOFF # TURN DAP OFF IF IT'S ON CAF PRIO20 @@ -667,7 +667,7 @@ STABLISH CAF EBANK6 # V46 - SET EBANK TO E6 # 4 FOR RESTART OF DISPLAY SEQUENCE. # RESPONSES # A. TERMINATE -# 1. GO TO GOTOP00H. +# 1. GO TO GOTOPOOH. # B. PROCEED # 1. SET 3AXISFLG TO INDICATE MANEUVER IS SPECIFIED BY 3 AXIS. # 2. EXECUTE R60CSM (ATTITUDE MANEUVER). @@ -907,7 +907,7 @@ V86PERF CAF EBANK7 # BACKUP MARK REJECT (R23) # TRACKTRM VERB 56 DESCRIPTION # TERMINATE TRACKING (P20) # 1. KNOCK DOWN RENDEZVOUS, TRACK, AND UPDATE FLAGS. -# 2. REQUIRE P20 NOT RUNNING ALONE OR GO TO GOTOP00H (REQUEST PROGRAM 00). +# 2. REQUIRE P20 NOT RUNNING ALONE OR GO TO GOTOPOOH (REQUEST PROGRAM 00). # 3. REQUIRE R22 RUNNING OR GO TO PINBRNCH. # 4. IF INTEGRATION RUNNING, STALL UNTIL IT IS COMPLETED, THEN ZERO GROUPS 2 AND 3 TO KILL R21 + R22. # 3. KNOCK DOWN RENDEZFOUS, R22, R21, TRACK, UPDATE, AND TARG1 FLAGS. diff --git a/Comanche055/FRESH_START_AND_RESTART.agc b/Comanche055/FRESH_START_AND_RESTART.agc index 426f41f..7e3a757 100644 --- a/Comanche055/FRESH_START_AND_RESTART.agc +++ b/Comanche055/FRESH_START_AND_RESTART.agc @@ -462,7 +462,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 @@ -677,7 +677,7 @@ SWINIT OCT 0 OCT 0 OCT 0 # Page 194 -# PROGRAM NAME GOTOP00H ASSEMBLY SUNDISK +# PROGRAM NAME GOTOPOOH ASSEMBLY SUNDISK # LOG SECTION FRESH START AND RESTART # FUNCTIONAL DESCRIPTION @@ -688,7 +688,7 @@ SWINIT OCT 0 # INPUT/OUTPUT INFORMATION -# A. CALLING SEQUENCE TC GOTOP00H +# A. CALLING SEQUENCE TC GOTOPOOH # B. ERASABLE INITIALIZATION NONE @@ -710,7 +710,7 @@ SWINIT OCT 0 COUNT 02/P00 -GOTOP00H TC PHASCHNG # RESTART GOTOP00H +GOTOPOOH TC PHASCHNG # RESTART GOTOPOOH OCT 14 TC POSTJUMP diff --git a/Comanche055/GROUND_TRACKING_DETERMINATION_PROGRAM.agc b/Comanche055/GROUND_TRACKING_DETERMINATION_PROGRAM.agc index 42ba152..25dfb69 100644 --- a/Comanche055/GROUND_TRACKING_DETERMINATION_PROGRAM.agc +++ b/Comanche055/GROUND_TRACKING_DETERMINATION_PROGRAM.agc @@ -98,13 +98,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 @@ -186,8 +186,8 @@ P21DSP CLEAR SLOAD # GENERATE DISPLAY DATA CAF V06N43 # DISPLAY LAT,LONG,ALT TC BANKCALL # LAT,LONG = REVS B0 BOTH EARTH/MOON CADR GOFLASH # ALT = METERS B-29 BOTH EARTH/MOON - TC GOTOP00H # TERM - TC GOTOP00H + TC GOTOPOOH # TERM + TC GOTOPOOH TC INTPRET # V32E RECYCLE DLOAD DAD P21TIME diff --git a/Comanche055/IMU_CALIBRATION_AND_ALIGNMENT.agc b/Comanche055/IMU_CALIBRATION_AND_ALIGNMENT.agc index cd091ed..a2d63f1 100644 --- a/Comanche055/IMU_CALIBRATION_AND_ALIGNMENT.agc +++ b/Comanche055/IMU_CALIBRATION_AND_ALIGNMENT.agc @@ -871,7 +871,7 @@ GTSCPSS CA FLAGWRD1 # CALLED BY V37 # Page 443 EXTEND BZF GTSCPSSA - TC P00DOO + TC POODOO OCT 1521 # NODO ALARM FOR P01 - P11 ALREADY DONE GTSCPSSA CAF ONE diff --git a/Comanche055/IMU_MODE_SWITCHING_ROUTINES.agc b/Comanche055/IMU_MODE_SWITCHING_ROUTINES.agc index c0e5578..ebaf232 100644 --- a/Comanche055/IMU_MODE_SWITCHING_ROUTINES.agc +++ b/Comanche055/IMU_MODE_SWITCHING_ROUTINES.agc @@ -827,7 +827,7 @@ MODESLP TC MAKECADR # CALL FROM SWITCHABLE FIXED ONLY. TS MODECADR TCF JOBSLEEP -MODABORT TC P00DOO # TWO PROGRAMS USING THE SAME DEVICE. +MODABORT TC POODOO # TWO PROGRAMS USING THE SAME DEVICE. OCT 1210 # Page 1442 @@ -844,7 +844,7 @@ IMUFIN20 = IMUFINE GOMANUR CA ATTCADR # IS KALCMANU FREE EXTEND BZF +3 - TC P00DOO # NO + TC POODOO # NO OCT 1210 # 2 TRYING TO USE SAME DEVICE +3 EXTEND @@ -888,7 +888,7 @@ KALEBCON ECADR BCDU # # AT L+2 OF CALLING SEQUENCE # ALARM OR ABORT EXIT MODES -# GOTOP00H, WITH ALARM +# GOTOPOOH, WITH ALARM # ERASABLE INITIALIZATION REQUIRED # # NONE @@ -915,7 +915,7 @@ R02BOTH CAF BIT13 AD OCT220 # SEND REFSMM ALARM TC VARALARM - TC GOTOP00H + TC GOTOPOOH # Page 1444 R02ZERO TC UPFLAG @@ -1063,4 +1063,4 @@ POSTCOM EXTEND # C(MPAC,+1) IS MAGNITUDE OF DELTA SCALER. TC DOWNFLAG # CLEAR NODOFLAG ADRES NODOFLAG - TC GOTOP00H + TC GOTOPOOH diff --git a/Comanche055/INTERPRETER.agc b/Comanche055/INTERPRETER.agc index 8603a68..e03566a 100644 --- a/Comanche055/INTERPRETER.agc +++ b/Comanche055/INTERPRETER.agc @@ -2537,7 +2537,7 @@ ZEROANS CAF ZERO # FORCE ANSWER TO ZERO HERE. TCF SQRTABRT TCF FIXROOT -SQRTABRT TC P00DOO +SQRTABRT TC POODOO OCT 1302 # Page 1185 diff --git a/Comanche055/MAIN.agc b/Comanche055/MAIN.agc new file mode 100644 index 0000000..bad8421 --- /dev/null +++ b/Comanche055/MAIN.agc @@ -0,0 +1,99 @@ +$CONTRACT_AND_APPROVALS.agc # p. 1 +$ASSEMBLY_AND_OPERATION_INFORMATION.agc # pp. 2-26 +$TAGS_FOR_RELATIVE_SETLOC.agc # pp. 27-35 + + # p. 36 contains no code. +# COMERASE +$ERASABLE_ASSIGNMENTS.agc # pp. 37-130 + +# COMAID +$INTERRUPT_LEAD_INS.agc # pp. 131-132 +$T4RUPT_PROGRAM.agc # pp. 133-169 +$DOWNLINK_LISTS.agc # pp. 170-180 +$FRESH_START_AND_RESTART.agc # pp. 181-210 +$RESTART_TABLES.agc # pp. 211-221 +$SXTMARK.agc # pp. 222-235 +$EXTENDED_VERBS.agc # pp. 236-267 +$PINBALL_NOUN_TABLES.agc # pp. 268-284 +$CSM_GEOMETRY.agc # pp. 285-296 +$IMU_COMPENSATION_PACKAGE.agc # pp. 297-306 +$PINBALL_GAME_BUTTONS_AND_LIGHTS.agc # pp. 307-389 +$R60_62.agc # pp. 390-398 +$ANGLFIND.agc # pp. 399-411 +$GIMBAL_LOCK_AVOIDANCE.agc # pp. 412-413 +$KALCMANU_STEERING.agc # pp. 414-419 +$SYSTEM_TEST_STANDARD_LEAD_INS.agc # pp. 420-422 +$IMU_CALIBRATION_AND_ALIGNMENT.agc # pp. 423-455 + +# COMEKISS +$GROUND_TRACKING_DETERMINATION_PROGRAM.agc # pp. 456-459 +$P34-35_P74-75.agc # pp. 460-504 +$R31.agc # pp. 505-510 +$P76.agc # pp. 511-513 +$R30.agc # pp. 514-524 +$STABLE_ORBIT.agc # pp. 525-532 + +# TROUBLE +$P11.agc # pp. 533-550 +$TPI_SEARCH.agc # pp. 551-561 +$P20-P25.agc # pp. 562-634 +$P30-P37.agc # pp. 635-648 +$P32-P33_P72-P73.agc # pp. 649-683 +$P40-P47.agc # pp. 684-736 +$P51-P53.agc # pp. 737-784 +$LUNAR_AND_SOLAR_EPHEMERIDES_SUBROUTINES.agc # pp. 785-788 +$P61-P67.agc # pp. 789-818 +$SERVICER207.agc # pp. 819-836 +$ENTRY_LEXICON.agc # pp. 837-843 +$REENTRY_CONTROL.agc # pp. 844-882 +$CM_BODY_ATTITUDE.agc # pp. 883-889 +$P37_P70.agc # pp. 890-933 +$S-BAND_ANTENNA_FOR_CM.agc # pp. 934-935 +$LUNAR_LANDMARK_SELECTION_FOR_CM.agc # pp. 936 + +# TVCDAPS +$TVCINITIALIZE.agc # pp. 937-944 +$TVCEXECUTIVE.agc # pp. 945-950 +$TVCMASSPROP.agc # pp. 951-955 +$TVCRESTARTS.agc # pp. 956-960 +$TVCDAPS.agc # pp. 961-978 +$TVCSTROKETEST.agc # pp. 979-983 +$TVCROLLDAP.agc # pp. 984-998 +$MYSUBS.agc # pp. 999-1001 +$RCS-CSM_DIGITAL_AUTOPILOT.agc # pp. 1002-1024 +$AUTOMATIC_MANEUVERS.agc # pp. 1025-1036 +$RCS-CSM_DAP_EXECUTIVE_PROGRAMS.agc # pp. 1037-1038 +$JET_SELECTION_LOGIC.agc # pp. 1039-1062 +$CM_ENTRY_DIGITAL_AUTOPILOT.agc # pp. 1063-1092 + +# CHIEFTAN +$DOWN-TELEMETRY_PROGRAM.agc # pp. 1093-1102 +$INTER-BANK_COMMUNICATION.agc # pp. 1103-1106 +$INTERPRETER.agc # pp. 1107-1199 +$FIXED_FIXED_CONSTANT_POOL.agc # pp. 1200-1204 +$INTERPRETIVE_CONSTANTS.agc # pp. 1205-1206 +$SINGLE_PRECISION_SUBROUTINES.agc # p. 1207 +$EXECUTIVE.agc # pp. 1208-1220 +$WAITLIST.agc # pp. 1221-1235 +$LATITUDE_LONGITUDE_SUBROUTINES.agc # pp. 1236-1242 +$PLANETARY_INERTIAL_ORIENTATION.agc # pp. 1243-1251 +$MEASUREMENT_INCORPORATION.agc # pp. 1252-1261 +$CONIC_SUBROUTINES.agc # pp. 1262-1308 +$INTEGRATION_INITIALIZATION.agc # pp. 1309-1333 +$ORBITAL_INTEGRATION.agc # pp. 1334-1354 +$INFLIGHT_ALIGNMENT_ROUTINES.agc # pp. 1355-1364 +$POWERED_FLIGHT_SUBROUTINES.agc # pp. 1365-1372 +$TIME_OF_FREE_FALL.agc # pp. 1373-1388 +$STAR_TABLES.agc # pp. 1389-1393 +$AGC_BLOCK_TWO_SELF-CHECK.agc # pp. 1394-1403 +$PHASE_TABLE_MAINTENANCE.agc # pp. 1404-1413 +$RESTARTS_ROUTINE.agc # pp. 1414-1419 +$IMU_MODE_SWITCHING_ROUTINES.agc # pp. 1420-1448 +$KEYRUPT_UPRUPT.agc # pp. 1449-1451 +$DISPLAY_INTERFACE_ROUTINES.agc # pp. 1452-1484 +$SERVICE_ROUTINES.agc # pp. 1485-1492 +$ALARM_AND_ABORT.agc # pp. 1493-1496 +$UPDATE_PROGRAM.agc # pp. 1497-1507 +$RT8_OP_CODES.agc # pp. 1508-1516 + + # pp. 1517-1751: GAP-generated tables. diff --git a/Comanche055/ORBITAL_INTEGRATION.agc b/Comanche055/ORBITAL_INTEGRATION.agc index 06151e5..4338d8c 100644 --- a/Comanche055/ORBITAL_INTEGRATION.agc +++ b/Comanche055/ORBITAL_INTEGRATION.agc @@ -318,7 +318,7 @@ GOBAQUE VLOAD ABVAL TESTLOOP INT-ABRT EXIT - TC P00DOO + TC POODOO OCT 00430 # Page 1341 diff --git a/Comanche055/P20-P25.agc b/Comanche055/P20-P25.agc index 78c9dd1..ad7f54e 100644 --- a/Comanche055/P20-P25.agc +++ b/Comanche055/P20-P25.agc @@ -209,7 +209,7 @@ PROG22 TC DOWNFLAG # RESET RNDVZFLG BIT 7 FLAG 0 CAF V06N45B TC BANKCALL CADR GOFLASHR - TC GOTOP00H # TERM P22 + TC GOTOPOOH # TERM P22 TC PROG22A # PROC TC -5 # ENTER CAF THREE @@ -299,7 +299,7 @@ P22SUBRB STQ EXIT # GET LAT/LONG/ALT FROM ASTRO CAF V06N89B TC BANKCALL CADR GOFLASH - TC GOTOP00H # TERMINATE + TC GOTOPOOH # TERMINATE TC +2 # PROCEED TC -5 # ENTER OR RECYCLE TC INTPRET @@ -327,7 +327,7 @@ S22N7071 STORE 8KK # 8KK=V05N71,V05N70 8KK+1=0 N71, NOT 0 N70 S22DSPPA CA 8KK # V05N70 OR V05N71 TC BANKCALL CADR GOFLASHR - TC GOTOP00H # V34E TERMINATE + TC GOTOPOOH # V34E TERMINATE TC +5 # V33E PROCEED TC -5 # V32E RECYCLE CAF FIVE # IMMEDIATE RETURN BLANK OUT R1,R3 @@ -451,7 +451,7 @@ R57A TC UPFLAG # SET V59FLAG (BIT 12 FLAG 5 TO INDICATE CAF V59NB TC BANKCALL CADR GOMARKFR - TC GOTOP00H # TERMINATE + TC GOTOPOOH # TERMINATE TC ENDR57 TC ENDR57 CAF SEVEN @@ -462,7 +462,7 @@ R57A TC UPFLAG # SET V59FLAG (BIT 12 FLAG 5 TO INDICATE MARKDISP CAF V06N87NB TC BANKCALL CADR GOMARKFR - TC GOTOP00H # TERMINATE + TC GOTOPOOH # TERMINATE TC R57B # PROCEED TC R57A # ENTER (RECYCLE) CAF FIVE @@ -2197,7 +2197,7 @@ S2INCP1 INCORP1 CAF V06N49EE TC BANKCALL CADR GOFLASHR - TC GOTOP00H # V34E TERMINATE + TC GOTOPOOH # V34E TERMINATE TC +5 # INCORPORATE CHANGES TC S22EXEX # V32E RECYCLE CAF BIT3 @@ -2325,11 +2325,11 @@ S22EXEX TC INTPRET # WITHOUT CONVERTING W GOTO S22RTNEX -S22GTP TC INTPRET # CONVERT W BEFORE TC GOTOP00H +S22GTP TC INTPRET # CONVERT W BEFORE TC GOTOPOOH CALL 9DWTO6DW EXIT - TC GOTOP00H + TC GOTOPOOH S22F2410 SETPD VLOAD # COMPUTE FORMULA 2.4.10 0D CSMPOS # RC B-29 EARTH, B-27 MOON @@ -2828,7 +2828,7 @@ P23.05 CLEAR EXIT P23.06 CAF V05N70 TC BANKCALL # IDENTIFICATION: STAR, HOR IDENT. CADR GOFLASH - TC GOTOP00H # TERMINATE + TC GOTOPOOH # TERMINATE TC P23.15 TC -5 # REDISPLAY P23.15 CA LANDMARK # IF C=2, LUNAFLAG=1. IF C=1, LUNAFLAG=0 @@ -2912,7 +2912,7 @@ P23.31 BON EXIT CAF V50N25P TC BANKCALL CADR GOPERF1 # GOPERF1 BLANKS OUT R2 AND R3 - TC GOTOP00H + TC GOTOPOOH TC V94ENTER # PROCEED. AUTOCONTROL CMC P23.55 TC INTPRET GOTO @@ -2980,7 +2980,7 @@ P23.60 EXIT CAF V05N71 TC BANKCALL CADR GOFLASH - TC GOTOP00H # TERMINATE + TC GOTOPOOH # TERMINATE TC P23.65 # STORE DATA TC -5 # REDISPLAY P23.65 TC INTPRET @@ -3136,9 +3136,9 @@ R23.53 STORE N49DISP R23.6 CAF V6N49 TC BANKCALL CADR GOFLASHR - TC GOTOP00H + TC GOTOPOOH TC R23.7 # INCORPORATE DATA - TC GOTOP00H + TC GOTOPOOH CAF BIT3 # BLAN OUT R3 TC BLANKET TC PHASCHNG @@ -3149,7 +3149,7 @@ R23.8 SET CALL VEHUPFLG INCORP2 EXIT -R23.END TC GOTOP00H +R23.END TC GOTOPOOH # Page 627 R23.10 TC FALTON @@ -3393,7 +3393,7 @@ LDPLANET EXIT # KEEP THIS OPEN SUBROUTINE IN EBANK=5 CAF VNPLAN23 # BECAUSE STAR IS EBANK=5 TC BANKCALL # LDPLANET ALLOWS VECTOR TO PLANET TO BE CADR GOFLASH # STORED IN STARSAV2 IF STORED STARS ARE - TC GOTOP00H # NOT VISIBLE + TC GOTOPOOH # NOT VISIBLE TC +2 TC -5 TC INTPRET @@ -3408,7 +3408,7 @@ VNPLAN23 VN 0688 BLOCK 02 GOTOV56 EXTEND # P20 TERMINATES BY GOTOV56 INSTEAD OF # Page 632 - DCA VB56CADR # GOTOP00H + DCA VB56CADR # GOTOPOOH TCF SUPDXCHZ EBANK= WHOCARES VB56CADR 2CADR TRACKTRM diff --git a/Comanche055/P30-P37.agc b/Comanche055/P30-P37.agc index c984b37..aa4e4a3 100644 --- a/Comanche055/P30-P37.agc +++ b/Comanche055/P30-P37.agc @@ -47,7 +47,7 @@ DISPMGA STQ EXIT # USED IN P30 DISP45 CAF V16N45 TC BANKCALL CADR GOFLASHR - TC GOTOP00H + TC GOTOPOOH TC END45 TC DISP45 P30PHSI TC PHASCHNG @@ -104,7 +104,7 @@ COMPTGO EXTEND # USED TO COMPUTE TTOGO # CALLING SEQUENCE VIA JOB FROM V37 -# EXIT VIA V37 OR GOTOP00H +# EXIT VIA V37 OR GOTOPOOH # OUTPUT FOR POWERED FLIGHT # VTIG X @@ -130,7 +130,7 @@ P30 TC P30/P31 TC UPFLAG # Page 637 ADRES XDELVFLG # SET XDELVFLG BIT 8 FLAG 2 - TCF GOTOP00H + TCF GOTOPOOH P31 TC P30/P31 TC DOWNFLAG @@ -145,7 +145,7 @@ P31 TC P30/P31 TC PARAM30 TC DOWNFLAG ADRES XDELVFLG # BIT 8 FLAG 2 - TCF GOTOP00H + TCF GOTOPOOH P30/P31 XCH Q TS P30/31RT @@ -156,7 +156,7 @@ P30/P31 XCH Q CAF V06N33 # T OF IGN TC BANKCALL CADR GOFLASHR - TCF GOTOP00H + TCF GOTOPOOH TC P30/31RT TCF P30/P31 +4 TC PHASCHNG @@ -168,7 +168,7 @@ CNTNUP30 XCH Q CAF V06N81 TC BANKCALL CADR GOFLASH - TCF GOTOP00H + TCF GOTOPOOH TC P30/RET TCF CNTNUP30 +2 PARAM30 XCH Q @@ -176,7 +176,7 @@ PARAM30 XCH Q CAF V06N42 TC BANKCALL CADR GOFLASH - TC GOTOP00H # ON TERMINATION GOTOP00H + TC GOTOPOOH # ON TERMINATION GOTOPOOH TCF REFTEST # ON PROCEED GO DO REFTEST # Page 638 TCF PARAM30 +2 diff --git a/Comanche055/P32-P33_P72-P73.agc b/Comanche055/P32-P33_P72-P73.agc index 7312f94..6df3257 100644 --- a/Comanche055/P32-P33_P72-P73.agc +++ b/Comanche055/P32-P33_P72-P73.agc @@ -187,7 +187,7 @@ # VARALARM # BANKCALL # GOFLASH -# GOTOP00H +# GOTOPOOH # Page 652 # VNP00H # GOFLASHR @@ -228,7 +228,7 @@ ALMXIT LXC,1 CAF V05N09 TC BANKCALL CADR GOFLASH - TC GOTOP00H + TC GOTOPOOH TC -4 P32/P72A TC P20FLGON TC INTPRET @@ -242,7 +242,7 @@ P32/P72A TC P20FLGON # Page 653 TC BANKCALL CADR GOFLASH - TC GOTOP00H + TC GOTOPOOH TC +2 TC -5 CAF V06N37 # TTPI @@ -464,7 +464,7 @@ P32/P72F STORE T2TOT3 # ALARM # BANKCALL # GOFLASH -# GOTOP00H +# GOTOPOOH # S32/33.1 # Page 658 # VN1645 @@ -516,7 +516,7 @@ P33/P73B CALL CAF V05N09 TC BANKCALL CADR GOFLASH - TC GOTOP00H + TC GOTOPOOH # Page 659 TC +2 TC P33/P73A diff --git a/Comanche055/P34-35_P74-75.agc b/Comanche055/P34-35_P74-75.agc index e492879..8fc64c1 100644 --- a/Comanche055/P34-35_P74-75.agc +++ b/Comanche055/P34-35_P74-75.agc @@ -167,7 +167,7 @@ # ALARM # BANKCALL # GOFLASH -# GOTOP00H +# GOTOPOOH # TIMETHET # S34/35.2 # PERIAPO1 @@ -226,7 +226,7 @@ INTLOOP DLOAD DAD CAF V05N09 TC BANKCALL CADR GOFLASH - TC GOTOP00H + TC GOTOPOOH TC P34/P74A # PROCEED TC -7 # V32 @@ -818,7 +818,7 @@ ALLSET STOVL TET # SUBROUTINES USED # BANKCALL # GOFLASH -# GOTOP00H +# GOTOPOOH # S34/35.3 # S34.35.4 # VNP00H @@ -867,7 +867,7 @@ FLAGOFF CALL # DELAYJOB # COMPTGO # GOFLASHR -# GOTOP00H +# GOTOPOOH # FLAGUP VN1645 STQ DLOAD @@ -908,7 +908,7 @@ GET45 EXIT KILCLOCK CA Z TS DISPDEX # Page 482 - TC GOTOP00H + TC GOTOPOOH N45PROC CS FLAGWRD2 MASK BIT6 EXTEND @@ -932,7 +932,7 @@ CLUPDATE CA Z # SUBROUTINES USED # BANKCALL # GOFLASHR -# GOTOP00H +# GOTOPOOH # BLANKET # ENDOFJOB @@ -941,7 +941,7 @@ DISPLAYE EXTEND CAF V06N55 TCR BANKCALL CADR GOFLASH - TCF GOTOP00H + TCF GOTOPOOH TC NORMEX TCF -5 @@ -960,7 +960,7 @@ P3XORP7X CAF HIGH9 # SUBROUTINES USED # BANKCALL # GOFLASH -# GOTOP00H +# GOTOPOOH SETLOC P30SUBS BANK @@ -975,7 +975,7 @@ VNP00H EXTEND CA VERBNOUN TCR BANKCALL CADR GOFLASH - TCF GOTOP00H + TCF GOTOPOOH TCF +2 VNBANK TC -5 diff --git a/Comanche055/P37_P70.agc b/Comanche055/P37_P70.agc index 7b5dc28..20ba1ce 100644 --- a/Comanche055/P37_P70.agc +++ b/Comanche055/P37_P70.agc @@ -10,7 +10,7 @@ # Mod history: 2009-05-11 JVL Adapted from the Colossus249/ file # of the same name, using Comanche055 page # images. -# 2009-05-20 RSB Added missing label V2T179. Fixed POODOO -> P00DOO. +# 2009-05-20 RSB Added missing label V2T179. Fixed POODOO -> POODOO. # 2009-05-23 RSB In RTD18, corrected a STOVL DELVLVC to # STODL DELVLVC and a STODL 02D to STORE 02D. # @@ -471,7 +471,7 @@ P370GOFR EXTEND QXCH RTENCKEX TCR BANKCALL CADR GOFLASHR - TCF GOTOP00H # TERMINATE + TCF GOTOPOOH # TERMINATE TCF +3 TCF +4 TC RTENCKEX # IMMEDIATE RETURN @@ -487,7 +487,7 @@ P370GOF EXTEND QXCH SPRTEX TCR BANKCALL CADR GOFLASH - TCF GOTOP00H + TCF GOTOPOOH TCF +2 TC SPRTEX P37PROC INDEX SPRTEX @@ -513,7 +513,7 @@ P370ALRM STQ EXIT CAF V5N09RTE TC BANKCALL CADR GOFLASH - TCF GOTOP00H + TCF GOTOPOOH TCF -4 TC INTPRET GOTO @@ -1302,7 +1302,7 @@ V2T100 STQ DLOAD BMN V2T101 V2TERROR EXIT # OR IF LAMBDA LESS THAN ONE - TC P00DOO # NO SOLUTION IF LAMBDA LESS THAN 1 + TC POODOO # NO SOLUTION IF LAMBDA LESS THAN 1 OCT 00610 V2T101 SETPD CLEAR 0 # PL00D diff --git a/Comanche055/P40-P47.agc b/Comanche055/P40-P47.agc index 9c0206c..828982a 100644 --- a/Comanche055/P40-P47.agc +++ b/Comanche055/P40-P47.agc @@ -202,7 +202,7 @@ TIGNOW TC PHASCHNG POST41 EXTEND DCA SERVCADR DXCH AVEGEXIT - TCF GOTOP00H + TCF GOTOPOOH MINDB DEC 46 MAXDB DEC 455 @@ -443,8 +443,8 @@ P47BOD CAF PRIO15 # LOWER PRIO THAN CALCN83 (20) P47/DSP CAF V1683 TC BANKCALL CADR GOFLASH - TC GOTOP00H - TC GOTOP00H + TC GOTOPOOH + TC GOTOPOOH TCF P47BODY # RECYCLE -- CLEAR ACCUMULATED VELOCITY # Page 693 @@ -979,7 +979,7 @@ V99T TC 2PHSCHNG # (ENTRY FROM V97T FLOW TOO) OCT 05024 # C, PRIORITY NEXT, JOB BELOW OCT 27000 V99TJOB TCR TVCZAP -1 # WIPE OUT TVC, CLOKTASK - TCF POST41 # AVEGEXIT, SETMAXDB, GOTOP00H + TCF POST41 # AVEGEXIT, SETMAXDB, GOTOPOOH V99P INHINT CAE FLAGWRD7 # CHECK ASTN FLAG FOR PRIOR V99P @@ -1033,7 +1033,7 @@ V97TTASK CAF ZERO # DISABLE CLOCKJOB V97TRCS TC IBNKCALL # RCS DAP IN 0.6SEC, SETTING T5 BITS TO CADR RCSDAPON # KILL TVCEXEC/TVCROLLDAP STARTS CAF PRIO27 # SET UP V99T FOR TVCZAP AND POST41 (SET- - TC NOVAC # MAXDB AND GOTOP00H) + TC NOVAC # MAXDB AND GOTOPOOH) EBANK= DAPDATR1 # EBANK6 FOR SETMAXDB IN POST41 2CADR V99T diff --git a/Comanche055/P51-P53.agc b/Comanche055/P51-P53.agc index c750d21..277cca8 100644 --- a/Comanche055/P51-P53.agc +++ b/Comanche055/P51-P53.agc @@ -158,7 +158,7 @@ P52A CAF BIT1 P52B CAF BIT1 TC BANKCALL # FLASH OPTION CODE AND ORIENTATION CODE CADR GOPERF4R - TC GOTOP00H + TC GOTOPOOH TC +5 TC P52B # NEW CODE -- NEW ORIENTATION CODE INPUT TC PHASCHNG @@ -178,7 +178,7 @@ P52T EXTEND CAF V06N34 TC BANKCALL CADR GOFLASH - TC GOTOP00H + TC GOTOPOOH TC +2 TC -5 EXTEND @@ -211,7 +211,7 @@ P52D CALL # READ VEHICLE ATTITUDE AND CAF VB06N22 TC BANKCALL # DISPLAY GIMBAL ANGLES CADR GOFLASH - TC GOTOP00H + TC GOTOPOOH TC COARSTYP P52J TC INTPRET # RECYCLE: VEHICLE HAS BEEN MANEUVERED GOTO @@ -226,7 +226,7 @@ P52C TC PHASCHNG CAF ALRM15 TC BANKCALL CADR GOPERF1 - TC GOTOP00H + TC GOTOPOOH TC +2 # V33 TC P52F # E TC INTPRET @@ -243,14 +243,14 @@ P52F TC INTPRET # 2 STARS AVAILABLE CALL R51 ENDP50S EXIT - TC GOTOP00H + TC GOTOPOOH # Page 741 P52I TC ALARM OCT 405 CAF V05N09 TC BANKCALL CADR GOFLASH - TC GOTOP00H + TC GOTOPOOH TC P52F # PROCEED: DO FINE ALIGN-R51 TC P52C # RECYCLE: VEHICLE HAS BEEN MANEUVERED V06N34 VN 0634 @@ -258,7 +258,7 @@ VB06N22 VN 00622 COARSTYP CAF OCT13 TC BANKCALL CADR GOPERF1 - TCF GOTOP00H # V34 + TCF GOTOPOOH # V34 TCF P52J +3 # NORMAL TC INTPRET # GYRO COARSE GYCRS VLOAD MXV @@ -366,7 +366,7 @@ P52LS STQ SET LSDISP CAF V06N89* TC BANKCALL CADR GOFLASH - TC GOTOP00H + TC GOTOPOOH TC +2 TC LSDISP TC INTPRET @@ -564,7 +564,7 @@ TERM52 TC CLEARMRK TC BANKCALL # CLEAR OUT EXTENDED VERBS CADR KLEENEX - TC GOTOP00H # NO GO TO P00 + TC GOTOPOOH # NO GO TO P00 ADVORB STQ SET # SETS UP ADVANCED ORBIT TRACKING SAVQR52 @@ -941,7 +941,7 @@ R51.3 CLEAR CLEAR R51DSP CAF V01N70 TC BANKCALL CADR GOFLASHR - TC GOTOP00H + TC GOTOPOOH TC +5 TC -5 CAF SIX @@ -1009,7 +1009,7 @@ R51K EXIT CAF OCT14 TC BANKCALL CADR GOPERF1 - TC GOTOP00H + TC GOTOPOOH TC +2 # V33 TC +3 TC BANKCALL @@ -1057,7 +1057,7 @@ PULSEM EXIT R55.1 CAF V06N93 TC BANKCALL CADR GOFLASH - TC GOTOP00H + TC GOTOPOOH TC R55.2 TC R55RET R55.2 TC PHASCHNG @@ -1148,7 +1148,7 @@ CHKSD DLOAD DSU # Page 761 TC BANKCALL CADR GOFLASH - TCF GOTOP00H + TCF GOTOPOOH TC CHKSDA # PROCEED TC INTPRET CLEAR GOTO @@ -1452,14 +1452,14 @@ P51 CS IMODES30 TC P51A TC ALARM OCT 210 - TC GOTOP00H + TC GOTOPOOH P51A TC BANKCALL CADR R02ZERO P51AA CAF PRFMSTAQ TC BANKCALL CADR GOPERF1 - TC GOTOP00H # TERM. + TC GOTOPOOH # TERM. TC P51B # V33 TC PHASCHNG OCT 05024 @@ -1707,7 +1707,7 @@ R53C1 CAF ZERO R53C CAF V01N71 TC BANKCALL CADR GOFLASH - TC GOTOP00H # TERM. + TC GOTOPOOH # TERM. TCF R53Z TC R53C # RECYCLE R53Z TC CHKSCODE @@ -2090,7 +2090,7 @@ R56 STQ EXIT CAF V06N94B TC BANKCALL CADR GOFLASH - TC GOTOP00H # TERM. + TC GOTOPOOH # TERM. TC R56A # PROCEED: ANGLES OK TC -5 # ENTER: NEW ANGLES R56A TC BANKCALL @@ -2104,7 +2104,7 @@ R56A1 CAF VB53 # DISPLAY V53 REQUESTING ALTERNATE MARK TC BANKCALL # Page 782 CADR GOMARK2 - TCF GOTOP00H # V34: TERMINATE + TCF GOTOPOOH # V34: TERMINATE TCF R56A1 # V33: DON'T PROCEED -- JUST ENTER TO MARK TC INTPRET DLOAD @@ -2138,7 +2138,7 @@ R56A1 CAF VB53 # DISPLAY V53 REQUESTING ALTERNATE MARK CAF OCT16 TC BANKCALL CADR GOPERF1 - TC GOTOP00H # TERM. + TC GOTOPOOH # TERM. TCF R56B # PROCEED: MARK COMPLETED TCF R56A +2 # RECYCLE: DO ANOTHER MARK -- LIKE REJECT. R56B TC BANKCALL @@ -2173,7 +2173,7 @@ NOSAM EXIT CAF VNPLANV TC BANKCALL CADR GOFLASH - TC GOTOP00H + TC GOTOPOOH TC +2 TC -5 TC INTPRET diff --git a/Comanche055/P61-P67.agc b/Comanche055/P61-P67.agc index 686fbc6..0220679 100644 --- a/Comanche055/P61-P67.agc +++ b/Comanche055/P61-P67.agc @@ -81,7 +81,7 @@ P61 CA BIT14 # EXTENDED VERB SHOULD BE FREE THIS CLOSE # XXX.XX DEG XXX.XX DEG XXXXX. TC BANKCALL CADR GOFLASHR - TC GOTOP00H + TC GOTOPOOH # Page 790 TC P61.4 TC -5 @@ -125,7 +125,7 @@ P61.1 TC CLEARMRK TC BANKCALL CADR GOFLASH - TC GOTOP00H + TC GOTOPOOH TC P61.2 # PROCEED TC -5 @@ -145,7 +145,7 @@ P61.2 TC INTPRET # CORRECT TTE FOR TIME LAPSE DURING # XXXX.X NM XXXXX. FPS XXBXX M,S TC BANKCALL CADR GOFLASH - TC GOTOP00H + TC GOTOPOOH TC +2 TC P61.2 # REDO @@ -198,7 +198,7 @@ P62.2 EXTEND CAF OCT41 # REQUEST SEPARATION TC BANKCALL CADR GOPERF1R - TC GOTOP00H + TC GOTOPOOH TC +3 # PROCEED # Page 793 # NOTE: NODOFLAG WILL BE SET IN CM/DAPON. *** @@ -478,7 +478,7 @@ P67.1 CA V16N67 # RTOGO LAT LONG # XXXX.X NM XXX.XX DEG XXX.XX DEG TC BANKCALL CADR GOFLASH - TC +3 # EFFECTIVE GOTOP00H + TC +3 # EFFECTIVE GOTOPOOH TC +2 TC P67.1 # REDO @@ -493,7 +493,7 @@ P67.1 CA V16N67 # RTOGO LAT LONG # Page 801 DXCH AVEGEXIT - TCF GOTOP00H + TCF GOTOPOOH # Page 802 P67.2 VLOAD CLEAR # CALC PRESENT LAT, LONG, ALT. diff --git a/Comanche055/P76.agc b/Comanche055/P76.agc index 775e0f7..e762ffe 100644 --- a/Comanche055/P76.agc +++ b/Comanche055/P76.agc @@ -148,7 +148,7 @@ ENDP76 CAF ZERO CAF NEGONE TS MRKBUF2 # INVALIDATE MARK BUFFER - TCF GOTOP00H + TCF GOTOPOOH V06N84 NV 0684 NV 0633 diff --git a/Comanche055/PINBALL_GAME_BUTTONS_AND_LIGHTS.agc b/Comanche055/PINBALL_GAME_BUTTONS_AND_LIGHTS.agc index b58d60f..fd73b11 100644 --- a/Comanche055/PINBALL_GAME_BUTTONS_AND_LIGHTS.agc +++ b/Comanche055/PINBALL_GAME_BUTTONS_AND_LIGHTS.agc @@ -2716,7 +2716,7 @@ DSPALARM CS NVSBENDL TC PASTEVB # PUT MONITOR VERB BACK IN VERBREG CHARALRM TC FALTON # NOT NVSUB INITATED TURN ON OPR ERROR TC ENDOFJOB - TC P00DOO + TC POODOO OCT 01501 MONADR GENADR PASTEVB NVSBENDL TC NVSUBEND @@ -3141,7 +3141,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. diff --git a/Comanche055/R60_62.agc b/Comanche055/R60_62.agc index 30d3236..a0c19d1 100644 --- a/Comanche055/R60_62.agc +++ b/Comanche055/R60_62.agc @@ -145,7 +145,7 @@ R61TEST CA MODREG # ARE WE IN P00. IF YES THIS MUST BE CA FLAGWRD4 # ARE WE IN R61 (P20) MASK BIT12 EXTEND - BZF GOTOP00H # NO + BZF GOTOPOOH # NO TC GOTOV56 # YES BIT14+7 OCT 20100 diff --git a/Comanche055/STABLE_ORBIT.agc b/Comanche055/STABLE_ORBIT.agc index d1642b4..b76030e 100644 --- a/Comanche055/STABLE_ORBIT.agc +++ b/Comanche055/STABLE_ORBIT.agc @@ -95,7 +95,7 @@ # VNDSPLY # BANKCALL # GOFLASHR -# GOTOP00H +# GOTOPOOH # BLANKET # ENDOFJOB # PREC/TT @@ -119,7 +119,7 @@ P78 TC AVFLAGP # OTHER VEHICLE ACTIVE 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 @@ -133,7 +133,7 @@ P78 TC AVFLAGP # OTHER VEHICLE ACTIVE 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 @@ -166,7 +166,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 @@ -217,7 +217,7 @@ JUNCTN2 DLOAD DSU # VNDSPLY # BANKCALL # GOFLASH -# GOTOP00H +# GOTOPOOH # VN1645 MAINRTNE STCALL TDEC1 # PRECISION UPDATE PASSIVE VEHICLE TO @@ -400,7 +400,7 @@ OTHERV CALL # # BANKCALL # GOFLASH -# GOTOP00H +# GOTOPOOH VNDSPLY EXTEND # FLASH DISPLAY QXCH RTRN @@ -408,7 +408,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 diff --git a/Comanche055/SXTMARK.agc b/Comanche055/SXTMARK.agc index 1029753..e1aa34d 100644 --- a/Comanche055/SXTMARK.agc +++ b/Comanche055/SXTMARK.agc @@ -498,7 +498,7 @@ REJECT3 CAF LOW9 # DECREMENT POINTER TO REJECT MARK # CALLING SEQUENCE AS JOB WITHIN SXTMARK -# EXIT TO ENDMARK UPON RECEIPT OF V33, V34 CAUSES GOTOP00H, ENTER +# EXIT TO ENDMARK UPON RECEIPT OF V33, V34 CAUSES GOTOPOOH, ENTER # RECYCLES THE DISPLAY # NOTE- SXTMARK AUTOMATICALLY CHANGES FROM CALLING MKVB51 TO MKVB50 WHEN diff --git a/Comanche055/TPI_SEARCH.agc b/Comanche055/TPI_SEARCH.agc index 6cd84bb..d9ba115 100644 --- a/Comanche055/TPI_SEARCH.agc +++ b/Comanche055/TPI_SEARCH.agc @@ -520,8 +520,8 @@ P17.3 CAF V06N58 # DISPLAY DELTA VTPI , DELTA VTPF , AND H CAF V06N55 # DISPLAY PERICENTER CODE AND CENTRAL ANG. TC BANKCALL CADR GOFLASHR - TC GOTOP00H # TERMINATE PROGRAM - TC GOTOP00H # END PROGRAM + TC GOTOPOOH # TERMINATE PROGRAM + TC GOTOPOOH # END PROGRAM TC P17.1 # RECYCLE WITH NEW TTPI OR SEARCH OPTION CAF TWO # BLANK R2 TC BLANKET @@ -548,5 +548,5 @@ ALARUMS SET EXIT OCT 00124 # NO SAFE PERICENTER IN THIS SECTOR CAF V05N09 TC VNCOMP17 - TC GOTOP00H # PROCEED ILLEGAL TERMINATE PROGRAM + TC GOTOPOOH # PROCEED ILLEGAL TERMINATE PROGRAM V06N72 VN 0672 diff --git a/Comanche055/WAITLIST.agc b/Comanche055/WAITLIST.agc index 8a73bce..3c86922 100644 --- a/Comanche055/WAITLIST.agc +++ b/Comanche055/WAITLIST.agc @@ -148,7 +148,7 @@ DLY2 CAF WAITBB # ENTRY FROM FIXDELAY AND VARDELAY. XCH BBANK TCF WAIT2 -WATLST0- TC P00DOO +WATLST0- TC POODOO OCT 1204 # WAITLIST CALL WITH ZERO OR NEG DT # RETURN TO CALLER AFTER TASK INSERTION: