Proof P70-P71 #618 (#719)

Co-authored-by: James Harris <wopian@wopian.me>
This commit is contained in:
Atakan Suslu 2020-10-19 20:39:08 +03:00 committed by GitHub
parent c6cee02783
commit 4727e92aa1
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23

View File

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