Fix YaYUL Fatal Errors in Comanche055 (#664)

This commit is contained in:
James Harris 2020-03-04 17:17:07 +00:00 committed by GitHub
parent ded312a948
commit 8b2fca34e6
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
25 changed files with 211 additions and 112 deletions

View File

@ -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

View File

@ -798,7 +798,7 @@ IFLEGAL CAF TWO
EXTEND
BZF OKTOPLAY # NO
PRIOBORT TC P00DOO
PRIOBORT TC POODOO
OCT 1502
# Page 1471

View File

@ -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.

View File

@ -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

View File

@ -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

View File

@ -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

View File

@ -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

View File

@ -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

99
Comanche055/MAIN.agc Normal file
View File

@ -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.

View File

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

View File

@ -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

View File

@ -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

View File

@ -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

View File

@ -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

View File

@ -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

View File

@ -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

View File

@ -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

View File

@ -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.

View File

@ -148,7 +148,7 @@ ENDP76 CAF ZERO
CAF NEGONE
TS MRKBUF2 # INVALIDATE MARK BUFFER
TCF GOTOP00H
TCF GOTOPOOH
V06N84 NV 0684
NV 0633

View File

@ -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.

View File

@ -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

View File

@ -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

View File

@ -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

View File

@ -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

View File

@ -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: