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

Fix YaYUL Fatal Errors in Comanche055 (#664)

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Comanche055/CONIC_SUBROUTINES.agc
View File

@ -337,7 +337,7 @@
# L+6 ... # CONTINUE. # L+6 ... # CONTINUE.
# #
# ABORT EXIT MODES -- # 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). # AN ALARM CODE (ORIGINALLY 00607), AND NOT RETURN TO THE CALLING PROGRAM. (PCR 692 AND 721).
# #
# OUTPUT -- # OUTPUT --
@ -448,7 +448,7 @@
# #
# ABORT EXIT MODES -- # ABORT EXIT MODES --
# IF SOLNSW AND/OR COGAFLAG AND/OR INFINFLG IS SET AT THE EXIT TO TIME-RADIUS, TIME-RADIUS WILL TRANSFER # 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 -- # OUTPUT --
# SCALE FACTOR # SCALE FACTOR
@ -1749,7 +1749,7 @@ INFINAPO DLOAD GOTO # RETURNS WITH APOAPSIS IN MPAC, PERIAPSIS
# Page 1304 # Page 1304
ABTCONIC EXIT ABTCONIC EXIT
TC P00DOO TC POODOO
OCT 00607 OCT 00607
# Page 1305 # Page 1305

2
Comanche055/DISPLAY_INTERFACE_ROUTINES.agc
View File

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

6
Comanche055/EXTENDED_VERBS.agc
View File

@ -467,7 +467,7 @@ SYSTEST TC CHKP00H
MASK NOP01BIT MASK NOP01BIT
EXTEND EXTEND
BZF V92CONT # IF IT'S NOT YET SET, CONTINUE 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 OCT 1521
V92CONT TC EXDAPOFF # TURN DAP OFF IF IT'S ON V92CONT TC EXDAPOFF # TURN DAP OFF IF IT'S ON
CAF PRIO20 CAF PRIO20
@ -667,7 +667,7 @@ STABLISH CAF EBANK6 # V46 - SET EBANK TO E6
# 4 FOR RESTART OF DISPLAY SEQUENCE. # 4 FOR RESTART OF DISPLAY SEQUENCE.
# RESPONSES # RESPONSES
# A. TERMINATE # A. TERMINATE
# 1. GO TO GOTOP00H. # 1. GO TO GOTOPOOH.
# B. PROCEED # B. PROCEED
# 1. SET 3AXISFLG TO INDICATE MANEUVER IS SPECIFIED BY 3 AXIS. # 1. SET 3AXISFLG TO INDICATE MANEUVER IS SPECIFIED BY 3 AXIS.
# 2. EXECUTE R60CSM (ATTITUDE MANEUVER). # 2. EXECUTE R60CSM (ATTITUDE MANEUVER).
@ -907,7 +907,7 @@ V86PERF CAF EBANK7 # BACKUP MARK REJECT (R23)
# TRACKTRM VERB 56 DESCRIPTION # TRACKTRM VERB 56 DESCRIPTION
# TERMINATE TRACKING (P20) # TERMINATE TRACKING (P20)
# 1. KNOCK DOWN RENDEZVOUS, TRACK, AND UPDATE FLAGS. # 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. # 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. # 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. # 3. KNOCK DOWN RENDEZFOUS, R22, R21, TRACK, UPDATE, AND TARG1 FLAGS.

8
Comanche055/FRESH_START_AND_RESTART.agc
View File

@ -462,7 +462,7 @@ PINACT CCS MPAC +5 # PROCESS ALL RESTART GROUPS.
CAF BIT15 # IS MODE -0 CAF BIT15 # IS MODE -0
MASK MODREG MASK MODREG
EXTEND EXTEND
BZF GOTOP00H # NO BZF GOTOPOOH # NO
TCF ENDRSTRT # YES TCF ENDRSTRT # YES
PTBAD TC ALARM # SET ALARM TO SHOW PHASE TABLE FAILURE. PTBAD TC ALARM # SET ALARM TO SHOW PHASE TABLE FAILURE.
OCT 1107 OCT 1107
@ -677,7 +677,7 @@ SWINIT OCT 0
OCT 0 OCT 0
OCT 0 OCT 0
# Page 194 # Page 194
# PROGRAM NAME GOTOP00H ASSEMBLY SUNDISK # PROGRAM NAME GOTOPOOH ASSEMBLY SUNDISK
# LOG SECTION FRESH START AND RESTART # LOG SECTION FRESH START AND RESTART
# FUNCTIONAL DESCRIPTION # FUNCTIONAL DESCRIPTION
@ -688,7 +688,7 @@ SWINIT OCT 0
# INPUT/OUTPUT INFORMATION # INPUT/OUTPUT INFORMATION
# A. CALLING SEQUENCE TC GOTOP00H # A. CALLING SEQUENCE TC GOTOPOOH
# B. ERASABLE INITIALIZATION NONE # B. ERASABLE INITIALIZATION NONE
@ -710,7 +710,7 @@ SWINIT OCT 0
COUNT 02/P00 COUNT 02/P00
GOTOP00H TC PHASCHNG # RESTART GOTOP00H GOTOPOOH TC PHASCHNG # RESTART GOTOPOOH
OCT 14 OCT 14
TC POSTJUMP TC POSTJUMP

8
Comanche055/GROUND_TRACKING_DETERMINATION_PROGRAM.agc
View File

@ -98,13 +98,13 @@ PROG21 CAF ONE
CAF BIT2 # OPTION 2 CAF BIT2 # OPTION 2
TC BANKCALL TC BANKCALL
CADR GOPERF4 CADR GOPERF4
TC GOTOP00H # TERMINATE TC GOTOPOOH # TERMINATE
TC +2 # PROCEED VALUE OF ASSUMED VEHICLE OK TC +2 # PROCEED VALUE OF ASSUMED VEHICLE OK
TC -5 # R2 LOADED THROUGH DSKY TC -5 # R2 LOADED THROUGH DSKY
P21PROG1 CAF V6N34 # LOAD DESIRED TIME OF LAT-LONG. P21PROG1 CAF V6N34 # LOAD DESIRED TIME OF LAT-LONG.
TC BANKCALL TC BANKCALL
CADR GOFLASH CADR GOFLASH
TC GOTOP00H # TERM TC GOTOPOOH # TERM
TC +2 # PROCEED VALUES OK TC +2 # PROCEED VALUES OK
TC -5 # TIME LOADED THROUGH DSKY TC -5 # TIME LOADED THROUGH DSKY
TC INTPRET TC INTPRET
@ -186,8 +186,8 @@ P21DSP CLEAR SLOAD # GENERATE DISPLAY DATA
CAF V06N43 # DISPLAY LAT,LONG,ALT CAF V06N43 # DISPLAY LAT,LONG,ALT
TC BANKCALL # LAT,LONG = REVS B0 BOTH EARTH/MOON TC BANKCALL # LAT,LONG = REVS B0 BOTH EARTH/MOON
CADR GOFLASH # ALT = METERS B-29 BOTH EARTH/MOON CADR GOFLASH # ALT = METERS B-29 BOTH EARTH/MOON
TC GOTOP00H # TERM TC GOTOPOOH # TERM
TC GOTOP00H TC GOTOPOOH
TC INTPRET # V32E RECYCLE TC INTPRET # V32E RECYCLE
DLOAD DAD DLOAD DAD
P21TIME P21TIME

2
Comanche055/IMU_CALIBRATION_AND_ALIGNMENT.agc
View File

@ -871,7 +871,7 @@ GTSCPSS CA FLAGWRD1 # CALLED BY V37
# Page 443 # Page 443
EXTEND EXTEND
BZF GTSCPSSA BZF GTSCPSSA
TC P00DOO TC POODOO
OCT 1521 # NODO ALARM FOR P01 - P11 ALREADY DONE OCT 1521 # NODO ALARM FOR P01 - P11 ALREADY DONE
GTSCPSSA CAF ONE GTSCPSSA CAF ONE

10
Comanche055/IMU_MODE_SWITCHING_ROUTINES.agc
View File

@ -827,7 +827,7 @@ MODESLP TC MAKECADR # CALL FROM SWITCHABLE FIXED ONLY.
TS MODECADR TS MODECADR
TCF JOBSLEEP TCF JOBSLEEP
MODABORT TC P00DOO # TWO PROGRAMS USING THE SAME DEVICE. MODABORT TC POODOO # TWO PROGRAMS USING THE SAME DEVICE.
OCT 1210 OCT 1210
# Page 1442 # Page 1442
@ -844,7 +844,7 @@ IMUFIN20 = IMUFINE
GOMANUR CA ATTCADR # IS KALCMANU FREE GOMANUR CA ATTCADR # IS KALCMANU FREE
EXTEND EXTEND
BZF +3 BZF +3
TC P00DOO # NO TC POODOO # NO
OCT 1210 # 2 TRYING TO USE SAME DEVICE OCT 1210 # 2 TRYING TO USE SAME DEVICE
+3 EXTEND +3 EXTEND
@ -888,7 +888,7 @@ KALEBCON ECADR BCDU
# #
# AT L+2 OF CALLING SEQUENCE # AT L+2 OF CALLING SEQUENCE
# ALARM OR ABORT EXIT MODES # ALARM OR ABORT EXIT MODES
# GOTOP00H, WITH ALARM # GOTOPOOH, WITH ALARM
# ERASABLE INITIALIZATION REQUIRED # ERASABLE INITIALIZATION REQUIRED
# #
# NONE # NONE
@ -915,7 +915,7 @@ R02BOTH CAF BIT13
AD OCT220 # SEND REFSMM ALARM AD OCT220 # SEND REFSMM ALARM
TC VARALARM TC VARALARM
TC GOTOP00H TC GOTOPOOH
# Page 1444 # Page 1444
R02ZERO TC UPFLAG R02ZERO TC UPFLAG
@ -1063,4 +1063,4 @@ POSTCOM EXTEND # C(MPAC,+1) IS MAGNITUDE OF DELTA SCALER.
TC DOWNFLAG # CLEAR NODOFLAG TC DOWNFLAG # CLEAR NODOFLAG
ADRES NODOFLAG ADRES NODOFLAG
TC GOTOP00H TC GOTOPOOH

2
Comanche055/INTERPRETER.agc
View File

@ -2537,7 +2537,7 @@ ZEROANS CAF ZERO # FORCE ANSWER TO ZERO HERE.
TCF SQRTABRT TCF SQRTABRT
TCF FIXROOT TCF FIXROOT
SQRTABRT TC P00DOO SQRTABRT TC POODOO
OCT 1302 OCT 1302
# Page 1185 # 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.

2
Comanche055/ORBITAL_INTEGRATION.agc
View File

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

32
Comanche055/P20-P25.agc
View File

@ -209,7 +209,7 @@ PROG22 TC DOWNFLAG # RESET RNDVZFLG BIT 7 FLAG 0
CAF V06N45B CAF V06N45B
TC BANKCALL TC BANKCALL
CADR GOFLASHR CADR GOFLASHR
TC GOTOP00H # TERM P22 TC GOTOPOOH # TERM P22
TC PROG22A # PROC TC PROG22A # PROC
TC -5 # ENTER TC -5 # ENTER
CAF THREE CAF THREE
@ -299,7 +299,7 @@ P22SUBRB STQ EXIT # GET LAT/LONG/ALT FROM ASTRO
CAF V06N89B CAF V06N89B
TC BANKCALL TC BANKCALL
CADR GOFLASH CADR GOFLASH
TC GOTOP00H # TERMINATE TC GOTOPOOH # TERMINATE
TC +2 # PROCEED TC +2 # PROCEED
TC -5 # ENTER OR RECYCLE TC -5 # ENTER OR RECYCLE
TC INTPRET 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 S22DSPPA CA 8KK # V05N70 OR V05N71
TC BANKCALL TC BANKCALL
CADR GOFLASHR CADR GOFLASHR
TC GOTOP00H # V34E TERMINATE TC GOTOPOOH # V34E TERMINATE
TC +5 # V33E PROCEED TC +5 # V33E PROCEED
TC -5 # V32E RECYCLE TC -5 # V32E RECYCLE
CAF FIVE # IMMEDIATE RETURN BLANK OUT R1,R3 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 CAF V59NB
TC BANKCALL TC BANKCALL
CADR GOMARKFR CADR GOMARKFR
TC GOTOP00H # TERMINATE TC GOTOPOOH # TERMINATE
TC ENDR57 TC ENDR57
TC ENDR57 TC ENDR57
CAF SEVEN CAF SEVEN
@ -462,7 +462,7 @@ R57A TC UPFLAG # SET V59FLAG (BIT 12 FLAG 5 TO INDICATE
MARKDISP CAF V06N87NB MARKDISP CAF V06N87NB
TC BANKCALL TC BANKCALL
CADR GOMARKFR CADR GOMARKFR
TC GOTOP00H # TERMINATE TC GOTOPOOH # TERMINATE
TC R57B # PROCEED TC R57B # PROCEED
TC R57A # ENTER (RECYCLE) TC R57A # ENTER (RECYCLE)
CAF FIVE CAF FIVE
@ -2197,7 +2197,7 @@ S2INCP1 INCORP1
CAF V06N49EE CAF V06N49EE
TC BANKCALL TC BANKCALL
CADR GOFLASHR CADR GOFLASHR
TC GOTOP00H # V34E TERMINATE TC GOTOPOOH # V34E TERMINATE
TC +5 # INCORPORATE CHANGES TC +5 # INCORPORATE CHANGES
TC S22EXEX # V32E RECYCLE TC S22EXEX # V32E RECYCLE
CAF BIT3 CAF BIT3
@ -2325,11 +2325,11 @@ S22EXEX TC INTPRET # WITHOUT CONVERTING W
GOTO GOTO
S22RTNEX S22RTNEX
S22GTP TC INTPRET # CONVERT W BEFORE TC GOTOP00H S22GTP TC INTPRET # CONVERT W BEFORE TC GOTOPOOH
CALL CALL
9DWTO6DW 9DWTO6DW
EXIT EXIT
TC GOTOP00H TC GOTOPOOH
S22F2410 SETPD VLOAD # COMPUTE FORMULA 2.4.10 S22F2410 SETPD VLOAD # COMPUTE FORMULA 2.4.10
0D 0D
CSMPOS # RC B-29 EARTH, B-27 MOON CSMPOS # RC B-29 EARTH, B-27 MOON
@ -2828,7 +2828,7 @@ P23.05 CLEAR EXIT
P23.06 CAF V05N70 P23.06 CAF V05N70
TC BANKCALL # IDENTIFICATION: STAR, HOR IDENT. TC BANKCALL # IDENTIFICATION: STAR, HOR IDENT.
CADR GOFLASH CADR GOFLASH
TC GOTOP00H # TERMINATE TC GOTOPOOH # TERMINATE
TC P23.15 TC P23.15
TC -5 # REDISPLAY TC -5 # REDISPLAY
P23.15 CA LANDMARK # IF C=2, LUNAFLAG=1. IF C=1, LUNAFLAG=0 P23.15 CA LANDMARK # IF C=2, LUNAFLAG=1. IF C=1, LUNAFLAG=0
@ -2912,7 +2912,7 @@ P23.31 BON EXIT
CAF V50N25P CAF V50N25P
TC BANKCALL TC BANKCALL
CADR GOPERF1 # GOPERF1 BLANKS OUT R2 AND R3 CADR GOPERF1 # GOPERF1 BLANKS OUT R2 AND R3
TC GOTOP00H TC GOTOPOOH
TC V94ENTER # PROCEED. AUTOCONTROL CMC TC V94ENTER # PROCEED. AUTOCONTROL CMC
P23.55 TC INTPRET P23.55 TC INTPRET
GOTO GOTO
@ -2980,7 +2980,7 @@ P23.60 EXIT
CAF V05N71 CAF V05N71
TC BANKCALL TC BANKCALL
CADR GOFLASH CADR GOFLASH
TC GOTOP00H # TERMINATE TC GOTOPOOH # TERMINATE
TC P23.65 # STORE DATA TC P23.65 # STORE DATA
TC -5 # REDISPLAY TC -5 # REDISPLAY
P23.65 TC INTPRET P23.65 TC INTPRET
@ -3136,9 +3136,9 @@ R23.53 STORE N49DISP
R23.6 CAF V6N49 R23.6 CAF V6N49
TC BANKCALL TC BANKCALL
CADR GOFLASHR CADR GOFLASHR
TC GOTOP00H TC GOTOPOOH
TC R23.7 # INCORPORATE DATA TC R23.7 # INCORPORATE DATA
TC GOTOP00H TC GOTOPOOH
CAF BIT3 # BLAN OUT R3 CAF BIT3 # BLAN OUT R3
TC BLANKET TC BLANKET
TC PHASCHNG TC PHASCHNG
@ -3149,7 +3149,7 @@ R23.8 SET CALL
VEHUPFLG VEHUPFLG
INCORP2 INCORP2
EXIT EXIT
R23.END TC GOTOP00H R23.END TC GOTOPOOH
# Page 627 # Page 627
R23.10 TC FALTON R23.10 TC FALTON
@ -3393,7 +3393,7 @@ LDPLANET EXIT # KEEP THIS OPEN SUBROUTINE IN EBANK=5
CAF VNPLAN23 # BECAUSE STAR IS EBANK=5 CAF VNPLAN23 # BECAUSE STAR IS EBANK=5
TC BANKCALL # LDPLANET ALLOWS VECTOR TO PLANET TO BE TC BANKCALL # LDPLANET ALLOWS VECTOR TO PLANET TO BE
CADR GOFLASH # STORED IN STARSAV2 IF STORED STARS ARE CADR GOFLASH # STORED IN STARSAV2 IF STORED STARS ARE
TC GOTOP00H # NOT VISIBLE TC GOTOPOOH # NOT VISIBLE
TC +2 TC +2
TC -5 TC -5
TC INTPRET TC INTPRET
@ -3408,7 +3408,7 @@ VNPLAN23 VN 0688
BLOCK 02 BLOCK 02
GOTOV56 EXTEND # P20 TERMINATES BY GOTOV56 INSTEAD OF GOTOV56 EXTEND # P20 TERMINATES BY GOTOV56 INSTEAD OF
# Page 632 # Page 632
DCA VB56CADR # GOTOP00H DCA VB56CADR # GOTOPOOH
TCF SUPDXCHZ TCF SUPDXCHZ
EBANK= WHOCARES EBANK= WHOCARES
VB56CADR 2CADR TRACKTRM VB56CADR 2CADR TRACKTRM

14
Comanche055/P30-P37.agc
View File

@ -47,7 +47,7 @@ DISPMGA STQ EXIT # USED IN P30
DISP45 CAF V16N45 DISP45 CAF V16N45
TC BANKCALL TC BANKCALL
CADR GOFLASHR CADR GOFLASHR
TC GOTOP00H TC GOTOPOOH
TC END45 TC END45
TC DISP45 TC DISP45
P30PHSI TC PHASCHNG P30PHSI TC PHASCHNG
@ -104,7 +104,7 @@ COMPTGO EXTEND # USED TO COMPUTE TTOGO
# CALLING SEQUENCE VIA JOB FROM V37 # CALLING SEQUENCE VIA JOB FROM V37
# EXIT VIA V37 OR GOTOP00H # EXIT VIA V37 OR GOTOPOOH
# OUTPUT FOR POWERED FLIGHT # OUTPUT FOR POWERED FLIGHT
# VTIG X # VTIG X
@ -130,7 +130,7 @@ P30 TC P30/P31
TC UPFLAG TC UPFLAG
# Page 637 # Page 637
ADRES XDELVFLG # SET XDELVFLG BIT 8 FLAG 2 ADRES XDELVFLG # SET XDELVFLG BIT 8 FLAG 2
TCF GOTOP00H TCF GOTOPOOH
P31 TC P30/P31 P31 TC P30/P31
TC DOWNFLAG TC DOWNFLAG
@ -145,7 +145,7 @@ P31 TC P30/P31
TC PARAM30 TC PARAM30
TC DOWNFLAG TC DOWNFLAG
ADRES XDELVFLG # BIT 8 FLAG 2 ADRES XDELVFLG # BIT 8 FLAG 2
TCF GOTOP00H TCF GOTOPOOH
P30/P31 XCH Q P30/P31 XCH Q
TS P30/31RT TS P30/31RT
@ -156,7 +156,7 @@ P30/P31 XCH Q
CAF V06N33 # T OF IGN CAF V06N33 # T OF IGN
TC BANKCALL TC BANKCALL
CADR GOFLASHR CADR GOFLASHR
TCF GOTOP00H TCF GOTOPOOH
TC P30/31RT TC P30/31RT
TCF P30/P31 +4 TCF P30/P31 +4
TC PHASCHNG TC PHASCHNG
@ -168,7 +168,7 @@ CNTNUP30 XCH Q
CAF V06N81 CAF V06N81
TC BANKCALL TC BANKCALL
CADR GOFLASH CADR GOFLASH
TCF GOTOP00H TCF GOTOPOOH
TC P30/RET TC P30/RET
TCF CNTNUP30 +2 TCF CNTNUP30 +2
PARAM30 XCH Q PARAM30 XCH Q
@ -176,7 +176,7 @@ PARAM30 XCH Q
CAF V06N42 CAF V06N42
TC BANKCALL TC BANKCALL
CADR GOFLASH CADR GOFLASH
TC GOTOP00H # ON TERMINATION GOTOP00H TC GOTOPOOH # ON TERMINATION GOTOPOOH
TCF REFTEST # ON PROCEED GO DO REFTEST TCF REFTEST # ON PROCEED GO DO REFTEST
# Page 638 # Page 638
TCF PARAM30 +2 TCF PARAM30 +2

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

@ -187,7 +187,7 @@
# VARALARM # VARALARM
# BANKCALL # BANKCALL
# GOFLASH # GOFLASH
# GOTOP00H # GOTOPOOH
# Page 652 # Page 652
# VNP00H # VNP00H
# GOFLASHR # GOFLASHR
@ -228,7 +228,7 @@ ALMXIT LXC,1
CAF V05N09 CAF V05N09
TC BANKCALL TC BANKCALL
CADR GOFLASH CADR GOFLASH
TC GOTOP00H TC GOTOPOOH
TC -4 TC -4
P32/P72A TC P20FLGON P32/P72A TC P20FLGON
TC INTPRET TC INTPRET
@ -242,7 +242,7 @@ P32/P72A TC P20FLGON
# Page 653 # Page 653
TC BANKCALL TC BANKCALL
CADR GOFLASH CADR GOFLASH
TC GOTOP00H TC GOTOPOOH
TC +2 TC +2
TC -5 TC -5
CAF V06N37 # TTPI CAF V06N37 # TTPI
@ -464,7 +464,7 @@ P32/P72F STORE T2TOT3
# ALARM # ALARM
# BANKCALL # BANKCALL
# GOFLASH # GOFLASH
# GOTOP00H # GOTOPOOH
# S32/33.1 # S32/33.1
# Page 658 # Page 658
# VN1645 # VN1645
@ -516,7 +516,7 @@ P33/P73B CALL
CAF V05N09 CAF V05N09
TC BANKCALL TC BANKCALL
CADR GOFLASH CADR GOFLASH
TC GOTOP00H TC GOTOPOOH
# Page 659 # Page 659
TC +2 TC +2
TC P33/P73A TC P33/P73A

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

@ -167,7 +167,7 @@
# ALARM # ALARM
# BANKCALL # BANKCALL
# GOFLASH # GOFLASH
# GOTOP00H # GOTOPOOH
# TIMETHET # TIMETHET
# S34/35.2 # S34/35.2
# PERIAPO1 # PERIAPO1
@ -226,7 +226,7 @@ INTLOOP DLOAD DAD
CAF V05N09 CAF V05N09
TC BANKCALL TC BANKCALL
CADR GOFLASH CADR GOFLASH
TC GOTOP00H TC GOTOPOOH
TC P34/P74A # PROCEED TC P34/P74A # PROCEED
TC -7 # V32 TC -7 # V32
@ -818,7 +818,7 @@ ALLSET STOVL TET
# SUBROUTINES USED # SUBROUTINES USED
# BANKCALL # BANKCALL
# GOFLASH # GOFLASH
# GOTOP00H # GOTOPOOH
# S34/35.3 # S34/35.3
# S34.35.4 # S34.35.4
# VNP00H # VNP00H
@ -867,7 +867,7 @@ FLAGOFF CALL
# DELAYJOB # DELAYJOB
# COMPTGO # COMPTGO
# GOFLASHR # GOFLASHR
# GOTOP00H # GOTOPOOH
# FLAGUP # FLAGUP
VN1645 STQ DLOAD VN1645 STQ DLOAD
@ -908,7 +908,7 @@ GET45 EXIT
KILCLOCK CA Z KILCLOCK CA Z
TS DISPDEX TS DISPDEX
# Page 482 # Page 482
TC GOTOP00H TC GOTOPOOH
N45PROC CS FLAGWRD2 N45PROC CS FLAGWRD2
MASK BIT6 MASK BIT6
EXTEND EXTEND
@ -932,7 +932,7 @@ CLUPDATE CA Z
# SUBROUTINES USED # SUBROUTINES USED
# BANKCALL # BANKCALL
# GOFLASHR # GOFLASHR
# GOTOP00H # GOTOPOOH
# BLANKET # BLANKET
# ENDOFJOB # ENDOFJOB
@ -941,7 +941,7 @@ DISPLAYE EXTEND
CAF V06N55 CAF V06N55
TCR BANKCALL TCR BANKCALL
CADR GOFLASH CADR GOFLASH
TCF GOTOP00H TCF GOTOPOOH
TC NORMEX TC NORMEX
TCF -5 TCF -5
@ -960,7 +960,7 @@ P3XORP7X CAF HIGH9
# SUBROUTINES USED # SUBROUTINES USED
# BANKCALL # BANKCALL
# GOFLASH # GOFLASH
# GOTOP00H # GOTOPOOH
SETLOC P30SUBS SETLOC P30SUBS
BANK BANK
@ -975,7 +975,7 @@ VNP00H EXTEND
CA VERBNOUN CA VERBNOUN
TCR BANKCALL TCR BANKCALL
CADR GOFLASH CADR GOFLASH
TCF GOTOP00H TCF GOTOPOOH
TCF +2 TCF +2
VNBANK TC -5 VNBANK TC -5

10
Comanche055/P37_P70.agc
View File

@ -10,7 +10,7 @@
# Mod history: 2009-05-11 JVL Adapted from the Colossus249/ file # Mod history: 2009-05-11 JVL Adapted from the Colossus249/ file
# of the same name, using Comanche055 page # of the same name, using Comanche055 page
# images. # 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 # 2009-05-23 RSB In RTD18, corrected a STOVL DELVLVC to
# STODL DELVLVC and a STODL 02D to STORE 02D. # STODL DELVLVC and a STODL 02D to STORE 02D.
# #
@ -471,7 +471,7 @@ P370GOFR EXTEND
QXCH RTENCKEX QXCH RTENCKEX
TCR BANKCALL TCR BANKCALL
CADR GOFLASHR CADR GOFLASHR
TCF GOTOP00H # TERMINATE TCF GOTOPOOH # TERMINATE
TCF +3 TCF +3
TCF +4 TCF +4
TC RTENCKEX # IMMEDIATE RETURN TC RTENCKEX # IMMEDIATE RETURN
@ -487,7 +487,7 @@ P370GOF EXTEND
QXCH SPRTEX QXCH SPRTEX
TCR BANKCALL TCR BANKCALL
CADR GOFLASH CADR GOFLASH
TCF GOTOP00H TCF GOTOPOOH
TCF +2 TCF +2
TC SPRTEX TC SPRTEX
P37PROC INDEX SPRTEX P37PROC INDEX SPRTEX
@ -513,7 +513,7 @@ P370ALRM STQ EXIT
CAF V5N09RTE CAF V5N09RTE
TC BANKCALL TC BANKCALL
CADR GOFLASH CADR GOFLASH
TCF GOTOP00H TCF GOTOPOOH
TCF -4 TCF -4
TC INTPRET TC INTPRET
GOTO GOTO
@ -1302,7 +1302,7 @@ V2T100 STQ DLOAD
BMN BMN
V2T101 V2T101
V2TERROR EXIT # OR IF LAMBDA LESS THAN ONE 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 OCT 00610
V2T101 SETPD CLEAR V2T101 SETPD CLEAR
0 # PL00D 0 # PL00D

10
Comanche055/P40-P47.agc
View File

@ -202,7 +202,7 @@ TIGNOW TC PHASCHNG
POST41 EXTEND POST41 EXTEND
DCA SERVCADR DCA SERVCADR
DXCH AVEGEXIT DXCH AVEGEXIT
TCF GOTOP00H TCF GOTOPOOH
MINDB DEC 46 MINDB DEC 46
MAXDB DEC 455 MAXDB DEC 455
@ -443,8 +443,8 @@ P47BOD CAF PRIO15 # LOWER PRIO THAN CALCN83 (20)
P47/DSP CAF V1683 P47/DSP CAF V1683
TC BANKCALL TC BANKCALL
CADR GOFLASH CADR GOFLASH
TC GOTOP00H TC GOTOPOOH
TC GOTOP00H TC GOTOPOOH
TCF P47BODY # RECYCLE -- CLEAR ACCUMULATED VELOCITY TCF P47BODY # RECYCLE -- CLEAR ACCUMULATED VELOCITY
# Page 693 # Page 693
@ -979,7 +979,7 @@ V99T TC 2PHSCHNG # (ENTRY FROM V97T FLOW TOO)
OCT 05024 # C, PRIORITY NEXT, JOB BELOW OCT 05024 # C, PRIORITY NEXT, JOB BELOW
OCT 27000 OCT 27000
V99TJOB TCR TVCZAP -1 # WIPE OUT TVC, CLOKTASK V99TJOB TCR TVCZAP -1 # WIPE OUT TVC, CLOKTASK
TCF POST41 # AVEGEXIT, SETMAXDB, GOTOP00H TCF POST41 # AVEGEXIT, SETMAXDB, GOTOPOOH
V99P INHINT V99P INHINT
CAE FLAGWRD7 # CHECK ASTN FLAG FOR PRIOR V99P 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 V97TRCS TC IBNKCALL # RCS DAP IN 0.6SEC, SETTING T5 BITS TO
CADR RCSDAPON # KILL TVCEXEC/TVCROLLDAP STARTS CADR RCSDAPON # KILL TVCEXEC/TVCROLLDAP STARTS
CAF PRIO27 # SET UP V99T FOR TVCZAP AND POST41 (SET- 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 EBANK= DAPDATR1 # EBANK6 FOR SETMAXDB IN POST41
2CADR V99T 2CADR V99T

40
Comanche055/P51-P53.agc
View File

@ -158,7 +158,7 @@ P52A CAF BIT1
P52B CAF BIT1 P52B CAF BIT1
TC BANKCALL # FLASH OPTION CODE AND ORIENTATION CODE TC BANKCALL # FLASH OPTION CODE AND ORIENTATION CODE
CADR GOPERF4R CADR GOPERF4R
TC GOTOP00H TC GOTOPOOH
TC +5 TC +5
TC P52B # NEW CODE -- NEW ORIENTATION CODE INPUT TC P52B # NEW CODE -- NEW ORIENTATION CODE INPUT
TC PHASCHNG TC PHASCHNG
@ -178,7 +178,7 @@ P52T EXTEND
CAF V06N34 CAF V06N34
TC BANKCALL TC BANKCALL
CADR GOFLASH CADR GOFLASH
TC GOTOP00H TC GOTOPOOH
TC +2 TC +2
TC -5 TC -5
EXTEND EXTEND
@ -211,7 +211,7 @@ P52D CALL # READ VEHICLE ATTITUDE AND
CAF VB06N22 CAF VB06N22
TC BANKCALL # DISPLAY GIMBAL ANGLES TC BANKCALL # DISPLAY GIMBAL ANGLES
CADR GOFLASH CADR GOFLASH
TC GOTOP00H TC GOTOPOOH
TC COARSTYP TC COARSTYP
P52J TC INTPRET # RECYCLE: VEHICLE HAS BEEN MANEUVERED P52J TC INTPRET # RECYCLE: VEHICLE HAS BEEN MANEUVERED
GOTO GOTO
@ -226,7 +226,7 @@ P52C TC PHASCHNG
CAF ALRM15 CAF ALRM15
TC BANKCALL TC BANKCALL
CADR GOPERF1 CADR GOPERF1
TC GOTOP00H TC GOTOPOOH
TC +2 # V33 TC +2 # V33
TC P52F # E TC P52F # E
TC INTPRET TC INTPRET
@ -243,14 +243,14 @@ P52F TC INTPRET # 2 STARS AVAILABLE
CALL CALL
R51 R51
ENDP50S EXIT ENDP50S EXIT
TC GOTOP00H TC GOTOPOOH
# Page 741 # Page 741
P52I TC ALARM P52I TC ALARM
OCT 405 OCT 405
CAF V05N09 CAF V05N09
TC BANKCALL TC BANKCALL
CADR GOFLASH CADR GOFLASH
TC GOTOP00H TC GOTOPOOH
TC P52F # PROCEED: DO FINE ALIGN-R51 TC P52F # PROCEED: DO FINE ALIGN-R51
TC P52C # RECYCLE: VEHICLE HAS BEEN MANEUVERED TC P52C # RECYCLE: VEHICLE HAS BEEN MANEUVERED
V06N34 VN 0634 V06N34 VN 0634
@ -258,7 +258,7 @@ VB06N22 VN 00622
COARSTYP CAF OCT13 COARSTYP CAF OCT13
TC BANKCALL TC BANKCALL
CADR GOPERF1 CADR GOPERF1
TCF GOTOP00H # V34 TCF GOTOPOOH # V34
TCF P52J +3 # NORMAL TCF P52J +3 # NORMAL
TC INTPRET # GYRO COARSE TC INTPRET # GYRO COARSE
GYCRS VLOAD MXV GYCRS VLOAD MXV
@ -366,7 +366,7 @@ P52LS STQ SET
LSDISP CAF V06N89* LSDISP CAF V06N89*
TC BANKCALL TC BANKCALL
CADR GOFLASH CADR GOFLASH
TC GOTOP00H TC GOTOPOOH
TC +2 TC +2
TC LSDISP TC LSDISP
TC INTPRET TC INTPRET
@ -564,7 +564,7 @@ TERM52 TC CLEARMRK
TC BANKCALL # CLEAR OUT EXTENDED VERBS TC BANKCALL # CLEAR OUT EXTENDED VERBS
CADR KLEENEX CADR KLEENEX
TC GOTOP00H # NO GO TO P00 TC GOTOPOOH # NO GO TO P00
ADVORB STQ SET # SETS UP ADVANCED ORBIT TRACKING ADVORB STQ SET # SETS UP ADVANCED ORBIT TRACKING
SAVQR52 SAVQR52
@ -941,7 +941,7 @@ R51.3 CLEAR CLEAR
R51DSP CAF V01N70 R51DSP CAF V01N70
TC BANKCALL TC BANKCALL
CADR GOFLASHR CADR GOFLASHR
TC GOTOP00H TC GOTOPOOH
TC +5 TC +5
TC -5 TC -5
CAF SIX CAF SIX
@ -1009,7 +1009,7 @@ R51K EXIT
CAF OCT14 CAF OCT14
TC BANKCALL TC BANKCALL
CADR GOPERF1 CADR GOPERF1
TC GOTOP00H TC GOTOPOOH
TC +2 # V33 TC +2 # V33
TC +3 TC +3
TC BANKCALL TC BANKCALL
@ -1057,7 +1057,7 @@ PULSEM EXIT
R55.1 CAF V06N93 R55.1 CAF V06N93
TC BANKCALL TC BANKCALL
CADR GOFLASH CADR GOFLASH
TC GOTOP00H TC GOTOPOOH
TC R55.2 TC R55.2
TC R55RET TC R55RET
R55.2 TC PHASCHNG R55.2 TC PHASCHNG
@ -1148,7 +1148,7 @@ CHKSD DLOAD DSU
# Page 761 # Page 761
TC BANKCALL TC BANKCALL
CADR GOFLASH CADR GOFLASH
TCF GOTOP00H TCF GOTOPOOH
TC CHKSDA # PROCEED TC CHKSDA # PROCEED
TC INTPRET TC INTPRET
CLEAR GOTO CLEAR GOTO
@ -1452,14 +1452,14 @@ P51 CS IMODES30
TC P51A TC P51A
TC ALARM TC ALARM
OCT 210 OCT 210
TC GOTOP00H TC GOTOPOOH
P51A TC BANKCALL P51A TC BANKCALL
CADR R02ZERO CADR R02ZERO
P51AA CAF PRFMSTAQ P51AA CAF PRFMSTAQ
TC BANKCALL TC BANKCALL
CADR GOPERF1 CADR GOPERF1
TC GOTOP00H # TERM. TC GOTOPOOH # TERM.
TC P51B # V33 TC P51B # V33
TC PHASCHNG TC PHASCHNG
OCT 05024 OCT 05024
@ -1707,7 +1707,7 @@ R53C1 CAF ZERO
R53C CAF V01N71 R53C CAF V01N71
TC BANKCALL TC BANKCALL
CADR GOFLASH CADR GOFLASH
TC GOTOP00H # TERM. TC GOTOPOOH # TERM.
TCF R53Z TCF R53Z
TC R53C # RECYCLE TC R53C # RECYCLE
R53Z TC CHKSCODE R53Z TC CHKSCODE
@ -2090,7 +2090,7 @@ R56 STQ EXIT
CAF V06N94B CAF V06N94B
TC BANKCALL TC BANKCALL
CADR GOFLASH CADR GOFLASH
TC GOTOP00H # TERM. TC GOTOPOOH # TERM.
TC R56A # PROCEED: ANGLES OK TC R56A # PROCEED: ANGLES OK
TC -5 # ENTER: NEW ANGLES TC -5 # ENTER: NEW ANGLES
R56A TC BANKCALL R56A TC BANKCALL
@ -2104,7 +2104,7 @@ R56A1 CAF VB53 # DISPLAY V53 REQUESTING ALTERNATE MARK
TC BANKCALL TC BANKCALL
# Page 782 # Page 782
CADR GOMARK2 CADR GOMARK2
TCF GOTOP00H # V34: TERMINATE TCF GOTOPOOH # V34: TERMINATE
TCF R56A1 # V33: DON'T PROCEED -- JUST ENTER TO MARK TCF R56A1 # V33: DON'T PROCEED -- JUST ENTER TO MARK
TC INTPRET TC INTPRET
DLOAD DLOAD
@ -2138,7 +2138,7 @@ R56A1 CAF VB53 # DISPLAY V53 REQUESTING ALTERNATE MARK
CAF OCT16 CAF OCT16
TC BANKCALL TC BANKCALL
CADR GOPERF1 CADR GOPERF1
TC GOTOP00H # TERM. TC GOTOPOOH # TERM.
TCF R56B # PROCEED: MARK COMPLETED TCF R56B # PROCEED: MARK COMPLETED
TCF R56A +2 # RECYCLE: DO ANOTHER MARK -- LIKE REJECT. TCF R56A +2 # RECYCLE: DO ANOTHER MARK -- LIKE REJECT.
R56B TC BANKCALL R56B TC BANKCALL
@ -2173,7 +2173,7 @@ NOSAM EXIT
CAF VNPLANV CAF VNPLANV
TC BANKCALL TC BANKCALL
CADR GOFLASH CADR GOFLASH
TC GOTOP00H TC GOTOPOOH
TC +2 TC +2
TC -5 TC -5
TC INTPRET TC INTPRET

12
Comanche055/P61-P67.agc
View File

@ -81,7 +81,7 @@ P61 CA BIT14 # EXTENDED VERB SHOULD BE FREE THIS CLOSE
# XXX.XX DEG XXX.XX DEG XXXXX. # XXX.XX DEG XXX.XX DEG XXXXX.
TC BANKCALL TC BANKCALL
CADR GOFLASHR CADR GOFLASHR
TC GOTOP00H TC GOTOPOOH
# Page 790 # Page 790
TC P61.4 TC P61.4
TC -5 TC -5
@ -125,7 +125,7 @@ P61.1 TC CLEARMRK
TC BANKCALL TC BANKCALL
CADR GOFLASH CADR GOFLASH
TC GOTOP00H TC GOTOPOOH
TC P61.2 # PROCEED TC P61.2 # PROCEED
TC -5 TC -5
@ -145,7 +145,7 @@ P61.2 TC INTPRET # CORRECT TTE FOR TIME LAPSE DURING
# XXXX.X NM XXXXX. FPS XXBXX M,S # XXXX.X NM XXXXX. FPS XXBXX M,S
TC BANKCALL TC BANKCALL
CADR GOFLASH CADR GOFLASH
TC GOTOP00H TC GOTOPOOH
TC +2 TC +2
TC P61.2 # REDO TC P61.2 # REDO
@ -198,7 +198,7 @@ P62.2 EXTEND
CAF OCT41 # REQUEST SEPARATION CAF OCT41 # REQUEST SEPARATION
TC BANKCALL TC BANKCALL
CADR GOPERF1R CADR GOPERF1R
TC GOTOP00H TC GOTOPOOH
TC +3 # PROCEED TC +3 # PROCEED
# Page 793 # Page 793
# NOTE: NODOFLAG WILL BE SET IN CM/DAPON. *** # 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 # XXXX.X NM XXX.XX DEG XXX.XX DEG
TC BANKCALL TC BANKCALL
CADR GOFLASH CADR GOFLASH
TC +3 # EFFECTIVE GOTOP00H TC +3 # EFFECTIVE GOTOPOOH
TC +2 TC +2
TC P67.1 # REDO TC P67.1 # REDO
@ -493,7 +493,7 @@ P67.1 CA V16N67 # RTOGO LAT LONG
# Page 801 # Page 801
DXCH AVEGEXIT DXCH AVEGEXIT
TCF GOTOP00H TCF GOTOPOOH
# Page 802 # Page 802
P67.2 VLOAD CLEAR # CALC PRESENT LAT, LONG, ALT. P67.2 VLOAD CLEAR # CALC PRESENT LAT, LONG, ALT.

2
Comanche055/P76.agc
View File

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

4
Comanche055/PINBALL_GAME_BUTTONS_AND_LIGHTS.agc
View File

@ -2716,7 +2716,7 @@ DSPALARM CS NVSBENDL
TC PASTEVB # PUT MONITOR VERB BACK IN VERBREG TC PASTEVB # PUT MONITOR VERB BACK IN VERBREG
CHARALRM TC FALTON # NOT NVSUB INITATED TURN ON OPR ERROR CHARALRM TC FALTON # NOT NVSUB INITATED TURN ON OPR ERROR
TC ENDOFJOB TC ENDOFJOB
TC P00DOO TC POODOO
OCT 01501 OCT 01501
MONADR GENADR PASTEVB MONADR GENADR PASTEVB
NVSBENDL TC NVSUBEND 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. ISLIST+0 CCS DSPLIST # ABORTS (CODE 01206) IF DSPLIST NOT= +0.
TC DSPABORT # RETURNS IF DSPLIST = +0. TC DSPABORT # RETURNS IF DSPLIST = +0.
TC Q TC Q
DSPABORT TC P00DOO DSPABORT TC POODOO
OCT 01206 OCT 01206
# JAMTERM ALLOWS PROGRAMS TO PERFORM THE TERMINATE FUNCTION. # JAMTERM ALLOWS PROGRAMS TO PERFORM THE TERMINATE FUNCTION.

2
Comanche055/R60_62.agc
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) CA FLAGWRD4 # ARE WE IN R61 (P20)
MASK BIT12 MASK BIT12
EXTEND EXTEND
BZF GOTOP00H # NO BZF GOTOPOOH # NO
TC GOTOV56 # YES TC GOTOV56 # YES
BIT14+7 OCT 20100 BIT14+7 OCT 20100

