Co-authored-by: James Harris <wopian@wopian.me>
This commit is contained in:
Atakan Suslu
GitHub
parent
c6cee02783
commit
4727e92aa1
@ -52,7 +52,7 @@ R10,R11A CS IMODES33 # IF LAMP TEST, DO NOT CHANGE LR LITES.
|
||||
EXTEND
|
||||
BZF 10,11
|
||||
|
||||
FLASHH? MASK FLGWRD11 # C(A) = 1 - HFLASH BIT
|
||||
FLASHH? MASK FLGWRD11 # C(A) = 1 = HFLASH BIT
|
||||
EXTEND
|
||||
BZF FLASHV? # H FLASH OFF, SO LEAVE ALONE
|
||||
|
||||
@ -72,7 +72,7 @@ FLASHV? CA VFLSHBIT # VLASHBIT MUST BE BIT 2.
|
||||
10,11 CA FLAGWRD9 # IS THE LETABORT FLAG SET ?
|
||||
MASK LETABBIT
|
||||
EXTEND
|
||||
BZF LANDISP # NO. PROCEED TO R10.
|
||||
BZF LANDISP # NO. PROCEED TO R10.
|
||||
|
||||
P71NOW? CS MODREG # YES. ARE WE IN P71 NOW?
|
||||
# Page 830
|
||||
@ -80,7 +80,7 @@ P71NOW? CS MODREG # YES. ARE WE IN P71 NOW?
|
||||
EXTEND
|
||||
BZF LANDISP # YES. PROCEED TO R10.
|
||||
|
||||
EXTEND # NO. IS AN ABORT STAGE COMMANDED?
|
||||
EXTEND # NO. IS AN ABORT STAGE COMMANDED?
|
||||
READ CHAN30
|
||||
COM
|
||||
TS L
|
||||
@ -88,7 +88,7 @@ P71NOW? CS MODREG # YES. ARE WE IN P71 NOW?
|
||||
CCS A
|
||||
TCF P71A # YES.
|
||||
|
||||
P70NOW? CS MODREG # NO. ARE WE IN P70 NOW?
|
||||
P70NOW? CS MODREG # NO. ARE WE IN P70 NOW?
|
||||
AD 1DEC70
|
||||
EXTEND
|
||||
BZF LANDISP # YES. PROCEED TO R10.
|
||||
@ -146,7 +146,7 @@ ABRTJASK CAF OCTAL27
|
||||
MASK APSFLBIT
|
||||
ADS FLGWRD10
|
||||
CS DAPBITS # DAPBITS = OCT 640 = BITS 6, 8, 9
|
||||
MASK DAPBOOLS # (TURN OFF ULLAGE, DRIFT, AND XOVINHIB
|
||||
MASK DAPBOOLS # (TURN OFF: ULLAGE, DRIFT, AND XOVINHIB )
|
||||
TS DAPBOOLS
|
||||
|
||||
CS FLAGWRD5 # SET ENGONFLG.
|
||||
@ -167,6 +167,7 @@ ABRTJASK CAF OCTAL27
|
||||
MASK R10FLBIT # CROSS-POINTER DISPLAY.
|
||||
ADS FLAGWRD0 # THE FOLLOWING ENEMA WILL REMOVE THE
|
||||
# DISPLAY INERTIAL DATA OUTBIT.
|
||||
|
||||
TC CLRADMOD # INSURE RADMODES PROPERLY SET FOR R29.
|
||||
|
||||
EXTEND # LOAD TEVENT FOR THE DOWNLINK.
|
||||
@ -195,7 +196,6 @@ ABRTJASK CAF OCTAL27
|
||||
COM
|
||||
DXCH -PHASE4
|
||||
|
||||
# the 3 in OCT37774 could be something else, garbled
|
||||
CAF OCT37774 # SET T5RUPT TO CALL DAPIDLER IN
|
||||
TS TIME5 # 40 MILLISECONDS.
|
||||
|
||||
@ -272,20 +272,20 @@ P70INIT TC INTPRET
|
||||
SET CALL
|
||||
FLAP
|
||||
COMMINIT
|
||||
AXC,1 GOTO # RETURN HERE IN P70, SET X1 FOR DPS COEFF.
|
||||
AXC,1 GOTO # RETURN HERE IN P70, SE X1 FOR DPS COEFF.
|
||||
0D
|
||||
BOTHPOLY
|
||||
INJTARG AXC,1 # RETURN HERE IN P71, SET X1 FOR APS COEFF.
|
||||
INJTARG AXC,1 # RETURN HERE IN P71, SET X1 FOR APS COEFF
|
||||
8D
|
||||
BOTHPOLY DLOAD* DMP # TGO D
|
||||
ABTCOF,1
|
||||
TGO
|
||||
# Page 834
|
||||
DAD* DMP
|
||||
ABTCOF +2,1 # TGO(C+TGO )
|
||||
ABTCOF +2,1 # TGO(C+TGO D)
|
||||
TGO
|
||||
DAD* DMP
|
||||
ABTCOF +4,1 # TGO(B+TGO d))
|
||||
ABTCOF +4,1 # TGO(B+TGO(C+TGO D))
|
||||
TGO
|
||||
DAD*
|
||||
ABTCOF +6,1 # A+TGO(B+TGO(C+TGO D))
|
||||
@ -295,7 +295,7 @@ BOTHPOLY DLOAD* DMP # TGO D
|
||||
UPRATE # IF BIG ENOUGH, LEAVE ZDOTD AS IS .
|
||||
DLOAD
|
||||
VMIN
|
||||
STORE ZDOTD # IF TOO SMALL, REPLCAE WITH MINIMUM.
|
||||
STORE ZDOTD # IF TOO SMALL, REPLACE WITH MINIMUM.
|
||||
UPRATE DLOAD
|
||||
ABTRDOT
|
||||
STCALL RDOTD # INITIALZE RDOTD.
|
||||
@ -303,7 +303,7 @@ UPRATE DLOAD
|
||||
ABS DSU
|
||||
YLIM # /Y/-DYMAX
|
||||
BMN SIGN # IF <0, XR<.5DEG, LEAVE YCO AT 0
|
||||
YOK # IF >0, FIX SIGN OF DEFICIT. THIS IS YCO.
|
||||
YOK # IF >0, FIX SIGN OF DEFICIT, THIS IS YCO.
|
||||
Y
|
||||
STORE YCO
|
||||
YOK DLOAD DSU
|
||||
@ -323,7 +323,7 @@ UPTHROT SET EXIT
|
||||
TC PHASCHNG
|
||||
OCT 04024
|
||||
|
||||
-3 TC BANKCALL # VERIFY THAT THE PANEL SWITCHES
|
||||
-3 TC BANKCALL # VERIFY THAT THE PANEL SWITCHES
|
||||
CADR P40AUTO # ARE PROPERLY SET.
|
||||
|
||||
TC THROTUP
|
||||
@ -371,6 +371,7 @@ TGO1 = VGBODY
|
||||
BANK 21
|
||||
SETLOC R11
|
||||
BANK
|
||||
|
||||
COUNT* $$/P70
|
||||
|
||||
LEGAL? CS MMNUMBER # IS THE DESIRED PGM ALREADY IN PROGRESS?
|
||||
@ -387,7 +388,7 @@ LEGAL? CS MMNUMBER # IS THE DESIRED PGM ALREADY IN PROGRESS?
|
||||
CA FLAGWRD7 # IS SERVICER ON THE AIR?
|
||||
MASK AVEGFBIT
|
||||
CCS A
|
||||
TC Q # YES. ALL IS WELL.
|
||||
TC Q # YES. ALL IS WELL.
|
||||
ABORTALM TC FALTON
|
||||
TC RELDSP
|
||||
TC POSTJUMP
|
||||
@ -399,7 +400,7 @@ ABORTALM TC FALTON
|
||||
|
||||
COUNT* $$/P70
|
||||
|
||||
# **********************************************************************
|
||||
# ************************************************************************
|
||||
|
||||
TGOCOMP RTB DSU
|
||||
LOADTIME
|
||||
@ -421,14 +422,18 @@ THROTUP CAF BIT13
|
||||
# ************************************************************************
|
||||
|
||||
10SECS 2DEC 1000
|
||||
|
||||
HINJECT 2DEC 18288 B-24 # 60,000 FEET EXPRESSED IN METERS.
|
||||
|
||||
(TGO)A 2DEC 37000 B-17
|
||||
|
||||
K(AT) 2DEC .02 # SCALING CONSTANT
|
||||
|
||||
WHICHADR REMADR ABRTABLE
|
||||
|
||||
# ************************************************************************
|
||||
# Page 837
|
||||
EBANK= DVCNTR
|
||||
ATMAGAD 2CADR ATMAG
|
||||
ORBMANAD ADRES ORBMANUV
|
||||
|
||||
ORBMANAD ADRES ORBMANUV
|
||||
|
||||
Loading…
Reference in New Issue
Block a user