Fix YaYUL Fatal Errors in Comanche055 (#664)
This commit is contained in:
parent
ded312a948
commit
8b2fca34e6
@ -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
|
||||
|
@ -798,7 +798,7 @@ IFLEGAL CAF TWO
|
||||
EXTEND
|
||||
BZF OKTOPLAY # NO
|
||||
|
||||
PRIOBORT TC P00DOO
|
||||
PRIOBORT TC POODOO
|
||||
OCT 1502
|
||||
# Page 1471
|
||||
|
||||
|
@ -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.
|
||||
|
@ -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
|
||||
|
@ -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
|
||||
|
@ -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
|
||||
|
@ -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
|
||||
|
@ -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
99
Comanche055/MAIN.agc
Normal 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.
|
@ -318,7 +318,7 @@ GOBAQUE VLOAD ABVAL
|
||||
TESTLOOP
|
||||
|
||||
INT-ABRT EXIT
|
||||
TC P00DOO
|
||||
TC POODOO
|
||||
OCT 00430
|
||||
|
||||
# Page 1341
|
||||
|
@ -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
|
||||
|
@ -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
|
||||
|
@ -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
|
||||
|
@ -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
|
||||
|
||||
|
@ -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
|
||||
|
@ -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
|
||||
|
||||
|
@ -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
|
||||
|
@ -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.
|
||||
|
@ -148,7 +148,7 @@ ENDP76 CAF ZERO
|
||||
CAF NEGONE
|
||||
TS MRKBUF2 # INVALIDATE MARK BUFFER
|
||||
|
||||
TCF GOTOP00H
|
||||
TCF GOTOPOOH
|
||||
|
||||
V06N84 NV 0684
|
||||
NV 0633
|
||||
|
@ -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.
|
||||
|
@ -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
|
||||
|
@ -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
|
||||
|
@ -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
|
||||
|
@ -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
|
||||
|
@ -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:
|
||||
|
Loading…
Reference in New Issue
Block a user