14
Comanche055/STABLE_ORBIT.agc
View File

@ -95,7 +95,7 @@
# VNDSPLY # VNDSPLY
# BANKCALL # BANKCALL
# GOFLASHR # GOFLASHR
# GOTOP00H # GOTOPOOH
# BLANKET # BLANKET
# ENDOFJOB # ENDOFJOB
# PREC/TT # PREC/TT
@ -119,7 +119,7 @@ P78 TC AVFLAGP # OTHER VEHICLE ACTIVE
CAF V06N55SR # DISPLAY CENTANG CAF V06N55SR # DISPLAY CENTANG
TCR BANKCALL TCR BANKCALL
CADR GOFLASHR CADR GOFLASHR
TCF GOTOP00H # TERMINATE TCF GOTOPOOH # TERMINATE
TCF +5 # PROCEED TCF +5 # PROCEED
TCF -5 # RECYCLE TCF -5 # RECYCLE
CAF THREE # IMMEDIATE RETURN - BLANK R1, R2 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 CAF V04N06SR # DISPLAY OPTION CODE - 1 = SOI, 2 = SOR
TCR BANKCALL TCR BANKCALL
CADR GOFLASHR CADR GOFLASHR
TCF GOTOP00H # TERMINATE TCF GOTOPOOH # TERMINATE
TCF +5 # PROCEED TCF +5 # PROCEED
TCF -5 # RECYCLE TCF -5 # RECYCLE
CAF BIT3 # IMMEDIATE RETURN - BLANK R3 CAF BIT3 # IMMEDIATE RETURN - BLANK R3
@ -166,7 +166,7 @@ OPTN1 SET CLEAR # SOI
CAF V06N57SR # DISPLAY DELTA R CAF V06N57SR # DISPLAY DELTA R
TCR BANKCALL TCR BANKCALL
CADR GOFLASHR CADR GOFLASHR
TCF GOTOP00H # TERMINATE TCF GOTOPOOH # TERMINATE
TCF +5 # PROCEED TCF +5 # PROCEED
TCF -5 # RECYCLE TCF -5 # RECYCLE
CAF SIX # IMMEDIATE RETURN - BLANK R2, R3 CAF SIX # IMMEDIATE RETURN - BLANK R2, R3
@ -217,7 +217,7 @@ JUNCTN2 DLOAD DSU
# VNDSPLY # VNDSPLY
# BANKCALL # BANKCALL
# GOFLASH # GOFLASH
# GOTOP00H # GOTOPOOH
# VN1645 # VN1645
MAINRTNE STCALL TDEC1 # PRECISION UPDATE PASSIVE VEHICLE TO MAINRTNE STCALL TDEC1 # PRECISION UPDATE PASSIVE VEHICLE TO
@ -400,7 +400,7 @@ OTHERV CALL
# #
# BANKCALL # BANKCALL
# GOFLASH # GOFLASH
# GOTOP00H # GOTOPOOH
VNDSPLY EXTEND # FLASH DISPLAY VNDSPLY EXTEND # FLASH DISPLAY
QXCH RTRN QXCH RTRN
@ -408,7 +408,7 @@ VNDSPLY EXTEND # FLASH DISPLAY
CA VERBNOUN CA VERBNOUN
TCR BANKCALL TCR BANKCALL
CADR GOFLASH CADR GOFLASH
TCF GOTOP00H # TERMINATE TCF GOTOPOOH # TERMINATE
TC RTRN # PROCEED TC RTRN # PROCEED
TCF -5 # RECYCLE TCF -5 # RECYCLE
V06N33SR VN 0633 V06N33SR VN 0633

2
Comanche055/SXTMARK.agc
View File

@ -498,7 +498,7 @@ REJECT3 CAF LOW9 # DECREMENT POINTER TO REJECT MARK
# CALLING SEQUENCE AS JOB WITHIN SXTMARK # 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 # RECYCLES THE DISPLAY
# NOTE- SXTMARK AUTOMATICALLY CHANGES FROM CALLING MKVB51 TO MKVB50 WHEN # NOTE- SXTMARK AUTOMATICALLY CHANGES FROM CALLING MKVB51 TO MKVB50 WHEN

6
Comanche055/TPI_SEARCH.agc
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. CAF V06N55 # DISPLAY PERICENTER CODE AND CENTRAL ANG.
TC BANKCALL TC BANKCALL
CADR GOFLASHR CADR GOFLASHR
TC GOTOP00H # TERMINATE PROGRAM TC GOTOPOOH # TERMINATE PROGRAM
TC GOTOP00H # END PROGRAM TC GOTOPOOH # END PROGRAM
TC P17.1 # RECYCLE WITH NEW TTPI OR SEARCH OPTION TC P17.1 # RECYCLE WITH NEW TTPI OR SEARCH OPTION
CAF TWO # BLANK R2 CAF TWO # BLANK R2
TC BLANKET TC BLANKET
@ -548,5 +548,5 @@ ALARUMS SET EXIT
OCT 00124 # NO SAFE PERICENTER IN THIS SECTOR OCT 00124 # NO SAFE PERICENTER IN THIS SECTOR
CAF V05N09 CAF V05N09
TC VNCOMP17 TC VNCOMP17
TC GOTOP00H # PROCEED ILLEGAL TERMINATE PROGRAM TC GOTOPOOH # PROCEED ILLEGAL TERMINATE PROGRAM
V06N72 VN 0672 V06N72 VN 0672

2
Comanche055/WAITLIST.agc
View File

@ -148,7 +148,7 @@ DLY2 CAF WAITBB # ENTRY FROM FIXDELAY AND VARDELAY.
XCH BBANK XCH BBANK
TCF WAIT2 TCF WAIT2
WATLST0- TC P00DOO WATLST0- TC POODOO
OCT 1204 # WAITLIST CALL WITH ZERO OR NEG DT OCT 1204 # WAITLIST CALL WITH ZERO OR NEG DT
# RETURN TO CALLER AFTER TASK INSERTION: # RETURN TO CALLER AFTER TASK INSERTION: